From 4e22e5a07eaa95be08bd2a734807ca94f9e895ad Mon Sep 17 00:00:00 2001
From: Adithya Kumar <adithya@composewell.com>
Date: Sun, 27 Oct 2024 00:41:39 +0530
Subject: [PATCH] Fix hlint

---
 test/lib/Streamly/Test/Parser/Common.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/lib/Streamly/Test/Parser/Common.hs b/test/lib/Streamly/Test/Parser/Common.hs
index af03651006..60713eeea9 100644
--- a/test/lib/Streamly/Test/Parser/Common.hs
+++ b/test/lib/Streamly/Test/Parser/Common.hs
@@ -68,7 +68,7 @@ expectedResult moves inp = go 0 0 [] moves
     inpLen = length inp
 
     slice off len = Prelude.take len . Prelude.drop off
-    slice_ off = Prelude.drop off
+    slice_ = Prelude.drop
 
     -- i = Index of inp head
     -- j = Minimum index of inp head
@@ -105,7 +105,7 @@ expectedResultMany moves inp =
 
 createPaths :: [a] -> [[a]]
 createPaths xs =
-    Prelude.map (flip Prelude.take xs) [1..length xs]
+    Prelude.map (`Prelude.take` xs) [1..length xs]
 
 parserSanityTests :: String -> ([Move] -> SpecWith ()) -> SpecWith ()
 parserSanityTests desc testRunner =