@mattpolzin/harmony 4.0.1 → 4.1.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 +2 -0
- package/harmony +320 -312
- 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_595(), $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_595(), $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_595(), $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_595(), $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_230(), $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_230(), $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_230(), $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_230(), $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_230(), $0.a7)};
|
|
1515
1515
|
}
|
|
1516
1516
|
}
|
|
1517
1517
|
}
|
|
@@ -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_230(), $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_230(), $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_230(), $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_230(), $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_230(), $0.a4)};
|
|
2316
2316
|
}
|
|
2317
2317
|
}
|
|
2318
2318
|
}
|
|
@@ -2377,9 +2377,9 @@ function Prelude_Types_SnocList_x3cx3ex3e($0, $1) {
|
|
|
2377
2377
|
}
|
|
2378
2378
|
|
|
2379
2379
|
/* {__mainExpression:0} */
|
|
2380
|
-
|
|
2380
|
+
function __mainExpression_0() {
|
|
2381
2381
|
return PrimIO_unsafePerformIO($2 => Main_main($2));
|
|
2382
|
-
}
|
|
2382
|
+
}
|
|
2383
2383
|
|
|
2384
2384
|
/* {csegen:0} */
|
|
2385
2385
|
const csegen_0 = __lazy(function () {
|
|
@@ -2525,18 +2525,18 @@ const csegen_156 = __lazy(function () {
|
|
|
2525
2525
|
return {a1: {a1: '--completed', a2: {a1: '-c', a2: {h: 0}}}};
|
|
2526
2526
|
});
|
|
2527
2527
|
|
|
2528
|
-
/* {csegen:203} */
|
|
2529
|
-
const csegen_203 = __lazy(function () {
|
|
2530
|
-
return b => a => $0 => $1 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($0, $1);
|
|
2531
|
-
});
|
|
2532
|
-
|
|
2533
2528
|
/* {csegen:204} */
|
|
2534
2529
|
const csegen_204 = __lazy(function () {
|
|
2535
|
-
return a => $0 =>
|
|
2530
|
+
return b => a => $0 => $1 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($0, $1);
|
|
2536
2531
|
});
|
|
2537
2532
|
|
|
2538
2533
|
/* {csegen:205} */
|
|
2539
2534
|
const csegen_205 = __lazy(function () {
|
|
2535
|
+
return a => $0 => Prelude_Types_join_Monad_x28Eitherx20x24ex29($0);
|
|
2536
|
+
});
|
|
2537
|
+
|
|
2538
|
+
/* {csegen:206} */
|
|
2539
|
+
const csegen_206 = __lazy(function () {
|
|
2540
2540
|
return $0 => {
|
|
2541
2541
|
const $1 = JSON_Parser_parseJSON({h: 0}, $0);
|
|
2542
2542
|
switch($1.h) {
|
|
@@ -2546,33 +2546,33 @@ const csegen_205 = __lazy(function () {
|
|
|
2546
2546
|
};
|
|
2547
2547
|
});
|
|
2548
2548
|
|
|
2549
|
-
/* {csegen:
|
|
2550
|
-
const
|
|
2549
|
+
/* {csegen:207} */
|
|
2550
|
+
const csegen_207 = __lazy(function () {
|
|
2551
2551
|
return $0 => $1 => Prelude_Types_max_Ord_Nat($0, $1);
|
|
2552
2552
|
});
|
|
2553
2553
|
|
|
2554
|
-
/* {csegen:
|
|
2555
|
-
const
|
|
2554
|
+
/* {csegen:218} */
|
|
2555
|
+
const csegen_218 = __lazy(function () {
|
|
2556
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)};
|
|
2557
2557
|
});
|
|
2558
2558
|
|
|
2559
|
-
/* {csegen:
|
|
2560
|
-
const
|
|
2559
|
+
/* {csegen:221} */
|
|
2560
|
+
const csegen_221 = __lazy(function () {
|
|
2561
2561
|
return {a1: $1 => $2 => Prelude_EqOrd_x3dx3d_Eq_Integer($1, $2), a2: $7 => $8 => Prelude_EqOrd_x2fx3d_Eq_Integer($7, $8)};
|
|
2562
2562
|
});
|
|
2563
2563
|
|
|
2564
|
-
/* {csegen:
|
|
2565
|
-
const
|
|
2564
|
+
/* {csegen:222} */
|
|
2565
|
+
const csegen_222 = __lazy(function () {
|
|
2566
2566
|
return $0 => $1 => Prelude_EqOrd_compare_Ord_Integer($0, $1);
|
|
2567
2567
|
});
|
|
2568
2568
|
|
|
2569
|
-
/* {csegen:
|
|
2570
|
-
const
|
|
2569
|
+
/* {csegen:230} */
|
|
2570
|
+
const csegen_230 = __lazy(function () {
|
|
2571
2571
|
return $0 => JSON_Parser_eqJSToken({h: 2 /* EOI */}, $0);
|
|
2572
2572
|
});
|
|
2573
2573
|
|
|
2574
|
-
/* {csegen:
|
|
2575
|
-
const
|
|
2574
|
+
/* {csegen:235} */
|
|
2575
|
+
const csegen_235 = __lazy(function () {
|
|
2576
2576
|
const $6 = a => b => {
|
|
2577
2577
|
switch(JSON_Parser_eqJSON(a, b)) {
|
|
2578
2578
|
case 1: return 0;
|
|
@@ -2582,179 +2582,179 @@ const csegen_234 = __lazy(function () {
|
|
|
2582
2582
|
return {a1: $1 => $2 => JSON_Parser_eqJSON($1, $2), a2: $6};
|
|
2583
2583
|
});
|
|
2584
2584
|
|
|
2585
|
-
/* {csegen:
|
|
2586
|
-
const
|
|
2585
|
+
/* {csegen:242} */
|
|
2586
|
+
const csegen_242 = __lazy(function () {
|
|
2587
2587
|
const $0 = a => $1 => $2 => ({h: 1 /* Fail0 */, a1: {a1: $2, a2: $1}});
|
|
2588
2588
|
return $6 => $7 => $0(undefined)($6)($7);
|
|
2589
2589
|
});
|
|
2590
2590
|
|
|
2591
|
-
/* {csegen:
|
|
2592
|
-
const
|
|
2591
|
+
/* {csegen:262} */
|
|
2592
|
+
const csegen_262 = __lazy(function () {
|
|
2593
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)};
|
|
2594
2594
|
});
|
|
2595
2595
|
|
|
2596
|
-
/* {csegen:
|
|
2597
|
-
const
|
|
2596
|
+
/* {csegen:266} */
|
|
2597
|
+
const csegen_266 = __lazy(function () {
|
|
2598
2598
|
return b => a => f => $0 => $1 => $2 => Prelude_Types_traverse_Traversable_x28Eitherx20x24ex29($0, $1, $2);
|
|
2599
2599
|
});
|
|
2600
2600
|
|
|
2601
|
-
/* {csegen:
|
|
2602
|
-
const
|
|
2601
|
+
/* {csegen:280} */
|
|
2602
|
+
const csegen_280 = __lazy(function () {
|
|
2603
2603
|
return {a1: $1 => $2 => _add32s($1, $2), a2: $6 => $7 => _mul32s($6, $7), a3: $b => Number(_truncBigInt32($b))};
|
|
2604
2604
|
});
|
|
2605
2605
|
|
|
2606
|
-
/* {csegen:
|
|
2607
|
-
const
|
|
2606
|
+
/* {csegen:300} */
|
|
2607
|
+
const csegen_300 = __lazy(function () {
|
|
2608
2608
|
return {a1: Help_argument(0, '...'), a2: {h: 0}};
|
|
2609
2609
|
});
|
|
2610
2610
|
|
|
2611
|
-
/* {csegen:
|
|
2612
|
-
const
|
|
2613
|
-
return {a1: Help_argument(0, '#<label>'), a2:
|
|
2611
|
+
/* {csegen:305} */
|
|
2612
|
+
const csegen_305 = __lazy(function () {
|
|
2613
|
+
return {a1: Help_argument(0, '#<label>'), a2: csegen_300()};
|
|
2614
2614
|
});
|
|
2615
2615
|
|
|
2616
|
-
/* {csegen:
|
|
2617
|
-
const
|
|
2616
|
+
/* {csegen:311} */
|
|
2617
|
+
const csegen_311 = __lazy(function () {
|
|
2618
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:345} */
|
|
2622
|
+
const csegen_345 = __lazy(function () {
|
|
2623
2623
|
return {a1: Help_argument(1, '<team-slug>'), a2: {h: 0}};
|
|
2624
2624
|
});
|
|
2625
2625
|
|
|
2626
|
-
/* {csegen:
|
|
2627
|
-
const
|
|
2626
|
+
/* {csegen:401} */
|
|
2627
|
+
const csegen_401 = __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:402} */
|
|
2632
|
+
const csegen_402 = __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:403} */
|
|
2637
|
+
const csegen_403 = __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:408} */
|
|
2642
|
+
const csegen_408 = __lazy(function () {
|
|
2643
2643
|
return $0 => $1 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($0, $1);
|
|
2644
2644
|
});
|
|
2645
2645
|
|
|
2646
|
-
/* {csegen:
|
|
2647
|
-
const
|
|
2646
|
+
/* {csegen:421} */
|
|
2647
|
+
const csegen_421 = __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:429} */
|
|
2652
|
+
const csegen_429 = __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:430} */
|
|
2657
|
+
const csegen_430 = __lazy(function () {
|
|
2658
2658
|
return $0 => Prelude_EqOrd_x3dx3d_Eq_Char($0, '/');
|
|
2659
2659
|
});
|
|
2660
2660
|
|
|
2661
|
-
/* {csegen:
|
|
2662
|
-
const
|
|
2661
|
+
/* {csegen:431} */
|
|
2662
|
+
const csegen_431 = __lazy(function () {
|
|
2663
2663
|
return $0 => $0.a2;
|
|
2664
2664
|
});
|
|
2665
2665
|
|
|
2666
|
-
/* {csegen:
|
|
2667
|
-
const
|
|
2666
|
+
/* {csegen:435} */
|
|
2667
|
+
const csegen_435 = __lazy(function () {
|
|
2668
2668
|
return $0 => $0.a1;
|
|
2669
2669
|
});
|
|
2670
2670
|
|
|
2671
|
-
/* {csegen:
|
|
2672
|
-
const
|
|
2671
|
+
/* {csegen:446} */
|
|
2672
|
+
const csegen_446 = __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:451} */
|
|
2677
|
+
const csegen_451 = __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:464} */
|
|
2682
|
+
const csegen_464 = __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:466} */
|
|
2687
|
+
const csegen_466 = __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:494} */
|
|
2692
|
+
const csegen_494 = __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:495} */
|
|
2697
|
+
const csegen_495 = __lazy(function () {
|
|
2698
|
+
return $0 => Data_List_sort(csegen_218(), $0);
|
|
2699
2699
|
});
|
|
2700
2700
|
|
|
2701
|
-
/* {csegen:
|
|
2702
|
-
const
|
|
2701
|
+
/* {csegen:496} */
|
|
2702
|
+
const csegen_496 = __lazy(function () {
|
|
2703
2703
|
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_145(), $0, $1, $2);
|
|
2704
2704
|
});
|
|
2705
2705
|
|
|
2706
|
-
/* {csegen:
|
|
2707
|
-
const
|
|
2706
|
+
/* {csegen:504} */
|
|
2707
|
+
const csegen_504 = __lazy(function () {
|
|
2708
2708
|
return $0 => $0.a1;
|
|
2709
2709
|
});
|
|
2710
2710
|
|
|
2711
|
-
/* {csegen:
|
|
2712
|
-
const
|
|
2711
|
+
/* {csegen:506} */
|
|
2712
|
+
const csegen_506 = __lazy(function () {
|
|
2713
2713
|
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2714
2714
|
});
|
|
2715
2715
|
|
|
2716
|
-
/* {csegen:
|
|
2717
|
-
const
|
|
2716
|
+
/* {csegen:507} */
|
|
2717
|
+
const csegen_507 = __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:508} */
|
|
2722
|
+
const csegen_508 = __lazy(function () {
|
|
2723
|
+
return $0 => $1 => Prelude_Basics_on(csegen_506(), csegen_507(), $0, $1);
|
|
2724
2724
|
});
|
|
2725
2725
|
|
|
2726
|
-
/* {csegen:
|
|
2727
|
-
const
|
|
2726
|
+
/* {csegen:521} */
|
|
2727
|
+
const csegen_521 = __lazy(function () {
|
|
2728
2728
|
return $0 => $0.a2;
|
|
2729
2729
|
});
|
|
2730
2730
|
|
|
2731
|
-
/* {csegen:
|
|
2732
|
-
const
|
|
2731
|
+
/* {csegen:524} */
|
|
2732
|
+
const csegen_524 = __lazy(function () {
|
|
2733
2733
|
return $0 => $0.a1;
|
|
2734
2734
|
});
|
|
2735
2735
|
|
|
2736
|
-
/* {csegen:
|
|
2737
|
-
const
|
|
2736
|
+
/* {csegen:530} */
|
|
2737
|
+
const csegen_530 = __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:560} */
|
|
2742
|
+
const csegen_560 = __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:595} */
|
|
2747
|
+
const csegen_595 = __lazy(function () {
|
|
2748
2748
|
return $0 => $0.a1;
|
|
2749
2749
|
});
|
|
2750
2750
|
|
|
2751
|
-
/* {csegen:
|
|
2752
|
-
const
|
|
2751
|
+
/* {csegen:607} */
|
|
2752
|
+
const csegen_607 = __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:626} */
|
|
2757
|
+
const csegen_626 = __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.8437:1484:parsePg */
|
|
2767
|
+
function Main_n__8437_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.8437:1483:parseLim */
|
|
2772
|
+
function Main_n__8437_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.8298:1285:configuredOpts */
|
|
2777
|
+
function Main_n__8298_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));
|
|
@@ -3027,7 +3027,7 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3027
3027
|
}
|
|
3028
3028
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe($b1, filter => ({a1: {a1: filter, a2: {a1: $ae.a1, a2: $ae.a2}}}));
|
|
3029
3029
|
};
|
|
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})},
|
|
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__8437_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__8437_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);
|
|
3031
3031
|
return $be => {
|
|
3032
3032
|
switch($8e.h) {
|
|
3033
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);
|
|
@@ -3175,6 +3175,17 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3175
3175
|
}
|
|
3176
3176
|
};
|
|
3177
3177
|
}
|
|
3178
|
+
case 'rq': {
|
|
3179
|
+
switch($3.a2.h) {
|
|
3180
|
+
case undefined: /* cons */ {
|
|
3181
|
+
switch($3.a2.a1) {
|
|
3182
|
+
case '--dry': return Commands_request($0, $1, $2, $3.a2.a2, 1);
|
|
3183
|
+
default: return Commands_request($0, $1, $2, $3.a2, 0);
|
|
3184
|
+
}
|
|
3185
|
+
}
|
|
3186
|
+
default: return Commands_request($0, $1, $2, $3.a2, 0);
|
|
3187
|
+
}
|
|
3188
|
+
}
|
|
3178
3189
|
case 'request': {
|
|
3179
3190
|
switch($3.a2.h) {
|
|
3180
3191
|
case undefined: /* cons */ {
|
|
@@ -3187,18 +3198,18 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3187
3198
|
}
|
|
3188
3199
|
}
|
|
3189
3200
|
case 'label': {
|
|
3190
|
-
return $
|
|
3201
|
+
return $32a => $32b => {
|
|
3191
3202
|
switch($3.a2.h) {
|
|
3192
|
-
case 0: /* nil */ return Data_Promise_reject('The label command expects one or more labels as arguments.', $
|
|
3193
|
-
case undefined: /* cons */ return Commands_label($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2}, $
|
|
3194
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_49(), $
|
|
3203
|
+
case 0: /* nil */ return Data_Promise_reject('The label command expects one or more labels as arguments.', $32a, $32b);
|
|
3204
|
+
case undefined: /* cons */ return Commands_label($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2}, $32a, $32b);
|
|
3205
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_49(), $340 => $340, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_51(), $3), a2: {a1: '.', a2: {h: 0}}}}), $32a, $32b);
|
|
3195
3206
|
}
|
|
3196
3207
|
};
|
|
3197
3208
|
}
|
|
3198
|
-
default: return $
|
|
3209
|
+
default: return $34e => $34f => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_49(), $356 => $356, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_51(), $3), a2: {a1: '.', a2: {h: 0}}}}), $34e, $34f);
|
|
3199
3210
|
}
|
|
3200
3211
|
}
|
|
3201
|
-
default: return $
|
|
3212
|
+
default: return $364 => $365 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_49(), $36c => $36c, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_51(), $3), a2: {a1: '.', a2: {h: 0}}}}), $364, $365);
|
|
3202
3213
|
}
|
|
3203
3214
|
}
|
|
3204
3215
|
|
|
@@ -3269,7 +3280,7 @@ function Main_exitError($0, $1) {
|
|
|
3269
3280
|
|
|
3270
3281
|
/* Main.bashCompletion : HasIO io => String -> String -> String -> io () */
|
|
3271
3282
|
function Main_bashCompletion($0, $1, $2, $3) {
|
|
3272
|
-
const $4 = Prelude_Types_maybe(() =>
|
|
3283
|
+
const $4 = Prelude_Types_maybe(() => Main_n__8298_1285_configuredOpts($0, $3, $2, $1), () => $d => $0.a1.a1.a2(undefined)($d), BashCompletion_cmdOpts($1, $2, $3));
|
|
3273
3284
|
return $0.a1.a2(undefined)(undefined)($4)($24 => $0.a2(undefined)($2a => Prelude_IO_prim__putStr(Data_String_fastUnlines($24), $2a)));
|
|
3274
3285
|
}
|
|
3275
3286
|
|
|
@@ -5783,7 +5794,7 @@ const ZshCompletion_script = __lazy(function () {
|
|
|
5783
5794
|
});
|
|
5784
5795
|
|
|
5785
5796
|
/* BashCompletion.case block in case block in unhashify */
|
|
5786
|
-
function
|
|
5797
|
+
function BashCompletion_case__casex20blockx20inx20unhashify_9354($0, $1, $2) {
|
|
5787
5798
|
switch($0) {
|
|
5788
5799
|
case '': {
|
|
5789
5800
|
switch($2.h) {
|
|
@@ -5806,7 +5817,7 @@ function BashCompletion_case__casex20blockx20inx20unhashify_9349($0, $1, $2) {
|
|
|
5806
5817
|
}
|
|
5807
5818
|
|
|
5808
5819
|
/* BashCompletion.case block in unhashify */
|
|
5809
|
-
function
|
|
5820
|
+
function BashCompletion_case__unhashify_9334($0, $1) {
|
|
5810
5821
|
switch($0) {
|
|
5811
5822
|
case '': {
|
|
5812
5823
|
switch($1.h) {
|
|
@@ -5816,7 +5827,7 @@ function BashCompletion_case__unhashify_9329($0, $1) {
|
|
|
5816
5827
|
case '#': return $1.a2;
|
|
5817
5828
|
case '\u{5c}': {
|
|
5818
5829
|
const $6 = ('\u{5c}'+$1.a2);
|
|
5819
|
-
return
|
|
5830
|
+
return BashCompletion_case__casex20blockx20inx20unhashify_9354($1.a2, $6, Data_String_strM($1.a2));
|
|
5820
5831
|
}
|
|
5821
5832
|
default: return $0;
|
|
5822
5833
|
}
|
|
@@ -5828,7 +5839,7 @@ function BashCompletion_case__unhashify_9329($0, $1) {
|
|
|
5828
5839
|
case '#': return $1.a2;
|
|
5829
5840
|
case '\u{5c}': {
|
|
5830
5841
|
const $11 = ('\u{5c}'+$1.a2);
|
|
5831
|
-
return
|
|
5842
|
+
return BashCompletion_case__casex20blockx20inx20unhashify_9354($1.a2, $11, Data_String_strM($1.a2));
|
|
5832
5843
|
}
|
|
5833
5844
|
default: return $0;
|
|
5834
5845
|
}
|
|
@@ -5836,27 +5847,14 @@ function BashCompletion_case__unhashify_9329($0, $1) {
|
|
|
5836
5847
|
}
|
|
5837
5848
|
}
|
|
5838
5849
|
|
|
5839
|
-
/* BashCompletion.
|
|
5840
|
-
function
|
|
5841
|
-
switch(Data_String_isPrefixOf('+', $
|
|
5842
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0}, $
|
|
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) {
|
|
5854
|
-
switch(Data_String_isPrefixOf('+', $1)) {
|
|
5855
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0}, $a => ('+'+$a), $2.a11);
|
|
5850
|
+
/* BashCompletion.4756:9823:slugsOrLoginsOrLabels */
|
|
5851
|
+
function BashCompletion_n__4756_9823_slugsOrLoginsOrLabels($0, $1) {
|
|
5852
|
+
switch(Data_String_isPrefixOf('+', $0)) {
|
|
5853
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, $9 => ('+'+$9), $1.a11);
|
|
5856
5854
|
case 0: {
|
|
5857
|
-
switch(BashCompletion_isHashPrefix($
|
|
5858
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_148(), $
|
|
5859
|
-
case 0: return $
|
|
5855
|
+
switch(BashCompletion_isHashPrefix($0)) {
|
|
5856
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_148(), $1.a10);
|
|
5857
|
+
case 0: return $1.a9;
|
|
5860
5858
|
}
|
|
5861
5859
|
}
|
|
5862
5860
|
}
|
|
@@ -5869,7 +5867,7 @@ function BashCompletion_unslugify($0) {
|
|
|
5869
5867
|
|
|
5870
5868
|
/* BashCompletion.unhashify : String -> String */
|
|
5871
5869
|
function BashCompletion_unhashify($0) {
|
|
5872
|
-
return
|
|
5870
|
+
return BashCompletion_case__unhashify_9334($0, Data_String_strM($0));
|
|
5873
5871
|
}
|
|
5874
5872
|
|
|
5875
5873
|
/* BashCompletion.slugify : String -> String */
|
|
@@ -5882,6 +5880,14 @@ const BashCompletion_script = __lazy(function () {
|
|
|
5882
5880
|
return Prelude_Types_foldMap_Foldable_List(csegen_49(), $4 => $4, {a1: '_harmony()\n{\n CURRENT_PARTIAL=$([ -z $2 ] && echo \"--\" || echo \"$2\")\n PREVIOUS=\"$3\"\n SUBCOMMAND=$([ -z ${COMP_WORDS[1]} ] && echo \"--\" || echo \"${COMP_WORDS[1]}\")\n COMPREPLY=($(harmony --bash-completion \"$SUBCOMMAND\" \"$CURRENT_PARTIAL\" \"$PREVIOUS\"))\n}\n\ncomplete -F _harmony harmony', a2: {h: 0}});
|
|
5883
5881
|
});
|
|
5884
5882
|
|
|
5883
|
+
/* BashCompletion.optsForRequestCmd : Config => String -> List String */
|
|
5884
|
+
function BashCompletion_optsForRequestCmd($0, $1) {
|
|
5885
|
+
switch(Data_String_isPrefixOf($1, '--dry')) {
|
|
5886
|
+
case 1: return {a1: '--dry', a2: {h: 0}};
|
|
5887
|
+
case 0: return BashCompletion_n__4756_9823_slugsOrLoginsOrLabels($1, $0);
|
|
5888
|
+
}
|
|
5889
|
+
}
|
|
5890
|
+
|
|
5885
5891
|
/* BashCompletion.opts : Config => String -> String -> String -> List String */
|
|
5886
5892
|
function BashCompletion_opts($0, $1, $2, $3) {
|
|
5887
5893
|
switch($1) {
|
|
@@ -5979,12 +5985,18 @@ function BashCompletion_opts($0, $1, $2, $3) {
|
|
|
5979
5985
|
default: return $0.a9;
|
|
5980
5986
|
}
|
|
5981
5987
|
}
|
|
5982
|
-
default:
|
|
5983
|
-
|
|
5984
|
-
|
|
5985
|
-
|
|
5988
|
+
default: return BashCompletion_optsForRequestCmd($0, $2);
|
|
5989
|
+
}
|
|
5990
|
+
}
|
|
5991
|
+
case 'rq': {
|
|
5992
|
+
switch($2) {
|
|
5993
|
+
case '--': {
|
|
5994
|
+
switch($3) {
|
|
5995
|
+
case 'rq': return {a1: '--dry', a2: $0.a9};
|
|
5996
|
+
default: return $0.a9;
|
|
5986
5997
|
}
|
|
5987
5998
|
}
|
|
5999
|
+
default: return BashCompletion_optsForRequestCmd($0, $2);
|
|
5988
6000
|
}
|
|
5989
6001
|
}
|
|
5990
6002
|
case 'request': {
|
|
@@ -5995,12 +6007,7 @@ function BashCompletion_opts($0, $1, $2, $3) {
|
|
|
5995
6007
|
default: return $0.a9;
|
|
5996
6008
|
}
|
|
5997
6009
|
}
|
|
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);
|
|
6002
|
-
}
|
|
6003
|
-
}
|
|
6010
|
+
default: return BashCompletion_optsForRequestCmd($0, $2);
|
|
6004
6011
|
}
|
|
6005
6012
|
}
|
|
6006
6013
|
default: return {h: 0};
|
|
@@ -6287,16 +6294,16 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6287
6294
|
|
|
6288
6295
|
/* BashCompletion.allRootCmds : List String */
|
|
6289
6296
|
const BashCompletion_allRootCmds = __lazy(function () {
|
|
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}}}}}}}}}}}}}}}};
|
|
6297
|
+
return {a1: 'request', a2: {a1: 'rq', 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}}}}}}}}}}}}}}}}};
|
|
6291
6298
|
});
|
|
6292
6299
|
|
|
6293
|
-
/* Data.Config.
|
|
6294
|
-
function
|
|
6300
|
+
/* Data.Config.8993:4025:personalAccessToken */
|
|
6301
|
+
function Data_Config_n__8993_4025_personalAccessToken($0) {
|
|
6295
6302
|
return Prelude_Types_maybe(() => 'Not set (will use $GITHUB_PAT environment variable)', () => $4 => Data_Config_show_Show_x28Hiddenx20x24ax29($4), $0.a13);
|
|
6296
6303
|
}
|
|
6297
6304
|
|
|
6298
|
-
/* Data.Config.
|
|
6299
|
-
function
|
|
6305
|
+
/* Data.Config.9480:4502:parseConfigJson */
|
|
6306
|
+
function Data_Config_n__9480_4502_parseConfigJson($0, $1) {
|
|
6300
6307
|
switch($1.h) {
|
|
6301
6308
|
case 6: /* JObject */ {
|
|
6302
6309
|
const $1a = $1b => {
|
|
@@ -6318,11 +6325,11 @@ function Data_Config_n__9464_4502_parseConfigJson($0, $1) {
|
|
|
6318
6325
|
}
|
|
6319
6326
|
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
6327
|
};
|
|
6321
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(
|
|
6328
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Data_Config_n__9489_4509_exactlyOneOf($0, $1.a1, 'commentOnAssign', 'commentOnRequest'), $3d);
|
|
6322
6329
|
};
|
|
6323
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(
|
|
6330
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Data_Config_n__9489_4509_exactlyOneOf($0, $1.a1, 'assignUsers', 'requestUsers'), $35);
|
|
6324
6331
|
};
|
|
6325
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(
|
|
6332
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Data_Config_n__9489_4509_exactlyOneOf($0, $1.a1, 'assignTeams', 'requestTeams'), $2d);
|
|
6326
6333
|
};
|
|
6327
6334
|
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);
|
|
6328
6335
|
}
|
|
@@ -6331,8 +6338,8 @@ function Data_Config_n__9464_4502_parseConfigJson($0, $1) {
|
|
|
6331
6338
|
}
|
|
6332
6339
|
}
|
|
6333
6340
|
|
|
6334
|
-
/* Data.Config.
|
|
6335
|
-
function
|
|
6341
|
+
/* Data.Config.9489:4509:exactlyOneOf */
|
|
6342
|
+
function Data_Config_n__9489_4509_exactlyOneOf($0, $1, $2, $3) {
|
|
6336
6343
|
const $4 = Data_List_lookup(csegen_39(), $2, $1);
|
|
6337
6344
|
const $a = Data_List_lookup(csegen_39(), $3, $1);
|
|
6338
6345
|
switch($4.h) {
|
|
@@ -6353,7 +6360,7 @@ function Data_Config_n__9473_4509_exactlyOneOf($0, $1, $2, $3) {
|
|
|
6353
6360
|
|
|
6354
6361
|
/* Data.Config.show */
|
|
6355
6362
|
function Data_Config_show_Show_Config($0) {
|
|
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:
|
|
6363
|
+
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__8993_4025_personalAccessToken($0), a2: {h: 0}}}), a2: {h: 0}}}}}}}}}}}}}});
|
|
6357
6364
|
}
|
|
6358
6365
|
|
|
6359
6366
|
/* Data.Config.show */
|
|
@@ -6436,18 +6443,18 @@ function Data_Config_parseConfig($0, $1) {
|
|
|
6436
6443
|
}
|
|
6437
6444
|
};
|
|
6438
6445
|
const $4 = {a1: $5, a2: a => $d => ({h: 1 /* Right */, a1: $d}), a3: $f};
|
|
6439
|
-
const $3 = {a1: $4, a2:
|
|
6440
|
-
return Prelude_Interfaces_x3ex3dx3e($3,
|
|
6446
|
+
const $3 = {a1: $4, a2: csegen_204(), a3: csegen_205()};
|
|
6447
|
+
return Prelude_Interfaces_x3ex3dx3e($3, csegen_206(), $20 => Data_Config_n__9480_4502_parseConfigJson($0, $20), $1);
|
|
6441
6448
|
}
|
|
6442
6449
|
|
|
6443
6450
|
/* Data.Config.longestSettablePropName : Nat */
|
|
6444
6451
|
const Data_Config_longestSettablePropName = __lazy(function () {
|
|
6445
|
-
return Prelude_Types_foldr_Foldable_List(
|
|
6452
|
+
return Prelude_Types_foldr_Foldable_List(csegen_207(), 0n, Prelude_Types_List_mapAppend({h: 0}, $8 => Prelude_Types_String_length(Data_Config_propNamex27($8)), Data_Config_settableProps()));
|
|
6446
6453
|
});
|
|
6447
6454
|
|
|
6448
6455
|
/* Data.Config.json : Config -> JSON */
|
|
6449
6456
|
function Data_Config_json($0) {
|
|
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(
|
|
6457
|
+
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_218(), $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_218(), $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_218(), $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_221(), a2: csegen_222(), 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}}}}}}}}}}}}}}};
|
|
6451
6458
|
}
|
|
6452
6459
|
|
|
6453
6460
|
/* Data.Config.filename : String */
|
|
@@ -7009,13 +7016,13 @@ function JSON_Parser_eqJSON($0, $1) {
|
|
|
7009
7016
|
}
|
|
7010
7017
|
case 5: /* JArray */ {
|
|
7011
7018
|
switch($1.h) {
|
|
7012
|
-
case 5: /* JArray */ return Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(
|
|
7019
|
+
case 5: /* JArray */ return Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_235(), $0.a1, $1.a1);
|
|
7013
7020
|
default: return 0;
|
|
7014
7021
|
}
|
|
7015
7022
|
}
|
|
7016
7023
|
case 6: /* JObject */ {
|
|
7017
7024
|
switch($1.h) {
|
|
7018
|
-
case 6: /* JObject */ return Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29({a1: $1e => $1f => Prelude_EqOrd_x3dx3d_Eq_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_39(),
|
|
7025
|
+
case 6: /* JObject */ return Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29({a1: $1e => $1f => Prelude_EqOrd_x3dx3d_Eq_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_39(), csegen_235(), $1e, $1f), a2: $28 => $29 => Prelude_EqOrd_x2fx3d_Eq_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_39(), csegen_235(), $28, $29)}, $0.a1, $1.a1);
|
|
7019
7026
|
default: return 0;
|
|
7020
7027
|
}
|
|
7021
7028
|
}
|
|
@@ -7255,7 +7262,7 @@ function Text_ParseError_failInParenEOI($0, $1, $2, $3) {
|
|
|
7255
7262
|
case 1: /* Right */ {
|
|
7256
7263
|
const $8 = {h: 1 /* Fail0 */, a1: {a1: {h: 9 /* Unexpected */, a1: {h: 1 /* Right */, a1: $3.a1.a1.a1.a1}}, a2: $3.a1.a2}};
|
|
7257
7264
|
switch($2($3.a1.a1.a1.a1)) {
|
|
7258
|
-
case 1: return
|
|
7265
|
+
case 1: return csegen_242()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
|
|
7259
7266
|
case 0: return Text_ParseError_failInParen($0, $1, $8);
|
|
7260
7267
|
}
|
|
7261
7268
|
}
|
|
@@ -7275,7 +7282,7 @@ function Text_ParseError_failInParenEOI($0, $1, $2, $3) {
|
|
|
7275
7282
|
case undefined: /* cons */ {
|
|
7276
7283
|
const $2a = {h: 0 /* Succ0 */, a1: $3.a1, a2: {a1: {a1: $3.a2.a1.a1, a2: $3.a2.a1.a2}, a2: $3.a2.a2}};
|
|
7277
7284
|
switch($2($3.a2.a1.a1)) {
|
|
7278
|
-
case 1: return
|
|
7285
|
+
case 1: return csegen_242()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
|
|
7279
7286
|
case 0: return Text_ParseError_failInParen($0, $1, $2a);
|
|
7280
7287
|
}
|
|
7281
7288
|
}
|
|
@@ -7296,7 +7303,7 @@ function Text_ParseError_failInParen($0, $1, $2) {
|
|
|
7296
7303
|
switch($2.a1.h) {
|
|
7297
7304
|
case undefined: /* cons */ {
|
|
7298
7305
|
switch($2.a1.a1.h) {
|
|
7299
|
-
case 1: /* EOI */ return
|
|
7306
|
+
case 1: /* EOI */ return csegen_242()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
|
|
7300
7307
|
default: return {h: 1 /* Fail0 */, a1: $2.a1};
|
|
7301
7308
|
}
|
|
7302
7309
|
}
|
|
@@ -7305,8 +7312,8 @@ function Text_ParseError_failInParen($0, $1, $2) {
|
|
|
7305
7312
|
}
|
|
7306
7313
|
case 0: /* Succ0 */ {
|
|
7307
7314
|
switch($2.a2.h) {
|
|
7308
|
-
case 0: /* nil */ return
|
|
7309
|
-
case undefined: /* cons */ return
|
|
7315
|
+
case 0: /* nil */ return csegen_242()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
|
|
7316
|
+
case undefined: /* cons */ return csegen_242()($2.a2.a1.a2)({h: 9 /* Unexpected */, a1: {h: 1 /* Right */, a1: $2.a2.a1.a1}});
|
|
7310
7317
|
}
|
|
7311
7318
|
}
|
|
7312
7319
|
}
|
|
@@ -7315,8 +7322,8 @@ function Text_ParseError_failInParen($0, $1, $2) {
|
|
|
7315
7322
|
/* Text.ParseError.fail : List (Bounded t) -> Result0 b (Bounded t) ts (Bounded (ParseError t y)) a */
|
|
7316
7323
|
function Text_ParseError_fail($0) {
|
|
7317
7324
|
switch($0.h) {
|
|
7318
|
-
case undefined: /* cons */ return
|
|
7319
|
-
case 0: /* nil */ return
|
|
7325
|
+
case undefined: /* cons */ return csegen_242()($0.a1.a2)({h: 9 /* Unexpected */, a1: {h: 1 /* Right */, a1: $0.a1.a1}});
|
|
7326
|
+
case 0: /* nil */ return csegen_242()({h: 0})({h: 1 /* EOI */});
|
|
7320
7327
|
}
|
|
7321
7328
|
}
|
|
7322
7329
|
|
|
@@ -7798,14 +7805,14 @@ function System_File_ReadWrite_readLinesOnto($0, $1, $2, $3, $4) {
|
|
|
7798
7805
|
}
|
|
7799
7806
|
};
|
|
7800
7807
|
const $26 = {a1: $27, a2: a => $2f => ({h: 1 /* Right */, a1: $2f}), a3: $31};
|
|
7801
|
-
const $25 = {a1: $26, a2:
|
|
7808
|
+
const $25 = {a1: $26, a2: csegen_204(), a3: csegen_205()};
|
|
7802
7809
|
const $40 = b => a => func => $41 => {
|
|
7803
7810
|
switch($41.h) {
|
|
7804
7811
|
case 0: /* Left */ return {h: 0 /* Left */, a1: $41.a1};
|
|
7805
7812
|
case 1: /* Right */ return {h: 1 /* Right */, a1: func($41.a1)};
|
|
7806
7813
|
}
|
|
7807
7814
|
};
|
|
7808
|
-
const $3f = {a1: $40, a2:
|
|
7815
|
+
const $3f = {a1: $40, a2: csegen_262(), a3: csegen_266()};
|
|
7809
7816
|
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));
|
|
7810
7817
|
}
|
|
7811
7818
|
default: {
|
|
@@ -8243,7 +8250,7 @@ function System_getEnv($0, $1) {
|
|
|
8243
8250
|
function System_getArgs($0) {
|
|
8244
8251
|
const $12 = n => {
|
|
8245
8252
|
switch(Prelude_EqOrd_x3e_Ord_Int(n, Number(_truncBigInt32(0n)))) {
|
|
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:
|
|
8253
|
+
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_280(), 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_280(), 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)));
|
|
8247
8254
|
case 0: return $0.a1.a1.a2(undefined)({h: 0});
|
|
8248
8255
|
}
|
|
8249
8256
|
};
|
|
@@ -8276,22 +8283,23 @@ function Help_warning($0) {
|
|
|
8276
8283
|
/* Help.subcommandHelp' : String -> Doc AnsiStyle */
|
|
8277
8284
|
function Help_subcommandHelpx27($0) {
|
|
8278
8285
|
switch($0) {
|
|
8279
|
-
case 'label': return Help_subcommand($0, {a1: Help_argument(1, '<label>'), a2:
|
|
8280
|
-
case 'request': return Help_subcommand($0, {a1: Help_argument(1, '<team-slug> | +<user-login>'), a2:
|
|
8286
|
+
case 'label': return Help_subcommand($0, {a1: Help_argument(1, '<label>'), a2: csegen_300()}, {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}});
|
|
8287
|
+
case 'request': return Help_subcommand($0, {a1: Help_argument(1, '<team-slug> | +<user-login>'), a2: csegen_305()}, {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_311()}});
|
|
8281
8288
|
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}});
|
|
8282
|
-
case 'pr': return Help_subcommand($0, {a1: Help_argument(0, '--draft'), a2:
|
|
8289
|
+
case 'pr': return Help_subcommand($0, {a1: Help_argument(0, '--draft'), a2: csegen_305()}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Identify an existing PR or create a new one for the current branch.'), a2: csegen_311()});
|
|
8283
8290
|
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}}}});
|
|
8284
|
-
case 'graph': return Help_subcommand($0, {a1: Help_argument(0, '-c/--completed'), a2:
|
|
8291
|
+
case 'graph': return Help_subcommand($0, {a1: Help_argument(0, '-c/--completed'), a2: csegen_345()}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Graph the relative review workload of the members of the given GitHub Team.'), a2: {h: 0}});
|
|
8285
8292
|
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}});
|
|
8286
8293
|
case 'version': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print version'), a2: {h: 0}});
|
|
8287
8294
|
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}});
|
|
8288
8295
|
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}});
|
|
8289
8296
|
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}});
|
|
8290
8297
|
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}});
|
|
8291
|
-
case 'list': return Help_subcommand($0,
|
|
8298
|
+
case 'list': return Help_subcommand($0, csegen_345(), {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('List the members of the given GitHub Team.'), a2: {h: 0}});
|
|
8292
8299
|
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}});
|
|
8300
|
+
case 'rq': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Alias for \'request\' command.'), a2: {h: 0}});
|
|
8293
8301
|
case 'assign': return Help_subcommand($0, {h: 0}, {a1: Help_warning('Deprecated alias for \'request\' command.'), a2: {h: 0}});
|
|
8294
|
-
default: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $
|
|
8302
|
+
default: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $138 => $138, {a1: 'Unreconized command: ', a2: {a1: $0, a2: {h: 0}}}));
|
|
8295
8303
|
}
|
|
8296
8304
|
}
|
|
8297
8305
|
|
|
@@ -8331,7 +8339,7 @@ function Help_option($0) {
|
|
|
8331
8339
|
|
|
8332
8340
|
/* Help.helpDocs : Doc AnsiStyle */
|
|
8333
8341
|
const Help_helpDocs = __lazy(function () {
|
|
8334
|
-
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('assign'), a2: {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(), $
|
|
8342
|
+
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('assign'), a2: {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('rq'), 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(), $5f => $5f, {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(), $77 => $77, {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}}}});
|
|
8335
8343
|
});
|
|
8336
8344
|
|
|
8337
8345
|
/* Help.help : Bool -> String */
|
|
@@ -8446,12 +8454,12 @@ function FFI_GitHub_listPullRequestsJsonStr($0, $1, $2, $3, $4, $5) {
|
|
|
8446
8454
|
String -> String -> Maybe GitHubPRState -> Fin 101 -> {default 0 _ : Nat} ->
|
|
8447
8455
|
Promise (List PullRequest) */
|
|
8448
8456
|
function FFI_GitHub_listPullRequests($0, $1, $2, $3, $4, $5) {
|
|
8449
|
-
return Prelude_Basics_flip(
|
|
8457
|
+
return Prelude_Basics_flip(csegen_401(), csegen_402(), FFI_GitHub_listPullRequestsJsonStr($0, $1, $2, $3, $4, $5));
|
|
8450
8458
|
}
|
|
8451
8459
|
|
|
8452
8460
|
/* FFI.GitHub.listPRsForBranch : Octokit => String -> String -> String -> Promise (List PullRequest) */
|
|
8453
8461
|
function FFI_GitHub_listPRsForBranch($0, $1, $2, $3) {
|
|
8454
|
-
return Prelude_Basics_flip(
|
|
8462
|
+
return Prelude_Basics_flip(csegen_401(), csegen_402(), $a => $b => FFI_promiseIO($e => $f => $10 => FFI_GitHub_prim__listPRsForBranch($0, $1, $2, $3, $e, $f, $10), $a, $b));
|
|
8455
8463
|
}
|
|
8456
8464
|
|
|
8457
8465
|
/* FFI.GitHub.listOrgMembers : Octokit => String -> Promise (List String) */
|
|
@@ -8466,12 +8474,12 @@ function FFI_GitHub_listMyTeams($0, $1, $2) {
|
|
|
8466
8474
|
|
|
8467
8475
|
/* FFI.GitHub.getUser : Octokit => String -> Promise User */
|
|
8468
8476
|
function FFI_GitHub_getUser($0) {
|
|
8469
|
-
return Prelude_Interfaces_x3cx3dx3c(csegen_69(),
|
|
8477
|
+
return Prelude_Interfaces_x3cx3dx3c(csegen_69(), csegen_403(), $7 => $8 => $9 => FFI_promiseIO($c => $d => $e => FFI_GitHub_prim__getUser($0, $7, $c, $d, $e), $8, $9));
|
|
8470
8478
|
}
|
|
8471
8479
|
|
|
8472
8480
|
/* FFI.GitHub.getSelf : Octokit => Promise User */
|
|
8473
8481
|
function FFI_GitHub_getSelf($0) {
|
|
8474
|
-
return Prelude_Basics_flip(
|
|
8482
|
+
return Prelude_Basics_flip(csegen_401(), csegen_403(), $7 => $8 => FFI_promiseIO($b => $c => $d => FFI_GitHub_prim__getSelf($0, $b, $c, $d), $7, $8));
|
|
8475
8483
|
}
|
|
8476
8484
|
|
|
8477
8485
|
/* FFI.GitHub.getRepoDefaultBranch : Octokit => String -> String -> Promise String */
|
|
@@ -8482,7 +8490,7 @@ function FFI_GitHub_getRepoDefaultBranch($0, $1, $2, $3, $4) {
|
|
|
8482
8490
|
/* FFI.GitHub.createPR : Octokit => {default False _ : Bool} ->
|
|
8483
8491
|
String -> String -> String -> String -> String -> String -> Promise PullRequest */
|
|
8484
8492
|
function FFI_GitHub_createPR($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
8485
|
-
return Prelude_Basics_flip(
|
|
8493
|
+
return Prelude_Basics_flip(csegen_401(), $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));
|
|
8486
8494
|
}
|
|
8487
8495
|
|
|
8488
8496
|
/* FFI.GitHub.createComment : Octokit => String -> String -> Integer -> String -> Promise () */
|
|
@@ -8521,8 +8529,8 @@ function Data_User_parseUserString($0) {
|
|
|
8521
8529
|
}
|
|
8522
8530
|
};
|
|
8523
8531
|
const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
|
|
8524
|
-
const $2 = {a1: $3, a2:
|
|
8525
|
-
return Prelude_Interfaces_x3ex3dx3e($2,
|
|
8532
|
+
const $2 = {a1: $3, a2: csegen_204(), a3: csegen_205()};
|
|
8533
|
+
return Prelude_Interfaces_x3ex3dx3e($2, csegen_206(), $1f => Data_User_parseUser($1f), $0);
|
|
8526
8534
|
}
|
|
8527
8535
|
|
|
8528
8536
|
/* Data.User.parseUser : JSON -> Either String User */
|
|
@@ -8552,7 +8560,7 @@ function Data_Review_parseState($0) {
|
|
|
8552
8560
|
|
|
8553
8561
|
/* Data.Review.parseReview : JSON -> Either String Review */
|
|
8554
8562
|
function Data_Review_parseReview($0) {
|
|
8555
|
-
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(
|
|
8563
|
+
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_408(), $22 => Data_Review_parseState($22), Language_JSON_Accessors_string($12.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_408(), $2f => Data_Review_parseDateTime($2f), Language_JSON_Accessors_string($12.a2.a2.a1)), submittedAt => ({h: 1 /* Right */, a1: {a1: submittedAt, a2: author, a3: state}}))))));
|
|
8556
8564
|
}
|
|
8557
8565
|
|
|
8558
8566
|
/* Data.Review.parseDateTime : String -> Either String Date */
|
|
@@ -8686,7 +8694,7 @@ function Data_Date_max_Ord_Date($0, $1) {
|
|
|
8686
8694
|
|
|
8687
8695
|
/* Data.Date.compare */
|
|
8688
8696
|
function Data_Date_compare_Ord_Date($0, $1) {
|
|
8689
|
-
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:
|
|
8697
|
+
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_222(), 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}}}});
|
|
8690
8698
|
}
|
|
8691
8699
|
|
|
8692
8700
|
/* Data.Date.> */
|
|
@@ -8842,8 +8850,8 @@ function Data_PullRequest_parsePullRequestsString($0) {
|
|
|
8842
8850
|
}
|
|
8843
8851
|
};
|
|
8844
8852
|
const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
|
|
8845
|
-
const $2 = {a1: $3, a2:
|
|
8846
|
-
return Prelude_Interfaces_x3ex3dx3e($2,
|
|
8853
|
+
const $2 = {a1: $3, a2: csegen_204(), a3: csegen_205()};
|
|
8854
|
+
return Prelude_Interfaces_x3ex3dx3e($2, csegen_206(), csegen_421(), $0);
|
|
8847
8855
|
}
|
|
8848
8856
|
|
|
8849
8857
|
/* Data.PullRequest.parsePullRequestString : String -> Either String PullRequest */
|
|
@@ -8866,13 +8874,13 @@ function Data_PullRequest_parsePullRequestString($0) {
|
|
|
8866
8874
|
}
|
|
8867
8875
|
};
|
|
8868
8876
|
const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
|
|
8869
|
-
const $2 = {a1: $3, a2:
|
|
8870
|
-
return Prelude_Interfaces_x3ex3dx3e($2,
|
|
8877
|
+
const $2 = {a1: $3, a2: csegen_204(), a3: csegen_205()};
|
|
8878
|
+
return Prelude_Interfaces_x3ex3dx3e($2, csegen_206(), $1f => Data_PullRequest_parsePR($1f), $0);
|
|
8871
8879
|
}
|
|
8872
8880
|
|
|
8873
8881
|
/* Data.PullRequest.parsePR : JSON -> Either String PullRequest */
|
|
8874
8882
|
function Data_PullRequest_parsePR($0) {
|
|
8875
|
-
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(
|
|
8883
|
+
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_408(), $40 => Data_PullRequest_parseState(merged, $40), Language_JSON_Accessors_string($1c.a2.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_408(), $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}})))))))))));
|
|
8876
8884
|
}
|
|
8877
8885
|
|
|
8878
8886
|
/* Data.PullRequest.parseDateTime : String -> Either String Date */
|
|
@@ -8905,7 +8913,7 @@ function Config_with__withx20blockx20inx20setConfig_2104($0, $1, $2, $3, $4, $5,
|
|
|
8905
8913
|
return $7 => {
|
|
8906
8914
|
switch($5.h) {
|
|
8907
8915
|
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);
|
|
8908
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $1f => Util_renderIO($5.a1, csegen_72(), $1f), () =>
|
|
8916
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $1f => Util_renderIO($5.a1, csegen_72(), $1f), () => csegen_429(), Config_checkConfigConsistency($5.a1)), $2b => $2c => $2d => Config_writeConfig($5.a1, $2c, $2d), $6, $7);
|
|
8909
8917
|
}
|
|
8910
8918
|
};
|
|
8911
8919
|
}
|
|
@@ -8955,12 +8963,12 @@ function Config_case__parseGitHubURIx2cparseSuffix_1509($0, $1, $2) {
|
|
|
8955
8963
|
default: return {h: 0};
|
|
8956
8964
|
}
|
|
8957
8965
|
};
|
|
8958
|
-
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(
|
|
8966
|
+
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_430(), $2.a1)}, $b);
|
|
8959
8967
|
}
|
|
8960
8968
|
|
|
8961
8969
|
/* Config.9228:2418:repo */
|
|
8962
8970
|
function Config_n__9228_2418_repo($0, $1, $2, $3, $4) {
|
|
8963
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
8971
|
+
return Prelude_Types_map_Functor_Maybe(csegen_431(), $4);
|
|
8964
8972
|
}
|
|
8965
8973
|
|
|
8966
8974
|
/* Config.8332:1489:parseSuffix */
|
|
@@ -8980,7 +8988,7 @@ function Config_n__8332_1487_parseHTTPS($0, $1) {
|
|
|
8980
8988
|
|
|
8981
8989
|
/* Config.9228:2417:org */
|
|
8982
8990
|
function Config_n__9228_2417_org($0, $1, $2, $3, $4) {
|
|
8983
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
8991
|
+
return Prelude_Types_map_Functor_Maybe(csegen_435(), $4);
|
|
8984
8992
|
}
|
|
8985
8993
|
|
|
8986
8994
|
/* Config.9228:2416:orIfEmpty */
|
|
@@ -9084,7 +9092,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
9084
9092
|
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};
|
|
9085
9093
|
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);
|
|
9086
9094
|
};
|
|
9087
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9095
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_446(), $31, $2c, $2d);
|
|
9088
9096
|
};
|
|
9089
9097
|
return Data_Promise_x3ex3ex3d_Monad_Promise($23 => $24 => FFI_GitHub_listOrgMembers($1, $0.a2, $23, $24), $2b, $1f, $20);
|
|
9090
9098
|
};
|
|
@@ -9107,14 +9115,14 @@ function Config_setConfig($0, $1, $2) {
|
|
|
9107
9115
|
function Config_propSetter($0, $1) {
|
|
9108
9116
|
return $2 => {
|
|
9109
9117
|
switch($0) {
|
|
9110
|
-
case 0: return Config_update(
|
|
9111
|
-
case 1: return Config_update(
|
|
9112
|
-
case 2: return Config_update(
|
|
9113
|
-
case 3: return Config_update(
|
|
9114
|
-
case 4: return Config_update(
|
|
9115
|
-
case 5: return Config_update(
|
|
9116
|
-
case 6: return Config_update(
|
|
9117
|
-
case 7: return Config_update(
|
|
9118
|
+
case 0: return Config_update(csegen_451(), $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);
|
|
9119
|
+
case 1: return Config_update(csegen_451(), $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);
|
|
9120
|
+
case 2: return Config_update(csegen_451(), $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);
|
|
9121
|
+
case 3: return Config_update(csegen_451(), $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);
|
|
9122
|
+
case 4: return Config_update(csegen_451(), $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);
|
|
9123
|
+
case 5: return Config_update(csegen_451(), $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);
|
|
9124
|
+
case 6: return Config_update(csegen_451(), $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);
|
|
9125
|
+
case 7: return Config_update(csegen_451(), $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);
|
|
9118
9126
|
}
|
|
9119
9127
|
};
|
|
9120
9128
|
}
|
|
@@ -9198,14 +9206,14 @@ function Config_loadConfig($0, $1, $2) {
|
|
|
9198
9206
|
}
|
|
9199
9207
|
};
|
|
9200
9208
|
const $a = {a1: $b, a2: a => $13 => ({h: 1 /* Right */, a1: $13}), a3: $15};
|
|
9201
|
-
const $9 = {a1: $a, a2:
|
|
9209
|
+
const $9 = {a1: $a, a2: csegen_204(), a3: csegen_205()};
|
|
9202
9210
|
const $24 = b => a => func => $25 => {
|
|
9203
9211
|
switch($25.h) {
|
|
9204
9212
|
case 0: /* Left */ return {h: 0 /* Left */, a1: $25.a1};
|
|
9205
9213
|
case 1: /* Right */ return {h: 1 /* Right */, a1: func($25.a1)};
|
|
9206
9214
|
}
|
|
9207
9215
|
};
|
|
9208
|
-
const $23 = {a1: $24, a2:
|
|
9216
|
+
const $23 = {a1: $24, a2: csegen_262(), a3: csegen_266()};
|
|
9209
9217
|
return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, $9, $23, $4, $5);
|
|
9210
9218
|
};
|
|
9211
9219
|
const $3d = $3e => {
|
|
@@ -9289,7 +9297,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
9289
9297
|
default: return {a1: Data_String_trim($73)};
|
|
9290
9298
|
}
|
|
9291
9299
|
};
|
|
9292
|
-
return Data_Promise_map_Functor_Promise($72,
|
|
9300
|
+
return Data_Promise_map_Functor_Promise($72, csegen_464(), $6f, $70);
|
|
9293
9301
|
};
|
|
9294
9302
|
const $7e = configPAT => $7f => $80 => {
|
|
9295
9303
|
const $8c = $8d => $8e => $8f => {
|
|
@@ -9297,11 +9305,11 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
9297
9305
|
case undefined: /* just */ {
|
|
9298
9306
|
const $a3 = remoteGuess => $a4 => $a5 => {
|
|
9299
9307
|
const $c1 = defaultOrgAndRepo => {
|
|
9300
|
-
const $c2 = Config_n__9228_2414_defaultStr($0, $3, $2, $1,
|
|
9308
|
+
const $c2 = Config_n__9228_2414_defaultStr($0, $3, $2, $1, csegen_435(), defaultOrgAndRepo);
|
|
9301
9309
|
return $cb => $cc => {
|
|
9302
9310
|
const $e9 = $ea => $eb => $ec => {
|
|
9303
9311
|
const $107 = org => {
|
|
9304
|
-
const $108 = Config_n__9228_2414_defaultStr($0, $3, $2, $1,
|
|
9312
|
+
const $108 = Config_n__9228_2414_defaultStr($0, $3, $2, $1, csegen_431(), defaultOrgAndRepo);
|
|
9305
9313
|
return $111 => $112 => {
|
|
9306
9314
|
const $12f = $130 => $131 => $132 => {
|
|
9307
9315
|
const $14d = repo => {
|
|
@@ -9322,7 +9330,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
9322
9330
|
const $205 = repoLabels => $206 => $207 => {
|
|
9323
9331
|
const $211 = orgMembers => {
|
|
9324
9332
|
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};
|
|
9325
|
-
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), () =>
|
|
9333
|
+
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_429(), Config_checkConfigConsistency($212)), $273 => $274 => $275 => Data_Promise_pure_Applicative_Promise($212, $274, $275), $261, $262), $24b, $24c), $239, $23a), $225, $226);
|
|
9326
9334
|
};
|
|
9327
9335
|
return Data_Promise_x3ex3ex3d_Monad_Promise($20a => $20b => FFI_GitHub_listOrgMembers(_, org, $20a, $20b), $211, $206, $207);
|
|
9328
9336
|
};
|
|
@@ -9331,7 +9339,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
9331
9339
|
return Data_Promise_x3ex3ex3d_Monad_Promise($1f1 => $1f2 => FFI_GitHub_listTeams(_, org, $1f1, $1f2), $1f8, $1ed, $1ee);
|
|
9332
9340
|
};
|
|
9333
9341
|
};
|
|
9334
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9342
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_446(), $1dd, $1d8, $1d9);
|
|
9335
9343
|
};
|
|
9336
9344
|
return Data_Promise_x3ex3ex3d_Monad_Promise($1cf => $1d0 => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $1cf, $1d0), $1d7, $1cb, $1cc);
|
|
9337
9345
|
};
|
|
@@ -9345,22 +9353,22 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
9345
9353
|
};
|
|
9346
9354
|
return Data_Promise_x3ex3ex3d_Monad_Promise(Util_yesNoPrompt(csegen_72(), 'Would you like harmony to comment when it requests reviewers?'), $195, $18d, $18e);
|
|
9347
9355
|
};
|
|
9348
|
-
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)),
|
|
9356
|
+
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_464(), $179, $17a), $18c, $175, $176);
|
|
9349
9357
|
};
|
|
9350
9358
|
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);
|
|
9351
9359
|
};
|
|
9352
9360
|
};
|
|
9353
|
-
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)),
|
|
9361
|
+
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_464(), $135, $136), $14d, $131, $132);
|
|
9354
9362
|
};
|
|
9355
9363
|
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);
|
|
9356
9364
|
};
|
|
9357
9365
|
};
|
|
9358
|
-
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)),
|
|
9366
|
+
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_464(), $ef, $f0), $107, $eb, $ec);
|
|
9359
9367
|
};
|
|
9360
9368
|
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);
|
|
9361
9369
|
};
|
|
9362
9370
|
};
|
|
9363
|
-
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), () =>
|
|
9371
|
+
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_466(), $a8, $a9), $c1, $a4, $a5);
|
|
9364
9372
|
};
|
|
9365
9373
|
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);
|
|
9366
9374
|
}
|
|
@@ -9387,7 +9395,7 @@ function Config_checkConfigConsistency($0) {
|
|
|
9387
9395
|
|
|
9388
9396
|
/* Config.addIgnoredPRs : Config -> List Integer -> Promise Config */
|
|
9389
9397
|
function Config_addIgnoredPRs($0, $1, $2, $3) {
|
|
9390
|
-
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(
|
|
9398
|
+
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_221(), Prelude_Types_List_tailRecAppend($0.a12, $1)), a13: $0.a13, a14: $0.a14}, $2, $3);
|
|
9391
9399
|
}
|
|
9392
9400
|
|
|
9393
9401
|
/* Data.List.PrefixSuffix.with block in with block in dropPrefix */
|
|
@@ -9466,7 +9474,7 @@ function Commands_case__casex20blockx20inx20graph_2168($0, $1, $2, $3, $4, $5, $
|
|
|
9466
9474
|
case 0: return Data_Promise_pure_Applicative_Promise({h: 0}, $d, $e);
|
|
9467
9475
|
}
|
|
9468
9476
|
};
|
|
9469
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($c, completedReviews => Util_renderIO($2, csegen_72(), Graph_reviewsGraph(
|
|
9477
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($c, completedReviews => Util_renderIO($2, csegen_72(), Graph_reviewsGraph(csegen_218(), {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);
|
|
9470
9478
|
};
|
|
9471
9479
|
}
|
|
9472
9480
|
|
|
@@ -9542,8 +9550,8 @@ function Commands_case__requestx2cpartitionedArgs_1663($0, $1, $2, $3, $4, $5) {
|
|
|
9542
9550
|
return Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_1686($0, $1, $2, $3, $4, $5.a1, $5.a2, Data_List_partition($12 => BashCompletion_isHashPrefix($12), $5.a2));
|
|
9543
9551
|
}
|
|
9544
9552
|
|
|
9545
|
-
/* Commands.
|
|
9546
|
-
function
|
|
9553
|
+
/* Commands.9787:2511:recombineIgnoreArgs */
|
|
9554
|
+
function Commands_n__9787_2511_recombineIgnoreArgs($0, $1) {
|
|
9547
9555
|
switch($1.h) {
|
|
9548
9556
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
9549
9557
|
case undefined: /* cons */ {
|
|
@@ -9552,20 +9560,20 @@ function Commands_n__9789_2511_recombineIgnoreArgs($0, $1) {
|
|
|
9552
9560
|
switch($1.a2.h) {
|
|
9553
9561
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '-i', a2: {h: 0}}};
|
|
9554
9562
|
case undefined: /* cons */ {
|
|
9555
|
-
const $b =
|
|
9563
|
+
const $b = Commands_n__9787_2509_parseIgnoreOpt($0, $1.a2.a1);
|
|
9556
9564
|
switch($b.h) {
|
|
9557
9565
|
case undefined: /* just */ {
|
|
9558
|
-
const $f =
|
|
9566
|
+
const $f = Commands_n__9787_2511_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9559
9567
|
return {a1: {a1: $b.a1, a2: $f.a1}, a2: $f.a2};
|
|
9560
9568
|
}
|
|
9561
9569
|
case 0: /* nothing */ {
|
|
9562
|
-
const $17 =
|
|
9570
|
+
const $17 = Commands_n__9787_2511_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9563
9571
|
return {a1: $17.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $17.a2}}};
|
|
9564
9572
|
}
|
|
9565
9573
|
}
|
|
9566
9574
|
}
|
|
9567
9575
|
default: {
|
|
9568
|
-
const $21 =
|
|
9576
|
+
const $21 = Commands_n__9787_2511_recombineIgnoreArgs($0, $1.a2);
|
|
9569
9577
|
return {a1: $21.a1, a2: {a1: $1.a1, a2: $21.a2}};
|
|
9570
9578
|
}
|
|
9571
9579
|
}
|
|
@@ -9574,26 +9582,26 @@ function Commands_n__9789_2511_recombineIgnoreArgs($0, $1) {
|
|
|
9574
9582
|
switch($1.a2.h) {
|
|
9575
9583
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
|
|
9576
9584
|
case undefined: /* cons */ {
|
|
9577
|
-
const $2e =
|
|
9585
|
+
const $2e = Commands_n__9787_2509_parseIgnoreOpt($0, $1.a2.a1);
|
|
9578
9586
|
switch($2e.h) {
|
|
9579
9587
|
case undefined: /* just */ {
|
|
9580
|
-
const $32 =
|
|
9588
|
+
const $32 = Commands_n__9787_2511_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9581
9589
|
return {a1: {a1: $2e.a1, a2: $32.a1}, a2: $32.a2};
|
|
9582
9590
|
}
|
|
9583
9591
|
case 0: /* nothing */ {
|
|
9584
|
-
const $3a =
|
|
9592
|
+
const $3a = Commands_n__9787_2511_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9585
9593
|
return {a1: $3a.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $3a.a2}}};
|
|
9586
9594
|
}
|
|
9587
9595
|
}
|
|
9588
9596
|
}
|
|
9589
9597
|
default: {
|
|
9590
|
-
const $44 =
|
|
9598
|
+
const $44 = Commands_n__9787_2511_recombineIgnoreArgs($0, $1.a2);
|
|
9591
9599
|
return {a1: $44.a1, a2: {a1: $1.a1, a2: $44.a2}};
|
|
9592
9600
|
}
|
|
9593
9601
|
}
|
|
9594
9602
|
}
|
|
9595
9603
|
default: {
|
|
9596
|
-
const $4c =
|
|
9604
|
+
const $4c = Commands_n__9787_2511_recombineIgnoreArgs($0, $1.a2);
|
|
9597
9605
|
return {a1: $4c.a1, a2: {a1: $1.a1, a2: $4c.a2}};
|
|
9598
9606
|
}
|
|
9599
9607
|
}
|
|
@@ -9601,33 +9609,33 @@ function Commands_n__9789_2511_recombineIgnoreArgs($0, $1) {
|
|
|
9601
9609
|
}
|
|
9602
9610
|
}
|
|
9603
9611
|
|
|
9604
|
-
/* Commands.
|
|
9605
|
-
function
|
|
9612
|
+
/* Commands.9178:1922:putNameLn */
|
|
9613
|
+
function Commands_n__9178_1922_putNameLn($0, $1, $2, $3) {
|
|
9606
9614
|
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}}}});
|
|
9607
9615
|
}
|
|
9608
9616
|
|
|
9609
|
-
/* Commands.
|
|
9610
|
-
function
|
|
9611
|
-
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $f =>
|
|
9617
|
+
/* Commands.8499:1299:putLabels */
|
|
9618
|
+
function Commands_n__8499_1299_putLabels($0, $1, $2, $3, $4) {
|
|
9619
|
+
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__8499_1298_putLabel($0, $1, $2, $3, $f), $4)));
|
|
9612
9620
|
}
|
|
9613
9621
|
|
|
9614
|
-
/* Commands.
|
|
9615
|
-
function
|
|
9622
|
+
/* Commands.8499:1298:putLabel */
|
|
9623
|
+
function Commands_n__8499_1298_putLabel($0, $1, $2, $3, $4) {
|
|
9616
9624
|
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)));
|
|
9617
9625
|
}
|
|
9618
9626
|
|
|
9619
|
-
/* Commands.
|
|
9620
|
-
function
|
|
9627
|
+
/* Commands.8854:1651:partitionedArgs */
|
|
9628
|
+
function Commands_n__8854_1651_partitionedArgs($0, $1, $2, $3, $4) {
|
|
9621
9629
|
return Commands_case__requestx2cpartitionedArgs_1663($0, $1, $2, $3, $4, Data_List_partition($e => Data_String_isPrefixOf('+', $e), $4));
|
|
9622
9630
|
}
|
|
9623
9631
|
|
|
9624
|
-
/* Commands.
|
|
9625
|
-
function
|
|
9632
|
+
/* Commands.9628:2373:parseTeamArg */
|
|
9633
|
+
function Commands_n__9628_2373_parseTeamArg($0, $1) {
|
|
9626
9634
|
return {a1: {a1: $1}};
|
|
9627
9635
|
}
|
|
9628
9636
|
|
|
9629
|
-
/* Commands.
|
|
9630
|
-
function
|
|
9637
|
+
/* Commands.9787:2510:parseSkipArg */
|
|
9638
|
+
function Commands_n__9787_2510_parseSkipArg($0, $1) {
|
|
9631
9639
|
const $2 = Prelude_Types_fastUnpack($1);
|
|
9632
9640
|
switch($2.h) {
|
|
9633
9641
|
case undefined: /* cons */ {
|
|
@@ -9640,15 +9648,15 @@ function Commands_n__9789_2510_parseSkipArg($0, $1) {
|
|
|
9640
9648
|
}
|
|
9641
9649
|
}
|
|
9642
9650
|
|
|
9643
|
-
/* Commands.
|
|
9644
|
-
function
|
|
9645
|
-
const $2 = Data_String_split(
|
|
9651
|
+
/* Commands.9787:2509:parseIgnoreOpt */
|
|
9652
|
+
function Commands_n__9787_2509_parseIgnoreOpt($0, $1) {
|
|
9653
|
+
const $2 = Data_String_split(csegen_430(), $1);
|
|
9646
9654
|
const $7 = Data_List1_last($2);
|
|
9647
9655
|
return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
|
|
9648
9656
|
}
|
|
9649
9657
|
|
|
9650
|
-
/* Commands.
|
|
9651
|
-
function
|
|
9658
|
+
/* Commands.9628:2372:parseCompletedFlag */
|
|
9659
|
+
function Commands_n__9628_2372_parseCompletedFlag($0, $1) {
|
|
9652
9660
|
switch($1) {
|
|
9653
9661
|
case '-c': return {a1: {h: 0}};
|
|
9654
9662
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -9656,8 +9664,8 @@ function Commands_n__9630_2372_parseCompletedFlag($0, $1) {
|
|
|
9656
9664
|
}
|
|
9657
9665
|
}
|
|
9658
9666
|
|
|
9659
|
-
/* Commands.
|
|
9660
|
-
function
|
|
9667
|
+
/* Commands.9787:2508:parseCheckoutFlag */
|
|
9668
|
+
function Commands_n__9787_2508_parseCheckoutFlag($0, $1) {
|
|
9661
9669
|
switch($1) {
|
|
9662
9670
|
case '-c': return {a1: {h: 0 /* Checkout */}};
|
|
9663
9671
|
case '--checkout': return {a1: {h: 0 /* Checkout */}};
|
|
@@ -9665,13 +9673,13 @@ function Commands_n__9789_2508_parseCheckoutFlag($0, $1) {
|
|
|
9665
9673
|
}
|
|
9666
9674
|
}
|
|
9667
9675
|
|
|
9668
|
-
/* Commands.
|
|
9669
|
-
function
|
|
9676
|
+
/* Commands.10117:2847:isNotIgnored */
|
|
9677
|
+
function Commands_n__10117_2847_isNotIgnored($0, $1, $2, $3, $4, $5) {
|
|
9670
9678
|
return Data_Maybe_isNothing(Data_List_find($a => Prelude_EqOrd_x3dx3d_Eq_Integer($a, $5.a1), $4.a12));
|
|
9671
9679
|
}
|
|
9672
9680
|
|
|
9673
|
-
/* Commands.
|
|
9674
|
-
function
|
|
9681
|
+
/* Commands.9178:1921:forkedUser */
|
|
9682
|
+
function Commands_n__9178_1921_forkedUser($0, $1, $2, $3) {
|
|
9675
9683
|
return FFI_Concurrency_fork(csegen_72(), ('user --json '+$3));
|
|
9676
9684
|
}
|
|
9677
9685
|
|
|
@@ -9713,7 +9721,7 @@ function Commands_skipArg($0) {
|
|
|
9713
9721
|
/* Commands.request : Config => Git => Octokit => List String -> {default False _ : Bool} ->
|
|
9714
9722
|
Promise () */
|
|
9715
9723
|
function Commands_request($0, $1, $2, $3, $4) {
|
|
9716
|
-
return Commands_case__request_1766($0, $1, $2, $4, $3,
|
|
9724
|
+
return Commands_case__request_1766($0, $1, $2, $4, $3, Commands_n__8854_1651_partitionedArgs($0, $1, $2, $4, $3));
|
|
9717
9725
|
}
|
|
9718
9726
|
|
|
9719
9727
|
/* Commands.reflect : Config => Octokit => Promise () */
|
|
@@ -9767,7 +9775,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
9767
9775
|
switch($0.a2.a2.h) {
|
|
9768
9776
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
9769
9777
|
default: {
|
|
9770
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(
|
|
9778
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_494(), $10 => Commands_n__9628_2372_parseCompletedFlag($0, $10), $15 => Commands_n__9628_2373_parseTeamArg($0, $15), $b), $0);
|
|
9771
9779
|
switch($6.h) {
|
|
9772
9780
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
9773
9781
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -9776,7 +9784,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
9776
9784
|
}
|
|
9777
9785
|
}
|
|
9778
9786
|
default: {
|
|
9779
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(
|
|
9787
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_494(), $27 => Commands_n__9628_2372_parseCompletedFlag($0, $27), $2c => Commands_n__9628_2373_parseTeamArg($0, $2c), $22), $0);
|
|
9780
9788
|
switch($1d.h) {
|
|
9781
9789
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
9782
9790
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -9785,7 +9793,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
9785
9793
|
}
|
|
9786
9794
|
}
|
|
9787
9795
|
default: {
|
|
9788
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(
|
|
9796
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_494(), $3e => Commands_n__9628_2372_parseCompletedFlag($0, $3e), $43 => Commands_n__9628_2373_parseTeamArg($0, $43), $39), $0);
|
|
9789
9797
|
switch($34.h) {
|
|
9790
9798
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
9791
9799
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -9799,9 +9807,9 @@ function Commands_parseContributeArgs($0) {
|
|
|
9799
9807
|
switch($0.h) {
|
|
9800
9808
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
9801
9809
|
default: {
|
|
9802
|
-
const $3 =
|
|
9810
|
+
const $3 = Commands_n__9787_2511_recombineIgnoreArgs($0, $0);
|
|
9803
9811
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 1 /* Ignore */, a1: $b}), $3.a1);
|
|
9804
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
9812
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_494(), $18 => Commands_n__9787_2510_parseSkipArg($0, $18), $1d => Commands_n__9787_2508_parseCheckoutFlag($0, $1d), $13), $3.a2);
|
|
9805
9813
|
return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($29 => Prelude_Types_List_tailRecAppend($7, $29), $e));
|
|
9806
9814
|
}
|
|
9807
9815
|
}
|
|
@@ -9809,14 +9817,14 @@ function Commands_parseContributeArgs($0) {
|
|
|
9809
9817
|
|
|
9810
9818
|
/* Commands.list : Config => Octokit => String -> Promise () */
|
|
9811
9819
|
function Commands_list($0, $1, $2, $3, $4) {
|
|
9812
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => Data_Promise_map_Functor_Promise(
|
|
9820
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => Data_Promise_map_Functor_Promise(csegen_495(), $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_401(), csegen_496(), Prelude_Types_traverse_Traversable_List(csegen_64(), $27 => Commands_n__9178_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__9178_1922_putNameLn($1, $2, $0, $4c), teamMembers))), $2f, $30), $19, $1a), $3, $4);
|
|
9813
9821
|
}
|
|
9814
9822
|
|
|
9815
9823
|
/* Commands.label : Config => Git => Octokit => List String -> Promise () */
|
|
9816
9824
|
function Commands_label($0, $1, $2, $3, $4, $5) {
|
|
9817
9825
|
const $20 = $21 => {
|
|
9818
9826
|
const $23 = Prelude_Types_List_mapAppend({h: 0}, $27 => Commands_unslugifyLabel($0.a10, $27), $3);
|
|
9819
|
-
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(
|
|
9827
|
+
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__8499_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__8499_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);
|
|
9820
9828
|
};
|
|
9821
9829
|
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);
|
|
9822
9830
|
}
|
|
@@ -9879,14 +9887,14 @@ function Commands_contribute($0, $1, $2, $3, $4, $5) {
|
|
|
9879
9887
|
}
|
|
9880
9888
|
};
|
|
9881
9889
|
const $53 = Prelude_Types_List_filterAppend({h: 0}, $56, $13);
|
|
9882
|
-
const $5d = Prelude_Types_List_filterAppend({h: 0}, $61 =>
|
|
9890
|
+
const $5d = Prelude_Types_List_filterAppend({h: 0}, $61 => Commands_n__10117_2847_isNotIgnored($1, $2, $3, $0, configx27, $61), $53);
|
|
9883
9891
|
const $6a = Data_List_partition($6d => Data_PullRequest_isRequestedReviewer(myLogin, $6d), $5d);
|
|
9884
|
-
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(
|
|
9892
|
+
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_508(), $a0), $6a));
|
|
9885
9893
|
};
|
|
9886
9894
|
return Data_Promise_x3ex3ex3d_Monad_Promise($30, $3f, $2d, $2e);
|
|
9887
9895
|
};
|
|
9888
9896
|
};
|
|
9889
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($1f => $20 => Data_Promise_map_Functor_Promise(
|
|
9897
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($1f => $20 => Data_Promise_map_Functor_Promise(csegen_504(), FFI_GitHub_getSelf($2), $1f, $20), $29, $1b, $1c);
|
|
9890
9898
|
};
|
|
9891
9899
|
};
|
|
9892
9900
|
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequests($2, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $12, $4, $5);
|
|
@@ -9910,7 +9918,7 @@ function Commands_x3cx7cx7cx3e($0, $1, $2, $3) {
|
|
|
9910
9918
|
|
|
9911
9919
|
/* User.Reflect.case block in case block in reflectOnSelf */
|
|
9912
9920
|
function User_Reflect_case__casex20blockx20inx20reflectOnSelf_1862($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
9913
|
-
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},
|
|
9921
|
+
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_521(), $2a))), {a1: $7, a2: $9.a1});
|
|
9914
9922
|
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));
|
|
9915
9923
|
}
|
|
9916
9924
|
|
|
@@ -9993,21 +10001,21 @@ function User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
|
9993
10001
|
const $c = prs => $d => $e => {
|
|
9994
10002
|
const $1b = myLogin => $1c => $1d => {
|
|
9995
10003
|
const $39 = reviews => {
|
|
9996
|
-
const $3a = Prelude_Types_map_Functor_Maybe(
|
|
10004
|
+
const $3a = Prelude_Types_map_Functor_Maybe(csegen_524(), Data_List_headx27(Data_List_sortBy($43 => $44 => Prelude_Basics_on(csegen_506(), csegen_524(), $43, $44), reviews)));
|
|
9997
10005
|
const $4d = PullRequest_tuple(prs);
|
|
9998
10006
|
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);
|
|
9999
10007
|
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));
|
|
10000
10008
|
};
|
|
10001
|
-
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(
|
|
10009
|
+
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_506(), csegen_521(), $2d, $2e), PullRequest_combined(prs))))), $39, $1c, $1d);
|
|
10002
10010
|
};
|
|
10003
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($11 => $12 => Data_Promise_map_Functor_Promise(
|
|
10011
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($11 => $12 => Data_Promise_map_Functor_Promise(csegen_504(), FFI_GitHub_getSelf($1), $11, $12), $1b, $d, $e);
|
|
10004
10012
|
};
|
|
10005
10013
|
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_listPartitionedPRs($0, $1, 4n, User_Reflect_prCount()), $c, $2, $3);
|
|
10006
10014
|
}
|
|
10007
10015
|
|
|
10008
10016
|
/* User.Me.printInfoOnSelf : Config => Octokit => Git => Promise () */
|
|
10009
10017
|
function User_Me_printInfoOnSelf($0, $1, $2, $3, $4) {
|
|
10010
|
-
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(
|
|
10018
|
+
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_495(), $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);
|
|
10011
10019
|
}
|
|
10012
10020
|
|
|
10013
10021
|
/* User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
@@ -10044,8 +10052,8 @@ function User_Reflect_header($0) {
|
|
|
10044
10052
|
function User_Reflect_graph($0, $1, $2, $3, $4, $5) {
|
|
10045
10053
|
const $6 = ($2+$3);
|
|
10046
10054
|
const $9 = ($5+$4);
|
|
10047
|
-
const $c = Prelude_Types_foldr_Foldable_List(
|
|
10048
|
-
const $1b = Prelude_Types_foldr_Foldable_List(
|
|
10055
|
+
const $c = Prelude_Types_foldr_Foldable_List(csegen_207(), Prelude_Types_String_length(User_Reflect_leftTitle()), {a1: ($6+$1), a2: {a1: $9, a2: {h: 0}}});
|
|
10056
|
+
const $1b = Prelude_Types_foldr_Foldable_List(csegen_207(), Prelude_Types_String_length(User_Reflect_rightTitle()), {a1: $6, a2: {a1: $9, a2: {h: 0}}});
|
|
10049
10057
|
const $28 = (($c+$1b)+3n);
|
|
10050
10058
|
const $2d = ((Number($0)/2.0)-(Number($28)/2.0));
|
|
10051
10059
|
const $36 = (Prelude_Types_prim__integerToNat(BigInt(Math.trunc($2d)))+Prelude_Types_prim__integerToNat(($c-Prelude_Types_String_length(User_Reflect_leftTitle()))));
|
|
@@ -10055,7 +10063,7 @@ function User_Reflect_graph($0, $1, $2, $3, $4, $5) {
|
|
|
10055
10063
|
|
|
10056
10064
|
/* User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
10057
10065
|
function User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10058
|
-
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(
|
|
10066
|
+
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_530(), $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_530(), $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}}}}}}}}}});
|
|
10059
10067
|
}
|
|
10060
10068
|
|
|
10061
10069
|
/* User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
@@ -10242,7 +10250,7 @@ function PullRequest_n__10285_2626_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
10242
10250
|
};
|
|
10243
10251
|
return Data_Promise_x3ex3ex3d_Monad_Promise($16f => $170 => Util_relativeToRoot($0, '.github/PULL_REQUEST_TEMPLATE.md', $16f, $170), $176, $16b, $16c);
|
|
10244
10252
|
};
|
|
10245
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($15d => $15e => Data_Promise_map_Functor_Promise($161 => ($13b+Data_String_trim($161)),
|
|
10253
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($15d => $15e => Data_Promise_map_Functor_Promise($161 => ($13b+Data_String_trim($161)), csegen_464(), $15d, $15e), $16a, $159, $15a);
|
|
10246
10254
|
};
|
|
10247
10255
|
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);
|
|
10248
10256
|
};
|
|
@@ -10251,7 +10259,7 @@ function PullRequest_n__10285_2626_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
10251
10259
|
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);
|
|
10252
10260
|
};
|
|
10253
10261
|
};
|
|
10254
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($10f => $110 => Data_Promise_map_Functor_Promise($113 => Data_String_trim($113),
|
|
10262
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($10f => $110 => Data_Promise_map_Functor_Promise($113 => Data_String_trim($113), csegen_464(), $10f, $110), $11a, $10b, $10c);
|
|
10255
10263
|
};
|
|
10256
10264
|
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);
|
|
10257
10265
|
};
|
|
@@ -10276,7 +10284,7 @@ function PullRequest_n__10285_2626_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
10276
10284
|
function PullRequest_n__10285_2625_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
10277
10285
|
const $f = $10 => $11 => $12 => {
|
|
10278
10286
|
switch($10.h) {
|
|
10279
|
-
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),
|
|
10287
|
+
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_560(), $24, $25), $11, $12);
|
|
10280
10288
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_Promise(1, $11, $12);
|
|
10281
10289
|
}
|
|
10282
10290
|
};
|
|
@@ -10287,7 +10295,7 @@ function PullRequest_n__10285_2625_continueGivenUncommittedChanges($0, $1, $2, $
|
|
|
10287
10295
|
function PullRequest_n__10285_2624_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
10288
10296
|
const $f = $10 => $11 => $12 => {
|
|
10289
10297
|
switch($10.h) {
|
|
10290
|
-
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),
|
|
10298
|
+
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_560(), $24, $25), $11, $12);
|
|
10291
10299
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_Promise(1, $11, $12);
|
|
10292
10300
|
}
|
|
10293
10301
|
};
|
|
@@ -10331,7 +10339,7 @@ function PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
|
|
|
10331
10339
|
};
|
|
10332
10340
|
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);
|
|
10333
10341
|
};
|
|
10334
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(
|
|
10342
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_401(), csegen_496(), Prelude_Types_traverse_Traversable_List(csegen_64(), $11 => PullRequest_n__9368_1704_forkedReviews($0, $1, $2, $11), $2)), $18, $3, $4);
|
|
10335
10343
|
}
|
|
10336
10344
|
|
|
10337
10345
|
/* PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise (List Review) */
|
|
@@ -10361,9 +10369,9 @@ function PullRequest_reviewsByUser($0, $1, $2, $3) {
|
|
|
10361
10369
|
List PullRequest -> Promise (SortedMap String (List Review)) */
|
|
10362
10370
|
function PullRequest_reviewsByEachUser($0, $1, $2, $3, $4) {
|
|
10363
10371
|
const $f = reviews => {
|
|
10364
|
-
const $10 = Data_List_groupAllWith(
|
|
10372
|
+
const $10 = Data_List_groupAllWith(csegen_218(), $15 => $15.a2, reviews);
|
|
10365
10373
|
const $18 = Prelude_Types_List_mapAppend({h: 0}, rs => ({a1: rs.a1.a2, a2: Data_List1_forget(rs)}), $10);
|
|
10366
|
-
return $23 => $24 => Data_Promise_pure_Applicative_Promise(Data_SortedMap_fromList(
|
|
10374
|
+
return $23 => $24 => Data_Promise_pure_Applicative_Promise(Data_SortedMap_fromList(csegen_218(), $18), $23, $24);
|
|
10367
10375
|
};
|
|
10368
10376
|
return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => PullRequest_reviewsForPrs($0, $1, $2, $7, $8), $f, $3, $4);
|
|
10369
10377
|
}
|
|
@@ -10377,12 +10385,12 @@ function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
10377
10385
|
let $37;
|
|
10378
10386
|
switch($0.a7) {
|
|
10379
10387
|
case 1: {
|
|
10380
|
-
const $3a = Reviewer_chooseReviewers(
|
|
10388
|
+
const $3a = Reviewer_chooseReviewers(csegen_218(), $14.a2, $14.a1, teamMembers, {h: 0}, $2.a4);
|
|
10381
10389
|
$37 = Reviewer_randomReviewer(csegen_72(), $3a);
|
|
10382
10390
|
break;
|
|
10383
10391
|
}
|
|
10384
10392
|
case 0: {
|
|
10385
|
-
$37 =
|
|
10393
|
+
$37 = csegen_466();
|
|
10386
10394
|
break;
|
|
10387
10395
|
}
|
|
10388
10396
|
}
|
|
@@ -10501,12 +10509,12 @@ function PullRequest_listx27($0, $1, $2, $3) {
|
|
|
10501
10509
|
}
|
|
10502
10510
|
};
|
|
10503
10511
|
const $4d = {a1: $4e, a2: a => $56 => ({h: 1 /* Right */, a1: $56}), a3: $58};
|
|
10504
|
-
const $4b = Prelude_Types_traverse_Traversable_List($4d,
|
|
10512
|
+
const $4b = Prelude_Types_traverse_Traversable_List($4d, csegen_421(), prJsons);
|
|
10505
10513
|
return Data_Promise_either(csegen_51(), $4b, $47);
|
|
10506
10514
|
};
|
|
10507
10515
|
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);
|
|
10508
10516
|
};
|
|
10509
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(
|
|
10517
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_401(), $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);
|
|
10510
10518
|
}
|
|
10511
10519
|
|
|
10512
10520
|
/* PullRequest.identifyOrCreatePR : Config => Git => Octokit => {default False _ : Bool} ->
|
|
@@ -10902,26 +10910,26 @@ function Data_SortedMap_Dependent_empty($0) {
|
|
|
10902
10910
|
}
|
|
10903
10911
|
|
|
10904
10912
|
/* Data.Pagination.with block in metaPages' */
|
|
10905
|
-
function
|
|
10913
|
+
function Data_Pagination_with__metaPagesx27_7387($0, $1, $2, $3, $4, $5, $6) {
|
|
10906
10914
|
const $7 = $8 => Data_Pagination_divNatNZLemma($0, $1, $6);
|
|
10907
10915
|
return Data_Pagination_pagesHelper(0n, $0, $3, $7(undefined), $5);
|
|
10908
10916
|
}
|
|
10909
10917
|
|
|
10910
10918
|
/* Data.Pagination.with block in with block in divNatNZLemma */
|
|
10911
|
-
function
|
|
10919
|
+
function Data_Pagination_with__withx20blockx20inx20divNatNZLemma_7328($0, $1, $2, $3, $4, $5) {
|
|
10912
10920
|
return Prelude_Uninhabited_absurd($8 => $8, $3((Data_Nat_lteReflectsLTE(($0+1n), $1, $4)+1n)));
|
|
10913
10921
|
}
|
|
10914
10922
|
|
|
10915
10923
|
/* Data.Pagination.with block in divNatNZLemma */
|
|
10916
|
-
function
|
|
10924
|
+
function Data_Pagination_with__divNatNZLemma_7310($0, $1, $2, $3, $4, $5) {
|
|
10917
10925
|
switch($2) {
|
|
10918
10926
|
case 0: return 1n;
|
|
10919
|
-
case 1: return
|
|
10927
|
+
case 1: return Data_Pagination_with__withx20blockx20inx20divNatNZLemma_7328($1, $0, $5, $c => Data_Nat_LTEImpliesNotGT($5, $c), $3, undefined);
|
|
10920
10928
|
}
|
|
10921
10929
|
}
|
|
10922
10930
|
|
|
10923
10931
|
/* Data.Pagination.with block in pagesHelper */
|
|
10924
|
-
function
|
|
10932
|
+
function Data_Pagination_with__pagesHelper_7152($0, $1, $2, $3, $4, $5) {
|
|
10925
10933
|
switch($2.h) {
|
|
10926
10934
|
case 0: /* Yes */ {
|
|
10927
10935
|
const $7 = Data_Pagination_lemma($0, $1, $2.a1);
|
|
@@ -10932,12 +10940,12 @@ function Data_Pagination_with__pagesHelper_7161($0, $1, $2, $3, $4, $5) {
|
|
|
10932
10940
|
}
|
|
10933
10941
|
|
|
10934
10942
|
/* Data.Pagination.with block in nonTerminalPage */
|
|
10935
|
-
function
|
|
10943
|
+
function Data_Pagination_with__nonTerminalPage_7131($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10936
10944
|
return {h: 0 /* NonTerminal */, a1: $7, a2: $1, a3: $0, a4: $5, a5: $6, a6: undefined, a7: Data_Pagination_pagesHelper(($7+1n), $0, $1, $6, $5)};
|
|
10937
10945
|
}
|
|
10938
10946
|
|
|
10939
10947
|
/* Data.Pagination.with block in lemma */
|
|
10940
|
-
function
|
|
10948
|
+
function Data_Pagination_with__lemma_7034($0, $1, $2, $3, $4) {
|
|
10941
10949
|
return {a1: ($3.a1+1n), a2: {a1: undefined, a2: 1n}};
|
|
10942
10950
|
}
|
|
10943
10951
|
|
|
@@ -10986,21 +10994,21 @@ function Data_Pagination_traversex27($0, $1, $2) {
|
|
|
10986
10994
|
/* Data.Pagination.pagesHelper : (page : Nat) -> (remainingItems : Nat) -> (perPage : Nat) -> GT perPage 0 =>
|
|
10987
10995
|
GT remainingItems 0 => PaginationShape remainingItems perPage page */
|
|
10988
10996
|
function Data_Pagination_pagesHelper($0, $1, $2, $3, $4) {
|
|
10989
|
-
return
|
|
10997
|
+
return Data_Pagination_with__pagesHelper_7152($2, $1, Data_Nat_isLT($2, $1), $3, $4, $0);
|
|
10990
10998
|
}
|
|
10991
10999
|
|
|
10992
11000
|
/* Data.Pagination.nonTerminalPage : (page : Nat) -> (remainingItems : Nat) -> (perPage : Nat) ->
|
|
10993
11001
|
{auto 0 _ : remainder + perPage = remainingItems} -> GT perPage 0 =>
|
|
10994
11002
|
GT remainder 0 => PaginationShape remainingItems perPage page */
|
|
10995
11003
|
function Data_Pagination_nonTerminalPage($0, $1, $2, $3, $4, $5) {
|
|
10996
|
-
return
|
|
11004
|
+
return Data_Pagination_with__nonTerminalPage_7131($0, $3, $2, undefined, undefined, $5, $4, $1);
|
|
10997
11005
|
}
|
|
10998
11006
|
|
|
10999
11007
|
/* Data.Pagination.metaPages' : (items : Nat) -> (pages : Nat) -> GT items 0 => {auto 0 pagesOk : GT pages 0} ->
|
|
11000
11008
|
LTE pages items =>
|
|
11001
11009
|
PaginationShape items (divNatNZ items pages (gtIsNonZero pagesOk)) 0 */
|
|
11002
11010
|
function Data_Pagination_metaPagesx27($0, $1, $2, $3) {
|
|
11003
|
-
return
|
|
11011
|
+
return Data_Pagination_with__metaPagesx27_7387($0, $1, undefined, Data_Nat_divNatNZ($0, $1), undefined, $2, $3);
|
|
11004
11012
|
}
|
|
11005
11013
|
|
|
11006
11014
|
/* Data.Pagination.metaPages : (items : Nat) -> (perPage : Nat) -> GT items 0 => GT perPage 0 =>
|
|
@@ -11024,7 +11032,7 @@ function Data_Pagination_lemma($0, $1, $2) {
|
|
|
11024
11032
|
case 0n: _crashExp('Nat case not covered');
|
|
11025
11033
|
default: {
|
|
11026
11034
|
const $8 = ($2-1n);
|
|
11027
|
-
return
|
|
11035
|
+
return Data_Pagination_with__lemma_7034($0, $4, $8, Data_Pagination_lemmax27($0, $4, $8), $1);
|
|
11028
11036
|
}
|
|
11029
11037
|
}
|
|
11030
11038
|
}
|
|
@@ -11046,7 +11054,7 @@ function Data_Pagination_divNatNZLemma($0, $1, $2) {
|
|
|
11046
11054
|
case 0n: _crashExp('Nat case not covered');
|
|
11047
11055
|
default: {
|
|
11048
11056
|
const $f = ($1-1n);
|
|
11049
|
-
return
|
|
11057
|
+
return Data_Pagination_with__divNatNZLemma_7310($f, $b, Data_Nat_lte(($b+1n), $f), undefined, undefined, $2);
|
|
11050
11058
|
}
|
|
11051
11059
|
}
|
|
11052
11060
|
}
|
|
@@ -11099,7 +11107,7 @@ function Graph_n__6343_6621_header($0, $1, $2, $3, $4, $5) {
|
|
|
11099
11107
|
break;
|
|
11100
11108
|
}
|
|
11101
11109
|
}
|
|
11102
|
-
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:
|
|
11110
|
+
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_607()}};
|
|
11103
11111
|
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};
|
|
11104
11112
|
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};
|
|
11105
11113
|
const $d = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $12};
|
|
@@ -11110,7 +11118,7 @@ function Graph_n__6343_6621_header($0, $1, $2, $3, $4, $5) {
|
|
|
11110
11118
|
|
|
11111
11119
|
/* Graph.5952:6229:header */
|
|
11112
11120
|
function Graph_n__5952_6229_header($0, $1, $2) {
|
|
11113
|
-
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:
|
|
11121
|
+
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_607()}}}));
|
|
11114
11122
|
}
|
|
11115
11123
|
|
|
11116
11124
|
/* Graph.6343:6620:greenBox */
|
|
@@ -11260,9 +11268,9 @@ function Graph_reviewsGraph($0, $1, $2, $3, $4, $5) {
|
|
|
11260
11268
|
|
|
11261
11269
|
/* Graph.healthGraph : List PullRequest -> String -> String -> Doc AnsiStyle */
|
|
11262
11270
|
function Graph_healthGraph($0, $1, $2) {
|
|
11263
|
-
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),
|
|
11271
|
+
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_507(), $6, $7), Data_List_sortBy(csegen_508(), $0));
|
|
11264
11272
|
const $20 = Prelude_Types_foldr_Foldable_List(xs => m => Prelude_Types_max_Ord_Nat(Data_List1_length(xs), m), 1n, $3);
|
|
11265
|
-
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(
|
|
11273
|
+
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_626(), $36), a2: $3c => Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_626(), $3c), a3: $42 => Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_626(), $42), a4: $48 => Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_626(), $48), a5: $4e => Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_626(), $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}}}}}});
|
|
11266
11274
|
}
|
|
11267
11275
|
|
|
11268
11276
|
/* Graph.graphOne : Graphable g => Nat -> g -> Doc AnsiStyle */
|
|
@@ -11289,7 +11297,7 @@ function AppVersion_printVersion($0) {
|
|
|
11289
11297
|
|
|
11290
11298
|
/* AppVersion.appVersion : String */
|
|
11291
11299
|
const AppVersion_appVersion = __lazy(function () {
|
|
11292
|
-
return '4.0
|
|
11300
|
+
return '4.1.0';
|
|
11293
11301
|
});
|
|
11294
11302
|
|
|
11295
11303
|
|