064b1d9 · streamly · git.iko.soy

git.iko.soy/streamly

Rename unsafeCast as castUnsafe

commit064b1d9db78d49e50bc7f44c99292804b85af07c authorAdithya Kumar <adithya@composewell.com> dateSun 6 Feb 2022, 05:51 (5 years ago) parentb2e386a

5 files changed+9−9

compare with master

unifiedsplit

src/Streamly/Internal/Data/Array/Foreign.hs+5−5 src/Streamly/Internal/Data/Binary/Decode.hs+1−1 src/Streamly/Internal/FileSystem/Event/Darwin.hs+1−1 test/Streamly/Test/Data/Parser.hs+1−1 test/Streamly/Test/Data/Parser/ParserD.hs+1−1

src/Streamly/Internal/Data/Array/Foreign.hs+5−5

@@ -91,7 +91,7 @@ module Streamly.Internal.Data.Array.Foreign

9191 -- * Casting

9292 , cast

9393 , asBytes

94− , unsafeCast -- castUnsafe?

94+ , castUnsafe

9595 , asPtrUnsafe

9696 , unsafeAsCString -- asCStringUnsafe?

9797 , A.unsafeFreeze -- asImmutableUnsafe?

@@ -525,12 +525,12 @@ streamTransform f arr =

525525--

526526-- /Pre-release/

527527--

528−unsafeCast ::

528+castUnsafe ::

529529#ifdef DEVBUILD

530530 Storable b =>

531531#endif

532532 Array a -> Array b

533−unsafeCast (Array contents start end) =

533+castUnsafe (Array contents start end) =

534534 Array contents (castPtr start) (castPtr end)

535535

536536-- | Cast an @Array a@ into an @Array Word8@.

@@ -538,7 +538,7 @@ unsafeCast (Array contents start end) =

538538-- @since 0.8.0

539539--

540540asBytes :: Array a -> Array Word8

541−asBytes = unsafeCast

541+asBytes = castUnsafe

542542

543543-- | Cast an array having elements of type @a@ into an array having elements of

544544-- type @b@. The length of the array should be a multiple of the size of the

@@ -552,7 +552,7 @@ cast arr =

552552 r = len `mod` SIZE_OF(b)

553553 in if r /= 0

554554 then Nothing

555− else Just $ unsafeCast arr

555+ else Just $ castUnsafe arr

556556

557557-- | Convert an array of any type into a null terminated CString Ptr.

558558--

src/Streamly/Internal/Data/Binary/Decode.hs+1−1

@@ -275,4 +275,4 @@ word64le = PRK.toParserK word64leD

275275{-# INLINE word64host #-}

276276word64host :: (MonadIO m, MonadCatch m) => Parser m Word8 Word64

277277word64host =

278− fmap (A.unsafeIndex 0 . A.unsafeCast) $ PR.takeEQ 8 (A.writeN 8)

278+ fmap (A.unsafeIndex 0 . A.castUnsafe) $ PR.takeEQ 8 (A.writeN 8)

src/Streamly/Internal/FileSystem/Event/Darwin.hs+1−1

@@ -499,7 +499,7 @@ data Event = Event

499499readOneEvent :: Parser IO Word8 Event

500500readOneEvent = do

501501 arr <- PR.takeEQ 24 (A.writeN 24)

502− let arr1 = A.unsafeCast arr :: Array Word64

502+ let arr1 = A.castUnsafe arr :: Array Word64

503503 eid = A.unsafeIndex 0 arr1

504504 eflags = A.unsafeIndex 1 arr1

505505 pathLen = fromIntegral $ A.unsafeIndex 2 arr1

test/Streamly/Test/Data/Parser.hs+1−1

@@ -677,7 +677,7 @@ data Event = Event

677677readOneEvent :: P.Parser IO Word8 Event

678678readOneEvent = do

679679 arr <- P.takeEQ 24 (A.writeN 24)

680− let arr1 = A.unsafeCast arr :: A.Array Word64

680+ let arr1 = A.castUnsafe arr :: A.Array Word64

681681 eid = A.unsafeIndex 0 arr1

682682 eflags = A.unsafeIndex 1 arr1

683683 pathLen = fromIntegral $ A.unsafeIndex 2 arr1

test/Streamly/Test/Data/Parser/ParserD.hs+1−1

@@ -668,7 +668,7 @@ data Event = Event

668668readOneEvent :: P.Parser IO Word8 Event

669669readOneEvent = do

670670 arr <- P.takeEQ 24 (A.writeN 24)

671− let arr1 = A.unsafeCast arr :: A.Array Word64

671+ let arr1 = A.castUnsafe arr :: A.Array Word64

672672 eid = A.unsafeIndex 0 arr1

673673 eflags = A.unsafeIndex 1 arr1

674674 pathLen = fromIntegral $ A.unsafeIndex 2 arr1