|
1 | 1 | let raisesLibTable : (Name.t, Exceptions.t) Hashtbl.t = |
2 | 2 | let table = Hashtbl.create 15 in |
3 | 3 | let open Exn in |
4 | | - let beltArray = [("getExn", [assertFailure]); ("setExn", [assertFailure])] in |
| 4 | + let beltArray = |
| 5 | + [ |
| 6 | + ("getExn", [assertFailure]); |
| 7 | + ("getOrThrow", [assertFailure]); |
| 8 | + ("setExn", [assertFailure]); |
| 9 | + ("setOrThrow", [assertFailure]); |
| 10 | + ] |
| 11 | + in |
5 | 12 | let beltList = |
6 | | - [("getExn", [notFound]); ("headExn", [notFound]); ("tailExn", [notFound])] |
| 13 | + [ |
| 14 | + ("getExn", [notFound]); |
| 15 | + ("getOrThrow", [notFound]); |
| 16 | + ("headExn", [notFound]); |
| 17 | + ("headOrThrow", [notFound]); |
| 18 | + ("tailExn", [notFound]); |
| 19 | + ("tailOrThrow", [notFound]); |
| 20 | + ] |
7 | 21 | in |
8 | | - let beltMap = [("getExn", [notFound])] in |
| 22 | + let beltMap = [("getExn", [notFound]); ("getOrThrow", [notFound])] in |
9 | 23 | let beltMutableMap = beltMap in |
10 | | - let beltMutableQueue = [("peekExn", [notFound]); ("popExn", [notFound])] in |
11 | | - let beltMutableSet = [("getExn", [notFound])] in |
12 | | - let beltOption = [("getExn", [notFound])] in |
13 | | - let beltResult = [("getExn", [notFound])] in |
14 | | - let beltSet = [("getExn", [notFound])] in |
| 24 | + let beltMutableQueue = |
| 25 | + [ |
| 26 | + ("peekExn", [notFound]); |
| 27 | + ("peekOrThrow", [notFound]); |
| 28 | + ("popExn", [notFound]); |
| 29 | + ("popOrThrow", [notFound]); |
| 30 | + ] |
| 31 | + in |
| 32 | + let beltSet = [("getExn", [notFound]); ("getOrThrow", [notFound])] in |
| 33 | + let beltMutableSet = beltSet in |
| 34 | + let beltOption = [("getExn", [notFound]); ("getOrThrow", [notFound])] in |
| 35 | + let beltResult = [("getExn", [notFound]); ("getOrThrow", [notFound])] in |
15 | 36 | let bsJson = |
16 | 37 | (* bs-json *) |
17 | 38 | [ |
|
0 commit comments