From 86ad39afeb670a2d565fbd20019377501dda8360 Mon Sep 17 00:00:00 2001
From: Harendra Kumar <harendra@composewell.com>
Date: Mon, 18 Dec 2023 22:41:21 +0530
Subject: [PATCH] Fix hlint issues in streamly package

---
 .hlint.ignore                                   | 3 +++
 src/Streamly/Internal/Data/Stream/Concurrent.hs | 4 ++--
 src/Streamly/Internal/Unicode/Char.hs           | 6 +++---
 3 files changed, 8 insertions(+), 5 deletions(-)

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