on master help sign in
enable inspections tests for chunksOf

After using -fmax-worker-args we can assert that chunksOf test does not contain any constructors.

commit81ce539486c83c2cb7dbf002ec3871cc9b434b1c authorHarendra Kumar <harendra.kumar@gmail.com> dateThu 22 Aug 2019, 11:16 (7 years ago) parentc4b93dd
1 file changed+4−5
src/Streamly/Benchmark/FileIO/Stream.hs+4−5
src/Streamly/Benchmark/FileIO/Stream.hs+4−5
@@ -45,7 +45,6 @@ import Streamly.Benchmark.Inspection (hinspect)
4545import qualified Streamly.Memory.Array.Types as AT
4646
4747import qualified Streamly.FileSystem.Handle as FH
48−import qualified Streamly.FileSystem.Handle.Internal as FH
4948import qualified Streamly.Memory.Array as A
5049import qualified Streamly.Prelude.Internal as S
5150import qualified Streamly.Fold as FL
@@ -170,8 +169,8 @@ chunksOf n inh =
170169
171170hinspect $ hasNoTypeClasses 'chunksOf
172171hinspect $ 'chunksOf `hasNoType` ''Step
173−-- hinspect $ 'chunksOf `hasNoType` ''AT.FlattenState
174−-- hinspect $ 'chunksOf `hasNoType` ''GroupState
172+hinspect $ 'chunksOf `hasNoType` ''AT.FlattenState
173+hinspect $ 'chunksOf `hasNoType` ''GroupState
175174
176175-- This is to make sure that the concatMap in FH.read, groupsOf and foldlM'
177176-- together can fuse.
@@ -186,8 +185,8 @@ chunksOfD n inh =
186185
187186hinspect $ hasNoTypeClasses 'chunksOf
188187hinspect $ 'chunksOf `hasNoType` ''Step
189−-- hinspect $ 'chunksOfD `hasNoType` ''GroupState
190−-- hinspect $ 'chunksOfD `hasNoType` ''AT.FlattenState
188+hinspect $ 'chunksOfD `hasNoType` ''GroupState
189+hinspect $ 'chunksOfD `hasNoType` ''AT.FlattenState
191190
192191-- | Lines and unlines
193192{-# INLINE linesUnlinesCopy #-}