[project @ 2002-09-01 00:34:21 by mthomas]

Foreign does not export C.String so CString and peekCString are undefined.

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 8bdec9a..8b2ab35 100644 (file)
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -100,6 +100,7 @@ import List         ( isPrefixOf )
 import Util            ( dropList )
 import MarshalArray
 import Foreign
+import Foreign.C.String
 #endif
 
 #ifdef mingw32_HOST_OS