[project @ 2002-02-12 11:44:54 by simonmar]

[ghc-hetmet.git] / ghc / lib / std / PrelArrExtra.lhs

diff --git a/ghc/lib/std/PrelArrExtra.lhs b/ghc/lib/std/PrelArrExtra.lhs
index 0b02d85..85292d8 100644 (file)
--- a/ghc/lib/std/PrelArrExtra.lhs
+++ b/ghc/lib/std/PrelArrExtra.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: PrelArrExtra.lhs,v 1.10 2000/06/30 13:39:35 simonmar Exp $
+% $Id: PrelArrExtra.lhs,v 1.12 2000/12/12 12:19:58 simonmar Exp $
 %
 % (c) The University of Glasgow, 1994-2000
 %
@@ -21,7 +21,6 @@ import PrelByteArr
 import PrelST
 import PrelIOBase
 import PrelBase
-import PrelGHC
 \end{code}
 
 %*********************************************************
@@ -39,7 +38,7 @@ freezeByteArray   :: Ix ix => MutableByteArray s ix -> ST s (ByteArray ix)
 -- only modifies its destination operand, which is already MutableByteArray.
 freezeByteArray (MutableByteArray l u arr) = ST $ \ s ->
        let n = sizeofMutableByteArray# arr in
-       case (newCharArray# n s)                   of { (# s, newarr #) -> 
+       case (newByteArray# n s)                   of { (# s, newarr #) -> 
        case ((unsafeCoerce# memcpy) newarr arr n s) of { (# s, () #) ->
        case unsafeFreezeByteArray# newarr s       of { (# s, frozen #) ->
        (# s, ByteArray l u frozen #) }}}