From 8693219d6b33a2174254cb0fb23b9ba2ad90b272 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 2 Mar 2010 14:47:19 +0000 Subject: [PATCH 1/1] fix Windows build --- utils/ghc-pkg/Main.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index 79404bc..a469ee7 100644 --- a/utils/ghc-pkg/Main.hs +++ b/utils/ghc-pkg/Main.hs @@ -52,8 +52,11 @@ import qualified Data.ByteString.Lazy as B import qualified Data.Binary as Bin import qualified Data.Binary.Get as Bin -#if __GLASGOW_HASKELL__ < 612 +#if __GLASGOW_HASKELL__ < 612 || defined(mingw32_HOST_OS) import Foreign +#endif + +#if __GLASGOW_HASKELL__ < 612 import Foreign.C import System.Posix.Internals #if __GLASGOW_HASKELL__ >= 611 -- 1.7.10.4