Fix rather humongous bug in 'ghcup list'

2022-03-17 20:04:59 +01:00 · 2022-03-17 20:04:59 +01:00 · 0c70feb09c
parent f9a38e616d
commit 0c70feb09c
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) (replicate (length rows) []) rows
+        foldr (\xs ys -> zipWith (:) xs ys) (cycle [[]]) rows
      lengths = fmap (maximum . fmap strWidth) cols
      padded  = fmap (\xs -> zipWith padTo xs lengths) rows