Fix small printing bug.

This commit is contained in:
Sander Spies 2020-06-05 11:32:30 +02:00
parent a952cc496d
commit 4c2a271898
2 changed files with 4 additions and 2 deletions

View File

@ -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; _} =