projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1999-02-02 13:18:57 by sof]
[ghc-hetmet.git]
/
ghc
/
lib
/
std
/
PrelArr.lhs
diff --git
a/ghc/lib/std/PrelArr.lhs
b/ghc/lib/std/PrelArr.lhs
index
51508a3
..
331bc26
100644
(file)
--- a/
ghc/lib/std/PrelArr.lhs
+++ b/
ghc/lib/std/PrelArr.lhs
@@
-259,13
+259,10
@@
newDoubleArray ixs = ST $ \ s# ->
(# s2#, MutableByteArray ixs barr# #) }}
boundsOfArray :: Ix ix => MutableArray s ix elt -> (ix, ix)
(# s2#, MutableByteArray ixs barr# #) }}
boundsOfArray :: Ix ix => MutableArray s ix elt -> (ix, ix)
-boundsOfByteArray :: Ix ix => MutableByteArray s ix -> (ix, ix)
{-# SPECIALIZE boundsOfArray :: MutableArray s Int elt -> IPr #-}
{-# SPECIALIZE boundsOfArray :: MutableArray s Int elt -> IPr #-}
-{-# SPECIALIZE boundsOfByteArray :: MutableByteArray s Int -> IPr #-}
boundsOfArray (MutableArray ixs _) = ixs
boundsOfArray (MutableArray ixs _) = ixs
-boundsOfByteArray (MutableByteArray ixs _) = ixs
readArray :: Ix ix => MutableArray s ix elt -> ix -> ST s elt
readArray :: Ix ix => MutableArray s ix elt -> ix -> ST s elt