Skip to content
Permalink
Browse files

landing: redirect to either posts or login

  • Loading branch information...
3v0k4 committed Jul 21, 2019
1 parent 9f97a45 commit dd46b15777f6118074f4b2ce461f78c5efca8ef1
Showing with 6 additions and 1 deletion.
  1. +6 −1 src/Handler/Landing.hs
@@ -21,7 +21,12 @@ loginForm =

getLandingR :: Handler Html
getLandingR = do
redirect $ AuthR LoginR
maybeUser <- maybeAuthPair
case maybeUser of
Just _ ->
redirect $ PostsR
Nothing ->
redirect $ AuthR LoginR

postLandingR :: Handler Html
postLandingR = do

0 comments on commit dd46b15

Please sign in to comment.
You can’t perform that action at this time.