hunk ./Sound/SC3/UGen/DB/Rename.hs 30 + "round" -> "round_" hunk ./Sound/SC3/UGen/DB/Rename.hs 54 -rename_eq_input :: U -> I -> String +rename_eq_input :: String -> String -> String hunk ./Sound/SC3/UGen/DB/Rename.hs 56 - let f x = if x `ci_eq` ugen_name u then x ++ "_" else x - in rename_input . f . input_name + let f x = if x `ci_eq` u then x ++ "_" else x + in rename_input . f hunk ./Sound/SC3/UGen/DB/Rename.hs 59 -i_rename :: I -> I -i_rename i = i {input_name = rename_input (input_name i)} +i_rename :: U -> I -> I +i_rename u i = i {input_name = rename_eq_input (ugen_name u) (input_name i)} hunk ./Sound/SC3/UGen/DB/Rename.hs 65 - i' = map i_rename (ugen_inputs u) + i' = map (i_rename u) (ugen_inputs u)