From 64687f56d787d8b3fc7aed108a2b69ea0707d49d Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 18 May 1997 04:11:06 +0000
Subject: [PATCH] [project @ 1997-05-18 04:11:06 by sof] Added import Foreign

---
 ghc/lib/glaExts/PackedString.lhs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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