add a comment
authorSimon Marlow <marlowsd@gmail.com>
Mon, 22 Mar 2010 13:55:55 +0000 (13:55 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 22 Mar 2010 13:55:55 +0000 (13:55 +0000)
Main.hs

diff --git a/Main.hs b/Main.hs
index 8d18843..17a276f 100644 (file)
--- a/Main.hs
+++ b/Main.hs
@@ -193,6 +193,7 @@ processFile :: [Flag] -> String -> IO ()
 processFile flags name
   = do let file_name = dosifyPath name
        h <- openBinaryFile file_name ReadMode
+       -- use binary mode so we pass through UTF-8, see GHC ticket #3837
        s <- hGetContents h
        case parser of
           Parser p -> case p (SourcePos file_name 1) s of