diff options
Diffstat (limited to 'src/Main.hs')
-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 |