@@ -15,18 +15,18 @@ function addTest(t) {
15
15
16
16
function addTest1 ( t , x ) {
17
17
tests . push ( function ( ) {
18
- return t ( x ) ;
19
- } ) ;
18
+ return t ( x ) ;
19
+ } ) ;
20
20
}
21
21
22
22
async function foo ( x , y ) {
23
- return ( x + y ) | 0 ;
23
+ return x + y | 0 ;
24
24
}
25
25
26
26
async function bar ( ff ) {
27
27
var a = await ff ( 3 , 4 ) ;
28
28
var b = await foo ( 5 , 6 ) ;
29
- return ( a + b ) | 0 ;
29
+ return a + b | 0 ;
30
30
}
31
31
32
32
async function baz ( ) {
@@ -40,14 +40,14 @@ async function testBaz() {
40
40
41
41
tests . push ( testBaz ) ;
42
42
43
- var E = /* @__PURE__ */ Caml_exceptions . create ( "AA.E" ) ;
43
+ var E = /* @__PURE__ */ Caml_exceptions . create ( "AA.E" ) ;
44
44
45
45
async function e1 ( ) {
46
46
throw {
47
- RE_EXN_ID : E ,
48
- _1 : 1000 ,
49
- Error : new Error ( ) ,
50
- } ;
47
+ RE_EXN_ID : E ,
48
+ _1 : 1000 ,
49
+ Error : new Error ( )
50
+ } ;
51
51
}
52
52
53
53
async function e2 ( ) {
@@ -62,22 +62,21 @@ async function e4() {
62
62
return await e2 ( ) ;
63
63
}
64
64
65
- var e5 = function ( ) {
66
- return Promise . reject ( new Error ( "fail" ) ) ;
67
- } ;
65
+ var e5 = ( function ( ) { return Promise . reject ( new Error ( 'fail' ) ) } ) ;
68
66
69
67
async function testTryCatch ( fn ) {
70
68
try {
71
69
return await fn ( ) ;
72
- } catch ( raw_n ) {
70
+ }
71
+ catch ( raw_n ) {
73
72
var n = Caml_js_exceptions . internalToOCamlException ( raw_n ) ;
74
73
if ( n . RE_EXN_ID === E ) {
75
74
console . log ( "testTryCatch: E" , n . _1 ) ;
76
- return ;
75
+ return ;
77
76
}
78
77
if ( n . RE_EXN_ID === "JsError" ) {
79
78
console . log ( "testTryCatch: JsError" ) ;
80
- return ;
79
+ return ;
81
80
}
82
81
throw n ;
83
82
}
@@ -94,11 +93,11 @@ addTest1(testTryCatch, e4);
94
93
addTest1 ( testTryCatch , e5 ) ;
95
94
96
95
async function singlePromise ( x ) {
97
- return ( x + 1 ) | 0 ;
96
+ return x + 1 | 0 ;
98
97
}
99
98
100
99
async function nestedPromise ( x ) {
101
- var x$1 = singlePromise ( ( x + 1 ) | 0 ) ;
100
+ var x$1 = singlePromise ( x + 1 | 0 ) ;
102
101
[ Promise . resolve ( x$1 ) ] ;
103
102
return 32 ;
104
103
}
@@ -113,20 +112,21 @@ function status(response) {
113
112
114
113
var Fetch = {
115
114
$$fetch : $$fetch$1 ,
116
- status : status ,
115
+ status : status
117
116
} ;
118
117
119
- var explainError = e => e . toString ( ) ;
118
+ var explainError = ( ( e ) => e . toString ( ) ) ;
120
119
121
120
async function testFetch ( url ) {
122
121
var response ;
123
122
try {
124
123
response = await fetch ( url ) ;
125
- } catch ( raw_e ) {
124
+ }
125
+ catch ( raw_e ) {
126
126
var e = Caml_js_exceptions . internalToOCamlException ( raw_e ) ;
127
127
if ( e . RE_EXN_ID === "JsError" ) {
128
128
console . log ( "Fetch returned an error:" , explainError ( e . _1 ) ) ;
129
- return ;
129
+ return ;
130
130
}
131
131
throw e ;
132
132
}
@@ -140,7 +140,7 @@ addTest1(testFetch, "https://www.google.comsdkjdkghdsg");
140
140
141
141
async function withCallback ( ) {
142
142
return async function ( x ) {
143
- return ( ( await Promise . resolve ( x ) ) + 1 ) | 0 ;
143
+ return await Promise . resolve ( x ) + 1 | 0 ;
144
144
} ;
145
145
}
146
146
@@ -154,58 +154,55 @@ async function map(l, f) {
154
154
var loop = async function ( l , acc ) {
155
155
if ( l ) {
156
156
return await loop ( l . tl , {
157
- hd : await l . hd ,
158
- tl : acc ,
159
- } ) ;
157
+ hd : await l . hd ,
158
+ tl : acc
159
+ } ) ;
160
160
} else {
161
161
return acc ;
162
162
}
163
163
} ;
164
- return await loop (
165
- Belt_List . mapReverse ( l , function ( x ) {
166
- return f ( x ) ;
167
- } ) ,
168
- /* [] */ 0
169
- ) ;
164
+ return await loop ( Belt_List . mapReverse ( l , ( function ( x ) {
165
+ return f ( x ) ;
166
+ } ) ) , /* [] */ 0 ) ;
170
167
}
171
168
172
169
var AsyncList = {
173
- map : map ,
170
+ map : map
174
171
} ;
175
172
176
173
var counter = {
177
- contents : 0 ,
174
+ contents : 0
178
175
} ;
179
176
180
177
async function ff ( url ) {
181
178
var response = await fetch ( url ) ;
182
- counter . contents = ( counter . contents + 1 ) | 0 ;
183
- return [ counter . contents , response . status ] ;
179
+ counter . contents = counter . contents + 1 | 0 ;
180
+ return [
181
+ counter . contents ,
182
+ response . status
183
+ ] ;
184
184
}
185
185
186
186
async function testFetchMany ( ) {
187
- var fetchedItems = await map (
188
- {
189
- hd : "https://www.google.com" ,
190
- tl : {
187
+ var fetchedItems = await map ( {
191
188
hd : "https://www.google.com" ,
192
189
tl : {
193
190
hd : "https://www.google.com" ,
194
191
tl : {
195
192
hd : "https://www.google.com" ,
196
193
tl : {
197
194
hd : "https://www.google.com" ,
198
- tl : /* [] */ 0 ,
199
- } ,
200
- } ,
201
- } ,
202
- } ,
203
- } ,
204
- ff
205
- ) ;
206
- return Belt_List . forEach ( fetchedItems , function ( param ) {
207
- console . log ( "Fetched" , param [ 0 ] , param [ 1 ] ) ;
208
- } ) ;
195
+ tl : {
196
+ hd : "https://www.google.com" ,
197
+ tl : /* [] */ 0
198
+ }
199
+ }
200
+ }
201
+ }
202
+ } , ff ) ;
203
+ return Belt_List . forEach ( fetchedItems , ( function ( param ) {
204
+ console . log ( "Fetched" , param [ 0 ] , param [ 1 ] ) ;
205
+ } ) ) ;
209
206
}
210
207
211
208
tests . push ( testFetchMany ) ;
@@ -214,24 +211,25 @@ async function $$fetch$2(url) {
214
211
var response ;
215
212
try {
216
213
response = await fetch ( url ) ;
217
- } catch ( raw_e ) {
214
+ }
215
+ catch ( raw_e ) {
218
216
var e = Caml_js_exceptions . internalToOCamlException ( raw_e ) ;
219
217
if ( e . RE_EXN_ID === "JsError" ) {
220
218
return {
221
- TAG : /* Error */ 1 ,
222
- _0 : e . _1 ,
223
- } ;
219
+ TAG : /* Error */ 1 ,
220
+ _0 : e . _1
221
+ } ;
224
222
}
225
223
throw e ;
226
224
}
227
225
return {
228
- TAG : /* Ok */ 0 ,
229
- _0 : response ,
230
- } ;
226
+ TAG : /* Ok */ 0 ,
227
+ _0 : response
228
+ } ;
231
229
}
232
230
233
231
var FetchResult = {
234
- $$fetch : $$fetch$2 ,
232
+ $$fetch : $$fetch$2
235
233
} ;
236
234
237
235
function nextFetch ( _response ) {
@@ -240,18 +238,18 @@ function nextFetch(_response) {
240
238
241
239
async function testFetchWithResult ( ) {
242
240
var response1 = await $$fetch$2 ( "https://www.google.com" ) ;
243
- if ( response1 . TAG !== /* Ok */ 0 ) {
244
- return ;
241
+ if ( response1 . TAG !== /* Ok */ 0 ) {
242
+ return ;
245
243
}
246
244
var response1$1 = response1 . _0 ;
247
245
console . log ( "FetchResult response1" , response1$1 . status ) ;
248
246
var url = nextFetch ( response1$1 ) ;
249
247
if ( url === undefined ) {
250
- return ;
248
+ return ;
251
249
}
252
250
var response2 = await $$fetch$2 ( url ) ;
253
- if ( response2 . TAG !== /* Ok */ 0 ) {
254
- return ;
251
+ if ( response2 . TAG !== /* Ok */ 0 ) {
252
+ return ;
255
253
}
256
254
console . log ( "FetchResult response2" , response2 . _0 . status ) ;
257
255
}
@@ -261,8 +259,9 @@ tests.push(testFetchWithResult);
261
259
async function runAllTests ( n ) {
262
260
if ( n >= 0 && n < tests . length ) {
263
261
await Caml_array . get ( tests , n ) ( ) ;
264
- return await runAllTests ( ( n + 1 ) | 0 ) ;
262
+ return await runAllTests ( n + 1 | 0 ) ;
265
263
}
264
+
266
265
}
267
266
268
267
runAllTests ( 0 ) ;
@@ -273,51 +272,51 @@ async function bb(x) {
273
272
274
273
async function cc ( x , yOpt , z ) {
275
274
var y = yOpt !== undefined ? Caml_option . valFromOption ( yOpt ) : x ;
276
- return ( ( ( ( await x ) + ( await y ) ) | 0 ) + ( await z ) ) | 0 ;
275
+ return ( await x + await y | 0 ) + await z | 0 ;
277
276
}
278
277
279
278
async function dd ( x , y ) {
280
- return ( ( await x ) + ( await y ) ) | 0 ;
279
+ return await x + await y | 0 ;
281
280
}
282
281
283
282
async function ee ( x , y ) {
284
- return ( ( await x ) + ( await y ) ) | 0 ;
283
+ return await x + await y | 0 ;
285
284
}
286
285
287
286
var fetchAndCount = ff ;
288
287
289
288
export {
290
- tests ,
291
- addTest ,
292
- addTest1 ,
293
- foo ,
294
- bar ,
295
- baz ,
296
- testBaz ,
297
- E ,
298
- e1 ,
299
- e2 ,
300
- e3 ,
301
- e4 ,
302
- e5 ,
303
- testTryCatch ,
304
- singlePromise ,
305
- nestedPromise ,
306
- Fetch ,
307
- explainError ,
308
- testFetch ,
309
- withCallback ,
310
- testWithCallback ,
311
- AsyncList ,
312
- fetchAndCount ,
313
- testFetchMany ,
314
- FetchResult ,
315
- nextFetch ,
316
- testFetchWithResult ,
317
- runAllTests ,
318
- bb ,
319
- cc ,
320
- dd ,
321
- ee ,
322
- } ;
289
+ tests ,
290
+ addTest ,
291
+ addTest1 ,
292
+ foo ,
293
+ bar ,
294
+ baz ,
295
+ testBaz ,
296
+ E ,
297
+ e1 ,
298
+ e2 ,
299
+ e3 ,
300
+ e4 ,
301
+ e5 ,
302
+ testTryCatch ,
303
+ singlePromise ,
304
+ nestedPromise ,
305
+ Fetch ,
306
+ explainError ,
307
+ testFetch ,
308
+ withCallback ,
309
+ testWithCallback ,
310
+ AsyncList ,
311
+ fetchAndCount ,
312
+ testFetchMany ,
313
+ FetchResult ,
314
+ nextFetch ,
315
+ testFetchWithResult ,
316
+ runAllTests ,
317
+ bb ,
318
+ cc ,
319
+ dd ,
320
+ ee ,
321
+ }
323
322
/* Not a pure module */
0 commit comments