projects
/
matthijs
/
master-project
/
cλash.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Show uniques in listBindings output.
[matthijs/master-project/cλash.git]
/
cλash
/
CLasH
/
Utils
/
GhcTools.hs
diff --git
a/cλash/CLasH/Utils/GhcTools.hs
b/cλash/CLasH/Utils/GhcTools.hs
index fc63ac4e9560079185caaa13bba32df694f88d61..d898795c9dbb6107e848f4856cba3015a4ca5d0b 100644
(file)
--- a/
cλash/CLasH/Utils/GhcTools.hs
+++ b/
cλash/CLasH/Utils/GhcTools.hs
@@
-35,7
+35,7
@@
listBindings libdir filenames = do
listBinding :: (CoreSyn.CoreBndr, CoreSyn.CoreExpr) -> IO ()
listBinding (b, e) = do
putStr "\nBinder: "
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"
putStr "\nType of Binder: \n"
putStr $ Outputable.showSDoc $ Outputable.ppr $ Var.varType b
putStr "\n\nExpression: \n"