X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2FPrelArr.lhs;h=331bc263f99e4dce26988dac2d2e0407c11584ea;hb=189e06775c143405b914bd401f3aa5c46e329133;hp=51508a352068ba7874928fe0a2a7725ba829783e;hpb=33d16e0245bde6043844f115416169dc258f7db1;p=ghc-hetmet.git

diff --git a/ghc/lib/std/PrelArr.lhs b/ghc/lib/std/PrelArr.lhs
index 51508a3..331bc26 100644
--- 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)  
-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