git.iko.soy/streamly
on master help sign in
INLINE asPtrUnsafe for GHC 9.6 onwards
a8cfdf3Harendra Kumar
core/src/Streamly/Internal/Data/Array/Type.hs+1
compare with master
unifiedsplit
@@ -181,6 +181,7 @@ data Array a =
181--
181--
182-- /Pre-release/
182-- /Pre-release/
183--
183--
184+{-# INLINE asPtrUnsafe #-}
184asPtrUnsafe :: MonadIO m => Array a -> (Ptr a -> m b) -> m b
185asPtrUnsafe :: MonadIO m => Array a -> (Ptr a -> m b) -> m b
185asPtrUnsafe arr = MA.asPtrUnsafe (unsafeThaw arr)
186asPtrUnsafe arr = MA.asPtrUnsafe (unsafeThaw arr)
186
187
core/src/Streamly/Internal/Data/MutArray/Type.hs+1
@@ -2345,6 +2345,7 @@ cast arr =
2345--
2345--
2346-- /Pre-release/
2346-- /Pre-release/
2347--
2347--
2348+{-# INLINE asPtrUnsafe #-}
2348asPtrUnsafe :: MonadIO m => MutArray a -> (Ptr a -> m b) -> m b
2349asPtrUnsafe :: MonadIO m => MutArray a -> (Ptr a -> m b) -> m b
2349asPtrUnsafe arr f = do
2350asPtrUnsafe arr f = do
2350 contents <- liftIO $ Unboxed.pin $ arrContents arr
2351 contents <- liftIO $ Unboxed.pin $ arrContents arr