@@ -9,17 +9,18 @@ import qualified Data.Map as Map
99import qualified Data.Set as Set
1010import Distribution.Text (display, simpleParse)
1111import Stackage.Types
12+import qualified System.IO.UTF8
1213
1314readBuildPlan :: FilePath -> IO BuildPlan
1415readBuildPlan fp = do
15− str <- readFile fp
16+ str <- System.IO.UTF8.readFile fp
1617 case fromString str of
1718 Left s -> error $ "Could not read build plan: " ++ s
1819 Right (x, "") -> return x
1920 Right (_, _:_) -> error "Trailing content when reading build plan"
2021
2122writeBuildPlan :: FilePath -> BuildPlan -> IO ()
22−writeBuildPlan fp bp = writeFile fp $ toString bp
23+writeBuildPlan fp bp = System.IO.UTF8.writeFile fp $ toString bp
2324
2425class AsString a where
2526 toString :: a -> String