let s' = map (\(id, (SignalInfo Nothing ty)) -> (id, SignalInfo (Just $ "sig_" ++ (show id)) ty)) s in
let s' = map (\(id, (SignalInfo Nothing ty)) -> (id, SignalInfo (Just $ "sig_" ++ (show id)) ty)) s in
fdata { flatFunc = Just flatfunc' }
-- | Splits a tuple type into a list of element types, or Nothing if the type
fdata { flatFunc = Just flatfunc' }
-- | Splits a tuple type into a list of element types, or Nothing if the type