Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

utf8 => utf-8

  • Loading branch information...
commit 4d24b8f5f644788ef633876b2b9369a6da706ada 1 parent ffb3d77
@singpolyma authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 Application.hs
View
4 Application.hs
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.