From: Matthijs Kooijman 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