From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Thu, 19 Feb 2009 10:36:46 +0000 (+0100)
Subject: Make listBind also show a pretty printed output.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=dfab6c0cb6ff708cd05b194f3b05815cf515339c;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Make listBind also show a pretty printed output.
---

diff --git a/Translator.hs b/Translator.hs
index ddd09fc..75a875b 100644
--- a/Translator.hs
+++ b/Translator.hs
@@ -60,6 +60,7 @@ listBind filename name = do
   let binds = findBinds core [name]
   putStr "\n"
   putStr $ prettyShow binds
+  putStr $ showSDoc $ ppr binds
   putStr "\n\n"
 
 -- | Translate the binds with the given names from the given core module to