@@ -10,7 +10,7 @@
1010#include "inline.hs"
1111
1212-- |
13−-- Module : Streamly.Mem.Array.Types
13+-- Module : Streamly.Memory.Array.Types
1414-- Copyright : (c) 2019 Composewell Technologies
1515--
1616-- License : BSD3
@@ -18,7 +18,7 @@
1818-- Stability : experimental
1919-- Portability : GHC
2020--
21−module Streamly.Mem.Array.Types
21+module Streamly.Memory.Array.Types
2222 (
2323 Array (..)
2424
@@ -526,7 +526,7 @@ fromStreamDArraysOf n (D.Stream step state) =
526526 step' _ (GroupStart st) = do
527527 when (n <= 0) $
528528 -- 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 "
530530 ++ "arrays [" ++ show n ++ "] must be a natural number"
531531 Array start end bound <- liftIO $ newArray n
532532 return $ D.Skip (GroupBuffer st start end bound)
@@ -902,7 +902,7 @@ packArraysChunksOf n (D.Stream step state) =
902902 step' gst (SpliceInitial st) = do
903903 when (n <= 0) $
904904 -- 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 "
906906 ++ "arrays [" ++ show n ++ "] must be a natural number"
907907 r <- step gst st
908908 case r of
@@ -959,11 +959,11 @@ groupIOVecsOf n maxIOVLen (D.Stream step state) =
959959 step' gst (GatherInitial st) = do
960960 when (n <= 0) $
961961 -- 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 "
963963 ++ "groups [" ++ show n ++ "] must be a natural number"
964964 when (maxIOVLen <= 0) $
965965 -- 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 "
967967 ++ "IOVec entries [" ++ show n ++ "] must be a natural number"
968968 r <- step (adaptState gst) st
969969 case r of