Encoding issues

.gitignore

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

ssg/src/Main.hs

@@ -1,17 +1,20 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 import Data.Maybe (fromMaybe)
+import qualified GHC.IO.Encoding as E
 
 import Hakyll
 
 main :: IO ()
-main = hakyll $ do
+main = do
-  match "templates/*" $
+  E.setLocaleEncoding E.utf8
-    compile templateBodyCompiler
+  hakyll $ do
+    match "templates/*" $
+      compile templateBodyCompiler
 
-  match "index.md" $ do
+    match "index.md" $ do
-    route $ constRoute "index.html" 
+      route $ constRoute "index.html" 
-    compile $
+      compile $
-      pandocCompiler
+        pandocCompiler
-        >>= loadAndApplyTemplate "templates/default.html" defaultContext
+          >>= loadAndApplyTemplate "templates/default.html" defaultContext