From: krasimir <unknown>
Date: Sat, 22 Jan 2005 08:20:31 +0000 (+0000)
Subject: [project @ 2005-01-22 08:20:31 by krasimir]
X-Git-Tag: Initial_conversion_from_CVS_complete~1203
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=585d87f1d621a386e4cfdd14f8a3ac1eed2413d4;p=ghc-hetmet.git

[project @ 2005-01-22 08:20:31 by krasimir]
import Foreign.Ptr and Foreign.C under Windows
---

diff --git a/ghc/lib/compat/Compat/Directory.hs b/ghc/lib/compat/Compat/Directory.hs
index 7f6306c..6a9f4dc 100644
--- a/ghc/lib/compat/Compat/Directory.hs
+++ b/ghc/lib/compat/Compat/Directory.hs
@@ -37,6 +37,10 @@ import GHC.IOBase ( IOException(..) )
 #else
 import System.IO		( try )
 #endif
+#if __GLASGOW_HASKELL__ && defined(mingw32_TARGET_OS)
+import Foreign.Ptr
+import Foreign.C
+#endif
 import System.Directory(doesFileExist, doesDirectoryExist, getPermissions, setPermissions, createDirectory)
 
 getAppUserDataDirectory :: String -> IO FilePath