From 3e68315639aa8c747001e8aae48edc4a9f823749 Mon Sep 17 00:00:00 2001
From: pradd <pradd.me@gmail.com>
Date: Tue, 30 Jul 2013 13:21:02 +0300
Subject: [PATCH] One more place to write build-plan in UTF8 #90

---
 Stackage/InstallInfo.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Stackage/InstallInfo.hs b/Stackage/InstallInfo.hs
index f178eb98..b0be6fad 100644
--- a/Stackage/InstallInfo.hs
+++ b/Stackage/InstallInfo.hs
@@ -16,6 +16,7 @@ import           Stackage.LoadDatabase
 import           Stackage.NarrowDatabase
 import           Stackage.Types
 import           Stackage.Util
+import qualified System.IO.UTF8
 import           System.Exit              (exitFailure)
 
 dropExcluded :: SelectSettings
@@ -54,7 +55,7 @@ getInstallInfo settings = do
     (final, errs) <- narrowPackageDB settings totalCore pdb $ Set.fromList $ Map.toList $ Map.map snd $ allPackages
 
     putStrLn "Printing build plan to build-plan.log"
-    writeFile "build-plan.log" $ unlines $ map showDep $ Map.toList final
+    System.IO.UTF8.writeFile "build-plan.log" $ unlines $ map showDep $ Map.toList final
 
     unless (Set.null errs) $ do
         putStrLn "Build plan requires some disallowed packages"