Don't do padding for --raw-format

2022-03-17 21:08:03 +01:00 · 2022-03-17 21:08:03 +01:00 · 84d01b1091
commit 84d01b1091
parent 8f9faaa39e
1 changed files with 1 additions and 1 deletions
--- a/app/ghcup/GHCup/OptParse/List.hs
+++ b/app/ghcup/GHCup/OptParse/List.hs
@ -147,7 +147,7 @@ printListResult no_color raw lr = do
      lengths = fmap (maximum . fmap strWidth) cols
      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

  padTo str' x =