From df9a8136a61133b537057a1a07bbb9c4eda90afa Mon Sep 17 00:00:00 2001
From: "jp.rider63" <dev@jamesparker.me>
Date: Sun, 22 Dec 2013 22:13:59 -0500
Subject: [PATCH] renamed to onErrorHtml

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

diff --git a/yesod-auth/Yesod/Auth.hs b/yesod-auth/Yesod/Auth.hs
index d32ac353..503443b5 100644
--- a/yesod-auth/Yesod/Auth.hs
+++ b/yesod-auth/Yesod/Auth.hs
@@ -167,8 +167,8 @@ class (Yesod master, PathPiece (AuthId master), RenderMessage master FormMessage
 
     -- | Called on login error for HTTP requests. By default, calls
     -- @setMessage@ and redirects to @dest@.
-    onError :: (MonadResourceBase m) => Route master -> Text -> HandlerT master m Html
-    onError dest msg = do
+    onErrorHtml :: (MonadResourceBase m) => Route master -> Text -> HandlerT master m Html
+    onErrorHtml dest msg = do
         setMessage $ toHtml msg
         fmap asHtml $ redirect dest
         where
@@ -251,7 +251,7 @@ loginErrorMessage dest msg =
   sendResponseStatus unauthorized401 =<< (
     selectRep $ do
       provideRep $ do
-          onError dest msg
+          onErrorHtml dest msg
       provideJsonMessage msg
   )