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

View File

@ -31,6 +31,6 @@ let main =
{ {
switch(p) { switch(p) {
| Donate => donate(((), s)) | Donate => donate(((), s))
| Distributemsg => distribute((msg, s)) | Distribute msg => distribute((msg, s))
} }
}; };