@@ -59,57 +59,40 @@ let getExn: option<'a> => 'a
5959 %insert.unlabelledArgument (2 ),
6060 %insert.unlabelledArgument (0 ),
6161 ),
62-
6362})
6463let equal : (('a , 'b ) => bool , option <'a >, option <'b >) => bool
6564
6665@deprecated ({
6766 reason : "Use `Option.flatMap` instead." ,
68- migrate : Option .flatMap (
69- %insert.unlabelledArgument (1 ),
70- %insert.unlabelledArgument (0 ),
71- ),
67+ migrate : Option .flatMap (%insert.unlabelledArgument (1 ), %insert.unlabelledArgument (0 )),
7268 migrateInPipeChain : Option .flatMap (%insert.unlabelledArgument (0 )),
7369})
7470let andThen : ('a => option <'b >, option <'a >) => option <'b >
7571
7672@deprecated ({
7773 reason : "Use `Option.map` instead." ,
78- migrate : Option .map (
79- %insert.unlabelledArgument (1 ),
80- %insert.unlabelledArgument (0 ),
81- ),
74+ migrate : Option .map (%insert.unlabelledArgument (1 ), %insert.unlabelledArgument (0 )),
8275 migrateInPipeChain : Option .map (%insert.unlabelledArgument (0 )),
8376})
8477let map : ('a => 'b , option <'a >) => option <'b >
8578
8679@deprecated ({
8780 reason : "Use `Option.getOr` instead." ,
88- migrate : Option .getOr (
89- %insert.unlabelledArgument (1 ),
90- %insert.unlabelledArgument (0 ),
91- ),
81+ migrate : Option .getOr (%insert.unlabelledArgument (1 ), %insert.unlabelledArgument (0 )),
9282 migrateInPipeChain : Option .getOr (%insert.unlabelledArgument (0 )),
9383})
9484let getWithDefault : ('a , option <'a >) => 'a
9585
9686@deprecated ({
97- reason :
98- "Use `Option.getOr` instead. Note: `default` has special meaning in ES modules." ,
99- migrate : Option .getOr (
100- %insert.unlabelledArgument (1 ),
101- %insert.unlabelledArgument (0 ),
102- ),
87+ reason : "Use `Option.getOr` instead. Note: `default` has special meaning in ES modules." ,
88+ migrate : Option .getOr (%insert.unlabelledArgument (1 ), %insert.unlabelledArgument (0 )),
10389 migrateInPipeChain : Option .getOr (%insert.unlabelledArgument (0 )),
10490})
10591let default : ('a , option <'a >) => 'a
10692
10793@deprecated ({
10894 reason : "Use `Option.filter` instead." ,
109- migrate : Option .filter (
110- %insert.unlabelledArgument (1 ),
111- %insert.unlabelledArgument (0 ),
112- ),
95+ migrate : Option .filter (%insert.unlabelledArgument (1 ), %insert.unlabelledArgument (0 )),
11396 migrateInPipeChain : Option .filter (%insert.unlabelledArgument (0 )),
11497})
11598let filter : ('a => bool , option <'a >) => option <'a >
0 commit comments