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; _} =
|
||||||
|
@ -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))
|
||||||
}
|
}
|
||||||
};
|
};
|
||||||
|
Loading…
Reference in New Issue
Block a user