@@ -16,6 +16,7 @@ import Stackage.LoadDatabase
16import Stackage.NarrowDatabase
16import Stackage.NarrowDatabase
17import Stackage.Types
17import Stackage.Types
18import Stackage.Util
18import Stackage.Util
19+import qualified System.IO.UTF8
19import System.Exit (exitFailure)
20import System.Exit (exitFailure)
21dropExcluded :: SelectSettings
22dropExcluded :: SelectSettings
@@ -54,7 +55,7 @@ getInstallInfo settings = do
54 (final, errs) <- narrowPackageDB settings totalCore pdb $ Set.fromList $ Map.toList $ Map.map snd $ allPackages
55 (final, errs) <- narrowPackageDB settings totalCore pdb $ Set.fromList $ Map.toList $ Map.map snd $ allPackages
56 putStrLn "Printing build plan to build-plan.log"
57 putStrLn "Printing build plan to build-plan.log"
57− writeFile "build-plan.log" $ unlines $ map showDep $ Map.toList final
58+ System.IO.UTF8.writeFile "build-plan.log" $ unlines $ map showDep $ Map.toList final
59 unless (Set.null errs) $ do
60 unless (Set.null errs) $ do
60 putStrLn "Build plan requires some disallowed packages"
61 putStrLn "Build plan requires some disallowed packages"