req is not needed.

2016-11-20 13:43:01 +05:30 · 2016-11-20 13:43:01 +05:30 · 696faa3fd0
commit 696faa3fd0
parent 10850f5cee
1 changed files with 1 additions and 2 deletions
--- 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