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 | |
| parent | 9afefa397c2f122fb9dd023ff20698c4f2b3888d (diff) | |
Don't depend on locale at runtime either! #4
| -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)] |