@mattpolzin/harmony 3.3.0 → 4.0.0
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- package/README.md +24 -23
- package/harmony +583 -492
- package/package.json +1 -1
package/harmony
CHANGED
|
@@ -871,7 +871,7 @@ function x24tcOpt_1($0) {
|
|
|
871
871
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
872
872
|
default: {
|
|
873
873
|
const $17 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
874
|
-
const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($22 => $23 => $0.a1.a1.a1($22)($23),
|
|
874
|
+
const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($22 => $23 => $0.a1.a1.a1($22)($23), csegen_590(), $1e, $1f), $17, $0.a6);
|
|
875
875
|
switch($1b.a1.h) {
|
|
876
876
|
case 0: /* nothing */ {
|
|
877
877
|
switch($0.a8) {
|
|
@@ -886,7 +886,7 @@ function x24tcOpt_1($0) {
|
|
|
886
886
|
}
|
|
887
887
|
default: {
|
|
888
888
|
const $6a = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
889
|
-
const $6e = Data_List_DeleteBy_deleteByx27($71 => $72 => Prelude_Basics_on($75 => $76 => $0.a1.a1.a1($75)($76),
|
|
889
|
+
const $6e = Data_List_DeleteBy_deleteByx27($71 => $72 => Prelude_Basics_on($75 => $76 => $0.a1.a1.a1($75)($76), csegen_590(), $71, $72), $6a, $0.a6);
|
|
890
890
|
switch($6e.a1.h) {
|
|
891
891
|
case 0: /* nothing */ {
|
|
892
892
|
switch($0.a8) {
|
|
@@ -911,7 +911,7 @@ function x24tcOpt_1($0) {
|
|
|
911
911
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
912
912
|
default: {
|
|
913
913
|
const $c1 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
914
|
-
const $c5 = Data_List_DeleteBy_deleteByx27($c8 => $c9 => Prelude_Basics_on($cc => $cd => $0.a1.a1.a1($cc)($cd),
|
|
914
|
+
const $c5 = Data_List_DeleteBy_deleteByx27($c8 => $c9 => Prelude_Basics_on($cc => $cd => $0.a1.a1.a1($cc)($cd), csegen_590(), $c8, $c9), $c1, $0.a6);
|
|
915
915
|
switch($c5.a1.h) {
|
|
916
916
|
case 0: /* nothing */ {
|
|
917
917
|
switch($0.a8) {
|
|
@@ -926,7 +926,7 @@ function x24tcOpt_1($0) {
|
|
|
926
926
|
}
|
|
927
927
|
default: {
|
|
928
928
|
const $114 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
929
|
-
const $118 = Data_List_DeleteBy_deleteByx27($11b => $11c => Prelude_Basics_on($11f => $120 => $0.a1.a1.a1($11f)($120),
|
|
929
|
+
const $118 = Data_List_DeleteBy_deleteByx27($11b => $11c => Prelude_Basics_on($11f => $120 => $0.a1.a1.a1($11f)($120), csegen_590(), $11b, $11c), $114, $0.a6);
|
|
930
930
|
switch($118.a1.h) {
|
|
931
931
|
case 0: /* nothing */ {
|
|
932
932
|
switch($0.a8) {
|
|
@@ -1499,19 +1499,19 @@ function x24tcOpt_14($0) {
|
|
|
1499
1499
|
switch($0.a7.a2.a1.a1.a1) {
|
|
1500
1500
|
case ',': return {h: 1 /* {TcContinue14:1} */, a1: $0.a6, a2: {a1: $0.a5, a2: {a1: $0.a3, a2: $0.a7.a1}}, a3: $0.a7.a2.a2};
|
|
1501
1501
|
case '}': return {h: 0 /* {TcDone:14} */, a1: {h: 0 /* Succ0 */, a1: {h: 6 /* JObject */, a1: Prelude_Types_SnocList_x3cx3ex3e($0.a5, {a1: {a1: $0.a3, a2: $0.a7.a1}, a2: {h: 0}})}, a2: $0.a7.a2.a2}};
|
|
1502
|
-
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'},
|
|
1502
|
+
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_229(), $0.a7)};
|
|
1503
1503
|
}
|
|
1504
1504
|
}
|
|
1505
|
-
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'},
|
|
1505
|
+
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_229(), $0.a7)};
|
|
1506
1506
|
}
|
|
1507
1507
|
}
|
|
1508
|
-
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'},
|
|
1508
|
+
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_229(), $0.a7)};
|
|
1509
1509
|
}
|
|
1510
1510
|
}
|
|
1511
|
-
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'},
|
|
1511
|
+
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_229(), $0.a7)};
|
|
1512
1512
|
}
|
|
1513
1513
|
}
|
|
1514
|
-
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'},
|
|
1514
|
+
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_229(), $0.a7)};
|
|
1515
1515
|
}
|
|
1516
1516
|
}
|
|
1517
1517
|
}
|
|
@@ -1532,7 +1532,7 @@ function x24tcOpt_15($0) {
|
|
|
1532
1532
|
switch($0.a3.h) {
|
|
1533
1533
|
case 0: /* nil */ return {h: 0 /* {TcDone:15} */, a1: {h: 0}};
|
|
1534
1534
|
case undefined: /* cons */ {
|
|
1535
|
-
switch(Prelude_Types_elemBy(
|
|
1535
|
+
switch(Prelude_Types_elemBy(csegen_145(), $0.a2, $0.a3.a1, $0.a1)) {
|
|
1536
1536
|
case 1: return {h: 1 /* {TcContinue15:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3.a2};
|
|
1537
1537
|
case 0: return {h: 0 /* {TcDone:15} */, a1: {a1: $0.a3.a1, a2: Data_List_n__4927_5480_nubByx27({a1: $0.a3.a1, a2: $0.a1}, $0.a2, $0.a3.a2)}};
|
|
1538
1538
|
}
|
|
@@ -2300,19 +2300,19 @@ function x24tcOpt_48($0) {
|
|
|
2300
2300
|
switch($0.a4.a2.a1.a1.a1) {
|
|
2301
2301
|
case ',': return {h: 1 /* {TcContinue48:1} */, a1: $0.a3, a2: {a1: $0.a2, a2: $0.a4.a1}, a3: $0.a4.a2.a2};
|
|
2302
2302
|
case ']': return {h: 0 /* {TcDone:48} */, a1: {h: 0 /* Succ0 */, a1: {h: 5 /* JArray */, a1: Prelude_Types_SnocList_x3cx3ex3e($0.a2, {a1: $0.a4.a1, a2: {h: 0}})}, a2: $0.a4.a2.a2}};
|
|
2303
|
-
default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['},
|
|
2303
|
+
default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_229(), $0.a4)};
|
|
2304
2304
|
}
|
|
2305
2305
|
}
|
|
2306
|
-
default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['},
|
|
2306
|
+
default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_229(), $0.a4)};
|
|
2307
2307
|
}
|
|
2308
2308
|
}
|
|
2309
|
-
default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['},
|
|
2309
|
+
default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_229(), $0.a4)};
|
|
2310
2310
|
}
|
|
2311
2311
|
}
|
|
2312
|
-
default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['},
|
|
2312
|
+
default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_229(), $0.a4)};
|
|
2313
2313
|
}
|
|
2314
2314
|
}
|
|
2315
|
-
default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['},
|
|
2315
|
+
default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_229(), $0.a4)};
|
|
2316
2316
|
}
|
|
2317
2317
|
}
|
|
2318
2318
|
}
|
|
@@ -2470,68 +2470,73 @@ const csegen_72 = __lazy(function () {
|
|
|
2470
2470
|
return {a1: csegen_69(), a2: a => $3 => $4 => $5 => $6 => Data_Promise_liftIO_HasIO_Promise($3, $4, $5, $6)};
|
|
2471
2471
|
});
|
|
2472
2472
|
|
|
2473
|
-
/* {csegen:
|
|
2474
|
-
const
|
|
2475
|
-
return
|
|
2473
|
+
/* {csegen:73} */
|
|
2474
|
+
const csegen_73 = __lazy(function () {
|
|
2475
|
+
return Main_printWarning(csegen_72(), 'The \'assign\' command is a deprecated alias for the new \'request\' command.');
|
|
2476
2476
|
});
|
|
2477
2477
|
|
|
2478
|
-
/* {csegen:
|
|
2479
|
-
const
|
|
2480
|
-
return
|
|
2478
|
+
/* {csegen:86} */
|
|
2479
|
+
const csegen_86 = __lazy(function () {
|
|
2480
|
+
return $0 => $1 => Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29($0, $1);
|
|
2481
2481
|
});
|
|
2482
2482
|
|
|
2483
2483
|
/* {csegen:91} */
|
|
2484
2484
|
const csegen_91 = __lazy(function () {
|
|
2485
|
-
return $
|
|
2485
|
+
return {a1: $1 => $2 => Prelude_EqOrd_x3dx3d_Eq_Char($1, $2), a2: $7 => $8 => Prelude_EqOrd_x2fx3d_Eq_Char($7, $8)};
|
|
2486
2486
|
});
|
|
2487
2487
|
|
|
2488
2488
|
/* {csegen:92} */
|
|
2489
2489
|
const csegen_92 = __lazy(function () {
|
|
2490
|
+
return $0 => $1 => ({a1: $0, a2: $1});
|
|
2491
|
+
});
|
|
2492
|
+
|
|
2493
|
+
/* {csegen:93} */
|
|
2494
|
+
const csegen_93 = __lazy(function () {
|
|
2490
2495
|
return $0 => $1 => $2 => $0($1($2));
|
|
2491
2496
|
});
|
|
2492
2497
|
|
|
2493
|
-
/* {csegen:
|
|
2494
|
-
const
|
|
2498
|
+
/* {csegen:95} */
|
|
2499
|
+
const csegen_95 = __lazy(function () {
|
|
2495
2500
|
return {a1: $1 => $2 => Prelude_Interfaces_Bool_Semigroup_x3cx2bx3e_Semigroup_AnyBool($1, $2), a2: 0};
|
|
2496
2501
|
});
|
|
2497
2502
|
|
|
2498
|
-
/* {csegen:
|
|
2499
|
-
const
|
|
2503
|
+
/* {csegen:145} */
|
|
2504
|
+
const csegen_145 = __lazy(function () {
|
|
2500
2505
|
return {a1: acc => elem => func => init => input => Prelude_Types_foldr_Foldable_List(func, init, input), a2: elem => acc => func => init => input => Prelude_Types_foldl_Foldable_List(func, init, input), a3: elem => $b => Prelude_Types_null_Foldable_List($b), a4: elem => acc => m => $f => funcM => init => input => Prelude_Types_foldlM_Foldable_List($f, funcM, init, input), a5: elem => $16 => $16, a6: a => m => $18 => f => $19 => Prelude_Types_foldMap_Foldable_List($18, f, $19)};
|
|
2501
2506
|
});
|
|
2502
2507
|
|
|
2503
|
-
/* {csegen:
|
|
2504
|
-
const
|
|
2508
|
+
/* {csegen:148} */
|
|
2509
|
+
const csegen_148 = __lazy(function () {
|
|
2505
2510
|
return $0 => BashCompletion_hashify(BashCompletion_slugify($0));
|
|
2506
2511
|
});
|
|
2507
2512
|
|
|
2508
|
-
/* {csegen:
|
|
2509
|
-
const
|
|
2513
|
+
/* {csegen:150} */
|
|
2514
|
+
const csegen_150 = __lazy(function () {
|
|
2510
2515
|
return {a1: '--completed', a2: {a1: 'graph', a2: {h: 0}}};
|
|
2511
2516
|
});
|
|
2512
2517
|
|
|
2513
|
-
/* {csegen:
|
|
2514
|
-
const
|
|
2518
|
+
/* {csegen:154} */
|
|
2519
|
+
const csegen_154 = __lazy(function () {
|
|
2515
2520
|
return {a1: {a1: '--checkout', a2: {a1: '-c', a2: {a1: '--ignore', a2: {a1: '-i', a2: {h: 0}}}}}};
|
|
2516
2521
|
});
|
|
2517
2522
|
|
|
2518
|
-
/* {csegen:
|
|
2519
|
-
const
|
|
2523
|
+
/* {csegen:156} */
|
|
2524
|
+
const csegen_156 = __lazy(function () {
|
|
2520
2525
|
return {a1: {a1: '--completed', a2: {a1: '-c', a2: {h: 0}}}};
|
|
2521
2526
|
});
|
|
2522
2527
|
|
|
2523
|
-
/* {csegen:
|
|
2524
|
-
const
|
|
2528
|
+
/* {csegen:203} */
|
|
2529
|
+
const csegen_203 = __lazy(function () {
|
|
2525
2530
|
return b => a => $0 => $1 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($0, $1);
|
|
2526
2531
|
});
|
|
2527
2532
|
|
|
2528
|
-
/* {csegen:
|
|
2529
|
-
const
|
|
2533
|
+
/* {csegen:204} */
|
|
2534
|
+
const csegen_204 = __lazy(function () {
|
|
2530
2535
|
return a => $0 => Prelude_Types_join_Monad_x28Eitherx20x24ex29($0);
|
|
2531
2536
|
});
|
|
2532
2537
|
|
|
2533
|
-
/* {csegen:
|
|
2534
|
-
const
|
|
2538
|
+
/* {csegen:205} */
|
|
2539
|
+
const csegen_205 = __lazy(function () {
|
|
2535
2540
|
return $0 => {
|
|
2536
2541
|
const $1 = JSON_Parser_parseJSON({h: 0}, $0);
|
|
2537
2542
|
switch($1.h) {
|
|
@@ -2541,33 +2546,33 @@ const csegen_200 = __lazy(function () {
|
|
|
2541
2546
|
};
|
|
2542
2547
|
});
|
|
2543
2548
|
|
|
2544
|
-
/* {csegen:
|
|
2545
|
-
const
|
|
2549
|
+
/* {csegen:206} */
|
|
2550
|
+
const csegen_206 = __lazy(function () {
|
|
2546
2551
|
return $0 => $1 => Prelude_Types_max_Ord_Nat($0, $1);
|
|
2547
2552
|
});
|
|
2548
2553
|
|
|
2549
|
-
/* {csegen:
|
|
2550
|
-
const
|
|
2554
|
+
/* {csegen:217} */
|
|
2555
|
+
const csegen_217 = __lazy(function () {
|
|
2551
2556
|
return {a1: csegen_39(), a2: $3 => $4 => Prelude_EqOrd_compare_Ord_String($3, $4), a3: $9 => $a => Prelude_EqOrd_x3c_Ord_String($9, $a), a4: $f => $10 => Prelude_EqOrd_x3e_Ord_String($f, $10), a5: $15 => $16 => Prelude_EqOrd_x3cx3d_Ord_String($15, $16), a6: $1b => $1c => Prelude_EqOrd_x3ex3d_Ord_String($1b, $1c), a7: $21 => $22 => Prelude_EqOrd_max_Ord_String($21, $22), a8: $27 => $28 => Prelude_EqOrd_min_Ord_String($27, $28)};
|
|
2552
2557
|
});
|
|
2553
2558
|
|
|
2554
|
-
/* {csegen:
|
|
2555
|
-
const
|
|
2559
|
+
/* {csegen:220} */
|
|
2560
|
+
const csegen_220 = __lazy(function () {
|
|
2556
2561
|
return {a1: $1 => $2 => Prelude_EqOrd_x3dx3d_Eq_Integer($1, $2), a2: $7 => $8 => Prelude_EqOrd_x2fx3d_Eq_Integer($7, $8)};
|
|
2557
2562
|
});
|
|
2558
2563
|
|
|
2559
|
-
/* {csegen:
|
|
2560
|
-
const
|
|
2564
|
+
/* {csegen:221} */
|
|
2565
|
+
const csegen_221 = __lazy(function () {
|
|
2561
2566
|
return $0 => $1 => Prelude_EqOrd_compare_Ord_Integer($0, $1);
|
|
2562
2567
|
});
|
|
2563
2568
|
|
|
2564
|
-
/* {csegen:
|
|
2565
|
-
const
|
|
2569
|
+
/* {csegen:229} */
|
|
2570
|
+
const csegen_229 = __lazy(function () {
|
|
2566
2571
|
return $0 => JSON_Parser_eqJSToken({h: 2 /* EOI */}, $0);
|
|
2567
2572
|
});
|
|
2568
2573
|
|
|
2569
|
-
/* {csegen:
|
|
2570
|
-
const
|
|
2574
|
+
/* {csegen:234} */
|
|
2575
|
+
const csegen_234 = __lazy(function () {
|
|
2571
2576
|
const $6 = a => b => {
|
|
2572
2577
|
switch(JSON_Parser_eqJSON(a, b)) {
|
|
2573
2578
|
case 1: return 0;
|
|
@@ -2577,184 +2582,179 @@ const csegen_229 = __lazy(function () {
|
|
|
2577
2582
|
return {a1: $1 => $2 => JSON_Parser_eqJSON($1, $2), a2: $6};
|
|
2578
2583
|
});
|
|
2579
2584
|
|
|
2580
|
-
/* {csegen:
|
|
2581
|
-
const
|
|
2585
|
+
/* {csegen:241} */
|
|
2586
|
+
const csegen_241 = __lazy(function () {
|
|
2582
2587
|
const $0 = a => $1 => $2 => ({h: 1 /* Fail0 */, a1: {a1: $2, a2: $1}});
|
|
2583
2588
|
return $6 => $7 => $0(undefined)($6)($7);
|
|
2584
2589
|
});
|
|
2585
2590
|
|
|
2586
|
-
/* {csegen:
|
|
2587
|
-
const
|
|
2591
|
+
/* {csegen:261} */
|
|
2592
|
+
const csegen_261 = __lazy(function () {
|
|
2588
2593
|
return {a1: acc => elem => func => init => input => Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29(func, init, input), a2: elem => acc => func => init => input => Prelude_Types_foldl_Foldable_x28Eitherx20x24ex29(func, init, input), a3: elem => $b => Prelude_Types_null_Foldable_x28Eitherx20x24ex29($b), a4: elem => acc => m => $f => funcM => init => input => Prelude_Types_foldlM_Foldable_x28Eitherx20x24ex29($f, funcM, init, input), a5: elem => $16 => Prelude_Types_toList_Foldable_x28Eitherx20x24ex29($16), a6: a => m => $1a => f => $1b => Prelude_Types_foldMap_Foldable_x28Eitherx20x24ex29($1a, f, $1b)};
|
|
2589
2594
|
});
|
|
2590
2595
|
|
|
2591
|
-
/* {csegen:
|
|
2592
|
-
const
|
|
2596
|
+
/* {csegen:265} */
|
|
2597
|
+
const csegen_265 = __lazy(function () {
|
|
2593
2598
|
return b => a => f => $0 => $1 => $2 => Prelude_Types_traverse_Traversable_x28Eitherx20x24ex29($0, $1, $2);
|
|
2594
2599
|
});
|
|
2595
2600
|
|
|
2596
|
-
/* {csegen:
|
|
2597
|
-
const
|
|
2601
|
+
/* {csegen:279} */
|
|
2602
|
+
const csegen_279 = __lazy(function () {
|
|
2598
2603
|
return {a1: $1 => $2 => _add32s($1, $2), a2: $6 => $7 => _mul32s($6, $7), a3: $b => Number(_truncBigInt32($b))};
|
|
2599
2604
|
});
|
|
2600
2605
|
|
|
2601
|
-
/* {csegen:294} */
|
|
2602
|
-
const csegen_294 = __lazy(function () {
|
|
2603
|
-
return {a1: Help_argument(0, '...'), a2: {h: 0}};
|
|
2604
|
-
});
|
|
2605
|
-
|
|
2606
2606
|
/* {csegen:299} */
|
|
2607
2607
|
const csegen_299 = __lazy(function () {
|
|
2608
|
-
return {a1: Help_argument(0, '
|
|
2608
|
+
return {a1: Help_argument(0, '...'), a2: {h: 0}};
|
|
2609
2609
|
});
|
|
2610
2610
|
|
|
2611
|
-
/* {csegen:
|
|
2612
|
-
const
|
|
2613
|
-
return {a1:
|
|
2611
|
+
/* {csegen:304} */
|
|
2612
|
+
const csegen_304 = __lazy(function () {
|
|
2613
|
+
return {a1: Help_argument(0, '#<label>'), a2: csegen_299()};
|
|
2614
2614
|
});
|
|
2615
2615
|
|
|
2616
|
-
/* {csegen:
|
|
2617
|
-
const
|
|
2618
|
-
return
|
|
2616
|
+
/* {csegen:310} */
|
|
2617
|
+
const csegen_310 = __lazy(function () {
|
|
2618
|
+
return {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Optionally apply any number of labels by prefixing them with \'#\'.'), a2: {h: 0}};
|
|
2619
2619
|
});
|
|
2620
2620
|
|
|
2621
|
-
/* {csegen:
|
|
2622
|
-
const
|
|
2621
|
+
/* {csegen:344} */
|
|
2622
|
+
const csegen_344 = __lazy(function () {
|
|
2623
2623
|
return {a1: Help_argument(1, '<team-slug>'), a2: {h: 0}};
|
|
2624
2624
|
});
|
|
2625
2625
|
|
|
2626
|
-
/* {csegen:
|
|
2627
|
-
const
|
|
2626
|
+
/* {csegen:396} */
|
|
2627
|
+
const csegen_396 = __lazy(function () {
|
|
2628
2628
|
return $0 => $1 => $2 => $3 => Data_Promise_x3ex3ex3d_Monad_Promise($0, $1, $2, $3);
|
|
2629
2629
|
});
|
|
2630
2630
|
|
|
2631
|
-
/* {csegen:
|
|
2632
|
-
const
|
|
2631
|
+
/* {csegen:397} */
|
|
2632
|
+
const csegen_397 = __lazy(function () {
|
|
2633
2633
|
return $0 => $1 => Data_Promise_either(csegen_51(), Data_PullRequest_parsePullRequestsString($0), $1);
|
|
2634
2634
|
});
|
|
2635
2635
|
|
|
2636
|
-
/* {csegen:
|
|
2637
|
-
const
|
|
2636
|
+
/* {csegen:398} */
|
|
2637
|
+
const csegen_398 = __lazy(function () {
|
|
2638
2638
|
return $0 => $1 => Data_Promise_either(csegen_51(), Data_User_parseUserString($0), $1);
|
|
2639
2639
|
});
|
|
2640
2640
|
|
|
2641
|
-
/* {csegen:
|
|
2642
|
-
const
|
|
2641
|
+
/* {csegen:403} */
|
|
2642
|
+
const csegen_403 = __lazy(function () {
|
|
2643
2643
|
return $0 => $1 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($0, $1);
|
|
2644
2644
|
});
|
|
2645
2645
|
|
|
2646
|
-
/* {csegen:
|
|
2647
|
-
const
|
|
2646
|
+
/* {csegen:416} */
|
|
2647
|
+
const csegen_416 = __lazy(function () {
|
|
2648
2648
|
return $0 => Language_JSON_Accessors_array($3 => Data_PullRequest_parsePR($3), $0);
|
|
2649
2649
|
});
|
|
2650
2650
|
|
|
2651
|
-
/* {csegen:
|
|
2652
|
-
const
|
|
2651
|
+
/* {csegen:424} */
|
|
2652
|
+
const csegen_424 = __lazy(function () {
|
|
2653
2653
|
return $0 => $1 => $2 => Data_Promise_pure_Applicative_Promise($0, $1, $2);
|
|
2654
2654
|
});
|
|
2655
2655
|
|
|
2656
|
-
/* {csegen:
|
|
2657
|
-
const
|
|
2656
|
+
/* {csegen:425} */
|
|
2657
|
+
const csegen_425 = __lazy(function () {
|
|
2658
2658
|
return $0 => Prelude_EqOrd_x3dx3d_Eq_Char($0, '/');
|
|
2659
2659
|
});
|
|
2660
2660
|
|
|
2661
|
-
/* {csegen:
|
|
2662
|
-
const
|
|
2661
|
+
/* {csegen:426} */
|
|
2662
|
+
const csegen_426 = __lazy(function () {
|
|
2663
2663
|
return $0 => $0.a2;
|
|
2664
2664
|
});
|
|
2665
2665
|
|
|
2666
|
-
/* {csegen:
|
|
2667
|
-
const
|
|
2666
|
+
/* {csegen:430} */
|
|
2667
|
+
const csegen_430 = __lazy(function () {
|
|
2668
2668
|
return $0 => $0.a1;
|
|
2669
2669
|
});
|
|
2670
2670
|
|
|
2671
|
-
/* {csegen:
|
|
2672
|
-
const
|
|
2671
|
+
/* {csegen:441} */
|
|
2672
|
+
const csegen_441 = __lazy(function () {
|
|
2673
2673
|
return $0 => $1 => Data_Promise_map_Functor_Promise($4 => Number(_truncUBigInt32($4)), System_time(csegen_72()), $0, $1);
|
|
2674
2674
|
});
|
|
2675
2675
|
|
|
2676
|
-
/* {csegen:
|
|
2677
|
-
const
|
|
2676
|
+
/* {csegen:446} */
|
|
2677
|
+
const csegen_446 = __lazy(function () {
|
|
2678
2678
|
return $0 => $1 => $2 => $3 => Prelude_Types_map_Functor_Maybe($2, $3);
|
|
2679
2679
|
});
|
|
2680
2680
|
|
|
2681
|
-
/* {csegen:
|
|
2682
|
-
const
|
|
2681
|
+
/* {csegen:459} */
|
|
2682
|
+
const csegen_459 = __lazy(function () {
|
|
2683
2683
|
return $0 => $1 => $2 => Data_Promise_liftIO_HasIO_Promise($5 => Prelude_IO_prim__getStr($5), $0, $1, $2);
|
|
2684
2684
|
});
|
|
2685
2685
|
|
|
2686
|
-
/* {csegen:
|
|
2687
|
-
const
|
|
2686
|
+
/* {csegen:461} */
|
|
2687
|
+
const csegen_461 = __lazy(function () {
|
|
2688
2688
|
return $0 => $1 => Data_Promise_pure_Applicative_Promise({h: 0}, $0, $1);
|
|
2689
2689
|
});
|
|
2690
2690
|
|
|
2691
|
-
/* {csegen:
|
|
2692
|
-
const
|
|
2691
|
+
/* {csegen:489} */
|
|
2692
|
+
const csegen_489 = __lazy(function () {
|
|
2693
2693
|
return {a1: csegen_9(), a2: a => ({h: 0}), a3: a => $4 => $5 => Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, $5)};
|
|
2694
2694
|
});
|
|
2695
2695
|
|
|
2696
|
-
/* {csegen:
|
|
2697
|
-
const
|
|
2698
|
-
return $0 => Data_List_sort(
|
|
2696
|
+
/* {csegen:490} */
|
|
2697
|
+
const csegen_490 = __lazy(function () {
|
|
2698
|
+
return $0 => Data_List_sort(csegen_217(), $0);
|
|
2699
2699
|
});
|
|
2700
2700
|
|
|
2701
|
-
/* {csegen:
|
|
2702
|
-
const
|
|
2703
|
-
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(
|
|
2701
|
+
/* {csegen:491} */
|
|
2702
|
+
const csegen_491 = __lazy(function () {
|
|
2703
|
+
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_145(), $0, $1, $2);
|
|
2704
2704
|
});
|
|
2705
2705
|
|
|
2706
|
-
/* {csegen:
|
|
2707
|
-
const
|
|
2706
|
+
/* {csegen:499} */
|
|
2707
|
+
const csegen_499 = __lazy(function () {
|
|
2708
2708
|
return $0 => $0.a1;
|
|
2709
2709
|
});
|
|
2710
2710
|
|
|
2711
|
-
/* {csegen:
|
|
2712
|
-
const
|
|
2711
|
+
/* {csegen:501} */
|
|
2712
|
+
const csegen_501 = __lazy(function () {
|
|
2713
2713
|
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2714
2714
|
});
|
|
2715
2715
|
|
|
2716
|
-
/* {csegen:
|
|
2717
|
-
const
|
|
2716
|
+
/* {csegen:502} */
|
|
2717
|
+
const csegen_502 = __lazy(function () {
|
|
2718
2718
|
return $0 => $0.a2;
|
|
2719
2719
|
});
|
|
2720
2720
|
|
|
2721
|
-
/* {csegen:
|
|
2722
|
-
const
|
|
2723
|
-
return $0 => $1 => Prelude_Basics_on(
|
|
2721
|
+
/* {csegen:503} */
|
|
2722
|
+
const csegen_503 = __lazy(function () {
|
|
2723
|
+
return $0 => $1 => Prelude_Basics_on(csegen_501(), csegen_502(), $0, $1);
|
|
2724
2724
|
});
|
|
2725
2725
|
|
|
2726
|
-
/* {csegen:
|
|
2727
|
-
const
|
|
2726
|
+
/* {csegen:516} */
|
|
2727
|
+
const csegen_516 = __lazy(function () {
|
|
2728
2728
|
return $0 => $0.a2;
|
|
2729
2729
|
});
|
|
2730
2730
|
|
|
2731
|
-
/* {csegen:
|
|
2732
|
-
const
|
|
2731
|
+
/* {csegen:519} */
|
|
2732
|
+
const csegen_519 = __lazy(function () {
|
|
2733
2733
|
return $0 => $0.a1;
|
|
2734
2734
|
});
|
|
2735
2735
|
|
|
2736
|
-
/* {csegen:
|
|
2737
|
-
const
|
|
2736
|
+
/* {csegen:525} */
|
|
2737
|
+
const csegen_525 = __lazy(function () {
|
|
2738
2738
|
return date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('earliest:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date(date)), a2: {h: 0}}}));
|
|
2739
2739
|
});
|
|
2740
2740
|
|
|
2741
|
-
/* {csegen:
|
|
2742
|
-
const
|
|
2741
|
+
/* {csegen:555} */
|
|
2742
|
+
const csegen_555 = __lazy(function () {
|
|
2743
2743
|
return $0 => Util_yesNoPrompt(csegen_72(), 'Would you like to continue creating a Pull Request anyway?');
|
|
2744
2744
|
});
|
|
2745
2745
|
|
|
2746
|
-
/* {csegen:
|
|
2747
|
-
const
|
|
2746
|
+
/* {csegen:590} */
|
|
2747
|
+
const csegen_590 = __lazy(function () {
|
|
2748
2748
|
return $0 => $0.a1;
|
|
2749
2749
|
});
|
|
2750
2750
|
|
|
2751
|
-
/* {csegen:
|
|
2752
|
-
const
|
|
2751
|
+
/* {csegen:602} */
|
|
2752
|
+
const csegen_602 = __lazy(function () {
|
|
2753
2753
|
return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}};
|
|
2754
2754
|
});
|
|
2755
2755
|
|
|
2756
|
-
/* {csegen:
|
|
2757
|
-
const
|
|
2756
|
+
/* {csegen:621} */
|
|
2757
|
+
const csegen_621 = __lazy(function () {
|
|
2758
2758
|
return {a1: ann => $1 => Graph_pretty_Pretty_Date($1), a2: ann => $5 => $6 => Graph_prettyPrec_Pretty_Date($5, $6)};
|
|
2759
2759
|
});
|
|
2760
2760
|
|
|
@@ -2763,18 +2763,18 @@ function prim__sub_Integer($0, $1) {
|
|
|
2763
2763
|
return ($0-$1);
|
|
2764
2764
|
}
|
|
2765
2765
|
|
|
2766
|
-
/* Main.
|
|
2767
|
-
function
|
|
2766
|
+
/* Main.8436:1484:parsePg */
|
|
2767
|
+
function Main_n__8436_1484_parsePg($0, $1, $2, $3, $4, $5, $6) {
|
|
2768
2768
|
return Data_String_parsePositive(csegen_2(), $6);
|
|
2769
2769
|
}
|
|
2770
2770
|
|
|
2771
|
-
/* Main.
|
|
2772
|
-
function
|
|
2771
|
+
/* Main.8436:1483:parseLim */
|
|
2772
|
+
function Main_n__8436_1483_parseLim($0, $1, $2, $3, $4, $5) {
|
|
2773
2773
|
return Prelude_Interfaces_x3cx3dx3c(csegen_14(), x => Data_Fin_natToFin(x, 101n), $e => Data_String_parsePositive(csegen_2(), $e));
|
|
2774
2774
|
}
|
|
2775
2775
|
|
|
2776
|
-
/* Main.
|
|
2777
|
-
function
|
|
2776
|
+
/* Main.8297:1285:configuredOpts */
|
|
2777
|
+
function Main_n__8297_1285_configuredOpts($0, $1, $2, $3) {
|
|
2778
2778
|
const $11 = $12 => {
|
|
2779
2779
|
switch($12.h) {
|
|
2780
2780
|
case 1: /* Right */ return $0.a1.a1.a2(undefined)(BashCompletion_opts($12.a1, $3, $2, $1));
|
|
@@ -2811,6 +2811,17 @@ function Main_resolvex27x27($0) {
|
|
|
2811
2811
|
return Data_Promise_resolvex27($3 => $4 => $3, $6 => Main_exitError(csegen_31(), $6), $0);
|
|
2812
2812
|
}
|
|
2813
2813
|
|
|
2814
|
+
/* Main.printWarning : HasIO io => String -> io () */
|
|
2815
|
+
function Main_printWarning($0, $1) {
|
|
2816
|
+
const $f = $10 => {
|
|
2817
|
+
switch($10) {
|
|
2818
|
+
case 1: return $0.a1.a2(undefined)(undefined)($0.a1.a1.a1(undefined)(undefined)($25 => (undefined))(System_File_ReadWrite_fPutStrLn($0, System_File_Virtual_stderr(), Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString(Text_PrettyPrint_Prettyprinter_Doc_layoutPretty(Text_PrettyPrint_Prettyprinter_Doc_defaultLayoutOptions(), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_String_trim($1))))))))($3c => $0.a1.a1.a1(undefined)(undefined)($47 => (undefined))(System_File_ReadWrite_fPutStrLn($0, System_File_Virtual_stderr(), '')));
|
|
2819
|
+
case 0: return $0.a1.a2(undefined)(undefined)($0.a1.a1.a1(undefined)(undefined)($61 => (undefined))(System_File_ReadWrite_fPutStrLn($0, System_File_Virtual_stderr(), $1)))($69 => $0.a1.a1.a1(undefined)(undefined)($74 => (undefined))(System_File_ReadWrite_fPutStrLn($0, System_File_Virtual_stderr(), '')));
|
|
2820
|
+
}
|
|
2821
|
+
};
|
|
2822
|
+
return $0.a1.a2(undefined)(undefined)(System_File_Meta_isTTY($0, System_File_Virtual_stderr()))($f);
|
|
2823
|
+
}
|
|
2824
|
+
|
|
2814
2825
|
/* Main.main : IO () */
|
|
2815
2826
|
function Main_main($0) {
|
|
2816
2827
|
const $1 = Main_shouldUseColors(csegen_31())($0);
|
|
@@ -2873,7 +2884,7 @@ function Main_handleConfiguredArgs($0, $1, $2, $3) {
|
|
|
2873
2884
|
switch($3.a1) {
|
|
2874
2885
|
case 'config': {
|
|
2875
2886
|
switch($3.a2.h) {
|
|
2876
|
-
case 0: /* nil */ return $7 => $8 => Data_Promise_reject(('The config command expects one or two arguments. '+('Specify a property to read out or a property and a value to set it to.'+('\n\n'+Config_settablePropsWithHelp($0)))), $7, $8);
|
|
2887
|
+
case 0: /* nil */ return $7 => $8 => Data_Promise_reject(('The config command expects one or two arguments. '+('Specify a property to read it out or specify both a property and a value to set it to.'+('\n\n'+Config_settablePropsWithHelp($0)))), $7, $8);
|
|
2877
2888
|
case undefined: /* cons */ {
|
|
2878
2889
|
return $15 => {
|
|
2879
2890
|
switch($3.a2.a2.h) {
|
|
@@ -3016,7 +3027,7 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3016
3027
|
}
|
|
3017
3028
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe($b1, filter => ({a1: {a1: filter, a2: {a1: $ae.a1, a2: $ae.a2}}}));
|
|
3018
3029
|
};
|
|
3019
|
-
const $8e = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $96 => $97 => ({a1: $96, a2: $97})},
|
|
3030
|
+
const $8e = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $96 => $97 => ({a1: $96, a2: $97})}, Main_n__8436_1483_parseLim($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0)($3.a2.a2.a2.a1)), Main_n__8436_1484_parsePg($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0, $3.a2.a2.a2.a2.a1)), $ad);
|
|
3020
3031
|
return $be => {
|
|
3021
3032
|
switch($8e.h) {
|
|
3022
3033
|
case undefined: /* just */ return $c0 => Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequestsJsonStr($2, $0.a2, $0.a3, $8e.a1.a1, $8e.a1.a2.a1, $8e.a1.a2.a2), pullsJsonStr => $cf => $d0 => $d1 => Data_Promise_liftIO_HasIO_Promise($d4 => Prelude_IO_prim__putStr(pullsJsonStr, $d4), $cf, $d0, $d1), $be, $c0);
|
|
@@ -3152,29 +3163,42 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3152
3163
|
}
|
|
3153
3164
|
}
|
|
3154
3165
|
case 'assign': {
|
|
3166
|
+
return $2d7 => $2d8 => {
|
|
3167
|
+
switch($3.a2.h) {
|
|
3168
|
+
case undefined: /* cons */ {
|
|
3169
|
+
switch($3.a2.a1) {
|
|
3170
|
+
case '--dry': return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_73(), $2df => Commands_request($0, $1, $2, $3.a2.a2, 1), $2d7, $2d8);
|
|
3171
|
+
default: return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_73(), $2ec => Commands_request($0, $1, $2, $3.a2, 0), $2d7, $2d8);
|
|
3172
|
+
}
|
|
3173
|
+
}
|
|
3174
|
+
default: return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_73(), $2f9 => Commands_request($0, $1, $2, $3.a2, 0), $2d7, $2d8);
|
|
3175
|
+
}
|
|
3176
|
+
};
|
|
3177
|
+
}
|
|
3178
|
+
case 'request': {
|
|
3155
3179
|
switch($3.a2.h) {
|
|
3156
3180
|
case undefined: /* cons */ {
|
|
3157
3181
|
switch($3.a2.a1) {
|
|
3158
|
-
case '--dry': return
|
|
3159
|
-
default: return
|
|
3182
|
+
case '--dry': return Commands_request($0, $1, $2, $3.a2.a2, 1);
|
|
3183
|
+
default: return Commands_request($0, $1, $2, $3.a2, 0);
|
|
3160
3184
|
}
|
|
3161
3185
|
}
|
|
3162
|
-
default: return
|
|
3186
|
+
default: return Commands_request($0, $1, $2, $3.a2, 0);
|
|
3163
3187
|
}
|
|
3164
3188
|
}
|
|
3165
3189
|
case 'label': {
|
|
3166
|
-
return $
|
|
3190
|
+
return $316 => $317 => {
|
|
3167
3191
|
switch($3.a2.h) {
|
|
3168
|
-
case 0: /* nil */ return Data_Promise_reject('The label command expects one or more labels as arguments.', $
|
|
3169
|
-
case undefined: /* cons */ return Commands_label($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2}, $
|
|
3170
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_49(), $
|
|
3192
|
+
case 0: /* nil */ return Data_Promise_reject('The label command expects one or more labels as arguments.', $316, $317);
|
|
3193
|
+
case undefined: /* cons */ return Commands_label($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2}, $316, $317);
|
|
3194
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_49(), $32c => $32c, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_51(), $3), a2: {a1: '.', a2: {h: 0}}}}), $316, $317);
|
|
3171
3195
|
}
|
|
3172
3196
|
};
|
|
3173
3197
|
}
|
|
3174
|
-
default: return $
|
|
3198
|
+
default: return $33a => $33b => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_49(), $342 => $342, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_51(), $3), a2: {a1: '.', a2: {h: 0}}}}), $33a, $33b);
|
|
3175
3199
|
}
|
|
3176
3200
|
}
|
|
3177
|
-
default: return $
|
|
3201
|
+
default: return $350 => $351 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_49(), $358 => $358, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_51(), $3), a2: {a1: '.', a2: {h: 0}}}}), $350, $351);
|
|
3178
3202
|
}
|
|
3179
3203
|
}
|
|
3180
3204
|
|
|
@@ -3245,7 +3269,7 @@ function Main_exitError($0, $1) {
|
|
|
3245
3269
|
|
|
3246
3270
|
/* Main.bashCompletion : HasIO io => String -> String -> String -> io () */
|
|
3247
3271
|
function Main_bashCompletion($0, $1, $2, $3) {
|
|
3248
|
-
const $4 = Prelude_Types_maybe(() =>
|
|
3272
|
+
const $4 = Prelude_Types_maybe(() => Main_n__8297_1285_configuredOpts($0, $3, $2, $1), () => $d => $0.a1.a1.a2(undefined)($d), BashCompletion_cmdOpts($1, $2, $3));
|
|
3249
3273
|
return $0.a1.a2(undefined)(undefined)($4)($24 => $0.a2(undefined)($2a => Prelude_IO_prim__putStr(Data_String_fastUnlines($24), $2a)));
|
|
3250
3274
|
}
|
|
3251
3275
|
|
|
@@ -3616,7 +3640,7 @@ function Text_PrettyPrint_Prettyprinter_Doc_hsep($0) {
|
|
|
3616
3640
|
|
|
3617
3641
|
/* Text.PrettyPrint.Prettyprinter.Doc.hcat : List (Doc ann) -> Doc ann */
|
|
3618
3642
|
function Text_PrettyPrint_Prettyprinter_Doc_hcat($0) {
|
|
3619
|
-
return Text_PrettyPrint_Prettyprinter_Doc_concatWith(
|
|
3643
|
+
return Text_PrettyPrint_Prettyprinter_Doc_concatWith(csegen_86(), $0);
|
|
3620
3644
|
}
|
|
3621
3645
|
|
|
3622
3646
|
/* Text.PrettyPrint.Prettyprinter.Doc.hardline : Doc ann */
|
|
@@ -3675,10 +3699,10 @@ function Text_PrettyPrint_Prettyprinter_Doc_encloseSep($0, $1, $2, $3) {
|
|
|
3675
3699
|
case undefined: /* cons */ {
|
|
3676
3700
|
switch($3.a2.h) {
|
|
3677
3701
|
case 0: /* nil */ return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29($0, $3.a1), $1);
|
|
3678
|
-
default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(
|
|
3702
|
+
default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(csegen_86(), {a1: $0, a2: Data_List_replicateTR({h: 0}, Prelude_Types_prim__integerToNat((Prelude_Types_List_lengthTR($3)-1n)), $2)}, $3)), $1);
|
|
3679
3703
|
}
|
|
3680
3704
|
}
|
|
3681
|
-
default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(
|
|
3705
|
+
default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(csegen_86(), {a1: $0, a2: Data_List_replicateTR({h: 0}, Prelude_Types_prim__integerToNat((Prelude_Types_List_lengthTR($3)-1n)), $2)}, $3)), $1);
|
|
3682
3706
|
}
|
|
3683
3707
|
}
|
|
3684
3708
|
|
|
@@ -3928,12 +3952,12 @@ function Data_String_lines($0) {
|
|
|
3928
3952
|
|
|
3929
3953
|
/* Data.String.isSuffixOf : String -> String -> Bool */
|
|
3930
3954
|
function Data_String_isSuffixOf($0, $1) {
|
|
3931
|
-
return Data_List_isSuffixOf(
|
|
3955
|
+
return Data_List_isSuffixOf(csegen_91(), Prelude_Types_fastUnpack($0), Prelude_Types_fastUnpack($1));
|
|
3932
3956
|
}
|
|
3933
3957
|
|
|
3934
3958
|
/* Data.String.isPrefixOf : String -> String -> Bool */
|
|
3935
3959
|
function Data_String_isPrefixOf($0, $1) {
|
|
3936
|
-
return Data_List_isPrefixOf(
|
|
3960
|
+
return Data_List_isPrefixOf(csegen_91(), Prelude_Types_fastUnpack($0), Prelude_Types_fastUnpack($1));
|
|
3937
3961
|
}
|
|
3938
3962
|
|
|
3939
3963
|
/* Data.String.fastUnlines : List String -> String */
|
|
@@ -4021,7 +4045,7 @@ function Builtin_fst($0) {
|
|
|
4021
4045
|
function Prelude_Types_traverse_Traversable_List($0, $1, $2) {
|
|
4022
4046
|
switch($2.h) {
|
|
4023
4047
|
case 0: /* nil */ return $0.a2(undefined)({h: 0});
|
|
4024
|
-
case undefined: /* cons */ return $0.a3(undefined)(undefined)($0.a3(undefined)(undefined)($0.a2(undefined)(
|
|
4048
|
+
case undefined: /* cons */ return $0.a3(undefined)(undefined)($0.a3(undefined)(undefined)($0.a2(undefined)(csegen_92()))($1($2.a1)))(Prelude_Types_traverse_Traversable_List($0, $1, $2.a2));
|
|
4025
4049
|
}
|
|
4026
4050
|
}
|
|
4027
4051
|
|
|
@@ -4035,12 +4059,12 @@ function Prelude_Types_traverse_Traversable_x28Eitherx20x24ex29($0, $1, $2) {
|
|
|
4035
4059
|
|
|
4036
4060
|
/* Prelude.Types.toList */
|
|
4037
4061
|
function Prelude_Types_toList_Foldable_Maybe($0) {
|
|
4038
|
-
return Prelude_Types_foldr_Foldable_Maybe(
|
|
4062
|
+
return Prelude_Types_foldr_Foldable_Maybe(csegen_92(), {h: 0}, $0);
|
|
4039
4063
|
}
|
|
4040
4064
|
|
|
4041
4065
|
/* Prelude.Types.toList */
|
|
4042
4066
|
function Prelude_Types_toList_Foldable_x28Eitherx20x24ex29($0) {
|
|
4043
|
-
return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29(
|
|
4067
|
+
return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29(csegen_92(), {h: 0}, $0);
|
|
4044
4068
|
}
|
|
4045
4069
|
|
|
4046
4070
|
/* Prelude.Types.rangeFromTo */
|
|
@@ -4174,7 +4198,7 @@ function Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29($0, $1, $2) {
|
|
|
4174
4198
|
|
|
4175
4199
|
/* Prelude.Types.foldl */
|
|
4176
4200
|
function Prelude_Types_foldl_Foldable_x28Eitherx20x24ex29($0, $1, $2) {
|
|
4177
|
-
return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29($6 => $7 => Prelude_Basics_flip(
|
|
4201
|
+
return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29($6 => $7 => Prelude_Basics_flip(csegen_93(), $c => Prelude_Basics_flip($0, $6, $c), $7), $13 => $13, $2)($1);
|
|
4178
4202
|
}
|
|
4179
4203
|
|
|
4180
4204
|
/* Prelude.Types.foldlM */
|
|
@@ -4446,7 +4470,7 @@ function Prelude_Types_isAlpha($0) {
|
|
|
4446
4470
|
|
|
4447
4471
|
/* Prelude.Types.elemBy : Foldable t => (a -> a -> Bool) -> a -> t a -> Bool */
|
|
4448
4472
|
function Prelude_Types_elemBy($0, $1, $2, $3) {
|
|
4449
|
-
return $0.a6(undefined)(undefined)(
|
|
4473
|
+
return $0.a6(undefined)(undefined)(csegen_95())($1($2))($3);
|
|
4450
4474
|
}
|
|
4451
4475
|
|
|
4452
4476
|
/* Prelude.Types.elem : Foldable t => Eq a => a -> t a -> Bool */
|
|
@@ -5759,7 +5783,7 @@ const ZshCompletion_script = __lazy(function () {
|
|
|
5759
5783
|
});
|
|
5760
5784
|
|
|
5761
5785
|
/* BashCompletion.case block in case block in unhashify */
|
|
5762
|
-
function
|
|
5786
|
+
function BashCompletion_case__casex20blockx20inx20unhashify_9349($0, $1, $2) {
|
|
5763
5787
|
switch($0) {
|
|
5764
5788
|
case '': {
|
|
5765
5789
|
switch($2.h) {
|
|
@@ -5782,7 +5806,7 @@ function BashCompletion_case__casex20blockx20inx20unhashify_9344($0, $1, $2) {
|
|
|
5782
5806
|
}
|
|
5783
5807
|
|
|
5784
5808
|
/* BashCompletion.case block in unhashify */
|
|
5785
|
-
function
|
|
5809
|
+
function BashCompletion_case__unhashify_9329($0, $1) {
|
|
5786
5810
|
switch($0) {
|
|
5787
5811
|
case '': {
|
|
5788
5812
|
switch($1.h) {
|
|
@@ -5792,7 +5816,7 @@ function BashCompletion_case__unhashify_9324($0, $1) {
|
|
|
5792
5816
|
case '#': return $1.a2;
|
|
5793
5817
|
case '\u{5c}': {
|
|
5794
5818
|
const $6 = ('\u{5c}'+$1.a2);
|
|
5795
|
-
return
|
|
5819
|
+
return BashCompletion_case__casex20blockx20inx20unhashify_9349($1.a2, $6, Data_String_strM($1.a2));
|
|
5796
5820
|
}
|
|
5797
5821
|
default: return $0;
|
|
5798
5822
|
}
|
|
@@ -5804,7 +5828,7 @@ function BashCompletion_case__unhashify_9324($0, $1) {
|
|
|
5804
5828
|
case '#': return $1.a2;
|
|
5805
5829
|
case '\u{5c}': {
|
|
5806
5830
|
const $11 = ('\u{5c}'+$1.a2);
|
|
5807
|
-
return
|
|
5831
|
+
return BashCompletion_case__casex20blockx20inx20unhashify_9349($1.a2, $11, Data_String_strM($1.a2));
|
|
5808
5832
|
}
|
|
5809
5833
|
default: return $0;
|
|
5810
5834
|
}
|
|
@@ -5812,13 +5836,26 @@ function BashCompletion_case__unhashify_9324($0, $1) {
|
|
|
5812
5836
|
}
|
|
5813
5837
|
}
|
|
5814
5838
|
|
|
5815
|
-
/* BashCompletion.
|
|
5816
|
-
function
|
|
5839
|
+
/* BashCompletion.4751:10151:slugsOrLoginsOrLabels */
|
|
5840
|
+
function BashCompletion_n__4751_10151_slugsOrLoginsOrLabels($0, $1, $2) {
|
|
5841
|
+
switch(Data_String_isPrefixOf('+', $1)) {
|
|
5842
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, $a => ('+'+$a), $2.a11);
|
|
5843
|
+
case 0: {
|
|
5844
|
+
switch(BashCompletion_isHashPrefix($1)) {
|
|
5845
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_148(), $2.a10);
|
|
5846
|
+
case 0: return $2.a9;
|
|
5847
|
+
}
|
|
5848
|
+
}
|
|
5849
|
+
}
|
|
5850
|
+
}
|
|
5851
|
+
|
|
5852
|
+
/* BashCompletion.4751:10039:slugsOrLoginsOrLabels */
|
|
5853
|
+
function BashCompletion_n__4751_10039_slugsOrLoginsOrLabels($0, $1, $2) {
|
|
5817
5854
|
switch(Data_String_isPrefixOf('+', $1)) {
|
|
5818
5855
|
case 1: return Prelude_Types_List_mapAppend({h: 0}, $a => ('+'+$a), $2.a11);
|
|
5819
5856
|
case 0: {
|
|
5820
5857
|
switch(BashCompletion_isHashPrefix($1)) {
|
|
5821
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0},
|
|
5858
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_148(), $2.a10);
|
|
5822
5859
|
case 0: return $2.a9;
|
|
5823
5860
|
}
|
|
5824
5861
|
}
|
|
@@ -5827,17 +5864,17 @@ function BashCompletion_n__4641_10034_slugsOrLoginsOrLabels($0, $1, $2) {
|
|
|
5827
5864
|
|
|
5828
5865
|
/* BashCompletion.unslugify : String -> String */
|
|
5829
5866
|
function BashCompletion_unslugify($0) {
|
|
5830
|
-
return Prelude_Types_fastPack(Data_List_replaceOn(
|
|
5867
|
+
return Prelude_Types_fastPack(Data_List_replaceOn(csegen_91(), '\u{25cc}', ' ', Prelude_Types_fastUnpack($0)));
|
|
5831
5868
|
}
|
|
5832
5869
|
|
|
5833
5870
|
/* BashCompletion.unhashify : String -> String */
|
|
5834
5871
|
function BashCompletion_unhashify($0) {
|
|
5835
|
-
return
|
|
5872
|
+
return BashCompletion_case__unhashify_9329($0, Data_String_strM($0));
|
|
5836
5873
|
}
|
|
5837
5874
|
|
|
5838
5875
|
/* BashCompletion.slugify : String -> String */
|
|
5839
5876
|
function BashCompletion_slugify($0) {
|
|
5840
|
-
return Prelude_Types_fastPack(Data_List_replaceOn(
|
|
5877
|
+
return Prelude_Types_fastPack(Data_List_replaceOn(csegen_91(), ' ', '\u{25cc}', Prelude_Types_fastUnpack($0)));
|
|
5841
5878
|
}
|
|
5842
5879
|
|
|
5843
5880
|
/* BashCompletion.script : String */
|
|
@@ -5913,7 +5950,7 @@ function BashCompletion_opts($0, $1, $2, $3) {
|
|
|
5913
5950
|
case 'graph': return {a1: '--completed', a2: $0.a9};
|
|
5914
5951
|
case '--completed': return $0.a9;
|
|
5915
5952
|
default: {
|
|
5916
|
-
switch(Data_Maybe_isJust(Data_List_find($59 => Prelude_EqOrd_x3dx3d_Eq_String($59, $3),
|
|
5953
|
+
switch(Data_Maybe_isJust(Data_List_find($59 => Prelude_EqOrd_x3dx3d_Eq_String($59, $3), csegen_150()))) {
|
|
5917
5954
|
case 1: return Prelude_Types_List_filterAppend({h: 0}, $62 => Data_String_isPrefixOf($2, $62), $0.a9);
|
|
5918
5955
|
case 0: return {h: 0};
|
|
5919
5956
|
}
|
|
@@ -5921,7 +5958,7 @@ function BashCompletion_opts($0, $1, $2, $3) {
|
|
|
5921
5958
|
}
|
|
5922
5959
|
}
|
|
5923
5960
|
default: {
|
|
5924
|
-
switch(Data_Maybe_isJust(Data_List_find($6d => Prelude_EqOrd_x3dx3d_Eq_String($6d, $3),
|
|
5961
|
+
switch(Data_Maybe_isJust(Data_List_find($6d => Prelude_EqOrd_x3dx3d_Eq_String($6d, $3), csegen_150()))) {
|
|
5925
5962
|
case 1: return Prelude_Types_List_filterAppend({h: 0}, $76 => Data_String_isPrefixOf($2, $76), $0.a9);
|
|
5926
5963
|
case 0: return {h: 0};
|
|
5927
5964
|
}
|
|
@@ -5930,7 +5967,7 @@ function BashCompletion_opts($0, $1, $2, $3) {
|
|
|
5930
5967
|
}
|
|
5931
5968
|
case 'pr': {
|
|
5932
5969
|
switch(BashCompletion_isHashPrefix($2)) {
|
|
5933
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0},
|
|
5970
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_148(), $0.a10);
|
|
5934
5971
|
case 0: return {h: 0};
|
|
5935
5972
|
}
|
|
5936
5973
|
}
|
|
@@ -5945,7 +5982,23 @@ function BashCompletion_opts($0, $1, $2, $3) {
|
|
|
5945
5982
|
default: {
|
|
5946
5983
|
switch(Data_String_isPrefixOf($2, '--dry')) {
|
|
5947
5984
|
case 1: return {a1: '--dry', a2: {h: 0}};
|
|
5948
|
-
case 0: return
|
|
5985
|
+
case 0: return BashCompletion_n__4751_10039_slugsOrLoginsOrLabels($3, $2, $0);
|
|
5986
|
+
}
|
|
5987
|
+
}
|
|
5988
|
+
}
|
|
5989
|
+
}
|
|
5990
|
+
case 'request': {
|
|
5991
|
+
switch($2) {
|
|
5992
|
+
case '--': {
|
|
5993
|
+
switch($3) {
|
|
5994
|
+
case 'request': return {a1: '--dry', a2: $0.a9};
|
|
5995
|
+
default: return $0.a9;
|
|
5996
|
+
}
|
|
5997
|
+
}
|
|
5998
|
+
default: {
|
|
5999
|
+
switch(Data_String_isPrefixOf($2, '--dry')) {
|
|
6000
|
+
case 1: return {a1: '--dry', a2: {h: 0}};
|
|
6001
|
+
case 0: return BashCompletion_n__4751_10151_slugsOrLoginsOrLabels($3, $2, $0);
|
|
5949
6002
|
}
|
|
5950
6003
|
}
|
|
5951
6004
|
}
|
|
@@ -6068,8 +6121,8 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6068
6121
|
}
|
|
6069
6122
|
case 'contribute': {
|
|
6070
6123
|
switch($1) {
|
|
6071
|
-
case '-': return
|
|
6072
|
-
case '--': return
|
|
6124
|
+
case '-': return csegen_154();
|
|
6125
|
+
case '--': return csegen_154();
|
|
6073
6126
|
default: {
|
|
6074
6127
|
switch(Data_String_isPrefixOf($1, '--checkout')) {
|
|
6075
6128
|
case 1: return {a1: {a1: '--checkout', a2: {h: 0}}};
|
|
@@ -6086,7 +6139,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6086
6139
|
case 'graph': {
|
|
6087
6140
|
switch($1) {
|
|
6088
6141
|
case '--': return {h: 0};
|
|
6089
|
-
case '-': return
|
|
6142
|
+
case '-': return csegen_156();
|
|
6090
6143
|
default: {
|
|
6091
6144
|
switch(Data_String_isPrefixOf($1, '--completed')) {
|
|
6092
6145
|
case 1: return {a1: {a1: '--completed', a2: {h: 0}}};
|
|
@@ -6197,8 +6250,8 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6197
6250
|
}
|
|
6198
6251
|
case 'contribute': {
|
|
6199
6252
|
switch($1) {
|
|
6200
|
-
case '-': return
|
|
6201
|
-
case '--': return
|
|
6253
|
+
case '-': return csegen_154();
|
|
6254
|
+
case '--': return csegen_154();
|
|
6202
6255
|
default: {
|
|
6203
6256
|
switch(Data_String_isPrefixOf($1, '--checkout')) {
|
|
6204
6257
|
case 1: return {a1: {a1: '--checkout', a2: {h: 0}}};
|
|
@@ -6215,7 +6268,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6215
6268
|
case 'graph': {
|
|
6216
6269
|
switch($1) {
|
|
6217
6270
|
case '--': return {h: 0};
|
|
6218
|
-
case '-': return
|
|
6271
|
+
case '-': return csegen_156();
|
|
6219
6272
|
default: {
|
|
6220
6273
|
switch(Data_String_isPrefixOf($1, '--completed')) {
|
|
6221
6274
|
case 1: return {a1: {a1: '--completed', a2: {h: 0}}};
|
|
@@ -6234,44 +6287,73 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6234
6287
|
|
|
6235
6288
|
/* BashCompletion.allRootCmds : List String */
|
|
6236
6289
|
const BashCompletion_allRootCmds = __lazy(function () {
|
|
6237
|
-
return {a1: 'assign', a2: {a1: 'branch', a2: {a1: 'config', a2: {a1: 'contribute', a2: {a1: 'graph', a2: {a1: 'health', a2: {a1: 'help', a2: {a1: 'label', a2: {a1: 'list', a2: {a1: 'pr', a2: {a1: 'reflect', a2: {a1: 'sync', a2: {a1: 'version', a2: {a1: 'whoami', a2: {h: 0}}}}}}}}}}}}}}};
|
|
6290
|
+
return {a1: 'request', a2: {a1: 'assign', a2: {a1: 'branch', a2: {a1: 'config', a2: {a1: 'contribute', a2: {a1: 'graph', a2: {a1: 'health', a2: {a1: 'help', a2: {a1: 'label', a2: {a1: 'list', a2: {a1: 'pr', a2: {a1: 'reflect', a2: {a1: 'sync', a2: {a1: 'version', a2: {a1: 'whoami', a2: {h: 0}}}}}}}}}}}}}}}};
|
|
6238
6291
|
});
|
|
6239
6292
|
|
|
6240
|
-
/* Data.Config.
|
|
6241
|
-
function
|
|
6293
|
+
/* Data.Config.8977:4025:personalAccessToken */
|
|
6294
|
+
function Data_Config_n__8977_4025_personalAccessToken($0) {
|
|
6242
6295
|
return Prelude_Types_maybe(() => 'Not set (will use $GITHUB_PAT environment variable)', () => $4 => Data_Config_show_Show_x28Hiddenx20x24ax29($4), $0.a13);
|
|
6243
6296
|
}
|
|
6244
6297
|
|
|
6245
|
-
/* Data.Config.
|
|
6246
|
-
function
|
|
6298
|
+
/* Data.Config.9464:4502:parseConfigJson */
|
|
6299
|
+
function Data_Config_n__9464_4502_parseConfigJson($0, $1) {
|
|
6247
6300
|
switch($1.h) {
|
|
6248
6301
|
case 6: /* JObject */ {
|
|
6249
|
-
const $
|
|
6250
|
-
const $
|
|
6251
|
-
|
|
6252
|
-
|
|
6253
|
-
|
|
6254
|
-
|
|
6255
|
-
|
|
6256
|
-
|
|
6257
|
-
|
|
6258
|
-
|
|
6259
|
-
|
|
6260
|
-
|
|
6261
|
-
|
|
6262
|
-
|
|
6263
|
-
|
|
6302
|
+
const $1a = $1b => {
|
|
6303
|
+
const $2d = requestTeams => {
|
|
6304
|
+
const $35 = requestUsers => {
|
|
6305
|
+
const $3d = commentOnRequest => {
|
|
6306
|
+
const $3e = Data_List_lookup(csegen_39(), 'githubPAT', $1.a1);
|
|
6307
|
+
const $46 = Language_JSON_Accessors_integer($1b.a1);
|
|
6308
|
+
let $45;
|
|
6309
|
+
switch($46.h) {
|
|
6310
|
+
case 0: /* Left */ {
|
|
6311
|
+
$45 = {h: 0 /* Left */, a1: $46.a1};
|
|
6312
|
+
break;
|
|
6313
|
+
}
|
|
6314
|
+
case 1: /* Right */ {
|
|
6315
|
+
$45 = {h: 1 /* Right */, a1: Number(_truncUBigInt32($46.a1))};
|
|
6316
|
+
break;
|
|
6317
|
+
}
|
|
6318
|
+
}
|
|
6319
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($45, ua => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1b.a2.a1), o => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1b.a2.a2.a1), r => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1b.a2.a2.a2.a2.a2.a2.a1), dr => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1b.a2.a2.a2.a1), mb => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool(requestTeams), at => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool(requestUsers), au => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool(commentOnRequest), ca => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($74 => Language_JSON_Accessors_string($74), $1b.a2.a2.a2.a2.a1), ts => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($7d => Language_JSON_Accessors_string($7d), $1b.a2.a2.a2.a2.a2.a2.a2.a1), rl => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($86 => Language_JSON_Accessors_string($86), $1b.a2.a2.a2.a2.a2.a1), om => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($8f => Language_JSON_Accessors_integer($8f), $1b.a2.a2.a2.a2.a2.a2.a2.a2.a1), ip => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Types_maybe(() => ({h: 1 /* Right */, a1: {h: 0}}), () => $9a => Language_JSON_Accessors_optional($9d => Language_JSON_Accessors_string($9d), $9a), $3e), gp => ({h: 1 /* Right */, a1: {a1: ua, a2: o, a3: r, a4: dr, a5: mb, a6: at, a7: au, a8: ca, a9: ts, a10: rl, a11: om, a12: ip, a13: Prelude_Types_map_Functor_Maybe($b3 => $b3, gp), a14: $0}}))))))))))))));
|
|
6320
|
+
};
|
|
6321
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Data_Config_n__9473_4509_exactlyOneOf($0, $1.a1, 'commentOnAssign', 'commentOnRequest'), $3d);
|
|
6322
|
+
};
|
|
6323
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Data_Config_n__9473_4509_exactlyOneOf($0, $1.a1, 'assignUsers', 'requestUsers'), $35);
|
|
6324
|
+
};
|
|
6325
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Data_Config_n__9473_4509_exactlyOneOf($0, $1.a1, 'assignTeams', 'requestTeams'), $2d);
|
|
6264
6326
|
};
|
|
6265
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'updatedAt', a2: {a1: 'org', a2: {a1: 'repo', a2: {a1: 'mainBranch', a2: {a1: '
|
|
6327
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'updatedAt', a2: {a1: 'org', a2: {a1: 'repo', a2: {a1: 'mainBranch', a2: {a1: 'teamSlugs', a2: {a1: 'orgMembers', a2: {a1: 'defaultRemote', a2: {a1: 'repoLabels', a2: {a1: 'ignoredPRs', a2: {h: 0}}}}}}}}}}, $1.a1), $1a);
|
|
6266
6328
|
}
|
|
6267
6329
|
case 5: /* JArray */ return {h: 0 /* Left */, a1: 'Expected config JSON to be an Object, not an array.'};
|
|
6268
6330
|
default: return {h: 0 /* Left */, a1: 'Expected config JSON to be an Object.'};
|
|
6269
6331
|
}
|
|
6270
6332
|
}
|
|
6271
6333
|
|
|
6334
|
+
/* Data.Config.9473:4509:exactlyOneOf */
|
|
6335
|
+
function Data_Config_n__9473_4509_exactlyOneOf($0, $1, $2, $3) {
|
|
6336
|
+
const $4 = Data_List_lookup(csegen_39(), $2, $1);
|
|
6337
|
+
const $a = Data_List_lookup(csegen_39(), $3, $1);
|
|
6338
|
+
switch($4.h) {
|
|
6339
|
+
case 0: /* nothing */ {
|
|
6340
|
+
switch($a.h) {
|
|
6341
|
+
case 0: /* nothing */ return {h: 0 /* Left */, a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $17 => $17, {a1: 'Expected config JSON to contain either the \'', a2: {a1: $2, a2: {a1: '\' key (deprecated) or the \'', a2: {a1: $3, a2: {a1: '\' key (newer).', a2: {h: 0}}}}}})};
|
|
6342
|
+
case undefined: /* just */ return {h: 1 /* Right */, a1: $a.a1};
|
|
6343
|
+
}
|
|
6344
|
+
}
|
|
6345
|
+
case undefined: /* just */ {
|
|
6346
|
+
switch($a.h) {
|
|
6347
|
+
case 0: /* nothing */ return {h: 1 /* Right */, a1: $4.a1};
|
|
6348
|
+
case undefined: /* just */ return {h: 0 /* Left */, a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $2b => $2b, {a1: 'Expected config JSON to contain only one of the \'', a2: {a1: $2, a2: {a1: '\' key (deprecated) or the \'', a2: {a1: $3, a2: {a1: '\' key (newer). Found values for both.', a2: {h: 0}}}}}})};
|
|
6349
|
+
}
|
|
6350
|
+
}
|
|
6351
|
+
}
|
|
6352
|
+
}
|
|
6353
|
+
|
|
6272
6354
|
/* Data.Config.show */
|
|
6273
6355
|
function Data_Config_show_Show_Config($0) {
|
|
6274
|
-
return Data_String_fastUnlines({a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $8 => $8, {a1: '
|
|
6356
|
+
return Data_String_fastUnlines({a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $8 => $8, {a1: ' updatedAt: ', a2: {a1: Prelude_Show_show_Show_Bits32($0.a1), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $17 => $17, {a1: ' org: ', a2: {a1: Prelude_Show_show_Show_String($0.a2), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $26 => $26, {a1: ' repo: ', a2: {a1: Prelude_Show_show_Show_String($0.a3), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $35 => $35, {a1: ' defaultRemote: ', a2: {a1: Prelude_Show_show_Show_String($0.a4), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $44 => $44, {a1: ' mainBranch: ', a2: {a1: Prelude_Show_show_Show_String($0.a5), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $53 => $53, {a1: ' requestTeams: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a6), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $62 => $62, {a1: ' requestUsers: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a7), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $71 => $71, {a1: 'commentOnRequest: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a8), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $80 => $80, {a1: ' teamSlugs: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_51(), $0.a9), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $91 => $91, {a1: ' repoLabels: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_51(), $0.a10), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $a2 => $a2, {a1: ' orgMembers: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_51(), $0.a11), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $b3 => $b3, {a1: ' ignoredPRs: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29({a1: x => Prelude_Show_show_Show_Integer(x), a2: d => x => Prelude_Show_showPrec_Show_Integer(d, x)}, $0.a12), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $ca => $ca, {a1: ' githubPAT: ', a2: {a1: Data_Config_n__8977_4025_personalAccessToken($0), a2: {h: 0}}}), a2: {h: 0}}}}}}}}}}}}}});
|
|
6275
6357
|
}
|
|
6276
6358
|
|
|
6277
6359
|
/* Data.Config.show */
|
|
@@ -6296,7 +6378,7 @@ function Data_Config_rf__colors($0) {
|
|
|
6296
6378
|
|
|
6297
6379
|
/* Data.Config.settableProps : List SomeSettableProp */
|
|
6298
6380
|
const Data_Config_settableProps = __lazy(function () {
|
|
6299
|
-
return {a1: {a1: '
|
|
6381
|
+
return {a1: {a1: 'requestTeams', a2: {a1: '[true/false] Determines whether or not to request reviews from teams when requesting individual reviewers from a team.', a2: 0}}, a2: {a1: {a1: 'requestUsers', a2: {a1: '[true/false] Determines whether or not to request reviews from an individual user based on Harmony\'s heuristics when requestin review from teams. You might want to disable `requestUsers` to allow GitHub to pick users to request based on the team. This setting does not affect the ability to request reviews from individual users withe Harmony\'s `+<username>` syntax.', a2: 1}}, a2: {a1: {a1: 'commentOnRequest', a2: {a1: '[true/false] Determines whether to comment on PR indicating that Harmony chose a reviewer.', a2: 2}}, a2: {a1: {a1: 'defaultRemote', a2: {a1: '[string] The name of the default Git remote to use (e.g. \'origin\').', a2: 3}}, a2: {a1: {a1: 'githubPAT', a2: {a1: '[string] The Personal Access Token Harmony should use to authenticate with GitHub. You can leave this unset if you want to set a PAT via the GITHUB_PAT environment variable.', a2: 4}}, a2: {a1: {a1: 'assignUsers', a2: {a1: '[true/false] Deprecated alias for the \'requestUsers\' config option.', a2: 6}}, a2: {a1: {a1: 'assignTeams', a2: {a1: '[true/false] Deprecated alias for the \'requestTeams\' config option.', a2: 5}}, a2: {a1: {a1: 'commentOnAssign', a2: {a1: '[true/false] Deprecated alias for the \'commentOnRequest\' config option.', a2: 7}}, a2: {h: 0}}}}}}}}};
|
|
6300
6382
|
});
|
|
6301
6383
|
|
|
6302
6384
|
/* Data.Config.settablePropNamesAndHelp : List (String, String) */
|
|
@@ -6312,11 +6394,14 @@ const Data_Config_settablePropNames = __lazy(function () {
|
|
|
6312
6394
|
/* Data.Config.settablePropNamed : (name : String) -> Maybe (Exists (SettableProp name)) */
|
|
6313
6395
|
function Data_Config_settablePropNamed($0) {
|
|
6314
6396
|
switch($0) {
|
|
6315
|
-
case '
|
|
6316
|
-
case '
|
|
6397
|
+
case 'requestTeams': return {a1: 0};
|
|
6398
|
+
case 'commentOnRequest': return {a1: 2};
|
|
6317
6399
|
case 'defaultRemote': return {a1: 3};
|
|
6318
6400
|
case 'githubPAT': return {a1: 4};
|
|
6319
|
-
case '
|
|
6401
|
+
case 'requestUsers': return {a1: 1};
|
|
6402
|
+
case 'assignTeams': return {a1: 5};
|
|
6403
|
+
case 'assignUsers': return {a1: 6};
|
|
6404
|
+
case 'commentOnAssign': return {a1: 7};
|
|
6320
6405
|
default: return {h: 0};
|
|
6321
6406
|
}
|
|
6322
6407
|
}
|
|
@@ -6351,18 +6436,18 @@ function Data_Config_parseConfig($0, $1) {
|
|
|
6351
6436
|
}
|
|
6352
6437
|
};
|
|
6353
6438
|
const $4 = {a1: $5, a2: a => $d => ({h: 1 /* Right */, a1: $d}), a3: $f};
|
|
6354
|
-
const $3 = {a1: $4, a2:
|
|
6355
|
-
return Prelude_Interfaces_x3ex3dx3e($3,
|
|
6439
|
+
const $3 = {a1: $4, a2: csegen_203(), a3: csegen_204()};
|
|
6440
|
+
return Prelude_Interfaces_x3ex3dx3e($3, csegen_205(), $20 => Data_Config_n__9464_4502_parseConfigJson($0, $20), $1);
|
|
6356
6441
|
}
|
|
6357
6442
|
|
|
6358
6443
|
/* Data.Config.longestSettablePropName : Nat */
|
|
6359
6444
|
const Data_Config_longestSettablePropName = __lazy(function () {
|
|
6360
|
-
return Prelude_Types_foldr_Foldable_List(
|
|
6445
|
+
return Prelude_Types_foldr_Foldable_List(csegen_206(), 0n, Prelude_Types_List_mapAppend({h: 0}, $8 => Prelude_Types_String_length(Data_Config_propNamex27($8)), Data_Config_settableProps()));
|
|
6361
6446
|
});
|
|
6362
6447
|
|
|
6363
6448
|
/* Data.Config.json : Config -> JSON */
|
|
6364
6449
|
function Data_Config_json($0) {
|
|
6365
|
-
return {h: 6 /* JObject */, a1: {a1: {a1: '
|
|
6450
|
+
return {h: 6 /* JObject */, a1: {a1: {a1: 'requestTeams', a2: {h: 3 /* JBool */, a1: $0.a6}}, a2: {a1: {a1: 'requestUsers', a2: {h: 3 /* JBool */, a1: $0.a7}}, a2: {a1: {a1: 'commentOnRequest', a2: {h: 3 /* JBool */, a1: $0.a8}}, a2: {a1: {a1: 'org', a2: {h: 4 /* JString */, a1: $0.a2}}, a2: {a1: {a1: 'repo', a2: {h: 4 /* JString */, a1: $0.a3}}, a2: {a1: {a1: 'defaultRemote', a2: {h: 4 /* JString */, a1: $0.a4}}, a2: {a1: {a1: 'mainBranch', a2: {h: 4 /* JString */, a1: $0.a5}}, a2: {a1: {a1: 'orgMembers', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $2d => ({h: 4 /* JString */, a1: $2d}), Data_List_sort(csegen_217(), $0.a11))}}, a2: {a1: {a1: 'teamSlugs', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $3c => ({h: 4 /* JString */, a1: $3c}), Data_List_sort(csegen_217(), $0.a9))}}, a2: {a1: {a1: 'repoLabels', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $4b => ({h: 4 /* JString */, a1: $4b}), Data_List_sort(csegen_217(), $0.a10))}}, a2: {a1: {a1: 'ignoredPRs', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $5a => ({h: 1 /* JInteger */, a1: $5a}), Data_List_sort({a1: csegen_220(), a2: csegen_221(), a3: $64 => $65 => Prelude_EqOrd_x3c_Ord_Integer($64, $65), a4: $6a => $6b => Prelude_EqOrd_x3e_Ord_Integer($6a, $6b), a5: $70 => $71 => Prelude_EqOrd_x3cx3d_Ord_Integer($70, $71), a6: $76 => $77 => Prelude_EqOrd_x3ex3d_Ord_Integer($76, $77), a7: $7c => $7d => Prelude_EqOrd_max_Ord_Integer($7c, $7d), a8: $82 => $83 => Prelude_EqOrd_min_Ord_Integer($82, $83)}, $0.a12))}}, a2: {a1: {a1: 'githubPAT', a2: Prelude_Types_maybe(() => ({h: 0 /* JNull */}), () => $8f => ({h: 4 /* JString */, a1: $8f}), $0.a13)}, a2: {a1: {a1: 'updatedAt', a2: {h: 1 /* JInteger */, a1: BigInt($0.a1)}}, a2: {h: 0}}}}}}}}}}}}}}};
|
|
6366
6451
|
}
|
|
6367
6452
|
|
|
6368
6453
|
/* Data.Config.filename : String */
|
|
@@ -6380,7 +6465,7 @@ function Decidable_Equality_decEq_DecEq_FromEqx24a($0, $1, $2) {
|
|
|
6380
6465
|
|
|
6381
6466
|
/* Decidable.Equality.decEq */
|
|
6382
6467
|
function Decidable_Equality_decEq_DecEq_Char($0, $1) {
|
|
6383
|
-
return Decidable_Equality_decEq_DecEq_FromEqx24a(
|
|
6468
|
+
return Decidable_Equality_decEq_DecEq_FromEqx24a(csegen_91(), $0, $1);
|
|
6384
6469
|
}
|
|
6385
6470
|
|
|
6386
6471
|
/* Data.Either.maybeToEither : Lazy e -> Maybe a -> Either e a */
|
|
@@ -6924,13 +7009,13 @@ function JSON_Parser_eqJSON($0, $1) {
|
|
|
6924
7009
|
}
|
|
6925
7010
|
case 5: /* JArray */ {
|
|
6926
7011
|
switch($1.h) {
|
|
6927
|
-
case 5: /* JArray */ return Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(
|
|
7012
|
+
case 5: /* JArray */ return Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_234(), $0.a1, $1.a1);
|
|
6928
7013
|
default: return 0;
|
|
6929
7014
|
}
|
|
6930
7015
|
}
|
|
6931
7016
|
case 6: /* JObject */ {
|
|
6932
7017
|
switch($1.h) {
|
|
6933
|
-
case 6: /* JObject */ return Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29({a1: $1e => $1f => Prelude_EqOrd_x3dx3d_Eq_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_39(),
|
|
7018
|
+
case 6: /* JObject */ return Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29({a1: $1e => $1f => Prelude_EqOrd_x3dx3d_Eq_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_39(), csegen_234(), $1e, $1f), a2: $28 => $29 => Prelude_EqOrd_x2fx3d_Eq_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_39(), csegen_234(), $28, $29)}, $0.a1, $1.a1);
|
|
6934
7019
|
default: return 0;
|
|
6935
7020
|
}
|
|
6936
7021
|
}
|
|
@@ -7170,7 +7255,7 @@ function Text_ParseError_failInParenEOI($0, $1, $2, $3) {
|
|
|
7170
7255
|
case 1: /* Right */ {
|
|
7171
7256
|
const $8 = {h: 1 /* Fail0 */, a1: {a1: {h: 9 /* Unexpected */, a1: {h: 1 /* Right */, a1: $3.a1.a1.a1.a1}}, a2: $3.a1.a2}};
|
|
7172
7257
|
switch($2($3.a1.a1.a1.a1)) {
|
|
7173
|
-
case 1: return
|
|
7258
|
+
case 1: return csegen_241()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
|
|
7174
7259
|
case 0: return Text_ParseError_failInParen($0, $1, $8);
|
|
7175
7260
|
}
|
|
7176
7261
|
}
|
|
@@ -7190,7 +7275,7 @@ function Text_ParseError_failInParenEOI($0, $1, $2, $3) {
|
|
|
7190
7275
|
case undefined: /* cons */ {
|
|
7191
7276
|
const $2a = {h: 0 /* Succ0 */, a1: $3.a1, a2: {a1: {a1: $3.a2.a1.a1, a2: $3.a2.a1.a2}, a2: $3.a2.a2}};
|
|
7192
7277
|
switch($2($3.a2.a1.a1)) {
|
|
7193
|
-
case 1: return
|
|
7278
|
+
case 1: return csegen_241()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
|
|
7194
7279
|
case 0: return Text_ParseError_failInParen($0, $1, $2a);
|
|
7195
7280
|
}
|
|
7196
7281
|
}
|
|
@@ -7211,7 +7296,7 @@ function Text_ParseError_failInParen($0, $1, $2) {
|
|
|
7211
7296
|
switch($2.a1.h) {
|
|
7212
7297
|
case undefined: /* cons */ {
|
|
7213
7298
|
switch($2.a1.a1.h) {
|
|
7214
|
-
case 1: /* EOI */ return
|
|
7299
|
+
case 1: /* EOI */ return csegen_241()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
|
|
7215
7300
|
default: return {h: 1 /* Fail0 */, a1: $2.a1};
|
|
7216
7301
|
}
|
|
7217
7302
|
}
|
|
@@ -7220,8 +7305,8 @@ function Text_ParseError_failInParen($0, $1, $2) {
|
|
|
7220
7305
|
}
|
|
7221
7306
|
case 0: /* Succ0 */ {
|
|
7222
7307
|
switch($2.a2.h) {
|
|
7223
|
-
case 0: /* nil */ return
|
|
7224
|
-
case undefined: /* cons */ return
|
|
7308
|
+
case 0: /* nil */ return csegen_241()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
|
|
7309
|
+
case undefined: /* cons */ return csegen_241()($2.a2.a1.a2)({h: 9 /* Unexpected */, a1: {h: 1 /* Right */, a1: $2.a2.a1.a1}});
|
|
7225
7310
|
}
|
|
7226
7311
|
}
|
|
7227
7312
|
}
|
|
@@ -7230,8 +7315,8 @@ function Text_ParseError_failInParen($0, $1, $2) {
|
|
|
7230
7315
|
/* Text.ParseError.fail : List (Bounded t) -> Result0 b (Bounded t) ts (Bounded (ParseError t y)) a */
|
|
7231
7316
|
function Text_ParseError_fail($0) {
|
|
7232
7317
|
switch($0.h) {
|
|
7233
|
-
case undefined: /* cons */ return
|
|
7234
|
-
case 0: /* nil */ return
|
|
7318
|
+
case undefined: /* cons */ return csegen_241()($0.a1.a2)({h: 9 /* Unexpected */, a1: {h: 1 /* Right */, a1: $0.a1.a1}});
|
|
7319
|
+
case 0: /* nil */ return csegen_241()({h: 0})({h: 1 /* EOI */});
|
|
7235
7320
|
}
|
|
7236
7321
|
}
|
|
7237
7322
|
|
|
@@ -7277,18 +7362,18 @@ function Util_with__yesNoPromptx2cyesUnlessNo_1292($0, $1, $2, $3, $4) {
|
|
|
7277
7362
|
}
|
|
7278
7363
|
}
|
|
7279
7364
|
|
|
7280
|
-
/* Util.
|
|
7281
|
-
function
|
|
7365
|
+
/* Util.5163:1284:yesUnlessNo */
|
|
7366
|
+
function Util_n__5163_1284_yesUnlessNo($0, $1, $2) {
|
|
7282
7367
|
return Util_with__yesNoPromptx2cyesUnlessNo_1292(undefined, $0, $1, $2, Data_String_toLower($2));
|
|
7283
7368
|
}
|
|
7284
7369
|
|
|
7285
|
-
/* Util.
|
|
7286
|
-
const
|
|
7370
|
+
/* Util.5266:1391:startOver */
|
|
7371
|
+
const Util_n__5266_1391_startOver = __lazy(function () {
|
|
7287
7372
|
return {a1: 0, a2: {h: 0}};
|
|
7288
7373
|
});
|
|
7289
7374
|
|
|
7290
|
-
/* Util.
|
|
7291
|
-
function
|
|
7375
|
+
/* Util.5266:1390:guardSuccess */
|
|
7376
|
+
function Util_n__5266_1390_guardSuccess($0) {
|
|
7292
7377
|
switch($0.h) {
|
|
7293
7378
|
case undefined: /* cons */ {
|
|
7294
7379
|
switch($0.a1) {
|
|
@@ -7301,13 +7386,13 @@ function Util_n__5161_1390_guardSuccess($0) {
|
|
|
7301
7386
|
}
|
|
7302
7387
|
}
|
|
7303
7388
|
|
|
7304
|
-
/* Util.
|
|
7305
|
-
function
|
|
7389
|
+
/* Util.5266:1389:go */
|
|
7390
|
+
function Util_n__5266_1389_go($0, $1) {
|
|
7306
7391
|
switch($0.a1) {
|
|
7307
7392
|
case 0: {
|
|
7308
7393
|
switch(Prelude_Types_isAlpha($1)) {
|
|
7309
7394
|
case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
|
|
7310
|
-
case 0: return
|
|
7395
|
+
case 0: return Util_n__5266_1391_startOver();
|
|
7311
7396
|
}
|
|
7312
7397
|
}
|
|
7313
7398
|
case 1: {
|
|
@@ -7316,7 +7401,7 @@ function Util_n__5161_1389_go($0, $1) {
|
|
|
7316
7401
|
default: {
|
|
7317
7402
|
switch(Prelude_Types_isAlpha($1)) {
|
|
7318
7403
|
case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
|
|
7319
|
-
case 0: return
|
|
7404
|
+
case 0: return Util_n__5266_1391_startOver();
|
|
7320
7405
|
}
|
|
7321
7406
|
}
|
|
7322
7407
|
}
|
|
@@ -7324,7 +7409,7 @@ function Util_n__5161_1389_go($0, $1) {
|
|
|
7324
7409
|
case 2: {
|
|
7325
7410
|
switch(Prelude_Types_isDigit($1)) {
|
|
7326
7411
|
case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
|
|
7327
|
-
case 0: return
|
|
7412
|
+
case 0: return Util_n__5266_1391_startOver();
|
|
7328
7413
|
}
|
|
7329
7414
|
}
|
|
7330
7415
|
case 3: {
|
|
@@ -7337,8 +7422,8 @@ function Util_n__5161_1389_go($0, $1) {
|
|
|
7337
7422
|
}
|
|
7338
7423
|
}
|
|
7339
7424
|
|
|
7340
|
-
/* Util.
|
|
7341
|
-
function
|
|
7425
|
+
/* Util.5050:1172:getMoreLines */
|
|
7426
|
+
function Util_n__5050_1172_getMoreLines($0, $1, $2) {
|
|
7342
7427
|
switch($2.h) {
|
|
7343
7428
|
case 0: /* nothing */ return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1));
|
|
7344
7429
|
case undefined: /* just */ {
|
|
@@ -7349,13 +7434,13 @@ function Util_n__4945_1172_getMoreLines($0, $1, $2) {
|
|
|
7349
7434
|
case '': {
|
|
7350
7435
|
switch(line) {
|
|
7351
7436
|
case '': return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1.a2));
|
|
7352
|
-
default: return
|
|
7437
|
+
default: return Util_n__5050_1172_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
7353
7438
|
}
|
|
7354
7439
|
}
|
|
7355
|
-
default: return
|
|
7440
|
+
default: return Util_n__5050_1172_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
7356
7441
|
}
|
|
7357
7442
|
}
|
|
7358
|
-
default: return
|
|
7443
|
+
default: return Util_n__5050_1172_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
7359
7444
|
}
|
|
7360
7445
|
};
|
|
7361
7446
|
return $0.a1.a2(undefined)(undefined)($0.a1.a1.a1(undefined)(undefined)($20 => Data_String_trim($20))($0.a2(undefined)($29 => Prelude_IO_prim__getStr($29))))($2c);
|
|
@@ -7365,7 +7450,7 @@ function Util_n__4945_1172_getMoreLines($0, $1, $2) {
|
|
|
7365
7450
|
|
|
7366
7451
|
/* Util.yesNoPrompt : HasIO io => String -> io Bool */
|
|
7367
7452
|
function Util_yesNoPrompt($0, $1) {
|
|
7368
|
-
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($10 => Prelude_IO_prim__putStr(Prelude_Types_foldMap_Foldable_List(csegen_49(), $17 => $17, {a1: $1, a2: {a1: ' [Y/n] ', a2: {h: 0}}}), $10)))($1f => $0.a1.a1.a1(undefined)(undefined)($2a =>
|
|
7453
|
+
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($10 => Prelude_IO_prim__putStr(Prelude_Types_foldMap_Foldable_List(csegen_49(), $17 => $17, {a1: $1, a2: {a1: ' [Y/n] ', a2: {h: 0}}}), $10)))($1f => $0.a1.a1.a1(undefined)(undefined)($2a => Util_n__5163_1284_yesUnlessNo($0, $1, Data_String_trim($2a)))($0.a2(undefined)($37 => Prelude_IO_prim__getStr($37))));
|
|
7369
7454
|
}
|
|
7370
7455
|
|
|
7371
7456
|
/* Util.whenNothing : Applicative f => Maybe a -> f () -> f () */
|
|
@@ -7419,12 +7504,12 @@ function Util_relativeToRoot($0, $1, $2, $3) {
|
|
|
7419
7504
|
|
|
7420
7505
|
/* Util.parseJiraPrefix : String -> Maybe String */
|
|
7421
7506
|
function Util_parseJiraPrefix($0) {
|
|
7422
|
-
return Prelude_Types_map_Functor_Maybe($3 => Prelude_Types_fastPack(Prelude_Types_List_reverse($3)),
|
|
7507
|
+
return Prelude_Types_map_Functor_Maybe($3 => Prelude_Types_fastPack(Prelude_Types_List_reverse($3)), Util_n__5266_1390_guardSuccess(Prelude_Types_foldl_Foldable_List($d => $e => Util_n__5266_1389_go($d, $e), Util_n__5266_1391_startOver(), Prelude_Types_fastUnpack($0))));
|
|
7423
7508
|
}
|
|
7424
7509
|
|
|
7425
7510
|
/* Util.getManyLines : HasIO io => Fuel -> io (List String) */
|
|
7426
7511
|
function Util_getManyLines($0, $1) {
|
|
7427
|
-
return
|
|
7512
|
+
return Util_n__5050_1172_getMoreLines($0, {h: 0}, $1);
|
|
7428
7513
|
}
|
|
7429
7514
|
|
|
7430
7515
|
/* FFI.Git.case block in unpushedCommits */
|
|
@@ -7713,14 +7798,14 @@ function System_File_ReadWrite_readLinesOnto($0, $1, $2, $3, $4) {
|
|
|
7713
7798
|
}
|
|
7714
7799
|
};
|
|
7715
7800
|
const $26 = {a1: $27, a2: a => $2f => ({h: 1 /* Right */, a1: $2f}), a3: $31};
|
|
7716
|
-
const $25 = {a1: $26, a2:
|
|
7801
|
+
const $25 = {a1: $26, a2: csegen_203(), a3: csegen_204()};
|
|
7717
7802
|
const $40 = b => a => func => $41 => {
|
|
7718
7803
|
switch($41.h) {
|
|
7719
7804
|
case 0: /* Left */ return {h: 0 /* Left */, a1: $41.a1};
|
|
7720
7805
|
case 1: /* Right */ return {h: 1 /* Right */, a1: func($41.a1)};
|
|
7721
7806
|
}
|
|
7722
7807
|
};
|
|
7723
|
-
const $3f = {a1: $40, a2:
|
|
7808
|
+
const $3f = {a1: $40, a2: csegen_261(), a3: csegen_265()};
|
|
7724
7809
|
return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, $25, $3f, System_File_ReadWrite_fGetLine($0, $4), str => System_File_ReadWrite_readLinesOnto($0, {a1: str, a2: $1}, 0n, $3.a1(), $4));
|
|
7725
7810
|
}
|
|
7726
7811
|
default: {
|
|
@@ -8019,7 +8104,7 @@ const System_Info_os = __lazy(function () {
|
|
|
8019
8104
|
|
|
8020
8105
|
/* System.Info.isWindows : Bool */
|
|
8021
8106
|
const System_Info_isWindows = __lazy(function () {
|
|
8022
|
-
return Prelude_Types_elem(
|
|
8107
|
+
return Prelude_Types_elem(csegen_145(), csegen_39(), System_Info_os(), {a1: 'windows', a2: {a1: 'mingw32', a2: {a1: 'cygwin32', a2: {h: 0}}}});
|
|
8023
8108
|
});
|
|
8024
8109
|
|
|
8025
8110
|
/* System.File.Meta.isTTY : HasIO io => File -> io Bool */
|
|
@@ -8158,7 +8243,7 @@ function System_getEnv($0, $1) {
|
|
|
8158
8243
|
function System_getArgs($0) {
|
|
8159
8244
|
const $12 = n => {
|
|
8160
8245
|
switch(Prelude_EqOrd_x3e_Ord_Int(n, Number(_truncBigInt32(0n)))) {
|
|
8161
|
-
case 1: return Prelude_Basics_flip($1a => $1b => Prelude_Types_traverse_Traversable_List($0.a1.a1, $1a, $1b), Prelude_Types_rangeFromTo_Range_x24a({a1: {a1:
|
|
8246
|
+
case 1: return Prelude_Basics_flip($1a => $1b => Prelude_Types_traverse_Traversable_List($0.a1.a1, $1a, $1b), Prelude_Types_rangeFromTo_Range_x24a({a1: {a1: csegen_279(), a2: $29 => $2a => Prelude_Num_div_Integral_Int($29, $2a), a3: $2f => $30 => Prelude_Num_mod_Integral_Int($2f, $30)}, a2: {a1: {a1: {a1: $38 => $39 => Prelude_EqOrd_x3dx3d_Eq_Int($38, $39), a2: $3e => $3f => Prelude_EqOrd_x2fx3d_Eq_Int($3e, $3f)}, a2: $44 => $45 => Prelude_EqOrd_compare_Ord_Int($44, $45), a3: $4a => $4b => Prelude_EqOrd_x3c_Ord_Int($4a, $4b), a4: $50 => $51 => Prelude_EqOrd_x3e_Ord_Int($50, $51), a5: $56 => $57 => Prelude_EqOrd_x3cx3d_Ord_Int($56, $57), a6: $5c => $5d => Prelude_EqOrd_x3ex3d_Ord_Int($5c, $5d), a7: $62 => $63 => Prelude_EqOrd_max_Ord_Int($62, $63), a8: $68 => $69 => Prelude_EqOrd_min_Ord_Int($68, $69)}, a2: {a1: csegen_279(), a2: $71 => _sub32s(0, $71), a3: $75 => $76 => _sub32s($75, $76)}}}, 0, _sub32s(n, 1)), $7e => $0.a2(undefined)($84 => System_prim__getArg($7e, $84)));
|
|
8162
8247
|
case 0: return $0.a1.a1.a2(undefined)({h: 0});
|
|
8163
8248
|
}
|
|
8164
8249
|
};
|
|
@@ -8186,21 +8271,21 @@ function System_exitFailure($0) {
|
|
|
8186
8271
|
/* Help.subcommandHelp' : String -> Doc AnsiStyle */
|
|
8187
8272
|
function Help_subcommandHelpx27($0) {
|
|
8188
8273
|
switch($0) {
|
|
8189
|
-
case 'label': return Help_subcommand($0, {a1: Help_argument(1, '<label>'), a2:
|
|
8190
|
-
case '
|
|
8191
|
-
case 'config': return Help_subcommand($0, {a1: Help_argument(1, '<property>'), a2: {a1: Help_argument(0, '<value>'), a2: {h: 0}}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $59 => $59, {a1: 'Get or set the value of a configuration property. Not all properties\ncan be set and read via this subcommand.', a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_line()), Help_argumentx27('properties')), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(':'), a2: {h: 0}})),
|
|
8192
|
-
case 'pr': return Help_subcommand($0, {a1: Help_argument(0, '--draft'), a2:
|
|
8193
|
-
case 'contribute': return Help_subcommand($0, {a1: Help_argument(0, '-c/--checkout'), a2: {a1: Help_argument(0, '-<num>'), a2: {a1: Help_argument(0, '-i/--ignore {<uri>/<pr-number>}'), a2: {h: 0}}}}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $
|
|
8194
|
-
case 'graph': return Help_subcommand($0, {a1: Help_argument(0, '-c/--completed'), a2:
|
|
8274
|
+
case 'label': return Help_subcommand($0, {a1: Help_argument(1, '<label>'), a2: csegen_299()}, {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Add one or more labels to a PR, creating a new PR if one does not exist.'), Text_PrettyPrint_Prettyprinter_Doc_line()), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Labels that do not exist yet will be created automatically.')), a2: {h: 0}});
|
|
8275
|
+
case 'request': return Help_subcommand($0, {a1: Help_argument(1, '<team-slug> | +<user-login>'), a2: csegen_304()}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $2a => $2a, {a1: 'Request review from the given team(s) and one lucky member from one\nof those teams to review the PR for the current branch.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $36 => $36, {a1: 'Also request reviews from any users with logins specified. You specify\nthese additional users by prefixing their logins with \'+\'.', a2: {h: 0}})), a2: csegen_310()}});
|
|
8276
|
+
case 'config': return Help_subcommand($0, {a1: Help_argument(1, '<property>'), a2: {a1: Help_argument(0, '<value>'), a2: {h: 0}}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $59 => $59, {a1: 'Get or set the value of a configuration property. Not all properties\ncan be set and read via this subcommand.', a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_line()), Help_argumentx27('properties')), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(':'), a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_align(Text_PrettyPrint_Prettyprinter_Doc_concatWith(a => b => Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(a, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(','), a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_softline()), b), Prelude_Types_List_mapAppend({h: 0}, $82 => Help_option($82), Data_Config_settablePropNames())))), a2: {h: 0}});
|
|
8277
|
+
case 'pr': return Help_subcommand($0, {a1: Help_argument(0, '--draft'), a2: csegen_304()}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Identify an existing PR or create a new one for the current branch.'), a2: csegen_310()});
|
|
8278
|
+
case 'contribute': return Help_subcommand($0, {a1: Help_argument(0, '-c/--checkout'), a2: {a1: Help_argument(0, '-<num>'), a2: {a1: Help_argument(0, '-i/--ignore {<uri>/<pr-number>}'), a2: {h: 0}}}}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $b1 => $b1, {a1: 'Contribute to an open PR. Prints a URL. Prioritizes PRs you are\nrequested to review but will also return other PRs.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $bd => $bd, {a1: 'Use dash followed by a number (e.g. \'-3\') to skip that number of\npotential PRs and return the next.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $c9 => $c9, {a1: 'Specify a PR to ignore (only affects the local Harmony config on\nthis machine) if you would like to more permanently skip a potential\nPR. Do this with the \'--ignore\' option followed by a GitHub URI or\nPull Request number.', a2: {h: 0}})), a2: {h: 0}}}});
|
|
8279
|
+
case 'graph': return Help_subcommand($0, {a1: Help_argument(0, '-c/--completed'), a2: csegen_344()}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Graph the relative review workload of the members of the given GitHub Team.'), a2: {h: 0}});
|
|
8195
8280
|
case 'help': return Help_subcommand($0, {a1: Help_argument(0, '<subcommand>'), a2: {h: 0}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print help'), a2: {h: 0}});
|
|
8196
8281
|
case 'version': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print version'), a2: {h: 0}});
|
|
8197
8282
|
case 'sync': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Synchronize local config with information from GitHub.'), a2: {h: 0}});
|
|
8198
8283
|
case 'branch': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print the GitHub URI for the currently checked out branch.'), a2: {h: 0}});
|
|
8199
8284
|
case 'whoami': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print information about the configured and authenticated user.'), a2: {h: 0}});
|
|
8200
8285
|
case 'reflect': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Reflect on the current state of ones own PRs and review requests.'), a2: {h: 0}});
|
|
8201
|
-
case 'list': return Help_subcommand($0,
|
|
8286
|
+
case 'list': return Help_subcommand($0, csegen_344(), {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('List the members of the given GitHub Team.'), a2: {h: 0}});
|
|
8202
8287
|
case 'health': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Graph all open PRs grouped by the month they were created.'), a2: {h: 0}});
|
|
8203
|
-
default: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $
|
|
8288
|
+
default: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $128 => $128, {a1: 'Unreconized command: ', a2: {a1: $0, a2: {h: 0}}}));
|
|
8204
8289
|
}
|
|
8205
8290
|
}
|
|
8206
8291
|
|
|
@@ -8240,7 +8325,7 @@ function Help_option($0) {
|
|
|
8240
8325
|
|
|
8241
8326
|
/* Help.helpDocs : Doc AnsiStyle */
|
|
8242
8327
|
const Help_helpDocs = __lazy(function () {
|
|
8243
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('harmony'), Help_subcommandx27('<subcommand>')), a2: {a1: Help_heading('Subcommands', Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Help_subcommandHelpx27('
|
|
8328
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('harmony'), Help_subcommandx27('<subcommand>')), a2: {a1: Help_heading('Subcommands', Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Help_subcommandHelpx27('branch'), a2: {a1: Help_subcommandHelpx27('config'), a2: {a1: Help_subcommandHelpx27('contribute'), a2: {a1: Help_subcommandHelpx27('graph'), a2: {a1: Help_subcommandHelpx27('health'), a2: {a1: Help_subcommandHelpx27('help'), a2: {a1: Help_subcommandHelpx27('label'), a2: {a1: Help_subcommandHelpx27('list'), a2: {a1: Help_subcommandHelpx27('pr'), a2: {a1: Help_subcommandHelpx27('reflect'), a2: {a1: Help_subcommandHelpx27('request'), a2: {a1: Help_subcommandHelpx27('sync'), a2: {a1: Help_subcommandHelpx27('version'), a2: {a1: Help_subcommandHelpx27('whoami'), a2: {h: 0}}}}}}}}}}}}}}})), a2: {a1: Help_heading('Prompt Completion', Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $57 => $57, {a1: 'You can set up bash completion by adding the following to your bashrc\nfile or bash profile:', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_vsep({h: 0}), a2: {a1: Help_shell('eval \"$(harmony --bash-completion-script)\"'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_vsep({h: 0}), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $6f => $6f, {a1: 'You can set up zsh completion by adding the following to your zshrc\nfile or zsh profile:', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_vsep({h: 0}), a2: {a1: Help_shell('eval \"$(harmony --zsh-completion-script)\"'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_vsep({h: 0}), a2: {h: 0}}}}}}}}})), a2: {h: 0}}}});
|
|
8244
8329
|
});
|
|
8245
8330
|
|
|
8246
8331
|
/* Help.help : Bool -> String */
|
|
@@ -8355,12 +8440,12 @@ function FFI_GitHub_listPullRequestsJsonStr($0, $1, $2, $3, $4, $5) {
|
|
|
8355
8440
|
String -> String -> Maybe GitHubPRState -> Fin 101 -> {default 0 _ : Nat} ->
|
|
8356
8441
|
Promise (List PullRequest) */
|
|
8357
8442
|
function FFI_GitHub_listPullRequests($0, $1, $2, $3, $4, $5) {
|
|
8358
|
-
return Prelude_Basics_flip(
|
|
8443
|
+
return Prelude_Basics_flip(csegen_396(), csegen_397(), FFI_GitHub_listPullRequestsJsonStr($0, $1, $2, $3, $4, $5));
|
|
8359
8444
|
}
|
|
8360
8445
|
|
|
8361
8446
|
/* FFI.GitHub.listPRsForBranch : Octokit => String -> String -> String -> Promise (List PullRequest) */
|
|
8362
8447
|
function FFI_GitHub_listPRsForBranch($0, $1, $2, $3) {
|
|
8363
|
-
return Prelude_Basics_flip(
|
|
8448
|
+
return Prelude_Basics_flip(csegen_396(), csegen_397(), $a => $b => FFI_promiseIO($e => $f => $10 => FFI_GitHub_prim__listPRsForBranch($0, $1, $2, $3, $e, $f, $10), $a, $b));
|
|
8364
8449
|
}
|
|
8365
8450
|
|
|
8366
8451
|
/* FFI.GitHub.listOrgMembers : Octokit => String -> Promise (List String) */
|
|
@@ -8375,12 +8460,12 @@ function FFI_GitHub_listMyTeams($0, $1, $2) {
|
|
|
8375
8460
|
|
|
8376
8461
|
/* FFI.GitHub.getUser : Octokit => String -> Promise User */
|
|
8377
8462
|
function FFI_GitHub_getUser($0) {
|
|
8378
|
-
return Prelude_Interfaces_x3cx3dx3c(csegen_69(),
|
|
8463
|
+
return Prelude_Interfaces_x3cx3dx3c(csegen_69(), csegen_398(), $7 => $8 => $9 => FFI_promiseIO($c => $d => $e => FFI_GitHub_prim__getUser($0, $7, $c, $d, $e), $8, $9));
|
|
8379
8464
|
}
|
|
8380
8465
|
|
|
8381
8466
|
/* FFI.GitHub.getSelf : Octokit => Promise User */
|
|
8382
8467
|
function FFI_GitHub_getSelf($0) {
|
|
8383
|
-
return Prelude_Basics_flip(
|
|
8468
|
+
return Prelude_Basics_flip(csegen_396(), csegen_398(), $7 => $8 => FFI_promiseIO($b => $c => $d => FFI_GitHub_prim__getSelf($0, $b, $c, $d), $7, $8));
|
|
8384
8469
|
}
|
|
8385
8470
|
|
|
8386
8471
|
/* FFI.GitHub.getRepoDefaultBranch : Octokit => String -> String -> Promise String */
|
|
@@ -8391,7 +8476,7 @@ function FFI_GitHub_getRepoDefaultBranch($0, $1, $2, $3, $4) {
|
|
|
8391
8476
|
/* FFI.GitHub.createPR : Octokit => {default False _ : Bool} ->
|
|
8392
8477
|
String -> String -> String -> String -> String -> String -> Promise PullRequest */
|
|
8393
8478
|
function FFI_GitHub_createPR($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
8394
|
-
return Prelude_Basics_flip(
|
|
8479
|
+
return Prelude_Basics_flip(csegen_396(), $c => $d => Data_Promise_either(csegen_51(), Data_PullRequest_parsePullRequestString($c), $d), $16 => $17 => FFI_promiseIO($1a => $1b => $1c => FFI_GitHub_prim__createPR($0, $2, $3, $4, $5, $6, $7, $1, $1a, $1b, $1c), $16, $17));
|
|
8395
8480
|
}
|
|
8396
8481
|
|
|
8397
8482
|
/* FFI.GitHub.createComment : Octokit => String -> String -> Integer -> String -> Promise () */
|
|
@@ -8402,12 +8487,12 @@ function FFI_GitHub_createComment($0, $1, $2, $3, $4, $5, $6) {
|
|
|
8402
8487
|
/* FFI.GitHub.addPullReviewers : Octokit =>
|
|
8403
8488
|
String -> String -> Integer -> List String -> List String -> Promise (List String) */
|
|
8404
8489
|
function FFI_GitHub_addPullReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
8405
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($a => $b => Data_Promise_map_Functor_Promise($e => Data_String_lines($e), $12 => $13 => FFI_promiseIO($16 => $17 => $18 => FFI_GitHub_prim__addPullReviewers($0, $1, $2, $3, '', Data_String_Extra_join(',',
|
|
8490
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($a => $b => Data_Promise_map_Functor_Promise($e => Data_String_lines($e), $12 => $13 => FFI_promiseIO($16 => $17 => $18 => FFI_GitHub_prim__addPullReviewers($0, $1, $2, $3, '', Data_String_Extra_join(',', csegen_145(), $5), $16, $17, $18), $12, $13), $a, $b), teamReviewers => $2d => $2e => Data_Promise_x3ex3ex3d_Monad_Promise($31 => $32 => Data_Promise_map_Functor_Promise($35 => Data_String_lines($35), $39 => $3a => FFI_promiseIO($3d => $3e => $3f => FFI_GitHub_prim__addPullReviewers($0, $1, $2, $3, Data_String_Extra_join(',', csegen_145(), $4), '', $3d, $3e, $3f), $39, $3a), $31, $32), individualReviewers => $54 => $55 => Data_Promise_pure_Applicative_Promise(Prelude_Types_List_tailRecAppend(teamReviewers, individualReviewers), $54, $55), $2d, $2e), $6, $7);
|
|
8406
8491
|
}
|
|
8407
8492
|
|
|
8408
8493
|
/* FFI.GitHub.addPullLabels : Octokit => String -> String -> Integer -> List String -> Promise (List String) */
|
|
8409
8494
|
function FFI_GitHub_addPullLabels($0, $1, $2, $3, $4, $5, $6) {
|
|
8410
|
-
return Data_Promise_map_Functor_Promise($9 => Data_String_lines($9), $d => $e => FFI_promiseIO($11 => $12 => $13 => FFI_GitHub_prim__addLabels($0, $1, $2, $3, Data_String_Extra_join(',',
|
|
8495
|
+
return Data_Promise_map_Functor_Promise($9 => Data_String_lines($9), $d => $e => FFI_promiseIO($11 => $12 => $13 => FFI_GitHub_prim__addLabels($0, $1, $2, $3, Data_String_Extra_join(',', csegen_145(), $4), $11, $12, $13), $d, $e), $5, $6);
|
|
8411
8496
|
}
|
|
8412
8497
|
|
|
8413
8498
|
/* Data.User.parseUserString : String -> Either String User */
|
|
@@ -8430,8 +8515,8 @@ function Data_User_parseUserString($0) {
|
|
|
8430
8515
|
}
|
|
8431
8516
|
};
|
|
8432
8517
|
const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
|
|
8433
|
-
const $2 = {a1: $3, a2:
|
|
8434
|
-
return Prelude_Interfaces_x3ex3dx3e($2,
|
|
8518
|
+
const $2 = {a1: $3, a2: csegen_203(), a3: csegen_204()};
|
|
8519
|
+
return Prelude_Interfaces_x3ex3dx3e($2, csegen_205(), $1f => Data_User_parseUser($1f), $0);
|
|
8435
8520
|
}
|
|
8436
8521
|
|
|
8437
8522
|
/* Data.User.parseUser : JSON -> Either String User */
|
|
@@ -8461,7 +8546,7 @@ function Data_Review_parseState($0) {
|
|
|
8461
8546
|
|
|
8462
8547
|
/* Data.Review.parseReview : JSON -> Either String Review */
|
|
8463
8548
|
function Data_Review_parseReview($0) {
|
|
8464
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), review => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'author', a2: {a1: 'state', a2: {a1: 'submitted_at', a2: {h: 0}}}}, review), $12 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($12.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(
|
|
8549
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), review => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'author', a2: {a1: 'state', a2: {a1: 'submitted_at', a2: {h: 0}}}}, review), $12 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($12.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_403(), $22 => Data_Review_parseState($22), Language_JSON_Accessors_string($12.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_403(), $2f => Data_Review_parseDateTime($2f), Language_JSON_Accessors_string($12.a2.a2.a1)), submittedAt => ({h: 1 /* Right */, a1: {a1: submittedAt, a2: author, a3: state}}))))));
|
|
8465
8550
|
}
|
|
8466
8551
|
|
|
8467
8552
|
/* Data.Review.parseDateTime : String -> Either String Date */
|
|
@@ -8595,7 +8680,7 @@ function Data_Date_max_Ord_Date($0, $1) {
|
|
|
8595
8680
|
|
|
8596
8681
|
/* Data.Date.compare */
|
|
8597
8682
|
function Data_Date_compare_Ord_Date($0, $1) {
|
|
8598
|
-
return Prelude_Types_compare_Ord_x28Listx20x24ax29({a1: {a1: $8 => $9 => (($8===$9)?1:0), a2: $d => $e => Prelude_Types_x2fx3d_Eq_Nat($d, $e)}, a2:
|
|
8683
|
+
return Prelude_Types_compare_Ord_x28Listx20x24ax29({a1: {a1: $8 => $9 => (($8===$9)?1:0), a2: $d => $e => Prelude_Types_x2fx3d_Eq_Nat($d, $e)}, a2: csegen_221(), a3: $15 => $16 => Prelude_Types_x3c_Ord_Nat($15, $16), a4: $1b => $1c => Prelude_Types_x3e_Ord_Nat($1b, $1c), a5: $21 => $22 => Prelude_Types_x3cx3d_Ord_Nat($21, $22), a6: $27 => $28 => Prelude_Types_x3ex3d_Ord_Nat($27, $28), a7: $2d => $2e => Prelude_Types_max_Ord_Nat($2d, $2e), a8: $33 => $34 => Prelude_Types_min_Ord_Nat($33, $34)}, {a1: $0.a1, a2: {a1: $0.a2, a2: {a1: $0.a3, a2: {h: 0}}}}, {a1: $1.a1, a2: {a1: $1.a2, a2: {a1: $1.a3, a2: {h: 0}}}});
|
|
8599
8684
|
}
|
|
8600
8685
|
|
|
8601
8686
|
/* Data.Date.> */
|
|
@@ -8751,8 +8836,8 @@ function Data_PullRequest_parsePullRequestsString($0) {
|
|
|
8751
8836
|
}
|
|
8752
8837
|
};
|
|
8753
8838
|
const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
|
|
8754
|
-
const $2 = {a1: $3, a2:
|
|
8755
|
-
return Prelude_Interfaces_x3ex3dx3e($2,
|
|
8839
|
+
const $2 = {a1: $3, a2: csegen_203(), a3: csegen_204()};
|
|
8840
|
+
return Prelude_Interfaces_x3ex3dx3e($2, csegen_205(), csegen_416(), $0);
|
|
8756
8841
|
}
|
|
8757
8842
|
|
|
8758
8843
|
/* Data.PullRequest.parsePullRequestString : String -> Either String PullRequest */
|
|
@@ -8775,13 +8860,13 @@ function Data_PullRequest_parsePullRequestString($0) {
|
|
|
8775
8860
|
}
|
|
8776
8861
|
};
|
|
8777
8862
|
const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
|
|
8778
|
-
const $2 = {a1: $3, a2:
|
|
8779
|
-
return Prelude_Interfaces_x3ex3dx3e($2,
|
|
8863
|
+
const $2 = {a1: $3, a2: csegen_203(), a3: csegen_204()};
|
|
8864
|
+
return Prelude_Interfaces_x3ex3dx3e($2, csegen_205(), $1f => Data_PullRequest_parsePR($1f), $0);
|
|
8780
8865
|
}
|
|
8781
8866
|
|
|
8782
8867
|
/* Data.PullRequest.parsePR : JSON -> Either String PullRequest */
|
|
8783
8868
|
function Data_PullRequest_parsePR($0) {
|
|
8784
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), pr => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'pull_number', a2: {a1: 'author', a2: {a1: 'state', a2: {a1: 'created_at', a2: {a1: 'merged', a2: {a1: 'draft', a2: {a1: 'reviewers', a2: {a1: 'head_ref', a2: {h: 0}}}}}}}}}, pr), $1c => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($1c.a1), number => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1c.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($1c.a2.a2.a2.a2.a1), merged => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($1c.a2.a2.a2.a2.a2.a1), isDraft => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(
|
|
8869
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), pr => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'pull_number', a2: {a1: 'author', a2: {a1: 'state', a2: {a1: 'created_at', a2: {a1: 'merged', a2: {a1: 'draft', a2: {a1: 'reviewers', a2: {a1: 'head_ref', a2: {h: 0}}}}}}}}}, pr), $1c => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($1c.a1), number => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1c.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($1c.a2.a2.a2.a2.a1), merged => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($1c.a2.a2.a2.a2.a2.a1), isDraft => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_403(), $40 => Data_PullRequest_parseState(merged, $40), Language_JSON_Accessors_string($1c.a2.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_403(), $4e => Data_PullRequest_parseDateTime($4e), Language_JSON_Accessors_string($1c.a2.a2.a2.a1)), createdAt => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($59 => Language_JSON_Accessors_string($59), $1c.a2.a2.a2.a2.a2.a2.a1), reviewers => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1c.a2.a2.a2.a2.a2.a2.a2.a1), headRef => ({h: 1 /* Right */, a1: {a1: number, a2: createdAt, a3: isDraft, a4: author, a5: state, a6: reviewers, a7: headRef}})))))))))));
|
|
8785
8870
|
}
|
|
8786
8871
|
|
|
8787
8872
|
/* Data.PullRequest.parseDateTime : String -> Either String Date */
|
|
@@ -8791,7 +8876,7 @@ function Data_PullRequest_parseDateTime($0) {
|
|
|
8791
8876
|
|
|
8792
8877
|
/* Data.PullRequest.isRequestedReviewer : String -> PullRequest -> Bool */
|
|
8793
8878
|
function Data_PullRequest_isRequestedReviewer($0, $1) {
|
|
8794
|
-
return Prelude_Types_foldMap_Foldable_List(
|
|
8879
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_95(), $6 => Prelude_EqOrd_x3dx3d_Eq_String($6, $0), $1.a6);
|
|
8795
8880
|
}
|
|
8796
8881
|
|
|
8797
8882
|
/* Data.PullRequest.isAuthor : String -> PullRequest -> Bool */
|
|
@@ -8800,7 +8885,7 @@ function Data_PullRequest_isAuthor($0, $1) {
|
|
|
8800
8885
|
}
|
|
8801
8886
|
|
|
8802
8887
|
/* Config.with block in getConfig */
|
|
8803
|
-
function
|
|
8888
|
+
function Config_with__getConfig_2267($0, $1, $2, $3) {
|
|
8804
8889
|
return $4 => {
|
|
8805
8890
|
switch($1.h) {
|
|
8806
8891
|
case 0: /* nothing */ return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_49(), $c => $c, {a1: $0, a2: {a1: ' cannot get read via `config` command.', a2: {h: 0}}}), $3, $4);
|
|
@@ -8810,20 +8895,20 @@ function Config_with__getConfig_2108($0, $1, $2, $3) {
|
|
|
8810
8895
|
}
|
|
8811
8896
|
|
|
8812
8897
|
/* Config.with block in with block in setConfig */
|
|
8813
|
-
function
|
|
8898
|
+
function Config_with__withx20blockx20inx20setConfig_2104($0, $1, $2, $3, $4, $5, $6) {
|
|
8814
8899
|
return $7 => {
|
|
8815
8900
|
switch($5.h) {
|
|
8816
8901
|
case 0: /* nothing */ return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_49(), $f => $f, {a1: $4, a2: {a1: ' is not a valid value for ', a2: {a1: $1, a2: {a1: '.', a2: {h: 0}}}}}), $6, $7);
|
|
8817
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $1f => Util_renderIO($5.a1, csegen_72(), $1f), () =>
|
|
8902
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $1f => Util_renderIO($5.a1, csegen_72(), $1f), () => csegen_424(), Config_checkConfigConsistency($5.a1)), $2b => $2c => $2d => Config_writeConfig($5.a1, $2c, $2d), $6, $7);
|
|
8818
8903
|
}
|
|
8819
8904
|
};
|
|
8820
8905
|
}
|
|
8821
8906
|
|
|
8822
8907
|
/* Config.with block in setConfig */
|
|
8823
|
-
function
|
|
8908
|
+
function Config_with__setConfig_2074($0, $1, $2, $3) {
|
|
8824
8909
|
switch($1.h) {
|
|
8825
8910
|
case 0: /* nothing */ return $5 => $6 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_49(), $d => $d, {a1: $0, a2: {a1: ' cannot be set via `config` command.', a2: {h: 0}}}), $5, $6);
|
|
8826
|
-
case undefined: /* just */ return $15 =>
|
|
8911
|
+
case undefined: /* just */ return $15 => Config_with__withx20blockx20inx20setConfig_2104(undefined, $0, $1.a1, $3, $2, Config_propSetter($1.a1, $3)($2), $15);
|
|
8827
8912
|
}
|
|
8828
8913
|
}
|
|
8829
8914
|
|
|
@@ -8864,36 +8949,36 @@ function Config_case__parseGitHubURIx2cparseSuffix_1509($0, $1, $2) {
|
|
|
8864
8949
|
default: return {h: 0};
|
|
8865
8950
|
}
|
|
8866
8951
|
};
|
|
8867
|
-
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(
|
|
8952
|
+
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_425(), $2.a1)}, $b);
|
|
8868
8953
|
}
|
|
8869
8954
|
|
|
8870
|
-
/* Config.
|
|
8871
|
-
function
|
|
8872
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
8955
|
+
/* Config.9228:2418:repo */
|
|
8956
|
+
function Config_n__9228_2418_repo($0, $1, $2, $3, $4) {
|
|
8957
|
+
return Prelude_Types_map_Functor_Maybe(csegen_426(), $4);
|
|
8873
8958
|
}
|
|
8874
8959
|
|
|
8875
|
-
/* Config.
|
|
8876
|
-
function
|
|
8960
|
+
/* Config.8332:1489:parseSuffix */
|
|
8961
|
+
function Config_n__8332_1489_parseSuffix($0, $1) {
|
|
8877
8962
|
return Config_case__parseGitHubURIx2cparseSuffix_1509($0, $1, Data_String_break$($8 => Prelude_EqOrd_x3dx3d_Eq_Char($8, '.'), $1));
|
|
8878
8963
|
}
|
|
8879
8964
|
|
|
8880
|
-
/* Config.
|
|
8881
|
-
function
|
|
8882
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b =>
|
|
8965
|
+
/* Config.8332:1488:parseSSH */
|
|
8966
|
+
function Config_n__8332_1488_parseSSH($0, $1) {
|
|
8967
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b => Config_n__8332_1489_parseSuffix($0, $b), $1);
|
|
8883
8968
|
}
|
|
8884
8969
|
|
|
8885
|
-
/* Config.
|
|
8886
|
-
function
|
|
8887
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b =>
|
|
8970
|
+
/* Config.8332:1487:parseHTTPS */
|
|
8971
|
+
function Config_n__8332_1487_parseHTTPS($0, $1) {
|
|
8972
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b => Config_n__8332_1489_parseSuffix($0, $b), $1);
|
|
8888
8973
|
}
|
|
8889
8974
|
|
|
8890
|
-
/* Config.
|
|
8891
|
-
function
|
|
8892
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
8975
|
+
/* Config.9228:2417:org */
|
|
8976
|
+
function Config_n__9228_2417_org($0, $1, $2, $3, $4) {
|
|
8977
|
+
return Prelude_Types_map_Functor_Maybe(csegen_430(), $4);
|
|
8893
8978
|
}
|
|
8894
8979
|
|
|
8895
|
-
/* Config.
|
|
8896
|
-
function
|
|
8980
|
+
/* Config.9228:2416:orIfEmpty */
|
|
8981
|
+
function Config_n__9228_2416_orIfEmpty($0, $1, $2, $3, $4, $5) {
|
|
8897
8982
|
switch($4.h) {
|
|
8898
8983
|
case 0: /* nothing */ return $5;
|
|
8899
8984
|
case undefined: /* just */ {
|
|
@@ -8905,33 +8990,33 @@ function Config_n__8973_2257_orIfEmpty($0, $1, $2, $3, $4, $5) {
|
|
|
8905
8990
|
}
|
|
8906
8991
|
}
|
|
8907
8992
|
|
|
8908
|
-
/* Config.
|
|
8909
|
-
function
|
|
8993
|
+
/* Config.8048:1213:oneDayAgo */
|
|
8994
|
+
function Config_n__8048_1213_oneDayAgo($0, $1, $2) {
|
|
8910
8995
|
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(Number(_truncUBigInt32((now-86400n)))));
|
|
8911
8996
|
}
|
|
8912
8997
|
|
|
8913
|
-
/* Config.
|
|
8914
|
-
function
|
|
8998
|
+
/* Config.9131:2307:help */
|
|
8999
|
+
function Config_n__9131_2307_help($0, $1) {
|
|
8915
9000
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1.a1)), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $13 => $13, {a1: ': ', a2: {a1: (Data_String_replicate(Prelude_Types_prim__integerToNat((Data_Config_longestSettablePropName()-Prelude_Types_String_length($1.a1))), ' ')+$1.a2), a2: {h: 0}}})));
|
|
8916
9001
|
}
|
|
8917
9002
|
|
|
8918
|
-
/* Config.
|
|
8919
|
-
function
|
|
9003
|
+
/* Config.9228:2415:enterForDefaultStr */
|
|
9004
|
+
function Config_n__9228_2415_enterForDefaultStr($0, $1, $2, $3, $4) {
|
|
8920
9005
|
return Prelude_Types_foldMap_Foldable_List(csegen_49(), $9 => $9, {a1: ' (ENTER for default: ', a2: {a1: $4, a2: {a1: ')', a2: {h: 0}}}});
|
|
8921
9006
|
}
|
|
8922
9007
|
|
|
8923
|
-
/* Config.
|
|
8924
|
-
function
|
|
9008
|
+
/* Config.8285:1440:drop' */
|
|
9009
|
+
function Config_n__8285_1440_dropx27($0, $1) {
|
|
8925
9010
|
return Config_with__dropPrefixx27x2cdropx27_1448($0, $1, Data_List_PrefixSuffix_dropPrefix($8 => $9 => Decidable_Equality_decEq_DecEq_Char($8, $9), Prelude_Types_fastUnpack($0), $1));
|
|
8926
9011
|
}
|
|
8927
9012
|
|
|
8928
|
-
/* Config.
|
|
8929
|
-
function
|
|
8930
|
-
return Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($b =>
|
|
9013
|
+
/* Config.9228:2414:defaultStr */
|
|
9014
|
+
function Config_n__9228_2414_defaultStr($0, $1, $2, $3, $4, $5) {
|
|
9015
|
+
return Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($b => Config_n__9228_2415_enterForDefaultStr($0, $1, $2, $3, $4($b)), $5));
|
|
8931
9016
|
}
|
|
8932
9017
|
|
|
8933
|
-
/* Config.
|
|
8934
|
-
function
|
|
9018
|
+
/* Config.8174:1333:checkRequestSettings */
|
|
9019
|
+
function Config_n__8174_1333_checkRequestSettings($0, $1) {
|
|
8935
9020
|
let $2;
|
|
8936
9021
|
switch($1.a6) {
|
|
8937
9022
|
case 1: {
|
|
@@ -8945,7 +9030,7 @@ function Config_n__8069_1333_checkAssignSettings($0, $1) {
|
|
|
8945
9030
|
}
|
|
8946
9031
|
switch($2) {
|
|
8947
9032
|
case 1: return {h: 1 /* Right */, a1: undefined};
|
|
8948
|
-
case 0: return {h: 0 /* Left */, a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('`
|
|
9033
|
+
case 0: return {h: 0 /* Left */, a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('`requestUsers` and `requestTeams` are both False.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('This means `harmony request` commands will only ever request reviews from users that are specified with the `+<userlogin>` syntax.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('More commonly, you want Harmony to at least request review for either a team or a user from a team when you say `harmony request teamname`;'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('It\'s suggested to either `harmony config requestUsers true` or `harmony config requestTeams true` (or both).'), a2: {h: 0}}}}})), Text_PrettyPrint_Prettyprinter_Doc_hardline())};
|
|
8949
9034
|
}
|
|
8950
9035
|
}
|
|
8951
9036
|
|
|
@@ -8981,7 +9066,7 @@ function Config_syncIfOld($0, $1, $2, $3) {
|
|
|
8981
9066
|
case 0: return $1a => Data_Promise_pure_Applicative_Promise($1, $d, $1a);
|
|
8982
9067
|
}
|
|
8983
9068
|
};
|
|
8984
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9069
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Config_n__8048_1213_oneDayAgo($0, $1, csegen_72()), $b, $2, $3);
|
|
8985
9070
|
}
|
|
8986
9071
|
|
|
8987
9072
|
/* Config.syncConfig : Config => Octokit => Bool -> Promise Config */
|
|
@@ -8993,7 +9078,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
8993
9078
|
const $32 = {a1: updatedAt, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: $0.a8, a9: teamSlugs, a10: labelNames, a11: orgMembers, a12: $0.a12, a13: $0.a13, a14: $0.a14};
|
|
8994
9079
|
return $42 => $43 => Data_Promise_x3ex3ex3d_Monad_Promise($46 => $47 => Data_Promise_map_Functor_Promise($4a => (undefined), $4c => $4d => Config_writeConfig($32, $4c, $4d), $46, $47), $55 => $56 => $57 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_when(csegen_64(), $2, () => $5f => $60 => Data_Promise_x3ex3ex3d_Monad_Promise($63 => $64 => $65 => Data_Promise_liftIO_HasIO_Promise($68 => Prelude_IO_prim__putStr('Your updated configuration is:\n', $68), $63, $64, $65), $70 => $71 => $72 => $73 => Data_Promise_liftIO_HasIO_Promise($76 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($32)+'\n'), $76), $71, $72, $73), $5f, $60)), $84 => $85 => $86 => Data_Promise_pure_Applicative_Promise($32, $85, $86), $56, $57), $42, $43);
|
|
8995
9080
|
};
|
|
8996
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9081
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_441(), $31, $2c, $2d);
|
|
8997
9082
|
};
|
|
8998
9083
|
return Data_Promise_x3ex3ex3d_Monad_Promise($23 => $24 => FFI_GitHub_listOrgMembers($1, $0.a2, $23, $24), $2b, $1f, $20);
|
|
8999
9084
|
};
|
|
@@ -9004,23 +9089,26 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
9004
9089
|
|
|
9005
9090
|
/* Config.settablePropsWithHelp : Config => String */
|
|
9006
9091
|
function Config_settablePropsWithHelp($0) {
|
|
9007
|
-
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 =>
|
|
9092
|
+
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 => Config_n__9131_2307_help($0, $9), Data_Config_settablePropNamesAndHelp())));
|
|
9008
9093
|
}
|
|
9009
9094
|
|
|
9010
9095
|
/* Config.setConfig : Config => String -> String -> Promise Config */
|
|
9011
9096
|
function Config_setConfig($0, $1, $2) {
|
|
9012
|
-
return
|
|
9097
|
+
return Config_with__setConfig_2074($1, Data_Config_settablePropNamed($1), $2, $0);
|
|
9013
9098
|
}
|
|
9014
9099
|
|
|
9015
9100
|
/* Config.propSetter : SettableProp n h -> Config -> String -> Maybe Config */
|
|
9016
9101
|
function Config_propSetter($0, $1) {
|
|
9017
9102
|
return $2 => {
|
|
9018
9103
|
switch($0) {
|
|
9019
|
-
case 0: return Config_update(
|
|
9020
|
-
case 1: return Config_update(
|
|
9021
|
-
case 2: return Config_update(
|
|
9022
|
-
case 3: return Config_update(
|
|
9023
|
-
case 4: return Config_update(
|
|
9104
|
+
case 0: return Config_update(csegen_446(), $8 => Config_parseBool($8), b => $c => ({a1: $c.a1, a2: $c.a2, a3: $c.a3, a4: $c.a4, a5: $c.a5, a6: b, a7: $c.a7, a8: $c.a8, a9: $c.a9, a10: $c.a10, a11: $c.a11, a12: $c.a12, a13: $c.a13, a14: $c.a14}), $1, $2);
|
|
9105
|
+
case 1: return Config_update(csegen_446(), $22 => Config_parseBool($22), b => $26 => ({a1: $26.a1, a2: $26.a2, a3: $26.a3, a4: $26.a4, a5: $26.a5, a6: $26.a6, a7: b, a8: $26.a8, a9: $26.a9, a10: $26.a10, a11: $26.a11, a12: $26.a12, a13: $26.a13, a14: $26.a14}), $1, $2);
|
|
9106
|
+
case 2: return Config_update(csegen_446(), $3c => Config_parseBool($3c), b => $40 => ({a1: $40.a1, a2: $40.a2, a3: $40.a3, a4: $40.a4, a5: $40.a5, a6: $40.a6, a7: $40.a7, a8: b, a9: $40.a9, a10: $40.a10, a11: $40.a11, a12: $40.a12, a13: $40.a13, a14: $40.a14}), $1, $2);
|
|
9107
|
+
case 3: return Config_update(csegen_446(), $56 => ({a1: $56}), s => $59 => ({a1: $59.a1, a2: $59.a2, a3: $59.a3, a4: s, a5: $59.a5, a6: $59.a6, a7: $59.a7, a8: $59.a8, a9: $59.a9, a10: $59.a10, a11: $59.a11, a12: $59.a12, a13: $59.a13, a14: $59.a14}), $1, $2);
|
|
9108
|
+
case 4: return Config_update(csegen_446(), $6f => ({a1: $6f}), s => $72 => ({a1: $72.a1, a2: $72.a2, a3: $72.a3, a4: $72.a4, a5: $72.a5, a6: $72.a6, a7: $72.a7, a8: $72.a8, a9: $72.a9, a10: $72.a10, a11: $72.a11, a12: $72.a12, a13: {a1: s}, a14: $72.a14}), $1, $2);
|
|
9109
|
+
case 5: return Config_update(csegen_446(), $89 => Config_parseBool($89), b => $8d => ({a1: $8d.a1, a2: $8d.a2, a3: $8d.a3, a4: $8d.a4, a5: $8d.a5, a6: b, a7: $8d.a7, a8: $8d.a8, a9: $8d.a9, a10: $8d.a10, a11: $8d.a11, a12: $8d.a12, a13: $8d.a13, a14: $8d.a14}), $1, $2);
|
|
9110
|
+
case 6: return Config_update(csegen_446(), $a3 => Config_parseBool($a3), b => $a7 => ({a1: $a7.a1, a2: $a7.a2, a3: $a7.a3, a4: $a7.a4, a5: $a7.a5, a6: $a7.a6, a7: b, a8: $a7.a8, a9: $a7.a9, a10: $a7.a10, a11: $a7.a11, a12: $a7.a12, a13: $a7.a13, a14: $a7.a14}), $1, $2);
|
|
9111
|
+
case 7: return Config_update(csegen_446(), $bd => Config_parseBool($bd), b => $c1 => ({a1: $c1.a1, a2: $c1.a2, a3: $c1.a3, a4: $c1.a4, a5: $c1.a5, a6: $c1.a6, a7: $c1.a7, a8: b, a9: $c1.a9, a10: $c1.a10, a11: $c1.a11, a12: $c1.a12, a13: $c1.a13, a14: $c1.a14}), $1, $2);
|
|
9024
9112
|
}
|
|
9025
9113
|
};
|
|
9026
9114
|
}
|
|
@@ -9033,6 +9121,9 @@ function Config_propGetter($0, $1) {
|
|
|
9033
9121
|
case 2: return Prelude_Show_show_Show_Bool($1.a8);
|
|
9034
9122
|
case 3: return Prelude_Show_show_Show_String($1.a4);
|
|
9035
9123
|
case 4: return Prelude_Types_maybe(() => 'Not set (will use $GITHUB_PAT environment variable)', () => $12 => Data_Config_show_Show_x28Hiddenx20x24ax29($12), $1.a13);
|
|
9124
|
+
case 5: return Prelude_Show_show_Show_Bool($1.a6);
|
|
9125
|
+
case 6: return Prelude_Show_show_Show_Bool($1.a7);
|
|
9126
|
+
case 7: return Prelude_Show_show_Show_Bool($1.a8);
|
|
9036
9127
|
}
|
|
9037
9128
|
}
|
|
9038
9129
|
|
|
@@ -9047,7 +9138,7 @@ function Config_preferOriginRemote($0) {
|
|
|
9047
9138
|
|
|
9048
9139
|
/* Config.parseGitHubURI : String -> Maybe GitRemote */
|
|
9049
9140
|
function Config_parseGitHubURI($0) {
|
|
9050
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
9141
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(Config_n__8332_1487_parseHTTPS($0, $0), () => Config_n__8332_1488_parseSSH($0, $0));
|
|
9051
9142
|
}
|
|
9052
9143
|
|
|
9053
9144
|
/* Config.parseBool : String -> Maybe Bool */
|
|
@@ -9101,14 +9192,14 @@ function Config_loadConfig($0, $1, $2) {
|
|
|
9101
9192
|
}
|
|
9102
9193
|
};
|
|
9103
9194
|
const $a = {a1: $b, a2: a => $13 => ({h: 1 /* Right */, a1: $13}), a3: $15};
|
|
9104
|
-
const $9 = {a1: $a, a2:
|
|
9195
|
+
const $9 = {a1: $a, a2: csegen_203(), a3: csegen_204()};
|
|
9105
9196
|
const $24 = b => a => func => $25 => {
|
|
9106
9197
|
switch($25.h) {
|
|
9107
9198
|
case 0: /* Left */ return {h: 0 /* Left */, a1: $25.a1};
|
|
9108
9199
|
case 1: /* Right */ return {h: 1 /* Right */, a1: func($25.a1)};
|
|
9109
9200
|
}
|
|
9110
9201
|
};
|
|
9111
|
-
const $23 = {a1: $24, a2:
|
|
9202
|
+
const $23 = {a1: $24, a2: csegen_261(), a3: csegen_265()};
|
|
9112
9203
|
return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, $9, $23, $4, $5);
|
|
9113
9204
|
};
|
|
9114
9205
|
const $3d = $3e => {
|
|
@@ -9153,7 +9244,7 @@ function Config_loadConfig($0, $1, $2) {
|
|
|
9153
9244
|
|
|
9154
9245
|
/* Config.getConfig : Config => String -> Promise String */
|
|
9155
9246
|
function Config_getConfig($0, $1) {
|
|
9156
|
-
return $2 =>
|
|
9247
|
+
return $2 => Config_with__getConfig_2267($1, Data_Config_settablePropNamed($1), $0, $2);
|
|
9157
9248
|
}
|
|
9158
9249
|
|
|
9159
9250
|
/* Config.findConfig : HasIO io => String -> Fuel -> io (Maybe String) */
|
|
@@ -9175,14 +9266,14 @@ function Config_findConfig($0, $1, $2) {
|
|
|
9175
9266
|
|
|
9176
9267
|
/* Config.dropPrefix' : String -> String -> Maybe String */
|
|
9177
9268
|
function Config_dropPrefixx27($0, $1) {
|
|
9178
|
-
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4),
|
|
9269
|
+
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4), Config_n__8285_1440_dropx27($0, Prelude_Types_fastUnpack($1)));
|
|
9179
9270
|
}
|
|
9180
9271
|
|
|
9181
9272
|
/* Config.createConfig : Git => Maybe String -> Bool -> Maybe String -> Promise Config */
|
|
9182
9273
|
function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
9183
9274
|
const $23 = $24 => $25 => $26 => {
|
|
9184
9275
|
const $35 = $36 => {
|
|
9185
|
-
const $38 =
|
|
9276
|
+
const $38 = Config_n__9228_2415_enterForDefaultStr($0, $3, $2, $1, 'unset');
|
|
9186
9277
|
const $37 = () => $3f => $40 => {
|
|
9187
9278
|
const $69 = $6a => $6b => $6c => {
|
|
9188
9279
|
const $6e = $6f => $70 => {
|
|
@@ -9192,7 +9283,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
9192
9283
|
default: return {a1: Data_String_trim($73)};
|
|
9193
9284
|
}
|
|
9194
9285
|
};
|
|
9195
|
-
return Data_Promise_map_Functor_Promise($72,
|
|
9286
|
+
return Data_Promise_map_Functor_Promise($72, csegen_459(), $6f, $70);
|
|
9196
9287
|
};
|
|
9197
9288
|
const $7e = configPAT => $7f => $80 => {
|
|
9198
9289
|
const $8c = $8d => $8e => $8f => {
|
|
@@ -9200,21 +9291,21 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
9200
9291
|
case undefined: /* just */ {
|
|
9201
9292
|
const $a3 = remoteGuess => $a4 => $a5 => {
|
|
9202
9293
|
const $c1 = defaultOrgAndRepo => {
|
|
9203
|
-
const $c2 =
|
|
9294
|
+
const $c2 = Config_n__9228_2414_defaultStr($0, $3, $2, $1, csegen_430(), defaultOrgAndRepo);
|
|
9204
9295
|
return $cb => $cc => {
|
|
9205
9296
|
const $e9 = $ea => $eb => $ec => {
|
|
9206
9297
|
const $107 = org => {
|
|
9207
|
-
const $108 =
|
|
9298
|
+
const $108 = Config_n__9228_2414_defaultStr($0, $3, $2, $1, csegen_426(), defaultOrgAndRepo);
|
|
9208
9299
|
return $111 => $112 => {
|
|
9209
9300
|
const $12f = $130 => $131 => $132 => {
|
|
9210
9301
|
const $14d = repo => {
|
|
9211
|
-
const $14e =
|
|
9302
|
+
const $14e = Config_n__9228_2415_enterForDefaultStr($0, $3, $2, $1, remoteGuess);
|
|
9212
9303
|
return $155 => $156 => {
|
|
9213
9304
|
const $173 = $174 => $175 => $176 => {
|
|
9214
9305
|
const $18c = defaultRemote => $18d => $18e => {
|
|
9215
|
-
const $195 =
|
|
9216
|
-
const $19e =
|
|
9217
|
-
const $1a7 =
|
|
9306
|
+
const $195 = commentOnRequest => $196 => $197 => {
|
|
9307
|
+
const $19e = requestTeams => $19f => $1a0 => {
|
|
9308
|
+
const $1a7 = requestUsers => $1a8 => $1a9 => {
|
|
9218
9309
|
const $1b8 = _ => $1b9 => $1ba => {
|
|
9219
9310
|
const $1c9 = $1ca => $1cb => $1cc => {
|
|
9220
9311
|
const $1d7 = mainBranch => $1d8 => $1d9 => {
|
|
@@ -9224,8 +9315,8 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
9224
9315
|
const $1f8 = teamSlugs => $1f9 => $1fa => {
|
|
9225
9316
|
const $205 = repoLabels => $206 => $207 => {
|
|
9226
9317
|
const $211 = orgMembers => {
|
|
9227
|
-
const $212 = {a1: updatedAt, a2: org, a3: repo, a4: defaultRemote, a5: mainBranch, a6:
|
|
9228
|
-
return $225 => $226 => Data_Promise_x3ex3ex3d_Monad_Promise($229 => $22a => Data_Promise_map_Functor_Promise($22d => (undefined), $22f => $230 => Config_writeConfig($212, $22f, $230), $229, $22a), $238 => $239 => $23a => Data_Promise_x3ex3ex3d_Monad_Promise($23d => $23e => $23f => Data_Promise_liftIO_HasIO_Promise($242 => Prelude_IO_prim__putStr('Your new configuration is:\n', $242), $23d, $23e, $23f), $24a => $24b => $24c => Data_Promise_x3ex3ex3d_Monad_Promise($24f => $250 => $251 => Data_Promise_liftIO_HasIO_Promise($254 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($212)+'\n'), $254), $24f, $250, $251), $260 => $261 => $262 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $267 => Util_renderIO($212, csegen_72(), $267), () =>
|
|
9318
|
+
const $212 = {a1: updatedAt, a2: org, a3: repo, a4: defaultRemote, a5: mainBranch, a6: requestTeams, a7: requestUsers, a8: commentOnRequest, a9: teamSlugs, a10: repoLabels, a11: orgMembers, a12: {h: 0}, a13: Prelude_Types_map_Functor_Maybe($222 => $222, configPAT), a14: $1de};
|
|
9319
|
+
return $225 => $226 => Data_Promise_x3ex3ex3d_Monad_Promise($229 => $22a => Data_Promise_map_Functor_Promise($22d => (undefined), $22f => $230 => Config_writeConfig($212, $22f, $230), $229, $22a), $238 => $239 => $23a => Data_Promise_x3ex3ex3d_Monad_Promise($23d => $23e => $23f => Data_Promise_liftIO_HasIO_Promise($242 => Prelude_IO_prim__putStr('Your new configuration is:\n', $242), $23d, $23e, $23f), $24a => $24b => $24c => Data_Promise_x3ex3ex3d_Monad_Promise($24f => $250 => $251 => Data_Promise_liftIO_HasIO_Promise($254 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($212)+'\n'), $254), $24f, $250, $251), $260 => $261 => $262 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $267 => Util_renderIO($212, csegen_72(), $267), () => csegen_424(), Config_checkConfigConsistency($212)), $273 => $274 => $275 => Data_Promise_pure_Applicative_Promise($212, $274, $275), $261, $262), $24b, $24c), $239, $23a), $225, $226);
|
|
9229
9320
|
};
|
|
9230
9321
|
return Data_Promise_x3ex3ex3d_Monad_Promise($20a => $20b => FFI_GitHub_listOrgMembers(_, org, $20a, $20b), $211, $206, $207);
|
|
9231
9322
|
};
|
|
@@ -9234,7 +9325,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
9234
9325
|
return Data_Promise_x3ex3ex3d_Monad_Promise($1f1 => $1f2 => FFI_GitHub_listTeams(_, org, $1f1, $1f2), $1f8, $1ed, $1ee);
|
|
9235
9326
|
};
|
|
9236
9327
|
};
|
|
9237
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9328
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_441(), $1dd, $1d8, $1d9);
|
|
9238
9329
|
};
|
|
9239
9330
|
return Data_Promise_x3ex3ex3d_Monad_Promise($1cf => $1d0 => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $1cf, $1d0), $1d7, $1cb, $1cc);
|
|
9240
9331
|
};
|
|
@@ -9242,28 +9333,28 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
9242
9333
|
};
|
|
9243
9334
|
return Data_Promise_x3ex3ex3d_Monad_Promise($1ac => $1ad => $1ae => Data_Promise_liftIO_HasIO_Promise($1b1 => FFI_GitHub_octokit($8d.a1, $1b1), $1ac, $1ad, $1ae), $1b8, $1a8, $1a9);
|
|
9244
9335
|
};
|
|
9245
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Util_yesNoPrompt(csegen_72(), 'Would you like harmony to
|
|
9336
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Util_yesNoPrompt(csegen_72(), 'Would you like harmony to request reviews from individual users when it requests a teams review?'), $1a7, $19f, $1a0);
|
|
9246
9337
|
};
|
|
9247
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Util_yesNoPrompt(csegen_72(), 'Would you like harmony to
|
|
9338
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Util_yesNoPrompt(csegen_72(), 'Would you like harmony to request reviews from teams when it requests reviewers?'), $19e, $196, $197);
|
|
9248
9339
|
};
|
|
9249
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Util_yesNoPrompt(csegen_72(), 'Would you like harmony to comment when it
|
|
9340
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Util_yesNoPrompt(csegen_72(), 'Would you like harmony to comment when it requests reviewers?'), $195, $18d, $18e);
|
|
9250
9341
|
};
|
|
9251
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($179 => $17a => Data_Promise_map_Functor_Promise($17d =>
|
|
9342
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($179 => $17a => Data_Promise_map_Functor_Promise($17d => Config_n__9228_2416_orIfEmpty($0, $3, $2, $1, {a1: remoteGuess}, Data_String_trim($17d)), csegen_459(), $179, $17a), $18c, $175, $176);
|
|
9252
9343
|
};
|
|
9253
9344
|
return Data_Promise_x3ex3ex3d_Monad_Promise($159 => $15a => $15b => Data_Promise_liftIO_HasIO_Promise($15e => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_49(), $166 => $166, {a1: 'What GitHub remote repo would you like to use harmony for', a2: {a1: $14e, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $15e), $159, $15a, $15b), $173, $155, $156);
|
|
9254
9345
|
};
|
|
9255
9346
|
};
|
|
9256
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($135 => $136 => Data_Promise_map_Functor_Promise($139 =>
|
|
9347
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($135 => $136 => Data_Promise_map_Functor_Promise($139 => Config_n__9228_2416_orIfEmpty($0, $3, $2, $1, Config_n__9228_2418_repo($0, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($139)), csegen_459(), $135, $136), $14d, $131, $132);
|
|
9257
9348
|
};
|
|
9258
9349
|
return Data_Promise_x3ex3ex3d_Monad_Promise($115 => $116 => $117 => Data_Promise_liftIO_HasIO_Promise($11a => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_49(), $122 => $122, {a1: 'What repository would you like to use harmony for', a2: {a1: $108, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $11a), $115, $116, $117), $12f, $111, $112);
|
|
9259
9350
|
};
|
|
9260
9351
|
};
|
|
9261
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($ef => $f0 => Data_Promise_map_Functor_Promise($f3 =>
|
|
9352
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($ef => $f0 => Data_Promise_map_Functor_Promise($f3 => Config_n__9228_2416_orIfEmpty($0, $3, $2, $1, Config_n__9228_2417_org($0, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($f3)), csegen_459(), $ef, $f0), $107, $eb, $ec);
|
|
9262
9353
|
};
|
|
9263
9354
|
return Data_Promise_x3ex3ex3d_Monad_Promise($cf => $d0 => $d1 => Data_Promise_liftIO_HasIO_Promise($d4 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_49(), $dc => $dc, {a1: 'What GitHub org would you like to use harmony for', a2: {a1: $c2, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $d4), $cf, $d0, $d1), $e9, $cb, $cc);
|
|
9264
9355
|
};
|
|
9265
9356
|
};
|
|
9266
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($a8 => $a9 => Data_Promise_x3cx7cx3e_Alternative_Promise($ac => $ad => Data_Promise_map_Functor_Promise($b0 => Config_parseGitHubURI($b0), $b4 => $b5 => FFI_Git_remoteURI($0, remoteGuess, $b4, $b5), $ac, $ad), () =>
|
|
9357
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($a8 => $a9 => Data_Promise_x3cx7cx3e_Alternative_Promise($ac => $ad => Data_Promise_map_Functor_Promise($b0 => Config_parseGitHubURI($b0), $b4 => $b5 => FFI_Git_remoteURI($0, remoteGuess, $b4, $b5), $ac, $ad), () => csegen_461(), $a8, $a9), $c1, $a4, $a5);
|
|
9267
9358
|
};
|
|
9268
9359
|
return Data_Promise_x3ex3ex3d_Monad_Promise($93 => $94 => Data_Promise_map_Functor_Promise($97 => Config_preferOriginRemote($97), $9b => $9c => FFI_Git_listRemotes($0, $9b, $9c), $93, $94), $a3, $8e, $8f);
|
|
9269
9360
|
}
|
|
@@ -9285,12 +9376,12 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
9285
9376
|
|
|
9286
9377
|
/* Config.checkConfigConsistency : Config -> Either (Doc AnsiStyle) () */
|
|
9287
9378
|
function Config_checkConfigConsistency($0) {
|
|
9288
|
-
return
|
|
9379
|
+
return Config_n__8174_1333_checkRequestSettings($0, $0);
|
|
9289
9380
|
}
|
|
9290
9381
|
|
|
9291
9382
|
/* Config.addIgnoredPRs : Config -> List Integer -> Promise Config */
|
|
9292
9383
|
function Config_addIgnoredPRs($0, $1, $2, $3) {
|
|
9293
|
-
return Config_writeConfig({a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: $0.a8, a9: $0.a9, a10: $0.a10, a11: $0.a11, a12: Data_List_nub(
|
|
9384
|
+
return Config_writeConfig({a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: $0.a8, a9: $0.a9, a10: $0.a10, a11: $0.a11, a12: Data_List_nub(csegen_220(), Prelude_Types_List_tailRecAppend($0.a12, $1)), a13: $0.a13, a14: $0.a14}, $2, $3);
|
|
9294
9385
|
}
|
|
9295
9386
|
|
|
9296
9387
|
/* Data.List.PrefixSuffix.with block in with block in dropPrefix */
|
|
@@ -9369,7 +9460,7 @@ function Commands_case__casex20blockx20inx20graph_2168($0, $1, $2, $3, $4, $5, $
|
|
|
9369
9460
|
case 0: return Data_Promise_pure_Applicative_Promise({h: 0}, $d, $e);
|
|
9370
9461
|
}
|
|
9371
9462
|
};
|
|
9372
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($c, completedReviews => Util_renderIO($2, csegen_72(), Graph_reviewsGraph(
|
|
9463
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($c, completedReviews => Util_renderIO($2, csegen_72(), Graph_reviewsGraph(csegen_217(), {a1: ann => $2f => Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($2f), a2: ann => $33 => $34 => Text_PrettyPrint_Prettyprinter_Doc_prettyPrec_Pretty_String($33, $34)}, $7.a2, $7.a1, $5, completedReviews)), $8, $9);
|
|
9373
9464
|
};
|
|
9374
9465
|
}
|
|
9375
9466
|
|
|
@@ -9383,8 +9474,8 @@ function Commands_case__graph_2126($0, $1, $2, $3, $4, $5) {
|
|
|
9383
9474
|
};
|
|
9384
9475
|
}
|
|
9385
9476
|
|
|
9386
|
-
/* Commands.case block in
|
|
9387
|
-
function
|
|
9477
|
+
/* Commands.case block in request */
|
|
9478
|
+
function Commands_case__request_1766($0, $1, $2, $3, $4, $5) {
|
|
9388
9479
|
return $7 => $9 => {
|
|
9389
9480
|
let $a;
|
|
9390
9481
|
switch(Prelude_Types_null_Foldable_List($5.a1)) {
|
|
@@ -9398,7 +9489,7 @@ function Commands_case__assign_1766($0, $1, $2, $3, $4, $5) {
|
|
|
9398
9489
|
}
|
|
9399
9490
|
}
|
|
9400
9491
|
switch($a) {
|
|
9401
|
-
case 1: return Data_Promise_reject('The
|
|
9492
|
+
case 1: return Data_Promise_reject('The request command expects one or more names of GitHub Teams or Users as arguments.', $7, $9);
|
|
9402
9493
|
case 0: {
|
|
9403
9494
|
const $2e = $2f => $30 => $31 => {
|
|
9404
9495
|
const $40 = $41 => {
|
|
@@ -9434,19 +9525,19 @@ function Commands_case__assign_1766($0, $1, $2, $3, $4, $5) {
|
|
|
9434
9525
|
};
|
|
9435
9526
|
}
|
|
9436
9527
|
|
|
9437
|
-
/* Commands.case block in case block in
|
|
9438
|
-
function
|
|
9528
|
+
/* Commands.case block in case block in request,partitionedArgs */
|
|
9529
|
+
function Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_1686($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
9439
9530
|
const $9 = Prelude_Interfaces_mapHom({a1: d => b => c => a => $d => $e => $f => ({a1: $d($f.a1), a2: $e($f.a2)}), a2: b => c => a => $18 => $19 => ({a1: $18($19.a1), a2: $19.a2}), a3: a => d => b => $20 => $21 => ({a1: $21.a1, a2: $20($21.a2)})}, $28 => Prelude_Types_List_mapAppend({h: 0}, $2c => Data_String_Extra_drop(1n, $2c), $28), {a1: $5, a2: $7.a1});
|
|
9440
9531
|
return {a1: $9.a1, a2: {a1: $7.a2, a2: $9.a2}};
|
|
9441
9532
|
}
|
|
9442
9533
|
|
|
9443
|
-
/* Commands.case block in
|
|
9444
|
-
function
|
|
9445
|
-
return
|
|
9534
|
+
/* Commands.case block in request,partitionedArgs */
|
|
9535
|
+
function Commands_case__requestx2cpartitionedArgs_1663($0, $1, $2, $3, $4, $5) {
|
|
9536
|
+
return Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_1686($0, $1, $2, $3, $4, $5.a1, $5.a2, Data_List_partition($12 => BashCompletion_isHashPrefix($12), $5.a2));
|
|
9446
9537
|
}
|
|
9447
9538
|
|
|
9448
|
-
/* Commands.
|
|
9449
|
-
function
|
|
9539
|
+
/* Commands.9789:2511:recombineIgnoreArgs */
|
|
9540
|
+
function Commands_n__9789_2511_recombineIgnoreArgs($0, $1) {
|
|
9450
9541
|
switch($1.h) {
|
|
9451
9542
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
9452
9543
|
case undefined: /* cons */ {
|
|
@@ -9455,20 +9546,20 @@ function Commands_n__9677_2511_recombineIgnoreArgs($0, $1) {
|
|
|
9455
9546
|
switch($1.a2.h) {
|
|
9456
9547
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '-i', a2: {h: 0}}};
|
|
9457
9548
|
case undefined: /* cons */ {
|
|
9458
|
-
const $b =
|
|
9549
|
+
const $b = Commands_n__9789_2509_parseIgnoreOpt($0, $1.a2.a1);
|
|
9459
9550
|
switch($b.h) {
|
|
9460
9551
|
case undefined: /* just */ {
|
|
9461
|
-
const $f =
|
|
9552
|
+
const $f = Commands_n__9789_2511_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9462
9553
|
return {a1: {a1: $b.a1, a2: $f.a1}, a2: $f.a2};
|
|
9463
9554
|
}
|
|
9464
9555
|
case 0: /* nothing */ {
|
|
9465
|
-
const $17 =
|
|
9556
|
+
const $17 = Commands_n__9789_2511_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9466
9557
|
return {a1: $17.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $17.a2}}};
|
|
9467
9558
|
}
|
|
9468
9559
|
}
|
|
9469
9560
|
}
|
|
9470
9561
|
default: {
|
|
9471
|
-
const $21 =
|
|
9562
|
+
const $21 = Commands_n__9789_2511_recombineIgnoreArgs($0, $1.a2);
|
|
9472
9563
|
return {a1: $21.a1, a2: {a1: $1.a1, a2: $21.a2}};
|
|
9473
9564
|
}
|
|
9474
9565
|
}
|
|
@@ -9477,26 +9568,26 @@ function Commands_n__9677_2511_recombineIgnoreArgs($0, $1) {
|
|
|
9477
9568
|
switch($1.a2.h) {
|
|
9478
9569
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
|
|
9479
9570
|
case undefined: /* cons */ {
|
|
9480
|
-
const $2e =
|
|
9571
|
+
const $2e = Commands_n__9789_2509_parseIgnoreOpt($0, $1.a2.a1);
|
|
9481
9572
|
switch($2e.h) {
|
|
9482
9573
|
case undefined: /* just */ {
|
|
9483
|
-
const $32 =
|
|
9574
|
+
const $32 = Commands_n__9789_2511_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9484
9575
|
return {a1: {a1: $2e.a1, a2: $32.a1}, a2: $32.a2};
|
|
9485
9576
|
}
|
|
9486
9577
|
case 0: /* nothing */ {
|
|
9487
|
-
const $3a =
|
|
9578
|
+
const $3a = Commands_n__9789_2511_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9488
9579
|
return {a1: $3a.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $3a.a2}}};
|
|
9489
9580
|
}
|
|
9490
9581
|
}
|
|
9491
9582
|
}
|
|
9492
9583
|
default: {
|
|
9493
|
-
const $44 =
|
|
9584
|
+
const $44 = Commands_n__9789_2511_recombineIgnoreArgs($0, $1.a2);
|
|
9494
9585
|
return {a1: $44.a1, a2: {a1: $1.a1, a2: $44.a2}};
|
|
9495
9586
|
}
|
|
9496
9587
|
}
|
|
9497
9588
|
}
|
|
9498
9589
|
default: {
|
|
9499
|
-
const $4c =
|
|
9590
|
+
const $4c = Commands_n__9789_2511_recombineIgnoreArgs($0, $1.a2);
|
|
9500
9591
|
return {a1: $4c.a1, a2: {a1: $1.a1, a2: $4c.a2}};
|
|
9501
9592
|
}
|
|
9502
9593
|
}
|
|
@@ -9504,33 +9595,33 @@ function Commands_n__9677_2511_recombineIgnoreArgs($0, $1) {
|
|
|
9504
9595
|
}
|
|
9505
9596
|
}
|
|
9506
9597
|
|
|
9507
|
-
/* Commands.
|
|
9508
|
-
function
|
|
9598
|
+
/* Commands.9180:1922:putNameLn */
|
|
9599
|
+
function Commands_n__9180_1922_putNameLn($0, $1, $2, $3) {
|
|
9509
9600
|
return Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_fillBreak(15, Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a1))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('-'), a2: {h: 0}}), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a2), a2: {h: 0}}}});
|
|
9510
9601
|
}
|
|
9511
9602
|
|
|
9512
|
-
/* Commands.
|
|
9513
|
-
function
|
|
9514
|
-
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $f =>
|
|
9603
|
+
/* Commands.8501:1299:putLabels */
|
|
9604
|
+
function Commands_n__8501_1299_putLabels($0, $1, $2, $3, $4) {
|
|
9605
|
+
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $f => Commands_n__8501_1298_putLabel($0, $1, $2, $3, $f), $4)));
|
|
9515
9606
|
}
|
|
9516
9607
|
|
|
9517
|
-
/* Commands.
|
|
9518
|
-
function
|
|
9608
|
+
/* Commands.8501:1298:putLabel */
|
|
9609
|
+
function Commands_n__8501_1298_putLabel($0, $1, $2, $3, $4) {
|
|
9519
9610
|
return Text_PrettyPrint_Prettyprinter_Doc_enclose(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\"'), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\"'), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4)));
|
|
9520
9611
|
}
|
|
9521
9612
|
|
|
9522
|
-
/* Commands.
|
|
9523
|
-
function
|
|
9524
|
-
return
|
|
9613
|
+
/* Commands.8856:1651:partitionedArgs */
|
|
9614
|
+
function Commands_n__8856_1651_partitionedArgs($0, $1, $2, $3, $4) {
|
|
9615
|
+
return Commands_case__requestx2cpartitionedArgs_1663($0, $1, $2, $3, $4, Data_List_partition($e => Data_String_isPrefixOf('+', $e), $4));
|
|
9525
9616
|
}
|
|
9526
9617
|
|
|
9527
|
-
/* Commands.
|
|
9528
|
-
function
|
|
9618
|
+
/* Commands.9630:2373:parseTeamArg */
|
|
9619
|
+
function Commands_n__9630_2373_parseTeamArg($0, $1) {
|
|
9529
9620
|
return {a1: {a1: $1}};
|
|
9530
9621
|
}
|
|
9531
9622
|
|
|
9532
|
-
/* Commands.
|
|
9533
|
-
function
|
|
9623
|
+
/* Commands.9789:2510:parseSkipArg */
|
|
9624
|
+
function Commands_n__9789_2510_parseSkipArg($0, $1) {
|
|
9534
9625
|
const $2 = Prelude_Types_fastUnpack($1);
|
|
9535
9626
|
switch($2.h) {
|
|
9536
9627
|
case undefined: /* cons */ {
|
|
@@ -9543,15 +9634,15 @@ function Commands_n__9677_2510_parseSkipArg($0, $1) {
|
|
|
9543
9634
|
}
|
|
9544
9635
|
}
|
|
9545
9636
|
|
|
9546
|
-
/* Commands.
|
|
9547
|
-
function
|
|
9548
|
-
const $2 = Data_String_split(
|
|
9637
|
+
/* Commands.9789:2509:parseIgnoreOpt */
|
|
9638
|
+
function Commands_n__9789_2509_parseIgnoreOpt($0, $1) {
|
|
9639
|
+
const $2 = Data_String_split(csegen_425(), $1);
|
|
9549
9640
|
const $7 = Data_List1_last($2);
|
|
9550
9641
|
return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
|
|
9551
9642
|
}
|
|
9552
9643
|
|
|
9553
|
-
/* Commands.
|
|
9554
|
-
function
|
|
9644
|
+
/* Commands.9630:2372:parseCompletedFlag */
|
|
9645
|
+
function Commands_n__9630_2372_parseCompletedFlag($0, $1) {
|
|
9555
9646
|
switch($1) {
|
|
9556
9647
|
case '-c': return {a1: {h: 0}};
|
|
9557
9648
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -9559,8 +9650,8 @@ function Commands_n__9518_2372_parseCompletedFlag($0, $1) {
|
|
|
9559
9650
|
}
|
|
9560
9651
|
}
|
|
9561
9652
|
|
|
9562
|
-
/* Commands.
|
|
9563
|
-
function
|
|
9653
|
+
/* Commands.9789:2508:parseCheckoutFlag */
|
|
9654
|
+
function Commands_n__9789_2508_parseCheckoutFlag($0, $1) {
|
|
9564
9655
|
switch($1) {
|
|
9565
9656
|
case '-c': return {a1: {h: 0 /* Checkout */}};
|
|
9566
9657
|
case '--checkout': return {a1: {h: 0 /* Checkout */}};
|
|
@@ -9568,13 +9659,13 @@ function Commands_n__9677_2508_parseCheckoutFlag($0, $1) {
|
|
|
9568
9659
|
}
|
|
9569
9660
|
}
|
|
9570
9661
|
|
|
9571
|
-
/* Commands.
|
|
9572
|
-
function
|
|
9662
|
+
/* Commands.10119:2847:isNotIgnored */
|
|
9663
|
+
function Commands_n__10119_2847_isNotIgnored($0, $1, $2, $3, $4, $5) {
|
|
9573
9664
|
return Data_Maybe_isNothing(Data_List_find($a => Prelude_EqOrd_x3dx3d_Eq_Integer($a, $5.a1), $4.a12));
|
|
9574
9665
|
}
|
|
9575
9666
|
|
|
9576
|
-
/* Commands.
|
|
9577
|
-
function
|
|
9667
|
+
/* Commands.9180:1921:forkedUser */
|
|
9668
|
+
function Commands_n__9180_1921_forkedUser($0, $1, $2, $3) {
|
|
9578
9669
|
return FFI_Concurrency_fork(csegen_72(), ('user --json '+$3));
|
|
9579
9670
|
}
|
|
9580
9671
|
|
|
@@ -9613,6 +9704,12 @@ function Commands_skipArg($0) {
|
|
|
9613
9704
|
}
|
|
9614
9705
|
}
|
|
9615
9706
|
|
|
9707
|
+
/* Commands.request : Config => Git => Octokit => List String -> {default False _ : Bool} ->
|
|
9708
|
+
Promise () */
|
|
9709
|
+
function Commands_request($0, $1, $2, $3, $4) {
|
|
9710
|
+
return Commands_case__request_1766($0, $1, $2, $4, $3, Commands_n__8856_1651_partitionedArgs($0, $1, $2, $4, $3));
|
|
9711
|
+
}
|
|
9712
|
+
|
|
9616
9713
|
/* Commands.reflect : Config => Octokit => Promise () */
|
|
9617
9714
|
function Commands_reflect($0, $1, $2, $3) {
|
|
9618
9715
|
return User_Reflect_reflectOnSelf($0, $1, $2, $3);
|
|
@@ -9664,7 +9761,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
9664
9761
|
switch($0.a2.a2.h) {
|
|
9665
9762
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
9666
9763
|
default: {
|
|
9667
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(
|
|
9764
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_489(), $10 => Commands_n__9630_2372_parseCompletedFlag($0, $10), $15 => Commands_n__9630_2373_parseTeamArg($0, $15), $b), $0);
|
|
9668
9765
|
switch($6.h) {
|
|
9669
9766
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
9670
9767
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -9673,7 +9770,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
9673
9770
|
}
|
|
9674
9771
|
}
|
|
9675
9772
|
default: {
|
|
9676
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(
|
|
9773
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_489(), $27 => Commands_n__9630_2372_parseCompletedFlag($0, $27), $2c => Commands_n__9630_2373_parseTeamArg($0, $2c), $22), $0);
|
|
9677
9774
|
switch($1d.h) {
|
|
9678
9775
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
9679
9776
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -9682,7 +9779,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
9682
9779
|
}
|
|
9683
9780
|
}
|
|
9684
9781
|
default: {
|
|
9685
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(
|
|
9782
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_489(), $3e => Commands_n__9630_2372_parseCompletedFlag($0, $3e), $43 => Commands_n__9630_2373_parseTeamArg($0, $43), $39), $0);
|
|
9686
9783
|
switch($34.h) {
|
|
9687
9784
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
9688
9785
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -9696,9 +9793,9 @@ function Commands_parseContributeArgs($0) {
|
|
|
9696
9793
|
switch($0.h) {
|
|
9697
9794
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
9698
9795
|
default: {
|
|
9699
|
-
const $3 =
|
|
9796
|
+
const $3 = Commands_n__9789_2511_recombineIgnoreArgs($0, $0);
|
|
9700
9797
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 1 /* Ignore */, a1: $b}), $3.a1);
|
|
9701
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
9798
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_489(), $18 => Commands_n__9789_2510_parseSkipArg($0, $18), $1d => Commands_n__9789_2508_parseCheckoutFlag($0, $1d), $13), $3.a2);
|
|
9702
9799
|
return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($29 => Prelude_Types_List_tailRecAppend($7, $29), $e));
|
|
9703
9800
|
}
|
|
9704
9801
|
}
|
|
@@ -9706,14 +9803,14 @@ function Commands_parseContributeArgs($0) {
|
|
|
9706
9803
|
|
|
9707
9804
|
/* Commands.list : Config => Octokit => String -> Promise () */
|
|
9708
9805
|
function Commands_list($0, $1, $2, $3, $4) {
|
|
9709
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => Data_Promise_map_Functor_Promise(
|
|
9806
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => Data_Promise_map_Functor_Promise(csegen_490(), $d => $e => FFI_GitHub_listTeamMembers($1, $0.a2, $2, $d, $e), $7, $8), teamMemberLogins => $19 => $1a => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_396(), csegen_491(), Prelude_Types_traverse_Traversable_List(csegen_64(), $27 => Commands_n__9180_1921_forkedUser($1, $2, $0, $27), teamMemberLogins)), teamMembersJson => $2f => $30 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_traverse_Traversable_List(csegen_64(), $37 => $38 => Data_Promise_either(csegen_51(), Data_User_parseUser($37), $38), teamMembersJson), teamMembers => Util_renderIO($0, csegen_72(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $4c => Commands_n__9180_1922_putNameLn($1, $2, $0, $4c), teamMembers))), $2f, $30), $19, $1a), $3, $4);
|
|
9710
9807
|
}
|
|
9711
9808
|
|
|
9712
9809
|
/* Commands.label : Config => Git => Octokit => List String -> Promise () */
|
|
9713
9810
|
function Commands_label($0, $1, $2, $3, $4, $5) {
|
|
9714
9811
|
const $20 = $21 => {
|
|
9715
9812
|
const $23 = Prelude_Types_List_mapAppend({h: 0}, $27 => Commands_unslugifyLabel($0.a10, $27), $3);
|
|
9716
|
-
return $2d => $2e => Data_Promise_x3ex3ex3d_Monad_Promise($31 => $32 => Label_addLabels($0, $2, $21.a2, $23, $31, $32), allLabels => Util_renderIO($0, csegen_72(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Added'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(
|
|
9813
|
+
return $2d => $2e => Data_Promise_x3ex3ex3d_Monad_Promise($31 => $32 => Label_addLabels($0, $2, $21.a2, $23, $31, $32), allLabels => Util_renderIO($0, csegen_72(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Added'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8501_1299_putLabels($1, $2, $3, $0, $23), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(' to PR.'), a2: {h: 0}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $61 => $61, {a1: 'All labels for PR of ', a2: {a1: $21.a2.a7, a2: {a1: ':', a2: {h: 0}}}})), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8501_1299_putLabels($1, $2, $3, $0, allLabels), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('.'), a2: {h: 0}}))), a2: {h: 0}}})), $2d, $2e);
|
|
9717
9814
|
};
|
|
9718
9815
|
return Data_Promise_x3ex3ex3d_Monad_Promise($8 => $9 => Data_Promise_x3ex3ex3d_Monad_Promise($c => $d => FFI_Git_currentBranch($1, $c, $d), $13 => $14 => $15 => PullRequest_identifyOrCreatePR($0, $1, $2, 0, $13, $14, $15), $8, $9), $20, $4, $5);
|
|
9719
9816
|
}
|
|
@@ -9776,14 +9873,14 @@ function Commands_contribute($0, $1, $2, $3, $4, $5) {
|
|
|
9776
9873
|
}
|
|
9777
9874
|
};
|
|
9778
9875
|
const $53 = Prelude_Types_List_filterAppend({h: 0}, $56, $13);
|
|
9779
|
-
const $5d = Prelude_Types_List_filterAppend({h: 0}, $61 =>
|
|
9876
|
+
const $5d = Prelude_Types_List_filterAppend({h: 0}, $61 => Commands_n__10119_2847_isNotIgnored($1, $2, $3, $0, configx27, $61), $53);
|
|
9780
9877
|
const $6a = Data_List_partition($6d => Data_PullRequest_isRequestedReviewer(myLogin, $6d), $5d);
|
|
9781
|
-
return Commands_case__contribute_3017($1, $2, $3, $0, openPrs, $13, myLogin, $2a, configx27, $40, $4d, $53, $5d, $6a, Prelude_Interfaces_mapHom({a1: d => b => c => a => $85 => $86 => $87 => ({a1: $85($87.a1), a2: $86($87.a2)}), a2: b => c => a => $90 => $91 => ({a1: $90($91.a1), a2: $91.a2}), a3: a => d => b => $98 => $99 => ({a1: $99.a1, a2: $98($99.a2)})}, $a0 => Data_List_sortBy(
|
|
9878
|
+
return Commands_case__contribute_3017($1, $2, $3, $0, openPrs, $13, myLogin, $2a, configx27, $40, $4d, $53, $5d, $6a, Prelude_Interfaces_mapHom({a1: d => b => c => a => $85 => $86 => $87 => ({a1: $85($87.a1), a2: $86($87.a2)}), a2: b => c => a => $90 => $91 => ({a1: $90($91.a1), a2: $91.a2}), a3: a => d => b => $98 => $99 => ({a1: $99.a1, a2: $98($99.a2)})}, $a0 => Data_List_sortBy(csegen_503(), $a0), $6a));
|
|
9782
9879
|
};
|
|
9783
9880
|
return Data_Promise_x3ex3ex3d_Monad_Promise($30, $3f, $2d, $2e);
|
|
9784
9881
|
};
|
|
9785
9882
|
};
|
|
9786
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($1f => $20 => Data_Promise_map_Functor_Promise(
|
|
9883
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($1f => $20 => Data_Promise_map_Functor_Promise(csegen_499(), FFI_GitHub_getSelf($2), $1f, $20), $29, $1b, $1c);
|
|
9787
9884
|
};
|
|
9788
9885
|
};
|
|
9789
9886
|
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequests($2, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $12, $4, $5);
|
|
@@ -9800,12 +9897,6 @@ function Commands_branch($0, $1, $2, $3) {
|
|
|
9800
9897
|
return Data_Promise_x3ex3ex3d_Monad_Promise($6 => $7 => FFI_Git_currentBranch($1, $6, $7), $c, $2, $3);
|
|
9801
9898
|
}
|
|
9802
9899
|
|
|
9803
|
-
/* Commands.assign : Config => Git => Octokit => List String -> {default False _ : Bool} ->
|
|
9804
|
-
Promise () */
|
|
9805
|
-
function Commands_assign($0, $1, $2, $3, $4) {
|
|
9806
|
-
return Commands_case__assign_1766($0, $1, $2, $4, $3, Commands_n__8744_1651_partitionedArgs($0, $1, $2, $4, $3));
|
|
9807
|
-
}
|
|
9808
|
-
|
|
9809
9900
|
/* Commands.(<||>) : Alternative t => (a -> t b) -> (a -> t b) -> a -> t b */
|
|
9810
9901
|
function Commands_x3cx7cx7cx3e($0, $1, $2, $3) {
|
|
9811
9902
|
return $0.a3(undefined)($1($3))(() => $2($3));
|
|
@@ -9813,63 +9904,63 @@ function Commands_x3cx7cx7cx3e($0, $1, $2, $3) {
|
|
|
9813
9904
|
|
|
9814
9905
|
/* User.Reflect.case block in case block in reflectOnSelf */
|
|
9815
9906
|
function User_Reflect_case__casex20blockx20inx20reflectOnSelf_1862($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
9816
|
-
const $b = Prelude_Interfaces_mapHom({a1: d => b => c => a => $f => $10 => $11 => ({a1: $f($11.a1), a2: $10($11.a2)}), a2: b => c => a => $1a => $1b => ({a1: $1a($1b.a1), a2: $1b.a2}), a3: a => d => b => $22 => $23 => ({a1: $23.a1, a2: $22($23.a2)})}, $2a => Data_List_headx27(Data_List_sort({a1: {a1: $31 => $32 => Data_Date_x3dx3d_Eq_Date($31, $32), a2: $37 => $38 => Data_Date_x2fx3d_Eq_Date($37, $38)}, a2: $3d => $3e => Data_Date_compare_Ord_Date($3d, $3e), a3: $43 => $44 => Data_Date_x3c_Ord_Date($43, $44), a4: $49 => $4a => Data_Date_x3e_Ord_Date($49, $4a), a5: $4f => $50 => Data_Date_x3cx3d_Ord_Date($4f, $50), a6: $55 => $56 => Data_Date_x3ex3d_Ord_Date($55, $56), a7: $5b => $5c => Data_Date_max_Ord_Date($5b, $5c), a8: $61 => $62 => Data_Date_min_Ord_Date($61, $62)}, Prelude_Types_List_mapAppend({h: 0},
|
|
9907
|
+
const $b = Prelude_Interfaces_mapHom({a1: d => b => c => a => $f => $10 => $11 => ({a1: $f($11.a1), a2: $10($11.a2)}), a2: b => c => a => $1a => $1b => ({a1: $1a($1b.a1), a2: $1b.a2}), a3: a => d => b => $22 => $23 => ({a1: $23.a1, a2: $22($23.a2)})}, $2a => Data_List_headx27(Data_List_sort({a1: {a1: $31 => $32 => Data_Date_x3dx3d_Eq_Date($31, $32), a2: $37 => $38 => Data_Date_x2fx3d_Eq_Date($37, $38)}, a2: $3d => $3e => Data_Date_compare_Ord_Date($3d, $3e), a3: $43 => $44 => Data_Date_x3c_Ord_Date($43, $44), a4: $49 => $4a => Data_Date_x3e_Ord_Date($49, $4a), a5: $4f => $50 => Data_Date_x3cx3d_Ord_Date($4f, $50), a6: $55 => $56 => Data_Date_x3ex3d_Ord_Date($55, $56), a7: $5b => $5c => Data_Date_max_Ord_Date($5b, $5c), a8: $61 => $62 => Data_Date_min_Ord_Date($61, $62)}, Prelude_Types_List_mapAppend({h: 0}, csegen_516(), $2a))), {a1: $7, a2: $9.a1});
|
|
9817
9908
|
return Util_renderIO($0, csegen_72(), User_Reflect_print(Prelude_Types_String_length(User_Reflect_intro()), Prelude_Types_List_lengthTR($4), Prelude_Types_List_lengthTR($9.a1), Prelude_Types_List_lengthTR($9.a2), Prelude_Types_List_lengthTR($8), Prelude_Types_List_lengthTR($7), $5, $b.a1, $b.a2));
|
|
9818
9909
|
}
|
|
9819
9910
|
|
|
9820
|
-
/* User.Me.
|
|
9821
|
-
function
|
|
9911
|
+
/* User.Me.7221:1985:ul */
|
|
9912
|
+
function User_Me_n__7221_1985_ul($0, $1, $2, $3) {
|
|
9822
9913
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3));
|
|
9823
9914
|
}
|
|
9824
9915
|
|
|
9825
|
-
/* User.Me.
|
|
9826
|
-
function
|
|
9827
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
9916
|
+
/* User.Me.7221:1984:teams */
|
|
9917
|
+
function User_Me_n__7221_1984_teams($0, $1, $2) {
|
|
9918
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: User_Me_n__7221_1985_ul($0, $1, $2, 'GitHub Teams:'), a2: Prelude_Types_List_mapAppend({h: 0}, $f => User_Me_n__7221_1982_it($0, $1, $2, $f), $0)});
|
|
9828
9919
|
}
|
|
9829
9920
|
|
|
9830
|
-
/* User.Me.
|
|
9831
|
-
function
|
|
9832
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'),
|
|
9921
|
+
/* User.Me.7221:1983:login */
|
|
9922
|
+
function User_Me_n__7221_1983_login($0, $1, $2) {
|
|
9923
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'), User_Me_n__7221_1981_green($0, $1, $2, $1.a1));
|
|
9833
9924
|
}
|
|
9834
9925
|
|
|
9835
|
-
/* User.Reflect.
|
|
9836
|
-
function
|
|
9926
|
+
/* User.Reflect.6314:1056:ital */
|
|
9927
|
+
function User_Reflect_n__6314_1056_ital($0, $1) {
|
|
9837
9928
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
9838
9929
|
}
|
|
9839
9930
|
|
|
9840
|
-
/* User.Me.
|
|
9841
|
-
function
|
|
9931
|
+
/* User.Me.7221:1982:it */
|
|
9932
|
+
function User_Me_n__7221_1982_it($0, $1, $2, $3) {
|
|
9842
9933
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3));
|
|
9843
9934
|
}
|
|
9844
9935
|
|
|
9845
|
-
/* User.Me.
|
|
9846
|
-
function
|
|
9936
|
+
/* User.Me.7361:2135:handleUnsetEmail */
|
|
9937
|
+
function User_Me_n__7361_2135_handleUnsetEmail($0, $1, $2, $3) {
|
|
9847
9938
|
switch($3) {
|
|
9848
9939
|
case '': return {h: 0};
|
|
9849
9940
|
default: return {a1: $3};
|
|
9850
9941
|
}
|
|
9851
9942
|
}
|
|
9852
9943
|
|
|
9853
|
-
/* User.Me.
|
|
9854
|
-
function
|
|
9944
|
+
/* User.Me.7221:1981:green */
|
|
9945
|
+
function User_Me_n__7221_1981_green($0, $1, $2, $3) {
|
|
9855
9946
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3));
|
|
9856
9947
|
}
|
|
9857
9948
|
|
|
9858
|
-
/* User.Me.
|
|
9859
|
-
function
|
|
9860
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'),
|
|
9949
|
+
/* User.Me.7221:1980:fullName */
|
|
9950
|
+
function User_Me_n__7221_1980_fullName($0, $1, $2) {
|
|
9951
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'), User_Me_n__7221_1981_green($0, $1, $2, $1.a2));
|
|
9861
9952
|
}
|
|
9862
9953
|
|
|
9863
|
-
/* User.Me.
|
|
9864
|
-
function
|
|
9954
|
+
/* User.Me.7221:1979:email */
|
|
9955
|
+
function User_Me_n__7221_1979_email($0, $1, $2) {
|
|
9865
9956
|
let $7;
|
|
9866
9957
|
switch($2.h) {
|
|
9867
9958
|
case undefined: /* just */ {
|
|
9868
|
-
$7 =
|
|
9959
|
+
$7 = User_Me_n__7221_1981_green($0, $1, $2, $2.a1);
|
|
9869
9960
|
break;
|
|
9870
9961
|
}
|
|
9871
9962
|
case 0: /* nothing */ {
|
|
9872
|
-
$7 =
|
|
9963
|
+
$7 = User_Me_n__7221_1982_it($0, $1, $2, 'Not set');
|
|
9873
9964
|
break;
|
|
9874
9965
|
}
|
|
9875
9966
|
}
|
|
@@ -9896,21 +9987,21 @@ function User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
|
9896
9987
|
const $c = prs => $d => $e => {
|
|
9897
9988
|
const $1b = myLogin => $1c => $1d => {
|
|
9898
9989
|
const $39 = reviews => {
|
|
9899
|
-
const $3a = Prelude_Types_map_Functor_Maybe(
|
|
9990
|
+
const $3a = Prelude_Types_map_Functor_Maybe(csegen_519(), Data_List_headx27(Data_List_sortBy($43 => $44 => Prelude_Basics_on(csegen_501(), csegen_519(), $43, $44), reviews)));
|
|
9900
9991
|
const $4d = PullRequest_tuple(prs);
|
|
9901
9992
|
const $50 = Prelude_Interfaces_mapHom({a1: d => b => c => a => $54 => $55 => $56 => ({a1: $54($56.a1), a2: $55($56.a2)}), a2: b => c => a => $5f => $60 => ({a1: $5f($60.a1), a2: $60.a2}), a3: a => d => b => $67 => $68 => ({a1: $68.a1, a2: $67($68.a2)})}, $6f => Prelude_Types_List_filterAppend({h: 0}, $73 => Prelude_EqOrd_x3dx3d_Eq_String($73.a4, myLogin), $6f), $4d);
|
|
9902
|
-
return User_Reflect_case__casex20blockx20inx20reflectOnSelf_1862($0, $1, prs, myLogin, reviews, $3a, $4d, $50.a1, $50.a2, Prelude_Interfaces_mapHom({a1: d => b => c => a => $88 => $89 => $8a => ({a1: $88($8a.a1), a2: $89($8a.a2)}), a2: b => c => a => $93 => $94 => ({a1: $93($94.a1), a2: $94.a2}), a3: a => d => b => $9b => $9c => ({a1: $9c.a1, a2: $9b($9c.a2)})}, $a3 => Prelude_Types_List_filterAppend({h: 0}, $a7 => Prelude_Types_foldMap_Foldable_List(
|
|
9993
|
+
return User_Reflect_case__casex20blockx20inx20reflectOnSelf_1862($0, $1, prs, myLogin, reviews, $3a, $4d, $50.a1, $50.a2, Prelude_Interfaces_mapHom({a1: d => b => c => a => $88 => $89 => $8a => ({a1: $88($8a.a1), a2: $89($8a.a2)}), a2: b => c => a => $93 => $94 => ({a1: $93($94.a1), a2: $94.a2}), a3: a => d => b => $9b => $9c => ({a1: $9c.a1, a2: $9b($9c.a2)})}, $a3 => Prelude_Types_List_filterAppend({h: 0}, $a7 => Prelude_Types_foldMap_Foldable_List(csegen_95(), $ac => Prelude_EqOrd_x3dx3d_Eq_String($ac, myLogin), $a7.a6), $a3), $4d));
|
|
9903
9994
|
};
|
|
9904
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2d => $2e => Prelude_Basics_on(
|
|
9995
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2d => $2e => Prelude_Basics_on(csegen_501(), csegen_516(), $2d, $2e), PullRequest_combined(prs))))), $39, $1c, $1d);
|
|
9905
9996
|
};
|
|
9906
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($11 => $12 => Data_Promise_map_Functor_Promise(
|
|
9997
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($11 => $12 => Data_Promise_map_Functor_Promise(csegen_499(), FFI_GitHub_getSelf($1), $11, $12), $1b, $d, $e);
|
|
9907
9998
|
};
|
|
9908
9999
|
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_listPartitionedPRs($0, $1, 4n, User_Reflect_prCount()), $c, $2, $3);
|
|
9909
10000
|
}
|
|
9910
10001
|
|
|
9911
10002
|
/* User.Me.printInfoOnSelf : Config => Octokit => Git => Promise () */
|
|
9912
10003
|
function User_Me_printInfoOnSelf($0, $1, $2, $3, $4) {
|
|
9913
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => Data_Promise_map_Functor_Promise($b =>
|
|
10004
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => Data_Promise_map_Functor_Promise($b => User_Me_n__7361_2135_handleUnsetEmail($0, $1, $2, $b), $12 => $13 => FFI_Git_userEmail($2, $12, $13), $7, $8), gitEmail => $1b => $1c => Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_getSelf($1), githubUser => $22 => $23 => Data_Promise_x3ex3ex3d_Monad_Promise($26 => $27 => Data_Promise_map_Functor_Promise(csegen_490(), $2c => $2d => FFI_GitHub_listMyTeams($1, $2c, $2d), $26, $27), githubTeams => Util_renderIO($0, csegen_72(), User_Me_print(gitEmail, githubUser, githubTeams)), $22, $23), $1b, $1c), $3, $4);
|
|
9914
10005
|
}
|
|
9915
10006
|
|
|
9916
10007
|
/* User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
@@ -9920,7 +10011,7 @@ function User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
9920
10011
|
|
|
9921
10012
|
/* User.Me.print : Maybe String -> User -> List String -> Doc AnsiStyle */
|
|
9922
10013
|
function User_Me_print($0, $1, $2) {
|
|
9923
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
10014
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: User_Me_n__7221_1979_email($2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: User_Me_n__7221_1980_fullName($2, $1, $0), a2: {a1: User_Me_n__7221_1983_login($2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: User_Me_n__7221_1984_teams($2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}}}}});
|
|
9924
10015
|
}
|
|
9925
10016
|
|
|
9926
10017
|
/* User.Reflect.prCount : Fin 101 */
|
|
@@ -9940,15 +10031,15 @@ const User_Reflect_intro = __lazy(function () {
|
|
|
9940
10031
|
|
|
9941
10032
|
/* User.Reflect.header : Nat -> Doc AnsiStyle */
|
|
9942
10033
|
function User_Reflect_header($0) {
|
|
9943
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1:
|
|
10034
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: User_Reflect_n__6314_1056_ital($0, User_Reflect_leftTitle()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' '), a2: {a1: User_Reflect_n__6314_1056_ital($0, User_Reflect_rightTitle()), a2: {h: 0}}}}));
|
|
9944
10035
|
}
|
|
9945
10036
|
|
|
9946
10037
|
/* User.Reflect.graph : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
9947
10038
|
function User_Reflect_graph($0, $1, $2, $3, $4, $5) {
|
|
9948
10039
|
const $6 = ($2+$3);
|
|
9949
10040
|
const $9 = ($5+$4);
|
|
9950
|
-
const $c = Prelude_Types_foldr_Foldable_List(
|
|
9951
|
-
const $1b = Prelude_Types_foldr_Foldable_List(
|
|
10041
|
+
const $c = Prelude_Types_foldr_Foldable_List(csegen_206(), Prelude_Types_String_length(User_Reflect_leftTitle()), {a1: ($6+$1), a2: {a1: $9, a2: {h: 0}}});
|
|
10042
|
+
const $1b = Prelude_Types_foldr_Foldable_List(csegen_206(), Prelude_Types_String_length(User_Reflect_rightTitle()), {a1: $6, a2: {a1: $9, a2: {h: 0}}});
|
|
9952
10043
|
const $28 = (($c+$1b)+3n);
|
|
9953
10044
|
const $2d = ((Number($0)/2.0)-(Number($28)/2.0));
|
|
9954
10045
|
const $36 = (Prelude_Types_prim__integerToNat(BigInt(Math.trunc($2d)))+Prelude_Types_prim__integerToNat(($c-Prelude_Types_String_length(User_Reflect_leftTitle()))));
|
|
@@ -9958,7 +10049,7 @@ function User_Reflect_graph($0, $1, $2, $3, $4, $5) {
|
|
|
9958
10049
|
|
|
9959
10050
|
/* User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
9960
10051
|
function User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
9961
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(User_Reflect_intro()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Requested Reviews:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('unreviewed:')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($2)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(
|
|
10052
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(User_Reflect_intro()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Requested Reviews:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('unreviewed:')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($2)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(csegen_525(), $8), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('closed:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(1), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($3)), a2: {h: 0}}})}, a2: {h: 0}}}})))}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('reviews*:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($1)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('most recent:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date(date)), a2: {h: 0}}})), $6), a2: {h: 0}}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Authored Pulls:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($5)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(csegen_525(), $7), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('closed:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($4)), a2: {h: 0}}})}, a2: {h: 0}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $cf => $cf, {a1: '*review count (not PR count) of most recent ', a2: {a1: Data_Fin_show_Show_x28Finx20x24nx29(User_Reflect_reviewDetailsCount()), a2: {a1: ' PRs.', a2: {h: 0}}}}))), a2: {h: 0}}}}}}}}}});
|
|
9962
10053
|
}
|
|
9963
10054
|
|
|
9964
10055
|
/* User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
@@ -10020,55 +10111,55 @@ function PullRequest_case__casex20blockx20inx20casex20blockx20inx20identifyOrCre
|
|
|
10020
10111
|
}
|
|
10021
10112
|
}
|
|
10022
10113
|
|
|
10023
|
-
/* PullRequest.
|
|
10024
|
-
function
|
|
10114
|
+
/* PullRequest.9595:1965:userNotice */
|
|
10115
|
+
function PullRequest_n__9595_1965_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
10025
10116
|
switch($6.h) {
|
|
10026
10117
|
case 0: /* nothing */ {
|
|
10027
10118
|
switch($2.h) {
|
|
10028
10119
|
case 0: /* nil */ return 'no users';
|
|
10029
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_49(), $d => $d, {a1:
|
|
10120
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_49(), $d => $d, {a1: PullRequest_n__9595_1962_csv($0, $1, $2, $3, $4, $5, $2), a2: {h: 0}});
|
|
10030
10121
|
}
|
|
10031
10122
|
}
|
|
10032
|
-
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_49(), $1d => $1d, {a1:
|
|
10123
|
+
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_49(), $1d => $1d, {a1: PullRequest_n__9595_1962_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: $2}), a2: {h: 0}});
|
|
10033
10124
|
}
|
|
10034
10125
|
}
|
|
10035
10126
|
|
|
10036
|
-
/* PullRequest.
|
|
10037
|
-
function
|
|
10127
|
+
/* PullRequest.9595:1964:teamNotice */
|
|
10128
|
+
function PullRequest_n__9595_1964_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
10038
10129
|
switch($6.h) {
|
|
10039
10130
|
case 0: /* nil */ return '';
|
|
10040
10131
|
case undefined: /* cons */ {
|
|
10041
10132
|
switch($6.a2.h) {
|
|
10042
|
-
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_49(), $d => $d, {a1: ' and team ', a2: {a1:
|
|
10043
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_49(), $21 => $21, {a1: ' and teams ', a2: {a1:
|
|
10133
|
+
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_49(), $d => $d, {a1: ' and team ', a2: {a1: PullRequest_n__9595_1962_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: {h: 0}}), a2: {h: 0}}});
|
|
10134
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_49(), $21 => $21, {a1: ' and teams ', a2: {a1: PullRequest_n__9595_1962_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
10044
10135
|
}
|
|
10045
10136
|
}
|
|
10046
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_49(), $33 => $33, {a1: ' and teams ', a2: {a1:
|
|
10137
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_49(), $33 => $33, {a1: ' and teams ', a2: {a1: PullRequest_n__9595_1962_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
10047
10138
|
}
|
|
10048
10139
|
}
|
|
10049
10140
|
|
|
10050
|
-
/* PullRequest.
|
|
10051
|
-
function
|
|
10141
|
+
/* PullRequest.10285:2629:prepareDescriptionFile */
|
|
10142
|
+
function PullRequest_n__10285_2629_prepareDescriptionFile($0, $1, $2, $3, $4, $5, $6) {
|
|
10052
10143
|
return $5.a1.a2(undefined)(undefined)(System_File_Meta_exists($5, $6))($14 => Prelude_Interfaces_when($5.a1.a1, $14, () => $5.a1.a1.a1(undefined)(undefined)($25 => (undefined))(System_File_copyFile($5, $6, 'pr_description.tmp.md'))));
|
|
10053
10144
|
}
|
|
10054
10145
|
|
|
10055
|
-
/* PullRequest.
|
|
10056
|
-
function
|
|
10057
|
-
return Prelude_Types_foldMap_Foldable_List(csegen_49(), $b => $b, {a1: ':musical_note: Harmoniously
|
|
10146
|
+
/* PullRequest.9595:1963:prComment */
|
|
10147
|
+
function PullRequest_n__9595_1963_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
10148
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_49(), $b => $b, {a1: ':musical_note: Harmoniously requested review from @', a2: {a1: $6, a2: {a1: '.', a2: {h: 0}}}});
|
|
10058
10149
|
}
|
|
10059
10150
|
|
|
10060
|
-
/* PullRequest.
|
|
10061
|
-
function
|
|
10151
|
+
/* PullRequest.10285:2628:inlineDescription */
|
|
10152
|
+
function PullRequest_n__10285_2628_inlineDescription($0, $1, $2, $3, $4, $5) {
|
|
10062
10153
|
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($14 => Prelude_IO_prim__putStr('What would you like the description to be (two blank lines to finish)?\n', $14)))($19 => $5.a1.a1.a1(undefined)(undefined)($24 => Data_String_fastUnlines($24))(Util_getManyLines($5, Data_Fuel_limit(100n))));
|
|
10063
10154
|
}
|
|
10064
10155
|
|
|
10065
|
-
/* PullRequest.
|
|
10066
|
-
function
|
|
10156
|
+
/* PullRequest.9368:1704:forkedReviews */
|
|
10157
|
+
function PullRequest_n__9368_1704_forkedReviews($0, $1, $2, $3) {
|
|
10067
10158
|
return FFI_Concurrency_fork(csegen_72(), ('reviews --json '+Prelude_Show_show_Show_Integer($3.a1)));
|
|
10068
10159
|
}
|
|
10069
10160
|
|
|
10070
|
-
/* PullRequest.
|
|
10071
|
-
function
|
|
10161
|
+
/* PullRequest.8801:1169:filterString */
|
|
10162
|
+
function PullRequest_n__8801_1169_filterString($0, $1, $2, $3, $4) {
|
|
10072
10163
|
switch($4.h) {
|
|
10073
10164
|
case 0: /* nothing */ return 'none';
|
|
10074
10165
|
case undefined: /* just */ {
|
|
@@ -10080,8 +10171,8 @@ function PullRequest_n__8696_1169_filterString($0, $1, $2, $3, $4) {
|
|
|
10080
10171
|
}
|
|
10081
10172
|
}
|
|
10082
10173
|
|
|
10083
|
-
/* PullRequest.
|
|
10084
|
-
function
|
|
10174
|
+
/* PullRequest.10285:2627:editorDescription */
|
|
10175
|
+
function PullRequest_n__10285_2627_editorDescription($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10085
10176
|
const $19 = $1a => {
|
|
10086
10177
|
const $31 = $32 => {
|
|
10087
10178
|
switch($32) {
|
|
@@ -10091,16 +10182,16 @@ function PullRequest_n__10180_2627_editorDescription($0, $1, $2, $3, $4, $5, $6,
|
|
|
10091
10182
|
};
|
|
10092
10183
|
return $5.a1.a2(undefined)(undefined)(System_system($5, Prelude_Types_foldMap_Foldable_List(csegen_49(), $2b => $2b, {a1: $6, a2: {a1: ' pr_description.tmp.md', a2: {h: 0}}})))($31);
|
|
10093
10184
|
};
|
|
10094
|
-
return $5.a1.a2(undefined)(undefined)(
|
|
10185
|
+
return $5.a1.a2(undefined)(undefined)(PullRequest_n__10285_2629_prepareDescriptionFile($0, $1, $2, $3, $4, $5, $7))($19);
|
|
10095
10186
|
}
|
|
10096
10187
|
|
|
10097
|
-
/* PullRequest.
|
|
10098
|
-
function
|
|
10188
|
+
/* PullRequest.9595:1962:csv */
|
|
10189
|
+
function PullRequest_n__9595_1962_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
10099
10190
|
return Util_renderString($5, Text_PrettyPrint_Prettyprinter_Doc_encloseSep(Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $16 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($16)), $6)));
|
|
10100
10191
|
}
|
|
10101
10192
|
|
|
10102
|
-
/* PullRequest.
|
|
10103
|
-
function
|
|
10193
|
+
/* PullRequest.10285:2626:createPR */
|
|
10194
|
+
function PullRequest_n__10285_2626_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
10104
10195
|
const $39 = $3a => $3b => $3c => {
|
|
10105
10196
|
const $49 = $4a => $4b => $4c => {
|
|
10106
10197
|
switch($4a) {
|
|
@@ -10133,11 +10224,11 @@ function PullRequest_n__10180_2626_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
10133
10224
|
let $17a;
|
|
10134
10225
|
switch($17b.h) {
|
|
10135
10226
|
case 0: /* nothing */ {
|
|
10136
|
-
$17a =
|
|
10227
|
+
$17a = PullRequest_n__10285_2628_inlineDescription($0, $1, $2, $3, $4, csegen_72());
|
|
10137
10228
|
break;
|
|
10138
10229
|
}
|
|
10139
10230
|
case undefined: /* just */ {
|
|
10140
|
-
$17a = $186 => $187 => Data_Promise_map_Functor_Promise($18a => Prelude_Types_either(() => $18d => '', () => $18f => $18f, $18a),
|
|
10231
|
+
$17a = $186 => $187 => Data_Promise_map_Functor_Promise($18a => Prelude_Types_either(() => $18d => '', () => $18f => $18f, $18a), PullRequest_n__10285_2627_editorDescription($0, $1, $2, $3, $4, csegen_72(), $17b.a1, templateFilePath), $186, $187);
|
|
10141
10232
|
break;
|
|
10142
10233
|
}
|
|
10143
10234
|
}
|
|
@@ -10145,7 +10236,7 @@ function PullRequest_n__10180_2626_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
10145
10236
|
};
|
|
10146
10237
|
return Data_Promise_x3ex3ex3d_Monad_Promise($16f => $170 => Util_relativeToRoot($0, '.github/PULL_REQUEST_TEMPLATE.md', $16f, $170), $176, $16b, $16c);
|
|
10147
10238
|
};
|
|
10148
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($15d => $15e => Data_Promise_map_Functor_Promise($161 => ($13b+Data_String_trim($161)),
|
|
10239
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($15d => $15e => Data_Promise_map_Functor_Promise($161 => ($13b+Data_String_trim($161)), csegen_459(), $15d, $15e), $16a, $159, $15a);
|
|
10149
10240
|
};
|
|
10150
10241
|
return Data_Promise_x3ex3ex3d_Monad_Promise($14b => $14c => $14d => Data_Promise_liftIO_HasIO_Promise($150 => Prelude_IO_prim__putStr($13b, $150), $14b, $14c, $14d), $157, $147, $148);
|
|
10151
10242
|
};
|
|
@@ -10154,7 +10245,7 @@ function PullRequest_n__10180_2626_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
10154
10245
|
return Data_Promise_x3ex3ex3d_Monad_Promise($12c => $12d => $12e => Data_Promise_liftIO_HasIO_Promise($131 => Prelude_IO_prim__putStr('What would you like the title to be?\n', $131), $12c, $12d, $12e), $138, $128, $129);
|
|
10155
10246
|
};
|
|
10156
10247
|
};
|
|
10157
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($10f => $110 => Data_Promise_map_Functor_Promise($113 => Data_String_trim($113),
|
|
10248
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($10f => $110 => Data_Promise_map_Functor_Promise($113 => Data_String_trim($113), csegen_459(), $10f, $110), $11a, $10b, $10c);
|
|
10158
10249
|
};
|
|
10159
10250
|
return Data_Promise_x3ex3ex3d_Monad_Promise($ee => $ef => $f0 => Data_Promise_liftIO_HasIO_Promise($f3 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_49(), $fb => $fb, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $4.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $f3), $ee, $ef, $f0), $109, $ea, $eb);
|
|
10160
10251
|
};
|
|
@@ -10165,32 +10256,32 @@ function PullRequest_n__10180_2626_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
10165
10256
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $5c, $5d);
|
|
10166
10257
|
}
|
|
10167
10258
|
};
|
|
10168
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($50 => $51 =>
|
|
10259
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($50 => $51 => PullRequest_n__10285_2624_continueGivenStagedChanges($0, $1, $2, $3, $4, $50, $51), $5a, $4b, $4c);
|
|
10169
10260
|
}
|
|
10170
10261
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $4b, $4c);
|
|
10171
10262
|
}
|
|
10172
10263
|
};
|
|
10173
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($3f => $40 =>
|
|
10264
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($3f => $40 => PullRequest_n__10285_2625_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $3f, $40), $49, $3b, $3c);
|
|
10174
10265
|
};
|
|
10175
10266
|
return Data_Promise_x3ex3ex3d_Monad_Promise($9 => $a => Data_Promise_x3ex3ex3d_Monad_Promise($d => $e => FFI_Git_remoteTrackingBranch($0, $d, $e), $14 => Util_whenNothing(csegen_64(), $14, $1a => $1b => Data_Promise_x3ex3ex3d_Monad_Promise($1e => $1f => $20 => Data_Promise_liftIO_HasIO_Promise($23 => Prelude_IO_prim__putStr('Creating a new remote branch...\n', $23), $1e, $1f, $20), $2b => $2c => $2d => FFI_Git_pushNewBranch($0, $4.a4, $2, $2c, $2d), $1a, $1b)), $9, $a), $39, $5, $6);
|
|
10176
10267
|
}
|
|
10177
10268
|
|
|
10178
|
-
/* PullRequest.
|
|
10179
|
-
function
|
|
10269
|
+
/* PullRequest.10285:2625:continueGivenUncommittedChanges */
|
|
10270
|
+
function PullRequest_n__10285_2625_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
10180
10271
|
const $f = $10 => $11 => $12 => {
|
|
10181
10272
|
switch($10.h) {
|
|
10182
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($16 => $17 => $18 => Data_Promise_liftIO_HasIO_Promise($1b => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1b), $16, $17, $18), $23 => $24 => $25 => Data_Promise_x3ex3ex3d_Monad_Promise($28 => $29 => $2a => Data_Promise_liftIO_HasIO_Promise($2d => Prelude_IO_prim__putStr(($10.a1+'\n'), $2d), $28, $29, $2a),
|
|
10273
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($16 => $17 => $18 => Data_Promise_liftIO_HasIO_Promise($1b => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1b), $16, $17, $18), $23 => $24 => $25 => Data_Promise_x3ex3ex3d_Monad_Promise($28 => $29 => $2a => Data_Promise_liftIO_HasIO_Promise($2d => Prelude_IO_prim__putStr(($10.a1+'\n'), $2d), $28, $29, $2a), csegen_555(), $24, $25), $11, $12);
|
|
10183
10274
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_Promise(1, $11, $12);
|
|
10184
10275
|
}
|
|
10185
10276
|
};
|
|
10186
10277
|
return Data_Promise_x3ex3ex3d_Monad_Promise($9 => $a => FFI_Git_uncommittedChanges($0, $9, $a), $f, $5, $6);
|
|
10187
10278
|
}
|
|
10188
10279
|
|
|
10189
|
-
/* PullRequest.
|
|
10190
|
-
function
|
|
10280
|
+
/* PullRequest.10285:2624:continueGivenStagedChanges */
|
|
10281
|
+
function PullRequest_n__10285_2624_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
10191
10282
|
const $f = $10 => $11 => $12 => {
|
|
10192
10283
|
switch($10.h) {
|
|
10193
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($16 => $17 => $18 => Data_Promise_liftIO_HasIO_Promise($1b => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1b), $16, $17, $18), $23 => $24 => $25 => Data_Promise_x3ex3ex3d_Monad_Promise($28 => $29 => $2a => Data_Promise_liftIO_HasIO_Promise($2d => Prelude_IO_prim__putStr(($10.a1+'\n'), $2d), $28, $29, $2a),
|
|
10284
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($16 => $17 => $18 => Data_Promise_liftIO_HasIO_Promise($1b => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1b), $16, $17, $18), $23 => $24 => $25 => Data_Promise_x3ex3ex3d_Monad_Promise($28 => $29 => $2a => Data_Promise_liftIO_HasIO_Promise($2d => Prelude_IO_prim__putStr(($10.a1+'\n'), $2d), $28, $29, $2a), csegen_555(), $24, $25), $11, $12);
|
|
10194
10285
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_Promise(1, $11, $12);
|
|
10195
10286
|
}
|
|
10196
10287
|
};
|
|
@@ -10234,7 +10325,7 @@ function PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
|
|
|
10234
10325
|
};
|
|
10235
10326
|
return Data_Promise_x3ex3ex3d_Monad_Promise($1c, reviews => $43 => $44 => Data_Promise_pure_Applicative_Promise(Prelude_Types_join_Monad_List(reviews), $43, $44), $19, $1a);
|
|
10236
10327
|
};
|
|
10237
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(
|
|
10328
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_396(), csegen_491(), Prelude_Types_traverse_Traversable_List(csegen_64(), $11 => PullRequest_n__9368_1704_forkedReviews($0, $1, $2, $11), $2)), $18, $3, $4);
|
|
10238
10329
|
}
|
|
10239
10330
|
|
|
10240
10331
|
/* PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise (List Review) */
|
|
@@ -10264,9 +10355,9 @@ function PullRequest_reviewsByUser($0, $1, $2, $3) {
|
|
|
10264
10355
|
List PullRequest -> Promise (SortedMap String (List Review)) */
|
|
10265
10356
|
function PullRequest_reviewsByEachUser($0, $1, $2, $3, $4) {
|
|
10266
10357
|
const $f = reviews => {
|
|
10267
|
-
const $10 = Data_List_groupAllWith(
|
|
10358
|
+
const $10 = Data_List_groupAllWith(csegen_217(), $15 => $15.a2, reviews);
|
|
10268
10359
|
const $18 = Prelude_Types_List_mapAppend({h: 0}, rs => ({a1: rs.a1.a2, a2: Data_List1_forget(rs)}), $10);
|
|
10269
|
-
return $23 => $24 => Data_Promise_pure_Applicative_Promise(Data_SortedMap_fromList(
|
|
10360
|
+
return $23 => $24 => Data_Promise_pure_Applicative_Promise(Data_SortedMap_fromList(csegen_217(), $18), $23, $24);
|
|
10270
10361
|
};
|
|
10271
10362
|
return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => PullRequest_reviewsForPrs($0, $1, $2, $7, $8), $f, $3, $4);
|
|
10272
10363
|
}
|
|
@@ -10280,12 +10371,12 @@ function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
10280
10371
|
let $37;
|
|
10281
10372
|
switch($0.a7) {
|
|
10282
10373
|
case 1: {
|
|
10283
|
-
const $3a = Reviewer_chooseReviewers(
|
|
10374
|
+
const $3a = Reviewer_chooseReviewers(csegen_217(), $14.a2, $14.a1, teamMembers, {h: 0}, $2.a4);
|
|
10284
10375
|
$37 = Reviewer_randomReviewer(csegen_72(), $3a);
|
|
10285
10376
|
break;
|
|
10286
10377
|
}
|
|
10287
10378
|
case 0: {
|
|
10288
|
-
$37 =
|
|
10379
|
+
$37 = csegen_461();
|
|
10289
10380
|
break;
|
|
10290
10381
|
}
|
|
10291
10382
|
}
|
|
@@ -10316,7 +10407,7 @@ function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
10316
10407
|
}
|
|
10317
10408
|
const $56 = Prelude_Interfaces_when(csegen_64(), $5a, () => $5d => $5e => Data_Promise_x3ex3ex3d_Monad_Promise($61 => $62 => Data_Promise_map_Functor_Promise($65 => (undefined), $67 => $68 => FFI_GitHub_addPullReviewers($1, $0.a2, $0.a3, $2.a1, $4a, $50, $67, $68), $61, $62), $78 => Prelude_Interfaces_when(csegen_64(), $0.a8, () => $7f => $80 => {
|
|
10318
10409
|
switch(chosenUser.h) {
|
|
10319
|
-
case undefined: /* just */ return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
10410
|
+
case undefined: /* just */ return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, PullRequest_n__9595_1963_prComment($1, $5, $4, $3, $2, $0, chosenUser.a1), $7f, $80);
|
|
10320
10411
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_Promise(undefined, $7f, $80);
|
|
10321
10412
|
}
|
|
10322
10413
|
}), $5d, $5e));
|
|
@@ -10335,11 +10426,11 @@ function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
10335
10426
|
let $9d;
|
|
10336
10427
|
switch($9e) {
|
|
10337
10428
|
case 1: {
|
|
10338
|
-
$9d = () => $a3 => $a4 => $a5 => Data_Promise_liftIO_HasIO_Promise($a8 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Could not pick a user from the given Team ')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('(perhaps the only option was the author of the pull request?).'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $c5 => $c5, {a1: '
|
|
10429
|
+
$9d = () => $a3 => $a4 => $a5 => Data_Promise_liftIO_HasIO_Promise($a8 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Could not pick a user from the given Team ')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('(perhaps the only option was the author of the pull request?).'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $c5 => $c5, {a1: 'Requested review from ', a2: {a1: PullRequest_n__9595_1964_teamNotice($1, $5, $4, $3, $2, $0, $50), a2: {a1: ' for the open PR ', a2: {h: 0}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $dd => $dd, {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}}}}))+'\n'), $a8), $a3, $a4, $a5);
|
|
10339
10430
|
break;
|
|
10340
10431
|
}
|
|
10341
10432
|
case 0: {
|
|
10342
|
-
$9d = () => $ee => $ef => $f0 => Data_Promise_liftIO_HasIO_Promise($f3 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $103 => $103, {a1: '
|
|
10433
|
+
$9d = () => $ee => $ef => $f0 => Data_Promise_liftIO_HasIO_Promise($f3 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $103 => $103, {a1: 'Requested review from ', a2: {a1: PullRequest_n__9595_1965_userNotice($1, $5, $4, $3, $2, $0, chosenUser), a2: {a1: PullRequest_n__9595_1964_teamNotice($1, $5, $4, $3, $2, $0, $50), a2: {a1: ' for the open PR ', a2: {h: 0}}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $125 => $125, {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}}))+'\n'), $f3), $ee, $ef, $f0);
|
|
10343
10434
|
break;
|
|
10344
10435
|
}
|
|
10345
10436
|
}
|
|
@@ -10404,12 +10495,12 @@ function PullRequest_listx27($0, $1, $2, $3) {
|
|
|
10404
10495
|
}
|
|
10405
10496
|
};
|
|
10406
10497
|
const $4d = {a1: $4e, a2: a => $56 => ({h: 1 /* Right */, a1: $56}), a3: $58};
|
|
10407
|
-
const $4b = Prelude_Types_traverse_Traversable_List($4d,
|
|
10498
|
+
const $4b = Prelude_Types_traverse_Traversable_List($4d, csegen_416(), prJsons);
|
|
10408
10499
|
return Data_Promise_either(csegen_51(), $4b, $47);
|
|
10409
10500
|
};
|
|
10410
10501
|
return Data_Promise_x3ex3ex3d_Monad_Promise($46, pulls => $67 => $68 => Data_Promise_pure_Applicative_Promise(Prelude_Types_join_Monad_List(pulls), $67, $68), $43, $44);
|
|
10411
10502
|
};
|
|
10412
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(
|
|
10503
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_396(), $a => $b => $c => FFI_Concurrency_promiseAll({a1: acc => elem => func => init => input => Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a2: elem => acc => func => init => input => Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a3: elem => $1a => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1a), a4: elem => acc => m => $1e => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1e, funcM, init, input), a5: elem => $25 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($25), a6: a => m => $29 => f => $2a => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($29, f, $2a)}, $a, $b, $c), Data_Pagination_traversex27(csegen_64(), $37 => $38 => $39 => $3a => PullRequest_forkedPRs($0, $37, $38, $39, $3a), $1)), $42, $2, $3);
|
|
10413
10504
|
}
|
|
10414
10505
|
|
|
10415
10506
|
/* PullRequest.identifyOrCreatePR : Config => Git => Octokit => {default False _ : Bool} ->
|
|
@@ -10448,7 +10539,7 @@ function PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
10448
10539
|
}
|
|
10449
10540
|
};
|
|
10450
10541
|
}
|
|
10451
|
-
case 0: /* nil */ return $36 => Data_Promise_map_Functor_Promise($39 => ({a1: 1, a2: $39}), $3d => $3e =>
|
|
10542
|
+
case 0: /* nil */ return $36 => Data_Promise_map_Functor_Promise($39 => ({a1: 1, a2: $39}), $3d => $3e => PullRequest_n__10285_2626_createPR($1, $2, $4, $3, $0, $3d, $3e), $12, $36);
|
|
10452
10543
|
default: return $49 => Data_Promise_reject('Multiple PRs for the current brach. Harmony only handles 1 PR per branch currently.', $12, $49);
|
|
10453
10544
|
}
|
|
10454
10545
|
};
|
|
@@ -10457,7 +10548,7 @@ function PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
10457
10548
|
|
|
10458
10549
|
/* PullRequest.forkedPRs : Maybe GitHubPRState -> Nat -> Nat -> Nat -> () -> Promise Future */
|
|
10459
10550
|
function PullRequest_forkedPRs($0, $1, $2, $3, $4) {
|
|
10460
|
-
return FFI_Concurrency_fork(csegen_72(), Prelude_Types_foldMap_Foldable_List(csegen_49(), $d => $d, {a1: 'pulls --json ', a2: {a1:
|
|
10551
|
+
return FFI_Concurrency_fork(csegen_72(), Prelude_Types_foldMap_Foldable_List(csegen_49(), $d => $d, {a1: 'pulls --json ', a2: {a1: PullRequest_n__8801_1169_filterString($3, $4, $2, $1, $0), a2: {a1: ' ', a2: {a1: Prelude_Show_show_Show_Nat($1), a2: {a1: ' ', a2: {a1: Prelude_Show_show_Show_Nat($2), a2: {h: 0}}}}}}}));
|
|
10461
10552
|
}
|
|
10462
10553
|
|
|
10463
10554
|
/* PullRequest.empty : PRHistory */
|
|
@@ -10668,7 +10759,7 @@ function Data_SortedMap_insert($0, $1, $2) {
|
|
|
10668
10759
|
|
|
10669
10760
|
/* Data.SortedMap.fromList : Ord k => List (k, v) -> SortedMap k v */
|
|
10670
10761
|
function Data_SortedMap_fromList($0, $1) {
|
|
10671
|
-
return Prelude_Basics_flip($4 => $5 => Data_SortedMap_insertFrom(
|
|
10762
|
+
return Prelude_Basics_flip($4 => $5 => Data_SortedMap_insertFrom(csegen_145(), $4, $5), Data_SortedMap_empty($0), $1);
|
|
10672
10763
|
}
|
|
10673
10764
|
|
|
10674
10765
|
/* Data.SortedMap.empty : Ord k => SortedMap k v */
|
|
@@ -10846,7 +10937,7 @@ function Data_Pagination_with__lemma_7043($0, $1, $2, $3, $4) {
|
|
|
10846
10937
|
|
|
10847
10938
|
/* Data.Pagination.toList */
|
|
10848
10939
|
function Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($0) {
|
|
10849
|
-
return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(
|
|
10940
|
+
return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(csegen_92(), {h: 0}, $0);
|
|
10850
10941
|
}
|
|
10851
10942
|
|
|
10852
10943
|
/* Data.Pagination.null */
|
|
@@ -10864,7 +10955,7 @@ function Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24p
|
|
|
10864
10955
|
|
|
10865
10956
|
/* Data.Pagination.foldl */
|
|
10866
10957
|
function Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($0, $1, $2) {
|
|
10867
|
-
return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($6 => $7 => Prelude_Basics_flip(
|
|
10958
|
+
return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($6 => $7 => Prelude_Basics_flip(csegen_93(), $c => Prelude_Basics_flip($0, $6, $c), $7), $13 => $13, $2)($1);
|
|
10868
10959
|
}
|
|
10869
10960
|
|
|
10870
10961
|
/* Data.Pagination.foldlM */
|
|
@@ -11002,7 +11093,7 @@ function Graph_n__6343_6621_header($0, $1, $2, $3, $4, $5) {
|
|
|
11002
11093
|
break;
|
|
11003
11094
|
}
|
|
11004
11095
|
}
|
|
11005
|
-
const $34 = {a1: $35, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Graph_n__6343_6624_redDot($0, $1, $2, $3, $4, $5), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('overlayed on'), Graph_n__6343_6625_yellowDot($0, $1, $2, $3, $4, $5))))}, a2:
|
|
11096
|
+
const $34 = {a1: $35, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Graph_n__6343_6624_redDot($0, $1, $2, $3, $4, $5), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('overlayed on'), Graph_n__6343_6625_yellowDot($0, $1, $2, $3, $4, $5))))}, a2: csegen_602()}};
|
|
11006
11097
|
const $23 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('1x the number of closed PRs with unanswered review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Graph_n__6343_6624_redDot($0, $1, $2, $3, $4, $5)))}, a2: $34};
|
|
11007
11098
|
const $12 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('4x the number of open review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Graph_n__6343_6625_yellowDot($0, $1, $2, $3, $4, $5)))}, a2: $23};
|
|
11008
11099
|
const $d = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $12};
|
|
@@ -11013,7 +11104,7 @@ function Graph_n__6343_6621_header($0, $1, $2, $3, $4, $5) {
|
|
|
11013
11104
|
|
|
11014
11105
|
/* Graph.5952:6229:header */
|
|
11015
11106
|
function Graph_n__5952_6229_header($0, $1, $2) {
|
|
11016
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Open Pull Requests grouped by month created.')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2:
|
|
11107
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Open Pull Requests grouped by month created.')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: csegen_602()}}}));
|
|
11017
11108
|
}
|
|
11018
11109
|
|
|
11019
11110
|
/* Graph.6343:6620:greenBox */
|
|
@@ -11163,9 +11254,9 @@ function Graph_reviewsGraph($0, $1, $2, $3, $4, $5) {
|
|
|
11163
11254
|
|
|
11164
11255
|
/* Graph.healthGraph : List PullRequest -> String -> String -> Doc AnsiStyle */
|
|
11165
11256
|
function Graph_healthGraph($0, $1, $2) {
|
|
11166
|
-
const $3 = Data_List_groupBy($6 => $7 => Prelude_Basics_on($a => $b => Prelude_Basics_on($e => $f => (($e===$f)?1:0), $13 => $13.a2, $a, $b),
|
|
11257
|
+
const $3 = Data_List_groupBy($6 => $7 => Prelude_Basics_on($a => $b => Prelude_Basics_on($e => $f => (($e===$f)?1:0), $13 => $13.a2, $a, $b), csegen_502(), $6, $7), Data_List_sortBy(csegen_503(), $0));
|
|
11167
11258
|
const $20 = Prelude_Types_foldr_Foldable_List(xs => m => Prelude_Types_max_Ord_Nat(Data_List1_length(xs), m), 1n, $3);
|
|
11168
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Graph_n__5952_6229_header($2, $1, $0), a2: {a1: Graph_graph({a1: $36 => Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29(
|
|
11259
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Graph_n__5952_6229_header($2, $1, $0), a2: {a1: Graph_graph({a1: $36 => Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_621(), $36), a2: $3c => Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_621(), $3c), a3: $42 => Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_621(), $42), a4: $48 => Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_621(), $48), a5: $4e => Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_621(), $4e)}, $20, Graph_n__5952_6231_unfoldGraph($2, $1, $0, Data_Fuel_limit(48n), $3, {h: 0})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Graph_n__5952_6230_link($2, $1, $0)), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}});
|
|
11169
11260
|
}
|
|
11170
11261
|
|
|
11171
11262
|
/* Graph.graphOne : Graphable g => Nat -> g -> Doc AnsiStyle */
|
|
@@ -11192,7 +11283,7 @@ function AppVersion_printVersion($0) {
|
|
|
11192
11283
|
|
|
11193
11284
|
/* AppVersion.appVersion : String */
|
|
11194
11285
|
const AppVersion_appVersion = __lazy(function () {
|
|
11195
|
-
return '
|
|
11286
|
+
return '4.0.0';
|
|
11196
11287
|
});
|
|
11197
11288
|
|
|
11198
11289
|
|