X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Translator.hs;h=ed560ec59e136830a9433fe41a88174e7f4f5f58;hb=93dad0e8b95c29c56b03c556e16b26aadf4e7a40;hp=d11d29e4d09559c97528c8a8e8c09f3520da4589;hpb=82e90697d7c570456f7bb0df8e4dc832ca242f74;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git diff --git a/Translator.hs b/Translator.hs index d11d29e..ed560ec 100644 --- a/Translator.hs +++ b/Translator.hs @@ -61,6 +61,7 @@ listBind filename name = do let binds = findBinds core [name] putStr "\n" putStr $ prettyShow binds + putStr "\n\n" putStr $ showSDoc $ ppr binds putStr "\n\n"