Fix a bug in writeFileEncoding/writeFileUTF8

ndmitchell · Nov 12, 2014 · 1f9f4c9 · 1f9f4c9
1 parent c6a79c4
commit 1f9f4c9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/CHANGES.txt b/CHANGES.txt
@@ -1,5 +1,6 @@
 Changelog for Extra
 
+    Fix a bug in writeFileEncoding/writeFileUTF8
 0.7
     Fix for missing case in withNumCapabilities
 0.6

diff --git a/src/System/IO/Extra.hs b/src/System/IO/Extra.hs
@@ -82,7 +82,7 @@ readFileBinary' file = withBinaryFile file ReadMode $ \h -> do
 
 -- | Write a file with a particular encoding.
 writeFileEncoding :: TextEncoding -> FilePath -> String -> IO ()
-writeFileEncoding enc file x = withFile x WriteMode $ \h -> do
+writeFileEncoding enc file x = withFile file WriteMode $ \h -> do
     hSetEncoding h enc
     hPutStr h x