hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix rather humongous bug in 'ghcup list'

Browse Source
This commit is contained in:
Julian Ospald 2022-03-17 20:04:59 +01:00
parent f9a38e616d
commit 0c70feb09c
Signed by: hasufell
GPG Key ID: 3786C5262ECB4A3F
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/ghcup/GHCup/OptParse/List.hs
View File

@ -143,7 +143,7 @@ printListResult no_color raw lr = do
) )
$ lr $ lr
let cols = 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 lengths = fmap (maximum . fmap strWidth) cols
padded = fmap (\xs -> zipWith padTo xs lengths) rows padded = fmap (\xs -> zipWith padTo xs lengths) rows