Fix small printing bug.

src/passes/1-parser/reasonligo/Pretty.ml

@@ -79,7 +79,9 @@ and pp_pconstr = function
 and pp_patt_c_app {value; _} =
   match value with
     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)
 
 and pp_patt_some {value; _} =

src/test/contracts/expected/pledge.religo

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