yesod-auth 0.7.7.1 → 0.7.7.2

raw patch · 3 files changed

+5/−5 lines, 3 files

Files

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

Yesod/Auth.hs view

@@ -143,7 +143,7 @@     creds <- maybeAuthId     defaultLayoutJson (do         setTitle "Authentication Status"-        addHtml $ html' creds) (json' creds)+        addHtml $ html' creds) (jsonCreds creds)   where     html' creds =         [QQ(shamlet)|@@ -153,7 +153,7 @@ $nothing     <p>Not logged in. |]-    json' creds =+    jsonCreds creds =         Object $ Map.fromList             [ (T.pack "logged_in", Bool $ maybe False (const True) creds)             ]

Yesod/Auth/Email.hs view

@@ -203,7 +203,7 @@         Just _ -> return ()         Nothing -> do             setMessageI Msg.BadSetPass-            redirect RedirectTemporary $ toMaster loginR+            redirect RedirectTemporary $ toMaster LoginR     defaultLayout $ do         setTitleI Msg.SetPassTitle         addWidget@@ -238,7 +238,7 @@     aid <- case maid of             Nothing -> do                 setMessageI Msg.BadSetPass-                redirect RedirectTemporary $ toMaster loginR+                redirect RedirectTemporary $ toMaster LoginR             Just aid -> return aid     salted <- liftIO $ saltPass new     setPassword aid salted

yesod-auth.cabal view

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