Skip to content
Browse files

Simplify getRootR auth

  • Loading branch information...
1 parent 5f48360 commit 118a7640da5071e0d6fd59447a87311bbcea06c1 @samstokes committed Sep 22, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 Handler/Root.hs
View
4 Handler/Root.hs
@@ -27,8 +27,8 @@ redirectTemporary = redirect RedirectTemporary
-- functions. You can spread them across multiple files if you are so
-- inclined, or create a single monolithic file.
getRootR :: Handler RepHtml
-getRootR = maybeAuth >>= getRootR' where
- getRootR' :: Maybe (UserId, User) -> Handler RepHtml
+getRootR = maybeAuthId >>= getRootR' where
+ getRootR' :: Maybe UserId -> Handler RepHtml
getRootR' Nothing = defaultLayout $ do
setTitle "yesodoro"
addWidget $(widgetFile "homepage")

0 comments on commit 118a764

Please sign in to comment.
Something went wrong with that request. Please try again.