yesod-auth 0.7.3 → 0.7.4

raw patch · 2 files changed

+13/−3 lines, 2 files

Files

Yesod/Auth.hs +12/−2
yesod-auth.cabal +1/−1

Yesod/Auth.hs view

@@ -96,6 +96,11 @@                       -> AuthMessage -> Text     renderAuthMessage _ _ = defaultMessage +    -- | After login and logout, redirect to the referring page, instead of+    -- 'loginDest' and 'logoutDest'. Default is 'False'.+    redirectToReferer :: m -> Bool+    redirectToReferer _ = False+ mkYesodSub "Auth"     [ ClassP ''YesodAuth [VarT $ mkName "master"]     ]@@ -149,11 +154,16 @@             [ (T.pack "logged_in", Bool $ maybe False (const True) creds)             ] +setUltDestReferer' :: YesodAuth master => GHandler sub master ()+setUltDestReferer' = do+    m <- getYesod+    when (redirectToReferer m) setUltDestReferer+ getLoginR :: YesodAuth m => GHandler Auth m RepHtml-getLoginR = setUltDestReferer >> loginHandler+getLoginR = setUltDestReferer' >> loginHandler  getLogoutR :: YesodAuth m => GHandler Auth m ()-getLogoutR = setUltDestReferer >> postLogoutR -- FIXME redirect to post+getLogoutR = setUltDestReferer' >> postLogoutR -- FIXME redirect to post  postLogoutR :: YesodAuth m => GHandler Auth m () postLogoutR = do

yesod-auth.cabal view

@@ -1,5 +1,5 @@ name:            yesod-auth-version:         0.7.3+version:         0.7.4 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman, Patrick Brisbin