Use the name hints in signal name construction.

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) =
-      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