From 84d01b1091c0cb5e12f3684987571d89013d2c33 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Thu, 17 Mar 2022 21:08:03 +0100
Subject: [PATCH] Don't do padding for --raw-format

---
 app/ghcup/GHCup/OptParse/List.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/app/ghcup/GHCup/OptParse/List.hs b/app/ghcup/GHCup/OptParse/List.hs
index 7212578..0b1c5ff 100644
--- 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 =