|
@@ -167,7 +167,7 @@ let gen_constr e =
|
|
|
| _ ->
|
|
| _ ->
|
|
|
[] , doc
|
|
[] , doc
|
|
|
) in
|
|
) in
|
|
|
- node e.ef_name args t
|
|
|
|
|
|
|
+ node e.ef_name args (t @ gen_meta e.ef_meta)
|
|
|
|
|
|
|
|
let gen_ordered_constr e =
|
|
let gen_ordered_constr e =
|
|
|
let rec loop el = match el with
|
|
let rec loop el = match el with
|
Simon Krajewski