Permalink
Browse files

utf8 => utf-8

  • Loading branch information...
1 parent ffb3d77 commit 4d24b8f5f644788ef633876b2b9369a6da706ada @singpolyma committed Jan 18, 2014
Showing with 2 additions and 2 deletions.
  1. +2 −2 Application.hs
View
@@ -54,7 +54,7 @@ home :: URI -> Connection -> Application
home root _ _ =
return $ responseTextBuilder ok200 headers (viewHome htmlEscape $ HomeRec [Form $ forPath `relativeTo` root])
where
- Just headers = stringHeaders [("Content-Type", "text/html; charset=utf8")]
+ Just headers = stringHeaders [("Content-Type", "text/html; charset=utf-8")]
for :: URI -> Connection -> Application
for root _ req = case adr of
@@ -84,7 +84,7 @@ reportFor _ db adr req = case gen of
fFpr _ = ""
gen = fmap (T.decodeUtf8 . fromMaybe BS.empty) $ lookup (fromString "newAssertion") (queryString req)
Just disp = stringHeaders [("Content-Disposition", "attachment; filename=assertion.txt")]
- Just headers = stringHeaders [("Content-Type", "text/html; charset=utf8")]
+ Just headers = stringHeaders [("Content-Type", "text/html; charset=utf-8")]
assertFor :: URI -> Connection -> RippleAddress -> Application
assertFor root db adr req = do

0 comments on commit 4d24b8f

Please sign in to comment.