Apply hlint

2022-03-17 21:09:35 +01:00 · 2022-03-17 21:09:35 +01:00 · 47bf8a6f31
commit 47bf8a6f31
parent c3ddeb27bc
1 changed files with 1 additions and 1 deletions
--- 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