From 9e1516594e2ade548c12900702304b0b5eb15f03 Mon Sep 17 00:00:00 2001
From: Richard Zetterberg <richard.zetterberg@googlemail.com>
Date: Sun, 26 Apr 2015 15:28:45 +0200
Subject: [PATCH] Fixes faulty type annotations

---
 yesod-auth/Yesod/Auth/Email.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/yesod-auth/Yesod/Auth/Email.hs b/yesod-auth/Yesod/Auth/Email.hs
index fba06fb9..5b93abd3 100644
--- a/yesod-auth/Yesod/Auth/Email.hs
+++ b/yesod-auth/Yesod/Auth/Email.hs
@@ -69,11 +69,13 @@ import Yesod.Form
 import Data.Time (getCurrentTime, addUTCTime)
 import Safe (readMay)
 
-loginR, registerR, forgotPasswordR, setpassR, verifyR :: AuthRoute
+loginR, registerR, forgotPasswordR, setpassR :: AuthRoute
 loginR = PluginR "email" ["login"]
 registerR = PluginR "email" ["register"]
 forgotPasswordR = PluginR "email" ["forgot-password"]
 setpassR = PluginR "email" ["set-password"]
+
+verifyR :: Text -> Text -> AuthRoute -- FIXME
 verifyR eid verkey = PluginR "email" ["verify", eid, verkey]
 
 type Email = Text