From: sof <unknown>
Date: Sun, 18 May 1997 04:11:06 +0000 (+0000)
Subject: [project @ 1997-05-18 04:11:06 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~682
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=64687f56d787d8b3fc7aed108a2b69ea0707d49d;p=ghc-hetmet.git

[project @ 1997-05-18 04:11:06 by sof]
Added import Foreign
---

diff --git a/ghc/lib/glaExts/PackedString.lhs b/ghc/lib/glaExts/PackedString.lhs
index ce8a41c..6816243 100644
--- a/ghc/lib/glaExts/PackedString.lhs
+++ b/ghc/lib/glaExts/PackedString.lhs
@@ -16,6 +16,7 @@ module PackedString (
          -- Creating the beasts
 	packString,          -- :: [Char] -> PackedString
 	packStringST,        -- :: [Char] -> ST s PackedString
+        packCBytesST,        -- :: Int -> Addr -> ST s PackedString
 
 	byteArrayToPS,       -- :: ByteArray Int -> PackedString
 	unsafeByteArrayToPS, -- :: ByteArray a   -> Int -> PackedString
@@ -70,7 +71,7 @@ module PackedString (
  	  -- Converting to C strings
 	packCString#, 
 	unpackCString#, unpackCString2#, unpackAppendCString#, unpackFoldrCString#,
-	packCBytesST, unpackCString
+	unpackCString
     ) where
 
 import {-# SOURCE #-}	IOBase	( error )
@@ -79,6 +80,7 @@ import PrelList
 import STBase
 import ArrBase
 import PrelBase
+import Foreign	( Addr(..) )
 import GHC
 
 \end{code}