Commit 54ac02ef authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix building with GHC 6.6

parent 2970463b
......@@ -113,7 +113,13 @@ openNewBinaryFile dir template = do
-- XXX We want to tell fdToHandle what the filepath is,
-- as any exceptions etc will only be able to report the
-- fd currently
h <- fdToHandle fd `onException` c_close fd
h <-
#if __GLASGOW_HASKELL__ >= 609
fdToHandle fd
#else
fdToHandle (fromIntegral fd)
#endif
`onException` c_close fd
return (filepath, h)
where
filename = prefix ++ show x ++ suffix
......
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