Got bitten by lazy IO
authorJoachim Breitner <mail@joachim-breitner.de>
Mon, 9 Jul 2012 07:57:33 +0000 (09:57 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Mon, 9 Jul 2012 07:57:33 +0000 (09:57 +0200)
ParseHints.hs

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