From 1c2b1b16627b1fb44b5764fce1692ec6120869ce Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Thu, 19 Feb 2009 14:29:36 +0100
Subject: [PATCH] Use the name hints in signal name construction.

---
 Translator.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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
-- 
2.30.2