Commit 33b8b60e authored by Simon Marlow's avatar Simon Marlow
Browse files

fix 5.04 compile

parent 9a8c922e
......@@ -92,7 +92,8 @@ getImpMod (ImportDecl located_mod _ _ _ _) = located_mod
getOptionsFromFile :: FilePath -- input file
-> IO [Located String] -- options, if any
getOptionsFromFile filename
= bracket (openBinaryFile filename ReadMode)
= System.IO.bracket
(openBinaryFile filename ReadMode)
(hClose)
(\handle ->
do buf <- hGetStringBufferBlock handle blockSize
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment