From e5e6f6a16796cba5e2b6bd376481cf2cd0ba9734 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 20 Sep 2008 16:29:18 +0000 Subject: [PATCH] Fix building with GHC 6.6 --- utils/ghc-pkg/Main.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index 49ac435..344a21e 100644 --- a/utils/ghc-pkg/Main.hs +++ b/utils/ghc-pkg/Main.hs @@ -1243,7 +1243,13 @@ openNewFile 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 -- 1.7.10.4