Encoding issues

.gitignore

@@ -1,3 +1,4 @@
 ssg/dist-newstyle
 src/_cache
 src/_site
+result

ssg/src/Main.hs

@@ -1,11 +1,14 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 import Data.Maybe (fromMaybe)
+import qualified GHC.IO.Encoding as E
 
 import Hakyll
 
 main :: IO ()
-main = hakyll $ do
+main = do
+  E.setLocaleEncoding E.utf8
+  hakyll $ do
     match "templates/*" $
       compile templateBodyCompiler