fix shadow warning

2011-12-08 08:44:28 -03:00 · 2011-12-08 08:44:28 -03:00 · 16167e7e6a
commit 16167e7e6a
parent fa520744dd
1 changed files with 2 additions and 2 deletions
--- a/yesod-auth/Yesod/Auth.hs
+++ b/yesod-auth/Yesod/Auth.hs
@ -143,7 +143,7 @@ getCheckR = do
    creds <- maybeAuthId
    defaultLayoutJson (do
        setTitle "Authentication Status"
-        addHtml $ html' creds) (json' creds)
+        addHtml $ html' creds) (jsonCreds creds)
  where
    html' creds =
        [QQ(shamlet)|
@ -153,7 +153,7 @@ $maybe _ <- creds
 $nothing
    <p>Not logged in.
 |]
-    json' creds =
+    jsonCreds creds =
        Object $ Map.fromList
            [ (T.pack "logged_in", Bool $ maybe False (const True) creds)
            ]