@@ -93,7 +93,7 @@ module Streamly.Internal.Data.Array.Foreign
94 , castUnsafe
94 , castUnsafe
95 , asPtrUnsafe
95 , asPtrUnsafe
96− , unsafeAsCString -- asCStringUnsafe?
96+ , asCStringUnsafe
97 , A.unsafeFreeze -- asImmutableUnsafe?
97 , A.unsafeFreeze -- asImmutableUnsafe?
98 , A.unsafeThaw -- asMutableUnsafe?
98 , A.unsafeThaw -- asMutableUnsafe?
@@ -562,8 +562,8 @@ cast arr =
563-- /Pre-release/
563-- /Pre-release/
565−unsafeAsCString :: Array a -> (CString -> IO b) -> IO b
565+asCStringUnsafe :: Array a -> (CString -> IO b) -> IO b
566−unsafeAsCString arr act = do
566+asCStringUnsafe arr act = do
567 let arr1 = asBytes arr <> A.fromList [0]
567 let arr1 = asBytes arr <> A.fromList [0]
568 asPtrUnsafe arr1 $ \ptr -> act (castPtr ptr)
568 asPtrUnsafe arr1 $ \ptr -> act (castPtr ptr)