Fix a bug in unsafeAsForeignPtr

Author: adithyaov

core/src/Streamly/Internal/Data/Array/Type.hs

@@ -287,12 +287,14 @@ unsafePinnedAsPtr arr f = do
 {-# INLINE unsafeAsForeignPtr #-}
 unsafeAsForeignPtr
     :: MonadIO m => Array a -> (ForeignPtr a -> Int -> m b) -> m b
-unsafeAsForeignPtr arr@Array{..} f =
-    unsafePinnedAsPtr arr finner
+unsafeAsForeignPtr arr0 f = do
+    let marr = unsafeThaw arr0
+    pinned <- liftIO $ MA.pin marr
+    MA.unsafeAsPtr pinned (finner (MA.arrContents pinned))
     where
-    finner (Ptr addr#) i =
+    finner arrContents_ (Ptr addr#) i =
         let fptrContents =
-                PlainPtr (Unboxed.getMutByteArray# arrContents)
+                PlainPtr (Unboxed.getMutByteArray# arrContents_)
             fptr = ForeignPtr addr# fptrContents
          in f fptr i