Fix incorrect encoding during appendFile and writeFile, by correctly qualifying funct...
authorJudah Jacobson <judah.jacobson@gmail.com>
Tue, 1 Jul 2008 13:42:21 +0000 (06:42 -0700)
committerJudah Jacobson <judah.jacobson@gmail.com>
Tue, 1 Jul 2008 13:42:21 +0000 (06:42 -0700)
darcs-hash:20080701134221-9f663-644d1a4a6a40e7f8710ef10fed646523feaaba6b.gz

System/IO/UTF8.hs

index 012d73b..d0af4c3 100644 (file)
@@ -88,13 +88,13 @@ readFile n = liftM decodeString (IO.openBinaryFile n IO.ReadMode >>=
 -- to the file @file@.
 writeFile :: FilePath -> String -> IO ()
 writeFile n c = IO.withBinaryFile n IO.WriteMode $ \ h ->
-                    hPutStr h $ encodeString c
+                    IO.hPutStr h $ encodeString c
 
 -- | The computation 'appendFile' @file str@ function appends the UTF8 string @str@,
 -- to the file @file@.
 appendFile :: FilePath -> String -> IO ()
 appendFile n c = IO.withBinaryFile n IO.AppendMode $ \h ->
-                    hPutStr h $ encodeString c
+                    IO.hPutStr h $ encodeString c
 
 -- | Read a UTF8 line from a Handle
 hGetLine :: Handle -> IO String