From 6936331a37fff79b6e6dba90b7e15a0288e35bfc Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 1 Jan 2012 17:16:33 +0200
Subject: [PATCH] Fix authBrowserId

---
 yesod-auth/Yesod/Auth/BrowserId.hs | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/yesod-auth/Yesod/Auth/BrowserId.hs b/yesod-auth/Yesod/Auth/BrowserId.hs
index 9c6e22fe..d71b5d25 100644
--- a/yesod-auth/Yesod/Auth/BrowserId.hs
+++ b/yesod-auth/Yesod/Auth/BrowserId.hs
@@ -4,6 +4,7 @@
 module Yesod.Auth.BrowserId
     ( authBrowserId
     , authBrowserId'
+    , authBrowserIdAudience
     ) where
 
 import Yesod.Auth
@@ -23,10 +24,10 @@ pid = "browserid"
 complete :: AuthRoute
 complete = PluginR pid []
 
-authBrowserId :: YesodAuth m
+authBrowserIdAudience :: YesodAuth m
               => Text -- ^ audience
               -> AuthPlugin m
-authBrowserId audience = AuthPlugin
+authBrowserIdAudience audience = AuthPlugin
     { apName = pid
     , apDispatch = \m ps ->
         case (m, ps) of
@@ -50,8 +51,8 @@ authBrowserId audience = AuthPlugin
 |]
     }
 
-authBrowserId' :: YesodAuth m => AuthPlugin m
-authBrowserId' = AuthPlugin
+authBrowserId :: YesodAuth m => AuthPlugin m
+authBrowserId = AuthPlugin
     { apName = pid
     , apDispatch = \m ps ->
         case (m, ps) of
@@ -79,3 +80,7 @@ authBrowserId' = AuthPlugin
     }
   where
     stripScheme t = fromMaybe t $ T.stripPrefix "//" $ snd $ T.breakOn "//" t
+
+authBrowserId' :: YesodAuth m => AuthPlugin m
+authBrowserId' = authBrowserId
+{-# DEPRECATED authBrowserId' "Use authBrowserId instead" #-}