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
Add name hints to various signals generated.
[matthijs/master-project/cλash.git]
/
FlattenTypes.hs
diff --git
a/FlattenTypes.hs
b/FlattenTypes.hs
index d0076636bdcd07e266215b74e92e875e4f547e17..f75b0d51e64ae9f476627e1d6477062660b1cd5b 100644
(file)
--- a/
FlattenTypes.hs
+++ b/
FlattenTypes.hs
@@
-189,8
+189,8
@@
genSignalId use ty = do
return n
-- | Add a name hint to the given signal
return n
-- | Add a name hint to the given signal
-addNameHint :: S
ignalId -> String
-> FlattenState ()
-addNameHint
id hint
= do
+addNameHint :: S
tring -> SignalId
-> FlattenState ()
+addNameHint
hint id
= do
info <- getSignalInfo id
let hints = nameHints info
let hints' = (hint:hints)
info <- getSignalInfo id
let hints = nameHints info
let hints' = (hint:hints)