@@ -16,7 +16,13 @@
16-- Portability : GHC
16-- Portability : GHC
18module Streamly.Internal.Data.Prim.Array
18module Streamly.Internal.Data.Prim.Array
21+ -- XXX should it be just Array instead? We should be able to replace one
22+ -- array type with another easily.
19− ( PrimArray(..)
23+ PrimArray(..)
25+ -- XXX Prim should be exported from Data.Prim module?
20 , Prim(..)
26 , Prim(..)
@@ -53,9 +59,10 @@ import Control.DeepSeq (NFData(..))
53import Control.Monad (when)
59import Control.Monad (when)
54import Control.Monad.IO.Class (liftIO, MonadIO)
60import Control.Monad.IO.Class (liftIO, MonadIO)
55import GHC.IO (unsafePerformIO)
61import GHC.IO (unsafePerformIO)
56−import Data.Primitive.PrimArray
57import Data.Primitive.Types (Prim(..))
62import Data.Primitive.Types (Prim(..))
64+import Data.Primitive.PrimArray
59import Streamly.Internal.Data.Unfold.Types (Unfold(..))
66import Streamly.Internal.Data.Unfold.Types (Unfold(..))
60import Streamly.Internal.Data.Fold.Types (Fold(..))
67import Streamly.Internal.Data.Fold.Types (Fold(..))
61import Streamly.Internal.Data.Stream.StreamK.Type (IsStream)
68import Streamly.Internal.Data.Stream.StreamK.Type (IsStream)