Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix two long lines.

master
François Pottier 2018-09-08 13:12:08 +02:00 committed by Gabriel Scherer
parent 7e8ad7580a
commit 9914bbde11
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
parsing/parser.mly
View File

@ -757,8 +757,8 @@ The precedences must be listed from low to high.
/* Generic definitions */
(* [rev(XS)] recognizes the same language as [XS], and reverses the resulting OCaml
list. *)
(* [rev(XS)] recognizes the same language as [XS], and reverses the resulting
OCaml list. *)
%inline rev(XS):
xs = XS
@ -1987,7 +1987,8 @@ let_binding_body:
(ghpat ~loc:patloc (Ppat_constraint(v, typ)),
mkexp_constraint ~loc:$sloc $4 $2) }
| let_ident COLON typevar_list DOT core_type EQUAL seq_expr
(* TODO: could replace [typevar_list DOT core_type] with [mktyp(poly(core_type))]
(* TODO: could replace [typevar_list DOT core_type]
with [mktyp(poly(core_type))]
and simplify the semantic action? *)
{ let typloc = ($startpos($3), $endpos($5)) in
let patloc = ($startpos($1), $endpos($5)) in