--- | Checks if the user is logged in
-loggedIn :: ActionM Bool
-loggedIn = do
- mCookie <- getCookie "session"
- case mCookie of
- Nothing -> return False
- Just cookie -> Map.member (T.fromStrict cookie) <$> lift S.get
-
--- | Returns the current username
-currentUser :: ActionM (Maybe T.Text)
-currentUser = do
- mCookie <- getCookie "session"
- case mCookie of
- Nothing -> return Nothing
- Just cookie -> Map.lookup (T.fromStrict cookie) <$> lift S.get
-