From 107062422b1048f806a71915fe76f32f0115689a Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 13 Dec 2011 16:48:37 +0200 Subject: [PATCH] Email backend: fix broken login redirects --- scripts | 2 +- yesod-auth/Yesod/Auth/Email.hs | 4 ++-- yesod-auth/yesod-auth.cabal | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/scripts b/scripts index 5c174c61..b626b414 160000 --- a/scripts +++ b/scripts @@ -1 +1 @@ -Subproject commit 5c174c61daeca7430e75a3d32da2bf783eac7776 +Subproject commit b626b414228dd4b948bb27e255a26b2f395a93a4 diff --git a/yesod-auth/Yesod/Auth/Email.hs b/yesod-auth/Yesod/Auth/Email.hs index 243af776..d6ae02a8 100644 --- a/yesod-auth/Yesod/Auth/Email.hs +++ b/yesod-auth/Yesod/Auth/Email.hs @@ -203,7 +203,7 @@ getPasswordR = do 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 @@ postPasswordR = do 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 diff --git a/yesod-auth/yesod-auth.cabal b/yesod-auth/yesod-auth.cabal index 9ec0d42e..782dddd4 100644 --- a/yesod-auth/yesod-auth.cabal +++ b/yesod-auth/yesod-auth.cabal @@ -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