From: Ian Lynagh <igloo@earth.li>
Date: Sat, 20 Sep 2008 16:29:18 +0000 (+0000)
Subject: Fix building with GHC 6.6
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=e5e6f6a16796cba5e2b6bd376481cf2cd0ba9734

Fix building with GHC 6.6
---

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