haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix shadow warning

Browse Source
This commit is contained in:
Greg Weber 2011-12-08 08:44:28 -03:00
parent fa520744dd
commit 16167e7e6a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-auth/Yesod/Auth.hs
View File

@ -143,7 +143,7 @@ getCheckR = do
creds <- maybeAuthId creds <- maybeAuthId
defaultLayoutJson (do defaultLayoutJson (do
setTitle "Authentication Status" setTitle "Authentication Status"
addHtml $ html' creds) (json' creds) addHtml $ html' creds) (jsonCreds creds)
where where
html' creds = html' creds =
[QQ(shamlet)| [QQ(shamlet)|
@ -153,7 +153,7 @@ $maybe _ <- creds
$nothing $nothing
<p>Not logged in. <p>Not logged in.
|] |]
json' creds = jsonCreds creds =
Object $ Map.fromList Object $ Map.fromList
[ (T.pack "logged_in", Bool $ maybe False (const True) creds) [ (T.pack "logged_in", Bool $ maybe False (const True) creds)
] ]