From 13f0eb38951c392eecfbec439cefe3798aaccd65 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=90=D1=80=D1=82=D1=83=D1=80=20=D0=A4=D0=B0=D0=B8=CC=86?=
 =?UTF-8?q?=D0=B7=D1=80=D0=B0=D1=85=D0=BC=D0=B0=D0=BD=D0=BE=D0=B2?=
 <heraldhoi@gmail.com>
Date: Sun, 3 Aug 2014 16:02:52 +0600
Subject: [PATCH] pre-baked Route Auth value

Added forwardUrl alias for `PluginR "browserid" []` as in other plugins
(e.g. GoogleEmail2 and OpenID).
---
 yesod-auth/Yesod/Auth/BrowserId.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/yesod-auth/Yesod/Auth/BrowserId.hs b/yesod-auth/Yesod/Auth/BrowserId.hs
index 31c4d7fb..ebe7f66b 100644
--- a/yesod-auth/Yesod/Auth/BrowserId.hs
+++ b/yesod-auth/Yesod/Auth/BrowserId.hs
@@ -9,6 +9,7 @@ module Yesod.Auth.BrowserId
     , BrowserIdSettings
     , bisAudience
     , bisLazyLoad
+    , forwardUrl
     ) where
 
 import Yesod.Auth
@@ -28,8 +29,10 @@ import Data.Default
 pid :: Text
 pid = "browserid"
 
-complete :: Route Auth
-complete = PluginR pid []
+forwardUrl :: AuthRoute
+forwardUrl = PluginR pid []
+
+complete = forwardUrl
 
 -- | A settings type for various configuration options relevant to BrowserID.
 --