X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;ds=sidebyside;f=Translator.hs;h=e375e457b171d85f2927691ed0900773e29ee508;hb=acb620510e3623e8dfd979a8b732babd19086a9b;hp=0431823f1dcc249c738aac1ddf0ab7a6eecdfc9a;hpb=08a1265b63ba9af9a588b5c85e49883c5799dbe2;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

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