18 lines
587 B
Haskell
18 lines
587 B
Haskell
module Import
|
|
( module Import
|
|
) where
|
|
|
|
import Foundation as Import
|
|
import Import.NoFoundation as Import
|
|
import Yesod.Form.Bootstrap3 as Import
|
|
|
|
loginOrDo :: ((Key User, User) -> Handler Html) -> Handler Html
|
|
loginOrDo cont = do
|
|
maid <- maybeAuthId
|
|
muid <- case maid of
|
|
Just uid -> fmap ((,) uid) <$> (runDB $ get uid)
|
|
Nothing -> return Nothing
|
|
case muid of
|
|
Nothing -> redirect (AuthR LoginR)
|
|
Just (uid,u) -> cont (uid,u)
|