From 829e3b461156a39d30f6796b26a8c83a119bed43 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Mon, 8 Mar 2010 11:54:26 +0100 Subject: [PATCH] Show uniques in listBindings output. --- "c\316\273ash/CLasH/Utils/GhcTools.hs" | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git "a/c\316\273ash/CLasH/Utils/GhcTools.hs" "b/c\316\273ash/CLasH/Utils/GhcTools.hs" index fc63ac4..d898795 100644 --- "a/c\316\273ash/CLasH/Utils/GhcTools.hs" +++ "b/c\316\273ash/CLasH/Utils/GhcTools.hs" @@ -35,7 +35,7 @@ listBindings libdir filenames = do listBinding :: (CoreSyn.CoreBndr, CoreSyn.CoreExpr) -> IO () listBinding (b, e) = do putStr "\nBinder: " - putStr $ show b + putStr $ show b ++ "[" ++ show (Var.varUnique b) ++ "]" putStr "\nType of Binder: \n" putStr $ Outputable.showSDoc $ Outputable.ppr $ Var.varType b putStr "\n\nExpression: \n" -- 2.30.2