File tree Expand file tree Collapse file tree 3 files changed +22
-24
lines changed Expand file tree Collapse file tree 3 files changed +22
-24
lines changed Original file line number Diff line number Diff line change 1
1
type rec expression =
2
- | /** non-negative integer constant */
3
- Numeral (float )
4
- | /** Addition [e1 + e2] */
5
- Plus (expression , expression )
6
- | /** Difference [e1 - e2] */
7
- Minus (expression , expression )
8
- | /** Product [e1 * e2] */
9
- Times (expression , expression )
10
- | /** Quotient [e1 / e2] */
11
- Divide (expression , expression )
12
- | /** Opposite value [-e] */
13
- Negate (expression )
2
+ /** non-negative integer constant */
3
+ | Numeral (float )
4
+ /** Addition [e1 + e2] */
5
+ | Plus (expression , expression )
6
+ /** Difference [e1 - e2] */
7
+ | Minus (expression , expression )
8
+ /** Product [e1 * e2] */
9
+ | Times (expression , expression )
10
+ /** Quotient [e1 / e2] */
11
+ | Divide (expression , expression )
12
+ /** Opposite value [-e] */
13
+ | Negate (expression )
14
14
| Variable (string )
15
15
16
16
let rec str = e =>
Original file line number Diff line number Diff line change 9
9
| Ta (t ) /* * u compilation error [nonrec applices to all] */
10
10
| Tb (int )
11
11
and u =
12
- | /** one attribute nonrecursive will affect all */
13
- H (t ) /* refers to old t */
12
+ /** one attribute nonrecursive will affect all */
13
+ | H (t ) /* refers to old t */
14
14
15
15
let v : u = H (OT )
Original file line number Diff line number Diff line change @@ -28,14 +28,12 @@ let \"SomeConstant" = 12
28
28
module SomeInnerModule = {
29
29
/*** Another module level docstring here.*/
30
30
type status =
31
- | /** If this is started or not */
32
- Started (t )
33
- | /** Stopped? */
34
- Stopped
35
- | /** Now idle.*/
36
- Idle
37
-
38
- /** These are all the valid inputs.*/
31
+ /** If this is started or not */
32
+ | Started (t )
33
+ /** Stopped? */
34
+ | Stopped
35
+ /** Now idle.*/
36
+ | Idle
39
37
type validInputs = [#something | # "needs-escaping" | #withPayload (int ) | #status (status )]
40
38
41
39
type callback = (t , ~status : status ) => unit
@@ -55,8 +53,8 @@ module AnotherModule = {
55
53
56
54
/** Trying how it looks with an inline record in a variant. */
57
55
type someVariantWithInlineRecords =
58
- | /** This has inline records...*/
59
- SomeStuff ({
56
+ /** This has inline records...*/
57
+ | SomeStuff ({
60
58
offline : bool ,
61
59
/** Is the user online? */
62
60
online ?: bool ,
You can’t perform that action at this time.
0 commit comments