haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix browserid.hs (closes #547)

Browse Source
This commit is contained in:
Michael Snoyman 2014-09-14 11:04:16 +03:00
parent d3e4831b38
commit 50f57a3586
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
yesod-auth/browserid.hs
View File

@ -26,7 +26,7 @@ mkYesod "BID" [parseRoutes|
getRootR :: Handler () getRootR :: Handler ()
getRootR = redirect $ AuthR LoginR getRootR = redirect $ AuthR LoginR
getAfterLoginR :: Handler RepHtml getAfterLoginR :: Handler Html
getAfterLoginR = do getAfterLoginR = do
mauth <- maybeAuthId mauth <- maybeAuthId
defaultLayout $ toWidget [hamlet| defaultLayout $ toWidget [hamlet|
@ -41,13 +41,14 @@ instance YesodAuth BID where
loginDest _ = AfterLoginR loginDest _ = AfterLoginR
logoutDest _ = AuthR LoginR logoutDest _ = AuthR LoginR
getAuthId = return . Just . credsIdent getAuthId = return . Just . credsIdent
authPlugins _ = [authBrowserId] authPlugins _ = [authBrowserId def]
authHttpManager = httpManager authHttpManager = httpManager
maybeAuthId = lookupSession credsKey
instance RenderMessage BID FormMessage where instance RenderMessage BID FormMessage where
renderMessage _ _ = defaultFormMessage renderMessage _ _ = defaultFormMessage
main :: IO () main :: IO ()
main = do main = do
m <- newManager def m <- newManager conduitManagerSettings
toWaiApp (BID m) >>= run 3000 . logStdoutDev toWaiApp (BID m) >>= run 3000 . logStdoutDev