@mattpolzin/harmony 6.1.0 → 6.1.1
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/harmony +652 -611
- package/man/harmony.1 +1 -1
- package/package.json +1 -1
package/harmony
CHANGED
|
@@ -977,7 +977,7 @@ function x24tcOpt_1($0) {
|
|
|
977
977
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
978
978
|
default: {
|
|
979
979
|
const $17 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
980
|
-
const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($0.a1.a1.a1,
|
|
980
|
+
const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($0.a1.a1.a1, csegen_828(), $1e, $1f), $17, $0.a6);
|
|
981
981
|
switch($1b.a1.h) {
|
|
982
982
|
case 0: /* nothing */ {
|
|
983
983
|
switch($0.a8) {
|
|
@@ -992,7 +992,7 @@ function x24tcOpt_1($0) {
|
|
|
992
992
|
}
|
|
993
993
|
default: {
|
|
994
994
|
const $64 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
995
|
-
const $68 = Data_List_DeleteBy_deleteByx27($6b => $6c => Prelude_Basics_on($0.a1.a1.a1,
|
|
995
|
+
const $68 = Data_List_DeleteBy_deleteByx27($6b => $6c => Prelude_Basics_on($0.a1.a1.a1, csegen_828(), $6b, $6c), $64, $0.a6);
|
|
996
996
|
switch($68.a1.h) {
|
|
997
997
|
case 0: /* nothing */ {
|
|
998
998
|
switch($0.a8) {
|
|
@@ -1017,7 +1017,7 @@ function x24tcOpt_1($0) {
|
|
|
1017
1017
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
1018
1018
|
default: {
|
|
1019
1019
|
const $b5 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1020
|
-
const $b9 = Data_List_DeleteBy_deleteByx27($bc => $bd => Prelude_Basics_on($0.a1.a1.a1,
|
|
1020
|
+
const $b9 = Data_List_DeleteBy_deleteByx27($bc => $bd => Prelude_Basics_on($0.a1.a1.a1, csegen_828(), $bc, $bd), $b5, $0.a6);
|
|
1021
1021
|
switch($b9.a1.h) {
|
|
1022
1022
|
case 0: /* nothing */ {
|
|
1023
1023
|
switch($0.a8) {
|
|
@@ -1032,7 +1032,7 @@ function x24tcOpt_1($0) {
|
|
|
1032
1032
|
}
|
|
1033
1033
|
default: {
|
|
1034
1034
|
const $102 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1035
|
-
const $106 = Data_List_DeleteBy_deleteByx27($109 => $10a => Prelude_Basics_on($0.a1.a1.a1,
|
|
1035
|
+
const $106 = Data_List_DeleteBy_deleteByx27($109 => $10a => Prelude_Basics_on($0.a1.a1.a1, csegen_828(), $109, $10a), $102, $0.a6);
|
|
1036
1036
|
switch($106.a1.h) {
|
|
1037
1037
|
case 0: /* nothing */ {
|
|
1038
1038
|
switch($0.a8) {
|
|
@@ -1621,7 +1621,7 @@ function x24tcOpt_14($0) {
|
|
|
1621
1621
|
default: return {h: 0 /* {TcDone:14} */, a1: Data_List_Suffix_Result0_failInParen($c4 => JSON_Parser_interpolate_Interpolation_JSToken($c4), $0.a6, {h: 0 /* Symbol */, a1: '{'}, $0.a7)};
|
|
1622
1622
|
}
|
|
1623
1623
|
}
|
|
1624
|
-
case 2: /* EOI */ return {h: 0 /* {TcDone:14} */, a1: {h: 1 /* Fail0 */, a1: {a1:
|
|
1624
|
+
case 2: /* EOI */ return {h: 0 /* {TcDone:14} */, a1: {h: 1 /* Fail0 */, a1: {a1: csegen_330(), a2: $0.a6}}};
|
|
1625
1625
|
default: return {h: 0 /* {TcDone:14} */, a1: Data_List_Suffix_Result0_failInParen($d3 => JSON_Parser_interpolate_Interpolation_JSToken($d3), $0.a6, {h: 0 /* Symbol */, a1: '{'}, $0.a7)};
|
|
1626
1626
|
}
|
|
1627
1627
|
}
|
|
@@ -1639,7 +1639,7 @@ function x24tcOpt_14($0) {
|
|
|
1639
1639
|
switch($0.a7.a1.a1.a1.h) {
|
|
1640
1640
|
case 0: /* nil */ {
|
|
1641
1641
|
switch($0.a7.a1.a1.a2) {
|
|
1642
|
-
case 'end of input': return {h: 0 /* {TcDone:14} */, a1: {h: 1 /* Fail0 */, a1: {a1:
|
|
1642
|
+
case 'end of input': return {h: 0 /* {TcDone:14} */, a1: {h: 1 /* Fail0 */, a1: {a1: csegen_330(), a2: $0.a6}}};
|
|
1643
1643
|
default: return {h: 0 /* {TcDone:14} */, a1: Data_List_Suffix_Result0_failInParen($fa => JSON_Parser_interpolate_Interpolation_JSToken($fa), $0.a6, {h: 0 /* Symbol */, a1: '{'}, $0.a7)};
|
|
1644
1644
|
}
|
|
1645
1645
|
}
|
|
@@ -2399,7 +2399,7 @@ function x24tcOpt_46($0) {
|
|
|
2399
2399
|
default: return {h: 0 /* {TcDone:46} */, a1: Data_List_Suffix_Result0_failInParen($1e => JSON_Parser_interpolate_Interpolation_JSToken($1e), $0.a3, {h: 0 /* Symbol */, a1: '['}, $0.a4)};
|
|
2400
2400
|
}
|
|
2401
2401
|
}
|
|
2402
|
-
case 2: /* EOI */ return {h: 0 /* {TcDone:46} */, a1: {h: 1 /* Fail0 */, a1: {a1:
|
|
2402
|
+
case 2: /* EOI */ return {h: 0 /* {TcDone:46} */, a1: {h: 1 /* Fail0 */, a1: {a1: csegen_331(), a2: $0.a3}}};
|
|
2403
2403
|
default: return {h: 0 /* {TcDone:46} */, a1: Data_List_Suffix_Result0_failInParen($2d => JSON_Parser_interpolate_Interpolation_JSToken($2d), $0.a3, {h: 0 /* Symbol */, a1: '['}, $0.a4)};
|
|
2404
2404
|
}
|
|
2405
2405
|
}
|
|
@@ -2417,7 +2417,7 @@ function x24tcOpt_46($0) {
|
|
|
2417
2417
|
switch($0.a4.a1.a1.a1.h) {
|
|
2418
2418
|
case 0: /* nil */ {
|
|
2419
2419
|
switch($0.a4.a1.a1.a2) {
|
|
2420
|
-
case 'end of input': return {h: 0 /* {TcDone:46} */, a1: {h: 1 /* Fail0 */, a1: {a1:
|
|
2420
|
+
case 'end of input': return {h: 0 /* {TcDone:46} */, a1: {h: 1 /* Fail0 */, a1: {a1: csegen_331(), a2: $0.a3}}};
|
|
2421
2421
|
default: return {h: 0 /* {TcDone:46} */, a1: Data_List_Suffix_Result0_failInParen($54 => JSON_Parser_interpolate_Interpolation_JSToken($54), $0.a3, {h: 0 /* Symbol */, a1: '['}, $0.a4)};
|
|
2422
2422
|
}
|
|
2423
2423
|
}
|
|
@@ -2655,13 +2655,13 @@ const csegen_152 = __lazy(function () {
|
|
|
2655
2655
|
return {a1: '--completed', a2: {a1: 'graph', a2: {h: 0}}};
|
|
2656
2656
|
});
|
|
2657
2657
|
|
|
2658
|
-
/* {csegen:
|
|
2659
|
-
const
|
|
2658
|
+
/* {csegen:223} */
|
|
2659
|
+
const csegen_223 = __lazy(function () {
|
|
2660
2660
|
return {a1: '', a2: {a1: '', a2: 1}};
|
|
2661
2661
|
});
|
|
2662
2662
|
|
|
2663
|
-
/* {csegen:
|
|
2664
|
-
const
|
|
2663
|
+
/* {csegen:226} */
|
|
2664
|
+
const csegen_226 = __lazy(function () {
|
|
2665
2665
|
return b => a => func => $0 => {
|
|
2666
2666
|
switch($0.h) {
|
|
2667
2667
|
case 0: /* Left */ return {h: 0 /* Left */, a1: $0.a1};
|
|
@@ -2670,8 +2670,8 @@ const csegen_225 = __lazy(function () {
|
|
|
2670
2670
|
};
|
|
2671
2671
|
});
|
|
2672
2672
|
|
|
2673
|
-
/* {csegen:
|
|
2674
|
-
const
|
|
2673
|
+
/* {csegen:230} */
|
|
2674
|
+
const csegen_230 = __lazy(function () {
|
|
2675
2675
|
const $5 = b => a => $6 => $7 => {
|
|
2676
2676
|
switch($6.h) {
|
|
2677
2677
|
case 0: /* Left */ return {h: 0 /* Left */, a1: $6.a1};
|
|
@@ -2683,26 +2683,26 @@ const csegen_229 = __lazy(function () {
|
|
|
2683
2683
|
}
|
|
2684
2684
|
}
|
|
2685
2685
|
};
|
|
2686
|
-
return {a1:
|
|
2686
|
+
return {a1: csegen_226(), a2: a => $3 => ({h: 1 /* Right */, a1: $3}), a3: $5};
|
|
2687
2687
|
});
|
|
2688
2688
|
|
|
2689
|
-
/* {csegen:
|
|
2690
|
-
const
|
|
2689
|
+
/* {csegen:231} */
|
|
2690
|
+
const csegen_231 = __lazy(function () {
|
|
2691
2691
|
return $0 => $1 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($0, $1);
|
|
2692
2692
|
});
|
|
2693
2693
|
|
|
2694
|
-
/* {csegen:
|
|
2695
|
-
const
|
|
2696
|
-
return {a1:
|
|
2694
|
+
/* {csegen:235} */
|
|
2695
|
+
const csegen_235 = __lazy(function () {
|
|
2696
|
+
return {a1: csegen_230(), a2: b => a => csegen_231(), a3: a => $5 => Prelude_Types_join_Monad_x28Eitherx20x24ex29($5)};
|
|
2697
2697
|
});
|
|
2698
2698
|
|
|
2699
|
-
/* {csegen:
|
|
2700
|
-
const
|
|
2701
|
-
return {a1:
|
|
2699
|
+
/* {csegen:256} */
|
|
2700
|
+
const csegen_256 = __lazy(function () {
|
|
2701
|
+
return {a1: csegen_226(), a2: {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 => $e => Prelude_Types_null_Foldable_x28Eitherx20x24ex29($e), a4: elem => acc => m => $12 => funcM => init => input => Prelude_Types_foldlM_Foldable_x28Eitherx20x24ex29($12, funcM, init, input), a5: elem => $19 => Prelude_Types_toList_Foldable_x28Eitherx20x24ex29($19), a6: a => m => $1d => f => $1e => Prelude_Types_foldMap_Foldable_x28Eitherx20x24ex29($1d, f, $1e)}, a3: b => a => f => $24 => $25 => $26 => Prelude_Types_traverse_Traversable_x28Eitherx20x24ex29($24, $25, $26)};
|
|
2702
2702
|
});
|
|
2703
2703
|
|
|
2704
|
-
/* {csegen:
|
|
2705
|
-
const
|
|
2704
|
+
/* {csegen:298} */
|
|
2705
|
+
const csegen_298 = __lazy(function () {
|
|
2706
2706
|
return $0 => {
|
|
2707
2707
|
const $1 = JSON_Parser_parseJSON({h: 0}, $0);
|
|
2708
2708
|
switch($1.h) {
|
|
@@ -2712,28 +2712,28 @@ const csegen_297 = __lazy(function () {
|
|
|
2712
2712
|
};
|
|
2713
2713
|
});
|
|
2714
2714
|
|
|
2715
|
-
/* {csegen:
|
|
2716
|
-
const
|
|
2715
|
+
/* {csegen:299} */
|
|
2716
|
+
const csegen_299 = __lazy(function () {
|
|
2717
2717
|
return $0 => $1 => Prelude_Types_max_Ord_Nat($0, $1);
|
|
2718
2718
|
});
|
|
2719
2719
|
|
|
2720
|
-
/* {csegen:
|
|
2721
|
-
const
|
|
2720
|
+
/* {csegen:310} */
|
|
2721
|
+
const csegen_310 = __lazy(function () {
|
|
2722
2722
|
return {a1: csegen_55(), 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)};
|
|
2723
2723
|
});
|
|
2724
2724
|
|
|
2725
|
-
/* {csegen:
|
|
2726
|
-
const
|
|
2725
|
+
/* {csegen:313} */
|
|
2726
|
+
const csegen_313 = __lazy(function () {
|
|
2727
2727
|
return {a1: $1 => $2 => Prelude_EqOrd_x3dx3d_Eq_Integer($1, $2), a2: $7 => $8 => Prelude_EqOrd_x2fx3d_Eq_Integer($7, $8)};
|
|
2728
2728
|
});
|
|
2729
2729
|
|
|
2730
|
-
/* {csegen:
|
|
2731
|
-
const
|
|
2730
|
+
/* {csegen:314} */
|
|
2731
|
+
const csegen_314 = __lazy(function () {
|
|
2732
2732
|
return $0 => $1 => Prelude_EqOrd_compare_Ord_Integer($0, $1);
|
|
2733
2733
|
});
|
|
2734
2734
|
|
|
2735
|
-
/* {csegen:
|
|
2736
|
-
const
|
|
2735
|
+
/* {csegen:322} */
|
|
2736
|
+
const csegen_322 = __lazy(function () {
|
|
2737
2737
|
return $0 => {
|
|
2738
2738
|
const $1 = Language_JSON_Accessors_string($0);
|
|
2739
2739
|
switch($1.h) {
|
|
@@ -2743,123 +2743,123 @@ const csegen_321 = __lazy(function () {
|
|
|
2743
2743
|
};
|
|
2744
2744
|
});
|
|
2745
2745
|
|
|
2746
|
-
/* {csegen:
|
|
2747
|
-
const
|
|
2746
|
+
/* {csegen:326} */
|
|
2747
|
+
const csegen_326 = __lazy(function () {
|
|
2748
2748
|
return {a1: x => JSON_Parser_showImpl(x), a2: d => x => JSON_Parser_showImpl(x)};
|
|
2749
2749
|
});
|
|
2750
2750
|
|
|
2751
|
-
/* {csegen:
|
|
2752
|
-
const
|
|
2751
|
+
/* {csegen:330} */
|
|
2752
|
+
const csegen_330 = __lazy(function () {
|
|
2753
2753
|
return {h: 8 /* Unclosed */, a1: JSON_Parser_interpolate_Interpolation_JSToken({h: 0 /* Symbol */, a1: '{'})};
|
|
2754
2754
|
});
|
|
2755
2755
|
|
|
2756
|
-
/* {csegen:
|
|
2757
|
-
const
|
|
2756
|
+
/* {csegen:331} */
|
|
2757
|
+
const csegen_331 = __lazy(function () {
|
|
2758
2758
|
return {h: 8 /* Unclosed */, a1: JSON_Parser_interpolate_Interpolation_JSToken({h: 0 /* Symbol */, a1: '['})};
|
|
2759
2759
|
});
|
|
2760
2760
|
|
|
2761
|
-
/* {csegen:
|
|
2762
|
-
const
|
|
2761
|
+
/* {csegen:340} */
|
|
2762
|
+
const csegen_340 = __lazy(function () {
|
|
2763
2763
|
return {a1: $1 => $2 => _add32s($1, $2), a2: $6 => $7 => _mul32s($6, $7), a3: $b => Number(_truncBigInt32($b))};
|
|
2764
2764
|
});
|
|
2765
2765
|
|
|
2766
|
-
/* {csegen:
|
|
2767
|
-
const
|
|
2766
|
+
/* {csegen:361} */
|
|
2767
|
+
const csegen_361 = __lazy(function () {
|
|
2768
2768
|
return () => $0 => $0.a2;
|
|
2769
2769
|
});
|
|
2770
2770
|
|
|
2771
|
-
/* {csegen:
|
|
2772
|
-
const
|
|
2771
|
+
/* {csegen:371} */
|
|
2772
|
+
const csegen_371 = __lazy(function () {
|
|
2773
2773
|
return $0 => $1 => (($0===$1)?1:0);
|
|
2774
2774
|
});
|
|
2775
2775
|
|
|
2776
|
-
/* {csegen:
|
|
2777
|
-
const
|
|
2776
|
+
/* {csegen:389} */
|
|
2777
|
+
const csegen_389 = __lazy(function () {
|
|
2778
2778
|
return $0 => Language_JSON_Accessors_array($3 => Data_PullRequest_parsePR($3), $0);
|
|
2779
2779
|
});
|
|
2780
2780
|
|
|
2781
|
-
/* {csegen:
|
|
2782
|
-
const
|
|
2781
|
+
/* {csegen:402} */
|
|
2782
|
+
const csegen_402 = __lazy(function () {
|
|
2783
2783
|
return $0 => Prelude_EqOrd_x3dx3d_Eq_Char($0, '/');
|
|
2784
2784
|
});
|
|
2785
2785
|
|
|
2786
|
-
/* {csegen:
|
|
2787
|
-
const
|
|
2786
|
+
/* {csegen:408} */
|
|
2787
|
+
const csegen_408 = __lazy(function () {
|
|
2788
2788
|
return () => $0 => $0.a1;
|
|
2789
2789
|
});
|
|
2790
2790
|
|
|
2791
|
-
/* {csegen:
|
|
2792
|
-
const
|
|
2791
|
+
/* {csegen:421} */
|
|
2792
|
+
const csegen_421 = __lazy(function () {
|
|
2793
2793
|
return () => $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Number(_truncUBigInt32($4)), System_time(csegen_88()()), $0, $1);
|
|
2794
2794
|
});
|
|
2795
2795
|
|
|
2796
|
-
/* {csegen:
|
|
2797
|
-
const
|
|
2796
|
+
/* {csegen:426} */
|
|
2797
|
+
const csegen_426 = __lazy(function () {
|
|
2798
2798
|
return $0 => $1 => $2 => $3 => Prelude_Types_map_Functor_Maybe($2, $3);
|
|
2799
2799
|
});
|
|
2800
2800
|
|
|
2801
|
-
/* {csegen:
|
|
2802
|
-
const
|
|
2801
|
+
/* {csegen:447} */
|
|
2802
|
+
const csegen_447 = __lazy(function () {
|
|
2803
2803
|
return () => $0 => $1 => $2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($5 => Prelude_IO_prim__putStr('\n', $5), $0, $1, $2);
|
|
2804
2804
|
});
|
|
2805
2805
|
|
|
2806
|
-
/* {csegen:
|
|
2807
|
-
const
|
|
2806
|
+
/* {csegen:449} */
|
|
2807
|
+
const csegen_449 = __lazy(function () {
|
|
2808
2808
|
return () => $0 => $1 => $2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($5 => Prelude_IO_prim__getStr($5), $0, $1, $2);
|
|
2809
2809
|
});
|
|
2810
2810
|
|
|
2811
|
-
/* {csegen:
|
|
2812
|
-
const
|
|
2811
|
+
/* {csegen:453} */
|
|
2812
|
+
const csegen_453 = __lazy(function () {
|
|
2813
2813
|
return () => $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 0}, $0, $1);
|
|
2814
2814
|
});
|
|
2815
2815
|
|
|
2816
|
-
/* {csegen:
|
|
2817
|
-
const
|
|
2816
|
+
/* {csegen:467} */
|
|
2817
|
+
const csegen_467 = __lazy(function () {
|
|
2818
2818
|
return {a1: Commands_Help_argument(0, '...'), a2: {h: 0}};
|
|
2819
2819
|
});
|
|
2820
2820
|
|
|
2821
|
-
/* {csegen:
|
|
2822
|
-
const
|
|
2823
|
-
return {a1: Commands_Help_argument(0, '#<label>'), a2:
|
|
2821
|
+
/* {csegen:472} */
|
|
2822
|
+
const csegen_472 = __lazy(function () {
|
|
2823
|
+
return {a1: Commands_Help_argument(0, '#<label>'), a2: csegen_467()};
|
|
2824
2824
|
});
|
|
2825
2825
|
|
|
2826
|
-
/* {csegen:
|
|
2827
|
-
const
|
|
2826
|
+
/* {csegen:642} */
|
|
2827
|
+
const csegen_642 = __lazy(function () {
|
|
2828
2828
|
return $0 => $1 => System_Git_currentBranch($0, $1);
|
|
2829
2829
|
});
|
|
2830
2830
|
|
|
2831
|
-
/* {csegen:
|
|
2832
|
-
const
|
|
2831
|
+
/* {csegen:656} */
|
|
2832
|
+
const csegen_656 = __lazy(function () {
|
|
2833
2833
|
return {a1: d => b => c => a => $1 => $2 => $3 => ({a1: $1($3.a1), a2: $2($3.a2)}), a2: b => c => a => $c => $d => ({a1: $c($d.a1), a2: $d.a2}), a3: a => d => b => $14 => $15 => ({a1: $15.a1, a2: $14($15.a2)})};
|
|
2834
2834
|
});
|
|
2835
2835
|
|
|
2836
|
-
/* {csegen:
|
|
2837
|
-
const
|
|
2836
|
+
/* {csegen:660} */
|
|
2837
|
+
const csegen_660 = __lazy(function () {
|
|
2838
2838
|
return {a1: {h: 0}, a2: {a1: '-i', a2: {h: 0}}};
|
|
2839
2839
|
});
|
|
2840
2840
|
|
|
2841
|
-
/* {csegen:
|
|
2842
|
-
const
|
|
2841
|
+
/* {csegen:665} */
|
|
2842
|
+
const csegen_665 = __lazy(function () {
|
|
2843
2843
|
return $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $0, $1);
|
|
2844
2844
|
});
|
|
2845
2845
|
|
|
2846
|
-
/* {csegen:
|
|
2847
|
-
const
|
|
2846
|
+
/* {csegen:688} */
|
|
2847
|
+
const csegen_688 = __lazy(function () {
|
|
2848
2848
|
return {a1: csegen_9(), a2: a => ({h: 0}), a3: a => $4 => $5 => Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, $5)};
|
|
2849
2849
|
});
|
|
2850
2850
|
|
|
2851
|
-
/* {csegen:
|
|
2852
|
-
const
|
|
2853
|
-
return $0 => Data_List_sort(
|
|
2851
|
+
/* {csegen:689} */
|
|
2852
|
+
const csegen_689 = __lazy(function () {
|
|
2853
|
+
return $0 => Data_List_sort(csegen_310(), $0);
|
|
2854
2854
|
});
|
|
2855
2855
|
|
|
2856
|
-
/* {csegen:
|
|
2857
|
-
const
|
|
2856
|
+
/* {csegen:691} */
|
|
2857
|
+
const csegen_691 = __lazy(function () {
|
|
2858
2858
|
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_32(), $0, $1, $2);
|
|
2859
2859
|
});
|
|
2860
2860
|
|
|
2861
|
-
/* {csegen:
|
|
2862
|
-
const
|
|
2861
|
+
/* {csegen:698} */
|
|
2862
|
+
const csegen_698 = __lazy(function () {
|
|
2863
2863
|
return $0 => {
|
|
2864
2864
|
switch($0.h) {
|
|
2865
2865
|
case 0: /* nothing */ return 1;
|
|
@@ -2868,88 +2868,88 @@ const csegen_697 = __lazy(function () {
|
|
|
2868
2868
|
};
|
|
2869
2869
|
});
|
|
2870
2870
|
|
|
2871
|
-
/* {csegen:702} */
|
|
2872
|
-
const csegen_702 = __lazy(function () {
|
|
2873
|
-
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2874
|
-
});
|
|
2875
|
-
|
|
2876
2871
|
/* {csegen:703} */
|
|
2877
2872
|
const csegen_703 = __lazy(function () {
|
|
2878
|
-
return $0 => $0
|
|
2873
|
+
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2879
2874
|
});
|
|
2880
2875
|
|
|
2881
2876
|
/* {csegen:704} */
|
|
2882
2877
|
const csegen_704 = __lazy(function () {
|
|
2883
|
-
return $0 => $
|
|
2878
|
+
return $0 => $0.a3;
|
|
2879
|
+
});
|
|
2880
|
+
|
|
2881
|
+
/* {csegen:705} */
|
|
2882
|
+
const csegen_705 = __lazy(function () {
|
|
2883
|
+
return $0 => $1 => Prelude_Basics_on(csegen_703(), csegen_704(), $0, $1);
|
|
2884
2884
|
});
|
|
2885
2885
|
|
|
2886
|
-
/* {csegen:
|
|
2887
|
-
const
|
|
2886
|
+
/* {csegen:727} */
|
|
2887
|
+
const csegen_727 = __lazy(function () {
|
|
2888
2888
|
return $0 => $0.a3;
|
|
2889
2889
|
});
|
|
2890
2890
|
|
|
2891
|
-
/* {csegen:
|
|
2892
|
-
const
|
|
2891
|
+
/* {csegen:730} */
|
|
2892
|
+
const csegen_730 = __lazy(function () {
|
|
2893
2893
|
return Theme_cs({a1: 2, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2894
2894
|
});
|
|
2895
2895
|
|
|
2896
|
-
/* {csegen:
|
|
2897
|
-
const
|
|
2896
|
+
/* {csegen:733} */
|
|
2897
|
+
const csegen_733 = __lazy(function () {
|
|
2898
2898
|
return $0 => $0.a1;
|
|
2899
2899
|
});
|
|
2900
2900
|
|
|
2901
|
-
/* {csegen:
|
|
2902
|
-
const
|
|
2901
|
+
/* {csegen:740} */
|
|
2902
|
+
const csegen_740 = __lazy(function () {
|
|
2903
2903
|
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}}}));
|
|
2904
2904
|
});
|
|
2905
2905
|
|
|
2906
|
-
/* {csegen:749} */
|
|
2907
|
-
const csegen_749 = __lazy(function () {
|
|
2908
|
-
return Theme_cs({a1: 0, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2909
|
-
});
|
|
2910
|
-
|
|
2911
2906
|
/* {csegen:750} */
|
|
2912
2907
|
const csegen_750 = __lazy(function () {
|
|
2913
|
-
return Theme_cs({a1:
|
|
2908
|
+
return Theme_cs({a1: 0, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2914
2909
|
});
|
|
2915
2910
|
|
|
2916
2911
|
/* {csegen:751} */
|
|
2917
2912
|
const csegen_751 = __lazy(function () {
|
|
2913
|
+
return Theme_cs({a1: 1, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2914
|
+
});
|
|
2915
|
+
|
|
2916
|
+
/* {csegen:752} */
|
|
2917
|
+
const csegen_752 = __lazy(function () {
|
|
2918
2918
|
return Theme_cs({a1: 3, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2919
2919
|
});
|
|
2920
2920
|
|
|
2921
|
-
/* {csegen:
|
|
2922
|
-
const
|
|
2921
|
+
/* {csegen:777} */
|
|
2922
|
+
const csegen_777 = __lazy(function () {
|
|
2923
2923
|
return $0 => Prelude_Types_either(() => $3 => '', () => $5 => $5, $0);
|
|
2924
2924
|
});
|
|
2925
2925
|
|
|
2926
|
-
/* {csegen:
|
|
2927
|
-
const
|
|
2926
|
+
/* {csegen:784} */
|
|
2927
|
+
const csegen_784 = __lazy(function () {
|
|
2928
2928
|
return $0 => Util_Prompting_yesNoPrompt(csegen_88()(), 1, 'Would you like to continue creating a Pull Request anyway?');
|
|
2929
2929
|
});
|
|
2930
2930
|
|
|
2931
|
-
/* {csegen:
|
|
2932
|
-
const
|
|
2931
|
+
/* {csegen:823} */
|
|
2932
|
+
const csegen_823 = __lazy(function () {
|
|
2933
2933
|
return $0 => Prelude_Types_fastPack(Prelude_Types_List_reverse($0));
|
|
2934
2934
|
});
|
|
2935
2935
|
|
|
2936
|
-
/* {csegen:
|
|
2937
|
-
const
|
|
2936
|
+
/* {csegen:828} */
|
|
2937
|
+
const csegen_828 = __lazy(function () {
|
|
2938
2938
|
return $0 => $0.a1;
|
|
2939
2939
|
});
|
|
2940
2940
|
|
|
2941
|
-
/* {csegen:
|
|
2942
|
-
const
|
|
2943
|
-
return $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Data_String_trim($4),
|
|
2941
|
+
/* {csegen:835} */
|
|
2942
|
+
const csegen_835 = __lazy(function () {
|
|
2943
|
+
return $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Data_String_trim($4), csegen_449()(), $0, $1);
|
|
2944
2944
|
});
|
|
2945
2945
|
|
|
2946
|
-
/* {csegen:
|
|
2947
|
-
const
|
|
2946
|
+
/* {csegen:840} */
|
|
2947
|
+
const csegen_840 = __lazy(function () {
|
|
2948
2948
|
return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}};
|
|
2949
2949
|
});
|
|
2950
2950
|
|
|
2951
|
-
/* {csegen:
|
|
2952
|
-
const
|
|
2951
|
+
/* {csegen:856} */
|
|
2952
|
+
const csegen_856 = __lazy(function () {
|
|
2953
2953
|
return {a1: ann => $1 => Commands_Graph_pretty_Pretty_Date($1), a2: ann => $5 => $6 => Commands_Graph_prettyPrec_Pretty_Date($5, $6)};
|
|
2954
2954
|
});
|
|
2955
2955
|
|
|
@@ -2958,23 +2958,23 @@ function prim__sub_Integer($0, $1) {
|
|
|
2958
2958
|
return ($0-$1);
|
|
2959
2959
|
}
|
|
2960
2960
|
|
|
2961
|
-
/* Main.
|
|
2962
|
-
function
|
|
2961
|
+
/* Main.9131:1618:parsePg */
|
|
2962
|
+
function Main_n__9131_1618_parsePg($0, $1, $2, $3, $4, $5) {
|
|
2963
2963
|
return Data_String_parsePositive(csegen_2(), $5);
|
|
2964
2964
|
}
|
|
2965
2965
|
|
|
2966
|
-
/* Main.
|
|
2967
|
-
function
|
|
2966
|
+
/* Main.9131:1617:parseLim */
|
|
2967
|
+
function Main_n__9131_1617_parseLim($0, $1, $2, $3, $4) {
|
|
2968
2968
|
return Prelude_Interfaces_x3cx3dx3c(csegen_14(), x => Data_Fin_natToFin(x, 101n), $d => Data_String_parsePositive(csegen_2(), $d));
|
|
2969
2969
|
}
|
|
2970
2970
|
|
|
2971
|
-
/* Main.
|
|
2972
|
-
function
|
|
2971
|
+
/* Main.8855:1307:ffiOpts */
|
|
2972
|
+
function Main_n__8855_1307_ffiOpts($0, $1, $2, $3, $4) {
|
|
2973
2973
|
return ShellCompletion_Common_ffiOpts($0, $4, $3, $2, $1);
|
|
2974
2974
|
}
|
|
2975
2975
|
|
|
2976
|
-
/* Main.
|
|
2977
|
-
function
|
|
2976
|
+
/* Main.8855:1306:configuredOpts */
|
|
2977
|
+
function Main_n__8855_1306_configuredOpts($0, $1, $2, $3, $4) {
|
|
2978
2978
|
const $14 = $15 => {
|
|
2979
2979
|
switch($15.h) {
|
|
2980
2980
|
case 1: /* Right */ return $0.a1.a1.a2(undefined)(ShellCompletion_Common_opts($15.a1, $4, $3, $2, $1));
|
|
@@ -3009,10 +3009,10 @@ function Main_shouldUseColors($0) {
|
|
|
3009
3009
|
/* Main.shellCompletion : HasIO io => CompletionStyle -> String -> String -> String -> io () */
|
|
3010
3010
|
function Main_shellCompletion($0, $1, $2, $3, $4) {
|
|
3011
3011
|
const $5 = ShellCompletion_Common_cmdOpts($1, $2, $3, $4);
|
|
3012
|
-
const $b = Prelude_Types_maybe(() =>
|
|
3012
|
+
const $b = Prelude_Types_maybe(() => Main_n__8855_1307_ffiOpts($0, $4, $3, $2, $1), () => $15 => $0.a1.a1.a2(undefined)({a1: $15}), $5);
|
|
3013
3013
|
const $29 = $2a => {
|
|
3014
3014
|
switch($2a.h) {
|
|
3015
|
-
case 0: /* nothing */ return
|
|
3015
|
+
case 0: /* nothing */ return Main_n__8855_1306_configuredOpts($0, $4, $3, $2, $1);
|
|
3016
3016
|
case undefined: /* just */ return $0.a1.a1.a2(undefined)($2a.a1);
|
|
3017
3017
|
}
|
|
3018
3018
|
};
|
|
@@ -3235,7 +3235,7 @@ function Main_handleAuthenticatedArgs($0, $1, $2) {
|
|
|
3235
3235
|
}
|
|
3236
3236
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe($b2, filter => ({a1: {a1: filter, a2: {a1: $af.a1, a2: $af.a2}}}));
|
|
3237
3237
|
};
|
|
3238
|
-
const $91 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $99 => $9a => ({a1: $99, a2: $9a})},
|
|
3238
|
+
const $91 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $99 => $9a => ({a1: $99, a2: $9a})}, Main_n__9131_1617_parseLim($1, $2.a2.a2.a1, $2.a2.a2.a2.a1, $2.a2.a2.a2.a2.a1, $0)($2.a2.a2.a2.a1)), Main_n__9131_1618_parsePg($1, $2.a2.a2.a1, $2.a2.a2.a2.a1, $2.a2.a2.a2.a2.a1, $0, $2.a2.a2.a2.a2.a1)), $ae);
|
|
3239
3239
|
return $bf => {
|
|
3240
3240
|
switch($91.h) {
|
|
3241
3241
|
case undefined: /* just */ return $c1 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequestsJsonStr($1, $0.a2, $0.a3, $91.a1.a1, $91.a1.a2.a1, $91.a1.a2.a2), pullsJsonStr => $d0 => $d1 => $d2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d5 => Prelude_IO_prim__putStr(pullsJsonStr, $d5), $d0, $d1, $d2), $bf, $c1);
|
|
@@ -6256,7 +6256,7 @@ function Data_Promise_bind($0, $1, $2, $3) {
|
|
|
6256
6256
|
}
|
|
6257
6257
|
|
|
6258
6258
|
/* ShellCompletion.Common.case block in optsForRequestCmd,slugsOrLoginsOrLabels */
|
|
6259
|
-
function
|
|
6259
|
+
function ShellCompletion_Common_case__optsForRequestCmdx2cslugsOrLoginsOrLabels_14131($0, $1, $2, $3) {
|
|
6260
6260
|
switch($3.h) {
|
|
6261
6261
|
case 1: /* :: */ {
|
|
6262
6262
|
switch($3.a1) {
|
|
@@ -6278,14 +6278,14 @@ function ShellCompletion_Common_case__optsForRequestCmdx2cslugsOrLoginsOrLabels_
|
|
|
6278
6278
|
}
|
|
6279
6279
|
}
|
|
6280
6280
|
|
|
6281
|
-
/* ShellCompletion.Common.
|
|
6282
|
-
function
|
|
6283
|
-
return
|
|
6281
|
+
/* ShellCompletion.Common.5340:14125:slugsOrLoginsOrLabels */
|
|
6282
|
+
function ShellCompletion_Common_n__5340_14125_slugsOrLoginsOrLabels($0, $1, $2) {
|
|
6283
|
+
return ShellCompletion_Common_case__optsForRequestCmdx2cslugsOrLoginsOrLabels_14131($0, $1, $2, Data_String_asList($0));
|
|
6284
6284
|
}
|
|
6285
6285
|
|
|
6286
6286
|
/* ShellCompletion.Common.optsForRequestCmd : Config => CompletionStyle -> String -> List String */
|
|
6287
6287
|
function ShellCompletion_Common_optsForRequestCmd($0, $1, $2) {
|
|
6288
|
-
return Prelude_Types_List_tailRecAppend(ShellCompletion_Util_withPrefix($1, $2, ShellCompletion_Common_allRequestCmdOpts($1)),
|
|
6288
|
+
return Prelude_Types_List_tailRecAppend(ShellCompletion_Util_withPrefix($1, $2, ShellCompletion_Common_allRequestCmdOpts($1)), ShellCompletion_Common_n__5340_14125_slugsOrLoginsOrLabels($2, $1, $0));
|
|
6289
6289
|
}
|
|
6290
6290
|
|
|
6291
6291
|
/* ShellCompletion.Common.optsForPrIntoOption : HasIO io => String -> io (Maybe (List String)) */
|
|
@@ -6307,37 +6307,16 @@ function ShellCompletion_Common_optsForPrIntoOption($0, $1) {
|
|
|
6307
6307
|
/* ShellCompletion.Common.opts : Config => CompletionStyle -> String -> String -> String -> List String */
|
|
6308
6308
|
function ShellCompletion_Common_opts($0, $1, $2, $3, $4) {
|
|
6309
6309
|
switch($2) {
|
|
6310
|
-
case 'config': {
|
|
6311
|
-
switch($3) {
|
|
6312
|
-
case '--': {
|
|
6313
|
-
switch($4) {
|
|
6314
|
-
case 'config': return ShellCompletion_Util_stringifyx27($1, ShellCompletion_Common_allSettableProps($1));
|
|
6315
|
-
default: {
|
|
6316
|
-
switch($4) {
|
|
6317
|
-
case 'config': return ShellCompletion_Util_stringifyx27($1, Prelude_Types_List_filterAppend({h: 0}, $14 => ShellCompletion_Util_isPrefixOf($1, $3, $14), ShellCompletion_Common_allSettableProps($1)));
|
|
6318
|
-
default: return {h: 0};
|
|
6319
|
-
}
|
|
6320
|
-
}
|
|
6321
|
-
}
|
|
6322
|
-
}
|
|
6323
|
-
default: {
|
|
6324
|
-
switch($4) {
|
|
6325
|
-
case 'config': return ShellCompletion_Util_stringifyx27($1, Prelude_Types_List_filterAppend({h: 0}, $23 => ShellCompletion_Util_isPrefixOf($1, $3, $23), ShellCompletion_Common_allSettableProps($1)));
|
|
6326
|
-
default: return {h: 0};
|
|
6327
|
-
}
|
|
6328
|
-
}
|
|
6329
|
-
}
|
|
6330
|
-
}
|
|
6331
6310
|
case 'label': {
|
|
6332
6311
|
switch($3) {
|
|
6333
6312
|
case '--': {
|
|
6334
|
-
const $
|
|
6335
|
-
return Prelude_Types_List_mapAppend({h: 0}, $
|
|
6313
|
+
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $14 => $14, {a1: $0.a3, a2: {a1: ' label', a2: {h: 0}}}), ShellCompletion_Util_slugify($b)), $0.a11);
|
|
6314
|
+
return Prelude_Types_List_mapAppend({h: 0}, $23 => Data_CompletionStyle_name($1, $23), $7);
|
|
6336
6315
|
}
|
|
6337
6316
|
default: {
|
|
6338
|
-
const $
|
|
6339
|
-
const $
|
|
6340
|
-
return Prelude_Types_List_mapAppend({h: 0}, $
|
|
6317
|
+
const $28 = Prelude_Types_List_mapAppend({h: 0}, $2c => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $35 => $35, {a1: $0.a3, a2: {a1: ' label', a2: {h: 0}}}), ShellCompletion_Util_slugify($2c)), $0.a11);
|
|
6318
|
+
const $41 = Prelude_Types_List_filterAppend({h: 0}, $45 => ShellCompletion_Util_isPrefixOf($1, $3, $45), $28);
|
|
6319
|
+
return Prelude_Types_List_mapAppend({h: 0}, $4e => Data_CompletionStyle_name($1, $4e), $41);
|
|
6341
6320
|
}
|
|
6342
6321
|
}
|
|
6343
6322
|
}
|
|
@@ -6346,15 +6325,15 @@ function ShellCompletion_Common_opts($0, $1, $2, $3, $4) {
|
|
|
6346
6325
|
case '--': {
|
|
6347
6326
|
switch($4) {
|
|
6348
6327
|
case 'list': {
|
|
6349
|
-
const $
|
|
6350
|
-
return Prelude_Types_List_mapAppend({h: 0}, $
|
|
6328
|
+
const $55 = Prelude_Types_List_mapAppend({h: 0}, $59 => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $62 => $62, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $59), $0.a10);
|
|
6329
|
+
return Prelude_Types_List_mapAppend({h: 0}, $6f => Data_CompletionStyle_name($1, $6f), $55);
|
|
6351
6330
|
}
|
|
6352
6331
|
default: {
|
|
6353
6332
|
switch($4) {
|
|
6354
6333
|
case 'list': {
|
|
6355
|
-
const $
|
|
6356
|
-
const $
|
|
6357
|
-
return Prelude_Types_List_mapAppend({h: 0}, $
|
|
6334
|
+
const $75 = Prelude_Types_List_mapAppend({h: 0}, $79 => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $82 => $82, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $79), $0.a10);
|
|
6335
|
+
const $8c = Prelude_Types_List_filterAppend({h: 0}, $90 => ShellCompletion_Util_isPrefixOf($1, $3, $90), $75);
|
|
6336
|
+
return Prelude_Types_List_mapAppend({h: 0}, $99 => Data_CompletionStyle_name($1, $99), $8c);
|
|
6358
6337
|
}
|
|
6359
6338
|
default: {
|
|
6360
6339
|
switch($3) {
|
|
@@ -6369,9 +6348,9 @@ function ShellCompletion_Common_opts($0, $1, $2, $3, $4) {
|
|
|
6369
6348
|
default: {
|
|
6370
6349
|
switch($4) {
|
|
6371
6350
|
case 'list': {
|
|
6372
|
-
const $
|
|
6373
|
-
const $
|
|
6374
|
-
return Prelude_Types_List_mapAppend({h: 0}, $
|
|
6351
|
+
const $a0 = Prelude_Types_List_mapAppend({h: 0}, $a4 => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $ad => $ad, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $a4), $0.a10);
|
|
6352
|
+
const $b7 = Prelude_Types_List_filterAppend({h: 0}, $bb => ShellCompletion_Util_isPrefixOf($1, $3, $bb), $a0);
|
|
6353
|
+
return Prelude_Types_List_mapAppend({h: 0}, $c4 => Data_CompletionStyle_name($1, $c4), $b7);
|
|
6375
6354
|
}
|
|
6376
6355
|
default: {
|
|
6377
6356
|
switch($3) {
|
|
@@ -6390,16 +6369,16 @@ function ShellCompletion_Common_opts($0, $1, $2, $3, $4) {
|
|
|
6390
6369
|
case 'graph': return {a1: '--completed', a2: $0.a10};
|
|
6391
6370
|
case '--completed': return $0.a10;
|
|
6392
6371
|
default: {
|
|
6393
|
-
switch(Data_Maybe_isJust(Data_List_find($
|
|
6394
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0}, $
|
|
6372
|
+
switch(Data_Maybe_isJust(Data_List_find($d5 => Prelude_EqOrd_x3dx3d_Eq_String($d5, $4), csegen_152()))) {
|
|
6373
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, $de => Data_CompletionStyle_name($1, $de), Prelude_Types_List_filterAppend({h: 0}, $e6 => ShellCompletion_Util_isPrefixOf($1, $3, $e6), Prelude_Types_List_mapAppend({h: 0}, $ef => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $f8 => $f8, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $ef), $0.a10)));
|
|
6395
6374
|
case 0: return {h: 0};
|
|
6396
6375
|
}
|
|
6397
6376
|
}
|
|
6398
6377
|
}
|
|
6399
6378
|
}
|
|
6400
6379
|
default: {
|
|
6401
|
-
switch(Data_Maybe_isJust(Data_List_find($
|
|
6402
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0}, $
|
|
6380
|
+
switch(Data_Maybe_isJust(Data_List_find($107 => Prelude_EqOrd_x3dx3d_Eq_String($107, $4), csegen_152()))) {
|
|
6381
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, $110 => Data_CompletionStyle_name($1, $110), Prelude_Types_List_filterAppend({h: 0}, $118 => ShellCompletion_Util_isPrefixOf($1, $3, $118), Prelude_Types_List_mapAppend({h: 0}, $121 => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $12a => $12a, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $121), $0.a10)));
|
|
6403
6382
|
case 0: return {h: 0};
|
|
6404
6383
|
}
|
|
6405
6384
|
}
|
|
@@ -6692,6 +6671,27 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
6692
6671
|
default: return ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allGraphCmdOpts($0));
|
|
6693
6672
|
}
|
|
6694
6673
|
}
|
|
6674
|
+
case 'config': {
|
|
6675
|
+
switch($2) {
|
|
6676
|
+
case '--': {
|
|
6677
|
+
switch($3) {
|
|
6678
|
+
case 'config': return ShellCompletion_Util_all($0, ShellCompletion_Common_allSettableProps($0));
|
|
6679
|
+
default: {
|
|
6680
|
+
switch($3) {
|
|
6681
|
+
case 'config': return ShellCompletion_Util_someWithPrefix($0, $2, ShellCompletion_Common_allSettableProps($0));
|
|
6682
|
+
default: return {a1: {h: 0}};
|
|
6683
|
+
}
|
|
6684
|
+
}
|
|
6685
|
+
}
|
|
6686
|
+
}
|
|
6687
|
+
default: {
|
|
6688
|
+
switch($3) {
|
|
6689
|
+
case 'config': return ShellCompletion_Util_someWithPrefix($0, $2, ShellCompletion_Common_allSettableProps($0));
|
|
6690
|
+
default: return {a1: {h: 0}};
|
|
6691
|
+
}
|
|
6692
|
+
}
|
|
6693
|
+
}
|
|
6694
|
+
}
|
|
6695
6695
|
default: return {h: 0};
|
|
6696
6696
|
}
|
|
6697
6697
|
}
|
|
@@ -6772,46 +6772,46 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
6772
6772
|
case '--into': return {h: 0};
|
|
6773
6773
|
case '--ready': return ShellCompletion_Util_someFrom($0, {a1: '--into', a2: {h: 0}}, ShellCompletion_Common_allPrCmdOpts($0));
|
|
6774
6774
|
case 'pr': {
|
|
6775
|
-
let $
|
|
6775
|
+
let $1b0;
|
|
6776
6776
|
switch(ShellCompletion_Util_isHashPrefix($2)) {
|
|
6777
6777
|
case 1: {
|
|
6778
|
-
$
|
|
6778
|
+
$1b0 = () => ({h: 0});
|
|
6779
6779
|
break;
|
|
6780
6780
|
}
|
|
6781
6781
|
case 0: {
|
|
6782
|
-
$
|
|
6782
|
+
$1b0 = () => ({a1: {h: 0}});
|
|
6783
6783
|
break;
|
|
6784
6784
|
}
|
|
6785
6785
|
}
|
|
6786
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $
|
|
6786
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $1b0);
|
|
6787
6787
|
}
|
|
6788
6788
|
case '--draft': {
|
|
6789
|
-
let $
|
|
6789
|
+
let $1c6;
|
|
6790
6790
|
switch(ShellCompletion_Util_isHashPrefix($2)) {
|
|
6791
6791
|
case 1: {
|
|
6792
|
-
$
|
|
6792
|
+
$1c6 = () => ({h: 0});
|
|
6793
6793
|
break;
|
|
6794
6794
|
}
|
|
6795
6795
|
case 0: {
|
|
6796
|
-
$
|
|
6796
|
+
$1c6 = () => ({a1: {h: 0}});
|
|
6797
6797
|
break;
|
|
6798
6798
|
}
|
|
6799
6799
|
}
|
|
6800
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, Prelude_Types_List_filterAppend({h: 0}, $
|
|
6800
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, Prelude_Types_List_filterAppend({h: 0}, $1be => ShellCompletion_Util_matches($0, '--into', $1be), ShellCompletion_Common_allPrCmdOpts($0))), $1c6);
|
|
6801
6801
|
}
|
|
6802
6802
|
default: {
|
|
6803
|
-
let $
|
|
6803
|
+
let $1dc;
|
|
6804
6804
|
switch(ShellCompletion_Util_isHashPrefix($2)) {
|
|
6805
6805
|
case 1: {
|
|
6806
|
-
$
|
|
6806
|
+
$1dc = () => ({h: 0});
|
|
6807
6807
|
break;
|
|
6808
6808
|
}
|
|
6809
6809
|
case 0: {
|
|
6810
|
-
$
|
|
6810
|
+
$1dc = () => ({a1: {h: 0}});
|
|
6811
6811
|
break;
|
|
6812
6812
|
}
|
|
6813
6813
|
}
|
|
6814
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, Prelude_Types_List_filterAppend({h: 0}, $
|
|
6814
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, Prelude_Types_List_filterAppend({h: 0}, $1d4 => ShellCompletion_Util_matches($0, '--draft', $1d4), ShellCompletion_Common_allPrCmdOpts($0))), $1dc);
|
|
6815
6815
|
}
|
|
6816
6816
|
}
|
|
6817
6817
|
}
|
|
@@ -6825,46 +6825,46 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
6825
6825
|
case '--into': return {h: 0};
|
|
6826
6826
|
case '--ready': return ShellCompletion_Util_someFrom($0, {a1: '--into', a2: {h: 0}}, ShellCompletion_Common_allPrCmdOpts($0));
|
|
6827
6827
|
case 'pr': {
|
|
6828
|
-
let $
|
|
6828
|
+
let $1f9;
|
|
6829
6829
|
switch(ShellCompletion_Util_isHashPrefix($2)) {
|
|
6830
6830
|
case 1: {
|
|
6831
|
-
$
|
|
6831
|
+
$1f9 = () => ({h: 0});
|
|
6832
6832
|
break;
|
|
6833
6833
|
}
|
|
6834
6834
|
case 0: {
|
|
6835
|
-
$
|
|
6835
|
+
$1f9 = () => ({a1: {h: 0}});
|
|
6836
6836
|
break;
|
|
6837
6837
|
}
|
|
6838
6838
|
}
|
|
6839
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $
|
|
6839
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $1f9);
|
|
6840
6840
|
}
|
|
6841
6841
|
case '--draft': {
|
|
6842
|
-
let $
|
|
6842
|
+
let $20f;
|
|
6843
6843
|
switch(ShellCompletion_Util_isHashPrefix($2)) {
|
|
6844
6844
|
case 1: {
|
|
6845
|
-
$
|
|
6845
|
+
$20f = () => ({h: 0});
|
|
6846
6846
|
break;
|
|
6847
6847
|
}
|
|
6848
6848
|
case 0: {
|
|
6849
|
-
$
|
|
6849
|
+
$20f = () => ({a1: {h: 0}});
|
|
6850
6850
|
break;
|
|
6851
6851
|
}
|
|
6852
6852
|
}
|
|
6853
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, Prelude_Types_List_filterAppend({h: 0}, $
|
|
6853
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, Prelude_Types_List_filterAppend({h: 0}, $207 => ShellCompletion_Util_matches($0, '--into', $207), ShellCompletion_Common_allPrCmdOpts($0))), $20f);
|
|
6854
6854
|
}
|
|
6855
6855
|
default: {
|
|
6856
|
-
let $
|
|
6856
|
+
let $225;
|
|
6857
6857
|
switch(ShellCompletion_Util_isHashPrefix($2)) {
|
|
6858
6858
|
case 1: {
|
|
6859
|
-
$
|
|
6859
|
+
$225 = () => ({h: 0});
|
|
6860
6860
|
break;
|
|
6861
6861
|
}
|
|
6862
6862
|
case 0: {
|
|
6863
|
-
$
|
|
6863
|
+
$225 = () => ({a1: {h: 0}});
|
|
6864
6864
|
break;
|
|
6865
6865
|
}
|
|
6866
6866
|
}
|
|
6867
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, Prelude_Types_List_filterAppend({h: 0}, $
|
|
6867
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, Prelude_Types_List_filterAppend({h: 0}, $21d => ShellCompletion_Util_matches($0, '--draft', $21d), ShellCompletion_Common_allPrCmdOpts($0))), $225);
|
|
6868
6868
|
}
|
|
6869
6869
|
}
|
|
6870
6870
|
}
|
|
@@ -6875,46 +6875,46 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
6875
6875
|
case '--into': return {h: 0};
|
|
6876
6876
|
case '--ready': return ShellCompletion_Util_someFrom($0, {a1: '--into', a2: {h: 0}}, ShellCompletion_Common_allPrCmdOpts($0));
|
|
6877
6877
|
case 'pr': {
|
|
6878
|
-
let $
|
|
6878
|
+
let $23b;
|
|
6879
6879
|
switch(ShellCompletion_Util_isHashPrefix($2)) {
|
|
6880
6880
|
case 1: {
|
|
6881
|
-
$
|
|
6881
|
+
$23b = () => ({h: 0});
|
|
6882
6882
|
break;
|
|
6883
6883
|
}
|
|
6884
6884
|
case 0: {
|
|
6885
|
-
$
|
|
6885
|
+
$23b = () => ({a1: {h: 0}});
|
|
6886
6886
|
break;
|
|
6887
6887
|
}
|
|
6888
6888
|
}
|
|
6889
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $
|
|
6889
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $23b);
|
|
6890
6890
|
}
|
|
6891
6891
|
case '--draft': {
|
|
6892
|
-
let $
|
|
6892
|
+
let $251;
|
|
6893
6893
|
switch(ShellCompletion_Util_isHashPrefix($2)) {
|
|
6894
6894
|
case 1: {
|
|
6895
|
-
$
|
|
6895
|
+
$251 = () => ({h: 0});
|
|
6896
6896
|
break;
|
|
6897
6897
|
}
|
|
6898
6898
|
case 0: {
|
|
6899
|
-
$
|
|
6899
|
+
$251 = () => ({a1: {h: 0}});
|
|
6900
6900
|
break;
|
|
6901
6901
|
}
|
|
6902
6902
|
}
|
|
6903
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, Prelude_Types_List_filterAppend({h: 0}, $
|
|
6903
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, Prelude_Types_List_filterAppend({h: 0}, $249 => ShellCompletion_Util_matches($0, '--into', $249), ShellCompletion_Common_allPrCmdOpts($0))), $251);
|
|
6904
6904
|
}
|
|
6905
6905
|
default: {
|
|
6906
|
-
let $
|
|
6906
|
+
let $267;
|
|
6907
6907
|
switch(ShellCompletion_Util_isHashPrefix($2)) {
|
|
6908
6908
|
case 1: {
|
|
6909
|
-
$
|
|
6909
|
+
$267 = () => ({h: 0});
|
|
6910
6910
|
break;
|
|
6911
6911
|
}
|
|
6912
6912
|
case 0: {
|
|
6913
|
-
$
|
|
6913
|
+
$267 = () => ({a1: {h: 0}});
|
|
6914
6914
|
break;
|
|
6915
6915
|
}
|
|
6916
6916
|
}
|
|
6917
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, Prelude_Types_List_filterAppend({h: 0}, $
|
|
6917
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, Prelude_Types_List_filterAppend({h: 0}, $25f => ShellCompletion_Util_matches($0, '--draft', $25f), ShellCompletion_Common_allPrCmdOpts($0))), $267);
|
|
6918
6918
|
}
|
|
6919
6919
|
}
|
|
6920
6920
|
}
|
|
@@ -6933,6 +6933,27 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
6933
6933
|
default: return ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allGraphCmdOpts($0));
|
|
6934
6934
|
}
|
|
6935
6935
|
}
|
|
6936
|
+
case 'config': {
|
|
6937
|
+
switch($2) {
|
|
6938
|
+
case '--': {
|
|
6939
|
+
switch($3) {
|
|
6940
|
+
case 'config': return ShellCompletion_Util_all($0, ShellCompletion_Common_allSettableProps($0));
|
|
6941
|
+
default: {
|
|
6942
|
+
switch($3) {
|
|
6943
|
+
case 'config': return ShellCompletion_Util_someWithPrefix($0, $2, ShellCompletion_Common_allSettableProps($0));
|
|
6944
|
+
default: return {a1: {h: 0}};
|
|
6945
|
+
}
|
|
6946
|
+
}
|
|
6947
|
+
}
|
|
6948
|
+
}
|
|
6949
|
+
default: {
|
|
6950
|
+
switch($3) {
|
|
6951
|
+
case 'config': return ShellCompletion_Util_someWithPrefix($0, $2, ShellCompletion_Common_allSettableProps($0));
|
|
6952
|
+
default: return {a1: {h: 0}};
|
|
6953
|
+
}
|
|
6954
|
+
}
|
|
6955
|
+
}
|
|
6956
|
+
}
|
|
6936
6957
|
default: return {h: 0};
|
|
6937
6958
|
}
|
|
6938
6959
|
}
|
|
@@ -7006,8 +7027,33 @@ function ShellCompletion_Common_allContributeCmdOpts($0) {
|
|
|
7006
7027
|
return Prelude_Types_List_mapAppend({h: 0}, $4 => Data_CompletionStyle_completionResult($0, $4), ShellCompletion_Common_allContributeCmdOptsAndDescriptions());
|
|
7007
7028
|
}
|
|
7008
7029
|
|
|
7030
|
+
/* System.Git.with block in dropFirstIf */
|
|
7031
|
+
function System_Git_with__dropFirstIf_12381($0, $1, $2) {
|
|
7032
|
+
switch($0) {
|
|
7033
|
+
case '': {
|
|
7034
|
+
switch($1.h) {
|
|
7035
|
+
case 0: /* Nil */ return '';
|
|
7036
|
+
default: {
|
|
7037
|
+
const $6 = ($1.a1+$1.a2);
|
|
7038
|
+
switch($2($1.a1)) {
|
|
7039
|
+
case 1: return $1.a2;
|
|
7040
|
+
case 0: return $6;
|
|
7041
|
+
}
|
|
7042
|
+
}
|
|
7043
|
+
}
|
|
7044
|
+
}
|
|
7045
|
+
default: {
|
|
7046
|
+
const $d = ($1.a1+$1.a2);
|
|
7047
|
+
switch($2($1.a1)) {
|
|
7048
|
+
case 1: return $1.a2;
|
|
7049
|
+
case 0: return $d;
|
|
7050
|
+
}
|
|
7051
|
+
}
|
|
7052
|
+
}
|
|
7053
|
+
}
|
|
7054
|
+
|
|
7009
7055
|
/* System.Git.case block in unpushedCommits */
|
|
7010
|
-
function
|
|
7056
|
+
function System_Git_case__unpushedCommits_13102($0, $1) {
|
|
7011
7057
|
switch($0) {
|
|
7012
7058
|
case '': {
|
|
7013
7059
|
switch($1.h) {
|
|
@@ -7020,7 +7066,7 @@ function System_Git_case__unpushedCommits_13086($0, $1) {
|
|
|
7020
7066
|
}
|
|
7021
7067
|
|
|
7022
7068
|
/* System.Git.case block in stagedChanges */
|
|
7023
|
-
function
|
|
7069
|
+
function System_Git_case__stagedChanges_13046($0, $1) {
|
|
7024
7070
|
switch($0) {
|
|
7025
7071
|
case '': {
|
|
7026
7072
|
switch($1.h) {
|
|
@@ -7033,7 +7079,7 @@ function System_Git_case__stagedChanges_13030($0, $1) {
|
|
|
7033
7079
|
}
|
|
7034
7080
|
|
|
7035
7081
|
/* System.Git.case block in uncommittedChanges */
|
|
7036
|
-
function
|
|
7082
|
+
function System_Git_case__uncommittedChanges_12981($0, $1) {
|
|
7037
7083
|
switch($0) {
|
|
7038
7084
|
case '': {
|
|
7039
7085
|
switch($1.h) {
|
|
@@ -7046,7 +7092,7 @@ function System_Git_case__uncommittedChanges_12965($0, $1) {
|
|
|
7046
7092
|
}
|
|
7047
7093
|
|
|
7048
7094
|
/* System.Git.case block in remoteTrackingBranch */
|
|
7049
|
-
function
|
|
7095
|
+
function System_Git_case__remoteTrackingBranch_12915($0, $1, $2) {
|
|
7050
7096
|
switch($1) {
|
|
7051
7097
|
case '': {
|
|
7052
7098
|
switch($2.h) {
|
|
@@ -7058,8 +7104,17 @@ function System_Git_case__remoteTrackingBranch_12899($0, $1, $2) {
|
|
|
7058
7104
|
}
|
|
7059
7105
|
}
|
|
7060
7106
|
|
|
7061
|
-
/* System.Git.
|
|
7062
|
-
function
|
|
7107
|
+
/* System.Git.7534:12560:specialPrefix */
|
|
7108
|
+
function System_Git_n__7534_12560_specialPrefix($0) {
|
|
7109
|
+
switch($0) {
|
|
7110
|
+
case '*': return 1;
|
|
7111
|
+
case '+': return 1;
|
|
7112
|
+
default: return 0;
|
|
7113
|
+
}
|
|
7114
|
+
}
|
|
7115
|
+
|
|
7116
|
+
/* System.Git.7401:12440:res */
|
|
7117
|
+
function System_Git_n__7401_12440_res($0, $1) {
|
|
7063
7118
|
const $2 = $0($1);
|
|
7064
7119
|
switch($2.a2.a2) {
|
|
7065
7120
|
case 0: return {h: 1 /* Right */, a1: $2.a1};
|
|
@@ -7067,20 +7122,6 @@ function System_Git_n__7399_12437_res($0, $1) {
|
|
|
7067
7122
|
}
|
|
7068
7123
|
}
|
|
7069
7124
|
|
|
7070
|
-
/* System.Git.7337:12374:go */
|
|
7071
|
-
function System_Git_n__7337_12374_go($0, $1) {
|
|
7072
|
-
switch($1.h) {
|
|
7073
|
-
case 0: /* nil */ return {h: 0};
|
|
7074
|
-
case undefined: /* cons */ {
|
|
7075
|
-
const $3 = System_Git_n__7337_12374_go($0, $1.a2);
|
|
7076
|
-
switch(Prelude_EqOrd_x3dx3d_Eq_Char($0, $1.a1)) {
|
|
7077
|
-
case 1: return $3;
|
|
7078
|
-
case 0: return {a1: $1.a1, a2: $3};
|
|
7079
|
-
}
|
|
7080
|
-
}
|
|
7081
|
-
}
|
|
7082
|
-
}
|
|
7083
|
-
|
|
7084
7125
|
/* System.Git.userEmail : Promise' String */
|
|
7085
7126
|
function System_Git_userEmail($0, $1) {
|
|
7086
7127
|
return Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Data_String_trim($4), $8 => $9 => System_Git_promise(System_Git_git(csegen_46()(), {a1: 'config', a2: {a1: '--get', a2: {a1: 'user.email', a2: {h: 0}}}}), $8, $9), $0, $1);
|
|
@@ -7088,12 +7129,12 @@ function System_Git_userEmail($0, $1) {
|
|
|
7088
7129
|
|
|
7089
7130
|
/* System.Git.unpushedCommits : Promise' (Maybe String) */
|
|
7090
7131
|
function System_Git_unpushedCommits($0, $1) {
|
|
7091
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4 => $5 => Data_Promise_map_Functor_x28Promisex20x24ex29($8 => Data_String_trim($8), $c => $d => System_Git_promise(System_Git_git(csegen_46()(), {a1: 'log', a2: {a1: '@{push}..', a2: {h: 0}}}), $c, $d), $4, $5), commits => $1e => $1f => Data_Promise_pure_Applicative_x28Promisex20x24ex29(
|
|
7132
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4 => $5 => Data_Promise_map_Functor_x28Promisex20x24ex29($8 => Data_String_trim($8), $c => $d => System_Git_promise(System_Git_git(csegen_46()(), {a1: 'log', a2: {a1: '@{push}..', a2: {h: 0}}}), $c, $d), $4, $5), commits => $1e => $1f => Data_Promise_pure_Applicative_x28Promisex20x24ex29(System_Git_case__unpushedCommits_13102(commits, Data_String_strM(commits)), $1e, $1f), $0, $1);
|
|
7092
7133
|
}
|
|
7093
7134
|
|
|
7094
7135
|
/* System.Git.uncommittedChanges : Promise' (Maybe String) */
|
|
7095
7136
|
function System_Git_uncommittedChanges($0, $1) {
|
|
7096
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4 => $5 => Data_Promise_map_Functor_x28Promisex20x24ex29($8 => Data_String_trim($8), $c => $d => System_Git_promise(System_Git_git(csegen_46()(), {a1: 'diff', a2: {a1: '--name-only', a2: {h: 0}}}), $c, $d), $4, $5), changedFiles => $1e => $1f => Data_Promise_pure_Applicative_x28Promisex20x24ex29(
|
|
7137
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4 => $5 => Data_Promise_map_Functor_x28Promisex20x24ex29($8 => Data_String_trim($8), $c => $d => System_Git_promise(System_Git_git(csegen_46()(), {a1: 'diff', a2: {a1: '--name-only', a2: {h: 0}}}), $c, $d), $4, $5), changedFiles => $1e => $1f => Data_Promise_pure_Applicative_x28Promisex20x24ex29(System_Git_case__uncommittedChanges_12981(changedFiles, Data_String_strM(changedFiles)), $1e, $1f), $0, $1);
|
|
7097
7138
|
}
|
|
7098
7139
|
|
|
7099
7140
|
/* System.Git.stdout : (String, (String, Int)) -> String */
|
|
@@ -7103,7 +7144,7 @@ function System_Git_stdout($0) {
|
|
|
7103
7144
|
|
|
7104
7145
|
/* System.Git.stagedChanges : Promise' (Maybe String) */
|
|
7105
7146
|
function System_Git_stagedChanges($0, $1) {
|
|
7106
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4 => $5 => Data_Promise_map_Functor_x28Promisex20x24ex29($8 => Data_String_trim($8), $c => $d => System_Git_promise(System_Git_git(csegen_46()(), {a1: 'diff', a2: {a1: '--staged', a2: {a1: '--name-only', a2: {h: 0}}}}), $c, $d), $4, $5), stagedFiles => $20 => $21 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(
|
|
7147
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4 => $5 => Data_Promise_map_Functor_x28Promisex20x24ex29($8 => Data_String_trim($8), $c => $d => System_Git_promise(System_Git_git(csegen_46()(), {a1: 'diff', a2: {a1: '--staged', a2: {a1: '--name-only', a2: {h: 0}}}}), $c, $d), $4, $5), stagedFiles => $20 => $21 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(System_Git_case__stagedChanges_13046(stagedFiles, Data_String_strM(stagedFiles)), $20, $21), $0, $1);
|
|
7107
7148
|
}
|
|
7108
7149
|
|
|
7109
7150
|
/* System.Git.rootDir : Promise' String */
|
|
@@ -7118,7 +7159,7 @@ function System_Git_remoteURI($0, $1, $2) {
|
|
|
7118
7159
|
|
|
7119
7160
|
/* System.Git.remoteTrackingBranch : Promise' (Maybe String) */
|
|
7120
7161
|
function System_Git_remoteTrackingBranch($0, $1) {
|
|
7121
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4 => $5 => Data_Promise_map_Functor_x28Promisex20x24ex29($8 => Data_String_trim($8), $c => $d => System_Git_promise(System_Git_git(csegen_46()(), {a1: 'symbolic-ref', a2: {a1: '-q', a2: {a1: 'HEAD', a2: {h: 0}}}}), $c, $d), $4, $5), headRef => $20 => $21 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($24 => $25 => Data_Promise_map_Functor_x28Promisex20x24ex29($28 => Data_String_trim($28), $2c => $2d => System_Git_promise(System_Git_git(csegen_46()(), {a1: 'for-each-ref', a2: {a1: '--format', a2: {a1: '%(upstream:short)', a2: {a1: headRef, a2: {h: 0}}}}}), $2c, $2d), $24, $25), remoteBranch => $42 => $43 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(
|
|
7162
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4 => $5 => Data_Promise_map_Functor_x28Promisex20x24ex29($8 => Data_String_trim($8), $c => $d => System_Git_promise(System_Git_git(csegen_46()(), {a1: 'symbolic-ref', a2: {a1: '-q', a2: {a1: 'HEAD', a2: {h: 0}}}}), $c, $d), $4, $5), headRef => $20 => $21 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($24 => $25 => Data_Promise_map_Functor_x28Promisex20x24ex29($28 => Data_String_trim($28), $2c => $2d => System_Git_promise(System_Git_git(csegen_46()(), {a1: 'for-each-ref', a2: {a1: '--format', a2: {a1: '%(upstream:short)', a2: {a1: headRef, a2: {h: 0}}}}}), $2c, $2d), $24, $25), remoteBranch => $42 => $43 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(System_Git_case__remoteTrackingBranch_12915(headRef, remoteBranch, Data_String_strM(remoteBranch)), $42, $43), $20, $21), $0, $1);
|
|
7122
7163
|
}
|
|
7123
7164
|
|
|
7124
7165
|
/* System.Git.pushNewBranch : String -> String -> Promise' () */
|
|
@@ -7133,12 +7174,12 @@ function System_Git_push($0, $1) {
|
|
|
7133
7174
|
|
|
7134
7175
|
/* System.Git.promise : IO (a, (String, Int)) -> Promise' a */
|
|
7135
7176
|
function System_Git_promise($0, $1, $2) {
|
|
7136
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($5 => $6 => $7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($a =>
|
|
7177
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($5 => $6 => $7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($a => System_Git_n__7401_12440_res($0, $a), $5, $6, $7), $12 => $13 => Data_Promise_either($12, $13), $1, $2);
|
|
7137
7178
|
}
|
|
7138
7179
|
|
|
7139
7180
|
/* System.Git.parseBranchList : String -> List String */
|
|
7140
7181
|
function System_Git_parseBranchList($0) {
|
|
7141
|
-
return Prelude_Types_List_mapAppend({h: 0}, $4 => Data_String_trim($4), Data_String_lines(
|
|
7182
|
+
return Prelude_Types_List_mapAppend({h: 0}, $4 => Data_String_trim(System_Git_dropFirstIf($9 => System_Git_n__7534_12560_specialPrefix($9), $4)), Data_String_lines($0));
|
|
7142
7183
|
}
|
|
7143
7184
|
|
|
7144
7185
|
/* System.Git.listRemotes : Promise' (List String) */
|
|
@@ -7156,9 +7197,9 @@ function System_Git_git($0, $1) {
|
|
|
7156
7197
|
return Util_System_Escaped_runx27($0, {a1: 'git', a2: $1});
|
|
7157
7198
|
}
|
|
7158
7199
|
|
|
7159
|
-
/* System.Git.
|
|
7160
|
-
function
|
|
7161
|
-
return
|
|
7200
|
+
/* System.Git.dropFirstIf : (Char -> Bool) -> String -> String */
|
|
7201
|
+
function System_Git_dropFirstIf($0, $1) {
|
|
7202
|
+
return System_Git_with__dropFirstIf_12381($1, Data_String_asList($1), $0);
|
|
7162
7203
|
}
|
|
7163
7204
|
|
|
7164
7205
|
/* System.Git.currentBranch : Promise' String */
|
|
@@ -7206,17 +7247,17 @@ function Util_System_runx27($0, $1) {
|
|
|
7206
7247
|
const $33 = $34 => {
|
|
7207
7248
|
switch($34.h) {
|
|
7208
7249
|
case 1: /* Right */ return $0.a1.a2(undefined)(undefined)(FFI_SystemUtil_pclosex27($0, $10.a1))(exitCode => $0.a1.a1.a2(undefined)({a1: $25.a1, a2: {a1: $34.a1, a2: exitCode}}));
|
|
7209
|
-
case 0: /* Left */ return $0.a1.a1.a2(undefined)(
|
|
7250
|
+
case 0: /* Left */ return $0.a1.a1.a2(undefined)(csegen_223());
|
|
7210
7251
|
}
|
|
7211
7252
|
};
|
|
7212
7253
|
return $0.a1.a2(undefined)(undefined)(System_File_ReadWrite_fRead($0, $15))($33);
|
|
7213
7254
|
}
|
|
7214
|
-
case 0: /* Left */ return $0.a1.a1.a2(undefined)(
|
|
7255
|
+
case 0: /* Left */ return $0.a1.a1.a2(undefined)(csegen_223());
|
|
7215
7256
|
}
|
|
7216
7257
|
};
|
|
7217
7258
|
return $0.a1.a2(undefined)(undefined)(System_File_ReadWrite_fRead($0, $12))($24);
|
|
7218
7259
|
}
|
|
7219
|
-
case 0: /* Left */ return $0.a1.a1.a2(undefined)(
|
|
7260
|
+
case 0: /* Left */ return $0.a1.a1.a2(undefined)(csegen_223());
|
|
7220
7261
|
}
|
|
7221
7262
|
};
|
|
7222
7263
|
return $0.a1.a2(undefined)(undefined)(FFI_SystemUtil_popenx27($0, $1, 0))($f);
|
|
@@ -7272,10 +7313,10 @@ function System_File_ReadWrite_readLinesOnto($0, $1, $2, $3, $4) {
|
|
|
7272
7313
|
switch($1f) {
|
|
7273
7314
|
case 0: {
|
|
7274
7315
|
switch($2) {
|
|
7275
|
-
case 0n: return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1,
|
|
7316
|
+
case 0n: return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, csegen_235(), csegen_256(), System_File_ReadWrite_fGetLine($0, $4), str => System_File_ReadWrite_readLinesOnto($0, {a1: str, a2: $1}, 0n, $3.a1(), $4));
|
|
7276
7317
|
default: {
|
|
7277
7318
|
const $37 = ($2-1n);
|
|
7278
|
-
return Prelude_Interfaces_x2ax3e({a1: b => a => func => $3d => Prelude_Interfaces_Functor_map_Functor_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1.a1,
|
|
7319
|
+
return Prelude_Interfaces_x2ax3e({a1: b => a => func => $3d => Prelude_Interfaces_Functor_map_Functor_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1.a1, csegen_226(), func)($3d), a2: a => $49 => Prelude_Interfaces_Applicative_pure_Applicative_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1, csegen_230(), $49), a3: b => a => $52 => $53 => Prelude_Interfaces_Applicative_x3cx2ax3e_Applicative_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1, csegen_230(), $52, $53)}, System_File_ReadWrite_fSeekLine($0, $4), System_File_ReadWrite_readLinesOnto($0, $1, $37, {a1: $3.a1}, $4));
|
|
7279
7320
|
}
|
|
7280
7321
|
}
|
|
7281
7322
|
}
|
|
@@ -7311,7 +7352,7 @@ function System_File_ReadWrite_getStringAndFree($0, $1, $2) {
|
|
|
7311
7352
|
const $16 = $17 => {
|
|
7312
7353
|
switch($17) {
|
|
7313
7354
|
case 1: return System_File_Error_returnError($0);
|
|
7314
|
-
case 0: return Prelude_Interfaces_Applicative_pure_Applicative_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1,
|
|
7355
|
+
case 0: return Prelude_Interfaces_Applicative_pure_Applicative_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1, csegen_230(), '');
|
|
7315
7356
|
}
|
|
7316
7357
|
};
|
|
7317
7358
|
return $0.a1.a2(undefined)(undefined)(System_File_Error_fileError($0, $1))($16);
|
|
@@ -7913,7 +7954,7 @@ function Data_Config_propHelpx27($0) {
|
|
|
7913
7954
|
|
|
7914
7955
|
/* Data.Config.parseConfig : Ephemeral -> String -> Either String Config */
|
|
7915
7956
|
function Data_Config_parseConfig($0, $1) {
|
|
7916
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
7957
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_235(), csegen_298(), $8 => Data_Config_n__10207_7581_parseConfigJson($0, $8), $1);
|
|
7917
7958
|
}
|
|
7918
7959
|
|
|
7919
7960
|
/* Data.Config.CommentStrategy.parseCommentConfig : String -> Maybe CommentStrategy */
|
|
@@ -7939,12 +7980,12 @@ function Data_Config_ParseBranchStrategy_parseBranchConfig($0) {
|
|
|
7939
7980
|
|
|
7940
7981
|
/* Data.Config.longestSettablePropName : Nat */
|
|
7941
7982
|
const Data_Config_longestSettablePropName = __lazy(function () {
|
|
7942
|
-
return Prelude_Types_foldr_Foldable_List(
|
|
7983
|
+
return Prelude_Types_foldr_Foldable_List(csegen_299(), 0n, Prelude_Types_List_mapAppend({h: 0}, $8 => Prelude_Types_String_length(Data_Config_propNamex27($8)), Data_Config_settableProps()));
|
|
7943
7984
|
});
|
|
7944
7985
|
|
|
7945
7986
|
/* Data.Config.json : Config -> JSON */
|
|
7946
7987
|
function Data_Config_json($0) {
|
|
7947
|
-
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: 4 /* JString */, a1: Data_Config_CommentStrategy_show_Show_CommentStrategy($0.a8)}}, a2: {a1: {a1: 'branchParsing', a2: {h: 4 /* JString */, a1: Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($0.a9)}}, 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: 'theme', a2: {h: 4 /* JString */, a1: Data_Theme_show_Show_Theme($0.a15)}}, a2: {a1: {a1: 'orgMembers', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $3d => ({h: 4 /* JString */, a1: $3d}), Data_List_sort(
|
|
7988
|
+
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: 4 /* JString */, a1: Data_Config_CommentStrategy_show_Show_CommentStrategy($0.a8)}}, a2: {a1: {a1: 'branchParsing', a2: {h: 4 /* JString */, a1: Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($0.a9)}}, 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: 'theme', a2: {h: 4 /* JString */, a1: Data_Theme_show_Show_Theme($0.a15)}}, a2: {a1: {a1: 'orgMembers', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $3d => ({h: 4 /* JString */, a1: $3d}), Data_List_sort(csegen_310(), $0.a12))}}, a2: {a1: {a1: 'teamSlugs', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $4c => ({h: 4 /* JString */, a1: $4c}), Data_List_sort(csegen_310(), $0.a10))}}, a2: {a1: {a1: 'repoLabels', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $5b => ({h: 4 /* JString */, a1: $5b}), Data_List_sort(csegen_310(), $0.a11))}}, a2: {a1: {a1: 'ignoredPRs', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $6a => ({h: 1 /* JInteger */, a1: $6a}), Data_List_sort({a1: csegen_313(), a2: csegen_314(), a3: $74 => $75 => Prelude_EqOrd_x3c_Ord_Integer($74, $75), a4: $7a => $7b => Prelude_EqOrd_x3e_Ord_Integer($7a, $7b), a5: $80 => $81 => Prelude_EqOrd_x3cx3d_Ord_Integer($80, $81), a6: $86 => $87 => Prelude_EqOrd_x3ex3d_Ord_Integer($86, $87), a7: $8c => $8d => Prelude_EqOrd_max_Ord_Integer($8c, $8d), a8: $92 => $93 => Prelude_EqOrd_min_Ord_Integer($92, $93)}, $0.a13))}}, a2: {a1: {a1: 'githubPAT', a2: Prelude_Types_maybe(() => ({h: 0 /* JNull */}), () => $9f => ({h: 4 /* JString */, a1: $9f}), $0.a14)}, a2: {a1: {a1: 'updatedAt', a2: {h: 1 /* JInteger */, a1: BigInt($0.a1)}}, a2: {h: 0}}}}}}}}}}}}}}}}};
|
|
7948
7989
|
}
|
|
7949
7990
|
|
|
7950
7991
|
/* Data.Config.filename : String */
|
|
@@ -7954,12 +7995,12 @@ const Data_Config_filename = __lazy(function () {
|
|
|
7954
7995
|
|
|
7955
7996
|
/* Data.Config.commentConfig : JSON -> Either String CommentStrategy */
|
|
7956
7997
|
function Data_Config_commentConfig($0) {
|
|
7957
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
7998
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_235(), csegen_322(), $7 => Data_Either_maybeToEither(() => '', Data_Config_CommentStrategy_parseCommentConfig($7)), $0);
|
|
7958
7999
|
}
|
|
7959
8000
|
|
|
7960
8001
|
/* Data.Config.branchConfig : JSON -> Either String ParseBranchStrategy */
|
|
7961
8002
|
function Data_Config_branchConfig($0) {
|
|
7962
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
8003
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_235(), csegen_322(), $7 => Data_Either_maybeToEither(() => '', Data_Config_ParseBranchStrategy_parseBranchConfig($7)), $0);
|
|
7963
8004
|
}
|
|
7964
8005
|
|
|
7965
8006
|
/* Language.JSON.Accessors.6303:18332:lookup' */
|
|
@@ -7989,7 +8030,7 @@ function Language_JSON_Accessors_string($0) {
|
|
|
7989
8030
|
default: return {h: 0};
|
|
7990
8031
|
}
|
|
7991
8032
|
};
|
|
7992
|
-
return Language_JSON_Accessors_access(
|
|
8033
|
+
return Language_JSON_Accessors_access(csegen_326(), 'string', $5, $0);
|
|
7993
8034
|
}
|
|
7994
8035
|
|
|
7995
8036
|
/* Language.JSON.Accessors.optional : (JSON -> Either String a) -> JSON -> Either String (Maybe a) */
|
|
@@ -8042,7 +8083,7 @@ function Language_JSON_Accessors_integer($0) {
|
|
|
8042
8083
|
default: return {h: 0};
|
|
8043
8084
|
}
|
|
8044
8085
|
};
|
|
8045
|
-
return Language_JSON_Accessors_access(
|
|
8086
|
+
return Language_JSON_Accessors_access(csegen_326(), 'integer', $5, $0);
|
|
8046
8087
|
}
|
|
8047
8088
|
|
|
8048
8089
|
/* Language.JSON.Accessors.bool : JSON -> Either String Bool */
|
|
@@ -8053,13 +8094,13 @@ function Language_JSON_Accessors_bool($0) {
|
|
|
8053
8094
|
default: return {h: 0};
|
|
8054
8095
|
}
|
|
8055
8096
|
};
|
|
8056
|
-
return Language_JSON_Accessors_access(
|
|
8097
|
+
return Language_JSON_Accessors_access(csegen_326(), 'bool', $5, $0);
|
|
8057
8098
|
}
|
|
8058
8099
|
|
|
8059
8100
|
/* Language.JSON.Accessors.array : (JSON -> Either String a) -> JSON -> Either String (List a) */
|
|
8060
8101
|
function Language_JSON_Accessors_array($0, $1) {
|
|
8061
8102
|
switch($1.h) {
|
|
8062
|
-
case 5: /* JArray */ return Prelude_Types_traverse_Traversable_List(
|
|
8103
|
+
case 5: /* JArray */ return Prelude_Types_traverse_Traversable_List(csegen_230(), $0, $1.a1);
|
|
8063
8104
|
default: return {h: 0 /* Left */, a1: Prelude_Types_foldMap_Foldable_List(csegen_65()(), $e => $e, {a1: 'Expected an array but found ', a2: {a1: JSON_Parser_showImpl($1), a2: {a1: '.', a2: {h: 0}}}})};
|
|
8064
8105
|
}
|
|
8065
8106
|
}
|
|
@@ -8767,13 +8808,13 @@ function Util_Prompting_with__yesNoPromptx2cyesUnlessNo_1359($0, $1, $2, $3, $4,
|
|
|
8767
8808
|
}
|
|
8768
8809
|
}
|
|
8769
8810
|
|
|
8770
|
-
/* Util.Prompting.
|
|
8771
|
-
function
|
|
8811
|
+
/* Util.Prompting.5820:1351:yesUnlessNo */
|
|
8812
|
+
function Util_Prompting_n__5820_1351_yesUnlessNo($0, $1, $2, $3) {
|
|
8772
8813
|
return Util_Prompting_with__yesNoPromptx2cyesUnlessNo_1359(undefined, $0, $1, $2, $3, Data_String_toLower($3));
|
|
8773
8814
|
}
|
|
8774
8815
|
|
|
8775
|
-
/* Util.Prompting.
|
|
8776
|
-
function
|
|
8816
|
+
/* Util.Prompting.6020:1552:readTemplate */
|
|
8817
|
+
function Util_Prompting_n__6020_1552_readTemplate($0, $1, $2, $3, $4) {
|
|
8777
8818
|
const $11 = $12 => {
|
|
8778
8819
|
switch($12) {
|
|
8779
8820
|
case 0: return $0.a1.a1.a2(undefined)('');
|
|
@@ -8791,8 +8832,8 @@ function Util_Prompting_n__6019_1552_readTemplate($0, $1, $2, $3, $4) {
|
|
|
8791
8832
|
return $0.a1.a2(undefined)(undefined)(System_File_Meta_exists($0, $4))($11);
|
|
8792
8833
|
}
|
|
8793
8834
|
|
|
8794
|
-
/* Util.
|
|
8795
|
-
function
|
|
8835
|
+
/* Util.5707:1233:getMoreLines */
|
|
8836
|
+
function Util_n__5707_1233_getMoreLines($0, $1, $2) {
|
|
8796
8837
|
switch($2.h) {
|
|
8797
8838
|
case 0: /* nothing */ return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1));
|
|
8798
8839
|
case undefined: /* just */ {
|
|
@@ -8803,13 +8844,13 @@ function Util_n__5706_1233_getMoreLines($0, $1, $2) {
|
|
|
8803
8844
|
case '': {
|
|
8804
8845
|
switch(line) {
|
|
8805
8846
|
case '': return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1.a2));
|
|
8806
|
-
default: return
|
|
8847
|
+
default: return Util_n__5707_1233_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
8807
8848
|
}
|
|
8808
8849
|
}
|
|
8809
|
-
default: return
|
|
8850
|
+
default: return Util_n__5707_1233_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
8810
8851
|
}
|
|
8811
8852
|
}
|
|
8812
|
-
default: return
|
|
8853
|
+
default: return Util_n__5707_1233_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
8813
8854
|
}
|
|
8814
8855
|
};
|
|
8815
8856
|
return $0.a1.a2(undefined)(undefined)($0.a1.a1.a1(undefined)(undefined)($20 => Data_String_trim($20))($0.a2(undefined)($29 => Prelude_IO_prim__getStr($29))))($2c);
|
|
@@ -8817,8 +8858,8 @@ function Util_n__5706_1233_getMoreLines($0, $1, $2) {
|
|
|
8817
8858
|
}
|
|
8818
8859
|
}
|
|
8819
8860
|
|
|
8820
|
-
/* Util.Prompting.
|
|
8821
|
-
function
|
|
8861
|
+
/* Util.Prompting.5820:1350:defaultAnswerStr */
|
|
8862
|
+
function Util_Prompting_n__5820_1350_defaultAnswerStr($0, $1, $2) {
|
|
8822
8863
|
switch($1) {
|
|
8823
8864
|
case 0: return 'y/N';
|
|
8824
8865
|
case 1: return 'Y/n';
|
|
@@ -8827,7 +8868,7 @@ function Util_Prompting_n__5819_1350_defaultAnswerStr($0, $1, $2) {
|
|
|
8827
8868
|
|
|
8828
8869
|
/* Util.Prompting.yesNoPrompt : HasIO io => {default True _ : Bool} -> String -> io Bool */
|
|
8829
8870
|
function Util_Prompting_yesNoPrompt($0, $1, $2) {
|
|
8830
|
-
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($11 => Prelude_IO_prim__putStr(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $19 => $19, {a1: $2, a2: {a1: ' [', a2: {a1:
|
|
8871
|
+
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($11 => Prelude_IO_prim__putStr(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $19 => $19, {a1: $2, a2: {a1: ' [', a2: {a1: Util_Prompting_n__5820_1350_defaultAnswerStr($0, $1, $2), a2: {a1: '] ', a2: {h: 0}}}}}), $11)))($29 => $0.a1.a1.a1(undefined)(undefined)($34 => Util_Prompting_n__5820_1351_yesUnlessNo($0, $1, $2, Data_String_trim($34)))($0.a2(undefined)($42 => Prelude_IO_prim__getStr($42))));
|
|
8831
8872
|
}
|
|
8832
8873
|
|
|
8833
8874
|
/* Util.whenNothing : Applicative f => Maybe a -> f () -> f () */
|
|
@@ -8864,7 +8905,7 @@ function Util_Prompting_prepareDescriptionFile($0, $1, $2, $3) {
|
|
|
8864
8905
|
const $20 = Prelude_Types_foldMap_Foldable_List(csegen_65()(), $26 => $26, {a1: $2, a2: {a1: '\n', a2: {a1: templateContents, a2: {h: 0}}}});
|
|
8865
8906
|
return $0.a1.a1.a1(undefined)(undefined)($38 => undefined)(System_File_ReadWrite_writeFile($0, $3, $20));
|
|
8866
8907
|
};
|
|
8867
|
-
return $0.a1.a2(undefined)(undefined)(Prelude_Types_maybe(() => $0.a1.a1.a2(undefined)(''), () => $17 =>
|
|
8908
|
+
return $0.a1.a2(undefined)(undefined)(Prelude_Types_maybe(() => $0.a1.a1.a2(undefined)(''), () => $17 => Util_Prompting_n__6020_1552_readTemplate($0, $3, $2, $1, $17), $1))($1f);
|
|
8868
8909
|
}
|
|
8869
8910
|
|
|
8870
8911
|
/* Util.Prompting.orIfEmpty : Maybe String -> String -> String */
|
|
@@ -8917,7 +8958,7 @@ function Util_Prompting_inlineDescription($0, $1, $2) {
|
|
|
8917
8958
|
|
|
8918
8959
|
/* Util.getManyLines : HasIO io => Fuel -> io (List String) */
|
|
8919
8960
|
function Util_getManyLines($0, $1) {
|
|
8920
|
-
return
|
|
8961
|
+
return Util_n__5707_1233_getMoreLines($0, {h: 0}, $1);
|
|
8921
8962
|
}
|
|
8922
8963
|
|
|
8923
8964
|
/* Util.Prompting.editorDescription : HasIO io => String -> Maybe String -> String -> io (Either FileError String) */
|
|
@@ -8975,7 +9016,7 @@ function System_getEnv($0, $1) {
|
|
|
8975
9016
|
function System_getArgs($0) {
|
|
8976
9017
|
const $12 = n => {
|
|
8977
9018
|
switch(Prelude_EqOrd_x3e_Ord_Int(n, Number(_truncBigInt32(0n)))) {
|
|
8978
|
-
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:
|
|
9019
|
+
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_340(), 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_340(), 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)));
|
|
8979
9020
|
case 0: return $0.a1.a1.a2(undefined)({h: 0});
|
|
8980
9021
|
}
|
|
8981
9022
|
};
|
|
@@ -9037,7 +9078,7 @@ function FFI_GitHub_n__7168_18946_errString($0, $1) {
|
|
|
9037
9078
|
|
|
9038
9079
|
/* FFI.GitHub.6905:18655:errMsg */
|
|
9039
9080
|
function FFI_GitHub_n__6905_18655_errMsg($0) {
|
|
9040
|
-
return Prelude_Types_either(() =>
|
|
9081
|
+
return Prelude_Types_either(() => csegen_361()(), () => csegen_361()(), $0);
|
|
9041
9082
|
}
|
|
9042
9083
|
|
|
9043
9084
|
/* FFI.GitHub.show */
|
|
@@ -9254,7 +9295,7 @@ function FFI_GitHub_addPullLabels($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9254
9295
|
|
|
9255
9296
|
/* Data.User.parseUserString : String -> Either String User */
|
|
9256
9297
|
function Data_User_parseUserString($0) {
|
|
9257
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
9298
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_235(), csegen_298(), $7 => Data_User_parseUser($7), $0);
|
|
9258
9299
|
}
|
|
9259
9300
|
|
|
9260
9301
|
/* Data.User.parseUser : JSON -> Either String User */
|
|
@@ -9284,7 +9325,7 @@ function Data_Review_parseState($0) {
|
|
|
9284
9325
|
|
|
9285
9326
|
/* Data.Review.parseReview : JSON -> Either String Review */
|
|
9286
9327
|
function Data_Review_parseReview($0) {
|
|
9287
|
-
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(
|
|
9328
|
+
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_231(), $22 => Data_Review_parseState($22), Language_JSON_Accessors_string($12.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_231(), $2f => Data_Review_parseDateTime($2f), Language_JSON_Accessors_string($12.a2.a2.a1)), submittedAt => ({h: 1 /* Right */, a1: {a1: submittedAt, a2: author, a3: state}}))))));
|
|
9288
9329
|
}
|
|
9289
9330
|
|
|
9290
9331
|
/* Data.Review.parseDateTime : String -> Either String Date */
|
|
@@ -9418,7 +9459,7 @@ function Data_Date_max_Ord_Date($0, $1) {
|
|
|
9418
9459
|
|
|
9419
9460
|
/* Data.Date.compare */
|
|
9420
9461
|
function Data_Date_compare_Ord_Date($0, $1) {
|
|
9421
|
-
return Prelude_Types_compare_Ord_x28Listx20x24ax29({a1: {a1:
|
|
9462
|
+
return Prelude_Types_compare_Ord_x28Listx20x24ax29({a1: {a1: csegen_371(), a2: $a => $b => Prelude_Types_x2fx3d_Eq_Nat($a, $b)}, a2: csegen_314(), a3: $12 => $13 => Prelude_Types_x3c_Ord_Nat($12, $13), a4: $18 => $19 => Prelude_Types_x3e_Ord_Nat($18, $19), a5: $1e => $1f => Prelude_Types_x3cx3d_Ord_Nat($1e, $1f), a6: $24 => $25 => Prelude_Types_x3ex3d_Ord_Nat($24, $25), a7: csegen_299(), a8: $2c => $2d => Prelude_Types_min_Ord_Nat($2c, $2d)}, {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}}}});
|
|
9422
9463
|
}
|
|
9423
9464
|
|
|
9424
9465
|
/* Data.Date.> */
|
|
@@ -9505,7 +9546,7 @@ function Data_Date_nextMonth($0) {
|
|
|
9505
9546
|
|
|
9506
9547
|
/* Data.Issue.parseIssueString : String -> Either String Issue */
|
|
9507
9548
|
function Data_Issue_parseIssueString($0) {
|
|
9508
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
9549
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_235(), csegen_298(), $7 => Data_Issue_parseIssue($7), $0);
|
|
9509
9550
|
}
|
|
9510
9551
|
|
|
9511
9552
|
/* Data.Issue.parseIssue : JSON -> Either String Issue */
|
|
@@ -9526,7 +9567,7 @@ function Data_Issue_parseIssue($0) {
|
|
|
9526
9567
|
break;
|
|
9527
9568
|
}
|
|
9528
9569
|
}
|
|
9529
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($2b, body => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($18.a2.a2.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(
|
|
9570
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($2b, body => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($18.a2.a2.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_231(), $46 => Data_Issue_parseDateTime($46), Language_JSON_Accessors_string($18.a2.a2.a2.a2.a1)), createdAt => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_optional($51 => Language_JSON_Accessors_string($51), $18.a2.a2.a2.a2.a2.a1), assignee => ({h: 1 /* Right */, a1: {a1: number, a2: title, a3: body, a4: createdAt, a5: author, a6: assignee}})))));
|
|
9530
9571
|
};
|
|
9531
9572
|
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($18.a2.a1), $29);
|
|
9532
9573
|
};
|
|
@@ -9595,17 +9636,17 @@ function Data_PullRequest_parseState($0, $1) {
|
|
|
9595
9636
|
|
|
9596
9637
|
/* Data.PullRequest.parsePullRequestsString : String -> Either String (List PullRequest) */
|
|
9597
9638
|
function Data_PullRequest_parsePullRequestsString($0) {
|
|
9598
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
9639
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_235(), csegen_298(), csegen_389(), $0);
|
|
9599
9640
|
}
|
|
9600
9641
|
|
|
9601
9642
|
/* Data.PullRequest.parsePullRequestString : String -> Either String PullRequest */
|
|
9602
9643
|
function Data_PullRequest_parsePullRequestString($0) {
|
|
9603
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
9644
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_235(), csegen_298(), $7 => Data_PullRequest_parsePR($7), $0);
|
|
9604
9645
|
}
|
|
9605
9646
|
|
|
9606
9647
|
/* Data.PullRequest.parsePR : JSON -> Either String PullRequest */
|
|
9607
9648
|
function Data_PullRequest_parsePR($0) {
|
|
9608
|
-
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: 'title', a2: {a1: 'author', a2: {a1: 'state', a2: {a1: 'created_at', a2: {a1: 'merged', a2: {a1: 'draft', a2: {a1: 'reviewers', a2: {a1: 'head_ref', a2: {a1: 'base_ref', a2: {h: 0}}}}}}}}}}}, pr), $20 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($20.a1), number => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($20.a2.a1), title => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($20.a2.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($20.a2.a2.a2.a2.a2.a1), merged => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($20.a2.a2.a2.a2.a2.a2.a1), isDraft => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(
|
|
9649
|
+
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: 'title', a2: {a1: 'author', a2: {a1: 'state', a2: {a1: 'created_at', a2: {a1: 'merged', a2: {a1: 'draft', a2: {a1: 'reviewers', a2: {a1: 'head_ref', a2: {a1: 'base_ref', a2: {h: 0}}}}}}}}}}}, pr), $20 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($20.a1), number => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($20.a2.a1), title => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($20.a2.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($20.a2.a2.a2.a2.a2.a1), merged => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($20.a2.a2.a2.a2.a2.a2.a1), isDraft => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_231(), $4b => Data_PullRequest_parseState(merged, $4b), Language_JSON_Accessors_string($20.a2.a2.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_231(), $59 => Data_PullRequest_parseDateTime($59), Language_JSON_Accessors_string($20.a2.a2.a2.a2.a1)), createdAt => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($64 => Language_JSON_Accessors_string($64), $20.a2.a2.a2.a2.a2.a2.a2.a1), reviewers => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($20.a2.a2.a2.a2.a2.a2.a2.a2.a1), headRef => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($20.a2.a2.a2.a2.a2.a2.a2.a2.a2.a1), baseRef => ({h: 1 /* Right */, a1: {a1: number, a2: title, a3: createdAt, a4: isDraft, a5: author, a6: state, a7: reviewers, a8: headRef, a9: baseRef}})))))))))))));
|
|
9609
9650
|
}
|
|
9610
9651
|
|
|
9611
9652
|
/* Data.PullRequest.parseDateTime : String -> Either String Date */
|
|
@@ -9688,47 +9729,47 @@ function Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, $2) {
|
|
|
9688
9729
|
default: return {h: 0};
|
|
9689
9730
|
}
|
|
9690
9731
|
};
|
|
9691
|
-
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(
|
|
9732
|
+
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_402(), $2.a1)}, $b);
|
|
9692
9733
|
}
|
|
9693
9734
|
|
|
9694
|
-
/* Config.
|
|
9695
|
-
function
|
|
9696
|
-
const $5 =
|
|
9697
|
-
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($1a => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $23 => $23, {a1: 'Would you like harmony configured for a \'dark\' or \'light\' terminal background', a2: {a1: $5, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $1a)))($2e =>
|
|
9735
|
+
/* Config.9644:2534:themePrompt */
|
|
9736
|
+
function Config_n__9644_2534_themePrompt($0, $1, $2, $3, $4) {
|
|
9737
|
+
const $5 = Config_n__9644_2530_enterForDefaultStr($0, $1, $2, $3, 'dark');
|
|
9738
|
+
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($1a => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $23 => $23, {a1: 'Would you like harmony configured for a \'dark\' or \'light\' terminal background', a2: {a1: $5, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $1a)))($2e => Config_n__9644_2531_offerRetry($0, $1, $2, $3, $4, 'The theme must be either \'dark\' or \'light\'. Which would you prefer?', 'Could not parse the input as a valid theme; will use \'dark\' for now.', () => 1, $4.a1.a1.a1(undefined)(undefined)($43 => Data_Theme_parseString(Util_Prompting_orIfEmpty({a1: 'dark'}, Data_String_trim($43))))($4.a2(undefined)($52 => Prelude_IO_prim__getStr($52)))));
|
|
9698
9739
|
}
|
|
9699
9740
|
|
|
9700
|
-
/* Config.
|
|
9701
|
-
function
|
|
9702
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
9741
|
+
/* Config.9644:2533:repo */
|
|
9742
|
+
function Config_n__9644_2533_repo($0, $1, $2, $3, $4) {
|
|
9743
|
+
return Prelude_Types_map_Functor_Maybe(csegen_361()(), $4);
|
|
9703
9744
|
}
|
|
9704
9745
|
|
|
9705
|
-
/* Config.
|
|
9706
|
-
function
|
|
9746
|
+
/* Config.8711:1562:parseSuffix */
|
|
9747
|
+
function Config_n__8711_1562_parseSuffix($0, $1) {
|
|
9707
9748
|
return Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, Data_String_break$($8 => Prelude_EqOrd_x3dx3d_Eq_Char($8, '.'), $1));
|
|
9708
9749
|
}
|
|
9709
9750
|
|
|
9710
|
-
/* Config.
|
|
9711
|
-
function
|
|
9712
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b =>
|
|
9751
|
+
/* Config.8711:1561:parseSSH */
|
|
9752
|
+
function Config_n__8711_1561_parseSSH($0, $1) {
|
|
9753
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b => Config_n__8711_1562_parseSuffix($0, $b), $1);
|
|
9713
9754
|
}
|
|
9714
9755
|
|
|
9715
|
-
/* Config.
|
|
9716
|
-
function
|
|
9717
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b =>
|
|
9756
|
+
/* Config.8711:1560:parseHTTPS */
|
|
9757
|
+
function Config_n__8711_1560_parseHTTPS($0, $1) {
|
|
9758
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b => Config_n__8711_1562_parseSuffix($0, $b), $1);
|
|
9718
9759
|
}
|
|
9719
9760
|
|
|
9720
|
-
/* Config.
|
|
9721
|
-
function
|
|
9722
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
9761
|
+
/* Config.9644:2532:org */
|
|
9762
|
+
function Config_n__9644_2532_org($0, $1, $2, $3, $4) {
|
|
9763
|
+
return Prelude_Types_map_Functor_Maybe(csegen_408()(), $4);
|
|
9723
9764
|
}
|
|
9724
9765
|
|
|
9725
|
-
/* Config.
|
|
9726
|
-
function
|
|
9766
|
+
/* Config.8422:1281:oneDayAgo */
|
|
9767
|
+
function Config_n__8422_1281_oneDayAgo($0, $1, $2) {
|
|
9727
9768
|
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(Number(_truncUBigInt32((now-86400n)))));
|
|
9728
9769
|
}
|
|
9729
9770
|
|
|
9730
|
-
/* Config.
|
|
9731
|
-
function
|
|
9771
|
+
/* Config.9644:2531:offerRetry */
|
|
9772
|
+
function Config_n__9644_2531_offerRetry($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
9732
9773
|
const $12 = $13 => {
|
|
9733
9774
|
switch($13.h) {
|
|
9734
9775
|
case 0: /* nothing */ {
|
|
@@ -9749,34 +9790,34 @@ function Config_n__9643_2531_offerRetry($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
9749
9790
|
return $4.a1.a2(undefined)(undefined)($8)($12);
|
|
9750
9791
|
}
|
|
9751
9792
|
|
|
9752
|
-
/* Config.
|
|
9753
|
-
function
|
|
9793
|
+
/* Config.9547:2423:help */
|
|
9794
|
+
function Config_n__9547_2423_help($0, $1) {
|
|
9754
9795
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1.a1)), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $14 => $14, {a1: ': ', a2: {a1: (Data_String_replicate(Prelude_Types_prim__integerToNat((Data_Config_longestSettablePropName()-Prelude_Types_String_length($1.a1))), ' ')+$1.a2), a2: {h: 0}}})));
|
|
9755
9796
|
}
|
|
9756
9797
|
|
|
9757
|
-
/* Config.
|
|
9758
|
-
function
|
|
9798
|
+
/* Config.9644:2530:enterForDefaultStr */
|
|
9799
|
+
function Config_n__9644_2530_enterForDefaultStr($0, $1, $2, $3, $4) {
|
|
9759
9800
|
return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $a => $a, {a1: ' (ENTER for default: ', a2: {a1: $4, a2: {a1: ')', a2: {h: 0}}}});
|
|
9760
9801
|
}
|
|
9761
9802
|
|
|
9762
|
-
/* Config.
|
|
9763
|
-
function
|
|
9803
|
+
/* Config.8664:1513:drop' */
|
|
9804
|
+
function Config_n__8664_1513_dropx27($0, $1) {
|
|
9764
9805
|
return Config_with__dropPrefixx27x2cdropx27_1521($0, $1, Data_List_PrefixSuffix_dropPrefix($8 => $9 => Decidable_Equality_decEq_DecEq_Char($8, $9), Prelude_Types_fastUnpack($0), $1));
|
|
9765
9806
|
}
|
|
9766
9807
|
|
|
9767
|
-
/* Config.
|
|
9768
|
-
function
|
|
9769
|
-
return Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($b =>
|
|
9808
|
+
/* Config.9644:2529:defaultStr */
|
|
9809
|
+
function Config_n__9644_2529_defaultStr($0, $1, $2, $3, $4, $5) {
|
|
9810
|
+
return Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($b => Config_n__9644_2530_enterForDefaultStr($0, $1, $2, $3, $4($b)), $5));
|
|
9770
9811
|
}
|
|
9771
9812
|
|
|
9772
|
-
/* Config.
|
|
9773
|
-
function
|
|
9774
|
-
const $5 =
|
|
9775
|
-
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($1a => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $23 => $23, {a1: 'What kind of comment would you like Harmony to leave when it requests reviewers? [none/name/at-mention]', a2: {a1: $5, a2: {h: 0}}})+'\n'), $1a)))($2c =>
|
|
9813
|
+
/* Config.9644:2528:commentConfigPrompt */
|
|
9814
|
+
function Config_n__9644_2528_commentConfigPrompt($0, $1, $2, $3, $4) {
|
|
9815
|
+
const $5 = Config_n__9644_2530_enterForDefaultStr($0, $1, $2, $3, 'name');
|
|
9816
|
+
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($1a => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $23 => $23, {a1: 'What kind of comment would you like Harmony to leave when it requests reviewers? [none/name/at-mention]', a2: {a1: $5, a2: {h: 0}}})+'\n'), $1a)))($2c => Config_n__9644_2531_offerRetry($0, $1, $2, $3, $4, 'The comment strategy must be \'none\', \'name\', or \'at-mention\'. Which would you prefer?', 'Could not parse the input as a valid option; will use \'name\' for now.', () => 1, $4.a1.a1.a1(undefined)(undefined)($41 => Data_Config_CommentStrategy_parseCommentConfig(Util_Prompting_orIfEmpty({a1: 'name'}, Data_String_trim($41))))($4.a2(undefined)($50 => Prelude_IO_prim__getStr($50)))));
|
|
9776
9817
|
}
|
|
9777
9818
|
|
|
9778
|
-
/* Config.
|
|
9779
|
-
function
|
|
9819
|
+
/* Config.8553:1406:checkRequestSettings */
|
|
9820
|
+
function Config_n__8553_1406_checkRequestSettings($0, $1) {
|
|
9780
9821
|
let $2;
|
|
9781
9822
|
switch($1.a6) {
|
|
9782
9823
|
case 1: {
|
|
@@ -9794,10 +9835,10 @@ function Config_n__8552_1406_checkRequestSettings($0, $1) {
|
|
|
9794
9835
|
}
|
|
9795
9836
|
}
|
|
9796
9837
|
|
|
9797
|
-
/* Config.
|
|
9798
|
-
function
|
|
9799
|
-
const $5 =
|
|
9800
|
-
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($1a => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $23 => $23, {a1: 'Would you like harmony to parse branch names for \'jira\' slugs or \'github\' issue numbers to use as part of new PR title or body', a2: {a1: $5, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $1a)))($2e =>
|
|
9838
|
+
/* Config.9644:2527:branchParsingPrompt */
|
|
9839
|
+
function Config_n__9644_2527_branchParsingPrompt($0, $1, $2, $3, $4) {
|
|
9840
|
+
const $5 = Config_n__9644_2530_enterForDefaultStr($0, $1, $2, $3, 'none');
|
|
9841
|
+
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($1a => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $23 => $23, {a1: 'Would you like harmony to parse branch names for \'jira\' slugs or \'github\' issue numbers to use as part of new PR title or body', a2: {a1: $5, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $1a)))($2e => Config_n__9644_2531_offerRetry($0, $1, $2, $3, $4, 'Branch parsing must be \'none\', \'jira\', or \'github\'. Which would you prefer?', 'Could not parse the input as a valid option; will use \'none\' for now.', () => 0, $4.a1.a1.a1(undefined)(undefined)($43 => Data_Config_ParseBranchStrategy_parseBranchConfig(Util_Prompting_orIfEmpty({a1: 'none'}, Data_String_trim($43))))($4.a2(undefined)($52 => Prelude_IO_prim__getStr($52)))));
|
|
9801
9842
|
}
|
|
9802
9843
|
|
|
9803
9844
|
/* Config.show */
|
|
@@ -9832,7 +9873,7 @@ function Config_syncIfOld($0, $1, $2, $3) {
|
|
|
9832
9873
|
case 0: return $1b => Data_Promise_pure_Applicative_x28Promisex20x24ex29($1, $e, $1b);
|
|
9833
9874
|
}
|
|
9834
9875
|
};
|
|
9835
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9876
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__8422_1281_oneDayAgo($0, $1, csegen_88()()), $c, $2, $3);
|
|
9836
9877
|
}
|
|
9837
9878
|
|
|
9838
9879
|
/* Config.syncConfig : Config => Octokit => Bool -> Promise' Config */
|
|
@@ -9844,7 +9885,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
9844
9885
|
const $41 = {a1: updatedAt, 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: teamSlugs, a11: labelNames, a12: orgMembers, a13: $0.a13, a14: $0.a14, a15: $0.a15, a16: $0.a16};
|
|
9845
9886
|
return $53 => $54 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($57 => $58 => Data_Promise_map_Functor_x28Promisex20x24ex29($5b => undefined, $5d => $5e => Config_writeConfig($41, $5d, $5e), $57, $58), $66 => $67 => $68 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_80()(), $2, () => $71 => $72 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($75 => $76 => $77 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($7a => Prelude_IO_prim__putStr('Your updated configuration is:\n', $7a), $75, $76, $77), $82 => $83 => $84 => $85 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($88 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($41)+'\n'), $88), $83, $84, $85), $71, $72)), $96 => $97 => $98 => Data_Promise_pure_Applicative_x28Promisex20x24ex29($41, $97, $98), $67, $68), $53, $54);
|
|
9846
9887
|
};
|
|
9847
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9888
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_421()(), $40, $3a, $3b);
|
|
9848
9889
|
};
|
|
9849
9890
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2f => $30 => FFI_GitHub_listRepoLabels($1, $0.a2, $0.a3, $2f, $30), $39, $2b, $2c);
|
|
9850
9891
|
};
|
|
@@ -9855,7 +9896,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
9855
9896
|
|
|
9856
9897
|
/* Config.settablePropsWithHelp : Config => String */
|
|
9857
9898
|
function Config_settablePropsWithHelp($0) {
|
|
9858
|
-
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 =>
|
|
9899
|
+
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 => Config_n__9547_2423_help($0, $9), Data_Config_settablePropNamesAndHelp())));
|
|
9859
9900
|
}
|
|
9860
9901
|
|
|
9861
9902
|
/* Config.setConfig : Config => String -> String -> Promise' Config */
|
|
@@ -9867,14 +9908,14 @@ function Config_setConfig($0, $1, $2) {
|
|
|
9867
9908
|
function Config_propSetter($0, $1) {
|
|
9868
9909
|
return $2 => {
|
|
9869
9910
|
switch($0) {
|
|
9870
|
-
case 0: return Config_update(
|
|
9871
|
-
case 1: return Config_update(
|
|
9872
|
-
case 2: return Config_update(
|
|
9873
|
-
case 3: return Config_update(
|
|
9874
|
-
case 4: return Config_update(
|
|
9875
|
-
case 5: return Config_update(
|
|
9876
|
-
case 6: return Config_update(
|
|
9877
|
-
case 7: return Config_update(
|
|
9911
|
+
case 0: return Config_update(csegen_426(), $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, a15: $c.a15, a16: $c.a16}), $1, $2);
|
|
9912
|
+
case 1: return Config_update(csegen_426(), $24 => Config_parseBool($24), b => $28 => ({a1: $28.a1, a2: $28.a2, a3: $28.a3, a4: $28.a4, a5: $28.a5, a6: $28.a6, a7: b, a8: $28.a8, a9: $28.a9, a10: $28.a10, a11: $28.a11, a12: $28.a12, a13: $28.a13, a14: $28.a14, a15: $28.a15, a16: $28.a16}), $1, $2);
|
|
9913
|
+
case 2: return Config_update(csegen_426(), $40 => Data_Config_CommentStrategy_parseCommentConfig(Data_String_toLower($40)), b => $46 => ({a1: $46.a1, a2: $46.a2, a3: $46.a3, a4: $46.a4, a5: $46.a5, a6: $46.a6, a7: $46.a7, a8: b, a9: $46.a9, a10: $46.a10, a11: $46.a11, a12: $46.a12, a13: $46.a13, a14: $46.a14, a15: $46.a15, a16: $46.a16}), $1, $2);
|
|
9914
|
+
case 3: return Config_update(csegen_426(), $5e => Data_Config_ParseBranchStrategy_parseBranchConfig(Data_String_toLower($5e)), s => $64 => ({a1: $64.a1, a2: $64.a2, a3: $64.a3, a4: $64.a4, a5: $64.a5, a6: $64.a6, a7: $64.a7, a8: $64.a8, a9: s, a10: $64.a10, a11: $64.a11, a12: $64.a12, a13: $64.a13, a14: $64.a14, a15: $64.a15, a16: $64.a16}), $1, $2);
|
|
9915
|
+
case 4: return Config_update(csegen_426(), $7c => ({a1: $7c}), s => $7f => ({a1: $7f.a1, a2: $7f.a2, a3: $7f.a3, a4: s, a5: $7f.a5, a6: $7f.a6, a7: $7f.a7, a8: $7f.a8, a9: $7f.a9, a10: $7f.a10, a11: $7f.a11, a12: $7f.a12, a13: $7f.a13, a14: $7f.a14, a15: $7f.a15, a16: $7f.a16}), $1, $2);
|
|
9916
|
+
case 5: return Config_update(csegen_426(), $97 => ({a1: $97}), s => $9a => ({a1: $9a.a1, a2: $9a.a2, a3: $9a.a3, a4: $9a.a4, a5: s, a6: $9a.a6, a7: $9a.a7, a8: $9a.a8, a9: $9a.a9, a10: $9a.a10, a11: $9a.a11, a12: $9a.a12, a13: $9a.a13, a14: $9a.a14, a15: $9a.a15, a16: $9a.a16}), $1, $2);
|
|
9917
|
+
case 6: return Config_update(csegen_426(), $b2 => Data_Theme_parseString($b2), t => $b6 => ({a1: $b6.a1, a2: $b6.a2, a3: $b6.a3, a4: $b6.a4, a5: $b6.a5, a6: $b6.a6, a7: $b6.a7, a8: $b6.a8, a9: $b6.a9, a10: $b6.a10, a11: $b6.a11, a12: $b6.a12, a13: $b6.a13, a14: $b6.a14, a15: t, a16: $b6.a16}), $1, $2);
|
|
9918
|
+
case 7: return Config_update(csegen_426(), $ce => ({a1: $ce}), s => $d1 => ({a1: $d1.a1, a2: $d1.a2, a3: $d1.a3, a4: $d1.a4, a5: $d1.a5, a6: $d1.a6, a7: $d1.a7, a8: $d1.a8, a9: $d1.a9, a10: $d1.a10, a11: $d1.a11, a12: $d1.a12, a13: $d1.a13, a14: {a1: s}, a15: $d1.a15, a16: $d1.a16}), $1, $2);
|
|
9878
9919
|
}
|
|
9879
9920
|
};
|
|
9880
9921
|
}
|
|
@@ -9904,7 +9945,7 @@ function Config_preferOriginRemote($0) {
|
|
|
9904
9945
|
|
|
9905
9946
|
/* Config.parseGitHubURI : String -> Maybe GitRemote */
|
|
9906
9947
|
function Config_parseGitHubURI($0) {
|
|
9907
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
9948
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(Config_n__8711_1560_parseHTTPS($0, $0), () => Config_n__8711_1561_parseSSH($0, $0));
|
|
9908
9949
|
}
|
|
9909
9950
|
|
|
9910
9951
|
/* Config.parseBool : String -> Maybe Bool */
|
|
@@ -9950,7 +9991,7 @@ function Config_loadOrCreateConfig($0, $1, $2, $3, $4, $5) {
|
|
|
9950
9991
|
|
|
9951
9992
|
/* Config.loadConfig : HasIO io => Bool -> Nat -> Maybe String -> io (Either ConfigError Config) */
|
|
9952
9993
|
function Config_loadConfig($0, $1, $2, $3) {
|
|
9953
|
-
const $4 = $5 => $6 => Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1,
|
|
9994
|
+
const $4 = $5 => $6 => Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, csegen_235(), csegen_256(), $5, $6);
|
|
9954
9995
|
const $1c = $1d => {
|
|
9955
9996
|
const $1e = Data_Either_maybeToEither(() => ({h: 3 /* FileNotFound */}), $1d);
|
|
9956
9997
|
switch($1e.h) {
|
|
@@ -10015,14 +10056,14 @@ function Config_findConfig($0, $1, $2) {
|
|
|
10015
10056
|
|
|
10016
10057
|
/* Config.dropPrefix' : String -> String -> Maybe String */
|
|
10017
10058
|
function Config_dropPrefixx27($0, $1) {
|
|
10018
|
-
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4),
|
|
10059
|
+
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4), Config_n__8664_1513_dropx27($0, Prelude_Types_fastUnpack($1)));
|
|
10019
10060
|
}
|
|
10020
10061
|
|
|
10021
10062
|
/* Config.createConfig : Maybe String -> Bool -> Nat -> Maybe String -> Promise' Config */
|
|
10022
10063
|
function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
10023
10064
|
const $24 = $25 => $26 => $27 => {
|
|
10024
10065
|
const $2c = $2d => {
|
|
10025
|
-
const $2f =
|
|
10066
|
+
const $2f = Config_n__9644_2530_enterForDefaultStr($3, $2, $1, $0, 'unset');
|
|
10026
10067
|
const $2e = () => $36 => $37 => {
|
|
10027
10068
|
const $61 = $62 => $63 => $64 => {
|
|
10028
10069
|
const $66 = $67 => $68 => {
|
|
@@ -10032,7 +10073,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10032
10073
|
default: return {a1: Data_String_trim($6b)};
|
|
10033
10074
|
}
|
|
10034
10075
|
};
|
|
10035
|
-
return Data_Promise_map_Functor_x28Promisex20x24ex29($6a,
|
|
10076
|
+
return Data_Promise_map_Functor_x28Promisex20x24ex29($6a, csegen_449()(), $67, $68);
|
|
10036
10077
|
};
|
|
10037
10078
|
const $77 = configPAT => $78 => $79 => {
|
|
10038
10079
|
const $85 = $86 => $87 => $88 => {
|
|
@@ -10041,17 +10082,17 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10041
10082
|
const $9b = remoteGuess => $9c => $9d => {
|
|
10042
10083
|
const $b9 = defaultOrgAndRepo => $ba => $bb => {
|
|
10043
10084
|
const $c0 = $c1 => {
|
|
10044
|
-
const $c3 =
|
|
10085
|
+
const $c3 = Config_n__9644_2529_defaultStr($3, $2, $1, $0, csegen_408()(), defaultOrgAndRepo);
|
|
10045
10086
|
const $c2 = () => $cd => $ce => {
|
|
10046
10087
|
const $ec = $ed => $ee => $ef => {
|
|
10047
10088
|
const $107 = org => $108 => $109 => {
|
|
10048
10089
|
const $10e = $10f => {
|
|
10049
|
-
const $111 =
|
|
10090
|
+
const $111 = Config_n__9644_2529_defaultStr($3, $2, $1, $0, csegen_361()(), defaultOrgAndRepo);
|
|
10050
10091
|
const $110 = () => $11b => $11c => {
|
|
10051
10092
|
const $13a = $13b => $13c => $13d => {
|
|
10052
10093
|
const $155 = repo => $156 => $157 => {
|
|
10053
10094
|
const $15c = $15d => {
|
|
10054
|
-
const $15f =
|
|
10095
|
+
const $15f = Config_n__9644_2530_enterForDefaultStr($3, $2, $1, $0, remoteGuess);
|
|
10055
10096
|
const $15e = () => $166 => $167 => {
|
|
10056
10097
|
const $185 = $186 => $187 => $188 => {
|
|
10057
10098
|
const $19b = defaultRemote => $19c => $19d => {
|
|
@@ -10085,7 +10126,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10085
10126
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($255 => $256 => Config_nonOrgFallback(() => ({h: 0}), $25a => $25b => FFI_GitHub_listTeams(_, org, $25a, $25b), $255, $256), $263, $251, $252);
|
|
10086
10127
|
};
|
|
10087
10128
|
};
|
|
10088
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10129
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_421()(), $23f, $239, $23a);
|
|
10089
10130
|
};
|
|
10090
10131
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($230 => $231 => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $230, $231), $238, $22c, $22d);
|
|
10091
10132
|
};
|
|
@@ -10093,53 +10134,53 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10093
10134
|
};
|
|
10094
10135
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($20d => $20e => $20f => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($212 => FFI_GitHub_octokit($86.a1, $212), $20d, $20e, $20f), $219, $209, $20a);
|
|
10095
10136
|
};
|
|
10096
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10137
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $207, $201, $202);
|
|
10097
10138
|
};
|
|
10098
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10139
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9644_2534_themePrompt($3, $2, $1, $0, csegen_88()()), $200, $1f4, $1f5);
|
|
10099
10140
|
};
|
|
10100
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10141
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $1f2, $1ec, $1ed);
|
|
10101
10142
|
};
|
|
10102
10143
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_88()(), 1, 'Would you like harmony to request reviews from individual users when it requests a teams review?'), $1eb, $1e1, $1e2);
|
|
10103
10144
|
};
|
|
10104
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10145
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $1df, $1d9, $1da);
|
|
10105
10146
|
};
|
|
10106
10147
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_88()(), 1, 'Would you like harmony to request reviews from teams when it requests reviewers?'), $1d8, $1ce, $1cf);
|
|
10107
10148
|
};
|
|
10108
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10149
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $1cc, $1c6, $1c7);
|
|
10109
10150
|
};
|
|
10110
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10151
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9644_2527_branchParsingPrompt($3, $2, $1, $0, csegen_88()()), $1c5, $1b9, $1ba);
|
|
10111
10152
|
};
|
|
10112
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10153
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $1b7, $1b1, $1b2);
|
|
10113
10154
|
};
|
|
10114
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10155
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9644_2528_commentConfigPrompt($3, $2, $1, $0, csegen_88()()), $1b0, $1a4, $1a5);
|
|
10115
10156
|
};
|
|
10116
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10157
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $1a2, $19c, $19d);
|
|
10117
10158
|
};
|
|
10118
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($18b => $18c => Data_Promise_map_Functor_x28Promisex20x24ex29($18f => Util_Prompting_orIfEmpty({a1: remoteGuess}, Data_String_trim($18f)),
|
|
10159
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($18b => $18c => Data_Promise_map_Functor_x28Promisex20x24ex29($18f => Util_Prompting_orIfEmpty({a1: remoteGuess}, Data_String_trim($18f)), csegen_449()(), $18b, $18c), $19b, $187, $188);
|
|
10119
10160
|
};
|
|
10120
10161
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($16a => $16b => $16c => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($16f => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $178 => $178, {a1: 'What GitHub remote repo would you like to use harmony for', a2: {a1: $15f, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $16f), $16a, $16b, $16c), $185, $166, $167);
|
|
10121
10162
|
};
|
|
10122
10163
|
return $15e();
|
|
10123
10164
|
};
|
|
10124
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10165
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $15c, $156, $157);
|
|
10125
10166
|
};
|
|
10126
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($140 => $141 => Data_Promise_map_Functor_x28Promisex20x24ex29($144 => Util_Prompting_orIfEmpty(
|
|
10167
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($140 => $141 => Data_Promise_map_Functor_x28Promisex20x24ex29($144 => Util_Prompting_orIfEmpty(Config_n__9644_2533_repo($3, $2, $1, $0, defaultOrgAndRepo), Data_String_trim($144)), csegen_449()(), $140, $141), $155, $13c, $13d);
|
|
10127
10168
|
};
|
|
10128
10169
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11f => $120 => $121 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($124 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $12d => $12d, {a1: 'What repository would you like to use harmony for', a2: {a1: $111, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $124), $11f, $120, $121), $13a, $11b, $11c);
|
|
10129
10170
|
};
|
|
10130
10171
|
return $110();
|
|
10131
10172
|
};
|
|
10132
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10173
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $10e, $108, $109);
|
|
10133
10174
|
};
|
|
10134
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f2 => $f3 => Data_Promise_map_Functor_x28Promisex20x24ex29($f6 => Util_Prompting_orIfEmpty(
|
|
10175
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f2 => $f3 => Data_Promise_map_Functor_x28Promisex20x24ex29($f6 => Util_Prompting_orIfEmpty(Config_n__9644_2532_org($3, $2, $1, $0, defaultOrgAndRepo), Data_String_trim($f6)), csegen_449()(), $f2, $f3), $107, $ee, $ef);
|
|
10135
10176
|
};
|
|
10136
10177
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($d1 => $d2 => $d3 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d6 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $df => $df, {a1: 'What GitHub org would you like to use harmony for', a2: {a1: $c3, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $d6), $d1, $d2, $d3), $ec, $cd, $ce);
|
|
10137
10178
|
};
|
|
10138
10179
|
return $c2();
|
|
10139
10180
|
};
|
|
10140
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10181
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $c0, $ba, $bb);
|
|
10141
10182
|
};
|
|
10142
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a0 => $a1 => Data_Promise_x3cx7cx3e_Alternative_x28Promisex20Stringx29($a4 => $a5 => Data_Promise_map_Functor_x28Promisex20x24ex29($a8 => Config_parseGitHubURI($a8), $ac => $ad => System_Git_remoteURI(remoteGuess, $ac, $ad), $a4, $a5), () =>
|
|
10183
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a0 => $a1 => Data_Promise_x3cx7cx3e_Alternative_x28Promisex20Stringx29($a4 => $a5 => Data_Promise_map_Functor_x28Promisex20x24ex29($a8 => Config_parseGitHubURI($a8), $ac => $ad => System_Git_remoteURI(remoteGuess, $ac, $ad), $a4, $a5), () => csegen_453()(), $a0, $a1), $b9, $9c, $9d);
|
|
10143
10184
|
};
|
|
10144
10185
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8c => $8d => Data_Promise_map_Functor_x28Promisex20x24ex29($90 => Config_preferOriginRemote($90), $94 => $95 => System_Git_listRemotes($94, $95), $8c, $8d), $9b, $87, $88);
|
|
10145
10186
|
}
|
|
@@ -10154,19 +10195,19 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10154
10195
|
};
|
|
10155
10196
|
return $2e();
|
|
10156
10197
|
};
|
|
10157
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10198
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $2c, $26, $27);
|
|
10158
10199
|
};
|
|
10159
10200
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8 => $9 => $a => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $16 => $16, {a1: 'Creating a new configuration (storing in ', a2: {a1: Data_Config_filename(), a2: {a1: ')...', a2: {h: 0}}}})+'\n'), $d), $8, $9, $a), $24, $4, $5);
|
|
10160
10201
|
}
|
|
10161
10202
|
|
|
10162
10203
|
/* Config.checkConfigConsistency : Config -> Either (Doc AnsiStyle) () */
|
|
10163
10204
|
function Config_checkConfigConsistency($0) {
|
|
10164
|
-
return
|
|
10205
|
+
return Config_n__8553_1406_checkRequestSettings($0, $0);
|
|
10165
10206
|
}
|
|
10166
10207
|
|
|
10167
10208
|
/* Config.addIgnoredPRs : Config -> List Integer -> Promise' Config */
|
|
10168
10209
|
function Config_addIgnoredPRs($0, $1, $2, $3) {
|
|
10169
|
-
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: $0.a12, a13: Data_List_nub(
|
|
10210
|
+
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: $0.a12, a13: Data_List_nub(csegen_313(), Prelude_Types_List_tailRecAppend($0.a13, $1)), a14: $0.a14, a15: $0.a15, a16: $0.a16}, $2, $3);
|
|
10170
10211
|
}
|
|
10171
10212
|
|
|
10172
10213
|
/* Data.List.PrefixSuffix.with block in with block in dropPrefix */
|
|
@@ -10218,21 +10259,21 @@ function AppVersion_printVersion($0) {
|
|
|
10218
10259
|
|
|
10219
10260
|
/* AppVersion.appVersion : String */
|
|
10220
10261
|
const AppVersion_appVersion = __lazy(function () {
|
|
10221
|
-
return '6.1.
|
|
10262
|
+
return '6.1.1';
|
|
10222
10263
|
});
|
|
10223
10264
|
|
|
10224
10265
|
/* Commands.Help.subcommandHelp' : String -> Doc AnsiStyle */
|
|
10225
10266
|
function Commands_Help_subcommandHelpx27($0) {
|
|
10226
10267
|
switch($0) {
|
|
10227
|
-
case 'label': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<label>'), a2:
|
|
10228
|
-
case 'request': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<team-slug> | +<user-login>'), a2:
|
|
10268
|
+
case 'label': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<label>'), a2: csegen_467()}, {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Util_reflow('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_Util_reflow('Labels that do not exist yet will be created automatically.')), a2: {h: 0}});
|
|
10269
|
+
case 'request': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<team-slug> | +<user-login>'), a2: csegen_472()}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $2b => $2b, {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_65()(), $38 => $38, {a1: 'Also request reviews from any users with logins specified. You specify\nthese additional users by prefixing their logins with \'+\'.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally apply any number of labels by prefixing them with \'#\'.'), a2: {h: 0}}}});
|
|
10229
10270
|
case 'config': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<property>'), a2: {a1: Commands_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_65()(), $5f => $5f, {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()), Commands_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}, $88 => Commands_Help_option($88), Data_Config_settablePropNames())))), a2: {h: 0}});
|
|
10230
|
-
case 'pr': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--ready'), a2: {a1: Commands_Help_argument(0, '--draft'), a2: {a1: Commands_Help_argument(0, '-i/--into {<branch-name>}'), a2:
|
|
10271
|
+
case 'pr': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--ready'), a2: {a1: Commands_Help_argument(0, '--draft'), a2: {a1: Commands_Help_argument(0, '-i/--into {<branch-name>}'), a2: csegen_472()}}}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Identify an existing PR or create a new one for the current branch.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally apply any number of labels by prefixing them with \'#\'.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally mark a new or existing PR as a draft with the --draft flag.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally mark an existing PR as ready for review with the --ready flag.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally specify the branch to merge into with the --into option.'), a2: {h: 0}}}}}});
|
|
10231
10272
|
case 'contribute': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '-c/--checkout | -l/--list'), a2: {a1: Commands_Help_argument(0, '-<num>'), a2: {a1: Commands_Help_argument(0, '-i/--ignore {<uri>/<pr-number>}'), a2: {h: 0}}}}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $d1 => $d1, {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_65()(), $de => $de, {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_65()(), $eb => $eb, {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: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $f8 => $f8, {a1: 'Use --list to list multiple PRs instead of just one. This option \nsupports skipping PRs but does not support the checkout option because\nthere is no single PR that should be checked out.', a2: {h: 0}})), a2: {h: 0}}}}});
|
|
10232
10273
|
case 'graph': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '-c/--completed'), a2: {a1: Commands_Help_argument(1, '<team-slug>'), a2: {h: 0}}}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Graph the relative review workload of the members of the given GitHub Team.'), a2: {h: 0}});
|
|
10233
10274
|
case 'help': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '<subcommand>'), a2: {h: 0}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print help'), a2: {h: 0}});
|
|
10234
10275
|
case 'version': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print version'), a2: {h: 0}});
|
|
10235
|
-
case 'quick': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--bugfix'), a2: {a1: Commands_Help_argument(0, '<title>'), a2:
|
|
10276
|
+
case 'quick': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--bugfix'), a2: {a1: Commands_Help_argument(0, '<title>'), a2: csegen_467()}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Quickly spin up new work with a GitHub issue and associated feature branch. If you have harmony configured to parse GitHub issue numbers ('), a2: {a1: Commands_Help_shell('harmony config branchParsing github'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(') then any PR created from the new branch will automatically link to the new ticket in its description.'), a2: {h: 0}}}}), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $14b => $14b, {a1: 'By default the branch will have the \'feature\' prefix. If the\n--bugfix flag is specified, the \'bugfix\' prefix will be used.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $158 => $158, {a1: 'All additional arguments other than --bugfix will be used as the issue\ntitle. If you don\'t give any arguments then you will be prompted to enter\nthe issue title interactively. You will also be prompted for the issue\ndescription.', a2: {h: 0}})), a2: {h: 0}}}});
|
|
10236
10277
|
case 'sync': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Synchronize local config with information from GitHub.'), a2: {h: 0}});
|
|
10237
10278
|
case 'branch': return Commands_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}});
|
|
10238
10279
|
case 'whoami': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Print information about the configured and authenticated user.'), a2: {h: 0}});
|
|
@@ -10367,7 +10408,7 @@ function Commands_case__casex20blockx20inx20graph_22300($0, $1, $2, $3, $4, $5,
|
|
|
10367
10408
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 0}, $d, $e);
|
|
10368
10409
|
}
|
|
10369
10410
|
};
|
|
10370
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c, completedReviews => Util_renderIO($2, csegen_88()(), Commands_Graph_reviewsGraph($2, $2e => Commands_Graph_length_HasLength_String($2e),
|
|
10411
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c, completedReviews => Util_renderIO($2, csegen_88()(), Commands_Graph_reviewsGraph($2, $2e => Commands_Graph_length_HasLength_String($2e), csegen_310(), {a1: ann => $35 => Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($35), a2: ann => $39 => $3a => Text_PrettyPrint_Prettyprinter_Doc_prettyPrec_Pretty_String($39, $3a)}, $7.a2, $7.a1, $5, completedReviews)), $8, $9);
|
|
10371
10412
|
};
|
|
10372
10413
|
}
|
|
10373
10414
|
|
|
@@ -10431,7 +10472,7 @@ function Commands_case__request_21539($0, $1, $2, $3, $4) {
|
|
|
10431
10472
|
case 1: /* Hypothetical */ return Data_Promise_reject('You cannot request review on a PR that has not been created yet and you cannot create the PR in this non-TTY shell', $2a, $2b);
|
|
10432
10473
|
}
|
|
10433
10474
|
};
|
|
10434
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10475
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_642(), $1b => $1c => $1d => Commands_PullRequest_identifyOrCreatePR($0, $1, 0, {h: 0}, $1b, $1c, $1d), $15, $16), $28, $6, $8);
|
|
10435
10476
|
}
|
|
10436
10477
|
}
|
|
10437
10478
|
};
|
|
@@ -10439,7 +10480,7 @@ function Commands_case__request_21539($0, $1, $2, $3, $4) {
|
|
|
10439
10480
|
|
|
10440
10481
|
/* Commands.case block in case block in request,partitionedArgs */
|
|
10441
10482
|
function Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_21463($0, $1, $2, $3, $4, $5, $6) {
|
|
10442
|
-
const $8 = Prelude_Interfaces_mapHom(
|
|
10483
|
+
const $8 = Prelude_Interfaces_mapHom(csegen_656(), $e => Prelude_Types_List_mapAppend({h: 0}, $12 => Data_String_Extra_drop(1n, $12), $e))({a1: $4, a2: $6.a1});
|
|
10443
10484
|
return {a1: $8.a1, a2: {a1: $6.a2, a2: $8.a2}};
|
|
10444
10485
|
}
|
|
10445
10486
|
|
|
@@ -10448,30 +10489,30 @@ function Commands_case__requestx2cpartitionedArgs_21442($0, $1, $2, $3, $4) {
|
|
|
10448
10489
|
return Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_21463($0, $1, $2, $3, $4.a1, $4.a2, Data_List_partition($10 => ShellCompletion_Util_isHashPrefix($10), $4.a2));
|
|
10449
10490
|
}
|
|
10450
10491
|
|
|
10451
|
-
/* Commands.
|
|
10452
|
-
function
|
|
10492
|
+
/* Commands.8993:20478:recombineIntoArgs */
|
|
10493
|
+
function Commands_n__8993_20478_recombineIntoArgs($0, $1) {
|
|
10453
10494
|
switch($1.h) {
|
|
10454
10495
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
10455
10496
|
case undefined: /* cons */ {
|
|
10456
10497
|
switch($1.a1) {
|
|
10457
10498
|
case '-i': {
|
|
10458
10499
|
switch($1.a2.h) {
|
|
10459
|
-
case 0: /* nil */ return
|
|
10500
|
+
case 0: /* nil */ return csegen_660();
|
|
10460
10501
|
case undefined: /* cons */ {
|
|
10461
|
-
const $8 =
|
|
10502
|
+
const $8 = Commands_n__8993_20475_parseIntoOpt($0, $1.a2.a1);
|
|
10462
10503
|
switch($8.h) {
|
|
10463
10504
|
case undefined: /* just */ {
|
|
10464
|
-
const $c =
|
|
10505
|
+
const $c = Commands_n__8993_20478_recombineIntoArgs($0, $1.a2.a2);
|
|
10465
10506
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
10466
10507
|
}
|
|
10467
10508
|
case 0: /* nothing */ {
|
|
10468
|
-
const $14 =
|
|
10509
|
+
const $14 = Commands_n__8993_20478_recombineIntoArgs($0, $1.a2.a2);
|
|
10469
10510
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
10470
10511
|
}
|
|
10471
10512
|
}
|
|
10472
10513
|
}
|
|
10473
10514
|
default: {
|
|
10474
|
-
const $1e =
|
|
10515
|
+
const $1e = Commands_n__8993_20478_recombineIntoArgs($0, $1.a2);
|
|
10475
10516
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
10476
10517
|
}
|
|
10477
10518
|
}
|
|
@@ -10480,26 +10521,26 @@ function Commands_n__8992_20478_recombineIntoArgs($0, $1) {
|
|
|
10480
10521
|
switch($1.a2.h) {
|
|
10481
10522
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--into', a2: {h: 0}}};
|
|
10482
10523
|
case undefined: /* cons */ {
|
|
10483
|
-
const $2b =
|
|
10524
|
+
const $2b = Commands_n__8993_20475_parseIntoOpt($0, $1.a2.a1);
|
|
10484
10525
|
switch($2b.h) {
|
|
10485
10526
|
case undefined: /* just */ {
|
|
10486
|
-
const $2f =
|
|
10527
|
+
const $2f = Commands_n__8993_20478_recombineIntoArgs($0, $1.a2.a2);
|
|
10487
10528
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
10488
10529
|
}
|
|
10489
10530
|
case 0: /* nothing */ {
|
|
10490
|
-
const $37 =
|
|
10531
|
+
const $37 = Commands_n__8993_20478_recombineIntoArgs($0, $1.a2.a2);
|
|
10491
10532
|
return {a1: $37.a1, a2: {a1: '--into', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
10492
10533
|
}
|
|
10493
10534
|
}
|
|
10494
10535
|
}
|
|
10495
10536
|
default: {
|
|
10496
|
-
const $41 =
|
|
10537
|
+
const $41 = Commands_n__8993_20478_recombineIntoArgs($0, $1.a2);
|
|
10497
10538
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
10498
10539
|
}
|
|
10499
10540
|
}
|
|
10500
10541
|
}
|
|
10501
10542
|
default: {
|
|
10502
|
-
const $49 =
|
|
10543
|
+
const $49 = Commands_n__8993_20478_recombineIntoArgs($0, $1.a2);
|
|
10503
10544
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
10504
10545
|
}
|
|
10505
10546
|
}
|
|
@@ -10507,30 +10548,30 @@ function Commands_n__8992_20478_recombineIntoArgs($0, $1) {
|
|
|
10507
10548
|
}
|
|
10508
10549
|
}
|
|
10509
10550
|
|
|
10510
|
-
/* Commands.
|
|
10511
|
-
function
|
|
10551
|
+
/* Commands.11144:22520:recombineIgnoreArgs */
|
|
10552
|
+
function Commands_n__11144_22520_recombineIgnoreArgs($0, $1) {
|
|
10512
10553
|
switch($1.h) {
|
|
10513
10554
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
10514
10555
|
case undefined: /* cons */ {
|
|
10515
10556
|
switch($1.a1) {
|
|
10516
10557
|
case '-i': {
|
|
10517
10558
|
switch($1.a2.h) {
|
|
10518
|
-
case 0: /* nil */ return
|
|
10559
|
+
case 0: /* nil */ return csegen_660();
|
|
10519
10560
|
case undefined: /* cons */ {
|
|
10520
|
-
const $8 =
|
|
10561
|
+
const $8 = Commands_n__11144_22517_parseIgnoreOpt($0, $1.a2.a1);
|
|
10521
10562
|
switch($8.h) {
|
|
10522
10563
|
case undefined: /* just */ {
|
|
10523
|
-
const $c =
|
|
10564
|
+
const $c = Commands_n__11144_22520_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10524
10565
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
10525
10566
|
}
|
|
10526
10567
|
case 0: /* nothing */ {
|
|
10527
|
-
const $14 =
|
|
10568
|
+
const $14 = Commands_n__11144_22520_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10528
10569
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
10529
10570
|
}
|
|
10530
10571
|
}
|
|
10531
10572
|
}
|
|
10532
10573
|
default: {
|
|
10533
|
-
const $1e =
|
|
10574
|
+
const $1e = Commands_n__11144_22520_recombineIgnoreArgs($0, $1.a2);
|
|
10534
10575
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
10535
10576
|
}
|
|
10536
10577
|
}
|
|
@@ -10539,26 +10580,26 @@ function Commands_n__11143_22520_recombineIgnoreArgs($0, $1) {
|
|
|
10539
10580
|
switch($1.a2.h) {
|
|
10540
10581
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
|
|
10541
10582
|
case undefined: /* cons */ {
|
|
10542
|
-
const $2b =
|
|
10583
|
+
const $2b = Commands_n__11144_22517_parseIgnoreOpt($0, $1.a2.a1);
|
|
10543
10584
|
switch($2b.h) {
|
|
10544
10585
|
case undefined: /* just */ {
|
|
10545
|
-
const $2f =
|
|
10586
|
+
const $2f = Commands_n__11144_22520_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10546
10587
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
10547
10588
|
}
|
|
10548
10589
|
case 0: /* nothing */ {
|
|
10549
|
-
const $37 =
|
|
10590
|
+
const $37 = Commands_n__11144_22520_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10550
10591
|
return {a1: $37.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
10551
10592
|
}
|
|
10552
10593
|
}
|
|
10553
10594
|
}
|
|
10554
10595
|
default: {
|
|
10555
|
-
const $41 =
|
|
10596
|
+
const $41 = Commands_n__11144_22520_recombineIgnoreArgs($0, $1.a2);
|
|
10556
10597
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
10557
10598
|
}
|
|
10558
10599
|
}
|
|
10559
10600
|
}
|
|
10560
10601
|
default: {
|
|
10561
|
-
const $49 =
|
|
10602
|
+
const $49 = Commands_n__11144_22520_recombineIgnoreArgs($0, $1.a2);
|
|
10562
10603
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
10563
10604
|
}
|
|
10564
10605
|
}
|
|
@@ -10566,23 +10607,23 @@ function Commands_n__11143_22520_recombineIgnoreArgs($0, $1) {
|
|
|
10566
10607
|
}
|
|
10567
10608
|
}
|
|
10568
10609
|
|
|
10569
|
-
/* Commands.
|
|
10570
|
-
function
|
|
10610
|
+
/* Commands.10358:21764:putNameLn */
|
|
10611
|
+
function Commands_n__10358_21764_putNameLn($0, $1, $2, $3) {
|
|
10571
10612
|
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}}}});
|
|
10572
10613
|
}
|
|
10573
10614
|
|
|
10574
|
-
/* Commands.
|
|
10575
|
-
function
|
|
10576
|
-
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $e =>
|
|
10615
|
+
/* Commands.8741:20218:putLabels */
|
|
10616
|
+
function Commands_n__8741_20218_putLabels($0, $1, $2, $3) {
|
|
10617
|
+
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $e => Commands_n__8741_20217_putLabel($0, $1, $2, $e), $3)));
|
|
10577
10618
|
}
|
|
10578
10619
|
|
|
10579
|
-
/* Commands.
|
|
10580
|
-
function
|
|
10620
|
+
/* Commands.8741:20217:putLabel */
|
|
10621
|
+
function Commands_n__8741_20217_putLabel($0, $1, $2, $3) {
|
|
10581
10622
|
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($3)));
|
|
10582
10623
|
}
|
|
10583
10624
|
|
|
10584
|
-
/* Commands.
|
|
10585
|
-
function
|
|
10625
|
+
/* Commands.11496:22875:printDetails */
|
|
10626
|
+
function Commands_n__11496_22875_printDetails($0, $1, $2, $3) {
|
|
10586
10627
|
const $4 = Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a8));
|
|
10587
10628
|
const $c = Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' \u{251c} title: '), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a2));
|
|
10588
10629
|
const $15 = Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' \u{251c} created:'), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date($3.a3)));
|
|
@@ -10591,8 +10632,8 @@ function Commands_n__11495_22875_printDetails($0, $1, $2, $3) {
|
|
|
10591
10632
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: $4, a2: {a1: $c, a2: {a1: $15, a2: {a1: $20, a2: {a1: $2e, a2: {h: 0}}}}}});
|
|
10592
10633
|
}
|
|
10593
10634
|
|
|
10594
|
-
/* Commands.
|
|
10595
|
-
function
|
|
10635
|
+
/* Commands.11496:22874:pickOne */
|
|
10636
|
+
function Commands_n__11496_22874_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10596
10637
|
const $8 = Data_List_headx27(Data_List_drop($4, Prelude_Types_List_tailRecAppend($6, $7)));
|
|
10597
10638
|
return $11 => $12 => {
|
|
10598
10639
|
switch($8.h) {
|
|
@@ -10606,7 +10647,7 @@ function Commands_n__11495_22874_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
10606
10647
|
break;
|
|
10607
10648
|
}
|
|
10608
10649
|
case 0: /* nothing */ {
|
|
10609
|
-
$19 =
|
|
10650
|
+
$19 = csegen_665();
|
|
10610
10651
|
break;
|
|
10611
10652
|
}
|
|
10612
10653
|
}
|
|
@@ -10616,31 +10657,31 @@ function Commands_n__11495_22874_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
10616
10657
|
};
|
|
10617
10658
|
}
|
|
10618
10659
|
|
|
10619
|
-
/* Commands.
|
|
10620
|
-
function
|
|
10660
|
+
/* Commands.9988:21430:partitionedArgs */
|
|
10661
|
+
function Commands_n__9988_21430_partitionedArgs($0, $1, $2, $3) {
|
|
10621
10662
|
return Commands_case__requestx2cpartitionedArgs_21442($0, $1, $2, $3, Data_List_partition($c => Data_String_isPrefixOf('+', $c), $3));
|
|
10622
10663
|
}
|
|
10623
10664
|
|
|
10624
|
-
/* Commands.
|
|
10625
|
-
function
|
|
10665
|
+
/* Commands.10526:21952:parseTeamArg */
|
|
10666
|
+
function Commands_n__10526_21952_parseTeamArg($0, $1) {
|
|
10626
10667
|
return {a1: {a1: $1}};
|
|
10627
10668
|
}
|
|
10628
10669
|
|
|
10629
|
-
/* Commands.
|
|
10630
|
-
function
|
|
10670
|
+
/* Commands.11144:22519:parseSkipArg */
|
|
10671
|
+
function Commands_n__11144_22519_parseSkipArg($0, $1) {
|
|
10631
10672
|
return Commands_case__parseContributeArgsx2cparseSkipArg_22566($0, $1, Data_String_strM($1));
|
|
10632
10673
|
}
|
|
10633
10674
|
|
|
10634
|
-
/* Commands.
|
|
10635
|
-
function
|
|
10675
|
+
/* Commands.8993:20477:parseReadyFlag */
|
|
10676
|
+
function Commands_n__8993_20477_parseReadyFlag($0, $1) {
|
|
10636
10677
|
switch($1) {
|
|
10637
10678
|
case '--ready': return {a1: {h: 1 /* Ready */}};
|
|
10638
10679
|
default: return {h: 0};
|
|
10639
10680
|
}
|
|
10640
10681
|
}
|
|
10641
10682
|
|
|
10642
|
-
/* Commands.
|
|
10643
|
-
function
|
|
10683
|
+
/* Commands.11144:22518:parseListFlag */
|
|
10684
|
+
function Commands_n__11144_22518_parseListFlag($0, $1) {
|
|
10644
10685
|
switch($1) {
|
|
10645
10686
|
case '-l': return {a1: {h: 0 /* List */}};
|
|
10646
10687
|
case '--list': return {a1: {h: 0 /* List */}};
|
|
@@ -10648,8 +10689,8 @@ function Commands_n__11143_22518_parseListFlag($0, $1) {
|
|
|
10648
10689
|
}
|
|
10649
10690
|
}
|
|
10650
10691
|
|
|
10651
|
-
/* Commands.
|
|
10652
|
-
function
|
|
10692
|
+
/* Commands.8993:20476:parseLabelArg */
|
|
10693
|
+
function Commands_n__8993_20476_parseLabelArg($0, $1) {
|
|
10653
10694
|
const $2 = Data_String_strM($1);
|
|
10654
10695
|
switch($2.h) {
|
|
10655
10696
|
case undefined: /* cons */ {
|
|
@@ -10662,29 +10703,29 @@ function Commands_n__8992_20476_parseLabelArg($0, $1) {
|
|
|
10662
10703
|
}
|
|
10663
10704
|
}
|
|
10664
10705
|
|
|
10665
|
-
/* Commands.
|
|
10666
|
-
function
|
|
10706
|
+
/* Commands.8993:20475:parseIntoOpt */
|
|
10707
|
+
function Commands_n__8993_20475_parseIntoOpt($0, $1) {
|
|
10667
10708
|
const $2 = Util_String_nonEmpty($1);
|
|
10668
10709
|
return Prelude_Types_map_Functor_Maybe($7 => $7, $2);
|
|
10669
10710
|
}
|
|
10670
10711
|
|
|
10671
|
-
/* Commands.
|
|
10672
|
-
function
|
|
10673
|
-
const $2 = Data_String_split(
|
|
10712
|
+
/* Commands.11144:22517:parseIgnoreOpt */
|
|
10713
|
+
function Commands_n__11144_22517_parseIgnoreOpt($0, $1) {
|
|
10714
|
+
const $2 = Data_String_split(csegen_402(), $1);
|
|
10674
10715
|
const $7 = Data_List1_last($2);
|
|
10675
10716
|
return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
|
|
10676
10717
|
}
|
|
10677
10718
|
|
|
10678
|
-
/* Commands.
|
|
10679
|
-
function
|
|
10719
|
+
/* Commands.8993:20474:parseDraftFlag */
|
|
10720
|
+
function Commands_n__8993_20474_parseDraftFlag($0, $1) {
|
|
10680
10721
|
switch($1) {
|
|
10681
10722
|
case '--draft': return {a1: {h: 0 /* Draft */}};
|
|
10682
10723
|
default: return {h: 0};
|
|
10683
10724
|
}
|
|
10684
10725
|
}
|
|
10685
10726
|
|
|
10686
|
-
/* Commands.
|
|
10687
|
-
function
|
|
10727
|
+
/* Commands.10526:21951:parseCompletedFlag */
|
|
10728
|
+
function Commands_n__10526_21951_parseCompletedFlag($0, $1) {
|
|
10688
10729
|
switch($1) {
|
|
10689
10730
|
case '-c': return {a1: {h: 0}};
|
|
10690
10731
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -10692,8 +10733,8 @@ function Commands_n__10525_21951_parseCompletedFlag($0, $1) {
|
|
|
10692
10733
|
}
|
|
10693
10734
|
}
|
|
10694
10735
|
|
|
10695
|
-
/* Commands.
|
|
10696
|
-
function
|
|
10736
|
+
/* Commands.11144:22516:parseCheckoutFlag */
|
|
10737
|
+
function Commands_n__11144_22516_parseCheckoutFlag($0, $1) {
|
|
10697
10738
|
switch($1) {
|
|
10698
10739
|
case '-c': return {a1: {h: 1 /* Checkout */}};
|
|
10699
10740
|
case '--checkout': return {a1: {h: 1 /* Checkout */}};
|
|
@@ -10701,8 +10742,8 @@ function Commands_n__11143_22516_parseCheckoutFlag($0, $1) {
|
|
|
10701
10742
|
}
|
|
10702
10743
|
}
|
|
10703
10744
|
|
|
10704
|
-
/* Commands.
|
|
10705
|
-
function
|
|
10745
|
+
/* Commands.9459:20943:markAsReady */
|
|
10746
|
+
function Commands_n__9459_20943_markAsReady($0, $1, $2) {
|
|
10706
10747
|
const $6 = $7 => {
|
|
10707
10748
|
switch($7.h) {
|
|
10708
10749
|
case 1: /* Ready */ return 1;
|
|
@@ -10713,8 +10754,8 @@ function Commands_n__9458_20943_markAsReady($0, $1, $2) {
|
|
|
10713
10754
|
return Data_Maybe_isJust($4);
|
|
10714
10755
|
}
|
|
10715
10756
|
|
|
10716
|
-
/* Commands.
|
|
10717
|
-
function
|
|
10757
|
+
/* Commands.9459:20942:markAsDraft */
|
|
10758
|
+
function Commands_n__9459_20942_markAsDraft($0, $1, $2) {
|
|
10718
10759
|
const $6 = $7 => {
|
|
10719
10760
|
switch($7.h) {
|
|
10720
10761
|
case 0: /* Draft */ return 1;
|
|
@@ -10725,8 +10766,8 @@ function Commands_n__9458_20942_markAsDraft($0, $1, $2) {
|
|
|
10725
10766
|
return Data_Maybe_isJust($4);
|
|
10726
10767
|
}
|
|
10727
10768
|
|
|
10728
|
-
/* Commands.
|
|
10729
|
-
function
|
|
10769
|
+
/* Commands.11496:22873:listSome */
|
|
10770
|
+
function Commands_n__11496_22873_listSome($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10730
10771
|
const $13 = $14 => {
|
|
10731
10772
|
let $19;
|
|
10732
10773
|
switch(Prelude_Types_null_Foldable_List($5)) {
|
|
@@ -10739,13 +10780,13 @@ function Commands_n__11495_22873_listSome($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
10739
10780
|
break;
|
|
10740
10781
|
}
|
|
10741
10782
|
}
|
|
10742
|
-
return Prelude_Interfaces_when(csegen_80()(), $19, () => $1e => $1f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10783
|
+
return Prelude_Interfaces_when(csegen_80()(), $19, () => $1e => $1f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $25 => $26 => $27 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_renderIO($2, csegen_88()(), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_bold(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Your review not requested:'))), $37 => Commands_n__11496_22871_goListSome($0, $1, $2, 0, Data_List_take(5n, $5)), $26, $27), $1e, $1f));
|
|
10743
10784
|
};
|
|
10744
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10785
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_n__11496_22871_goListSome($0, $1, $2, 1, Data_List_drop($3, $4)), $13, $6, $7);
|
|
10745
10786
|
}
|
|
10746
10787
|
|
|
10747
|
-
/* Commands.
|
|
10748
|
-
function
|
|
10788
|
+
/* Commands.9459:20941:labelSlugs */
|
|
10789
|
+
function Commands_n__9459_20941_labelSlugs($0, $1, $2) {
|
|
10749
10790
|
const $4 = $5 => $6 => {
|
|
10750
10791
|
switch($5.h) {
|
|
10751
10792
|
case 3: /* Label */ return {a1: $5.a1, a2: $6};
|
|
@@ -10755,13 +10796,13 @@ function Commands_n__9458_20941_labelSlugs($0, $1, $2) {
|
|
|
10755
10796
|
return Prelude_Types_foldr_Foldable_List($4, {h: 0}, $2);
|
|
10756
10797
|
}
|
|
10757
10798
|
|
|
10758
|
-
/* Commands.
|
|
10759
|
-
function
|
|
10799
|
+
/* Commands.11496:22872:isNotIgnored */
|
|
10800
|
+
function Commands_n__11496_22872_isNotIgnored($0, $1, $2, $3, $4) {
|
|
10760
10801
|
return Data_Maybe_isNothing(Data_List_find($9 => Prelude_EqOrd_x3dx3d_Eq_Integer($9, $4.a1), $3.a13));
|
|
10761
10802
|
}
|
|
10762
10803
|
|
|
10763
|
-
/* Commands.
|
|
10764
|
-
function
|
|
10804
|
+
/* Commands.9459:20940:intoBranch */
|
|
10805
|
+
function Commands_n__9459_20940_intoBranch($0, $1, $2) {
|
|
10765
10806
|
const $c = $d => {
|
|
10766
10807
|
switch($d.h) {
|
|
10767
10808
|
case 2: /* Into */ return {a1: Util_String_value($d.a1)};
|
|
@@ -10771,11 +10812,11 @@ function Commands_n__9458_20940_intoBranch($0, $1, $2) {
|
|
|
10771
10812
|
return Prelude_Types_foldMap_Foldable_List({a1: $6 => $7 => Prelude_Types_x3cx2bx3e_Semigroup_x28Maybex20x24ax29($6, $7), a2: {h: 0}}, $c, $2);
|
|
10772
10813
|
}
|
|
10773
10814
|
|
|
10774
|
-
/* Commands.
|
|
10775
|
-
function
|
|
10815
|
+
/* Commands.11496:22871:goListSome */
|
|
10816
|
+
function Commands_n__11496_22871_goListSome($0, $1, $2, $3, $4) {
|
|
10776
10817
|
switch($4.h) {
|
|
10777
10818
|
case undefined: /* cons */ {
|
|
10778
|
-
const $6 =
|
|
10819
|
+
const $6 = Commands_n__11496_22875_printDetails($0, $1, $2, $4.a1);
|
|
10779
10820
|
let $13;
|
|
10780
10821
|
switch($3) {
|
|
10781
10822
|
case 1: {
|
|
@@ -10787,15 +10828,15 @@ function Commands_n__11495_22871_goListSome($0, $1, $2, $3, $4) {
|
|
|
10787
10828
|
break;
|
|
10788
10829
|
}
|
|
10789
10830
|
}
|
|
10790
|
-
const $11 = Text_PrettyPrint_Prettyprinter_Doc_indent($13, Prelude_Types_foldl_Foldable_List(acc => next => Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: acc, a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
10831
|
+
const $11 = Text_PrettyPrint_Prettyprinter_Doc_indent($13, Prelude_Types_foldl_Foldable_List(acc => next => Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: acc, a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_n__11496_22875_printDetails($0, $1, $2, next), a2: {h: 0}}}}), $6, $4.a2));
|
|
10791
10832
|
return Util_renderIO($2, csegen_88()(), $11);
|
|
10792
10833
|
}
|
|
10793
|
-
case 0: /* nil */ return
|
|
10834
|
+
case 0: /* nil */ return csegen_665();
|
|
10794
10835
|
}
|
|
10795
10836
|
}
|
|
10796
10837
|
|
|
10797
|
-
/* Commands.
|
|
10798
|
-
function
|
|
10838
|
+
/* Commands.12560:23856:go */
|
|
10839
|
+
function Commands_n__12560_23856_go($0, $1) {
|
|
10799
10840
|
switch($1.h) {
|
|
10800
10841
|
case 0: /* nothing */ return $0;
|
|
10801
10842
|
default: {
|
|
@@ -10807,15 +10848,15 @@ function Commands_n__12559_23856_go($0, $1) {
|
|
|
10807
10848
|
}
|
|
10808
10849
|
}
|
|
10809
10850
|
|
|
10810
|
-
/* Commands.
|
|
10811
|
-
function
|
|
10851
|
+
/* Commands.10358:21763:forkedUser */
|
|
10852
|
+
function Commands_n__10358_21763_forkedUser($0, $1, $2, $3) {
|
|
10812
10853
|
return FFI_Concurrency_fork(csegen_88()(), ('user --json '+$3));
|
|
10813
10854
|
}
|
|
10814
10855
|
|
|
10815
|
-
/* Commands.
|
|
10816
|
-
function
|
|
10817
|
-
switch(
|
|
10818
|
-
case 1: return
|
|
10856
|
+
/* Commands.9459:20939:conflictingDraftReadyArgs */
|
|
10857
|
+
function Commands_n__9459_20939_conflictingDraftReadyArgs($0, $1, $2) {
|
|
10858
|
+
switch(Commands_n__9459_20942_markAsDraft($0, $1, $2)) {
|
|
10859
|
+
case 1: return Commands_n__9459_20943_markAsReady($0, $1, $2);
|
|
10819
10860
|
case 0: return 0;
|
|
10820
10861
|
}
|
|
10821
10862
|
}
|
|
@@ -10827,7 +10868,7 @@ function Commands_whoami($0, $1, $2, $3) {
|
|
|
10827
10868
|
|
|
10828
10869
|
/* Commands.titleArg : List QuickArg -> Maybe String */
|
|
10829
10870
|
function Commands_titleArg($0) {
|
|
10830
|
-
return Prelude_Types_foldl_Foldable_List($3 => $4 =>
|
|
10871
|
+
return Prelude_Types_foldl_Foldable_List($3 => $4 => Commands_n__12560_23856_go($3, $4), {h: 0}, $0);
|
|
10831
10872
|
}
|
|
10832
10873
|
|
|
10833
10874
|
/* Commands.teamNameArg : GraphArg -> Maybe String */
|
|
@@ -10853,7 +10894,7 @@ function Commands_skipArg($0) {
|
|
|
10853
10894
|
|
|
10854
10895
|
/* Commands.request : Config => Octokit => List String -> {default False _ : Bool} -> Promise' () */
|
|
10855
10896
|
function Commands_request($0, $1, $2, $3) {
|
|
10856
|
-
return Commands_case__request_21539($0, $1, $3, $2,
|
|
10897
|
+
return Commands_case__request_21539($0, $1, $3, $2, Commands_n__9988_21430_partitionedArgs($0, $1, $3, $2));
|
|
10857
10898
|
}
|
|
10858
10899
|
|
|
10859
10900
|
/* Commands.reflect : Config => Octokit => Promise' () */
|
|
@@ -10885,7 +10926,7 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
10885
10926
|
};
|
|
10886
10927
|
const $55 = $56 => $57 => $58 => {
|
|
10887
10928
|
let $5f;
|
|
10888
|
-
switch(Prelude_Types_null_Foldable_List(
|
|
10929
|
+
switch(Prelude_Types_null_Foldable_List(Commands_n__9459_20941_labelSlugs($0, $1, $2))) {
|
|
10889
10930
|
case 1: {
|
|
10890
10931
|
$5f = 0;
|
|
10891
10932
|
break;
|
|
@@ -10895,10 +10936,10 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
10895
10936
|
break;
|
|
10896
10937
|
}
|
|
10897
10938
|
}
|
|
10898
|
-
const $5a = Prelude_Interfaces_when(csegen_80()(), $5f, () => $68 => $69 => Commands_label($0, $1,
|
|
10939
|
+
const $5a = Prelude_Interfaces_when(csegen_80()(), $5f, () => $68 => $69 => Commands_label($0, $1, Commands_n__9459_20941_labelSlugs($0, $1, $2), $68, $69));
|
|
10899
10940
|
const $74 = $75 => $76 => $77 => {
|
|
10900
10941
|
const $79 = $7a => {
|
|
10901
|
-
const $7b =
|
|
10942
|
+
const $7b = Commands_n__9459_20940_intoBranch($0, $1, $2);
|
|
10902
10943
|
switch($7b.h) {
|
|
10903
10944
|
case undefined: /* just */ {
|
|
10904
10945
|
return $80 => {
|
|
@@ -10913,7 +10954,7 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
10913
10954
|
};
|
|
10914
10955
|
const $9f = $a0 => $a1 => $a2 => {
|
|
10915
10956
|
let $a9;
|
|
10916
|
-
switch(
|
|
10957
|
+
switch(Commands_n__9459_20942_markAsDraft($0, $1, $2)) {
|
|
10917
10958
|
case 1: {
|
|
10918
10959
|
switch($39.a2.a4) {
|
|
10919
10960
|
case 1: {
|
|
@@ -10942,11 +10983,11 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
10942
10983
|
};
|
|
10943
10984
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_88()(), 0, 'Are you sure you want to convert the existing PR for the current branch to a draft?'), $c4, $ba, $bb);
|
|
10944
10985
|
};
|
|
10945
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10986
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $b8, $b2, $b3);
|
|
10946
10987
|
});
|
|
10947
10988
|
const $f9 = $fa => {
|
|
10948
10989
|
let $ff;
|
|
10949
|
-
switch(
|
|
10990
|
+
switch(Commands_n__9459_20943_markAsReady($0, $1, $2)) {
|
|
10950
10991
|
case 1: {
|
|
10951
10992
|
$ff = $39.a2.a4;
|
|
10952
10993
|
break;
|
|
@@ -10966,7 +11007,7 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
10966
11007
|
};
|
|
10967
11008
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_88()(), 0, 'Are you sure you want to mark the existing PR for the current branch ready for review?'), $119, $10f, $110);
|
|
10968
11009
|
};
|
|
10969
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11010
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $10d, $107, $108);
|
|
10970
11011
|
});
|
|
10971
11012
|
};
|
|
10972
11013
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a4, $f9, $a1, $a2);
|
|
@@ -10980,9 +11021,9 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
10980
11021
|
case 1: /* Hypothetical */ return $156 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($159 => Prelude_IO_prim__putStr(($39.a1+'\n'), $159), $3a, $3b, $156);
|
|
10981
11022
|
}
|
|
10982
11023
|
};
|
|
10983
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d => $1e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11024
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d => $1e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_642(), $23 => $24 => $25 => Commands_PullRequest_identifyOrCreatePR($0, $1, Commands_n__9459_20942_markAsDraft($0, $1, $2), Commands_n__9459_20940_intoBranch($0, $1, $2), $23, $24, $25), $1d, $1e), $38, $19, $1a);
|
|
10984
11025
|
};
|
|
10985
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_80()(),
|
|
11026
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_80()(), Commands_n__9459_20939_conflictingDraftReadyArgs($0, $1, $2), () => $11 => $12 => Data_Promise_reject('You cannot set a PR as ready for review and mark it as a draft at the same time.', $11, $12)), $17, $3, $4);
|
|
10986
11027
|
}
|
|
10987
11028
|
|
|
10988
11029
|
/* Commands.parseQuickArgs : List String -> List QuickArg */
|
|
@@ -11003,9 +11044,9 @@ function Commands_parsePrArgs($0) {
|
|
|
11003
11044
|
switch($0.h) {
|
|
11004
11045
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
11005
11046
|
default: {
|
|
11006
|
-
const $3 =
|
|
11047
|
+
const $3 = Commands_n__8993_20478_recombineIntoArgs($0, $0);
|
|
11007
11048
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 2 /* Into */, a1: $b}), $3.a1);
|
|
11008
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
11049
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_688(), $18 => Commands_n__8993_20477_parseReadyFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_688(), $22 => Commands_n__8993_20474_parseDraftFlag($0, $22), $27 => Commands_n__8993_20476_parseLabelArg($0, $27), $1d), $13), $3.a2);
|
|
11009
11050
|
return Data_Either_maybeToEither(() => Commands_prUsageError(), Prelude_Types_map_Functor_Maybe($34 => Prelude_Types_List_tailRecAppend($7, $34), $e));
|
|
11010
11051
|
}
|
|
11011
11052
|
}
|
|
@@ -11021,7 +11062,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11021
11062
|
switch($0.a2.a2.h) {
|
|
11022
11063
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
11023
11064
|
default: {
|
|
11024
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(
|
|
11065
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_688(), $10 => Commands_n__10526_21951_parseCompletedFlag($0, $10), $15 => Commands_n__10526_21952_parseTeamArg($0, $15), $b), $0);
|
|
11025
11066
|
switch($6.h) {
|
|
11026
11067
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
11027
11068
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -11030,7 +11071,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11030
11071
|
}
|
|
11031
11072
|
}
|
|
11032
11073
|
default: {
|
|
11033
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(
|
|
11074
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_688(), $27 => Commands_n__10526_21951_parseCompletedFlag($0, $27), $2c => Commands_n__10526_21952_parseTeamArg($0, $2c), $22), $0);
|
|
11034
11075
|
switch($1d.h) {
|
|
11035
11076
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
11036
11077
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -11039,7 +11080,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11039
11080
|
}
|
|
11040
11081
|
}
|
|
11041
11082
|
default: {
|
|
11042
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(
|
|
11083
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_688(), $3e => Commands_n__10526_21951_parseCompletedFlag($0, $3e), $43 => Commands_n__10526_21952_parseTeamArg($0, $43), $39), $0);
|
|
11043
11084
|
switch($34.h) {
|
|
11044
11085
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
11045
11086
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -11053,9 +11094,9 @@ function Commands_parseContributeArgs($0) {
|
|
|
11053
11094
|
switch($0.h) {
|
|
11054
11095
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
11055
11096
|
default: {
|
|
11056
|
-
const $3 =
|
|
11097
|
+
const $3 = Commands_n__11144_22520_recombineIgnoreArgs($0, $0);
|
|
11057
11098
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 2 /* Ignore */, a1: $b}), $3.a1);
|
|
11058
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
11099
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_688(), $18 => Commands_n__11144_22518_parseListFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_688(), $22 => Commands_n__11144_22519_parseSkipArg($0, $22), $27 => Commands_n__11144_22516_parseCheckoutFlag($0, $27), $1d), $13), $3.a2);
|
|
11059
11100
|
return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($34 => Prelude_Types_List_tailRecAppend($7, $34), $e));
|
|
11060
11101
|
}
|
|
11061
11102
|
}
|
|
@@ -11063,12 +11104,12 @@ function Commands_parseContributeArgs($0) {
|
|
|
11063
11104
|
|
|
11064
11105
|
/* Commands.listOrgTeams : Config => Octokit => Promise' () */
|
|
11065
11106
|
function Commands_listOrgTeams($0, $1, $2, $3) {
|
|
11066
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11107
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_689(), $c => $d => FFI_GitHub_forceListTeams($1, $0.a2, $c, $d), $6, $7), teamNames => Util_renderIO($0, csegen_88()(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $22 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($22)), teamNames))), $2, $3);
|
|
11067
11108
|
}
|
|
11068
11109
|
|
|
11069
11110
|
/* Commands.list : Config => Octokit => String -> Promise' () */
|
|
11070
11111
|
function Commands_list($0, $1, $2, $3, $4) {
|
|
11071
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11112
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_689(), $d => $e => FFI_GitHub_forceListTeamMembers($1, $0.a2, $2, $d, $e), $7, $8), teamMemberLogins => $19 => $1a => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_81()(), csegen_691(), Prelude_Types_traverse_Traversable_List(csegen_80()(), $29 => Commands_n__10358_21763_forkedUser($1, $2, $0, $29), teamMemberLogins)), teamMembersJson => $31 => $32 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Types_traverse_Traversable_List(csegen_80()(), $3a => $3b => Data_Promise_either(Data_User_parseUser($3a), $3b), teamMembersJson), teamMembers => Util_renderIO($0, csegen_88()(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $4e => Commands_n__10358_21764_putNameLn($1, $2, $0, $4e), teamMembers))), $31, $32), $19, $1a), $3, $4);
|
|
11072
11113
|
}
|
|
11073
11114
|
|
|
11074
11115
|
/* Commands.label : Config => Octokit => List String -> Promise' () */
|
|
@@ -11077,17 +11118,17 @@ function Commands_label($0, $1, $2, $3, $4) {
|
|
|
11077
11118
|
switch($1b.h) {
|
|
11078
11119
|
case 0: /* Actual */ {
|
|
11079
11120
|
const $1d = Prelude_Types_List_mapAppend({h: 0}, $21 => Commands_Label_unslugifyLabel($0.a11, $21), $2);
|
|
11080
|
-
return $27 => $28 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2b => $2c => Commands_Label_addLabels($0, $1, $1b.a2, $1d, $2b, $2c), allLabels => Util_renderIO($0, csegen_88()(), 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(
|
|
11121
|
+
return $27 => $28 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2b => $2c => Commands_Label_addLabels($0, $1, $1b.a2, $1d, $2b, $2c), allLabels => Util_renderIO($0, csegen_88()(), 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__8741_20218_putLabels($1, $2, $0, $1d), 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_65()(), $5c => $5c, {a1: 'All labels for PR of ', a2: {a1: $1b.a2.a8, a2: {a1: ':', a2: {h: 0}}}})), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8741_20218_putLabels($1, $2, $0, allLabels), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('.'), a2: {h: 0}}))), a2: {h: 0}}})), $27, $28);
|
|
11081
11122
|
}
|
|
11082
11123
|
case 1: /* Hypothetical */ return $77 => $78 => Data_Promise_reject('You cannot label a PR that has not been created yet and you cannot create the PR in this non-TTY shell', $77, $78);
|
|
11083
11124
|
}
|
|
11084
11125
|
};
|
|
11085
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11126
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_642(), $d => $e => $f => Commands_PullRequest_identifyOrCreatePR($0, $1, 0, {h: 0}, $d, $e, $f), $7, $8), $1a, $3, $4);
|
|
11086
11127
|
}
|
|
11087
11128
|
|
|
11088
11129
|
/* Commands.issueCategory : List QuickArg -> IssueCategory */
|
|
11089
11130
|
function Commands_issueCategory($0) {
|
|
11090
|
-
return Prelude_Types_maybe(() => 1, () => $4 => 0, Data_List_find(
|
|
11131
|
+
return Prelude_Types_maybe(() => 1, () => $4 => 0, Data_List_find(csegen_698(), $0));
|
|
11091
11132
|
}
|
|
11092
11133
|
|
|
11093
11134
|
/* Commands.health : Config => Octokit => Promise' () */
|
|
@@ -11097,7 +11138,7 @@ function Commands_health($0, $1, $2, $3) {
|
|
|
11097
11138
|
|
|
11098
11139
|
/* Commands.graph : Config => Octokit => List GraphArg -> Promise' () */
|
|
11099
11140
|
function Commands_graph($0, $1, $2) {
|
|
11100
|
-
const $3 = Data_List_find(
|
|
11141
|
+
const $3 = Data_List_find(csegen_698(), $2);
|
|
11101
11142
|
return $8 => Commands_case__graph_22256($1, $2, $0, $3, Data_List_headx27(Prelude_Types_List_mapMaybeAppend({h: 0}, $14 => Commands_teamNameArg($14), $2)), $8);
|
|
11102
11143
|
}
|
|
11103
11144
|
|
|
@@ -11163,17 +11204,17 @@ function Commands_contribute($0, $1, $2, $3, $4) {
|
|
|
11163
11204
|
}
|
|
11164
11205
|
};
|
|
11165
11206
|
const $71 = Prelude_Types_List_filterAppend({h: 0}, $74, $12);
|
|
11166
|
-
const $7b = Prelude_Types_List_filterAppend({h: 0}, $7f =>
|
|
11207
|
+
const $7b = Prelude_Types_List_filterAppend({h: 0}, $7f => Commands_n__11496_22872_isNotIgnored($1, $2, $0, configx27, $7f), $71);
|
|
11167
11208
|
const $87 = Data_List_partition($8a => Data_PullRequest_isRequestedReviewer(myLogin, $8a), $7b);
|
|
11168
|
-
const $8f = Prelude_Interfaces_mapHom(
|
|
11209
|
+
const $8f = Prelude_Interfaces_mapHom(csegen_656(), $95 => Data_List_sortBy(csegen_705(), $95))($87);
|
|
11169
11210
|
let $70;
|
|
11170
11211
|
switch($53.h) {
|
|
11171
11212
|
case 0: /* nothing */ {
|
|
11172
|
-
$70 = () =>
|
|
11213
|
+
$70 = () => Commands_n__11496_22874_pickOne($1, $2, $0, configx27, $40, $4d, $8f.a1, $8f.a2);
|
|
11173
11214
|
break;
|
|
11174
11215
|
}
|
|
11175
11216
|
case undefined: /* just */ {
|
|
11176
|
-
$70 = () => $a5 => $a6 =>
|
|
11217
|
+
$70 = () => $a5 => $a6 => Commands_n__11496_22873_listSome($1, $2, $0, $40, $8f.a1, $8f.a2, $a5, $a6);
|
|
11177
11218
|
break;
|
|
11178
11219
|
}
|
|
11179
11220
|
}
|
|
@@ -11185,7 +11226,7 @@ function Commands_contribute($0, $1, $2, $3, $4) {
|
|
|
11185
11226
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($30, $3f, $2d, $2e);
|
|
11186
11227
|
};
|
|
11187
11228
|
};
|
|
11188
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => $1f => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11229
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => $1f => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_408()(), FFI_GitHub_getSelf($1), $1e, $1f), $29, $1a, $1b);
|
|
11189
11230
|
};
|
|
11190
11231
|
};
|
|
11191
11232
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequests($1, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $11, $3, $4);
|
|
@@ -11199,7 +11240,7 @@ function Commands_branch($0, $1, $2) {
|
|
|
11199
11240
|
const $b = Prelude_Types_foldMap_Foldable_List(csegen_65()(), $11 => $11, {a1: 'https://github.com/', a2: {a1: $7, a2: {a1: '/', a2: {a1: $9, a2: {a1: '/tree/', a2: {a1: branch, a2: {h: 0}}}}}}});
|
|
11200
11241
|
return $1f => $20 => $21 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($24 => Prelude_IO_prim__putStr(($b+'\n'), $24), $1f, $20, $21);
|
|
11201
11242
|
};
|
|
11202
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11243
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_642(), $6, $1, $2);
|
|
11203
11244
|
}
|
|
11204
11245
|
|
|
11205
11246
|
/* Commands.(<||>) : Alternative t => (a -> t b) -> (a -> t b) -> a -> t b */
|
|
@@ -11419,67 +11460,67 @@ function Data_SortedMap_Dependent_empty($0) {
|
|
|
11419
11460
|
|
|
11420
11461
|
/* Commands.User.Reflect.case block in case block in reflectOnSelf */
|
|
11421
11462
|
function Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
11422
|
-
const $b = Prelude_Interfaces_mapHom(
|
|
11463
|
+
const $b = Prelude_Interfaces_mapHom(csegen_656(), $11 => Data_List_headx27(Data_List_sort({a1: {a1: $18 => $19 => Data_Date_x3dx3d_Eq_Date($18, $19), a2: $1e => $1f => Data_Date_x2fx3d_Eq_Date($1e, $1f)}, a2: $24 => $25 => Data_Date_compare_Ord_Date($24, $25), a3: $2a => $2b => Data_Date_x3c_Ord_Date($2a, $2b), a4: $30 => $31 => Data_Date_x3e_Ord_Date($30, $31), a5: $36 => $37 => Data_Date_x3cx3d_Ord_Date($36, $37), a6: $3c => $3d => Data_Date_x3ex3d_Ord_Date($3c, $3d), a7: $42 => $43 => Data_Date_max_Ord_Date($42, $43), a8: $48 => $49 => Data_Date_min_Ord_Date($48, $49)}, Prelude_Types_List_mapAppend({h: 0}, csegen_727(), $11))))({a1: $7, a2: $9.a1});
|
|
11423
11464
|
return Util_renderIO($0, csegen_88()(), Commands_User_Reflect_print(Prelude_Types_String_length(Commands_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, $0));
|
|
11424
11465
|
}
|
|
11425
11466
|
|
|
11426
|
-
/* Commands.User.Me.
|
|
11427
|
-
function
|
|
11467
|
+
/* Commands.User.Me.7595:2049:ul */
|
|
11468
|
+
function Commands_User_Me_n__7595_2049_ul($0, $1, $2, $3, $4) {
|
|
11428
11469
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
11429
11470
|
}
|
|
11430
11471
|
|
|
11431
|
-
/* Commands.User.Me.
|
|
11432
|
-
function
|
|
11433
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
11472
|
+
/* Commands.User.Me.7595:2048:teams */
|
|
11473
|
+
function Commands_User_Me_n__7595_2048_teams($0, $1, $2, $3) {
|
|
11474
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_User_Me_n__7595_2049_ul($0, $1, $2, $3, 'GitHub Teams:'), a2: Prelude_Types_List_mapAppend({h: 0}, $11 => Commands_User_Me_n__7595_2046_it($0, $1, $2, $3, $11), $0)});
|
|
11434
11475
|
}
|
|
11435
11476
|
|
|
11436
|
-
/* Commands.User.Me.
|
|
11437
|
-
function
|
|
11438
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'),
|
|
11477
|
+
/* Commands.User.Me.7595:2047:login */
|
|
11478
|
+
function Commands_User_Me_n__7595_2047_login($0, $1, $2, $3) {
|
|
11479
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'), Commands_User_Me_n__7595_2043_dataVal($0, $1, $2, $3, $1.a1));
|
|
11439
11480
|
}
|
|
11440
11481
|
|
|
11441
|
-
/* Commands.User.Reflect.
|
|
11442
|
-
function
|
|
11482
|
+
/* Commands.User.Reflect.6650:1075:ital */
|
|
11483
|
+
function Commands_User_Reflect_n__6650_1075_ital($0, $1) {
|
|
11443
11484
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
11444
11485
|
}
|
|
11445
11486
|
|
|
11446
|
-
/* Commands.User.Me.
|
|
11447
|
-
function
|
|
11487
|
+
/* Commands.User.Me.7595:2046:it */
|
|
11488
|
+
function Commands_User_Me_n__7595_2046_it($0, $1, $2, $3, $4) {
|
|
11448
11489
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
11449
11490
|
}
|
|
11450
11491
|
|
|
11451
|
-
/* Commands.User.Me.
|
|
11452
|
-
function
|
|
11492
|
+
/* Commands.User.Me.7745:2196:handleUnsetEmail */
|
|
11493
|
+
function Commands_User_Me_n__7745_2196_handleUnsetEmail($0, $1, $2) {
|
|
11453
11494
|
switch($2) {
|
|
11454
11495
|
case '': return {h: 0};
|
|
11455
11496
|
default: return {a1: $2};
|
|
11456
11497
|
}
|
|
11457
11498
|
}
|
|
11458
11499
|
|
|
11459
|
-
/* Commands.User.Me.
|
|
11460
|
-
function
|
|
11461
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'),
|
|
11500
|
+
/* Commands.User.Me.7595:2045:fullName */
|
|
11501
|
+
function Commands_User_Me_n__7595_2045_fullName($0, $1, $2, $3) {
|
|
11502
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'), Commands_User_Me_n__7595_2043_dataVal($0, $1, $2, $3, $1.a2));
|
|
11462
11503
|
}
|
|
11463
11504
|
|
|
11464
|
-
/* Commands.User.Me.
|
|
11465
|
-
function
|
|
11505
|
+
/* Commands.User.Me.7595:2044:email */
|
|
11506
|
+
function Commands_User_Me_n__7595_2044_email($0, $1, $2, $3) {
|
|
11466
11507
|
let $8;
|
|
11467
11508
|
switch($2.h) {
|
|
11468
11509
|
case undefined: /* just */ {
|
|
11469
|
-
$8 =
|
|
11510
|
+
$8 = Commands_User_Me_n__7595_2043_dataVal($0, $1, $2, $3, $2.a1);
|
|
11470
11511
|
break;
|
|
11471
11512
|
}
|
|
11472
11513
|
case 0: /* nothing */ {
|
|
11473
|
-
$8 =
|
|
11514
|
+
$8 = Commands_User_Me_n__7595_2046_it($0, $1, $2, $3, 'Not set');
|
|
11474
11515
|
break;
|
|
11475
11516
|
}
|
|
11476
11517
|
}
|
|
11477
11518
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Git Email:'), $8);
|
|
11478
11519
|
}
|
|
11479
11520
|
|
|
11480
|
-
/* Commands.User.Me.
|
|
11481
|
-
function
|
|
11482
|
-
return Theme_theme($3,
|
|
11521
|
+
/* Commands.User.Me.7595:2043:dataVal */
|
|
11522
|
+
function Commands_User_Me_n__7595_2043_dataVal($0, $1, $2, $3, $4) {
|
|
11523
|
+
return Theme_theme($3, csegen_730(), Theme_cs({a1: 4, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined}), 8)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
11483
11524
|
}
|
|
11484
11525
|
|
|
11485
11526
|
/* Commands.User.Reflect.rightTitle : String */
|
|
@@ -11502,20 +11543,20 @@ function Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
|
11502
11543
|
const $c = prs => $d => $e => {
|
|
11503
11544
|
const $1c = myLogin => $1d => $1e => {
|
|
11504
11545
|
const $3a = reviews => {
|
|
11505
|
-
const $3b = Prelude_Types_map_Functor_Maybe(
|
|
11506
|
-
const $4e = Prelude_Interfaces_mapHom(
|
|
11507
|
-
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(
|
|
11546
|
+
const $3b = Prelude_Types_map_Functor_Maybe(csegen_733(), Data_List_headx27(Data_List_sortBy($44 => $45 => Prelude_Basics_on(csegen_703(), csegen_733(), $44, $45), reviews)));
|
|
11547
|
+
const $4e = Prelude_Interfaces_mapHom(csegen_656(), $54 => Prelude_Types_List_filterAppend({h: 0}, $58 => Prelude_EqOrd_x3dx3d_Eq_String($58.a5, myLogin), $54))(prs);
|
|
11548
|
+
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(csegen_656(), $6f => Prelude_Types_List_filterAppend({h: 0}, $73 => Prelude_Types_foldMap_Foldable_List(csegen_111(), $78 => Prelude_EqOrd_x3dx3d_Eq_String($78, myLogin), $73.a7), $6f))(prs));
|
|
11508
11549
|
};
|
|
11509
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(Commands_User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2e => $2f => Prelude_Basics_on(
|
|
11550
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(Commands_User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2e => $2f => Prelude_Basics_on(csegen_703(), csegen_727(), $2e, $2f), Commands_PullRequest_combined(prs))))), $3a, $1d, $1e);
|
|
11510
11551
|
};
|
|
11511
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11552
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_408()(), FFI_GitHub_getSelf($1), $11, $12), $1c, $d, $e);
|
|
11512
11553
|
};
|
|
11513
11554
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_listPartitionedPRs($0, $1, 4n, Commands_User_Reflect_prCount()), $c, $2, $3);
|
|
11514
11555
|
}
|
|
11515
11556
|
|
|
11516
11557
|
/* Commands.User.Me.printInfoOnSelf : Config => Octokit => Promise' () */
|
|
11517
11558
|
function Commands_User_Me_printInfoOnSelf($0, $1, $2, $3) {
|
|
11518
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29($a =>
|
|
11559
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29($a => Commands_User_Me_n__7745_2196_handleUnsetEmail($1, $0, $a), $10 => $11 => System_Git_userEmail($10, $11), $6, $7), gitEmail => $18 => $19 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getSelf($1), githubUser => $1f => $20 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($23 => $24 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_689(), $29 => $2a => FFI_GitHub_listMyTeams($1, $29, $2a), $23, $24), githubTeams => Util_renderIO($0, csegen_88()(), Commands_User_Me_print($0, gitEmail, githubUser, githubTeams)), $1f, $20), $18, $19), $2, $3);
|
|
11519
11560
|
}
|
|
11520
11561
|
|
|
11521
11562
|
/* Commands.User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Config =>
|
|
@@ -11526,7 +11567,7 @@ function Commands_User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
|
11526
11567
|
|
|
11527
11568
|
/* Commands.User.Me.print : Config -> Maybe String -> User -> List String -> Doc AnsiStyle */
|
|
11528
11569
|
function Commands_User_Me_print($0, $1, $2, $3) {
|
|
11529
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
11570
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7595_2044_email($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7595_2045_fullName($3, $2, $1, $0), a2: {a1: Commands_User_Me_n__7595_2047_login($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7595_2048_teams($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}}}}});
|
|
11530
11571
|
}
|
|
11531
11572
|
|
|
11532
11573
|
/* Commands.User.Reflect.prCount : Fin 101 */
|
|
@@ -11546,15 +11587,15 @@ const Commands_User_Reflect_intro = __lazy(function () {
|
|
|
11546
11587
|
|
|
11547
11588
|
/* Commands.User.Reflect.header : Nat -> Doc AnsiStyle */
|
|
11548
11589
|
function Commands_User_Reflect_header($0) {
|
|
11549
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1:
|
|
11590
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Commands_User_Reflect_n__6650_1075_ital($0, Commands_User_Reflect_leftTitle()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' '), a2: {a1: Commands_User_Reflect_n__6650_1075_ital($0, Commands_User_Reflect_rightTitle()), a2: {h: 0}}}}));
|
|
11550
11591
|
}
|
|
11551
11592
|
|
|
11552
11593
|
/* Commands.User.Reflect.graph : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Doc AnsiStyle */
|
|
11553
11594
|
function Commands_User_Reflect_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
11554
11595
|
const $7 = ($2+$3);
|
|
11555
11596
|
const $a = ($5+$4);
|
|
11556
|
-
const $d = Prelude_Types_foldr_Foldable_List(
|
|
11557
|
-
const $1c = Prelude_Types_foldr_Foldable_List(
|
|
11597
|
+
const $d = Prelude_Types_foldr_Foldable_List(csegen_299(), Prelude_Types_String_length(Commands_User_Reflect_leftTitle()), {a1: ($7+$1), a2: {a1: $a, a2: {h: 0}}});
|
|
11598
|
+
const $1c = Prelude_Types_foldr_Foldable_List(csegen_299(), Prelude_Types_String_length(Commands_User_Reflect_rightTitle()), {a1: $7, a2: {a1: $a, a2: {h: 0}}});
|
|
11558
11599
|
const $29 = (($d+$1c)+3n);
|
|
11559
11600
|
const $2e = ((Number($0)/2.0)-(Number($29)/2.0));
|
|
11560
11601
|
const $37 = (Prelude_Types_prim__integerToNat(BigInt(Math.trunc($2e)))+Prelude_Types_prim__integerToNat(($d-Prelude_Types_String_length(Commands_User_Reflect_leftTitle()))));
|
|
@@ -11564,12 +11605,12 @@ function Commands_User_Reflect_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
|
11564
11605
|
|
|
11565
11606
|
/* Commands.User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
11566
11607
|
function Commands_User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
11567
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Commands_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(
|
|
11608
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Commands_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_740(), $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_740(), $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_65()(), $d0 => $d0, {a1: '*review count (not PR count) of most recent ', a2: {a1: Data_Fin_show_Show_x28Finx20x24nx29(Commands_User_Reflect_reviewDetailsCount()), a2: {a1: ' PRs.', a2: {h: 0}}}}))), a2: {h: 0}}}}}}}}}});
|
|
11568
11609
|
}
|
|
11569
11610
|
|
|
11570
11611
|
/* Commands.User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Nat -> Doc AnsiStyle */
|
|
11571
11612
|
function Commands_User_Reflect_chart($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11572
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($7)), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_User_replicatex27($6,
|
|
11613
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($7)), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_User_replicatex27($6, csegen_730(), csegen_750(), 4, $1, '\u{b7}'), Commands_User_replicatex27($6, csegen_751(), csegen_751(), 7, $3, '\u{25e6}')), Commands_User_replicatex27($6, csegen_752(), csegen_752(), 5, $2, '<')), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('|'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_User_replicatex27($6, csegen_752(), csegen_752(), 5, $5, '>'), Commands_User_replicatex27($6, csegen_730(), csegen_750(), 4, $4, '\u{b7}')))));
|
|
11573
11614
|
}
|
|
11574
11615
|
|
|
11575
11616
|
/* Theme.4408:1332:maybeAnnotate */
|
|
@@ -11660,95 +11701,95 @@ function Commands_PullRequest_case__githubTitleAndBodyPrefix_2940($0, $1, $2, $3
|
|
|
11660
11701
|
return $5 => {
|
|
11661
11702
|
switch($3.h) {
|
|
11662
11703
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: '', a2: ''}, $4, $5);
|
|
11663
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f => $10 =>
|
|
11704
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f => $10 => Commands_PullRequest_n__11031_2862_issueDescriptionPrefix($0, $1, $2, $3.a1, $f, $10), $19 => $1a => $1b => Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: '', a2: ($19+('\n\n'+Commands_PullRequest_n__11031_2864_relatedToPrefix($0, $1, $2, $3.a1)))}, $1a, $1b), $4, $5);
|
|
11664
11705
|
}
|
|
11665
11706
|
};
|
|
11666
11707
|
}
|
|
11667
11708
|
|
|
11668
|
-
/* Commands.PullRequest.
|
|
11669
|
-
function
|
|
11709
|
+
/* Commands.PullRequest.10115:1999:userNotice */
|
|
11710
|
+
function Commands_PullRequest_n__10115_1999_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
11670
11711
|
switch($6.h) {
|
|
11671
11712
|
case 0: /* nothing */ {
|
|
11672
11713
|
switch($2.h) {
|
|
11673
11714
|
case 0: /* nil */ return 'no users';
|
|
11674
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $e => $e, {a1:
|
|
11715
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $e => $e, {a1: Commands_PullRequest_n__10115_1994_csv($0, $1, $2, $3, $4, $5, $2), a2: {h: 0}});
|
|
11675
11716
|
}
|
|
11676
11717
|
}
|
|
11677
|
-
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $1f => $1f, {a1:
|
|
11718
|
+
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $1f => $1f, {a1: Commands_PullRequest_n__10115_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: $2}), a2: {h: 0}});
|
|
11678
11719
|
}
|
|
11679
11720
|
}
|
|
11680
11721
|
|
|
11681
|
-
/* Commands.PullRequest.
|
|
11682
|
-
function
|
|
11722
|
+
/* Commands.PullRequest.10115:1998:teamNotice */
|
|
11723
|
+
function Commands_PullRequest_n__10115_1998_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
11683
11724
|
switch($6.h) {
|
|
11684
11725
|
case 0: /* nil */ return '';
|
|
11685
11726
|
case undefined: /* cons */ {
|
|
11686
11727
|
switch($6.a2.h) {
|
|
11687
|
-
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $e => $e, {a1: ' and team ', a2: {a1:
|
|
11688
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $23 => $23, {a1: ' and teams ', a2: {a1:
|
|
11728
|
+
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $e => $e, {a1: ' and team ', a2: {a1: Commands_PullRequest_n__10115_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: {h: 0}}), a2: {h: 0}}});
|
|
11729
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $23 => $23, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10115_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
11689
11730
|
}
|
|
11690
11731
|
}
|
|
11691
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $36 => $36, {a1: ' and teams ', a2: {a1:
|
|
11732
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $36 => $36, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10115_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
11692
11733
|
}
|
|
11693
11734
|
}
|
|
11694
11735
|
|
|
11695
|
-
/* Commands.PullRequest.
|
|
11696
|
-
function
|
|
11736
|
+
/* Commands.PullRequest.11031:2864:relatedToPrefix */
|
|
11737
|
+
function Commands_PullRequest_n__11031_2864_relatedToPrefix($0, $1, $2, $3) {
|
|
11697
11738
|
return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $9 => $9, {a1: 'Related to #', a2: {a1: $3, a2: {h: 0}}});
|
|
11698
11739
|
}
|
|
11699
11740
|
|
|
11700
|
-
/* Commands.PullRequest.
|
|
11701
|
-
function
|
|
11741
|
+
/* Commands.PullRequest.11265:3102:prCreationUrl */
|
|
11742
|
+
function Commands_PullRequest_n__11265_3102_prCreationUrl($0, $1, $2, $3, $4) {
|
|
11702
11743
|
const $5 = $4.a3;
|
|
11703
11744
|
const $7 = $4.a2;
|
|
11704
11745
|
return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $e => $e, {a1: 'https://github.com/', a2: {a1: $7, a2: {a1: '/', a2: {a1: $5, a2: {a1: '/compare/', a2: {a1: $1, a2: {a1: '?expand=1', a2: {h: 0}}}}}}}});
|
|
11705
11746
|
}
|
|
11706
11747
|
|
|
11707
|
-
/* Commands.PullRequest.
|
|
11708
|
-
function
|
|
11748
|
+
/* Commands.PullRequest.10115:1997:prComment */
|
|
11749
|
+
function Commands_PullRequest_n__10115_1997_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11709
11750
|
return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $c => $c, {a1: ':musical_note: Harmoniously requested review from ', a2: {a1: $6, a2: {a1: '.', a2: {h: 0}}}});
|
|
11710
11751
|
}
|
|
11711
11752
|
|
|
11712
|
-
/* Commands.PullRequest.
|
|
11713
|
-
function
|
|
11714
|
-
return
|
|
11753
|
+
/* Commands.PullRequest.10115:1996:namePrComment */
|
|
11754
|
+
function Commands_PullRequest_n__10115_1996_namePrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11755
|
+
return Commands_PullRequest_n__10115_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $14 => $14, {a1: $6.a2, a2: {h: 0}}));
|
|
11715
11756
|
}
|
|
11716
11757
|
|
|
11717
|
-
/* Commands.PullRequest.
|
|
11718
|
-
function
|
|
11719
|
-
return
|
|
11758
|
+
/* Commands.PullRequest.10115:1995:mentionPrComment */
|
|
11759
|
+
function Commands_PullRequest_n__10115_1995_mentionPrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11760
|
+
return Commands_PullRequest_n__10115_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $14 => $14, {a1: '@', a2: {a1: $6, a2: {h: 0}}}));
|
|
11720
11761
|
}
|
|
11721
11762
|
|
|
11722
|
-
/* Commands.PullRequest.
|
|
11723
|
-
function
|
|
11763
|
+
/* Commands.PullRequest.11031:2863:issueNumber */
|
|
11764
|
+
function Commands_PullRequest_n__11031_2863_issueNumber($0, $1, $2) {
|
|
11724
11765
|
return Util_Github_parseGithubIssueNumber($1);
|
|
11725
11766
|
}
|
|
11726
11767
|
|
|
11727
|
-
/* Commands.PullRequest.
|
|
11728
|
-
function
|
|
11768
|
+
/* Commands.PullRequest.11031:2862:issueDescriptionPrefix */
|
|
11769
|
+
function Commands_PullRequest_n__11031_2862_issueDescriptionPrefix($0, $1, $2, $3, $4, $5) {
|
|
11729
11770
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getIssue($0, $2.a2, $2.a3, $3), issue => $10 => $11 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $19 => $19, {a1: '<!--\n## GitHub Issue\n', a2: {a1: issue.a2, a2: {a1: '\n--\n', a2: {a1: issue.a3, a2: {a1: '\n-->', a2: {h: 0}}}}}}), $10, $11), $4, $5);
|
|
11730
11771
|
}
|
|
11731
11772
|
|
|
11732
|
-
/* Commands.PullRequest.
|
|
11733
|
-
function
|
|
11773
|
+
/* Commands.PullRequest.11265:3101:inlineDescriptionPrompt */
|
|
11774
|
+
function Commands_PullRequest_n__11265_3101_inlineDescriptionPrompt($0, $1, $2, $3, $4) {
|
|
11734
11775
|
return 'What would you like the description to be (two blank lines to finish)?';
|
|
11735
11776
|
}
|
|
11736
11777
|
|
|
11737
|
-
/* Commands.PullRequest.
|
|
11738
|
-
function
|
|
11778
|
+
/* Commands.PullRequest.11265:3100:getBaseBranch */
|
|
11779
|
+
function Commands_PullRequest_n__11265_3100_getBaseBranch($0, $1, $2, $3, $4, $5, $6) {
|
|
11739
11780
|
switch($2.h) {
|
|
11740
11781
|
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => $c => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($f => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $18 => $18, {a1: 'Will merge into ', a2: {a1: $2.a1, a2: {a1: '.', a2: {h: 0}}}})+'\n'), $f), $a, $b, $c), $26 => $27 => $28 => Data_Promise_pure_Applicative_x28Promisex20x24ex29($2.a1, $27, $28), $5, $6);
|
|
11741
|
-
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($31 => $32 => $33 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($36 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $3f => $3f, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $4.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $36), $31, $32, $33), $4e => $4f => $50 => Data_Promise_map_Functor_x28Promisex20x24ex29($53 => Util_Prompting_orIfEmpty({a1: $4.a5}, Data_String_trim($53)),
|
|
11782
|
+
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($31 => $32 => $33 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($36 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $3f => $3f, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $4.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $36), $31, $32, $33), $4e => $4f => $50 => Data_Promise_map_Functor_x28Promisex20x24ex29($53 => Util_Prompting_orIfEmpty({a1: $4.a5}, Data_String_trim($53)), csegen_449()(), $4f, $50), $5, $6);
|
|
11742
11783
|
}
|
|
11743
11784
|
}
|
|
11744
11785
|
|
|
11745
|
-
/* Commands.PullRequest.
|
|
11746
|
-
function
|
|
11786
|
+
/* Commands.PullRequest.9877:1725:forkedReviews */
|
|
11787
|
+
function Commands_PullRequest_n__9877_1725_forkedReviews($0, $1, $2, $3) {
|
|
11747
11788
|
return FFI_Concurrency_fork(csegen_88()(), ('reviews --json '+Prelude_Show_show_Show_Integer($3.a1)));
|
|
11748
11789
|
}
|
|
11749
11790
|
|
|
11750
|
-
/* Commands.PullRequest.
|
|
11751
|
-
function
|
|
11791
|
+
/* Commands.PullRequest.9300:1180:filterString */
|
|
11792
|
+
function Commands_PullRequest_n__9300_1180_filterString($0, $1, $2, $3, $4) {
|
|
11752
11793
|
switch($4.h) {
|
|
11753
11794
|
case 0: /* nothing */ return 'none';
|
|
11754
11795
|
case undefined: /* just */ {
|
|
@@ -11760,13 +11801,13 @@ function Commands_PullRequest_n__9299_1180_filterString($0, $1, $2, $3, $4) {
|
|
|
11760
11801
|
}
|
|
11761
11802
|
}
|
|
11762
11803
|
|
|
11763
|
-
/* Commands.PullRequest.
|
|
11764
|
-
function
|
|
11804
|
+
/* Commands.PullRequest.10115:1994:csv */
|
|
11805
|
+
function Commands_PullRequest_n__10115_1994_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
11765
11806
|
return Util_renderString($5, Text_PrettyPrint_Prettyprinter_Doc_encloseSep(Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $16 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($16)), $6)));
|
|
11766
11807
|
}
|
|
11767
11808
|
|
|
11768
|
-
/* Commands.PullRequest.
|
|
11769
|
-
function
|
|
11809
|
+
/* Commands.PullRequest.11265:3099:createPR */
|
|
11810
|
+
function Commands_PullRequest_n__11265_3099_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
11770
11811
|
const $38 = $39 => $3a => $3b => {
|
|
11771
11812
|
const $48 = $49 => $4a => $4b => {
|
|
11772
11813
|
switch($49) {
|
|
@@ -11795,11 +11836,11 @@ function Commands_PullRequest_n__11264_3099_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
11795
11836
|
let $14a;
|
|
11796
11837
|
switch($14b.h) {
|
|
11797
11838
|
case 0: /* nothing */ {
|
|
11798
|
-
$14a = Util_Prompting_inlineDescription(csegen_88()(),
|
|
11839
|
+
$14a = Util_Prompting_inlineDescription(csegen_88()(), Commands_PullRequest_n__11265_3101_inlineDescriptionPrompt($0, $1, $2, $3, $4), $103.a2);
|
|
11799
11840
|
break;
|
|
11800
11841
|
}
|
|
11801
11842
|
case undefined: /* just */ {
|
|
11802
|
-
$14a = $15a => $15b => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11843
|
+
$14a = $15a => $15b => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_777(), Util_Prompting_editorDescription(csegen_88()(), $14b.a1, {a1: templateFilePath}, $103.a2), $15a, $15b);
|
|
11803
11844
|
break;
|
|
11804
11845
|
}
|
|
11805
11846
|
}
|
|
@@ -11807,7 +11848,7 @@ function Commands_PullRequest_n__11264_3099_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
11807
11848
|
};
|
|
11808
11849
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($140 => $141 => Util_relativeToRoot('.github/PULL_REQUEST_TEMPLATE.md', $140, $141), $146, $13c, $13d);
|
|
11809
11850
|
};
|
|
11810
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($12d => $12e => Data_Promise_map_Functor_x28Promisex20x24ex29($131 => ($103.a1+Data_String_trim($131)),
|
|
11851
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($12d => $12e => Data_Promise_map_Functor_x28Promisex20x24ex29($131 => ($103.a1+Data_String_trim($131)), csegen_449()(), $12d, $12e), $13b, $129, $12a);
|
|
11811
11852
|
};
|
|
11812
11853
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11b => $11c => $11d => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($120 => Prelude_IO_prim__putStr($103.a1, $120), $11b, $11c, $11d), $127, $117, $118);
|
|
11813
11854
|
};
|
|
@@ -11815,7 +11856,7 @@ function Commands_PullRequest_n__11264_3099_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
11815
11856
|
};
|
|
11816
11857
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_getTitleAndBodyPrefix($4, $0, $1), $102, $fa, $fb);
|
|
11817
11858
|
};
|
|
11818
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ef => $f0 =>
|
|
11859
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ef => $f0 => Commands_PullRequest_n__11265_3100_getBaseBranch($0, $1, $2, $3, $4, $ef, $f0), $f9, $eb, $ec);
|
|
11819
11860
|
};
|
|
11820
11861
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ce => $cf => $d0 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d3 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $dc => $dc, {a1: 'Creating a new PR for the current branch (', a2: {a1: $1, a2: {a1: ').', a2: {h: 0}}}})+'\n'), $d3), $ce, $cf, $d0), $e9, $ca, $cb);
|
|
11821
11862
|
};
|
|
@@ -11824,32 +11865,32 @@ function Commands_PullRequest_n__11264_3099_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
11824
11865
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $5b, $5c);
|
|
11825
11866
|
}
|
|
11826
11867
|
};
|
|
11827
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4f => $50 =>
|
|
11868
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4f => $50 => Commands_PullRequest_n__11265_3097_continueGivenStagedChanges($0, $1, $2, $3, $4, $4f, $50), $59, $4a, $4b);
|
|
11828
11869
|
}
|
|
11829
11870
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $4a, $4b);
|
|
11830
11871
|
}
|
|
11831
11872
|
};
|
|
11832
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f =>
|
|
11873
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f => Commands_PullRequest_n__11265_3098_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $3e, $3f), $48, $3a, $3b);
|
|
11833
11874
|
};
|
|
11834
11875
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => $a => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($d => $e => System_Git_remoteTrackingBranch($d, $e), $13 => Util_whenNothing(csegen_80()(), $13, $1a => $1b => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => $1f => $20 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($23 => Prelude_IO_prim__putStr('Creating a new remote branch...\n', $23), $1e, $1f, $20), $2b => $2c => $2d => System_Git_pushNewBranch($4.a4, $1, $2c, $2d), $1a, $1b)), $9, $a), $38, $5, $6);
|
|
11835
11876
|
}
|
|
11836
11877
|
|
|
11837
|
-
/* Commands.PullRequest.
|
|
11838
|
-
function
|
|
11878
|
+
/* Commands.PullRequest.11265:3098:continueGivenUncommittedChanges */
|
|
11879
|
+
function Commands_PullRequest_n__11265_3098_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
11839
11880
|
const $e = $f => $10 => $11 => {
|
|
11840
11881
|
switch($f.h) {
|
|
11841
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => $17 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1a => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1a), $15, $16, $17), $22 => $23 => $24 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($27 => $28 => $29 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2c => Prelude_IO_prim__putStr(($f.a1+'\n'), $2c), $27, $28, $29),
|
|
11882
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => $17 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1a => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1a), $15, $16, $17), $22 => $23 => $24 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($27 => $28 => $29 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2c => Prelude_IO_prim__putStr(($f.a1+'\n'), $2c), $27, $28, $29), csegen_784(), $23, $24), $10, $11);
|
|
11842
11883
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $10, $11);
|
|
11843
11884
|
}
|
|
11844
11885
|
};
|
|
11845
11886
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => $a => System_Git_uncommittedChanges($9, $a), $e, $5, $6);
|
|
11846
11887
|
}
|
|
11847
11888
|
|
|
11848
|
-
/* Commands.PullRequest.
|
|
11849
|
-
function
|
|
11889
|
+
/* Commands.PullRequest.11265:3097:continueGivenStagedChanges */
|
|
11890
|
+
function Commands_PullRequest_n__11265_3097_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
11850
11891
|
const $e = $f => $10 => $11 => {
|
|
11851
11892
|
switch($f.h) {
|
|
11852
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => $17 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1a => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1a), $15, $16, $17), $22 => $23 => $24 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($27 => $28 => $29 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2c => Prelude_IO_prim__putStr(($f.a1+'\n'), $2c), $27, $28, $29),
|
|
11893
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => $17 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1a => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1a), $15, $16, $17), $22 => $23 => $24 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($27 => $28 => $29 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2c => Prelude_IO_prim__putStr(($f.a1+'\n'), $2c), $27, $28, $29), csegen_784(), $23, $24), $10, $11);
|
|
11853
11894
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $10, $11);
|
|
11854
11895
|
}
|
|
11855
11896
|
};
|
|
@@ -11858,12 +11899,12 @@ function Commands_PullRequest_n__11264_3097_continueGivenStagedChanges($0, $1, $
|
|
|
11858
11899
|
|
|
11859
11900
|
/* Commands.PullRequest.(.allReviewers) : PRHistory -> (List String, List String) */
|
|
11860
11901
|
function Commands_PullRequest_rf__allReviewers($0) {
|
|
11861
|
-
return Prelude_Interfaces_mapHom(
|
|
11902
|
+
return Prelude_Interfaces_mapHom(csegen_656(), $6 => Prelude_Types_join_Monad_List(Prelude_Types_List_mapAppend({h: 0}, $c => $c.a7, $6)))($0);
|
|
11862
11903
|
}
|
|
11863
11904
|
|
|
11864
11905
|
/* Commands.PullRequest.reviewsForPrs : Config => Octokit => List PullRequest -> Promise' (List Review) */
|
|
11865
11906
|
function Commands_PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
|
|
11866
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_81()(),
|
|
11907
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_81()(), csegen_691(), Prelude_Types_traverse_Traversable_List(csegen_80()(), $13 => Commands_PullRequest_n__9877_1725_forkedReviews($0, $1, $2, $13), $2)), reviewsJson => $1b => $1c => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1f => Data_Promise_either(Prelude_Types_traverse_Traversable_List(csegen_230(), $26 => Language_JSON_Accessors_array($29 => Data_Review_parseReview($29), $26), reviewsJson), $1f), reviews => $30 => $31 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_join_Monad_List(reviews), $30, $31), $1b, $1c), $3, $4);
|
|
11867
11908
|
}
|
|
11868
11909
|
|
|
11869
11910
|
/* Commands.PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise' (List Review) */
|
|
@@ -11893,9 +11934,9 @@ function Commands_PullRequest_reviewsByUser($0, $1, $2, $3) {
|
|
|
11893
11934
|
List PullRequest -> Promise' (SortedMap String (List Review)) */
|
|
11894
11935
|
function Commands_PullRequest_reviewsByEachUser($0, $1, $2, $3, $4) {
|
|
11895
11936
|
const $f = reviews => {
|
|
11896
|
-
const $10 = Data_List_groupAllWith(
|
|
11937
|
+
const $10 = Data_List_groupAllWith(csegen_310(), $15 => $15.a2, reviews);
|
|
11897
11938
|
const $18 = Prelude_Types_List_mapAppend({h: 0}, rs => ({a1: rs.a1.a2, a2: rs}), $10);
|
|
11898
|
-
return $21 => $22 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Data_SortedMap_fromList(
|
|
11939
|
+
return $21 => $22 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Data_SortedMap_fromList(csegen_310(), $18), $21, $22);
|
|
11899
11940
|
};
|
|
11900
11941
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Commands_PullRequest_reviewsForPrs($0, $1, $2, $7, $8), $f, $3, $4);
|
|
11901
11942
|
}
|
|
@@ -11909,12 +11950,12 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11909
11950
|
let $38;
|
|
11910
11951
|
switch($0.a7) {
|
|
11911
11952
|
case 1: {
|
|
11912
|
-
const $3b = Commands_Reviewer_chooseReviewers(
|
|
11953
|
+
const $3b = Commands_Reviewer_chooseReviewers(csegen_310(), $14.a2, $14.a1, teamMembers, {h: 0}, $2.a5);
|
|
11913
11954
|
$38 = Commands_Reviewer_randomReviewer(csegen_88()(), $3b);
|
|
11914
11955
|
break;
|
|
11915
11956
|
}
|
|
11916
11957
|
case 0: {
|
|
11917
|
-
$38 =
|
|
11958
|
+
$38 = csegen_453()();
|
|
11918
11959
|
break;
|
|
11919
11960
|
}
|
|
11920
11961
|
}
|
|
@@ -11950,8 +11991,8 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11950
11991
|
return $7f => {
|
|
11951
11992
|
switch($0.a8) {
|
|
11952
11993
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $7d, $7f);
|
|
11953
|
-
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
11954
|
-
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getUser($1, chosenUser.a1), user => $9f => $a0 => FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
11994
|
+
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, Commands_PullRequest_n__10115_1995_mentionPrComment($1, $5, $4, $3, $2, $0, chosenUser.a1), $7d, $7f);
|
|
11995
|
+
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getUser($1, chosenUser.a1), user => $9f => $a0 => FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, Commands_PullRequest_n__10115_1996_namePrComment($1, $5, $4, $3, $2, $0, user), $9f, $a0), $7d, $7f);
|
|
11955
11996
|
}
|
|
11956
11997
|
};
|
|
11957
11998
|
}
|
|
@@ -11975,11 +12016,11 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11975
12016
|
let $bf;
|
|
11976
12017
|
switch($c0) {
|
|
11977
12018
|
case 1: {
|
|
11978
|
-
$bf = () => $c5 => $c6 => $c7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($ca => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Could not pick a user from the given Team ')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('(perhaps the only option was the author of the pull request?).'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $e8 => $e8, {a1: 'Requested review from ', a2: {a1:
|
|
12019
|
+
$bf = () => $c5 => $c6 => $c7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($ca => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Could not pick a user from the given Team ')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('(perhaps the only option was the author of the pull request?).'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $e8 => $e8, {a1: 'Requested review from ', a2: {a1: Commands_PullRequest_n__10115_1998_teamNotice($1, $5, $4, $3, $2, $0, $53), a2: {a1: ' for the open PR ', a2: {h: 0}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $101 => $101, {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}}}}))+'\n'), $ca), $c5, $c6, $c7);
|
|
11979
12020
|
break;
|
|
11980
12021
|
}
|
|
11981
12022
|
case 0: {
|
|
11982
|
-
$bf = () => $112 => $113 => $114 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($117 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $128 => $128, {a1: 'Requested review from ', a2: {a1:
|
|
12023
|
+
$bf = () => $112 => $113 => $114 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($117 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $128 => $128, {a1: 'Requested review from ', a2: {a1: Commands_PullRequest_n__10115_1999_userNotice($1, $5, $4, $3, $2, $0, chosenUser), a2: {a1: Commands_PullRequest_n__10115_1998_teamNotice($1, $5, $4, $3, $2, $0, $53), a2: {a1: ' for the open PR ', a2: {h: 0}}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $14b => $14b, {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}}))+'\n'), $117), $112, $113, $114);
|
|
11983
12024
|
break;
|
|
11984
12025
|
}
|
|
11985
12026
|
}
|
|
@@ -12024,7 +12065,7 @@ function Commands_PullRequest_listOpenPRs($0, $1, $2, $3) {
|
|
|
12024
12065
|
|
|
12025
12066
|
/* Commands.PullRequest.list' : Maybe GitHubPRState -> Pagination _ _ _ () -> Promise' (List PullRequest) */
|
|
12026
12067
|
function Commands_PullRequest_listx27($0, $1, $2, $3) {
|
|
12027
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_81()(), $b => $c => $d => 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 => $1b => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1b), a4: elem => acc => m => $1f => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1f, funcM, init, input), a5: elem => $26 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($26), a6: a => m => $2a => f => $2b => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($2a, f, $2b)}, $b, $c, $d), Data_Pagination_traversex27(csegen_80()(), $39 => $3a => $3b => $3c => Commands_PullRequest_forkedPRs($0, $39, $3a, $3b, $3c), $1)), prJsons => $45 => $46 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($49 => Data_Promise_either(Prelude_Types_traverse_Traversable_List(
|
|
12068
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_81()(), $b => $c => $d => 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 => $1b => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1b), a4: elem => acc => m => $1f => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1f, funcM, init, input), a5: elem => $26 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($26), a6: a => m => $2a => f => $2b => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($2a, f, $2b)}, $b, $c, $d), Data_Pagination_traversex27(csegen_80()(), $39 => $3a => $3b => $3c => Commands_PullRequest_forkedPRs($0, $39, $3a, $3b, $3c), $1)), prJsons => $45 => $46 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($49 => Data_Promise_either(Prelude_Types_traverse_Traversable_List(csegen_230(), csegen_389(), prJsons), $49), pulls => $54 => $55 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_join_Monad_List(pulls), $54, $55), $45, $46), $2, $3);
|
|
12028
12069
|
}
|
|
12029
12070
|
|
|
12030
12071
|
/* Commands.PullRequest.identifyOrCreatePR : Config => Octokit => {default False _ : Bool} ->
|
|
@@ -12044,8 +12085,8 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
12044
12085
|
return $20 => {
|
|
12045
12086
|
const $29 = $2a => $2b => $2c => {
|
|
12046
12087
|
switch($2a) {
|
|
12047
|
-
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($30 => ({h: 0 /* Actual */, a1: 1, a2: $30}), $34 => $35 =>
|
|
12048
|
-
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1:
|
|
12088
|
+
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($30 => ({h: 0 /* Actual */, a1: 1, a2: $30}), $34 => $35 => Commands_PullRequest_n__11265_3099_createPR($1, $4, $3, $2, $0, $34, $35), $2b, $2c);
|
|
12089
|
+
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1: Commands_PullRequest_n__11265_3102_prCreationUrl($1, $4, $3, $2, $0)}, $2b, $2c);
|
|
12049
12090
|
}
|
|
12050
12091
|
};
|
|
12051
12092
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(System_File_Meta_isTTY(csegen_88()(), System_File_Virtual_stdout()), $29, $12, $20);
|
|
@@ -12059,7 +12100,7 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
12059
12100
|
|
|
12060
12101
|
/* Commands.PullRequest.githubTitleAndBodyPrefix : Config => Octokit => String -> Promise' (String, String) */
|
|
12061
12102
|
function Commands_PullRequest_githubTitleAndBodyPrefix($0, $1, $2) {
|
|
12062
|
-
return $3 => Commands_PullRequest_case__githubTitleAndBodyPrefix_2940($1, $2, $0,
|
|
12103
|
+
return $3 => Commands_PullRequest_case__githubTitleAndBodyPrefix_2940($1, $2, $0, Commands_PullRequest_n__11031_2863_issueNumber($1, $2, $0), $3);
|
|
12063
12104
|
}
|
|
12064
12105
|
|
|
12065
12106
|
/* Commands.PullRequest.getTitleAndBodyPrefix : Config => Octokit => String -> Promise' (String, String) */
|
|
@@ -12073,7 +12114,7 @@ function Commands_PullRequest_getTitleAndBodyPrefix($0, $1, $2) {
|
|
|
12073
12114
|
|
|
12074
12115
|
/* Commands.PullRequest.forkedPRs : Maybe GitHubPRState -> Nat -> Nat -> Nat -> () -> Promise' Future */
|
|
12075
12116
|
function Commands_PullRequest_forkedPRs($0, $1, $2, $3, $4) {
|
|
12076
|
-
return FFI_Concurrency_fork(csegen_88()(), Prelude_Types_foldMap_Foldable_List(csegen_65()(), $f => $f, {a1: 'pulls --json ', a2: {a1:
|
|
12117
|
+
return FFI_Concurrency_fork(csegen_88()(), Prelude_Types_foldMap_Foldable_List(csegen_65()(), $f => $f, {a1: 'pulls --json ', a2: {a1: Commands_PullRequest_n__9300_1180_filterString($3, $4, $2, $1, $0), a2: {a1: ' ', a2: {a1: Prelude_Show_show_Show_Nat($1), a2: {a1: ' ', a2: {a1: Prelude_Show_show_Show_Nat($2), a2: {h: 0}}}}}}}));
|
|
12077
12118
|
}
|
|
12078
12119
|
|
|
12079
12120
|
/* Commands.PullRequest.empty : PRHistory */
|
|
@@ -12200,7 +12241,7 @@ function Util_Github_n__2629_823_go($0, $1) {
|
|
|
12200
12241
|
|
|
12201
12242
|
/* Util.Github.parseGithubIssueNumber : String -> Maybe String */
|
|
12202
12243
|
function Util_Github_parseGithubIssueNumber($0) {
|
|
12203
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
12244
|
+
return Prelude_Types_map_Functor_Maybe(csegen_823(), Util_Github_n__2629_825_guardSuccess(Prelude_Types_foldl_Foldable_List($9 => $a => Util_Github_n__2629_823_go($9, $a), {a1: {h: 0 /* 2629:821:Start */}, a2: {h: 0}}, Prelude_Types_fastUnpack($0))));
|
|
12204
12245
|
}
|
|
12205
12246
|
|
|
12206
12247
|
/* Util.Jira.2629:820:startOver */
|
|
@@ -12260,7 +12301,7 @@ function Util_Jira_n__2629_818_go($0, $1) {
|
|
|
12260
12301
|
|
|
12261
12302
|
/* Util.Jira.parseJiraSlug : String -> Maybe String */
|
|
12262
12303
|
function Util_Jira_parseJiraSlug($0) {
|
|
12263
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
12304
|
+
return Prelude_Types_map_Functor_Maybe(csegen_823(), Util_Jira_n__2629_819_guardSuccess(Prelude_Types_foldl_Foldable_List($9 => $a => Util_Jira_n__2629_818_go($9, $a), Util_Jira_n__2629_820_startOver(), Prelude_Types_fastUnpack($0))));
|
|
12264
12305
|
}
|
|
12265
12306
|
|
|
12266
12307
|
/* Data.Pagination.with block in metaPages' */
|
|
@@ -12492,7 +12533,7 @@ function Data_ReviewScore_n__3521_1043_weightReviews($0, $1, $2, $3, $4, $5) {
|
|
|
12492
12533
|
|
|
12493
12534
|
/* Data.ReviewScore.3521:1042:sort' */
|
|
12494
12535
|
function Data_ReviewScore_n__3521_1042_sortx27($0, $1, $2, $3, $4) {
|
|
12495
|
-
return Data_List_sortBy($7 => $8 => Prelude_Basics_on(
|
|
12536
|
+
return Data_List_sortBy($7 => $8 => Prelude_Basics_on(csegen_314(), $d => $d.a3, $7, $8), $4);
|
|
12496
12537
|
}
|
|
12497
12538
|
|
|
12498
12539
|
/* Data.ReviewScore.3548:1196:calc */
|
|
@@ -12529,13 +12570,13 @@ function Data_List_DeleteBy_deleteByx27($0, $1, $2) {
|
|
|
12529
12570
|
}
|
|
12530
12571
|
}
|
|
12531
12572
|
|
|
12532
|
-
/* Commands.Quick.
|
|
12533
|
-
function
|
|
12573
|
+
/* Commands.Quick.5858:5625:issuePrompt */
|
|
12574
|
+
function Commands_Quick_n__5858_5625_issuePrompt($0, $1, $2, $3) {
|
|
12534
12575
|
return 'What would you like the issue description to be (two blank lines to finish)?';
|
|
12535
12576
|
}
|
|
12536
12577
|
|
|
12537
|
-
/* Commands.Quick.
|
|
12538
|
-
function
|
|
12578
|
+
/* Commands.Quick.5858:5624:branchPrefix */
|
|
12579
|
+
function Commands_Quick_n__5858_5624_branchPrefix($0, $1, $2, $3) {
|
|
12539
12580
|
return Data_String_toLower(Commands_Quick_show_Show_IssueCategory($2));
|
|
12540
12581
|
}
|
|
12541
12582
|
|
|
@@ -12554,7 +12595,7 @@ function Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5) {
|
|
|
12554
12595
|
const $21 = $22 => $23 => {
|
|
12555
12596
|
switch($3.h) {
|
|
12556
12597
|
case undefined: /* just */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29($3.a1, $22, $23);
|
|
12557
|
-
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2b => $2c => $2d => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($30 => Prelude_IO_prim__putStr('What would you like the issue title to be?\n', $30), $2b, $2c, $2d), $38 =>
|
|
12598
|
+
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2b => $2c => $2d => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($30 => Prelude_IO_prim__putStr('What would you like the issue title to be?\n', $30), $2b, $2c, $2d), $38 => csegen_835(), $22, $23);
|
|
12558
12599
|
}
|
|
12559
12600
|
};
|
|
12560
12601
|
const $3c = issueTitle => $3d => $3e => {
|
|
@@ -12562,18 +12603,18 @@ function Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5) {
|
|
|
12562
12603
|
let $40;
|
|
12563
12604
|
switch($41.h) {
|
|
12564
12605
|
case 0: /* nothing */ {
|
|
12565
|
-
$40 = Util_Prompting_inlineDescription(csegen_88()(),
|
|
12606
|
+
$40 = Util_Prompting_inlineDescription(csegen_88()(), Commands_Quick_n__5858_5625_issuePrompt($1, $3, $2, $0), '');
|
|
12566
12607
|
break;
|
|
12567
12608
|
}
|
|
12568
12609
|
case undefined: /* just */ {
|
|
12569
|
-
$40 = $4f => $50 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
12610
|
+
$40 = $4f => $50 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_777(), Util_Prompting_editorDescription(csegen_88()(), $41.a1, {h: 0}, ''), $4f, $50);
|
|
12570
12611
|
break;
|
|
12571
12612
|
}
|
|
12572
12613
|
}
|
|
12573
12614
|
const $5e = issueBody => $5f => $60 => {
|
|
12574
12615
|
const $6b = issue => {
|
|
12575
|
-
const $6c = Prelude_Types_foldMap_Foldable_List(csegen_65()(), $72 => $72, {a1:
|
|
12576
|
-
return $84 => $85 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($88 => $89 => $8a => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($8d => Prelude_IO_prim__putStr('What would you like the branch to be named?\n', $8d), $88, $89, $8a), $95 => $96 => $97 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9a => $9b => $9c => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($9f => Prelude_IO_prim__putStr($6c, $9f), $9a, $9b, $9c), $a7 => $a8 => $a9 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
12616
|
+
const $6c = Prelude_Types_foldMap_Foldable_List(csegen_65()(), $72 => $72, {a1: Commands_Quick_n__5858_5624_branchPrefix($1, $3, $2, $0), a2: {a1: '/', a2: {a1: Prelude_Show_show_Show_Integer(issue.a1), a2: {a1: '/', a2: {h: 0}}}}});
|
|
12617
|
+
return $84 => $85 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($88 => $89 => $8a => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($8d => Prelude_IO_prim__putStr('What would you like the branch to be named?\n', $8d), $88, $89, $8a), $95 => $96 => $97 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9a => $9b => $9c => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($9f => Prelude_IO_prim__putStr($6c, $9f), $9a, $9b, $9c), $a7 => $a8 => $a9 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_835(), branchSlug => System_Git_checkoutBranch(1, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $b6 => $b6, {a1: $6c, a2: {a1: branchSlug, a2: {h: 0}}})), $a8, $a9), $96, $97), $84, $85);
|
|
12577
12618
|
};
|
|
12578
12619
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_createIssue($1, $0.a2, $0.a3, issueTitle, issueBody), $6b, $5f, $60);
|
|
12579
12620
|
};
|
|
@@ -12581,7 +12622,7 @@ function Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5) {
|
|
|
12581
12622
|
};
|
|
12582
12623
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($21, $3c, $1e, $1f);
|
|
12583
12624
|
};
|
|
12584
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
12625
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $1c, $16, $17);
|
|
12585
12626
|
};
|
|
12586
12627
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8 => $9 => $a => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d => Prelude_IO_prim__putStr('Creating a new GitHub issue and branch.\n', $d), $8, $9, $a), $14, $4, $5);
|
|
12587
12628
|
}
|
|
@@ -12602,7 +12643,7 @@ function Commands_Label_addLabels($0, $1, $2, $3, $4, $5) {
|
|
|
12602
12643
|
|
|
12603
12644
|
/* Commands.Graph.7727:7016:pendingDot */
|
|
12604
12645
|
function Commands_Graph_n__7727_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
12605
|
-
return Theme_theme($7,
|
|
12646
|
+
return Theme_theme($7, csegen_752(), csegen_750(), 6)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
|
|
12606
12647
|
}
|
|
12607
12648
|
|
|
12608
12649
|
/* Commands.Graph.7727:7015:note */
|
|
@@ -12612,7 +12653,7 @@ function Commands_Graph_n__7727_7015_note($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
12612
12653
|
|
|
12613
12654
|
/* Commands.Graph.7727:7014:missedDot */
|
|
12614
12655
|
function Commands_Graph_n__7727_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
12615
|
-
return Theme_theme($7,
|
|
12656
|
+
return Theme_theme($7, csegen_751(), csegen_751(), 7)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
|
|
12616
12657
|
}
|
|
12617
12658
|
|
|
12618
12659
|
/* Commands.Graph.7727:7013:maxValue */
|
|
@@ -12641,7 +12682,7 @@ function Commands_Graph_n__7727_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12641
12682
|
break;
|
|
12642
12683
|
}
|
|
12643
12684
|
}
|
|
12644
|
-
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__7727_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('overlayed on'), Commands_Graph_n__7727_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7))))}, a2:
|
|
12685
|
+
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__7727_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('overlayed on'), Commands_Graph_n__7727_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7))))}, a2: csegen_840()}};
|
|
12645
12686
|
const $27 = {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(Commands_Graph_n__7727_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $3a};
|
|
12646
12687
|
const $14 = {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(Commands_Graph_n__7727_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $27};
|
|
12647
12688
|
const $f = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $14};
|
|
@@ -12652,7 +12693,7 @@ function Commands_Graph_n__7727_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12652
12693
|
|
|
12653
12694
|
/* Commands.Graph.7324:6604:header */
|
|
12654
12695
|
function Commands_Graph_n__7324_6604_header($0, $1, $2, $3) {
|
|
12655
|
-
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:
|
|
12696
|
+
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_840()}}}));
|
|
12656
12697
|
}
|
|
12657
12698
|
|
|
12658
12699
|
/* Commands.Graph.7324:6603:graphable */
|
|
@@ -12675,20 +12716,20 @@ function Commands_Graph_n__6757_6183_countInParens($0, $1, $2, $3, $4) {
|
|
|
12675
12716
|
|
|
12676
12717
|
/* Commands.Graph.7727:7010:completedBox */
|
|
12677
12718
|
function Commands_Graph_n__7727_7010_completedBox($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
12678
|
-
return Theme_theme($7,
|
|
12719
|
+
return Theme_theme($7, csegen_730(), csegen_730(), 3)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25aa}'));
|
|
12679
12720
|
}
|
|
12680
12721
|
|
|
12681
12722
|
/* Commands.Graph.6757:6182:coloredLabel */
|
|
12682
12723
|
function Commands_Graph_n__6757_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
12683
12724
|
switch((($4.a2===0n)?1:0)) {
|
|
12684
|
-
case 1: return Theme_theme($0,
|
|
12725
|
+
case 1: return Theme_theme($0, csegen_730(), csegen_730(), 0)($2.a1(undefined)($4.a1));
|
|
12685
12726
|
case 0: {
|
|
12686
12727
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 2n)) {
|
|
12687
12728
|
case 1: return $2.a1(undefined)($4.a1);
|
|
12688
12729
|
case 0: {
|
|
12689
12730
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 6n)) {
|
|
12690
|
-
case 1: return Theme_theme($0,
|
|
12691
|
-
case 0: return Theme_theme($0,
|
|
12731
|
+
case 1: return Theme_theme($0, csegen_752(), csegen_750(), 1)($2.a1(undefined)($4.a1));
|
|
12732
|
+
case 0: return Theme_theme($0, csegen_751(), csegen_751(), 2)($2.a1(undefined)($4.a1));
|
|
12692
12733
|
}
|
|
12693
12734
|
}
|
|
12694
12735
|
}
|
|
@@ -12828,9 +12869,9 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12828
12869
|
|
|
12829
12870
|
/* Commands.Graph.healthGraph : Config => List PullRequest -> String -> String -> Doc AnsiStyle */
|
|
12830
12871
|
function Commands_Graph_healthGraph($0, $1, $2, $3) {
|
|
12831
|
-
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(
|
|
12872
|
+
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(csegen_371(), $11 => $11.a2, $b, $c), csegen_704(), $7, $8), Data_List_sortBy(csegen_705(), $1));
|
|
12832
12873
|
const $1e = Prelude_Types_foldr_Foldable_List(xs => m => Prelude_Types_max_Ord_Nat(Data_List1_length(xs), m), 1n, $4);
|
|
12833
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_Graph_n__7324_6604_header($3, $2, $1, $0), a2: {a1: Commands_Graph_graph($0, {a1: $36 => Commands_Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29($0, $3a => Commands_Graph_length_HasLength_Date($3a),
|
|
12874
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_Graph_n__7324_6604_header($3, $2, $1, $0), a2: {a1: Commands_Graph_graph($0, {a1: $36 => Commands_Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29($0, $3a => Commands_Graph_length_HasLength_Date($3a), csegen_856(), $36), a2: $41 => maxLabelLength => Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $45 => Commands_Graph_length_HasLength_Date($45), csegen_856(), $41, maxLabelLength), a3: $4d => Commands_Graph_labelLength_Graphable_x28PRsOnDatex20x24dateTyx29($0, $51 => Commands_Graph_length_HasLength_Date($51), csegen_856(), $4d), a4: $58 => Commands_Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29($0, $5c => Commands_Graph_length_HasLength_Date($5c), csegen_856(), $58), a5: $63 => Commands_Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29($0, $67 => Commands_Graph_length_HasLength_Date($67), csegen_856(), $63), a6: $6e => Commands_Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29($0, $72 => Commands_Graph_length_HasLength_Date($72), csegen_856(), $6e)}, $1e, 0n, 0n, Commands_Graph_n__7324_6606_unfoldGraph($3, $2, $1, $0, Data_Fuel_limit(48n), $4, {h: 0})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Commands_Graph_n__7324_6605_link($3, $2, $1, $0)), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}});
|
|
12834
12875
|
}
|
|
12835
12876
|
|
|
12836
12877
|
/* Commands.Graph.graphOne : Config -> Graphable g => Nat -> Nat -> Nat -> g -> Doc AnsiStyle */
|
|
@@ -12853,7 +12894,7 @@ function Commands_Graph_countPadRight($0, $1, $2) {
|
|
|
12853
12894
|
|
|
12854
12895
|
/* Commands.Graph.bar : Config -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
12855
12896
|
function Commands_Graph_bar($0, $1, $2, $3, $4) {
|
|
12856
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0,
|
|
12897
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0, csegen_751(), csegen_751(), 7)(Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $3, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{25e6}')))), a2: {a1: Theme_theme($0, csegen_752(), csegen_750(), 6)(Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $2, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{b7}')))), a2: {a1: Theme_theme($0, csegen_730(), csegen_730(), 3)(Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $4, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{25aa}')))), a2: {h: 0}}}}));
|
|
12857
12898
|
}
|
|
12858
12899
|
|
|
12859
12900
|
|