yesod-auth 0.1.2 → 0.1.3

raw patch · 2 files changed

+9/−5 lines, 2 files

Files

• Yesod/Helpers/Auth2.hs +8/−4
• yesod-auth.cabal +1/−1

@@ -62,6 +62,13 @@      authPlugins :: [AuthPlugin m] +    -- | What to show on the login page.+    loginHandler :: GHandler Auth m RepHtml+    loginHandler = defaultLayout $ do+        setTitle $ string "Login"+        tm <- liftHandler getRouteToMaster+        mapM_ (flip apLogin tm) authPlugins+ mkYesodSub "Auth"     [ ClassP ''YesodAuth [VarT $ mkName "master"]     ] [$parseRoutes|@@ -120,10 +127,7 @@             ]  getLoginR :: YesodAuth m => GHandler Auth m RepHtml-getLoginR = defaultLayout $ do-    setTitle $ string "Login"-    tm <- liftHandler getRouteToMaster-    mapM_ (flip apLogin tm) authPlugins+getLoginR = loginHandler  getLogoutR :: YesodAuth m => GHandler Auth m () getLogoutR = postLogoutR -- FIXME redirect to post

@@ -1,5 +1,5 @@ name:            yesod-auth-version:         0.1.2+version:         0.1.3 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>