From 4f22aa7aac1ca66b001ab09f1d038a53c9eadb98 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@fpcomplete.com>
Date: Sun, 3 Feb 2013 07:28:47 -0600
Subject: [PATCH] Added explicit type signature for GHC 7.6.2

---
 yesod-auth/Yesod/Auth/Rpxnow.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/yesod-auth/Yesod/Auth/Rpxnow.hs b/yesod-auth/Yesod/Auth/Rpxnow.hs
index 63f51112..0c803004 100644
--- a/yesod-auth/Yesod/Auth/Rpxnow.hs
+++ b/yesod-auth/Yesod/Auth/Rpxnow.hs
@@ -1,5 +1,7 @@
 {-# LANGUAGE QuasiQuotes #-}
 {-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE FlexibleContexts #-}
 module Yesod.Auth.Rpxnow
     ( authRpxnow
     ) where
@@ -25,6 +27,10 @@ authRpxnow :: YesodAuth m
 authRpxnow app apiKey =
     AuthPlugin "rpxnow" dispatch login
   where
+    login ::
+        forall sub master.
+        ToWidget sub master (GWidget sub master ())
+        => (Route Auth -> Route master) -> GWidget sub master ()
     login tm = do
         render <- lift getUrlRender
         let queryString = decodeUtf8With lenientDecode