---

yaml
---
r: 692
b: refs/heads/master
c: acdec30
h: refs/heads/master
v: v3

Author: graydon

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: c17964c06d24300e5f9073f0b7ab4ffaffd78a89
+refs/heads/master: acdec301496d580b60d8eed5690fed18bf97b7e0

trunk/src/boot/fe/pexp.ml

@@ -559,13 +559,15 @@ and parse_bottom_pexp (ps:pstate) : Ast.pexp =
                          (Some COMMA) parse_ty) ps
                   in
                   let bpos = lexpos ps in
-                    span ps apos bpos (Ast.PEXP_lval (Ast.PLVAL_base (Ast.BASE_app (i, tys))))
+                    span ps apos bpos
+                      (Ast.PEXP_lval (Ast.PLVAL_base (Ast.BASE_app (i, tys))))
                 end
 
             | _ ->
                 begin
                   let bpos = lexpos ps in
-                    span ps apos bpos (Ast.PEXP_lval (Ast.PLVAL_base (Ast.BASE_ident i)))
+                    span ps apos bpos
+                      (Ast.PEXP_lval (Ast.PLVAL_base (Ast.BASE_ident i)))
                 end
         end