diff options
author | Daniel Gröber <dxld@darkboxed.org> | 2015-08-05 07:22:34 +0200 |
---|---|---|
committer | Daniel Gröber <dxld@darkboxed.org> | 2015-08-05 07:23:18 +0200 |
commit | 570e56c2845a5845abdd9ed58fd5789ae071c5fc (patch) | |
tree | 913fc613ff4647723de97254825fbd4c040d3fd7 /CabalHelper | |
parent | 9afefa397c2f122fb9dd023ff20698c4f2b3888d (diff) |
Don't depend on locale at runtime either! #4
Diffstat (limited to 'CabalHelper')
-rw-r--r-- | CabalHelper/Data.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/CabalHelper/Data.hs b/CabalHelper/Data.hs index c43ec1d..97e9988 100644 --- a/CabalHelper/Data.hs +++ b/CabalHelper/Data.hs @@ -32,7 +32,8 @@ withHelperSources :: (FilePath -> IO a) -> IO a withHelperSources action = withSystemTempDirectory "cabal-helper" $ \dir -> do let chdir = dir </> "CabalHelper" createDirectory chdir - forM_ sourceFiles $ \(fn, src) -> writeFile (chdir </> fn) src + forM_ sourceFiles $ \(fn, src) -> + BS.writeFile (chdir </> fn) $ UTF8.fromString src action dir sourceFiles :: [(FilePath, String)] |