diff --git a/.gitignore b/.gitignore
index 34e921e..5f565d7 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,4 @@
 ssg/dist-newstyle
 src/_cache
 src/_site
+result
diff --git a/ssg/src/Main.hs b/ssg/src/Main.hs
index dd8e4e0..4be802c 100644
--- a/ssg/src/Main.hs
+++ b/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
-  match "templates/*" $
-    compile templateBodyCompiler
+main = do
+  E.setLocaleEncoding E.utf8
+  hakyll $ do
+    match "templates/*" $
+      compile templateBodyCompiler
 
-  match "index.md" $ do
-    route $ constRoute "index.html" 
-    compile $
-      pandocCompiler
-        >>= loadAndApplyTemplate "templates/default.html" defaultContext
+    match "index.md" $ do
+      route $ constRoute "index.html" 
+      compile $
+        pandocCompiler
+          >>= loadAndApplyTemplate "templates/default.html" defaultContext