FIX #1131 (newArray_ allocates an array full of garbage)

[ghc-base.git] / Data / Array / Storable.hs

diff --git a/Data/Array/Storable.hs b/Data/Array/Storable.hs
index a4aa7dd..68d8106 100644 (file)
--- a/Data/Array/Storable.hs
+++ b/Data/Array/Storable.hs
@@ -60,10 +60,12 @@ instance Storable e => MArray StorableArray e IO where
         where
         size = rangeSize (l,u)
 
-    newArray_ (l,u) = do
+    unsafeNewArray_ (l,u) = do
         fp <- mallocForeignPtrArray (rangeSize (l,u))
         return (StorableArray l u fp)
 
+    newArray_ = unsafeNewArray_
+        
     unsafeRead (StorableArray _ _ fp) i =
         withForeignPtr fp $ \a -> peekElemOff a i