ghc-dump-utils: Infinite line width in list-bindings output

HugoPeters1024 · Mar 4, 2021 · f0063ff · f0063ff
1 parent 332c211
commit f0063ff
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/ghc-dump-util/Main.hs b/ghc-dump-util/Main.hs
@@ -5,6 +5,7 @@ import Data.Maybe
 import Data.List (sortBy)
 import Data.Monoid
 import Data.Ord
+import System.IO (stdout)
 
 import Options.Applicative
 import Prettyprinter as PP
@@ -109,7 +110,8 @@ modes = subparser
                         , Col 6  "Coerc." (pretty . csCoercions . getStats)
                         , Col 3000 "Type"  (pprType opts . binderType . unBndr . getBinder)
                         ]
-            print $ renderTable table (sortBindings $ moduleBindings dump)
+            let layoutOpts = PP.defaultLayoutOptions { layoutPageWidth = Unbounded }
+            PP.renderIO stdout $ PP.layoutPretty layoutOpts $ renderTable table (sortBindings $ moduleBindings dump)
 
     summarizeMode =
         run <$> some dumpFile