Removed some FIXMEs

Yesod/Helpers/Auth.hs

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

Yesod/Json.hs

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