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

Revert "requireAuthId does not need YesodAuthPersist master"

Browse Source
This commit is contained in:
Michael Snoyman 2014-07-14 13:01:58 +03:00
parent 9d006b0ea2
commit 504ac3cd9a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
yesod-auth/Yesod/Auth.hs
View File

@ -56,6 +56,7 @@ import Data.Monoid (Endo)
import Network.HTTP.Conduit (Manager) import Network.HTTP.Conduit (Manager)
import qualified Network.Wai as W import qualified Network.Wai as W
import Text.Hamlet (shamlet)
import Yesod.Core import Yesod.Core
import Yesod.Persist import Yesod.Persist
@ -418,7 +419,7 @@ type AuthEntity master = KeyEntity (AuthId master)
-- authenticated. -- authenticated.
-- --
-- Since 1.1.0 -- Since 1.1.0
requireAuthId :: YesodAuth master => HandlerT master IO (AuthId master) requireAuthId :: YesodAuthPersist master => HandlerT master IO (AuthId master)
requireAuthId = maybeAuthId >>= maybe redirectLogin return requireAuthId = maybeAuthId >>= maybe redirectLogin return
-- | Similar to 'maybeAuth', but redirects to a login page if user is not -- | Similar to 'maybeAuth', but redirects to a login page if user is not