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

Removed some FIXMEs

Browse Source
This commit is contained in:
Michael Snoyman 2010-05-24 14:35:38 +03:00
parent 4163ffd442
commit 3ba6be616f
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Yesod/Helpers/Auth.hs
View File

@ -319,7 +319,7 @@ postEmailRegisterR = do
|] |]
checkEmail :: Form ParamValue -> Form ParamValue checkEmail :: Form ParamValue -> Form ParamValue
checkEmail = notEmpty -- FIXME checkEmail = notEmpty -- FIXME consider including e-mail validation
getEmailVerifyR :: YesodAuth master getEmailVerifyR :: YesodAuth master
=> Integer -> String -> GHandler Auth master RepHtml => Integer -> String -> GHandler Auth master RepHtml
@ -452,7 +452,7 @@ saltPass pass = do
let salt = take saltLength $ randomRs ('A', 'Z') stdgen let salt = take saltLength $ randomRs ('A', 'Z') stdgen
return $ saltPass' salt pass return $ saltPass' salt pass
saltPass' :: String -> String -> String -- FIXME better salting scheme? saltPass' :: String -> String -> String
saltPass' salt pass = salt ++ show (md5 $ cs $ salt ++ pass) saltPass' salt pass = salt ++ show (md5 $ cs $ salt ++ pass)
inMemoryEmailSettings :: IO AuthEmailSettings inMemoryEmailSettings :: IO AuthEmailSettings

2
Yesod/Json.hs
View File

@ -86,7 +86,7 @@ jsonScalar s = Json $ do
| c < '\x10' = '\\' : 'u' : '0' : '0' : '0' : hexxs | c < '\x10' = '\\' : 'u' : '0' : '0' : '0' : hexxs
| c < '\x100' = '\\' : 'u' : '0' : '0' : hexxs | c < '\x100' = '\\' : 'u' : '0' : '0' : hexxs
| c < '\x1000' = '\\' : 'u' : '0' : hexxs | c < '\x1000' = '\\' : 'u' : '0' : hexxs
where hexxs = showHex (fromEnum c) "" -- FIXME where hexxs = showHex (fromEnum c) ""
encodeJsonChar c = [c] encodeJsonChar c = [c]
-- | Outputs a JSON list, eg [\"foo\",\"bar\",\"baz\"]. -- | Outputs a JSON list, eg [\"foo\",\"bar\",\"baz\"].