Remove Array.lengthM and sizeOfSmallMutableArray#

Author: sjakobi

Data/HashMap/Array.hs

@@ -17,7 +17,6 @@ module Data.HashMap.Array
 
       -- * Basic interface
     , length
-    , lengthM
     , read
     , write
     , index
@@ -72,7 +71,7 @@ import Prelude hiding (filter, foldr, foldl, length, map, read)
 import GHC.Exts (SmallArray#, newSmallArray#, readSmallArray#, writeSmallArray#,
                  indexSmallArray#, unsafeFreezeSmallArray#, unsafeThawSmallArray#,
                  SmallMutableArray#, sizeofSmallArray#, copySmallArray#, thawSmallArray#,
-                 sizeofSmallMutableArray#, cloneSmallMutableArray#)
+                 cloneSmallMutableArray#)
 
 #else
 import GHC.Exts (Array#, newArray#, readArray#, writeArray#,
@@ -140,9 +139,6 @@ thawArray# :: SmallArray# a
            -> State# d
            -> (# State# d, SmallMutableArray# d a #)
 thawArray# = thawSmallArray#
-
-sizeofMutableArray# :: SmallMutableArray# s a -> Int#
-sizeofMutableArray# = sizeofSmallMutableArray#
 #endif
 
 ------------------------------------------------------------------------
@@ -206,10 +202,6 @@ data MArray s a = MArray {
       unMArray :: !(MutableArray# s a)
     }
 
-lengthM :: MArray s a -> Int
-lengthM mary = I# (sizeofMutableArray# (unMArray mary))
-{-# INLINE lengthM #-}
-
 -- | Smart constructor
 marray :: MutableArray# s a -> MArray s a
 marray mary = MArray mary