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
Use the name hints in signal name construction.
[matthijs/master-project/cλash.git]
/
Translator.hs
diff --git
a/Translator.hs
b/Translator.hs
index 0431823f1dcc249c738aac1ddf0ab7a6eecdfc9a..e375e457b171d85f2927691ed0900773e29ee508 100644
(file)
--- a/
Translator.hs
+++ b/
Translator.hs
@@
-227,7
+227,9
@@
nameFlatFunction hsfunc fdata =
where
nameSignal :: (SignalId, SignalInfo) -> (SignalId, SignalInfo)
nameSignal (id, info) =
where
nameSignal :: (SignalId, SignalInfo) -> (SignalId, SignalInfo)
nameSignal (id, info) =
- let name = "sig_" ++ (show id) in
+ let hints = nameHints info in
+ let parts = ("sig" : hints) ++ [show id] in
+ let name = concat $ List.intersperse "_" parts in
(id, info {sigName = Just name})
-- | Splits a tuple type into a list of element types, or Nothing if the type
(id, info {sigName = Just name})
-- | Splits a tuple type into a list of element types, or Nothing if the type