diff options
| author | Kjetil Orbekk <kjetil.orbekk@gmail.com> | 2015-10-09 22:16:45 -0400 |
|---|---|---|
| committer | Kjetil Orbekk <kjetil.orbekk@gmail.com> | 2015-10-09 22:16:45 -0400 |
| commit | ef0157b13676c05c6c4e64b0d95cdb69053afb48 (patch) | |
| tree | f7f7587b5b36fe1034208dbf5bf8ae4cc642bad8 /src | |
| parent | 1c6cf15cb9ad7663d12f4cea6600a7929d333dee (diff) | |
Add token code (html part not working yet).
Diffstat (limited to 'src')
| -rw-r--r-- | src/Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index fcdf9ea..75995fc 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -58,7 +58,8 @@ server = albums rename (RenameRequest from to) = liftIO $ runEitherT (renameAlbum config from to) - test token = return () + test (Just token) = liftIO (putStrLn $ "Got token: " ++ token) + test _ = left err503 { errBody = "Not authenticated" } photoApi :: Proxy PhotoApi photoApi = Proxy |