diff --git a/.hlint.ignore b/.hlint.ignore index 0eb6542b..e4ff8cbb 100644 --- a/.hlint.ignore +++ b/.hlint.ignore @@ -2,6 +2,9 @@ core/src/Streamly/Internal/Data/Stream/StreamK/Type.hs core/src/Streamly/Internal/Data/Pipe/Type.hs core/src/Streamly/Internal/Unicode/Stream.hs src/Streamly/Internal/Data/SmallArray/Type.hs +src/Streamly/Internal/Data/Stream/IsStream/Eliminate.hs +src/Streamly/Internal/Data/Stream/Serial.hs +src/Streamly/Internal/Data/Stream/Zip.hs test/Streamly/Test/Data/Array.hs test/Streamly/Test/Data/Parser.hs test/Streamly/Test/Data/ParserK.hs diff --git a/src/Streamly/Internal/Data/Stream/Concurrent.hs b/src/Streamly/Internal/Data/Stream/Concurrent.hs index c98d6060..ee941eed 100644 --- a/src/Streamly/Internal/Data/Stream/Concurrent.hs +++ b/src/Streamly/Internal/Data/Stream/Concurrent.hs @@ -646,8 +646,8 @@ parConcatIterate modifier f input = where - iterateStream channel stream = - parConcatMapChanKGeneric modifier channel (generate channel) stream + iterateStream channel = + parConcatMapChanKGeneric modifier channel (generate channel) generate channel x = -- XXX The channel q should be FIFO for DFS, otherwise it is BFS diff --git a/src/Streamly/Internal/Unicode/Char.hs b/src/Streamly/Internal/Unicode/Char.hs index e703c00e..5c2b197d 100644 --- a/src/Streamly/Internal/Unicode/Char.hs +++ b/src/Streamly/Internal/Unicode/Char.hs @@ -227,13 +227,13 @@ partialComposeD (Stream step state) = Stream step' (ComposeNone state) Stop -> Skip $ YieldList rbuf ComposeStop {-# INLINE initHangul #-} - initHangul c st = ComposeJamo (Hangul c) st + initHangul c = ComposeJamo (Hangul c) {-# INLINE initJamo #-} - initJamo c st = ComposeJamo (Jamo c) st + initJamo c = ComposeJamo (Jamo c) {-# INLINE initReg #-} - initReg !c st = ComposeReg 0 [c] st + initReg !c = ComposeReg 0 [c] {-# INLINE composeNone #-} composeNone ch st