From: Duncan C. <dun...@wo...> - 2006-11-24 22:08:08
|
Sat Nov 18 08:10:40 PST 2006 Duncan Coutts <du...@co...> * Slight code simplification in convertObject hunk ./tools/apiGen/src/Module.hs 206 - module_decls = [_$_] - [ (convertConstructor object constructor) { + module_decls = + let addIndexAndModule n decl = decl { hunk ./tools/apiGen/src/Module.hs 211 + in [ addIndexAndModule n (convertConstructor object constructor) hunk ./tools/apiGen/src/Module.hs 214 - ++ [ (convertMethod module_ object method) { - decl_index_api = n, - decl_module = module_ - } + ++ [ addIndexAndModule n (convertMethod module_ object method) hunk ./tools/apiGen/src/Module.hs 217 - ++ [ (convertProperty False object prop) { - decl_index_api = n, - decl_module = module_ - } + ++ [ addIndexAndModule n (convertProperty False object prop) hunk ./tools/apiGen/src/Module.hs 220 - ++ [ (convertProperty True object prop) { - decl_index_api = n, - decl_module = module_ - } + ++ [ addIndexAndModule n (convertProperty True object prop) hunk ./tools/apiGen/src/Module.hs 223 - ++ [ (convertSignals signal) { - decl_index_api = n, - decl_module = module_ - } + ++ [ addIndexAndModule n (convertSignals object signal) hunk ./tools/apiGen/src/Module.hs 226 - ++ [ (convertInterfaces object class_) { - decl_index_api = n, - decl_module = module_ - } + ++ [ addIndexAndModule n (convertInterfaces object class_) |