set locale appropriately

aslakg · Apr 5, 2016 · 129e6a8 · 129e6a8
1 parent 7419693
commit 129e6a8
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Main.hs b/src/Main.hs
@@ -6,6 +6,7 @@ import qualified Data.Map as Map
 import qualified Data.Set as Set
 import System.Exit (exitFailure)
 import GHC.Conc (getNumProcessors, setNumCapabilities)
+import GHC.IO.Encoding (setLocaleEncoding, utf8)
 
 import qualified BuildManager as BM
 import qualified Flags
@@ -18,7 +19,9 @@ import TheMasterPlan (ProjectGraph(..), ProjectData(..))
 
 main :: IO ()
 main =
-  do  setNumCapabilities =<< getNumProcessors
+  do  setLocaleEncoding utf8
+
+      setNumCapabilities =<< getNumProcessors
 
       result <- BM.run make
       case result of