@@ -3,7 +3,7 @@
33#include "inline.hs"
44
55-- |
6−-- Module : Streamly.Internal.Memory.Mutable.Array.Types
6+-- Module : Streamly.Internal.Data.Array.Storable.Foreign.Mut.Types
77-- Copyright : (c) 2020 Composewell Technologies
88--
99-- License : BSD3-3-Clause
@@ -11,7 +11,7 @@
1111-- Stability : experimental
1212-- Portability : GHC
1313--
14−module Streamly.Internal.Memory.Mutable.Array.Types
14+module Streamly.Internal.Data.Array.Storable.Foreign.Mut.Types
1515 (
1616 Array (..)
1717 , mutableArray
@@ -509,7 +509,7 @@ fromStreamDArraysOf n (D.Stream step state) =
509509 step' _ (GroupStart st) = do
510510 when (n <= 0) $
511511 -- XXX we can pass the module string from the higher level API
512− error $ "Streamly.Internal.Memory.Mutable.Array.Types.fromStreamDArraysOf: the size of "
512+ error $ "Streamly.Internal.Data.Array.Storable.Foreign.Mut.Types.fromStreamDArraysOf: the size of "
513513 ++ "arrays [" ++ show n ++ "] must be a natural number"
514514 Array start end bound <- liftIO $ newArray n
515515 return $ D.Skip (GroupBuffer st start end bound)
@@ -621,7 +621,7 @@ packArraysChunksOf n (D.Stream step state) =
621621 step' gst (SpliceInitial st) = do
622622 when (n <= 0) $
623623 -- XXX we can pass the module string from the higher level API
624− error $ "Streamly.Internal.Memory.Mutable.Array.Types.packArraysChunksOf: the size of "
624+ error $ "Streamly.Internal.Data.Array.Storable.Foreign.Mut.Types.packArraysChunksOf: the size of "
625625 ++ "arrays [" ++ show n ++ "] must be a natural number"
626626 r <- step gst st
627627 case r of
@@ -667,7 +667,7 @@ lpackArraysChunksOf n (Fold step1 initial1 extract1) =
667667 initial = do
668668 when (n <= 0) $
669669 -- XXX we can pass the module string from the higher level API
670− error $ "Streamly.Internal.Memory.Mutable.Array.Types.packArraysChunksOf: the size of "
670+ error $ "Streamly.Internal.Data.Array.Storable.Foreign.Mut.Types.packArraysChunksOf: the size of "
671671 ++ "arrays [" ++ show n ++ "] must be a natural number"
672672 r1 <- initial1
673673 return (Tuple' Nothing r1)
@@ -726,11 +726,11 @@ groupIOVecsOf n maxIOVLen (D.Stream step state) =
726726 step' gst (GatherInitial st) = do
727727 when (n <= 0) $
728728 -- XXX we can pass the module string from the higher level API
729− error $ "Streamly.Internal.Memory.Mutable.Array.Types.groupIOVecsOf: the size of "
729+ error $ "Streamly.Internal.Data.Array.Storable.Foreign.Mut.Types.groupIOVecsOf: the size of "
730730 ++ "groups [" ++ show n ++ "] must be a natural number"
731731 when (maxIOVLen <= 0) $
732732 -- XXX we can pass the module string from the higher level API
733− error $ "Streamly.Internal.Memory.Mutable.Array.Types.groupIOVecsOf: the number of "
733+ error $ "Streamly.Internal.Data.Array.Storable.Foreign.Mut.Types.groupIOVecsOf: the number of "
734734 ++ "IOVec entries [" ++ show n ++ "] must be a natural number"
735735 r <- step (adaptState gst) st
736736 case r of