From bc592bd13167eac05619653e84857ee7ab5035c1 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Tue, 28 Jul 2009 15:40:41 +0200 Subject: [PATCH] Show type of binder in listBinding. --- "c\316\273ash/CLasH/Translator.hs" | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git "a/c\316\273ash/CLasH/Translator.hs" "b/c\316\273ash/CLasH/Translator.hs" index 1be9445..caa0207 100644 --- "a/c\316\273ash/CLasH/Translator.hs" +++ "b/c\316\273ash/CLasH/Translator.hs" @@ -89,11 +89,13 @@ listBinding :: (CoreBndr, CoreExpr) -> IO () listBinding (b, e) = do putStr "\nBinder: " putStr $ show b - putStr "\nExpression: \n" + putStr "\nType of Binder: \n" + putStr $ showSDoc $ ppr $ Var.varType b + putStr "\n\nExpression: \n" putStr $ prettyShow e putStr "\n\n" putStr $ showSDoc $ ppr e - putStr "\n\n" + putStr "\n\nType of Expression: \n" putStr $ showSDoc $ ppr $ CoreUtils.exprType e putStr "\n\n" -- 2.30.2