Skip to content

Commit d3a50cd

Browse files
anmonteirochenglou
authored andcommitted
Add expected output files for 4.07.1 (reasonml#2211)
1 parent 6b91697 commit d3a50cd

File tree

2 files changed

+66
-0
lines changed

2 files changed

+66
-0
lines changed
Lines changed: 39 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,39 @@
1+
/* **** comment */
2+
/*** comment */
3+
/** docstring */;
4+
/* comment */
5+
/** docstring */;
6+
/*** comment */
7+
/**** comment */
8+
/***** comment */
9+
10+
/** */;
11+
/*** */
12+
/**** */
13+
14+
/***/
15+
/****/
16+
17+
/** (** comment *) */;
18+
/** (*** comment *) */;
19+
20+
/* (** comment *) */
21+
/* (*** comment *) */
22+
/* *(*** comment *) */
23+
24+
/* comment **/
25+
/* comment ***/
26+
/* comment ****/
27+
/* comment *****/
28+
29+
/**
30+
* Multiline
31+
*/;
32+
33+
/** Multiline
34+
*
35+
*/;
36+
37+
/**
38+
**
39+
*/;
Lines changed: 27 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,27 @@
1+
/* Copyright (c) 2015-present, Facebook, Inc. All rights reserved. */
2+
3+
type polyVariantsInMl = [
4+
| `IntTuple(int, int)
5+
| `StillAnIntTuple(int, int)
6+
];
7+
8+
let intTuple = `IntTuple((1, 2));
9+
let stillAnIntTuple = `StillAnIntTuple((4, 5));
10+
let sumThem =
11+
fun
12+
| `IntTuple(x, y) => x + y
13+
| `StillAnIntTuple(a, b) => a + b;
14+
15+
type nonrec t =
16+
| A(int)
17+
| B(bool);
18+
19+
type s = [ | `Poly];
20+
21+
let x: s = `Poly;
22+
23+
/* There's a bug in ocaml 4.06 resulting in an extra Pexp_constraint on the `Poly,
24+
* duplicating the core_type.
25+
* https://caml.inria.fr/mantis/view.php?id=7758
26+
* https://caml.inria.fr/mantis/view.php?id=7344 */
27+
let x: s = (`Poly: s);

0 commit comments

Comments
 (0)