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

Don't do padding for --raw-format

Browse Source
This commit is contained in:
Julian Ospald 2022-03-17 21:08:03 +01:00
parent 0c70feb09c
commit c3ddeb27bc
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

@ -147,7 +147,7 @@ printListResult no_color raw lr = do
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
forM_ padded $ \row -> putStrLn $ unwords row forM_ (if raw then rows else padded) $ \row -> putStrLn $ unwords row
where where
padTo str' x = padTo str' x =