diff --git a/src/Guide/Main.hs b/src/Guide/Main.hs
index b93d2bc..0a08b83 100644
--- a/src/Guide/Main.hs
+++ b/src/Guide/Main.hs
@@ -53,7 +53,6 @@ import Data.Serialize.Get as Cereal
 -- IO
 import System.IO
 import qualified SlaveThread as Slave
-import GHC.IO.Encoding (setLocaleEncoding, utf8)
 -- Catching signals
 import System.Posix.Signals
 -- Watching the templates directory
@@ -137,8 +136,6 @@ lucidWithConfig x = do
 -- | Start the site.
 main :: IO ()
 main = do
-  -- force to use UTF-8
-  setLocaleEncoding utf8
   config <- readConfig
   mainWith config
 
diff --git a/tests/Main.hs b/tests/Main.hs
index 1309b15..0b0fc04 100644
--- a/tests/Main.hs
+++ b/tests/Main.hs
@@ -5,7 +5,6 @@
 module Main (main) where
 
 import BasePrelude
-import GHC.IO.Encoding (setLocaleEncoding, utf8)
 -- Testing
 import Test.Hspec
 
@@ -17,8 +16,6 @@ import qualified MergeSpec
 
 main :: IO ()
 main = do
-  -- force to use UTF-8
-  setLocaleEncoding utf8
   hspec $ do
     MarkdownSpec.tests
     MergeSpec.tests