haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-23 17:31:55 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Don't read files textually, force explicit UTF8-decoding

Browse Source
This commit is contained in:
Michael Snoyman 2014-12-18 18:44:22 +02:00
parent 3ee2110602
commit 3d36e2dc28
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Data/WebsiteContent.hs
View File

@ -22,7 +22,7 @@ loadWebsiteContent dir = do
\_ -> readMarkdown "older-releases.md" \_ -> readMarkdown "older-releases.md"
return WebsiteContent {..} return WebsiteContent {..}
where where
readHtml fp = fmap (preEscapedToMarkup :: Text -> Html) readHtml fp = fmap (preEscapedToMarkup . decodeUtf8 :: ByteString -> Html)
$ readFile $ dir </> fp $ readFile $ dir </> fp
readMarkdown fp = fmap (markdown def readMarkdown fp = fmap (markdown def
{ msXssProtect = False { msXssProtect = False