From 585d87f1d621a386e4cfdd14f8a3ac1eed2413d4 Mon Sep 17 00:00:00 2001
From: krasimir <unknown>
Date: Sat, 22 Jan 2005 08:20:31 +0000
Subject: [PATCH] [project @ 2005-01-22 08:20:31 by krasimir] import
 Foreign.Ptr and Foreign.C under Windows

---
 ghc/lib/compat/Compat/Directory.hs |    4 ++++
 1 file changed, 4 insertions(+)

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
-- 
1.7.10.4