yesod-auth 0.1.1 → 0.1.2

raw patch · 2 files changed

+5/−7 lines, 2 filesdep ~authenticatedep ~yesod

Dependency ranges changed: authenticate, yesod

Files

• Yesod/Helpers/Auth2/Email.hs +2/−4
• yesod-auth.cabal +3/−3

@@ -12,7 +12,6 @@ import Control.Monad (when) import Control.Applicative ((<$>), (<*>)) import Data.Digest.Pure.MD5-import Data.String (fromString) import qualified Data.ByteString.Lazy.UTF8 as LU  login, register, setpass :: AuthRoute@@ -143,7 +142,7 @@             muid <- verifyAccount lid             case muid of                 Nothing -> return ()-                Just uid -> do+                Just _uid -> do                     setCreds False $ Creds "email" email [("verifiedEmail", email)] -- FIXME uid?                     toMaster <- getRouteToMaster                     setMessage $ string "Address verified, please set a new password"@@ -160,7 +159,6 @@     (email, pass) <- runFormPost' $ (,)         <$> emailInput "email"         <*> stringInput "password"-    y <- getYesod     mecreds <- getEmailCreds email     maid <-         case (mecreds >>= emailCredsAuthId, fmap emailCredsStatus mecreds) of@@ -174,7 +172,7 @@                             else Nothing             _ -> return Nothing     case maid of-        Just aid ->+        Just _aid ->             setCreds True $ Creds "email" email [("verifiedEmail", email)] -- FIXME aid?         Nothing -> do             setMessage $ string "Invalid email/password combination"

@@ -1,5 +1,5 @@ name:            yesod-auth-version:         0.1.1+version:         0.1.2 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>@@ -13,9 +13,9 @@  library     build-depends:   base                    >= 4         && < 5-                   , authenticate            >= 0.6.6     && < 0.7+                   , authenticate            >= 0.7       && < 0.8                    , bytestring              >= 0.9.1.4   && < 0.10-                   , yesod                   >= 0.5.1     && < 0.6+                   , yesod                   >= 0.5.2     && < 0.6                    , wai                     >= 0.2       && < 0.3                    , template-haskell                    , pureMD5                 >= 1.1       && < 1.2