fix: Lint error in test.

mchav · mchav · commit b201e90b83a9 · 2026-01-10T22:40:54.000-08:00
diff --git a/tests/Operations/ReadCsv.hs b/tests/Operations/ReadCsv.hs
@@ -55,8 +55,7 @@ prettyPrintSeparated sep filepath df = withFile filepath WriteMode $ \handle ->
         (T.intercalate (T.singleton sep) (map (escapeField sep) headers))
     -- Write data rows
     mapM_
-        ( \i ->
-            TIO.hPutStrLn handle (T.intercalate (T.singleton sep) (getRowEscaped sep df i))
+        ( TIO.hPutStrLn handle . T.intercalate (T.singleton sep) . getRowEscaped sep df
         )
         [0 .. rows - 1]
 

Original file line number	Diff line number	Diff line change
`@@ -55,8 +55,7 @@ prettyPrintSeparated sep filepath df = withFile filepath WriteMode $ \handle ->`
`55`	`55`	`(T.intercalate (T.singleton sep) (map (escapeField sep) headers))`
`56`	`56`	`-- Write data rows`
`57`	`57`	`mapM_`
`58`		`- ( \i ->`
`59`		`- TIO.hPutStrLn handle (T.intercalate (T.singleton sep) (getRowEscaped sep df i))`
	`58`	`+ ( TIO.hPutStrLn handle . T.intercalate (T.singleton sep) . getRowEscaped sep df`
`60`	`59`	`)`
`61`	`60`	`[0 .. rows - 1]`
`62`	`61`