From 9f7031d9ddd3e5c8026f5da556fa13d98e9812d0 Mon Sep 17 00:00:00 2001 From: Felipe Lessa Date: Tue, 25 Feb 2014 19:10:02 -0300 Subject: [PATCH] Whitespace. --- yesod-auth/Yesod/Auth/Email.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-auth/Yesod/Auth/Email.hs b/yesod-auth/Yesod/Auth/Email.hs index d9cb51e1..14c94741 100644 --- a/yesod-auth/Yesod/Auth/Email.hs +++ b/yesod-auth/Yesod/Auth/Email.hs @@ -394,7 +394,7 @@ postPasswordR = do Just aid -> return aid tm <- getRouteToParent - + needOld <- lift $ needOldPassword aid when needOld $ do current <- lift $ runInputPost $ ireq textField "current"