From 696faa3fd0ad15c1c49e8365470d3c204ed3caa2 Mon Sep 17 00:00:00 2001 From: Sibi Prabakaran Date: Sun, 20 Nov 2016 13:43:01 +0530 Subject: [PATCH] req is not needed. --- yesod-auth/Yesod/Auth/Email.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/yesod-auth/Yesod/Auth/Email.hs b/yesod-auth/Yesod/Auth/Email.hs index 81dcf9c0..26fb9c5a 100644 --- a/yesod-auth/Yesod/Auth/Email.hs +++ b/yesod-auth/Yesod/Auth/Email.hs @@ -382,9 +382,8 @@ registerHelper :: YesodAuthEmail master -> HandlerT Auth (HandlerT master IO) TypedContent registerHelper allowUsername dest = do y <- lift getYesod - req <- getRequest - midentifier <- lookupPostParam "email" checkCsrfHeaderOrParam defaultCsrfHeaderName defaultCsrfParamName + midentifier <- lookupPostParam "email" let eidentifier = case midentifier of Nothing -> Left Msg.NoIdentifierProvided Just x