Fix small printing bug.
This commit is contained in:
parent
a952cc496d
commit
4c2a271898
@ -79,7 +79,9 @@ and pp_pconstr = function
|
|||||||
and pp_patt_c_app {value; _} =
|
and pp_patt_c_app {value; _} =
|
||||||
match value with
|
match value with
|
||||||
constr, None -> pp_ident constr
|
constr, None -> pp_ident constr
|
||||||
| constr, Some pat ->
|
| constr, Some (PVar _ as pat) ->
|
||||||
|
prefix 2 1 (pp_ident constr) (pp_pattern pat)
|
||||||
|
| constr, Some (_ as pat)->
|
||||||
prefix 2 0 (pp_ident constr) (pp_pattern pat)
|
prefix 2 0 (pp_ident constr) (pp_pattern pat)
|
||||||
|
|
||||||
and pp_patt_some {value; _} =
|
and pp_patt_some {value; _} =
|
||||||
|
Loading…
Reference in New Issue
Block a user