diff --git a/Data/WebsiteContent.hs b/Data/WebsiteContent.hs index 2dc7cef..43e64a4 100644 --- a/Data/WebsiteContent.hs +++ b/Data/WebsiteContent.hs @@ -22,7 +22,7 @@ loadWebsiteContent dir = do \_ -> readMarkdown "older-releases.md" return WebsiteContent {..} where - readHtml fp = fmap (preEscapedToMarkup :: Text -> Html) + readHtml fp = fmap (preEscapedToMarkup . decodeUtf8 :: ByteString -> Html) $ readFile $ dir fp readMarkdown fp = fmap (markdown def { msXssProtect = False