From 47bf8a6f318fbebc546576fd9356e01111c039f1 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Thu, 17 Mar 2022 21:09:35 +0100 Subject: [PATCH] Apply hlint --- app/ghcup/GHCup/OptParse/List.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/ghcup/GHCup/OptParse/List.hs b/app/ghcup/GHCup/OptParse/List.hs index 0b1c5ff..d1bfc65 100644 --- a/app/ghcup/GHCup/OptParse/List.hs +++ b/app/ghcup/GHCup/OptParse/List.hs @@ -143,7 +143,7 @@ printListResult no_color raw lr = do ) $ lr let cols = - foldr (\xs ys -> zipWith (:) xs ys) (cycle [[]]) rows + foldr (\xs ys -> zipWith (:) xs ys) (repeat []) rows lengths = fmap (maximum . fmap strWidth) cols padded = fmap (\xs -> zipWith padTo xs lengths) rows