haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-02-01 00:50:24 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge pull request #92 from pradd/patch-1

Browse Source 
One more place to write build-plan in UTF8 #90
This commit is contained in:
Michael Snoyman 2013-07-30 03:46:48 -07:00
commit 976c6acb8b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Stackage/InstallInfo.hs
View File

@ -16,6 +16,7 @@ import Stackage.LoadDatabase
import Stackage.NarrowDatabase import Stackage.NarrowDatabase
import Stackage.Types import Stackage.Types
import Stackage.Util import Stackage.Util
import qualified System.IO.UTF8
import System.Exit (exitFailure) import System.Exit (exitFailure)
dropExcluded :: SelectSettings dropExcluded :: SelectSettings
@ -54,7 +55,7 @@ getInstallInfo settings = do
(final, errs) <- narrowPackageDB settings totalCore pdb $ Set.fromList $ Map.toList $ Map.map snd $ allPackages (final, errs) <- narrowPackageDB settings totalCore pdb $ Set.fromList $ Map.toList $ Map.map snd $ allPackages
putStrLn "Printing build plan to build-plan.log" 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 unless (Set.null errs) $ do
putStrLn "Build plan requires some disallowed packages" putStrLn "Build plan requires some disallowed packages"