@@ -522,8 +522,8 @@ expandParamsD ist dec ps ns (PData syn fc co pd) = PData syn fc co (expandPData
522 else PDatadecl n (expandParams dec ps ns ty) (map econ cons)
522 else PDatadecl n (expandParams dec ps ns ty) (map econ cons)
523 econ (n, t, fc) = (dec n, piBindp expl ps (expandParams dec ps ns t), fc)
523 econ (n, t, fc) = (dec n, piBindp expl ps (expandParams dec ps ns t), fc)
524expandParamsD ist dec ps ns (PParams f params pds)
524expandParamsD ist dec ps ns (PParams f params pds)
525− = PParams f (map (mapsnd (expandParams dec ps ns)) params)
525+ = PParams f (ps ++ map (mapsnd (expandParams dec ps ns)) params) pds
526− (map (expandParamsD ist dec ps ns) pds)
526+-- (map (expandParamsD ist dec ps ns) pds)
527expandParamsD ist dec ps ns (PClass info f cs n params decls)
527expandParamsD ist dec ps ns (PClass info f cs n params decls)
528 = PClass info f
528 = PClass info f
529 (map (expandParams dec ps ns) cs)
529 (map (expandParams dec ps ns) cs)