@@ -45,7 +45,6 @@ import Streamly.Benchmark.Inspection (hinspect)
45import qualified Streamly.Memory.Array.Types as AT
45import qualified Streamly.Memory.Array.Types as AT
47import qualified Streamly.FileSystem.Handle as FH
47import qualified Streamly.FileSystem.Handle as FH
48−import qualified Streamly.FileSystem.Handle.Internal as FH
49import qualified Streamly.Memory.Array as A
48import qualified Streamly.Memory.Array as A
50import qualified Streamly.Prelude.Internal as S
49import qualified Streamly.Prelude.Internal as S
51import qualified Streamly.Fold as FL
50import qualified Streamly.Fold as FL
@@ -170,8 +169,8 @@ chunksOf n inh =
171hinspect $ hasNoTypeClasses 'chunksOf
170hinspect $ hasNoTypeClasses 'chunksOf
172hinspect $ 'chunksOf `hasNoType` ''Step
171hinspect $ 'chunksOf `hasNoType` ''Step
173−-- hinspect $ 'chunksOf `hasNoType` ''AT.FlattenState
172+hinspect $ 'chunksOf `hasNoType` ''AT.FlattenState
174−-- hinspect $ 'chunksOf `hasNoType` ''GroupState
173+hinspect $ 'chunksOf `hasNoType` ''GroupState
176-- This is to make sure that the concatMap in FH.read, groupsOf and foldlM'
175-- This is to make sure that the concatMap in FH.read, groupsOf and foldlM'
177-- together can fuse.
176-- together can fuse.
@@ -186,8 +185,8 @@ chunksOfD n inh =
187hinspect $ hasNoTypeClasses 'chunksOf
186hinspect $ hasNoTypeClasses 'chunksOf
188hinspect $ 'chunksOf `hasNoType` ''Step
187hinspect $ 'chunksOf `hasNoType` ''Step
189−-- hinspect $ 'chunksOfD `hasNoType` ''GroupState
188+hinspect $ 'chunksOfD `hasNoType` ''GroupState
190−-- hinspect $ 'chunksOfD `hasNoType` ''AT.FlattenState
189+hinspect $ 'chunksOfD `hasNoType` ''AT.FlattenState
192-- | Lines and unlines
191-- | Lines and unlines
193{-# INLINE linesUnlinesCopy #-}
192{-# INLINE linesUnlinesCopy #-}