From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Thu, 19 Feb 2009 13:29:36 +0000 (+0100)
Subject: Use the name hints in signal name construction.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=1c2b1b16627b1fb44b5764fce1692ec6120869ce;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Use the name hints in signal name construction.
---

diff --git a/Translator.hs b/Translator.hs
index 0431823..e375e45 100644
--- 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