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

Merge pull request #771 from jcristovao/master

Browse Source 
requireAuthId does not need YesodAuthPersist master
This commit is contained in:
Michael Snoyman 2014-07-14 13:01:32 +03:00
commit 9d006b0ea2
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -56,7 +56,6 @@ 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
@ -419,7 +418,7 @@ type AuthEntity master = KeyEntity (AuthId master)
-- authenticated. -- authenticated.
-- --
-- Since 1.1.0 -- Since 1.1.0
requireAuthId :: YesodAuthPersist master => HandlerT master IO (AuthId master) requireAuthId :: YesodAuth 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