git.iko.soy/streamly
on master help sign in
remove export of readU from Streamly.Internal
commite62d37ed18136ad641bd5c5e5a586a0d5f3fa4c8 authorHarendra Kumar <harendra.kumar@gmail.com> dateWed 25 Sep 2019, 00:15 (7 years ago) parentbcf8ef4
3 files changed+3−10
compare with master
unifiedsplit
src/Streamly/Benchmark/FileIO/Stream.hs+1−2 src/Streamly/Internal.hs−6 test/Arrays.hs+2−2
src/Streamly/Benchmark/FileIO/Stream.hs+1−2
@@ -62,7 +62,6 @@ import qualified Streamly.Internal.Memory.Array.Types as AT
6262import qualified Streamly.Prelude as S
6363import qualified Streamly.Data.Fold as FL
6464import qualified Streamly.Data.String as SS
65−import qualified Streamly.Internal as Internal
6665import qualified Streamly.Internal.Data.Unfold as IUF
6766import qualified Streamly.Internal.Prelude as IP
6867import qualified Streamly.Streams.StreamD as D
@@ -136,7 +135,7 @@ countLinesU inh =
136135 S.length
137136 $ SS.foldLines FL.drain
138137 $ SS.decodeChar8
139− $ IP.concatMapU Internal.readU (FH.readArrays inh)
138+ $ IP.concatMapU AT.readU (FH.readArrays inh)
140139
141140#ifdef INSPECTION
142141inspect $ hasNoTypeClasses 'countLinesU
src/Streamly/Internal.hs−6
@@ -20,13 +20,7 @@ module Streamly.Internal
2020 (
2121 -- * Diagnostics
2222 inspectMode
23−
24− -- * Streamly.Memory.Array
25− , readU
2623 )
2724where
2825
29−import Prelude hiding (break, span, splitAt)
30−
31−import Streamly.Internal.Memory.Array.Types (readU)
3226import Streamly.Streams.Combinators (inspectMode)
test/Arrays.hs+2−2
@@ -12,8 +12,8 @@ import Test.QuickCheck.Monadic (monadicIO, assert)
1212import Test.Hspec as H
1313
1414import qualified Streamly.Memory.Array as A
15+import qualified Streamly.Internal.Memory.Array.Types as AT
1516import qualified Streamly.Prelude as S
16−import qualified Streamly.Internal as Internal
1717import qualified Streamly.Internal.Prelude as IP
1818
1919-- Coverage build takes too long with default number of tests
@@ -86,7 +86,7 @@ testFlattenArrays =
8686 forAll (vectorOf len (arbitrary :: Gen Int)) $ \list ->
8787 monadicIO $ do
8888 xs <- S.toList
89− $ IP.concatMapU Internal.readU
89+ $ IP.concatMapU AT.readU
9090 $ IP.arraysOf 240
9191 $ S.fromList list
9292 assert (xs == list)