From 3d36e2dc289cf6ae609f05a90a8be60b54a278cd Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 18 Dec 2014 18:44:22 +0200
Subject: [PATCH] Don't read files textually, force explicit UTF8-decoding

---
 Data/WebsiteContent.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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