From: mthomas <unknown>
Date: Sun, 1 Sep 2002 00:34:21 +0000 (+0000)
Subject: [project @ 2002-09-01 00:34:21 by mthomas]
X-Git-Tag: Approx_11550_changesets_converted~1736
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=82bd78c38e8f633b8e7020cd17603d053a25b3f9

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