@@ -10,7 +10,7 @@
10#include "inline.hs"
10#include "inline.hs"
13−-- Module : Streamly.Mem.Array.Types
13+-- Module : Streamly.Memory.Array.Types
14-- Copyright : (c) 2019 Composewell Technologies
14-- Copyright : (c) 2019 Composewell Technologies
16-- License : BSD3
16-- License : BSD3
@@ -18,7 +18,7 @@
18-- Stability : experimental
18-- Stability : experimental
19-- Portability : GHC
19-- Portability : GHC
21−module Streamly.Mem.Array.Types
21+module Streamly.Memory.Array.Types
23 Array (..)
23 Array (..)
@@ -526,7 +526,7 @@ fromStreamDArraysOf n (D.Stream step state) =
526 step' _ (GroupStart st) = do
526 step' _ (GroupStart st) = do
527 when (n <= 0) $
527 when (n <= 0) $
528 -- XXX we can pass the module string from the higher level API
528 -- XXX we can pass the module string from the higher level API
529− error $ "Streamly.Mem.Array.Types.fromStreamDArraysOf: the size of "
529+ error $ "Streamly.Memory.Array.Types.fromStreamDArraysOf: the size of "
530 ++ "arrays [" ++ show n ++ "] must be a natural number"
530 ++ "arrays [" ++ show n ++ "] must be a natural number"
531 Array start end bound <- liftIO $ newArray n
531 Array start end bound <- liftIO $ newArray n
532 return $ D.Skip (GroupBuffer st start end bound)
532 return $ D.Skip (GroupBuffer st start end bound)
@@ -902,7 +902,7 @@ packArraysChunksOf n (D.Stream step state) =
902 step' gst (SpliceInitial st) = do
902 step' gst (SpliceInitial st) = do
903 when (n <= 0) $
903 when (n <= 0) $
904 -- XXX we can pass the module string from the higher level API
904 -- XXX we can pass the module string from the higher level API
905− error $ "Streamly.Mem.Array.Types.packArraysChunksOf: the size of "
905+ error $ "Streamly.Memory.Array.Types.packArraysChunksOf: the size of "
906 ++ "arrays [" ++ show n ++ "] must be a natural number"
906 ++ "arrays [" ++ show n ++ "] must be a natural number"
907 r <- step gst st
907 r <- step gst st
908 case r of
908 case r of
@@ -959,11 +959,11 @@ groupIOVecsOf n maxIOVLen (D.Stream step state) =
959 step' gst (GatherInitial st) = do
959 step' gst (GatherInitial st) = do
960 when (n <= 0) $
960 when (n <= 0) $
961 -- XXX we can pass the module string from the higher level API
961 -- XXX we can pass the module string from the higher level API
962− error $ "Streamly.Mem.Array.Types.groupIOVecsOf: the size of "
962+ error $ "Streamly.Memory.Array.Types.groupIOVecsOf: the size of "
963 ++ "groups [" ++ show n ++ "] must be a natural number"
963 ++ "groups [" ++ show n ++ "] must be a natural number"
964 when (maxIOVLen <= 0) $
964 when (maxIOVLen <= 0) $
965 -- XXX we can pass the module string from the higher level API
965 -- XXX we can pass the module string from the higher level API
966− error $ "Streamly.Mem.Array.Types.groupIOVecsOf: the number of "
966+ error $ "Streamly.Memory.Array.Types.groupIOVecsOf: the number of "
967 ++ "IOVec entries [" ++ show n ++ "] must be a natural number"
967 ++ "IOVec entries [" ++ show n ++ "] must be a natural number"
968 r <- step (adaptState gst) st
968 r <- step (adaptState gst) st
969 case r of
969 case r of