move file Streamly/Strict.hs to Internal

src/Streamly/Internal/Data/Fold.hs

@@ -250,7 +250,7 @@ import qualified Prelude
 
 import Streamly.Internal.Data.Pipe.Types (Pipe (..), PipeState(..))
 import Streamly.Internal.Data.Fold.Types
-import Streamly.Strict
+import Streamly.Internal.Data.Strict
 
 import qualified Streamly.Internal.Data.Pipe.Types as Pipe
 

src/Streamly/Internal/Data/Fold/Types.hs

@@ -42,7 +42,7 @@ import Data.Maybe (isJust, fromJust)
 #if __GLASGOW_HASKELL__ < 808
 import Data.Semigroup (Semigroup(..))
 #endif
-import Streamly.Strict (Tuple'(..), Tuple3'(..), Either'(..))
+import Streamly.Internal.Data.Strict (Tuple'(..), Tuple3'(..), Either'(..))
 import Streamly.Internal.Data.SVar (MonadAsync)
 
 ------------------------------------------------------------------------------

src/Streamly/Internal/Data/Pipe.hs

@@ -262,7 +262,7 @@ import Streamly.Internal.Data.Pipe.Types
 -- (AbsTime, MilliSecond64(..), addToAbsTime, diffAbsTime, toRelTime,
 -- toAbsTime)
 
--- import Streamly.Strict
+-- import Streamly.Internal.Data.Strict
 
 -- import qualified Streamly.Internal.Memory.Array.Types as A
 -- import qualified Streamly.Prelude as S

src/Streamly/Internal/Data/Pipe/Types.hs

@@ -27,7 +27,7 @@ import Control.Category (Category(..))
 import Data.Maybe (isJust)
 import Data.Semigroup (Semigroup(..))
 import Prelude hiding (zipWith, map, id, unzip, null)
-import Streamly.Strict (Tuple'(..), Tuple3'(..))
+import Streamly.Internal.Data.Strict (Tuple'(..), Tuple3'(..))
 
 import qualified Prelude
 

src/Streamly/Internal/Data/Strict.hs

@@ -1,5 +1,5 @@
 -- |
--- Module      : Streamly.Strict
+-- Module      : Streamly.Internal.Data.Strict
 -- Copyright   : (c) 2019 Composewell Technologies
 --               (c) 2013 Gabriel Gonzalez
 -- License     : BSD3
@@ -17,7 +17,7 @@
 -- scans is that it helps the compiler optimize the code much better by
 -- unboxing. In a big tight loop the difference could be huge.
 --
-module Streamly.Strict
+module Streamly.Internal.Data.Strict
     (
       Tuple' (..)
     , Tuple3' (..)

src/Streamly/Internal/Memory/Array/Types.hs

@@ -112,7 +112,7 @@ import GHC.Ptr (Ptr(..))
 
 import Streamly.Internal.Data.Fold.Types (Fold(..))
 import Streamly.Internal.Data.Unfold.Types (Unfold(..))
-import Streamly.Strict (Tuple'(..))
+import Streamly.Internal.Data.Strict (Tuple'(..))
 import Streamly.Internal.Data.SVar (adaptState)
 
 #if !defined(mingw32_HOST_OS)

src/Streamly/Internal/Prelude.hs

@@ -420,7 +420,7 @@ import Streamly.Time.Units
        (AbsTime, MilliSecond64(..), addToAbsTime, diffAbsTime, toRelTime,
        toAbsTime)
 
-import Streamly.Strict
+import Streamly.Internal.Data.Strict
 
 import qualified Streamly.Internal.Memory.Array.Types as A
 import qualified Streamly.Data.Fold as FL

src/Streamly/Streams/StreamD.hs

@@ -303,7 +303,7 @@ import Streamly.Internal.Data.Fold.Types (Fold(..))
 import Streamly.Internal.Data.Pipe.Types (Pipe(..), PipeState(..))
 import Streamly.Internal.Data.SVar (MonadAsync, defState, adaptState)
 import Streamly.Internal.Data.Unfold.Types (Unfold(..))
-import Streamly.Strict (Tuple'(..))
+import Streamly.Internal.Data.Strict (Tuple'(..))
 
 import Streamly.Streams.StreamD.Type
 

streamly.cabal

@@ -252,8 +252,7 @@ library
     if os(darwin)
       c-sources:     src/Streamly/Time/Darwin.c
     hs-source-dirs:    src
-    other-modules:     Streamly.Strict
-                     , Streamly.Enumeration
+    other-modules:     Streamly.Enumeration
 
                     -- Memory storage
                      , Streamly.Memory.Malloc
@@ -303,6 +302,7 @@ library
 
                      -- Internal modules
                      , Streamly.Internal
+                     , Streamly.Internal.Data.Strict
                      , Streamly.Internal.Data.Atomics
                      , Streamly.Internal.Data.SVar
                      , Streamly.Internal.Memory.Array.Types