From ef0157b13676c05c6c4e64b0d95cdb69053afb48 Mon Sep 17 00:00:00 2001
From: Kjetil Orbekk <kjetil.orbekk@gmail.com>
Date: Fri, 9 Oct 2015 22:16:45 -0400
Subject: Add token code (html part not working yet).

---
 src/Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3