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