+-- | Add a name hint to the given signal
+addNameHint :: SignalId -> String -> FlattenState ()
+addNameHint id hint = do
+ info <- getSignalInfo id
+ let hints = nameHints info
+ let hints' = (hint:hints)
+ setSignalInfo id (info {nameHints = hints'})
+