Skip to content
Snippets Groups Projects
Commit 189e0677 authored by sof's avatar sof
Browse files

[project @ 1999-02-02 13:18:57 by sof]

Moved boundsOfByteArray out into exts/
parent 33d16e02
No related merge requests found
......@@ -259,13 +259,10 @@ newDoubleArray ixs = ST $ \ s# ->
(# 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 boundsOfByteArray :: MutableByteArray s Int -> IPr #-}
boundsOfArray (MutableArray ixs _) = ixs
boundsOfByteArray (MutableByteArray ixs _) = ixs
readArray :: Ix ix => MutableArray s ix elt -> ix -> ST s elt
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment