@@ -102,22 +102,16 @@ instance IArray (MArray s) where
103-- | Create an uninitialized mutable array.
103-- | Create an uninitialized mutable array.
104unsafeNew :: forall s. Int -> ST s (MArray s)
104unsafeNew :: forall s. Int -> ST s (MArray s)
105−unsafeNew n =
105+unsafeNew n
106+ | len < 0 = error $ "Data.Text.Array.unsafeNew: invalid length " ++ show n
107+ | otherwise = ST $ \s1# ->
108+ case newByteArray# len# s1# of
109+ (# s2#, marr# #) -> (# s2#, MArray marr#
106#if defined(ASSERTS)
110#if defined(ASSERTS)
107− assert (n >= 0) .
111+ n
110− case bytesInArray n of
111− len@(I# len#) ->
114+ where !len@(I# len#) = bytesInArray n
113− if len < 0 then error (show ("unsafeNew",len)) else
115− case newByteArray# len# s1# of
116− (# s2#, marr# #) -> (# s2#, MArray marr#
121{-# INLINE unsafeNew #-}
115{-# INLINE unsafeNew #-}
123-- | Freeze a mutable array. Do not mutate the 'MArray' afterwards!
117-- | Freeze a mutable array. Do not mutate the 'MArray' afterwards!