[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 (file)
--- 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