From 1cae0e38ab7c07debdc5f621dde7e59f901bdb1f Mon Sep 17 00:00:00 2001
From: Alex Kardos <alexander.kardos@gmail.com>
Date: Sat, 20 Feb 2016 21:26:58 -0700
Subject: [PATCH] Moved login logic into a function

This is more clear and looks like the other authorization plugins.
---
 yesod-auth/Yesod/Auth/Email.hs | 42 +++++++++++++++++-----------------
 1 file changed, 21 insertions(+), 21 deletions(-)

diff --git a/yesod-auth/Yesod/Auth/Email.hs b/yesod-auth/Yesod/Auth/Email.hs
index 025a788d..416d4df2 100644
--- a/yesod-auth/Yesod/Auth/Email.hs
+++ b/yesod-auth/Yesod/Auth/Email.hs
@@ -258,28 +258,28 @@ class ( YesodAuth site
 
 authEmail :: YesodAuthEmail m => AuthPlugin m
 authEmail =
-    AuthPlugin "email" dispatch $ \tm ->
-        [whamlet|
-$newline never
-<form method="post" action="@{tm loginR}">
-    <table>
-        <tr>
-            <th>_{Msg.Email}
-            <td>
-                <input type="email" name="email" required>
-        <tr>
-            <th>_{Msg.Password}
-            <td>
-                <input type="password" name="password" required>
-        <tr>
-            <td colspan="2">
-                <button type=submit .btn .btn-success>
-                    _{Msg.LoginViaEmail}
-                &nbsp;
-                <a href="@{tm registerR}" .btn .btn-default>
-                    _{Msg.RegisterLong}
-|]
+    AuthPlugin "email" dispatch login
   where
+    login tm =
+        [whamlet|
+            <form method="post" action="@{tm loginR}">
+                <table>
+                    <tr>
+                        <th>_{Msg.Email}
+                        <td>
+                            <input type="email" name="email" required>
+                    <tr>
+                        <th>_{Msg.Password}
+                        <td>
+                            <input type="password" name="password" required>
+                    <tr>
+                        <td colspan="2">
+                            <button type=submit .btn .btn-success>
+                                _{Msg.LoginViaEmail}
+                            &nbsp;
+                            <a href="@{tm registerR}" .btn .btn-default>
+                                _{Msg.RegisterLong}
+        |]
     dispatch "GET" ["register"] = getRegisterR >>= sendResponse
     dispatch "POST" ["register"] = postRegisterR >>= sendResponse
     dispatch "GET" ["forgot-password"] = getForgotPasswordR >>= sendResponse