From acdec301496d580b60d8eed5690fed18bf97b7e0 Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Mon, 20 Sep 2010 20:46:44 -0700 Subject: Wrap long lines. --- src/boot/fe/pexp.ml | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/boot/fe') diff --git a/src/boot/fe/pexp.ml b/src/boot/fe/pexp.ml index ec4053c6..1ecc5301 100644 --- a/src/boot/fe/pexp.ml +++ b/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 -- cgit v1.2.3