git.iko.soy/streamly
on master help sign in
Rename unsafeCast as castUnsafe
064b1d9Adithya Kumar
src/Streamly/Internal/Data/Array/Foreign.hs+5−5
compare with master
unifiedsplit
@@ -91,7 +91,7 @@ module Streamly.Internal.Data.Array.Foreign
91 -- * Casting
91 -- * Casting
92 , cast
92 , cast
93 , asBytes
93 , asBytes
94− , unsafeCast -- castUnsafe?
94+ , castUnsafe
95 , asPtrUnsafe
95 , asPtrUnsafe
96 , unsafeAsCString -- asCStringUnsafe?
96 , unsafeAsCString -- asCStringUnsafe?
97 , A.unsafeFreeze -- asImmutableUnsafe?
97 , A.unsafeFreeze -- asImmutableUnsafe?
@@ -525,12 +525,12 @@ streamTransform f arr =
525--
525--
526-- /Pre-release/
526-- /Pre-release/
527--
527--
528−unsafeCast ::
528+castUnsafe ::
529#ifdef DEVBUILD
529#ifdef DEVBUILD
530 Storable b =>
530 Storable b =>
531#endif
531#endif
532 Array a -> Array b
532 Array a -> Array b
533−unsafeCast (Array contents start end) =
533+castUnsafe (Array contents start end) =
534 Array contents (castPtr start) (castPtr end)
534 Array contents (castPtr start) (castPtr end)
535
535
536-- | Cast an @Array a@ into an @Array Word8@.
536-- | Cast an @Array a@ into an @Array Word8@.
@@ -538,7 +538,7 @@ unsafeCast (Array contents start end) =
538-- @since 0.8.0
538-- @since 0.8.0
539--
539--
540asBytes :: Array a -> Array Word8
540asBytes :: Array a -> Array Word8
541−asBytes = unsafeCast
541+asBytes = castUnsafe
542
542
543-- | Cast an array having elements of type @a@ into an array having elements of
543-- | Cast an array having elements of type @a@ into an array having elements of
544-- type @b@. The length of the array should be a multiple of the size of the
544-- type @b@. The length of the array should be a multiple of the size of the
@@ -552,7 +552,7 @@ cast arr =
552 r = len `mod` SIZE_OF(b)
552 r = len `mod` SIZE_OF(b)
553 in if r /= 0
553 in if r /= 0
554 then Nothing
554 then Nothing
555− else Just $ unsafeCast arr
555+ else Just $ castUnsafe arr
556
556
557-- | Convert an array of any type into a null terminated CString Ptr.
557-- | Convert an array of any type into a null terminated CString Ptr.
558--
558--
src/Streamly/Internal/Data/Binary/Decode.hs+1−1
@@ -275,4 +275,4 @@ word64le = PRK.toParserK word64leD
275{-# INLINE word64host #-}
275{-# INLINE word64host #-}
276word64host :: (MonadIO m, MonadCatch m) => Parser m Word8 Word64
276word64host :: (MonadIO m, MonadCatch m) => Parser m Word8 Word64
277word64host =
277word64host =
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
499readOneEvent :: Parser IO Word8 Event
499readOneEvent :: Parser IO Word8 Event
500readOneEvent = do
500readOneEvent = do
501 arr <- PR.takeEQ 24 (A.writeN 24)
501 arr <- PR.takeEQ 24 (A.writeN 24)
502− let arr1 = A.unsafeCast arr :: Array Word64
502+ let arr1 = A.castUnsafe arr :: Array Word64
503 eid = A.unsafeIndex 0 arr1
503 eid = A.unsafeIndex 0 arr1
504 eflags = A.unsafeIndex 1 arr1
504 eflags = A.unsafeIndex 1 arr1
505 pathLen = fromIntegral $ A.unsafeIndex 2 arr1
505 pathLen = fromIntegral $ A.unsafeIndex 2 arr1
test/Streamly/Test/Data/Parser.hs+1−1
@@ -677,7 +677,7 @@ data Event = Event
677readOneEvent :: P.Parser IO Word8 Event
677readOneEvent :: P.Parser IO Word8 Event
678readOneEvent = do
678readOneEvent = do
679 arr <- P.takeEQ 24 (A.writeN 24)
679 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
681 eid = A.unsafeIndex 0 arr1
681 eid = A.unsafeIndex 0 arr1
682 eflags = A.unsafeIndex 1 arr1
682 eflags = A.unsafeIndex 1 arr1
683 pathLen = fromIntegral $ A.unsafeIndex 2 arr1
683 pathLen = fromIntegral $ A.unsafeIndex 2 arr1
test/Streamly/Test/Data/Parser/ParserD.hs+1−1
@@ -668,7 +668,7 @@ data Event = Event
668readOneEvent :: P.Parser IO Word8 Event
668readOneEvent :: P.Parser IO Word8 Event
669readOneEvent = do
669readOneEvent = do
670 arr <- P.takeEQ 24 (A.writeN 24)
670 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
672 eid = A.unsafeIndex 0 arr1
672 eid = A.unsafeIndex 0 arr1
673 eflags = A.unsafeIndex 1 arr1
673 eflags = A.unsafeIndex 1 arr1
674 pathLen = fromIntegral $ A.unsafeIndex 2 arr1
674 pathLen = fromIntegral $ A.unsafeIndex 2 arr1