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

Merge pull request #1554 from oddvars/oddvars-typo-patch

Browse Source 
minor typos
This commit is contained in:
Michael Snoyman 2018-09-14 08:29:19 +03:00 committed by GitHub
commit 1c2cb0c717
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod-auth/Yesod/Auth/Hardcoded.hs
View File

@ -52,7 +52,7 @@ be unique).
'AuthId' must have an instance of 'PathPiece' class, this is needed to store 'AuthId' must have an instance of 'PathPiece' class, this is needed to store
user identifier in session (this happens in 'setCreds' and 'setCredsRedirect' user identifier in session (this happens in 'setCreds' and 'setCredsRedirect'
actions) and to read that identifier from session (this happens in actions) and to read that identifier from session (this happens in
`dafaultMaybeAuthId` action). So we have to define it: `defaultMaybeAuthId` action). So we have to define it:
@ @
import Text.Read (readMaybe) import Text.Read (readMaybe)
@ -85,7 +85,7 @@ Here @lookupUser@ is just a helper function to lookup hardcoded users by name:
@ @
lookupUser :: Text -> Maybe SiteManager lookupUser :: Text -> Maybe SiteManager
lookupUser username = find (\m -> manUserName m == username) siteManagers lookupUser username = find (\\m -> manUserName m == username) siteManagers
@ @
@ -113,7 +113,7 @@ instance YesodAuthHardcoded App where
validPassword :: Text -> Text -> Bool validPassword :: Text -> Text -> Bool
validPassword u p = validPassword u p =
case find (\m -> manUserName m == u && manPassWord m == p) siteManagers of case find (\\m -> manUserName m == u && manPassWord m == p) siteManagers of
Just _ -> True Just _ -> True
_ -> False _ -> False
@ @