diff --git a/yesod-auth/Yesod/Auth/Email.hs b/yesod-auth/Yesod/Auth/Email.hs index 6a3663ff..1316c4be 100644 --- a/yesod-auth/Yesod/Auth/Email.hs +++ b/yesod-auth/Yesod/Auth/Email.hs @@ -301,13 +301,13 @@ getRegisterR = registerHandler -- Since: 1.2.6 defaultRegisterHandler :: YesodAuthEmail master => AuthHandler master Html defaultRegisterHandler = do - ((f,widget),e) <- lift $ runFormPost registrationForm + ((_,widget),enctype) <- lift $ runFormPost registrationForm toParentRoute <- getRouteToParent lift $ authLayout $ do setTitleI Msg.RegisterLong [whamlet|
_{Msg.EnterEmail} -