X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fghc-pkg%2FMain.hs;h=b4cbff944f67910b94b43557b99951acffc7f686;hb=d60d5996635f751d641fe29db6bde59822019235;hp=a469ee764d43004b9b220dc78b6d7180c00f218f;hpb=8693219d6b33a2174254cb0fb23b9ba2ad90b272;p=ghc-hetmet.git

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)