git.iko.soy/streamly
on master help sign in
remove export of readU from Streamly.Internal
e62d37eHarendra Kumar
src/Streamly/Benchmark/FileIO/Stream.hs+1−2
compare with master
unifiedsplit
@@ -62,7 +62,6 @@ import qualified Streamly.Internal.Memory.Array.Types as AT
62import qualified Streamly.Prelude as S
62import qualified Streamly.Prelude as S
63import qualified Streamly.Data.Fold as FL
63import qualified Streamly.Data.Fold as FL
64import qualified Streamly.Data.String as SS
64import qualified Streamly.Data.String as SS
65−import qualified Streamly.Internal as Internal
66import qualified Streamly.Internal.Data.Unfold as IUF
65import qualified Streamly.Internal.Data.Unfold as IUF
67import qualified Streamly.Internal.Prelude as IP
66import qualified Streamly.Internal.Prelude as IP
68import qualified Streamly.Streams.StreamD as D
67import qualified Streamly.Streams.StreamD as D
@@ -136,7 +135,7 @@ countLinesU inh =
136 S.length
135 S.length
137 $ SS.foldLines FL.drain
136 $ SS.foldLines FL.drain
138 $ SS.decodeChar8
137 $ SS.decodeChar8
139− $ IP.concatMapU Internal.readU (FH.readArrays inh)
138+ $ IP.concatMapU AT.readU (FH.readArrays inh)
140
139
141#ifdef INSPECTION
140#ifdef INSPECTION
142inspect $ hasNoTypeClasses 'countLinesU
141inspect $ hasNoTypeClasses 'countLinesU
src/Streamly/Internal.hs−6
@@ -20,13 +20,7 @@ module Streamly.Internal
20 (
20 (
21 -- * Diagnostics
21 -- * Diagnostics
22 inspectMode
22 inspectMode
23−
24− -- * Streamly.Memory.Array
25− , readU
26 )
23 )
27where
24where
28
25
29−import Prelude hiding (break, span, splitAt)
30−
31−import Streamly.Internal.Memory.Array.Types (readU)
32import Streamly.Streams.Combinators (inspectMode)
26import Streamly.Streams.Combinators (inspectMode)
test/Arrays.hs+2−2
@@ -12,8 +12,8 @@ import Test.QuickCheck.Monadic (monadicIO, assert)
12import Test.Hspec as H
12import Test.Hspec as H
13
13
14import qualified Streamly.Memory.Array as A
14import qualified Streamly.Memory.Array as A
15+import qualified Streamly.Internal.Memory.Array.Types as AT
15import qualified Streamly.Prelude as S
16import qualified Streamly.Prelude as S
16−import qualified Streamly.Internal as Internal
17import qualified Streamly.Internal.Prelude as IP
17import qualified Streamly.Internal.Prelude as IP
18
18
19-- Coverage build takes too long with default number of tests
19-- Coverage build takes too long with default number of tests
@@ -86,7 +86,7 @@ testFlattenArrays =
86 forAll (vectorOf len (arbitrary :: Gen Int)) $ \list ->
86 forAll (vectorOf len (arbitrary :: Gen Int)) $ \list ->
87 monadicIO $ do
87 monadicIO $ do
88 xs <- S.toList
88 xs <- S.toList
89− $ IP.concatMapU Internal.readU
89+ $ IP.concatMapU AT.readU
90 $ IP.arraysOf 240
90 $ IP.arraysOf 240
91 $ S.fromList list
91 $ S.fromList list
92 assert (xs == list)
92 assert (xs == list)