Ignore non-ascii chars in hint files
authorJoachim Breitner <mail@joachim-breitner.de>
Sun, 8 Jul 2012 22:10:52 +0000 (00:10 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Sun, 8 Jul 2012 22:10:52 +0000 (00:10 +0200)
ParseHints.hs

index fa12e42..0270d20 100644 (file)
@@ -83,7 +83,9 @@ readHintFile :: FilePath -> (String, [String]) -> IO [Hint]
 readHintFile dir (file,allowed) =
     do ex <- doesFileExist (dir </> file)
        if ex
-         then concatMap (readHintLine allowed) . untilFinished . lines <$> readFile (dir </> file)
+         then withFile (dir </> file) ReadMode $ \h -> do
+            hSetEncoding h char8
+            concatMap (readHintLine allowed) . untilFinished . lines <$> hGetContents h
          else return []
 
 untilFinished :: [String] -> [String]