Add example for logout.

arow-oss · Aug 14, 2018 · bfcdf61 · bfcdf61
1 parent a6f63bf
commit bfcdf61
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/example-servant-app/src/Lib.hs b/example-servant-app/src/Lib.hs
@@ -86,6 +86,7 @@ server sqlBackend =
 
 getHomePage :: Maybe UserId -> Handler Html
 getHomePage maybeUserId = do
+  -- liftIO $ "starting getHomePage"
   pure $
     html $ do
       head $ title "Example Servant App"
@@ -123,6 +124,8 @@ getAfterLogin sqlBackend userId = do
         h1 $ "Example Servant App for logged-in User"
         h3 $ "Logged In User"
         p $ toHtml $ "logged in as user: " <> show (unUserId userId)
+        p $
+          a ! href "http://localhost:3000/logout?next=http%3A%2F%2Flocalhost%3A3000" $ "logout"
         h3 $ "Create Blog Post"
         form ! method "POST" $ do
           p $ do