From d60d5996635f751d641fe29db6bde59822019235 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 4 Mar 2010 09:21:19 +0000 Subject: [PATCH] fix the Windows build some more --- utils/ghc-pkg/Main.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index a469ee7..b4cbff9 100644 --- a/utils/ghc-pkg/Main.hs +++ b/utils/ghc-pkg/Main.hs @@ -53,11 +53,12 @@ import qualified Data.Binary as Bin import qualified Data.Binary.Get as Bin #if __GLASGOW_HASKELL__ < 612 || defined(mingw32_HOST_OS) +-- mingw32 needs these for getExecDir, GHC <6.12 needs them for openNewFile import Foreign +import Foreign.C #endif #if __GLASGOW_HASKELL__ < 612 -import Foreign.C import System.Posix.Internals #if __GLASGOW_HASKELL__ >= 611 import GHC.IO.Handle.FD (fdToHandle) -- 1.7.10.4