@mattpolzin/harmony 6.1.0 → 6.2.0
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- package/harmony +858 -804
- 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
|
|
2788
|
-
return
|
|
2786
|
+
/* {csegen:408} */
|
|
2787
|
+
const csegen_408 = __lazy(function () {
|
|
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,83 @@ 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;
|
|
2884
2879
|
});
|
|
2885
2880
|
|
|
2886
|
-
/* {csegen:
|
|
2887
|
-
const
|
|
2881
|
+
/* {csegen:705} */
|
|
2882
|
+
const csegen_705 = __lazy(function () {
|
|
2883
|
+
return $0 => $1 => Prelude_Basics_on(csegen_703(), csegen_704(), $0, $1);
|
|
2884
|
+
});
|
|
2885
|
+
|
|
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), csegen_448()(), $0, $1);
|
|
2944
|
-
});
|
|
2945
|
-
|
|
2946
|
-
/* {csegen:839} */
|
|
2947
|
-
const csegen_839 = __lazy(function () {
|
|
2941
|
+
/* {csegen:838} */
|
|
2942
|
+
const csegen_838 = __lazy(function () {
|
|
2948
2943
|
return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}};
|
|
2949
2944
|
});
|
|
2950
2945
|
|
|
2951
|
-
/* {csegen:
|
|
2952
|
-
const
|
|
2946
|
+
/* {csegen:854} */
|
|
2947
|
+
const csegen_854 = __lazy(function () {
|
|
2953
2948
|
return {a1: ann => $1 => Commands_Graph_pretty_Pretty_Date($1), a2: ann => $5 => $6 => Commands_Graph_prettyPrec_Pretty_Date($5, $6)};
|
|
2954
2949
|
});
|
|
2955
2950
|
|
|
@@ -2958,23 +2953,23 @@ function prim__sub_Integer($0, $1) {
|
|
|
2958
2953
|
return ($0-$1);
|
|
2959
2954
|
}
|
|
2960
2955
|
|
|
2961
|
-
/* Main.
|
|
2962
|
-
function
|
|
2956
|
+
/* Main.9145:1618:parsePg */
|
|
2957
|
+
function Main_n__9145_1618_parsePg($0, $1, $2, $3, $4, $5) {
|
|
2963
2958
|
return Data_String_parsePositive(csegen_2(), $5);
|
|
2964
2959
|
}
|
|
2965
2960
|
|
|
2966
|
-
/* Main.
|
|
2967
|
-
function
|
|
2961
|
+
/* Main.9145:1617:parseLim */
|
|
2962
|
+
function Main_n__9145_1617_parseLim($0, $1, $2, $3, $4) {
|
|
2968
2963
|
return Prelude_Interfaces_x3cx3dx3c(csegen_14(), x => Data_Fin_natToFin(x, 101n), $d => Data_String_parsePositive(csegen_2(), $d));
|
|
2969
2964
|
}
|
|
2970
2965
|
|
|
2971
|
-
/* Main.
|
|
2972
|
-
function
|
|
2966
|
+
/* Main.8869:1307:ffiOpts */
|
|
2967
|
+
function Main_n__8869_1307_ffiOpts($0, $1, $2, $3, $4) {
|
|
2973
2968
|
return ShellCompletion_Common_ffiOpts($0, $4, $3, $2, $1);
|
|
2974
2969
|
}
|
|
2975
2970
|
|
|
2976
|
-
/* Main.
|
|
2977
|
-
function
|
|
2971
|
+
/* Main.8869:1306:configuredOpts */
|
|
2972
|
+
function Main_n__8869_1306_configuredOpts($0, $1, $2, $3, $4) {
|
|
2978
2973
|
const $14 = $15 => {
|
|
2979
2974
|
switch($15.h) {
|
|
2980
2975
|
case 1: /* Right */ return $0.a1.a1.a2(undefined)(ShellCompletion_Common_opts($15.a1, $4, $3, $2, $1));
|
|
@@ -3009,10 +3004,10 @@ function Main_shouldUseColors($0) {
|
|
|
3009
3004
|
/* Main.shellCompletion : HasIO io => CompletionStyle -> String -> String -> String -> io () */
|
|
3010
3005
|
function Main_shellCompletion($0, $1, $2, $3, $4) {
|
|
3011
3006
|
const $5 = ShellCompletion_Common_cmdOpts($1, $2, $3, $4);
|
|
3012
|
-
const $b = Prelude_Types_maybe(() =>
|
|
3007
|
+
const $b = Prelude_Types_maybe(() => Main_n__8869_1307_ffiOpts($0, $4, $3, $2, $1), () => $15 => $0.a1.a1.a2(undefined)({a1: $15}), $5);
|
|
3013
3008
|
const $29 = $2a => {
|
|
3014
3009
|
switch($2a.h) {
|
|
3015
|
-
case 0: /* nothing */ return
|
|
3010
|
+
case 0: /* nothing */ return Main_n__8869_1306_configuredOpts($0, $4, $3, $2, $1);
|
|
3016
3011
|
case undefined: /* just */ return $0.a1.a1.a2(undefined)($2a.a1);
|
|
3017
3012
|
}
|
|
3018
3013
|
};
|
|
@@ -3235,7 +3230,7 @@ function Main_handleAuthenticatedArgs($0, $1, $2) {
|
|
|
3235
3230
|
}
|
|
3236
3231
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe($b2, filter => ({a1: {a1: filter, a2: {a1: $af.a1, a2: $af.a2}}}));
|
|
3237
3232
|
};
|
|
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})},
|
|
3233
|
+
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__9145_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__9145_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
3234
|
return $bf => {
|
|
3240
3235
|
switch($91.h) {
|
|
3241
3236
|
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 +6251,7 @@ function Data_Promise_bind($0, $1, $2, $3) {
|
|
|
6256
6251
|
}
|
|
6257
6252
|
|
|
6258
6253
|
/* ShellCompletion.Common.case block in optsForRequestCmd,slugsOrLoginsOrLabels */
|
|
6259
|
-
function
|
|
6254
|
+
function ShellCompletion_Common_case__optsForRequestCmdx2cslugsOrLoginsOrLabels_14131($0, $1, $2, $3) {
|
|
6260
6255
|
switch($3.h) {
|
|
6261
6256
|
case 1: /* :: */ {
|
|
6262
6257
|
switch($3.a1) {
|
|
@@ -6278,14 +6273,14 @@ function ShellCompletion_Common_case__optsForRequestCmdx2cslugsOrLoginsOrLabels_
|
|
|
6278
6273
|
}
|
|
6279
6274
|
}
|
|
6280
6275
|
|
|
6281
|
-
/* ShellCompletion.Common.
|
|
6282
|
-
function
|
|
6283
|
-
return
|
|
6276
|
+
/* ShellCompletion.Common.5340:14125:slugsOrLoginsOrLabels */
|
|
6277
|
+
function ShellCompletion_Common_n__5340_14125_slugsOrLoginsOrLabels($0, $1, $2) {
|
|
6278
|
+
return ShellCompletion_Common_case__optsForRequestCmdx2cslugsOrLoginsOrLabels_14131($0, $1, $2, Data_String_asList($0));
|
|
6284
6279
|
}
|
|
6285
6280
|
|
|
6286
6281
|
/* ShellCompletion.Common.optsForRequestCmd : Config => CompletionStyle -> String -> List String */
|
|
6287
6282
|
function ShellCompletion_Common_optsForRequestCmd($0, $1, $2) {
|
|
6288
|
-
return Prelude_Types_List_tailRecAppend(ShellCompletion_Util_withPrefix($1, $2, ShellCompletion_Common_allRequestCmdOpts($1)),
|
|
6283
|
+
return Prelude_Types_List_tailRecAppend(ShellCompletion_Util_withPrefix($1, $2, ShellCompletion_Common_allRequestCmdOpts($1)), ShellCompletion_Common_n__5340_14125_slugsOrLoginsOrLabels($2, $1, $0));
|
|
6289
6284
|
}
|
|
6290
6285
|
|
|
6291
6286
|
/* ShellCompletion.Common.optsForPrIntoOption : HasIO io => String -> io (Maybe (List String)) */
|
|
@@ -6307,37 +6302,16 @@ function ShellCompletion_Common_optsForPrIntoOption($0, $1) {
|
|
|
6307
6302
|
/* ShellCompletion.Common.opts : Config => CompletionStyle -> String -> String -> String -> List String */
|
|
6308
6303
|
function ShellCompletion_Common_opts($0, $1, $2, $3, $4) {
|
|
6309
6304
|
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
6305
|
case 'label': {
|
|
6332
6306
|
switch($3) {
|
|
6333
6307
|
case '--': {
|
|
6334
|
-
const $
|
|
6335
|
-
return Prelude_Types_List_mapAppend({h: 0}, $
|
|
6308
|
+
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);
|
|
6309
|
+
return Prelude_Types_List_mapAppend({h: 0}, $23 => Data_CompletionStyle_name($1, $23), $7);
|
|
6336
6310
|
}
|
|
6337
6311
|
default: {
|
|
6338
|
-
const $
|
|
6339
|
-
const $
|
|
6340
|
-
return Prelude_Types_List_mapAppend({h: 0}, $
|
|
6312
|
+
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);
|
|
6313
|
+
const $41 = Prelude_Types_List_filterAppend({h: 0}, $45 => ShellCompletion_Util_isPrefixOf($1, $3, $45), $28);
|
|
6314
|
+
return Prelude_Types_List_mapAppend({h: 0}, $4e => Data_CompletionStyle_name($1, $4e), $41);
|
|
6341
6315
|
}
|
|
6342
6316
|
}
|
|
6343
6317
|
}
|
|
@@ -6346,15 +6320,15 @@ function ShellCompletion_Common_opts($0, $1, $2, $3, $4) {
|
|
|
6346
6320
|
case '--': {
|
|
6347
6321
|
switch($4) {
|
|
6348
6322
|
case 'list': {
|
|
6349
|
-
const $
|
|
6350
|
-
return Prelude_Types_List_mapAppend({h: 0}, $
|
|
6323
|
+
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);
|
|
6324
|
+
return Prelude_Types_List_mapAppend({h: 0}, $6f => Data_CompletionStyle_name($1, $6f), $55);
|
|
6351
6325
|
}
|
|
6352
6326
|
default: {
|
|
6353
6327
|
switch($4) {
|
|
6354
6328
|
case 'list': {
|
|
6355
|
-
const $
|
|
6356
|
-
const $
|
|
6357
|
-
return Prelude_Types_List_mapAppend({h: 0}, $
|
|
6329
|
+
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);
|
|
6330
|
+
const $8c = Prelude_Types_List_filterAppend({h: 0}, $90 => ShellCompletion_Util_isPrefixOf($1, $3, $90), $75);
|
|
6331
|
+
return Prelude_Types_List_mapAppend({h: 0}, $99 => Data_CompletionStyle_name($1, $99), $8c);
|
|
6358
6332
|
}
|
|
6359
6333
|
default: {
|
|
6360
6334
|
switch($3) {
|
|
@@ -6369,9 +6343,9 @@ function ShellCompletion_Common_opts($0, $1, $2, $3, $4) {
|
|
|
6369
6343
|
default: {
|
|
6370
6344
|
switch($4) {
|
|
6371
6345
|
case 'list': {
|
|
6372
|
-
const $
|
|
6373
|
-
const $
|
|
6374
|
-
return Prelude_Types_List_mapAppend({h: 0}, $
|
|
6346
|
+
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);
|
|
6347
|
+
const $b7 = Prelude_Types_List_filterAppend({h: 0}, $bb => ShellCompletion_Util_isPrefixOf($1, $3, $bb), $a0);
|
|
6348
|
+
return Prelude_Types_List_mapAppend({h: 0}, $c4 => Data_CompletionStyle_name($1, $c4), $b7);
|
|
6375
6349
|
}
|
|
6376
6350
|
default: {
|
|
6377
6351
|
switch($3) {
|
|
@@ -6390,16 +6364,16 @@ function ShellCompletion_Common_opts($0, $1, $2, $3, $4) {
|
|
|
6390
6364
|
case 'graph': return {a1: '--completed', a2: $0.a10};
|
|
6391
6365
|
case '--completed': return $0.a10;
|
|
6392
6366
|
default: {
|
|
6393
|
-
switch(Data_Maybe_isJust(Data_List_find($
|
|
6394
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0}, $
|
|
6367
|
+
switch(Data_Maybe_isJust(Data_List_find($d5 => Prelude_EqOrd_x3dx3d_Eq_String($d5, $4), csegen_152()))) {
|
|
6368
|
+
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
6369
|
case 0: return {h: 0};
|
|
6396
6370
|
}
|
|
6397
6371
|
}
|
|
6398
6372
|
}
|
|
6399
6373
|
}
|
|
6400
6374
|
default: {
|
|
6401
|
-
switch(Data_Maybe_isJust(Data_List_find($
|
|
6402
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0}, $
|
|
6375
|
+
switch(Data_Maybe_isJust(Data_List_find($107 => Prelude_EqOrd_x3dx3d_Eq_String($107, $4), csegen_152()))) {
|
|
6376
|
+
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
6377
|
case 0: return {h: 0};
|
|
6404
6378
|
}
|
|
6405
6379
|
}
|
|
@@ -6692,6 +6666,27 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
6692
6666
|
default: return ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allGraphCmdOpts($0));
|
|
6693
6667
|
}
|
|
6694
6668
|
}
|
|
6669
|
+
case 'config': {
|
|
6670
|
+
switch($2) {
|
|
6671
|
+
case '--': {
|
|
6672
|
+
switch($3) {
|
|
6673
|
+
case 'config': return ShellCompletion_Util_all($0, ShellCompletion_Common_allSettableProps($0));
|
|
6674
|
+
default: {
|
|
6675
|
+
switch($3) {
|
|
6676
|
+
case 'config': return ShellCompletion_Util_someWithPrefix($0, $2, ShellCompletion_Common_allSettableProps($0));
|
|
6677
|
+
default: return {a1: {h: 0}};
|
|
6678
|
+
}
|
|
6679
|
+
}
|
|
6680
|
+
}
|
|
6681
|
+
}
|
|
6682
|
+
default: {
|
|
6683
|
+
switch($3) {
|
|
6684
|
+
case 'config': return ShellCompletion_Util_someWithPrefix($0, $2, ShellCompletion_Common_allSettableProps($0));
|
|
6685
|
+
default: return {a1: {h: 0}};
|
|
6686
|
+
}
|
|
6687
|
+
}
|
|
6688
|
+
}
|
|
6689
|
+
}
|
|
6695
6690
|
default: return {h: 0};
|
|
6696
6691
|
}
|
|
6697
6692
|
}
|
|
@@ -6772,46 +6767,46 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
6772
6767
|
case '--into': return {h: 0};
|
|
6773
6768
|
case '--ready': return ShellCompletion_Util_someFrom($0, {a1: '--into', a2: {h: 0}}, ShellCompletion_Common_allPrCmdOpts($0));
|
|
6774
6769
|
case 'pr': {
|
|
6775
|
-
let $
|
|
6770
|
+
let $1b0;
|
|
6776
6771
|
switch(ShellCompletion_Util_isHashPrefix($2)) {
|
|
6777
6772
|
case 1: {
|
|
6778
|
-
$
|
|
6773
|
+
$1b0 = () => ({h: 0});
|
|
6779
6774
|
break;
|
|
6780
6775
|
}
|
|
6781
6776
|
case 0: {
|
|
6782
|
-
$
|
|
6777
|
+
$1b0 = () => ({a1: {h: 0}});
|
|
6783
6778
|
break;
|
|
6784
6779
|
}
|
|
6785
6780
|
}
|
|
6786
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $
|
|
6781
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $1b0);
|
|
6787
6782
|
}
|
|
6788
6783
|
case '--draft': {
|
|
6789
|
-
let $
|
|
6784
|
+
let $1c6;
|
|
6790
6785
|
switch(ShellCompletion_Util_isHashPrefix($2)) {
|
|
6791
6786
|
case 1: {
|
|
6792
|
-
$
|
|
6787
|
+
$1c6 = () => ({h: 0});
|
|
6793
6788
|
break;
|
|
6794
6789
|
}
|
|
6795
6790
|
case 0: {
|
|
6796
|
-
$
|
|
6791
|
+
$1c6 = () => ({a1: {h: 0}});
|
|
6797
6792
|
break;
|
|
6798
6793
|
}
|
|
6799
6794
|
}
|
|
6800
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, Prelude_Types_List_filterAppend({h: 0}, $
|
|
6795
|
+
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
6796
|
}
|
|
6802
6797
|
default: {
|
|
6803
|
-
let $
|
|
6798
|
+
let $1dc;
|
|
6804
6799
|
switch(ShellCompletion_Util_isHashPrefix($2)) {
|
|
6805
6800
|
case 1: {
|
|
6806
|
-
$
|
|
6801
|
+
$1dc = () => ({h: 0});
|
|
6807
6802
|
break;
|
|
6808
6803
|
}
|
|
6809
6804
|
case 0: {
|
|
6810
|
-
$
|
|
6805
|
+
$1dc = () => ({a1: {h: 0}});
|
|
6811
6806
|
break;
|
|
6812
6807
|
}
|
|
6813
6808
|
}
|
|
6814
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, Prelude_Types_List_filterAppend({h: 0}, $
|
|
6809
|
+
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
6810
|
}
|
|
6816
6811
|
}
|
|
6817
6812
|
}
|
|
@@ -6825,46 +6820,46 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
6825
6820
|
case '--into': return {h: 0};
|
|
6826
6821
|
case '--ready': return ShellCompletion_Util_someFrom($0, {a1: '--into', a2: {h: 0}}, ShellCompletion_Common_allPrCmdOpts($0));
|
|
6827
6822
|
case 'pr': {
|
|
6828
|
-
let $
|
|
6823
|
+
let $1f9;
|
|
6829
6824
|
switch(ShellCompletion_Util_isHashPrefix($2)) {
|
|
6830
6825
|
case 1: {
|
|
6831
|
-
$
|
|
6826
|
+
$1f9 = () => ({h: 0});
|
|
6832
6827
|
break;
|
|
6833
6828
|
}
|
|
6834
6829
|
case 0: {
|
|
6835
|
-
$
|
|
6830
|
+
$1f9 = () => ({a1: {h: 0}});
|
|
6836
6831
|
break;
|
|
6837
6832
|
}
|
|
6838
6833
|
}
|
|
6839
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $
|
|
6834
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $1f9);
|
|
6840
6835
|
}
|
|
6841
6836
|
case '--draft': {
|
|
6842
|
-
let $
|
|
6837
|
+
let $20f;
|
|
6843
6838
|
switch(ShellCompletion_Util_isHashPrefix($2)) {
|
|
6844
6839
|
case 1: {
|
|
6845
|
-
$
|
|
6840
|
+
$20f = () => ({h: 0});
|
|
6846
6841
|
break;
|
|
6847
6842
|
}
|
|
6848
6843
|
case 0: {
|
|
6849
|
-
$
|
|
6844
|
+
$20f = () => ({a1: {h: 0}});
|
|
6850
6845
|
break;
|
|
6851
6846
|
}
|
|
6852
6847
|
}
|
|
6853
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, Prelude_Types_List_filterAppend({h: 0}, $
|
|
6848
|
+
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
6849
|
}
|
|
6855
6850
|
default: {
|
|
6856
|
-
let $
|
|
6851
|
+
let $225;
|
|
6857
6852
|
switch(ShellCompletion_Util_isHashPrefix($2)) {
|
|
6858
6853
|
case 1: {
|
|
6859
|
-
$
|
|
6854
|
+
$225 = () => ({h: 0});
|
|
6860
6855
|
break;
|
|
6861
6856
|
}
|
|
6862
6857
|
case 0: {
|
|
6863
|
-
$
|
|
6858
|
+
$225 = () => ({a1: {h: 0}});
|
|
6864
6859
|
break;
|
|
6865
6860
|
}
|
|
6866
6861
|
}
|
|
6867
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, Prelude_Types_List_filterAppend({h: 0}, $
|
|
6862
|
+
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
6863
|
}
|
|
6869
6864
|
}
|
|
6870
6865
|
}
|
|
@@ -6875,46 +6870,46 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
6875
6870
|
case '--into': return {h: 0};
|
|
6876
6871
|
case '--ready': return ShellCompletion_Util_someFrom($0, {a1: '--into', a2: {h: 0}}, ShellCompletion_Common_allPrCmdOpts($0));
|
|
6877
6872
|
case 'pr': {
|
|
6878
|
-
let $
|
|
6873
|
+
let $23b;
|
|
6879
6874
|
switch(ShellCompletion_Util_isHashPrefix($2)) {
|
|
6880
6875
|
case 1: {
|
|
6881
|
-
$
|
|
6876
|
+
$23b = () => ({h: 0});
|
|
6882
6877
|
break;
|
|
6883
6878
|
}
|
|
6884
6879
|
case 0: {
|
|
6885
|
-
$
|
|
6880
|
+
$23b = () => ({a1: {h: 0}});
|
|
6886
6881
|
break;
|
|
6887
6882
|
}
|
|
6888
6883
|
}
|
|
6889
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $
|
|
6884
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $23b);
|
|
6890
6885
|
}
|
|
6891
6886
|
case '--draft': {
|
|
6892
|
-
let $
|
|
6887
|
+
let $251;
|
|
6893
6888
|
switch(ShellCompletion_Util_isHashPrefix($2)) {
|
|
6894
6889
|
case 1: {
|
|
6895
|
-
$
|
|
6890
|
+
$251 = () => ({h: 0});
|
|
6896
6891
|
break;
|
|
6897
6892
|
}
|
|
6898
6893
|
case 0: {
|
|
6899
|
-
$
|
|
6894
|
+
$251 = () => ({a1: {h: 0}});
|
|
6900
6895
|
break;
|
|
6901
6896
|
}
|
|
6902
6897
|
}
|
|
6903
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, Prelude_Types_List_filterAppend({h: 0}, $
|
|
6898
|
+
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
6899
|
}
|
|
6905
6900
|
default: {
|
|
6906
|
-
let $
|
|
6901
|
+
let $267;
|
|
6907
6902
|
switch(ShellCompletion_Util_isHashPrefix($2)) {
|
|
6908
6903
|
case 1: {
|
|
6909
|
-
$
|
|
6904
|
+
$267 = () => ({h: 0});
|
|
6910
6905
|
break;
|
|
6911
6906
|
}
|
|
6912
6907
|
case 0: {
|
|
6913
|
-
$
|
|
6908
|
+
$267 = () => ({a1: {h: 0}});
|
|
6914
6909
|
break;
|
|
6915
6910
|
}
|
|
6916
6911
|
}
|
|
6917
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, Prelude_Types_List_filterAppend({h: 0}, $
|
|
6912
|
+
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
6913
|
}
|
|
6919
6914
|
}
|
|
6920
6915
|
}
|
|
@@ -6933,6 +6928,27 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
6933
6928
|
default: return ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allGraphCmdOpts($0));
|
|
6934
6929
|
}
|
|
6935
6930
|
}
|
|
6931
|
+
case 'config': {
|
|
6932
|
+
switch($2) {
|
|
6933
|
+
case '--': {
|
|
6934
|
+
switch($3) {
|
|
6935
|
+
case 'config': return ShellCompletion_Util_all($0, ShellCompletion_Common_allSettableProps($0));
|
|
6936
|
+
default: {
|
|
6937
|
+
switch($3) {
|
|
6938
|
+
case 'config': return ShellCompletion_Util_someWithPrefix($0, $2, ShellCompletion_Common_allSettableProps($0));
|
|
6939
|
+
default: return {a1: {h: 0}};
|
|
6940
|
+
}
|
|
6941
|
+
}
|
|
6942
|
+
}
|
|
6943
|
+
}
|
|
6944
|
+
default: {
|
|
6945
|
+
switch($3) {
|
|
6946
|
+
case 'config': return ShellCompletion_Util_someWithPrefix($0, $2, ShellCompletion_Common_allSettableProps($0));
|
|
6947
|
+
default: return {a1: {h: 0}};
|
|
6948
|
+
}
|
|
6949
|
+
}
|
|
6950
|
+
}
|
|
6951
|
+
}
|
|
6936
6952
|
default: return {h: 0};
|
|
6937
6953
|
}
|
|
6938
6954
|
}
|
|
@@ -7006,8 +7022,33 @@ function ShellCompletion_Common_allContributeCmdOpts($0) {
|
|
|
7006
7022
|
return Prelude_Types_List_mapAppend({h: 0}, $4 => Data_CompletionStyle_completionResult($0, $4), ShellCompletion_Common_allContributeCmdOptsAndDescriptions());
|
|
7007
7023
|
}
|
|
7008
7024
|
|
|
7025
|
+
/* System.Git.with block in dropFirstIf */
|
|
7026
|
+
function System_Git_with__dropFirstIf_12381($0, $1, $2) {
|
|
7027
|
+
switch($0) {
|
|
7028
|
+
case '': {
|
|
7029
|
+
switch($1.h) {
|
|
7030
|
+
case 0: /* Nil */ return '';
|
|
7031
|
+
default: {
|
|
7032
|
+
const $6 = ($1.a1+$1.a2);
|
|
7033
|
+
switch($2($1.a1)) {
|
|
7034
|
+
case 1: return $1.a2;
|
|
7035
|
+
case 0: return $6;
|
|
7036
|
+
}
|
|
7037
|
+
}
|
|
7038
|
+
}
|
|
7039
|
+
}
|
|
7040
|
+
default: {
|
|
7041
|
+
const $d = ($1.a1+$1.a2);
|
|
7042
|
+
switch($2($1.a1)) {
|
|
7043
|
+
case 1: return $1.a2;
|
|
7044
|
+
case 0: return $d;
|
|
7045
|
+
}
|
|
7046
|
+
}
|
|
7047
|
+
}
|
|
7048
|
+
}
|
|
7049
|
+
|
|
7009
7050
|
/* System.Git.case block in unpushedCommits */
|
|
7010
|
-
function
|
|
7051
|
+
function System_Git_case__unpushedCommits_13102($0, $1) {
|
|
7011
7052
|
switch($0) {
|
|
7012
7053
|
case '': {
|
|
7013
7054
|
switch($1.h) {
|
|
@@ -7020,7 +7061,7 @@ function System_Git_case__unpushedCommits_13086($0, $1) {
|
|
|
7020
7061
|
}
|
|
7021
7062
|
|
|
7022
7063
|
/* System.Git.case block in stagedChanges */
|
|
7023
|
-
function
|
|
7064
|
+
function System_Git_case__stagedChanges_13046($0, $1) {
|
|
7024
7065
|
switch($0) {
|
|
7025
7066
|
case '': {
|
|
7026
7067
|
switch($1.h) {
|
|
@@ -7033,7 +7074,7 @@ function System_Git_case__stagedChanges_13030($0, $1) {
|
|
|
7033
7074
|
}
|
|
7034
7075
|
|
|
7035
7076
|
/* System.Git.case block in uncommittedChanges */
|
|
7036
|
-
function
|
|
7077
|
+
function System_Git_case__uncommittedChanges_12981($0, $1) {
|
|
7037
7078
|
switch($0) {
|
|
7038
7079
|
case '': {
|
|
7039
7080
|
switch($1.h) {
|
|
@@ -7046,7 +7087,7 @@ function System_Git_case__uncommittedChanges_12965($0, $1) {
|
|
|
7046
7087
|
}
|
|
7047
7088
|
|
|
7048
7089
|
/* System.Git.case block in remoteTrackingBranch */
|
|
7049
|
-
function
|
|
7090
|
+
function System_Git_case__remoteTrackingBranch_12915($0, $1, $2) {
|
|
7050
7091
|
switch($1) {
|
|
7051
7092
|
case '': {
|
|
7052
7093
|
switch($2.h) {
|
|
@@ -7058,8 +7099,17 @@ function System_Git_case__remoteTrackingBranch_12899($0, $1, $2) {
|
|
|
7058
7099
|
}
|
|
7059
7100
|
}
|
|
7060
7101
|
|
|
7061
|
-
/* System.Git.
|
|
7062
|
-
function
|
|
7102
|
+
/* System.Git.7534:12560:specialPrefix */
|
|
7103
|
+
function System_Git_n__7534_12560_specialPrefix($0) {
|
|
7104
|
+
switch($0) {
|
|
7105
|
+
case '*': return 1;
|
|
7106
|
+
case '+': return 1;
|
|
7107
|
+
default: return 0;
|
|
7108
|
+
}
|
|
7109
|
+
}
|
|
7110
|
+
|
|
7111
|
+
/* System.Git.7401:12440:res */
|
|
7112
|
+
function System_Git_n__7401_12440_res($0, $1) {
|
|
7063
7113
|
const $2 = $0($1);
|
|
7064
7114
|
switch($2.a2.a2) {
|
|
7065
7115
|
case 0: return {h: 1 /* Right */, a1: $2.a1};
|
|
@@ -7067,20 +7117,6 @@ function System_Git_n__7399_12437_res($0, $1) {
|
|
|
7067
7117
|
}
|
|
7068
7118
|
}
|
|
7069
7119
|
|
|
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
7120
|
/* System.Git.userEmail : Promise' String */
|
|
7085
7121
|
function System_Git_userEmail($0, $1) {
|
|
7086
7122
|
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 +7124,12 @@ function System_Git_userEmail($0, $1) {
|
|
|
7088
7124
|
|
|
7089
7125
|
/* System.Git.unpushedCommits : Promise' (Maybe String) */
|
|
7090
7126
|
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(
|
|
7127
|
+
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
7128
|
}
|
|
7093
7129
|
|
|
7094
7130
|
/* System.Git.uncommittedChanges : Promise' (Maybe String) */
|
|
7095
7131
|
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(
|
|
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: '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
7133
|
}
|
|
7098
7134
|
|
|
7099
7135
|
/* System.Git.stdout : (String, (String, Int)) -> String */
|
|
@@ -7103,7 +7139,7 @@ function System_Git_stdout($0) {
|
|
|
7103
7139
|
|
|
7104
7140
|
/* System.Git.stagedChanges : Promise' (Maybe String) */
|
|
7105
7141
|
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(
|
|
7142
|
+
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
7143
|
}
|
|
7108
7144
|
|
|
7109
7145
|
/* System.Git.rootDir : Promise' String */
|
|
@@ -7118,7 +7154,7 @@ function System_Git_remoteURI($0, $1, $2) {
|
|
|
7118
7154
|
|
|
7119
7155
|
/* System.Git.remoteTrackingBranch : Promise' (Maybe String) */
|
|
7120
7156
|
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(
|
|
7157
|
+
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
7158
|
}
|
|
7123
7159
|
|
|
7124
7160
|
/* System.Git.pushNewBranch : String -> String -> Promise' () */
|
|
@@ -7133,12 +7169,12 @@ function System_Git_push($0, $1) {
|
|
|
7133
7169
|
|
|
7134
7170
|
/* System.Git.promise : IO (a, (String, Int)) -> Promise' a */
|
|
7135
7171
|
function System_Git_promise($0, $1, $2) {
|
|
7136
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($5 => $6 => $7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($a =>
|
|
7172
|
+
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
7173
|
}
|
|
7138
7174
|
|
|
7139
7175
|
/* System.Git.parseBranchList : String -> List String */
|
|
7140
7176
|
function System_Git_parseBranchList($0) {
|
|
7141
|
-
return Prelude_Types_List_mapAppend({h: 0}, $4 => Data_String_trim($4), Data_String_lines(
|
|
7177
|
+
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
7178
|
}
|
|
7143
7179
|
|
|
7144
7180
|
/* System.Git.listRemotes : Promise' (List String) */
|
|
@@ -7156,9 +7192,9 @@ function System_Git_git($0, $1) {
|
|
|
7156
7192
|
return Util_System_Escaped_runx27($0, {a1: 'git', a2: $1});
|
|
7157
7193
|
}
|
|
7158
7194
|
|
|
7159
|
-
/* System.Git.
|
|
7160
|
-
function
|
|
7161
|
-
return
|
|
7195
|
+
/* System.Git.dropFirstIf : (Char -> Bool) -> String -> String */
|
|
7196
|
+
function System_Git_dropFirstIf($0, $1) {
|
|
7197
|
+
return System_Git_with__dropFirstIf_12381($1, Data_String_asList($1), $0);
|
|
7162
7198
|
}
|
|
7163
7199
|
|
|
7164
7200
|
/* System.Git.currentBranch : Promise' String */
|
|
@@ -7206,17 +7242,17 @@ function Util_System_runx27($0, $1) {
|
|
|
7206
7242
|
const $33 = $34 => {
|
|
7207
7243
|
switch($34.h) {
|
|
7208
7244
|
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)(
|
|
7245
|
+
case 0: /* Left */ return $0.a1.a1.a2(undefined)(csegen_223());
|
|
7210
7246
|
}
|
|
7211
7247
|
};
|
|
7212
7248
|
return $0.a1.a2(undefined)(undefined)(System_File_ReadWrite_fRead($0, $15))($33);
|
|
7213
7249
|
}
|
|
7214
|
-
case 0: /* Left */ return $0.a1.a1.a2(undefined)(
|
|
7250
|
+
case 0: /* Left */ return $0.a1.a1.a2(undefined)(csegen_223());
|
|
7215
7251
|
}
|
|
7216
7252
|
};
|
|
7217
7253
|
return $0.a1.a2(undefined)(undefined)(System_File_ReadWrite_fRead($0, $12))($24);
|
|
7218
7254
|
}
|
|
7219
|
-
case 0: /* Left */ return $0.a1.a1.a2(undefined)(
|
|
7255
|
+
case 0: /* Left */ return $0.a1.a1.a2(undefined)(csegen_223());
|
|
7220
7256
|
}
|
|
7221
7257
|
};
|
|
7222
7258
|
return $0.a1.a2(undefined)(undefined)(FFI_SystemUtil_popenx27($0, $1, 0))($f);
|
|
@@ -7272,10 +7308,10 @@ function System_File_ReadWrite_readLinesOnto($0, $1, $2, $3, $4) {
|
|
|
7272
7308
|
switch($1f) {
|
|
7273
7309
|
case 0: {
|
|
7274
7310
|
switch($2) {
|
|
7275
|
-
case 0n: return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1,
|
|
7311
|
+
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
7312
|
default: {
|
|
7277
7313
|
const $37 = ($2-1n);
|
|
7278
|
-
return Prelude_Interfaces_x2ax3e({a1: b => a => func => $3d => Prelude_Interfaces_Functor_map_Functor_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1.a1,
|
|
7314
|
+
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
7315
|
}
|
|
7280
7316
|
}
|
|
7281
7317
|
}
|
|
@@ -7311,7 +7347,7 @@ function System_File_ReadWrite_getStringAndFree($0, $1, $2) {
|
|
|
7311
7347
|
const $16 = $17 => {
|
|
7312
7348
|
switch($17) {
|
|
7313
7349
|
case 1: return System_File_Error_returnError($0);
|
|
7314
|
-
case 0: return Prelude_Interfaces_Applicative_pure_Applicative_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1,
|
|
7350
|
+
case 0: return Prelude_Interfaces_Applicative_pure_Applicative_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1, csegen_230(), '');
|
|
7315
7351
|
}
|
|
7316
7352
|
};
|
|
7317
7353
|
return $0.a1.a2(undefined)(undefined)(System_File_Error_fileError($0, $1))($16);
|
|
@@ -7913,7 +7949,7 @@ function Data_Config_propHelpx27($0) {
|
|
|
7913
7949
|
|
|
7914
7950
|
/* Data.Config.parseConfig : Ephemeral -> String -> Either String Config */
|
|
7915
7951
|
function Data_Config_parseConfig($0, $1) {
|
|
7916
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
7952
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_235(), csegen_298(), $8 => Data_Config_n__10207_7581_parseConfigJson($0, $8), $1);
|
|
7917
7953
|
}
|
|
7918
7954
|
|
|
7919
7955
|
/* Data.Config.CommentStrategy.parseCommentConfig : String -> Maybe CommentStrategy */
|
|
@@ -7939,12 +7975,12 @@ function Data_Config_ParseBranchStrategy_parseBranchConfig($0) {
|
|
|
7939
7975
|
|
|
7940
7976
|
/* Data.Config.longestSettablePropName : Nat */
|
|
7941
7977
|
const Data_Config_longestSettablePropName = __lazy(function () {
|
|
7942
|
-
return Prelude_Types_foldr_Foldable_List(
|
|
7978
|
+
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
7979
|
});
|
|
7944
7980
|
|
|
7945
7981
|
/* Data.Config.json : Config -> JSON */
|
|
7946
7982
|
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(
|
|
7983
|
+
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
7984
|
}
|
|
7949
7985
|
|
|
7950
7986
|
/* Data.Config.filename : String */
|
|
@@ -7954,16 +7990,16 @@ const Data_Config_filename = __lazy(function () {
|
|
|
7954
7990
|
|
|
7955
7991
|
/* Data.Config.commentConfig : JSON -> Either String CommentStrategy */
|
|
7956
7992
|
function Data_Config_commentConfig($0) {
|
|
7957
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
7993
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_235(), csegen_322(), $7 => Data_Either_maybeToEither(() => '', Data_Config_CommentStrategy_parseCommentConfig($7)), $0);
|
|
7958
7994
|
}
|
|
7959
7995
|
|
|
7960
7996
|
/* Data.Config.branchConfig : JSON -> Either String ParseBranchStrategy */
|
|
7961
7997
|
function Data_Config_branchConfig($0) {
|
|
7962
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
7998
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_235(), csegen_322(), $7 => Data_Either_maybeToEither(() => '', Data_Config_ParseBranchStrategy_parseBranchConfig($7)), $0);
|
|
7963
7999
|
}
|
|
7964
8000
|
|
|
7965
|
-
/* Language.JSON.Accessors.6303:
|
|
7966
|
-
function
|
|
8001
|
+
/* Language.JSON.Accessors.6303:18519:lookup' */
|
|
8002
|
+
function Language_JSON_Accessors_n__6303_18519_lookupx27($0, $1, $2, $3, $4) {
|
|
7967
8003
|
return Data_Either_maybeToEither(() => Prelude_Types_foldMap_Foldable_List(csegen_65()(), $c => $c, {a1: 'Missing required key: ', a2: {a1: $3, a2: {a1: '.', a2: {h: 0}}}}), Data_List_lookup(csegen_55(), $3, $4));
|
|
7968
8004
|
}
|
|
7969
8005
|
|
|
@@ -7989,7 +8025,7 @@ function Language_JSON_Accessors_string($0) {
|
|
|
7989
8025
|
default: return {h: 0};
|
|
7990
8026
|
}
|
|
7991
8027
|
};
|
|
7992
|
-
return Language_JSON_Accessors_access(
|
|
8028
|
+
return Language_JSON_Accessors_access(csegen_326(), 'string', $5, $0);
|
|
7993
8029
|
}
|
|
7994
8030
|
|
|
7995
8031
|
/* Language.JSON.Accessors.optional : (JSON -> Either String a) -> JSON -> Either String (Maybe a) */
|
|
@@ -8019,7 +8055,7 @@ function Language_JSON_Accessors_lookupAll($0, $1) {
|
|
|
8019
8055
|
switch($0.h) {
|
|
8020
8056
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
8021
8057
|
case undefined: /* cons */ {
|
|
8022
|
-
const $4 =
|
|
8058
|
+
const $4 = Language_JSON_Accessors_n__6303_18519_lookupx27($0.a1, $0.a2, $1, $0.a1, $1);
|
|
8023
8059
|
switch($4.h) {
|
|
8024
8060
|
case 1: /* Right */ {
|
|
8025
8061
|
const $b = Language_JSON_Accessors_lookupAll($0.a2, $1);
|
|
@@ -8042,7 +8078,7 @@ function Language_JSON_Accessors_integer($0) {
|
|
|
8042
8078
|
default: return {h: 0};
|
|
8043
8079
|
}
|
|
8044
8080
|
};
|
|
8045
|
-
return Language_JSON_Accessors_access(
|
|
8081
|
+
return Language_JSON_Accessors_access(csegen_326(), 'integer', $5, $0);
|
|
8046
8082
|
}
|
|
8047
8083
|
|
|
8048
8084
|
/* Language.JSON.Accessors.bool : JSON -> Either String Bool */
|
|
@@ -8053,13 +8089,13 @@ function Language_JSON_Accessors_bool($0) {
|
|
|
8053
8089
|
default: return {h: 0};
|
|
8054
8090
|
}
|
|
8055
8091
|
};
|
|
8056
|
-
return Language_JSON_Accessors_access(
|
|
8092
|
+
return Language_JSON_Accessors_access(csegen_326(), 'bool', $5, $0);
|
|
8057
8093
|
}
|
|
8058
8094
|
|
|
8059
8095
|
/* Language.JSON.Accessors.array : (JSON -> Either String a) -> JSON -> Either String (List a) */
|
|
8060
8096
|
function Language_JSON_Accessors_array($0, $1) {
|
|
8061
8097
|
switch($1.h) {
|
|
8062
|
-
case 5: /* JArray */ return Prelude_Types_traverse_Traversable_List(
|
|
8098
|
+
case 5: /* JArray */ return Prelude_Types_traverse_Traversable_List(csegen_230(), $0, $1.a1);
|
|
8063
8099
|
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
8100
|
}
|
|
8065
8101
|
}
|
|
@@ -8767,13 +8803,13 @@ function Util_Prompting_with__yesNoPromptx2cyesUnlessNo_1359($0, $1, $2, $3, $4,
|
|
|
8767
8803
|
}
|
|
8768
8804
|
}
|
|
8769
8805
|
|
|
8770
|
-
/* Util.Prompting.
|
|
8771
|
-
function
|
|
8806
|
+
/* Util.Prompting.5820:1351:yesUnlessNo */
|
|
8807
|
+
function Util_Prompting_n__5820_1351_yesUnlessNo($0, $1, $2, $3) {
|
|
8772
8808
|
return Util_Prompting_with__yesNoPromptx2cyesUnlessNo_1359(undefined, $0, $1, $2, $3, Data_String_toLower($3));
|
|
8773
8809
|
}
|
|
8774
8810
|
|
|
8775
|
-
/* Util.Prompting.
|
|
8776
|
-
function
|
|
8811
|
+
/* Util.Prompting.6385:1896:readTemplate */
|
|
8812
|
+
function Util_Prompting_n__6385_1896_readTemplate($0, $1, $2, $3, $4) {
|
|
8777
8813
|
const $11 = $12 => {
|
|
8778
8814
|
switch($12) {
|
|
8779
8815
|
case 0: return $0.a1.a1.a2(undefined)('');
|
|
@@ -8791,8 +8827,8 @@ function Util_Prompting_n__6019_1552_readTemplate($0, $1, $2, $3, $4) {
|
|
|
8791
8827
|
return $0.a1.a2(undefined)(undefined)(System_File_Meta_exists($0, $4))($11);
|
|
8792
8828
|
}
|
|
8793
8829
|
|
|
8794
|
-
/* Util.
|
|
8795
|
-
function
|
|
8830
|
+
/* Util.5707:1233:getMoreLines */
|
|
8831
|
+
function Util_n__5707_1233_getMoreLines($0, $1, $2) {
|
|
8796
8832
|
switch($2.h) {
|
|
8797
8833
|
case 0: /* nothing */ return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1));
|
|
8798
8834
|
case undefined: /* just */ {
|
|
@@ -8803,13 +8839,13 @@ function Util_n__5706_1233_getMoreLines($0, $1, $2) {
|
|
|
8803
8839
|
case '': {
|
|
8804
8840
|
switch(line) {
|
|
8805
8841
|
case '': return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1.a2));
|
|
8806
|
-
default: return
|
|
8842
|
+
default: return Util_n__5707_1233_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
8807
8843
|
}
|
|
8808
8844
|
}
|
|
8809
|
-
default: return
|
|
8845
|
+
default: return Util_n__5707_1233_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
8810
8846
|
}
|
|
8811
8847
|
}
|
|
8812
|
-
default: return
|
|
8848
|
+
default: return Util_n__5707_1233_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
8813
8849
|
}
|
|
8814
8850
|
};
|
|
8815
8851
|
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 +8853,13 @@ function Util_n__5706_1233_getMoreLines($0, $1, $2) {
|
|
|
8817
8853
|
}
|
|
8818
8854
|
}
|
|
8819
8855
|
|
|
8820
|
-
/* Util.Prompting.
|
|
8821
|
-
function
|
|
8856
|
+
/* Util.Prompting.6042:1555:defaultStr */
|
|
8857
|
+
function Util_Prompting_n__6042_1555_defaultStr($0, $1) {
|
|
8858
|
+
return Prelude_Types_maybe(() => '', () => $5 => Util_Prompting_enterForDefaultStr($5), $0);
|
|
8859
|
+
}
|
|
8860
|
+
|
|
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__6385_1896_readTemplate($0, $3, $2, $1, $17), $1))($1f);
|
|
8868
8909
|
}
|
|
8869
8910
|
|
|
8870
8911
|
/* Util.Prompting.orIfEmpty : Maybe String -> String -> String */
|
|
@@ -8887,6 +8928,28 @@ function Util_optionsWithBestWidth($0) {
|
|
|
8887
8928
|
return {a1: Number(_truncBigInt32($6)), a2: 1.0};
|
|
8888
8929
|
}
|
|
8889
8930
|
|
|
8931
|
+
/* Util.Prompting.offerRetry : HasIO io => String -> String -> Lazy a -> io (Maybe a) -> io a */
|
|
8932
|
+
function Util_Prompting_offerRetry($0, $1, $2, $3, $4) {
|
|
8933
|
+
const $e = $f => {
|
|
8934
|
+
switch($f.h) {
|
|
8935
|
+
case 0: /* nothing */ {
|
|
8936
|
+
const $25 = $26 => {
|
|
8937
|
+
const $30 = $31 => {
|
|
8938
|
+
switch($31.h) {
|
|
8939
|
+
case 0: /* nothing */ return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($41 => Prelude_IO_prim__putStr(($2+'\n'), $41)))($48 => $0.a1.a1.a2(undefined)($3()));
|
|
8940
|
+
case undefined: /* just */ return $0.a1.a1.a2(undefined)($31.a1);
|
|
8941
|
+
}
|
|
8942
|
+
};
|
|
8943
|
+
return $0.a1.a2(undefined)(undefined)($4)($30);
|
|
8944
|
+
};
|
|
8945
|
+
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($1f => Prelude_IO_prim__putStr(($1+'\n'), $1f)))($25);
|
|
8946
|
+
}
|
|
8947
|
+
case undefined: /* just */ return $0.a1.a1.a2(undefined)($f.a1);
|
|
8948
|
+
}
|
|
8949
|
+
};
|
|
8950
|
+
return $0.a1.a2(undefined)(undefined)($4)($e);
|
|
8951
|
+
}
|
|
8952
|
+
|
|
8890
8953
|
/* Util.String.nonEmpty : (cs : String) -> Maybe (NonEmpty cs) */
|
|
8891
8954
|
function Util_String_nonEmpty($0) {
|
|
8892
8955
|
switch($0) {
|
|
@@ -8917,7 +8980,22 @@ function Util_Prompting_inlineDescription($0, $1, $2) {
|
|
|
8917
8980
|
|
|
8918
8981
|
/* Util.getManyLines : HasIO io => Fuel -> io (List String) */
|
|
8919
8982
|
function Util_getManyLines($0, $1) {
|
|
8920
|
-
return
|
|
8983
|
+
return Util_n__5707_1233_getMoreLines($0, {h: 0}, $1);
|
|
8984
|
+
}
|
|
8985
|
+
|
|
8986
|
+
/* Util.Prompting.getLineEnterForDefault : HasIO io => String -> Maybe String -> io String */
|
|
8987
|
+
function Util_Prompting_getLineEnterForDefault($0, $1, $2) {
|
|
8988
|
+
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($11 => Prelude_IO_prim__putStr((Util_Prompting_enterForDefaultPrompt($1, $2)+'\n'), $11)))($1b => $0.a1.a1.a1(undefined)(undefined)($26 => Util_Prompting_orIfEmpty($2, Data_String_trim($26)))($0.a2(undefined)($32 => Prelude_IO_prim__getStr($32))));
|
|
8989
|
+
}
|
|
8990
|
+
|
|
8991
|
+
/* Util.Prompting.enterForDefaultStr : String -> String */
|
|
8992
|
+
function Util_Prompting_enterForDefaultStr($0) {
|
|
8993
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $6 => $6, {a1: ' (ENTER for default: ', a2: {a1: $0, a2: {a1: ')', a2: {h: 0}}}});
|
|
8994
|
+
}
|
|
8995
|
+
|
|
8996
|
+
/* Util.Prompting.enterForDefaultPrompt : String -> Maybe String -> String */
|
|
8997
|
+
function Util_Prompting_enterForDefaultPrompt($0, $1) {
|
|
8998
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $7 => $7, {a1: $0, a2: {a1: Util_Prompting_n__6042_1555_defaultStr($1, $0), a2: {h: 0}}});
|
|
8921
8999
|
}
|
|
8922
9000
|
|
|
8923
9001
|
/* Util.Prompting.editorDescription : HasIO io => String -> Maybe String -> String -> io (Either FileError String) */
|
|
@@ -8975,7 +9053,7 @@ function System_getEnv($0, $1) {
|
|
|
8975
9053
|
function System_getArgs($0) {
|
|
8976
9054
|
const $12 = n => {
|
|
8977
9055
|
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:
|
|
9056
|
+
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
9057
|
case 0: return $0.a1.a1.a2(undefined)({h: 0});
|
|
8980
9058
|
}
|
|
8981
9059
|
};
|
|
@@ -9006,38 +9084,38 @@ function FFI_Term_termCols($0) {
|
|
|
9006
9084
|
}
|
|
9007
9085
|
}
|
|
9008
9086
|
|
|
9009
|
-
/* FFI.GitHub.6772:
|
|
9010
|
-
function
|
|
9087
|
+
/* FFI.GitHub.6772:18709:unexpectedPayload */
|
|
9088
|
+
function FFI_GitHub_n__6772_18709_unexpectedPayload($0, $1) {
|
|
9011
9089
|
return FFI_GitHub_internalError(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $9 => $9, {a1: 'Unexpected error JSON: ', a2: {a1: $0, a2: {h: 0}}}));
|
|
9012
9090
|
}
|
|
9013
9091
|
|
|
9014
|
-
/* FFI.GitHub.6772:
|
|
9015
|
-
function
|
|
9092
|
+
/* FFI.GitHub.6772:18708:parse */
|
|
9093
|
+
function FFI_GitHub_n__6772_18708_parse($0, $1) {
|
|
9016
9094
|
switch($1.h) {
|
|
9017
9095
|
case 6: /* JObject */ return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'status', a2: {a1: 'error', a2: {h: 0}}}, $1.a1), $d => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($d.a1), s => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($d.a2.a1), e => ({h: 1 /* Right */, a1: {a1: FFI_GitHub_statusCode(s), a2: e}}))));
|
|
9018
9096
|
default: return {h: 0 /* Left */, a1: 'Expected an Object containing error and status keys'};
|
|
9019
9097
|
}
|
|
9020
9098
|
}
|
|
9021
9099
|
|
|
9022
|
-
/* FFI.GitHub.8295:
|
|
9023
|
-
function
|
|
9100
|
+
/* FFI.GitHub.8295:20277:errString */
|
|
9101
|
+
function FFI_GitHub_n__8295_20277_errString($0, $1) {
|
|
9024
9102
|
switch($1.h) {
|
|
9025
9103
|
case 0: /* nothing */ return 'You can only use teams with repositories belonging to GitHub organizations';
|
|
9026
9104
|
case undefined: /* just */ return $1.a1;
|
|
9027
9105
|
}
|
|
9028
9106
|
}
|
|
9029
9107
|
|
|
9030
|
-
/* FFI.GitHub.7168:
|
|
9031
|
-
function
|
|
9108
|
+
/* FFI.GitHub.7168:19133:errString */
|
|
9109
|
+
function FFI_GitHub_n__7168_19133_errString($0, $1) {
|
|
9032
9110
|
switch($1.h) {
|
|
9033
9111
|
case 0: /* nothing */ return 'You can only list teams for repositories belonging to GitHub organizations';
|
|
9034
9112
|
case undefined: /* just */ return $1.a1;
|
|
9035
9113
|
}
|
|
9036
9114
|
}
|
|
9037
9115
|
|
|
9038
|
-
/* FFI.GitHub.6905:
|
|
9039
|
-
function
|
|
9040
|
-
return Prelude_Types_either(() =>
|
|
9116
|
+
/* FFI.GitHub.6905:18842:errMsg */
|
|
9117
|
+
function FFI_GitHub_n__6905_18842_errMsg($0) {
|
|
9118
|
+
return Prelude_Types_either(() => csegen_361()(), () => csegen_361()(), $0);
|
|
9041
9119
|
}
|
|
9042
9120
|
|
|
9043
9121
|
/* FFI.GitHub.show */
|
|
@@ -9080,7 +9158,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
9080
9158
|
let $2;
|
|
9081
9159
|
switch($3.h) {
|
|
9082
9160
|
case 0: /* Left */ {
|
|
9083
|
-
$2 = {h: 0 /* Left */, a1:
|
|
9161
|
+
$2 = {h: 0 /* Left */, a1: FFI_GitHub_n__6772_18709_unexpectedPayload($0, $3.a1)};
|
|
9084
9162
|
break;
|
|
9085
9163
|
}
|
|
9086
9164
|
case 1: /* Right */ {
|
|
@@ -9089,7 +9167,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
9089
9167
|
}
|
|
9090
9168
|
}
|
|
9091
9169
|
const $c = json => {
|
|
9092
|
-
const $d =
|
|
9170
|
+
const $d = FFI_GitHub_n__6772_18708_parse($0, json);
|
|
9093
9171
|
switch($d.h) {
|
|
9094
9172
|
case 0: /* Left */ return {h: 0 /* Left */, a1: FFI_GitHub_internalError($d.a1)};
|
|
9095
9173
|
case 1: /* Right */ return {h: 1 /* Right */, a1: $d.a1};
|
|
@@ -9186,7 +9264,7 @@ function FFI_GitHub_internalError($0) {
|
|
|
9186
9264
|
|
|
9187
9265
|
/* FFI.GitHub.ignoreStatus : Promise String a -> Promise String a */
|
|
9188
9266
|
function FFI_GitHub_ignoreStatus($0, $1, $2) {
|
|
9189
|
-
return Data_Promise_mapError($5 =>
|
|
9267
|
+
return Data_Promise_mapError($5 => FFI_GitHub_n__6905_18842_errMsg(FFI_GitHub_parseError($5)), $0, $1, $2);
|
|
9190
9268
|
}
|
|
9191
9269
|
|
|
9192
9270
|
/* FFI.GitHub.getUser : Octokit => String -> Promise String User */
|
|
@@ -9216,12 +9294,12 @@ function FFI_GitHub_getIssue($0, $1, $2, $3) {
|
|
|
9216
9294
|
|
|
9217
9295
|
/* FFI.GitHub.forceListTeams : Octokit => String -> Promise' (List String) */
|
|
9218
9296
|
function FFI_GitHub_forceListTeams($0, $1, $2, $3) {
|
|
9219
|
-
return Data_Promise_mapError($6 =>
|
|
9297
|
+
return Data_Promise_mapError($6 => FFI_GitHub_n__7168_19133_errString($0, $6), $b => $c => FFI_GitHub_listTeams($0, $1, $b, $c), $2, $3);
|
|
9220
9298
|
}
|
|
9221
9299
|
|
|
9222
9300
|
/* FFI.GitHub.forceListTeamMembers : Octokit => String -> String -> Promise' (List String) */
|
|
9223
9301
|
function FFI_GitHub_forceListTeamMembers($0, $1, $2, $3, $4) {
|
|
9224
|
-
return Data_Promise_mapError($7 =>
|
|
9302
|
+
return Data_Promise_mapError($7 => FFI_GitHub_n__8295_20277_errString($0, $7), $c => $d => FFI_GitHub_listTeamMembers($0, $1, $2, $c, $d), $3, $4);
|
|
9225
9303
|
}
|
|
9226
9304
|
|
|
9227
9305
|
/* FFI.GitHub.createPR : Octokit => {default False _ : Bool} ->
|
|
@@ -9254,7 +9332,7 @@ function FFI_GitHub_addPullLabels($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9254
9332
|
|
|
9255
9333
|
/* Data.User.parseUserString : String -> Either String User */
|
|
9256
9334
|
function Data_User_parseUserString($0) {
|
|
9257
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
9335
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_235(), csegen_298(), $7 => Data_User_parseUser($7), $0);
|
|
9258
9336
|
}
|
|
9259
9337
|
|
|
9260
9338
|
/* Data.User.parseUser : JSON -> Either String User */
|
|
@@ -9284,7 +9362,7 @@ function Data_Review_parseState($0) {
|
|
|
9284
9362
|
|
|
9285
9363
|
/* Data.Review.parseReview : JSON -> Either String Review */
|
|
9286
9364
|
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(
|
|
9365
|
+
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
9366
|
}
|
|
9289
9367
|
|
|
9290
9368
|
/* Data.Review.parseDateTime : String -> Either String Date */
|
|
@@ -9418,7 +9496,7 @@ function Data_Date_max_Ord_Date($0, $1) {
|
|
|
9418
9496
|
|
|
9419
9497
|
/* Data.Date.compare */
|
|
9420
9498
|
function Data_Date_compare_Ord_Date($0, $1) {
|
|
9421
|
-
return Prelude_Types_compare_Ord_x28Listx20x24ax29({a1: {a1:
|
|
9499
|
+
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
9500
|
}
|
|
9423
9501
|
|
|
9424
9502
|
/* Data.Date.> */
|
|
@@ -9505,7 +9583,7 @@ function Data_Date_nextMonth($0) {
|
|
|
9505
9583
|
|
|
9506
9584
|
/* Data.Issue.parseIssueString : String -> Either String Issue */
|
|
9507
9585
|
function Data_Issue_parseIssueString($0) {
|
|
9508
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
9586
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_235(), csegen_298(), $7 => Data_Issue_parseIssue($7), $0);
|
|
9509
9587
|
}
|
|
9510
9588
|
|
|
9511
9589
|
/* Data.Issue.parseIssue : JSON -> Either String Issue */
|
|
@@ -9526,7 +9604,7 @@ function Data_Issue_parseIssue($0) {
|
|
|
9526
9604
|
break;
|
|
9527
9605
|
}
|
|
9528
9606
|
}
|
|
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(
|
|
9607
|
+
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
9608
|
};
|
|
9531
9609
|
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($18.a2.a1), $29);
|
|
9532
9610
|
};
|
|
@@ -9595,17 +9673,17 @@ function Data_PullRequest_parseState($0, $1) {
|
|
|
9595
9673
|
|
|
9596
9674
|
/* Data.PullRequest.parsePullRequestsString : String -> Either String (List PullRequest) */
|
|
9597
9675
|
function Data_PullRequest_parsePullRequestsString($0) {
|
|
9598
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
9676
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_235(), csegen_298(), csegen_389(), $0);
|
|
9599
9677
|
}
|
|
9600
9678
|
|
|
9601
9679
|
/* Data.PullRequest.parsePullRequestString : String -> Either String PullRequest */
|
|
9602
9680
|
function Data_PullRequest_parsePullRequestString($0) {
|
|
9603
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
9681
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_235(), csegen_298(), $7 => Data_PullRequest_parsePR($7), $0);
|
|
9604
9682
|
}
|
|
9605
9683
|
|
|
9606
9684
|
/* Data.PullRequest.parsePR : JSON -> Either String PullRequest */
|
|
9607
9685
|
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(
|
|
9686
|
+
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
9687
|
}
|
|
9610
9688
|
|
|
9611
9689
|
/* Data.PullRequest.parseDateTime : String -> Either String Date */
|
|
@@ -9688,95 +9766,63 @@ function Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, $2) {
|
|
|
9688
9766
|
default: return {h: 0};
|
|
9689
9767
|
}
|
|
9690
9768
|
};
|
|
9691
|
-
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(
|
|
9769
|
+
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_402(), $2.a1)}, $b);
|
|
9692
9770
|
}
|
|
9693
9771
|
|
|
9694
|
-
/* Config.
|
|
9695
|
-
function
|
|
9696
|
-
const $5 =
|
|
9697
|
-
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($
|
|
9772
|
+
/* Config.9657:2532:themePrompt */
|
|
9773
|
+
function Config_n__9657_2532_themePrompt($0, $1, $2, $3, $4) {
|
|
9774
|
+
const $5 = Util_Prompting_enterForDefaultStr('dark');
|
|
9775
|
+
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($16 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $1f => $1f, {a1: 'Would you like harmony configured for a \'dark\' or \'light\' terminal background?', a2: {a1: $5, a2: {h: 0}}})+'\n'), $16)))($28 => Util_Prompting_offerRetry($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)($39 => Data_Theme_parseString(Util_Prompting_orIfEmpty({a1: 'dark'}, Data_String_trim($39))))($4.a2(undefined)($48 => Prelude_IO_prim__getStr($48)))));
|
|
9698
9776
|
}
|
|
9699
9777
|
|
|
9700
|
-
/* Config.
|
|
9701
|
-
function
|
|
9702
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
9778
|
+
/* Config.9657:2531:repo */
|
|
9779
|
+
function Config_n__9657_2531_repo($0, $1, $2, $3, $4) {
|
|
9780
|
+
return Prelude_Types_map_Functor_Maybe(csegen_361()(), $4);
|
|
9703
9781
|
}
|
|
9704
9782
|
|
|
9705
|
-
/* Config.
|
|
9706
|
-
function
|
|
9783
|
+
/* Config.8724:1562:parseSuffix */
|
|
9784
|
+
function Config_n__8724_1562_parseSuffix($0, $1) {
|
|
9707
9785
|
return Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, Data_String_break$($8 => Prelude_EqOrd_x3dx3d_Eq_Char($8, '.'), $1));
|
|
9708
9786
|
}
|
|
9709
9787
|
|
|
9710
|
-
/* Config.
|
|
9711
|
-
function
|
|
9712
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b =>
|
|
9788
|
+
/* Config.8724:1561:parseSSH */
|
|
9789
|
+
function Config_n__8724_1561_parseSSH($0, $1) {
|
|
9790
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b => Config_n__8724_1562_parseSuffix($0, $b), $1);
|
|
9713
9791
|
}
|
|
9714
9792
|
|
|
9715
|
-
/* Config.
|
|
9716
|
-
function
|
|
9717
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b =>
|
|
9793
|
+
/* Config.8724:1560:parseHTTPS */
|
|
9794
|
+
function Config_n__8724_1560_parseHTTPS($0, $1) {
|
|
9795
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b => Config_n__8724_1562_parseSuffix($0, $b), $1);
|
|
9718
9796
|
}
|
|
9719
9797
|
|
|
9720
|
-
/* Config.
|
|
9721
|
-
function
|
|
9722
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
9798
|
+
/* Config.9657:2530:org */
|
|
9799
|
+
function Config_n__9657_2530_org($0, $1, $2, $3, $4) {
|
|
9800
|
+
return Prelude_Types_map_Functor_Maybe(csegen_408(), $4);
|
|
9723
9801
|
}
|
|
9724
9802
|
|
|
9725
|
-
/* Config.
|
|
9726
|
-
function
|
|
9803
|
+
/* Config.8435:1281:oneDayAgo */
|
|
9804
|
+
function Config_n__8435_1281_oneDayAgo($0, $1, $2) {
|
|
9727
9805
|
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(Number(_truncUBigInt32((now-86400n)))));
|
|
9728
9806
|
}
|
|
9729
9807
|
|
|
9730
|
-
/* Config.
|
|
9731
|
-
function
|
|
9732
|
-
const $12 = $13 => {
|
|
9733
|
-
switch($13.h) {
|
|
9734
|
-
case 0: /* nothing */ {
|
|
9735
|
-
const $29 = $2a => {
|
|
9736
|
-
const $34 = $35 => {
|
|
9737
|
-
switch($35.h) {
|
|
9738
|
-
case 0: /* nothing */ return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($45 => Prelude_IO_prim__putStr(($6+'\n'), $45)))($4c => $4.a1.a1.a2(undefined)($7()));
|
|
9739
|
-
case undefined: /* just */ return $4.a1.a1.a2(undefined)($35.a1);
|
|
9740
|
-
}
|
|
9741
|
-
};
|
|
9742
|
-
return $4.a1.a2(undefined)(undefined)($8)($34);
|
|
9743
|
-
};
|
|
9744
|
-
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($23 => Prelude_IO_prim__putStr(($5+'\n'), $23)))($29);
|
|
9745
|
-
}
|
|
9746
|
-
case undefined: /* just */ return $4.a1.a1.a2(undefined)($13.a1);
|
|
9747
|
-
}
|
|
9748
|
-
};
|
|
9749
|
-
return $4.a1.a2(undefined)(undefined)($8)($12);
|
|
9750
|
-
}
|
|
9751
|
-
|
|
9752
|
-
/* Config.9546:2423:help */
|
|
9753
|
-
function Config_n__9546_2423_help($0, $1) {
|
|
9808
|
+
/* Config.9560:2423:help */
|
|
9809
|
+
function Config_n__9560_2423_help($0, $1) {
|
|
9754
9810
|
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
9811
|
}
|
|
9756
9812
|
|
|
9757
|
-
/* Config.
|
|
9758
|
-
function
|
|
9759
|
-
return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $a => $a, {a1: ' (ENTER for default: ', a2: {a1: $4, a2: {a1: ')', a2: {h: 0}}}});
|
|
9760
|
-
}
|
|
9761
|
-
|
|
9762
|
-
/* Config.8663:1513:drop' */
|
|
9763
|
-
function Config_n__8663_1513_dropx27($0, $1) {
|
|
9813
|
+
/* Config.8677:1513:drop' */
|
|
9814
|
+
function Config_n__8677_1513_dropx27($0, $1) {
|
|
9764
9815
|
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
9816
|
}
|
|
9766
9817
|
|
|
9767
|
-
/* Config.
|
|
9768
|
-
function
|
|
9769
|
-
|
|
9770
|
-
}
|
|
9771
|
-
|
|
9772
|
-
/* Config.9643:2528:commentConfigPrompt */
|
|
9773
|
-
function Config_n__9643_2528_commentConfigPrompt($0, $1, $2, $3, $4) {
|
|
9774
|
-
const $5 = Config_n__9643_2530_enterForDefaultStr($0, $1, $2, $3, 'name');
|
|
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 => Config_n__9643_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)))));
|
|
9818
|
+
/* Config.9657:2528:commentConfigPrompt */
|
|
9819
|
+
function Config_n__9657_2528_commentConfigPrompt($0, $1, $2, $3, $4) {
|
|
9820
|
+
const $5 = Util_Prompting_enterForDefaultStr('name');
|
|
9821
|
+
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($16 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $1f => $1f, {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'), $16)))($28 => Util_Prompting_offerRetry($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)($39 => Data_Config_CommentStrategy_parseCommentConfig(Util_Prompting_orIfEmpty({a1: 'name'}, Data_String_trim($39))))($4.a2(undefined)($48 => Prelude_IO_prim__getStr($48)))));
|
|
9776
9822
|
}
|
|
9777
9823
|
|
|
9778
|
-
/* Config.
|
|
9779
|
-
function
|
|
9824
|
+
/* Config.8566:1406:checkRequestSettings */
|
|
9825
|
+
function Config_n__8566_1406_checkRequestSettings($0, $1) {
|
|
9780
9826
|
let $2;
|
|
9781
9827
|
switch($1.a6) {
|
|
9782
9828
|
case 1: {
|
|
@@ -9794,10 +9840,10 @@ function Config_n__8552_1406_checkRequestSettings($0, $1) {
|
|
|
9794
9840
|
}
|
|
9795
9841
|
}
|
|
9796
9842
|
|
|
9797
|
-
/* Config.
|
|
9798
|
-
function
|
|
9799
|
-
const $5 =
|
|
9800
|
-
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($
|
|
9843
|
+
/* Config.9657:2527:branchParsingPrompt */
|
|
9844
|
+
function Config_n__9657_2527_branchParsingPrompt($0, $1, $2, $3, $4) {
|
|
9845
|
+
const $5 = Util_Prompting_enterForDefaultStr('none');
|
|
9846
|
+
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($16 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $1f => $1f, {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: {h: 0}}})+'\n'), $16)))($28 => Util_Prompting_offerRetry($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)($39 => Data_Config_ParseBranchStrategy_parseBranchConfig(Util_Prompting_orIfEmpty({a1: 'none'}, Data_String_trim($39))))($4.a2(undefined)($48 => Prelude_IO_prim__getStr($48)))));
|
|
9801
9847
|
}
|
|
9802
9848
|
|
|
9803
9849
|
/* Config.show */
|
|
@@ -9832,7 +9878,7 @@ function Config_syncIfOld($0, $1, $2, $3) {
|
|
|
9832
9878
|
case 0: return $1b => Data_Promise_pure_Applicative_x28Promisex20x24ex29($1, $e, $1b);
|
|
9833
9879
|
}
|
|
9834
9880
|
};
|
|
9835
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9881
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__8435_1281_oneDayAgo($0, $1, csegen_88()()), $c, $2, $3);
|
|
9836
9882
|
}
|
|
9837
9883
|
|
|
9838
9884
|
/* Config.syncConfig : Config => Octokit => Bool -> Promise' Config */
|
|
@@ -9844,7 +9890,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
9844
9890
|
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
9891
|
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
9892
|
};
|
|
9847
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9893
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_421()(), $40, $3a, $3b);
|
|
9848
9894
|
};
|
|
9849
9895
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2f => $30 => FFI_GitHub_listRepoLabels($1, $0.a2, $0.a3, $2f, $30), $39, $2b, $2c);
|
|
9850
9896
|
};
|
|
@@ -9855,7 +9901,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
9855
9901
|
|
|
9856
9902
|
/* Config.settablePropsWithHelp : Config => String */
|
|
9857
9903
|
function Config_settablePropsWithHelp($0) {
|
|
9858
|
-
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 =>
|
|
9904
|
+
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 => Config_n__9560_2423_help($0, $9), Data_Config_settablePropNamesAndHelp())));
|
|
9859
9905
|
}
|
|
9860
9906
|
|
|
9861
9907
|
/* Config.setConfig : Config => String -> String -> Promise' Config */
|
|
@@ -9867,14 +9913,14 @@ function Config_setConfig($0, $1, $2) {
|
|
|
9867
9913
|
function Config_propSetter($0, $1) {
|
|
9868
9914
|
return $2 => {
|
|
9869
9915
|
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(
|
|
9916
|
+
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);
|
|
9917
|
+
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);
|
|
9918
|
+
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);
|
|
9919
|
+
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);
|
|
9920
|
+
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);
|
|
9921
|
+
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);
|
|
9922
|
+
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);
|
|
9923
|
+
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
9924
|
}
|
|
9879
9925
|
};
|
|
9880
9926
|
}
|
|
@@ -9904,7 +9950,7 @@ function Config_preferOriginRemote($0) {
|
|
|
9904
9950
|
|
|
9905
9951
|
/* Config.parseGitHubURI : String -> Maybe GitRemote */
|
|
9906
9952
|
function Config_parseGitHubURI($0) {
|
|
9907
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
9953
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(Config_n__8724_1560_parseHTTPS($0, $0), () => Config_n__8724_1561_parseSSH($0, $0));
|
|
9908
9954
|
}
|
|
9909
9955
|
|
|
9910
9956
|
/* Config.parseBool : String -> Maybe Bool */
|
|
@@ -9950,7 +9996,7 @@ function Config_loadOrCreateConfig($0, $1, $2, $3, $4, $5) {
|
|
|
9950
9996
|
|
|
9951
9997
|
/* Config.loadConfig : HasIO io => Bool -> Nat -> Maybe String -> io (Either ConfigError Config) */
|
|
9952
9998
|
function Config_loadConfig($0, $1, $2, $3) {
|
|
9953
|
-
const $4 = $5 => $6 => Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1,
|
|
9999
|
+
const $4 = $5 => $6 => Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, csegen_235(), csegen_256(), $5, $6);
|
|
9954
10000
|
const $1c = $1d => {
|
|
9955
10001
|
const $1e = Data_Either_maybeToEither(() => ({h: 3 /* FileNotFound */}), $1d);
|
|
9956
10002
|
switch($1e.h) {
|
|
@@ -10015,158 +10061,137 @@ function Config_findConfig($0, $1, $2) {
|
|
|
10015
10061
|
|
|
10016
10062
|
/* Config.dropPrefix' : String -> String -> Maybe String */
|
|
10017
10063
|
function Config_dropPrefixx27($0, $1) {
|
|
10018
|
-
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4),
|
|
10064
|
+
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4), Config_n__8677_1513_dropx27($0, Prelude_Types_fastUnpack($1)));
|
|
10019
10065
|
}
|
|
10020
10066
|
|
|
10021
10067
|
/* Config.createConfig : Maybe String -> Bool -> Nat -> Maybe String -> Promise' Config */
|
|
10022
10068
|
function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
10023
10069
|
const $24 = $25 => $26 => $27 => {
|
|
10024
10070
|
const $2c = $2d => {
|
|
10025
|
-
const $2f =
|
|
10026
|
-
const $2e = () => $
|
|
10027
|
-
const $
|
|
10028
|
-
const $
|
|
10029
|
-
const $
|
|
10030
|
-
switch(Data_String_trim($
|
|
10071
|
+
const $2f = Util_Prompting_enterForDefaultStr('unset');
|
|
10072
|
+
const $2e = () => $32 => $33 => {
|
|
10073
|
+
const $5b = $5c => $5d => $5e => {
|
|
10074
|
+
const $60 = $61 => $62 => {
|
|
10075
|
+
const $64 = $65 => {
|
|
10076
|
+
switch(Data_String_trim($65)) {
|
|
10031
10077
|
case '': return {h: 0};
|
|
10032
|
-
default: return {a1: Data_String_trim($
|
|
10078
|
+
default: return {a1: Data_String_trim($65)};
|
|
10033
10079
|
}
|
|
10034
10080
|
};
|
|
10035
|
-
return Data_Promise_map_Functor_x28Promisex20x24ex29($
|
|
10081
|
+
return Data_Promise_map_Functor_x28Promisex20x24ex29($64, csegen_449()(), $61, $62);
|
|
10036
10082
|
};
|
|
10037
|
-
const $
|
|
10038
|
-
const $
|
|
10039
|
-
switch($
|
|
10083
|
+
const $71 = configPAT => $72 => $73 => {
|
|
10084
|
+
const $7f = $80 => $81 => $82 => {
|
|
10085
|
+
switch($80.h) {
|
|
10040
10086
|
case undefined: /* just */ {
|
|
10041
|
-
const $
|
|
10042
|
-
const $
|
|
10043
|
-
const $
|
|
10044
|
-
const $
|
|
10045
|
-
|
|
10046
|
-
|
|
10047
|
-
|
|
10048
|
-
|
|
10049
|
-
|
|
10050
|
-
|
|
10051
|
-
|
|
10052
|
-
|
|
10053
|
-
|
|
10054
|
-
|
|
10055
|
-
|
|
10056
|
-
|
|
10057
|
-
|
|
10058
|
-
|
|
10059
|
-
|
|
10060
|
-
|
|
10061
|
-
|
|
10062
|
-
|
|
10063
|
-
|
|
10064
|
-
|
|
10065
|
-
|
|
10066
|
-
|
|
10067
|
-
|
|
10068
|
-
|
|
10069
|
-
|
|
10070
|
-
|
|
10071
|
-
const $238 = mainBranch => $239 => $23a => {
|
|
10072
|
-
const $23f = updatedAt => {
|
|
10073
|
-
const $240 = {a1: Prelude_Types_foldMap_Foldable_List(csegen_65()(), $247 => $247, {a1: './', a2: {a1: Data_Config_filename(), a2: {h: 0}}}), a2: $1, a3: $2, a4: $3};
|
|
10074
|
-
return $251 => $252 => {
|
|
10075
|
-
const $263 = teamSlugs => $264 => $265 => {
|
|
10076
|
-
const $276 = orgMembers => $277 => $278 => {
|
|
10077
|
-
const $283 = repoLabels => {
|
|
10078
|
-
const $284 = {a1: updatedAt, a2: org, a3: repo, a4: defaultRemote, a5: mainBranch, a6: requestTeams, a7: requestUsers, a8: commentOnRequest, a9: branchParsing, a10: teamSlugs, a11: repoLabels, a12: orgMembers, a13: {h: 0}, a14: Prelude_Types_map_Functor_Maybe($295 => $295, configPAT), a15: theme, a16: $240};
|
|
10079
|
-
return $299 => $29a => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29d => $29e => Data_Promise_map_Functor_x28Promisex20x24ex29($2a1 => undefined, $2a3 => $2a4 => Config_writeConfig($284, $2a3, $2a4), $29d, $29e), $2ac => $2ad => $2ae => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2b1 => $2b2 => $2b3 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2b6 => Prelude_IO_prim__putStr('Your new configuration is:\n', $2b6), $2b1, $2b2, $2b3), $2be => $2bf => $2c0 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2c3 => $2c4 => $2c5 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2c8 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($284)+'\n'), $2c8), $2c3, $2c4, $2c5), $2d4 => $2d5 => $2d6 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Types_either(() => $2db => Util_renderIO($284, csegen_88()(), $2db), () => csegen_75()(), Config_checkConfigConsistency($284)), $2e9 => $2ea => $2eb => Data_Promise_pure_Applicative_x28Promisex20x24ex29($284, $2ea, $2eb), $2d5, $2d6), $2bf, $2c0), $2ad, $2ae), $299, $29a);
|
|
10080
|
-
};
|
|
10081
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($27b => $27c => FFI_GitHub_listRepoLabels(_, org, repo, $27b, $27c), $283, $277, $278);
|
|
10082
|
-
};
|
|
10083
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($268 => $269 => Config_nonOrgFallback(() => ({h: 0}), $26d => $26e => FFI_GitHub_listOrgMembers(_, org, $26d, $26e), $268, $269), $276, $264, $265);
|
|
10084
|
-
};
|
|
10085
|
-
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
|
-
};
|
|
10087
|
-
};
|
|
10088
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_420()(), $23f, $239, $23a);
|
|
10089
|
-
};
|
|
10090
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($230 => $231 => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $230, $231), $238, $22c, $22d);
|
|
10087
|
+
const $95 = remoteGuess => $96 => $97 => {
|
|
10088
|
+
const $b3 = defaultOrgAndRepo => $b4 => $b5 => {
|
|
10089
|
+
const $ba = $bb => $bc => $bd => {
|
|
10090
|
+
const $cc = org => $cd => $ce => {
|
|
10091
|
+
const $d3 = $d4 => $d5 => $d6 => {
|
|
10092
|
+
const $e5 = repo => $e6 => $e7 => {
|
|
10093
|
+
const $ec = $ed => $ee => $ef => {
|
|
10094
|
+
const $f9 = defaultRemote => $fa => $fb => {
|
|
10095
|
+
const $100 = $101 => $102 => $103 => {
|
|
10096
|
+
const $10e = commentOnRequest => $10f => $110 => {
|
|
10097
|
+
const $115 = $116 => $117 => $118 => {
|
|
10098
|
+
const $123 = branchParsing => $124 => $125 => {
|
|
10099
|
+
const $12a = $12b => $12c => $12d => {
|
|
10100
|
+
const $136 = requestTeams => $137 => $138 => {
|
|
10101
|
+
const $13d = $13e => $13f => $140 => {
|
|
10102
|
+
const $149 = requestUsers => $14a => $14b => {
|
|
10103
|
+
const $150 = $151 => $152 => $153 => {
|
|
10104
|
+
const $15e = theme => $15f => $160 => {
|
|
10105
|
+
const $165 = $166 => $167 => $168 => {
|
|
10106
|
+
const $177 = _ => $178 => $179 => {
|
|
10107
|
+
const $188 = $189 => $18a => $18b => {
|
|
10108
|
+
const $196 = mainBranch => $197 => $198 => {
|
|
10109
|
+
const $19d = updatedAt => {
|
|
10110
|
+
const $19e = {a1: Prelude_Types_foldMap_Foldable_List(csegen_65()(), $1a5 => $1a5, {a1: './', a2: {a1: Data_Config_filename(), a2: {h: 0}}}), a2: $1, a3: $2, a4: $3};
|
|
10111
|
+
return $1af => $1b0 => {
|
|
10112
|
+
const $1c1 = teamSlugs => $1c2 => $1c3 => {
|
|
10113
|
+
const $1d4 = orgMembers => $1d5 => $1d6 => {
|
|
10114
|
+
const $1e1 = repoLabels => {
|
|
10115
|
+
const $1e2 = {a1: updatedAt, a2: org, a3: repo, a4: defaultRemote, a5: mainBranch, a6: requestTeams, a7: requestUsers, a8: commentOnRequest, a9: branchParsing, a10: teamSlugs, a11: repoLabels, a12: orgMembers, a13: {h: 0}, a14: Prelude_Types_map_Functor_Maybe($1f3 => $1f3, configPAT), a15: theme, a16: $19e};
|
|
10116
|
+
return $1f7 => $1f8 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1fb => $1fc => Data_Promise_map_Functor_x28Promisex20x24ex29($1ff => undefined, $201 => $202 => Config_writeConfig($1e2, $201, $202), $1fb, $1fc), $20a => $20b => $20c => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($20f => $210 => $211 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($214 => Prelude_IO_prim__putStr('Your new configuration is:\n', $214), $20f, $210, $211), $21c => $21d => $21e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($221 => $222 => $223 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($226 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($1e2)+'\n'), $226), $221, $222, $223), $232 => $233 => $234 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Types_either(() => $239 => Util_renderIO($1e2, csegen_88()(), $239), () => csegen_75()(), Config_checkConfigConsistency($1e2)), $247 => $248 => $249 => Data_Promise_pure_Applicative_x28Promisex20x24ex29($1e2, $248, $249), $233, $234), $21d, $21e), $20b, $20c), $1f7, $1f8);
|
|
10091
10117
|
};
|
|
10092
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
10118
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d9 => $1da => FFI_GitHub_listRepoLabels(_, org, repo, $1d9, $1da), $1e1, $1d5, $1d6);
|
|
10093
10119
|
};
|
|
10094
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
10120
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1c6 => $1c7 => Config_nonOrgFallback(() => ({h: 0}), $1cb => $1cc => FFI_GitHub_listOrgMembers(_, org, $1cb, $1cc), $1c6, $1c7), $1d4, $1c2, $1c3);
|
|
10095
10121
|
};
|
|
10096
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10122
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1b3 => $1b4 => Config_nonOrgFallback(() => ({h: 0}), $1b8 => $1b9 => FFI_GitHub_listTeams(_, org, $1b8, $1b9), $1b3, $1b4), $1c1, $1af, $1b0);
|
|
10097
10123
|
};
|
|
10098
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9643_2534_themePrompt($3, $2, $1, $0, csegen_88()()), $200, $1f4, $1f5);
|
|
10099
10124
|
};
|
|
10100
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10125
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_421()(), $19d, $197, $198);
|
|
10101
10126
|
};
|
|
10102
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10127
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($18e => $18f => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $18e, $18f), $196, $18a, $18b);
|
|
10103
10128
|
};
|
|
10104
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10129
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17c => $17d => $17e => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($181 => Prelude_IO_prim__putStr('Creating config...\n', $181), $17c, $17d, $17e), $188, $178, $179);
|
|
10105
10130
|
};
|
|
10106
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10131
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($16b => $16c => $16d => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($170 => FFI_GitHub_octokit($80.a1, $170), $16b, $16c, $16d), $177, $167, $168);
|
|
10107
10132
|
};
|
|
10108
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10133
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $165, $15f, $160);
|
|
10109
10134
|
};
|
|
10110
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10135
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9657_2532_themePrompt($3, $2, $1, $0, csegen_88()()), $15e, $152, $153);
|
|
10111
10136
|
};
|
|
10112
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10137
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $150, $14a, $14b);
|
|
10113
10138
|
};
|
|
10114
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10139
|
+
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?'), $149, $13f, $140);
|
|
10115
10140
|
};
|
|
10116
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10141
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $13d, $137, $138);
|
|
10117
10142
|
};
|
|
10118
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10143
|
+
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?'), $136, $12c, $12d);
|
|
10119
10144
|
};
|
|
10120
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10145
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $12a, $124, $125);
|
|
10121
10146
|
};
|
|
10122
|
-
return $
|
|
10147
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9657_2527_branchParsingPrompt($3, $2, $1, $0, csegen_88()()), $123, $117, $118);
|
|
10123
10148
|
};
|
|
10124
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10149
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $115, $10f, $110);
|
|
10125
10150
|
};
|
|
10126
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10151
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9657_2528_commentConfigPrompt($3, $2, $1, $0, csegen_88()()), $10e, $102, $103);
|
|
10127
10152
|
};
|
|
10128
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10153
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $100, $fa, $fb);
|
|
10129
10154
|
};
|
|
10130
|
-
return
|
|
10155
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_88()(), 'What GitHub remote repo would you like to use harmony for?', {a1: remoteGuess}), $f9, $ee, $ef);
|
|
10131
10156
|
};
|
|
10132
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10157
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $ec, $e6, $e7);
|
|
10133
10158
|
};
|
|
10134
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10159
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_88()(), 'What repository would you like to use harmony for?', Config_n__9657_2531_repo($3, $2, $1, $0, defaultOrgAndRepo)), $e5, $d5, $d6);
|
|
10135
10160
|
};
|
|
10136
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10161
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $d3, $cd, $ce);
|
|
10137
10162
|
};
|
|
10138
|
-
return
|
|
10163
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_88()(), 'What GitHub org would you like to use harmony for?', Config_n__9657_2530_org($3, $2, $1, $0, defaultOrgAndRepo)), $cc, $bc, $bd);
|
|
10139
10164
|
};
|
|
10140
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10165
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $ba, $b4, $b5);
|
|
10141
10166
|
};
|
|
10142
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
10167
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9a => $9b => Data_Promise_x3cx7cx3e_Alternative_x28Promisex20Stringx29($9e => $9f => Data_Promise_map_Functor_x28Promisex20x24ex29($a2 => Config_parseGitHubURI($a2), $a6 => $a7 => System_Git_remoteURI(remoteGuess, $a6, $a7), $9e, $9f), () => csegen_453()(), $9a, $9b), $b3, $96, $97);
|
|
10143
10168
|
};
|
|
10144
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
10169
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($86 => $87 => Data_Promise_map_Functor_x28Promisex20x24ex29($8a => Config_preferOriginRemote($8a), $8e => $8f => System_Git_listRemotes($8e, $8f), $86, $87), $95, $81, $82);
|
|
10145
10170
|
}
|
|
10146
|
-
default: return Data_Promise_reject('Either the GITHUB_PAT or GH_TOKEN environment variables or githubPAT config property must be set to a personal access token.', $
|
|
10171
|
+
default: return Data_Promise_reject('Either the GITHUB_PAT or GH_TOKEN environment variables or githubPAT config property must be set to a personal access token.', $81, $82);
|
|
10147
10172
|
}
|
|
10148
10173
|
};
|
|
10149
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
10174
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($76 => $77 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_x3cx7cx3e_Alternative_Maybe($0, () => configPAT), $76, $77), $7f, $72, $73);
|
|
10150
10175
|
};
|
|
10151
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
10176
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($60, $71, $5d, $5e);
|
|
10152
10177
|
};
|
|
10153
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
10178
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($36 => $37 => $38 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($3b => Prelude_IO_prim__putStr(Data_String_fastUnlines({a1: 'Harmony uses a GitHub Personal Access Token (PAT) to communicate with GitHub.', a2: {a1: 'You can set this via the $GITHUB_PAT or $GH_TOKEN environment variables or a config property.', a2: {a1: 'If you don\'t set in your config now, you can set later with `harmony config githubPAT abcdefg`.', a2: {a1: 'The ENV var will always take precedence over the config property.', a2: {a1: '', a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_65()(), $50 => $50, {a1: 'What PAT would you like to set in the config file?', a2: {a1: $2f, a2: {h: 0}}}), a2: {h: 0}}}}}}}), $3b), $36, $37, $38), $5b, $32, $33);
|
|
10154
10179
|
};
|
|
10155
10180
|
return $2e();
|
|
10156
10181
|
};
|
|
10157
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10182
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $2c, $26, $27);
|
|
10158
10183
|
};
|
|
10159
10184
|
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
10185
|
}
|
|
10161
10186
|
|
|
10162
10187
|
/* Config.checkConfigConsistency : Config -> Either (Doc AnsiStyle) () */
|
|
10163
10188
|
function Config_checkConfigConsistency($0) {
|
|
10164
|
-
return
|
|
10189
|
+
return Config_n__8566_1406_checkRequestSettings($0, $0);
|
|
10165
10190
|
}
|
|
10166
10191
|
|
|
10167
10192
|
/* Config.addIgnoredPRs : Config -> List Integer -> Promise' Config */
|
|
10168
10193
|
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(
|
|
10194
|
+
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
10195
|
}
|
|
10171
10196
|
|
|
10172
10197
|
/* Data.List.PrefixSuffix.with block in with block in dropPrefix */
|
|
@@ -10218,21 +10243,21 @@ function AppVersion_printVersion($0) {
|
|
|
10218
10243
|
|
|
10219
10244
|
/* AppVersion.appVersion : String */
|
|
10220
10245
|
const AppVersion_appVersion = __lazy(function () {
|
|
10221
|
-
return '6.
|
|
10246
|
+
return '6.2.0';
|
|
10222
10247
|
});
|
|
10223
10248
|
|
|
10224
10249
|
/* Commands.Help.subcommandHelp' : String -> Doc AnsiStyle */
|
|
10225
10250
|
function Commands_Help_subcommandHelpx27($0) {
|
|
10226
10251
|
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:
|
|
10252
|
+
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}});
|
|
10253
|
+
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
10254
|
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:
|
|
10255
|
+
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
10256
|
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
10257
|
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
10258
|
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
10259
|
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:
|
|
10260
|
+
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
10261
|
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
10262
|
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
10263
|
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 +10392,7 @@ function Commands_case__casex20blockx20inx20graph_22300($0, $1, $2, $3, $4, $5,
|
|
|
10367
10392
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 0}, $d, $e);
|
|
10368
10393
|
}
|
|
10369
10394
|
};
|
|
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),
|
|
10395
|
+
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
10396
|
};
|
|
10372
10397
|
}
|
|
10373
10398
|
|
|
@@ -10431,7 +10456,7 @@ function Commands_case__request_21539($0, $1, $2, $3, $4) {
|
|
|
10431
10456
|
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
10457
|
}
|
|
10433
10458
|
};
|
|
10434
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10459
|
+
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
10460
|
}
|
|
10436
10461
|
}
|
|
10437
10462
|
};
|
|
@@ -10439,7 +10464,7 @@ function Commands_case__request_21539($0, $1, $2, $3, $4) {
|
|
|
10439
10464
|
|
|
10440
10465
|
/* Commands.case block in case block in request,partitionedArgs */
|
|
10441
10466
|
function Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_21463($0, $1, $2, $3, $4, $5, $6) {
|
|
10442
|
-
const $8 = Prelude_Interfaces_mapHom(
|
|
10467
|
+
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
10468
|
return {a1: $8.a1, a2: {a1: $6.a2, a2: $8.a2}};
|
|
10444
10469
|
}
|
|
10445
10470
|
|
|
@@ -10448,30 +10473,30 @@ function Commands_case__requestx2cpartitionedArgs_21442($0, $1, $2, $3, $4) {
|
|
|
10448
10473
|
return Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_21463($0, $1, $2, $3, $4.a1, $4.a2, Data_List_partition($10 => ShellCompletion_Util_isHashPrefix($10), $4.a2));
|
|
10449
10474
|
}
|
|
10450
10475
|
|
|
10451
|
-
/* Commands.
|
|
10452
|
-
function
|
|
10476
|
+
/* Commands.9018:20478:recombineIntoArgs */
|
|
10477
|
+
function Commands_n__9018_20478_recombineIntoArgs($0, $1) {
|
|
10453
10478
|
switch($1.h) {
|
|
10454
10479
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
10455
10480
|
case undefined: /* cons */ {
|
|
10456
10481
|
switch($1.a1) {
|
|
10457
10482
|
case '-i': {
|
|
10458
10483
|
switch($1.a2.h) {
|
|
10459
|
-
case 0: /* nil */ return
|
|
10484
|
+
case 0: /* nil */ return csegen_660();
|
|
10460
10485
|
case undefined: /* cons */ {
|
|
10461
|
-
const $8 =
|
|
10486
|
+
const $8 = Commands_n__9018_20475_parseIntoOpt($0, $1.a2.a1);
|
|
10462
10487
|
switch($8.h) {
|
|
10463
10488
|
case undefined: /* just */ {
|
|
10464
|
-
const $c =
|
|
10489
|
+
const $c = Commands_n__9018_20478_recombineIntoArgs($0, $1.a2.a2);
|
|
10465
10490
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
10466
10491
|
}
|
|
10467
10492
|
case 0: /* nothing */ {
|
|
10468
|
-
const $14 =
|
|
10493
|
+
const $14 = Commands_n__9018_20478_recombineIntoArgs($0, $1.a2.a2);
|
|
10469
10494
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
10470
10495
|
}
|
|
10471
10496
|
}
|
|
10472
10497
|
}
|
|
10473
10498
|
default: {
|
|
10474
|
-
const $1e =
|
|
10499
|
+
const $1e = Commands_n__9018_20478_recombineIntoArgs($0, $1.a2);
|
|
10475
10500
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
10476
10501
|
}
|
|
10477
10502
|
}
|
|
@@ -10480,26 +10505,26 @@ function Commands_n__8992_20478_recombineIntoArgs($0, $1) {
|
|
|
10480
10505
|
switch($1.a2.h) {
|
|
10481
10506
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--into', a2: {h: 0}}};
|
|
10482
10507
|
case undefined: /* cons */ {
|
|
10483
|
-
const $2b =
|
|
10508
|
+
const $2b = Commands_n__9018_20475_parseIntoOpt($0, $1.a2.a1);
|
|
10484
10509
|
switch($2b.h) {
|
|
10485
10510
|
case undefined: /* just */ {
|
|
10486
|
-
const $2f =
|
|
10511
|
+
const $2f = Commands_n__9018_20478_recombineIntoArgs($0, $1.a2.a2);
|
|
10487
10512
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
10488
10513
|
}
|
|
10489
10514
|
case 0: /* nothing */ {
|
|
10490
|
-
const $37 =
|
|
10515
|
+
const $37 = Commands_n__9018_20478_recombineIntoArgs($0, $1.a2.a2);
|
|
10491
10516
|
return {a1: $37.a1, a2: {a1: '--into', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
10492
10517
|
}
|
|
10493
10518
|
}
|
|
10494
10519
|
}
|
|
10495
10520
|
default: {
|
|
10496
|
-
const $41 =
|
|
10521
|
+
const $41 = Commands_n__9018_20478_recombineIntoArgs($0, $1.a2);
|
|
10497
10522
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
10498
10523
|
}
|
|
10499
10524
|
}
|
|
10500
10525
|
}
|
|
10501
10526
|
default: {
|
|
10502
|
-
const $49 =
|
|
10527
|
+
const $49 = Commands_n__9018_20478_recombineIntoArgs($0, $1.a2);
|
|
10503
10528
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
10504
10529
|
}
|
|
10505
10530
|
}
|
|
@@ -10507,30 +10532,30 @@ function Commands_n__8992_20478_recombineIntoArgs($0, $1) {
|
|
|
10507
10532
|
}
|
|
10508
10533
|
}
|
|
10509
10534
|
|
|
10510
|
-
/* Commands.
|
|
10511
|
-
function
|
|
10535
|
+
/* Commands.11169:22520:recombineIgnoreArgs */
|
|
10536
|
+
function Commands_n__11169_22520_recombineIgnoreArgs($0, $1) {
|
|
10512
10537
|
switch($1.h) {
|
|
10513
10538
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
10514
10539
|
case undefined: /* cons */ {
|
|
10515
10540
|
switch($1.a1) {
|
|
10516
10541
|
case '-i': {
|
|
10517
10542
|
switch($1.a2.h) {
|
|
10518
|
-
case 0: /* nil */ return
|
|
10543
|
+
case 0: /* nil */ return csegen_660();
|
|
10519
10544
|
case undefined: /* cons */ {
|
|
10520
|
-
const $8 =
|
|
10545
|
+
const $8 = Commands_n__11169_22517_parseIgnoreOpt($0, $1.a2.a1);
|
|
10521
10546
|
switch($8.h) {
|
|
10522
10547
|
case undefined: /* just */ {
|
|
10523
|
-
const $c =
|
|
10548
|
+
const $c = Commands_n__11169_22520_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10524
10549
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
10525
10550
|
}
|
|
10526
10551
|
case 0: /* nothing */ {
|
|
10527
|
-
const $14 =
|
|
10552
|
+
const $14 = Commands_n__11169_22520_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10528
10553
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
10529
10554
|
}
|
|
10530
10555
|
}
|
|
10531
10556
|
}
|
|
10532
10557
|
default: {
|
|
10533
|
-
const $1e =
|
|
10558
|
+
const $1e = Commands_n__11169_22520_recombineIgnoreArgs($0, $1.a2);
|
|
10534
10559
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
10535
10560
|
}
|
|
10536
10561
|
}
|
|
@@ -10539,26 +10564,26 @@ function Commands_n__11143_22520_recombineIgnoreArgs($0, $1) {
|
|
|
10539
10564
|
switch($1.a2.h) {
|
|
10540
10565
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
|
|
10541
10566
|
case undefined: /* cons */ {
|
|
10542
|
-
const $2b =
|
|
10567
|
+
const $2b = Commands_n__11169_22517_parseIgnoreOpt($0, $1.a2.a1);
|
|
10543
10568
|
switch($2b.h) {
|
|
10544
10569
|
case undefined: /* just */ {
|
|
10545
|
-
const $2f =
|
|
10570
|
+
const $2f = Commands_n__11169_22520_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10546
10571
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
10547
10572
|
}
|
|
10548
10573
|
case 0: /* nothing */ {
|
|
10549
|
-
const $37 =
|
|
10574
|
+
const $37 = Commands_n__11169_22520_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10550
10575
|
return {a1: $37.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
10551
10576
|
}
|
|
10552
10577
|
}
|
|
10553
10578
|
}
|
|
10554
10579
|
default: {
|
|
10555
|
-
const $41 =
|
|
10580
|
+
const $41 = Commands_n__11169_22520_recombineIgnoreArgs($0, $1.a2);
|
|
10556
10581
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
10557
10582
|
}
|
|
10558
10583
|
}
|
|
10559
10584
|
}
|
|
10560
10585
|
default: {
|
|
10561
|
-
const $49 =
|
|
10586
|
+
const $49 = Commands_n__11169_22520_recombineIgnoreArgs($0, $1.a2);
|
|
10562
10587
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
10563
10588
|
}
|
|
10564
10589
|
}
|
|
@@ -10566,23 +10591,23 @@ function Commands_n__11143_22520_recombineIgnoreArgs($0, $1) {
|
|
|
10566
10591
|
}
|
|
10567
10592
|
}
|
|
10568
10593
|
|
|
10569
|
-
/* Commands.
|
|
10570
|
-
function
|
|
10594
|
+
/* Commands.10383:21764:putNameLn */
|
|
10595
|
+
function Commands_n__10383_21764_putNameLn($0, $1, $2, $3) {
|
|
10571
10596
|
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
10597
|
}
|
|
10573
10598
|
|
|
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 =>
|
|
10599
|
+
/* Commands.8766:20218:putLabels */
|
|
10600
|
+
function Commands_n__8766_20218_putLabels($0, $1, $2, $3) {
|
|
10601
|
+
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__8766_20217_putLabel($0, $1, $2, $e), $3)));
|
|
10577
10602
|
}
|
|
10578
10603
|
|
|
10579
|
-
/* Commands.
|
|
10580
|
-
function
|
|
10604
|
+
/* Commands.8766:20217:putLabel */
|
|
10605
|
+
function Commands_n__8766_20217_putLabel($0, $1, $2, $3) {
|
|
10581
10606
|
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
10607
|
}
|
|
10583
10608
|
|
|
10584
|
-
/* Commands.
|
|
10585
|
-
function
|
|
10609
|
+
/* Commands.11521:22875:printDetails */
|
|
10610
|
+
function Commands_n__11521_22875_printDetails($0, $1, $2, $3) {
|
|
10586
10611
|
const $4 = Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a8));
|
|
10587
10612
|
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
10613
|
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 +10616,8 @@ function Commands_n__11495_22875_printDetails($0, $1, $2, $3) {
|
|
|
10591
10616
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: $4, a2: {a1: $c, a2: {a1: $15, a2: {a1: $20, a2: {a1: $2e, a2: {h: 0}}}}}});
|
|
10592
10617
|
}
|
|
10593
10618
|
|
|
10594
|
-
/* Commands.
|
|
10595
|
-
function
|
|
10619
|
+
/* Commands.11521:22874:pickOne */
|
|
10620
|
+
function Commands_n__11521_22874_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10596
10621
|
const $8 = Data_List_headx27(Data_List_drop($4, Prelude_Types_List_tailRecAppend($6, $7)));
|
|
10597
10622
|
return $11 => $12 => {
|
|
10598
10623
|
switch($8.h) {
|
|
@@ -10606,7 +10631,7 @@ function Commands_n__11495_22874_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
10606
10631
|
break;
|
|
10607
10632
|
}
|
|
10608
10633
|
case 0: /* nothing */ {
|
|
10609
|
-
$19 =
|
|
10634
|
+
$19 = csegen_665();
|
|
10610
10635
|
break;
|
|
10611
10636
|
}
|
|
10612
10637
|
}
|
|
@@ -10616,31 +10641,31 @@ function Commands_n__11495_22874_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
10616
10641
|
};
|
|
10617
10642
|
}
|
|
10618
10643
|
|
|
10619
|
-
/* Commands.
|
|
10620
|
-
function
|
|
10644
|
+
/* Commands.10013:21430:partitionedArgs */
|
|
10645
|
+
function Commands_n__10013_21430_partitionedArgs($0, $1, $2, $3) {
|
|
10621
10646
|
return Commands_case__requestx2cpartitionedArgs_21442($0, $1, $2, $3, Data_List_partition($c => Data_String_isPrefixOf('+', $c), $3));
|
|
10622
10647
|
}
|
|
10623
10648
|
|
|
10624
|
-
/* Commands.
|
|
10625
|
-
function
|
|
10649
|
+
/* Commands.10551:21952:parseTeamArg */
|
|
10650
|
+
function Commands_n__10551_21952_parseTeamArg($0, $1) {
|
|
10626
10651
|
return {a1: {a1: $1}};
|
|
10627
10652
|
}
|
|
10628
10653
|
|
|
10629
|
-
/* Commands.
|
|
10630
|
-
function
|
|
10654
|
+
/* Commands.11169:22519:parseSkipArg */
|
|
10655
|
+
function Commands_n__11169_22519_parseSkipArg($0, $1) {
|
|
10631
10656
|
return Commands_case__parseContributeArgsx2cparseSkipArg_22566($0, $1, Data_String_strM($1));
|
|
10632
10657
|
}
|
|
10633
10658
|
|
|
10634
|
-
/* Commands.
|
|
10635
|
-
function
|
|
10659
|
+
/* Commands.9018:20477:parseReadyFlag */
|
|
10660
|
+
function Commands_n__9018_20477_parseReadyFlag($0, $1) {
|
|
10636
10661
|
switch($1) {
|
|
10637
10662
|
case '--ready': return {a1: {h: 1 /* Ready */}};
|
|
10638
10663
|
default: return {h: 0};
|
|
10639
10664
|
}
|
|
10640
10665
|
}
|
|
10641
10666
|
|
|
10642
|
-
/* Commands.
|
|
10643
|
-
function
|
|
10667
|
+
/* Commands.11169:22518:parseListFlag */
|
|
10668
|
+
function Commands_n__11169_22518_parseListFlag($0, $1) {
|
|
10644
10669
|
switch($1) {
|
|
10645
10670
|
case '-l': return {a1: {h: 0 /* List */}};
|
|
10646
10671
|
case '--list': return {a1: {h: 0 /* List */}};
|
|
@@ -10648,8 +10673,8 @@ function Commands_n__11143_22518_parseListFlag($0, $1) {
|
|
|
10648
10673
|
}
|
|
10649
10674
|
}
|
|
10650
10675
|
|
|
10651
|
-
/* Commands.
|
|
10652
|
-
function
|
|
10676
|
+
/* Commands.9018:20476:parseLabelArg */
|
|
10677
|
+
function Commands_n__9018_20476_parseLabelArg($0, $1) {
|
|
10653
10678
|
const $2 = Data_String_strM($1);
|
|
10654
10679
|
switch($2.h) {
|
|
10655
10680
|
case undefined: /* cons */ {
|
|
@@ -10662,29 +10687,29 @@ function Commands_n__8992_20476_parseLabelArg($0, $1) {
|
|
|
10662
10687
|
}
|
|
10663
10688
|
}
|
|
10664
10689
|
|
|
10665
|
-
/* Commands.
|
|
10666
|
-
function
|
|
10690
|
+
/* Commands.9018:20475:parseIntoOpt */
|
|
10691
|
+
function Commands_n__9018_20475_parseIntoOpt($0, $1) {
|
|
10667
10692
|
const $2 = Util_String_nonEmpty($1);
|
|
10668
10693
|
return Prelude_Types_map_Functor_Maybe($7 => $7, $2);
|
|
10669
10694
|
}
|
|
10670
10695
|
|
|
10671
|
-
/* Commands.
|
|
10672
|
-
function
|
|
10673
|
-
const $2 = Data_String_split(
|
|
10696
|
+
/* Commands.11169:22517:parseIgnoreOpt */
|
|
10697
|
+
function Commands_n__11169_22517_parseIgnoreOpt($0, $1) {
|
|
10698
|
+
const $2 = Data_String_split(csegen_402(), $1);
|
|
10674
10699
|
const $7 = Data_List1_last($2);
|
|
10675
10700
|
return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
|
|
10676
10701
|
}
|
|
10677
10702
|
|
|
10678
|
-
/* Commands.
|
|
10679
|
-
function
|
|
10703
|
+
/* Commands.9018:20474:parseDraftFlag */
|
|
10704
|
+
function Commands_n__9018_20474_parseDraftFlag($0, $1) {
|
|
10680
10705
|
switch($1) {
|
|
10681
10706
|
case '--draft': return {a1: {h: 0 /* Draft */}};
|
|
10682
10707
|
default: return {h: 0};
|
|
10683
10708
|
}
|
|
10684
10709
|
}
|
|
10685
10710
|
|
|
10686
|
-
/* Commands.
|
|
10687
|
-
function
|
|
10711
|
+
/* Commands.10551:21951:parseCompletedFlag */
|
|
10712
|
+
function Commands_n__10551_21951_parseCompletedFlag($0, $1) {
|
|
10688
10713
|
switch($1) {
|
|
10689
10714
|
case '-c': return {a1: {h: 0}};
|
|
10690
10715
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -10692,8 +10717,8 @@ function Commands_n__10525_21951_parseCompletedFlag($0, $1) {
|
|
|
10692
10717
|
}
|
|
10693
10718
|
}
|
|
10694
10719
|
|
|
10695
|
-
/* Commands.
|
|
10696
|
-
function
|
|
10720
|
+
/* Commands.11169:22516:parseCheckoutFlag */
|
|
10721
|
+
function Commands_n__11169_22516_parseCheckoutFlag($0, $1) {
|
|
10697
10722
|
switch($1) {
|
|
10698
10723
|
case '-c': return {a1: {h: 1 /* Checkout */}};
|
|
10699
10724
|
case '--checkout': return {a1: {h: 1 /* Checkout */}};
|
|
@@ -10701,8 +10726,8 @@ function Commands_n__11143_22516_parseCheckoutFlag($0, $1) {
|
|
|
10701
10726
|
}
|
|
10702
10727
|
}
|
|
10703
10728
|
|
|
10704
|
-
/* Commands.
|
|
10705
|
-
function
|
|
10729
|
+
/* Commands.9484:20943:markAsReady */
|
|
10730
|
+
function Commands_n__9484_20943_markAsReady($0, $1, $2) {
|
|
10706
10731
|
const $6 = $7 => {
|
|
10707
10732
|
switch($7.h) {
|
|
10708
10733
|
case 1: /* Ready */ return 1;
|
|
@@ -10713,8 +10738,8 @@ function Commands_n__9458_20943_markAsReady($0, $1, $2) {
|
|
|
10713
10738
|
return Data_Maybe_isJust($4);
|
|
10714
10739
|
}
|
|
10715
10740
|
|
|
10716
|
-
/* Commands.
|
|
10717
|
-
function
|
|
10741
|
+
/* Commands.9484:20942:markAsDraft */
|
|
10742
|
+
function Commands_n__9484_20942_markAsDraft($0, $1, $2) {
|
|
10718
10743
|
const $6 = $7 => {
|
|
10719
10744
|
switch($7.h) {
|
|
10720
10745
|
case 0: /* Draft */ return 1;
|
|
@@ -10725,8 +10750,8 @@ function Commands_n__9458_20942_markAsDraft($0, $1, $2) {
|
|
|
10725
10750
|
return Data_Maybe_isJust($4);
|
|
10726
10751
|
}
|
|
10727
10752
|
|
|
10728
|
-
/* Commands.
|
|
10729
|
-
function
|
|
10753
|
+
/* Commands.11521:22873:listSome */
|
|
10754
|
+
function Commands_n__11521_22873_listSome($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10730
10755
|
const $13 = $14 => {
|
|
10731
10756
|
let $19;
|
|
10732
10757
|
switch(Prelude_Types_null_Foldable_List($5)) {
|
|
@@ -10739,13 +10764,13 @@ function Commands_n__11495_22873_listSome($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
10739
10764
|
break;
|
|
10740
10765
|
}
|
|
10741
10766
|
}
|
|
10742
|
-
return Prelude_Interfaces_when(csegen_80()(), $19, () => $1e => $1f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10767
|
+
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__11521_22871_goListSome($0, $1, $2, 0, Data_List_take(5n, $5)), $26, $27), $1e, $1f));
|
|
10743
10768
|
};
|
|
10744
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10769
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_n__11521_22871_goListSome($0, $1, $2, 1, Data_List_drop($3, $4)), $13, $6, $7);
|
|
10745
10770
|
}
|
|
10746
10771
|
|
|
10747
|
-
/* Commands.
|
|
10748
|
-
function
|
|
10772
|
+
/* Commands.9484:20941:labelSlugs */
|
|
10773
|
+
function Commands_n__9484_20941_labelSlugs($0, $1, $2) {
|
|
10749
10774
|
const $4 = $5 => $6 => {
|
|
10750
10775
|
switch($5.h) {
|
|
10751
10776
|
case 3: /* Label */ return {a1: $5.a1, a2: $6};
|
|
@@ -10755,13 +10780,13 @@ function Commands_n__9458_20941_labelSlugs($0, $1, $2) {
|
|
|
10755
10780
|
return Prelude_Types_foldr_Foldable_List($4, {h: 0}, $2);
|
|
10756
10781
|
}
|
|
10757
10782
|
|
|
10758
|
-
/* Commands.
|
|
10759
|
-
function
|
|
10783
|
+
/* Commands.11521:22872:isNotIgnored */
|
|
10784
|
+
function Commands_n__11521_22872_isNotIgnored($0, $1, $2, $3, $4) {
|
|
10760
10785
|
return Data_Maybe_isNothing(Data_List_find($9 => Prelude_EqOrd_x3dx3d_Eq_Integer($9, $4.a1), $3.a13));
|
|
10761
10786
|
}
|
|
10762
10787
|
|
|
10763
|
-
/* Commands.
|
|
10764
|
-
function
|
|
10788
|
+
/* Commands.9484:20940:intoBranch */
|
|
10789
|
+
function Commands_n__9484_20940_intoBranch($0, $1, $2) {
|
|
10765
10790
|
const $c = $d => {
|
|
10766
10791
|
switch($d.h) {
|
|
10767
10792
|
case 2: /* Into */ return {a1: Util_String_value($d.a1)};
|
|
@@ -10771,11 +10796,11 @@ function Commands_n__9458_20940_intoBranch($0, $1, $2) {
|
|
|
10771
10796
|
return Prelude_Types_foldMap_Foldable_List({a1: $6 => $7 => Prelude_Types_x3cx2bx3e_Semigroup_x28Maybex20x24ax29($6, $7), a2: {h: 0}}, $c, $2);
|
|
10772
10797
|
}
|
|
10773
10798
|
|
|
10774
|
-
/* Commands.
|
|
10775
|
-
function
|
|
10799
|
+
/* Commands.11521:22871:goListSome */
|
|
10800
|
+
function Commands_n__11521_22871_goListSome($0, $1, $2, $3, $4) {
|
|
10776
10801
|
switch($4.h) {
|
|
10777
10802
|
case undefined: /* cons */ {
|
|
10778
|
-
const $6 =
|
|
10803
|
+
const $6 = Commands_n__11521_22875_printDetails($0, $1, $2, $4.a1);
|
|
10779
10804
|
let $13;
|
|
10780
10805
|
switch($3) {
|
|
10781
10806
|
case 1: {
|
|
@@ -10787,15 +10812,15 @@ function Commands_n__11495_22871_goListSome($0, $1, $2, $3, $4) {
|
|
|
10787
10812
|
break;
|
|
10788
10813
|
}
|
|
10789
10814
|
}
|
|
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:
|
|
10815
|
+
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__11521_22875_printDetails($0, $1, $2, next), a2: {h: 0}}}}), $6, $4.a2));
|
|
10791
10816
|
return Util_renderIO($2, csegen_88()(), $11);
|
|
10792
10817
|
}
|
|
10793
|
-
case 0: /* nil */ return
|
|
10818
|
+
case 0: /* nil */ return csegen_665();
|
|
10794
10819
|
}
|
|
10795
10820
|
}
|
|
10796
10821
|
|
|
10797
|
-
/* Commands.
|
|
10798
|
-
function
|
|
10822
|
+
/* Commands.12585:23856:go */
|
|
10823
|
+
function Commands_n__12585_23856_go($0, $1) {
|
|
10799
10824
|
switch($1.h) {
|
|
10800
10825
|
case 0: /* nothing */ return $0;
|
|
10801
10826
|
default: {
|
|
@@ -10807,15 +10832,15 @@ function Commands_n__12559_23856_go($0, $1) {
|
|
|
10807
10832
|
}
|
|
10808
10833
|
}
|
|
10809
10834
|
|
|
10810
|
-
/* Commands.
|
|
10811
|
-
function
|
|
10835
|
+
/* Commands.10383:21763:forkedUser */
|
|
10836
|
+
function Commands_n__10383_21763_forkedUser($0, $1, $2, $3) {
|
|
10812
10837
|
return FFI_Concurrency_fork(csegen_88()(), ('user --json '+$3));
|
|
10813
10838
|
}
|
|
10814
10839
|
|
|
10815
|
-
/* Commands.
|
|
10816
|
-
function
|
|
10817
|
-
switch(
|
|
10818
|
-
case 1: return
|
|
10840
|
+
/* Commands.9484:20939:conflictingDraftReadyArgs */
|
|
10841
|
+
function Commands_n__9484_20939_conflictingDraftReadyArgs($0, $1, $2) {
|
|
10842
|
+
switch(Commands_n__9484_20942_markAsDraft($0, $1, $2)) {
|
|
10843
|
+
case 1: return Commands_n__9484_20943_markAsReady($0, $1, $2);
|
|
10819
10844
|
case 0: return 0;
|
|
10820
10845
|
}
|
|
10821
10846
|
}
|
|
@@ -10827,7 +10852,7 @@ function Commands_whoami($0, $1, $2, $3) {
|
|
|
10827
10852
|
|
|
10828
10853
|
/* Commands.titleArg : List QuickArg -> Maybe String */
|
|
10829
10854
|
function Commands_titleArg($0) {
|
|
10830
|
-
return Prelude_Types_foldl_Foldable_List($3 => $4 =>
|
|
10855
|
+
return Prelude_Types_foldl_Foldable_List($3 => $4 => Commands_n__12585_23856_go($3, $4), {h: 0}, $0);
|
|
10831
10856
|
}
|
|
10832
10857
|
|
|
10833
10858
|
/* Commands.teamNameArg : GraphArg -> Maybe String */
|
|
@@ -10853,7 +10878,7 @@ function Commands_skipArg($0) {
|
|
|
10853
10878
|
|
|
10854
10879
|
/* Commands.request : Config => Octokit => List String -> {default False _ : Bool} -> Promise' () */
|
|
10855
10880
|
function Commands_request($0, $1, $2, $3) {
|
|
10856
|
-
return Commands_case__request_21539($0, $1, $3, $2,
|
|
10881
|
+
return Commands_case__request_21539($0, $1, $3, $2, Commands_n__10013_21430_partitionedArgs($0, $1, $3, $2));
|
|
10857
10882
|
}
|
|
10858
10883
|
|
|
10859
10884
|
/* Commands.reflect : Config => Octokit => Promise' () */
|
|
@@ -10885,7 +10910,7 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
10885
10910
|
};
|
|
10886
10911
|
const $55 = $56 => $57 => $58 => {
|
|
10887
10912
|
let $5f;
|
|
10888
|
-
switch(Prelude_Types_null_Foldable_List(
|
|
10913
|
+
switch(Prelude_Types_null_Foldable_List(Commands_n__9484_20941_labelSlugs($0, $1, $2))) {
|
|
10889
10914
|
case 1: {
|
|
10890
10915
|
$5f = 0;
|
|
10891
10916
|
break;
|
|
@@ -10895,10 +10920,10 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
10895
10920
|
break;
|
|
10896
10921
|
}
|
|
10897
10922
|
}
|
|
10898
|
-
const $5a = Prelude_Interfaces_when(csegen_80()(), $5f, () => $68 => $69 => Commands_label($0, $1,
|
|
10923
|
+
const $5a = Prelude_Interfaces_when(csegen_80()(), $5f, () => $68 => $69 => Commands_label($0, $1, Commands_n__9484_20941_labelSlugs($0, $1, $2), $68, $69));
|
|
10899
10924
|
const $74 = $75 => $76 => $77 => {
|
|
10900
10925
|
const $79 = $7a => {
|
|
10901
|
-
const $7b =
|
|
10926
|
+
const $7b = Commands_n__9484_20940_intoBranch($0, $1, $2);
|
|
10902
10927
|
switch($7b.h) {
|
|
10903
10928
|
case undefined: /* just */ {
|
|
10904
10929
|
return $80 => {
|
|
@@ -10913,7 +10938,7 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
10913
10938
|
};
|
|
10914
10939
|
const $9f = $a0 => $a1 => $a2 => {
|
|
10915
10940
|
let $a9;
|
|
10916
|
-
switch(
|
|
10941
|
+
switch(Commands_n__9484_20942_markAsDraft($0, $1, $2)) {
|
|
10917
10942
|
case 1: {
|
|
10918
10943
|
switch($39.a2.a4) {
|
|
10919
10944
|
case 1: {
|
|
@@ -10942,11 +10967,11 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
10942
10967
|
};
|
|
10943
10968
|
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
10969
|
};
|
|
10945
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10970
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $b8, $b2, $b3);
|
|
10946
10971
|
});
|
|
10947
10972
|
const $f9 = $fa => {
|
|
10948
10973
|
let $ff;
|
|
10949
|
-
switch(
|
|
10974
|
+
switch(Commands_n__9484_20943_markAsReady($0, $1, $2)) {
|
|
10950
10975
|
case 1: {
|
|
10951
10976
|
$ff = $39.a2.a4;
|
|
10952
10977
|
break;
|
|
@@ -10966,7 +10991,7 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
10966
10991
|
};
|
|
10967
10992
|
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
10993
|
};
|
|
10969
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10994
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $10d, $107, $108);
|
|
10970
10995
|
});
|
|
10971
10996
|
};
|
|
10972
10997
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a4, $f9, $a1, $a2);
|
|
@@ -10980,9 +11005,9 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
10980
11005
|
case 1: /* Hypothetical */ return $156 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($159 => Prelude_IO_prim__putStr(($39.a1+'\n'), $159), $3a, $3b, $156);
|
|
10981
11006
|
}
|
|
10982
11007
|
};
|
|
10983
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d => $1e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11008
|
+
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__9484_20942_markAsDraft($0, $1, $2), Commands_n__9484_20940_intoBranch($0, $1, $2), $23, $24, $25), $1d, $1e), $38, $19, $1a);
|
|
10984
11009
|
};
|
|
10985
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_80()(),
|
|
11010
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_80()(), Commands_n__9484_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
11011
|
}
|
|
10987
11012
|
|
|
10988
11013
|
/* Commands.parseQuickArgs : List String -> List QuickArg */
|
|
@@ -11003,9 +11028,9 @@ function Commands_parsePrArgs($0) {
|
|
|
11003
11028
|
switch($0.h) {
|
|
11004
11029
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
11005
11030
|
default: {
|
|
11006
|
-
const $3 =
|
|
11031
|
+
const $3 = Commands_n__9018_20478_recombineIntoArgs($0, $0);
|
|
11007
11032
|
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(
|
|
11033
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_688(), $18 => Commands_n__9018_20477_parseReadyFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_688(), $22 => Commands_n__9018_20474_parseDraftFlag($0, $22), $27 => Commands_n__9018_20476_parseLabelArg($0, $27), $1d), $13), $3.a2);
|
|
11009
11034
|
return Data_Either_maybeToEither(() => Commands_prUsageError(), Prelude_Types_map_Functor_Maybe($34 => Prelude_Types_List_tailRecAppend($7, $34), $e));
|
|
11010
11035
|
}
|
|
11011
11036
|
}
|
|
@@ -11021,7 +11046,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11021
11046
|
switch($0.a2.a2.h) {
|
|
11022
11047
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
11023
11048
|
default: {
|
|
11024
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(
|
|
11049
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_688(), $10 => Commands_n__10551_21951_parseCompletedFlag($0, $10), $15 => Commands_n__10551_21952_parseTeamArg($0, $15), $b), $0);
|
|
11025
11050
|
switch($6.h) {
|
|
11026
11051
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
11027
11052
|
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 +11055,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11030
11055
|
}
|
|
11031
11056
|
}
|
|
11032
11057
|
default: {
|
|
11033
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(
|
|
11058
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_688(), $27 => Commands_n__10551_21951_parseCompletedFlag($0, $27), $2c => Commands_n__10551_21952_parseTeamArg($0, $2c), $22), $0);
|
|
11034
11059
|
switch($1d.h) {
|
|
11035
11060
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
11036
11061
|
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 +11064,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11039
11064
|
}
|
|
11040
11065
|
}
|
|
11041
11066
|
default: {
|
|
11042
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(
|
|
11067
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_688(), $3e => Commands_n__10551_21951_parseCompletedFlag($0, $3e), $43 => Commands_n__10551_21952_parseTeamArg($0, $43), $39), $0);
|
|
11043
11068
|
switch($34.h) {
|
|
11044
11069
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
11045
11070
|
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 +11078,9 @@ function Commands_parseContributeArgs($0) {
|
|
|
11053
11078
|
switch($0.h) {
|
|
11054
11079
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
11055
11080
|
default: {
|
|
11056
|
-
const $3 =
|
|
11081
|
+
const $3 = Commands_n__11169_22520_recombineIgnoreArgs($0, $0);
|
|
11057
11082
|
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(
|
|
11083
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_688(), $18 => Commands_n__11169_22518_parseListFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_688(), $22 => Commands_n__11169_22519_parseSkipArg($0, $22), $27 => Commands_n__11169_22516_parseCheckoutFlag($0, $27), $1d), $13), $3.a2);
|
|
11059
11084
|
return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($34 => Prelude_Types_List_tailRecAppend($7, $34), $e));
|
|
11060
11085
|
}
|
|
11061
11086
|
}
|
|
@@ -11063,12 +11088,12 @@ function Commands_parseContributeArgs($0) {
|
|
|
11063
11088
|
|
|
11064
11089
|
/* Commands.listOrgTeams : Config => Octokit => Promise' () */
|
|
11065
11090
|
function Commands_listOrgTeams($0, $1, $2, $3) {
|
|
11066
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11091
|
+
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
11092
|
}
|
|
11068
11093
|
|
|
11069
11094
|
/* Commands.list : Config => Octokit => String -> Promise' () */
|
|
11070
11095
|
function Commands_list($0, $1, $2, $3, $4) {
|
|
11071
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11096
|
+
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__10383_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__10383_21764_putNameLn($1, $2, $0, $4e), teamMembers))), $31, $32), $19, $1a), $3, $4);
|
|
11072
11097
|
}
|
|
11073
11098
|
|
|
11074
11099
|
/* Commands.label : Config => Octokit => List String -> Promise' () */
|
|
@@ -11077,17 +11102,17 @@ function Commands_label($0, $1, $2, $3, $4) {
|
|
|
11077
11102
|
switch($1b.h) {
|
|
11078
11103
|
case 0: /* Actual */ {
|
|
11079
11104
|
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(
|
|
11105
|
+
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__8766_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__8766_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
11106
|
}
|
|
11082
11107
|
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
11108
|
}
|
|
11084
11109
|
};
|
|
11085
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11110
|
+
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
11111
|
}
|
|
11087
11112
|
|
|
11088
11113
|
/* Commands.issueCategory : List QuickArg -> IssueCategory */
|
|
11089
11114
|
function Commands_issueCategory($0) {
|
|
11090
|
-
return Prelude_Types_maybe(() => 1, () => $4 => 0, Data_List_find(
|
|
11115
|
+
return Prelude_Types_maybe(() => 1, () => $4 => 0, Data_List_find(csegen_698(), $0));
|
|
11091
11116
|
}
|
|
11092
11117
|
|
|
11093
11118
|
/* Commands.health : Config => Octokit => Promise' () */
|
|
@@ -11097,7 +11122,7 @@ function Commands_health($0, $1, $2, $3) {
|
|
|
11097
11122
|
|
|
11098
11123
|
/* Commands.graph : Config => Octokit => List GraphArg -> Promise' () */
|
|
11099
11124
|
function Commands_graph($0, $1, $2) {
|
|
11100
|
-
const $3 = Data_List_find(
|
|
11125
|
+
const $3 = Data_List_find(csegen_698(), $2);
|
|
11101
11126
|
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
11127
|
}
|
|
11103
11128
|
|
|
@@ -11117,75 +11142,75 @@ function Commands_contribute($0, $1, $2, $3, $4) {
|
|
|
11117
11142
|
};
|
|
11118
11143
|
const $12 = Prelude_Types_List_filterAppend({h: 0}, $15, openPrs);
|
|
11119
11144
|
return $1a => $1b => {
|
|
11120
|
-
const $
|
|
11121
|
-
const $
|
|
11122
|
-
return $
|
|
11123
|
-
const $
|
|
11124
|
-
switch(Prelude_Types_null_Foldable_List($
|
|
11125
|
-
case 1: return Data_Promise_pure_Applicative_x28Promisex20x24ex29($0, $
|
|
11126
|
-
case 0: return Config_addIgnoredPRs($0, $
|
|
11145
|
+
const $28 = myLogin => {
|
|
11146
|
+
const $29 = Commands_ignorePRNums($2);
|
|
11147
|
+
return $2c => $2d => {
|
|
11148
|
+
const $2f = $30 => $31 => {
|
|
11149
|
+
switch(Prelude_Types_null_Foldable_List($29)) {
|
|
11150
|
+
case 1: return Data_Promise_pure_Applicative_x28Promisex20x24ex29($0, $30, $31);
|
|
11151
|
+
case 0: return Config_addIgnoredPRs($0, $29, $30, $31);
|
|
11127
11152
|
}
|
|
11128
11153
|
};
|
|
11129
|
-
const $
|
|
11130
|
-
const $
|
|
11131
|
-
const $
|
|
11132
|
-
switch($
|
|
11154
|
+
const $3e = configx27 => {
|
|
11155
|
+
const $3f = Data_Maybe_fromMaybe(() => 0n, Data_List_headx27(Prelude_Types_List_mapMaybeAppend({h: 0}, $48 => Commands_skipArg($48), $2)));
|
|
11156
|
+
const $4e = $4f => {
|
|
11157
|
+
switch($4f.h) {
|
|
11133
11158
|
case 1: /* Checkout */ return 1;
|
|
11134
11159
|
default: return 0;
|
|
11135
11160
|
}
|
|
11136
11161
|
};
|
|
11137
|
-
const $
|
|
11138
|
-
const $
|
|
11139
|
-
switch($
|
|
11162
|
+
const $4c = Data_List_find($4e, $2);
|
|
11163
|
+
const $54 = $55 => {
|
|
11164
|
+
switch($55.h) {
|
|
11140
11165
|
case 0: /* List */ return 1;
|
|
11141
11166
|
default: return 0;
|
|
11142
11167
|
}
|
|
11143
11168
|
};
|
|
11144
|
-
const $
|
|
11145
|
-
return $
|
|
11146
|
-
let $
|
|
11147
|
-
switch(Data_Maybe_isJust($
|
|
11169
|
+
const $52 = Data_List_find($54, $2);
|
|
11170
|
+
return $58 => $59 => {
|
|
11171
|
+
let $60;
|
|
11172
|
+
switch(Data_Maybe_isJust($4c)) {
|
|
11148
11173
|
case 1: {
|
|
11149
|
-
$
|
|
11174
|
+
$60 = Data_Maybe_isJust($52);
|
|
11150
11175
|
break;
|
|
11151
11176
|
}
|
|
11152
11177
|
case 0: {
|
|
11153
|
-
$
|
|
11178
|
+
$60 = 0;
|
|
11154
11179
|
break;
|
|
11155
11180
|
}
|
|
11156
11181
|
}
|
|
11157
|
-
const $
|
|
11158
|
-
const $
|
|
11159
|
-
const $
|
|
11160
|
-
switch(Data_PullRequest_isAuthor(myLogin, $
|
|
11182
|
+
const $5b = Prelude_Interfaces_when(csegen_80()(), $60, () => $67 => $68 => Data_Promise_reject('The --checkout and --list options are mutually exclusive', $67, $68));
|
|
11183
|
+
const $6d = $6e => {
|
|
11184
|
+
const $73 = $74 => {
|
|
11185
|
+
switch(Data_PullRequest_isAuthor(myLogin, $74)) {
|
|
11161
11186
|
case 1: return 0;
|
|
11162
11187
|
case 0: return 1;
|
|
11163
11188
|
}
|
|
11164
11189
|
};
|
|
11165
|
-
const $
|
|
11166
|
-
const $
|
|
11167
|
-
const $
|
|
11168
|
-
const $
|
|
11169
|
-
let $
|
|
11170
|
-
switch($
|
|
11190
|
+
const $70 = Prelude_Types_List_filterAppend({h: 0}, $73, $12);
|
|
11191
|
+
const $7a = Prelude_Types_List_filterAppend({h: 0}, $7e => Commands_n__11521_22872_isNotIgnored($1, $2, $0, configx27, $7e), $70);
|
|
11192
|
+
const $86 = Data_List_partition($89 => Data_PullRequest_isRequestedReviewer(myLogin, $89), $7a);
|
|
11193
|
+
const $8e = Prelude_Interfaces_mapHom(csegen_656(), $94 => Data_List_sortBy(csegen_705(), $94))($86);
|
|
11194
|
+
let $6f;
|
|
11195
|
+
switch($52.h) {
|
|
11171
11196
|
case 0: /* nothing */ {
|
|
11172
|
-
$
|
|
11197
|
+
$6f = () => Commands_n__11521_22874_pickOne($1, $2, $0, configx27, $3f, $4c, $8e.a1, $8e.a2);
|
|
11173
11198
|
break;
|
|
11174
11199
|
}
|
|
11175
11200
|
case undefined: /* just */ {
|
|
11176
|
-
$
|
|
11201
|
+
$6f = () => $a4 => $a5 => Commands_n__11521_22873_listSome($1, $2, $0, $3f, $8e.a1, $8e.a2, $a4, $a5);
|
|
11177
11202
|
break;
|
|
11178
11203
|
}
|
|
11179
11204
|
}
|
|
11180
|
-
return $
|
|
11205
|
+
return $6f();
|
|
11181
11206
|
};
|
|
11182
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11207
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($5b, $6d, $58, $59);
|
|
11183
11208
|
};
|
|
11184
11209
|
};
|
|
11185
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11210
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2f, $3e, $2c, $2d);
|
|
11186
11211
|
};
|
|
11187
11212
|
};
|
|
11188
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => $1f => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11213
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => $1f => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_408(), FFI_GitHub_getSelf($1), $1e, $1f), $28, $1a, $1b);
|
|
11189
11214
|
};
|
|
11190
11215
|
};
|
|
11191
11216
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequests($1, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $11, $3, $4);
|
|
@@ -11199,7 +11224,7 @@ function Commands_branch($0, $1, $2) {
|
|
|
11199
11224
|
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
11225
|
return $1f => $20 => $21 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($24 => Prelude_IO_prim__putStr(($b+'\n'), $24), $1f, $20, $21);
|
|
11201
11226
|
};
|
|
11202
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11227
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_642(), $6, $1, $2);
|
|
11203
11228
|
}
|
|
11204
11229
|
|
|
11205
11230
|
/* Commands.(<||>) : Alternative t => (a -> t b) -> (a -> t b) -> a -> t b */
|
|
@@ -11419,67 +11444,67 @@ function Data_SortedMap_Dependent_empty($0) {
|
|
|
11419
11444
|
|
|
11420
11445
|
/* Commands.User.Reflect.case block in case block in reflectOnSelf */
|
|
11421
11446
|
function Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
11422
|
-
const $b = Prelude_Interfaces_mapHom(
|
|
11447
|
+
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
11448
|
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
11449
|
}
|
|
11425
11450
|
|
|
11426
|
-
/* Commands.User.Me.
|
|
11427
|
-
function
|
|
11451
|
+
/* Commands.User.Me.7619:2049:ul */
|
|
11452
|
+
function Commands_User_Me_n__7619_2049_ul($0, $1, $2, $3, $4) {
|
|
11428
11453
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
11429
11454
|
}
|
|
11430
11455
|
|
|
11431
|
-
/* Commands.User.Me.
|
|
11432
|
-
function
|
|
11433
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
11456
|
+
/* Commands.User.Me.7619:2048:teams */
|
|
11457
|
+
function Commands_User_Me_n__7619_2048_teams($0, $1, $2, $3) {
|
|
11458
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_User_Me_n__7619_2049_ul($0, $1, $2, $3, 'GitHub Teams:'), a2: Prelude_Types_List_mapAppend({h: 0}, $11 => Commands_User_Me_n__7619_2046_it($0, $1, $2, $3, $11), $0)});
|
|
11434
11459
|
}
|
|
11435
11460
|
|
|
11436
|
-
/* Commands.User.Me.
|
|
11437
|
-
function
|
|
11438
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'),
|
|
11461
|
+
/* Commands.User.Me.7619:2047:login */
|
|
11462
|
+
function Commands_User_Me_n__7619_2047_login($0, $1, $2, $3) {
|
|
11463
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'), Commands_User_Me_n__7619_2043_dataVal($0, $1, $2, $3, $1.a1));
|
|
11439
11464
|
}
|
|
11440
11465
|
|
|
11441
|
-
/* Commands.User.Reflect.
|
|
11442
|
-
function
|
|
11466
|
+
/* Commands.User.Reflect.6674:1075:ital */
|
|
11467
|
+
function Commands_User_Reflect_n__6674_1075_ital($0, $1) {
|
|
11443
11468
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
11444
11469
|
}
|
|
11445
11470
|
|
|
11446
|
-
/* Commands.User.Me.
|
|
11447
|
-
function
|
|
11471
|
+
/* Commands.User.Me.7619:2046:it */
|
|
11472
|
+
function Commands_User_Me_n__7619_2046_it($0, $1, $2, $3, $4) {
|
|
11448
11473
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
11449
11474
|
}
|
|
11450
11475
|
|
|
11451
|
-
/* Commands.User.Me.
|
|
11452
|
-
function
|
|
11476
|
+
/* Commands.User.Me.7769:2196:handleUnsetEmail */
|
|
11477
|
+
function Commands_User_Me_n__7769_2196_handleUnsetEmail($0, $1, $2) {
|
|
11453
11478
|
switch($2) {
|
|
11454
11479
|
case '': return {h: 0};
|
|
11455
11480
|
default: return {a1: $2};
|
|
11456
11481
|
}
|
|
11457
11482
|
}
|
|
11458
11483
|
|
|
11459
|
-
/* Commands.User.Me.
|
|
11460
|
-
function
|
|
11461
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'),
|
|
11484
|
+
/* Commands.User.Me.7619:2045:fullName */
|
|
11485
|
+
function Commands_User_Me_n__7619_2045_fullName($0, $1, $2, $3) {
|
|
11486
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'), Commands_User_Me_n__7619_2043_dataVal($0, $1, $2, $3, $1.a2));
|
|
11462
11487
|
}
|
|
11463
11488
|
|
|
11464
|
-
/* Commands.User.Me.
|
|
11465
|
-
function
|
|
11489
|
+
/* Commands.User.Me.7619:2044:email */
|
|
11490
|
+
function Commands_User_Me_n__7619_2044_email($0, $1, $2, $3) {
|
|
11466
11491
|
let $8;
|
|
11467
11492
|
switch($2.h) {
|
|
11468
11493
|
case undefined: /* just */ {
|
|
11469
|
-
$8 =
|
|
11494
|
+
$8 = Commands_User_Me_n__7619_2043_dataVal($0, $1, $2, $3, $2.a1);
|
|
11470
11495
|
break;
|
|
11471
11496
|
}
|
|
11472
11497
|
case 0: /* nothing */ {
|
|
11473
|
-
$8 =
|
|
11498
|
+
$8 = Commands_User_Me_n__7619_2046_it($0, $1, $2, $3, 'Not set');
|
|
11474
11499
|
break;
|
|
11475
11500
|
}
|
|
11476
11501
|
}
|
|
11477
11502
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Git Email:'), $8);
|
|
11478
11503
|
}
|
|
11479
11504
|
|
|
11480
|
-
/* Commands.User.Me.
|
|
11481
|
-
function
|
|
11482
|
-
return Theme_theme($3,
|
|
11505
|
+
/* Commands.User.Me.7619:2043:dataVal */
|
|
11506
|
+
function Commands_User_Me_n__7619_2043_dataVal($0, $1, $2, $3, $4) {
|
|
11507
|
+
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
11508
|
}
|
|
11484
11509
|
|
|
11485
11510
|
/* Commands.User.Reflect.rightTitle : String */
|
|
@@ -11500,22 +11525,22 @@ function Commands_User_replicatex27($0, $1, $2, $3, $4, $5) {
|
|
|
11500
11525
|
/* Commands.User.Reflect.reflectOnSelf : Config => Octokit => Promise' () */
|
|
11501
11526
|
function Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
11502
11527
|
const $c = prs => $d => $e => {
|
|
11503
|
-
const $
|
|
11504
|
-
const $
|
|
11505
|
-
const $
|
|
11506
|
-
const $
|
|
11507
|
-
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $
|
|
11528
|
+
const $1b = myLogin => $1c => $1d => {
|
|
11529
|
+
const $39 = reviews => {
|
|
11530
|
+
const $3a = Prelude_Types_map_Functor_Maybe(csegen_733(), Data_List_headx27(Data_List_sortBy($43 => $44 => Prelude_Basics_on(csegen_703(), csegen_733(), $43, $44), reviews)));
|
|
11531
|
+
const $4d = Prelude_Interfaces_mapHom(csegen_656(), $53 => Prelude_Types_List_filterAppend({h: 0}, $57 => Prelude_EqOrd_x3dx3d_Eq_String($57.a5, myLogin), $53))(prs);
|
|
11532
|
+
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3a, prs, $4d.a1, $4d.a2, Prelude_Interfaces_mapHom(csegen_656(), $6e => Prelude_Types_List_filterAppend({h: 0}, $72 => Prelude_Types_foldMap_Foldable_List(csegen_111(), $77 => Prelude_EqOrd_x3dx3d_Eq_String($77, myLogin), $72.a7), $6e))(prs));
|
|
11508
11533
|
};
|
|
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($
|
|
11534
|
+
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($2d => $2e => Prelude_Basics_on(csegen_703(), csegen_727(), $2d, $2e), Commands_PullRequest_combined(prs))))), $39, $1c, $1d);
|
|
11510
11535
|
};
|
|
11511
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11536
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_408(), FFI_GitHub_getSelf($1), $11, $12), $1b, $d, $e);
|
|
11512
11537
|
};
|
|
11513
11538
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_listPartitionedPRs($0, $1, 4n, Commands_User_Reflect_prCount()), $c, $2, $3);
|
|
11514
11539
|
}
|
|
11515
11540
|
|
|
11516
11541
|
/* Commands.User.Me.printInfoOnSelf : Config => Octokit => Promise' () */
|
|
11517
11542
|
function Commands_User_Me_printInfoOnSelf($0, $1, $2, $3) {
|
|
11518
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29($a =>
|
|
11543
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29($a => Commands_User_Me_n__7769_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
11544
|
}
|
|
11520
11545
|
|
|
11521
11546
|
/* Commands.User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Config =>
|
|
@@ -11526,7 +11551,7 @@ function Commands_User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
|
11526
11551
|
|
|
11527
11552
|
/* Commands.User.Me.print : Config -> Maybe String -> User -> List String -> Doc AnsiStyle */
|
|
11528
11553
|
function Commands_User_Me_print($0, $1, $2, $3) {
|
|
11529
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
11554
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7619_2044_email($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7619_2045_fullName($3, $2, $1, $0), a2: {a1: Commands_User_Me_n__7619_2047_login($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7619_2048_teams($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}}}}});
|
|
11530
11555
|
}
|
|
11531
11556
|
|
|
11532
11557
|
/* Commands.User.Reflect.prCount : Fin 101 */
|
|
@@ -11546,15 +11571,15 @@ const Commands_User_Reflect_intro = __lazy(function () {
|
|
|
11546
11571
|
|
|
11547
11572
|
/* Commands.User.Reflect.header : Nat -> Doc AnsiStyle */
|
|
11548
11573
|
function Commands_User_Reflect_header($0) {
|
|
11549
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1:
|
|
11574
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Commands_User_Reflect_n__6674_1075_ital($0, Commands_User_Reflect_leftTitle()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' '), a2: {a1: Commands_User_Reflect_n__6674_1075_ital($0, Commands_User_Reflect_rightTitle()), a2: {h: 0}}}}));
|
|
11550
11575
|
}
|
|
11551
11576
|
|
|
11552
11577
|
/* Commands.User.Reflect.graph : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Doc AnsiStyle */
|
|
11553
11578
|
function Commands_User_Reflect_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
11554
11579
|
const $7 = ($2+$3);
|
|
11555
11580
|
const $a = ($5+$4);
|
|
11556
|
-
const $d = Prelude_Types_foldr_Foldable_List(
|
|
11557
|
-
const $1c = Prelude_Types_foldr_Foldable_List(
|
|
11581
|
+
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}}});
|
|
11582
|
+
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
11583
|
const $29 = (($d+$1c)+3n);
|
|
11559
11584
|
const $2e = ((Number($0)/2.0)-(Number($29)/2.0));
|
|
11560
11585
|
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 +11589,12 @@ function Commands_User_Reflect_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
|
11564
11589
|
|
|
11565
11590
|
/* Commands.User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
11566
11591
|
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(
|
|
11592
|
+
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
11593
|
}
|
|
11569
11594
|
|
|
11570
11595
|
/* Commands.User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Nat -> Doc AnsiStyle */
|
|
11571
11596
|
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,
|
|
11597
|
+
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
11598
|
}
|
|
11574
11599
|
|
|
11575
11600
|
/* Theme.4408:1332:maybeAnnotate */
|
|
@@ -11655,100 +11680,114 @@ function Commands_PullRequest_with__listOpenPRs_1391($0, $1, $2, $3, $4) {
|
|
|
11655
11680
|
}
|
|
11656
11681
|
}
|
|
11657
11682
|
|
|
11658
|
-
/* Commands.PullRequest.case block in
|
|
11659
|
-
function
|
|
11683
|
+
/* Commands.PullRequest.case block in githubInferredBranchInfo */
|
|
11684
|
+
function Commands_PullRequest_case__githubInferredBranchInfo_2987($0, $1, $2, $3, $4) {
|
|
11660
11685
|
return $5 => {
|
|
11661
11686
|
switch($3.h) {
|
|
11662
|
-
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(
|
|
11663
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11687
|
+
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(Commands_PullRequest_noInferredData(), $4, $5);
|
|
11688
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getIssue($0, $2.a2, $2.a3, $3.a1), issue => $16 => $17 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1a => $1b => Commands_PullRequest_n__11111_2919_issueDescriptionPrefix($0, $1, $2, issue, $1a, $1b), $24 => $25 => $26 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: {h: 0}, a2: {a1: ($24+('\n\n'+Commands_PullRequest_n__11111_2921_relatedToPrefix($0, $1, $2, $3.a1)))}, a3: {a1: issue.a2}}, $25, $26), $16, $17), $4, $5);
|
|
11664
11689
|
}
|
|
11665
11690
|
};
|
|
11666
11691
|
}
|
|
11667
11692
|
|
|
11668
|
-
/* Commands.PullRequest.
|
|
11669
|
-
function
|
|
11693
|
+
/* Commands.PullRequest.10128:1999:userNotice */
|
|
11694
|
+
function Commands_PullRequest_n__10128_1999_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
11670
11695
|
switch($6.h) {
|
|
11671
11696
|
case 0: /* nothing */ {
|
|
11672
11697
|
switch($2.h) {
|
|
11673
11698
|
case 0: /* nil */ return 'no users';
|
|
11674
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $e => $e, {a1:
|
|
11699
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $e => $e, {a1: Commands_PullRequest_n__10128_1994_csv($0, $1, $2, $3, $4, $5, $2), a2: {h: 0}});
|
|
11675
11700
|
}
|
|
11676
11701
|
}
|
|
11677
|
-
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $1f => $1f, {a1:
|
|
11702
|
+
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $1f => $1f, {a1: Commands_PullRequest_n__10128_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: $2}), a2: {h: 0}});
|
|
11678
11703
|
}
|
|
11679
11704
|
}
|
|
11680
11705
|
|
|
11681
|
-
/* Commands.PullRequest.
|
|
11682
|
-
function
|
|
11706
|
+
/* Commands.PullRequest.10128:1998:teamNotice */
|
|
11707
|
+
function Commands_PullRequest_n__10128_1998_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
11683
11708
|
switch($6.h) {
|
|
11684
11709
|
case 0: /* nil */ return '';
|
|
11685
11710
|
case undefined: /* cons */ {
|
|
11686
11711
|
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:
|
|
11712
|
+
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $e => $e, {a1: ' and team ', a2: {a1: Commands_PullRequest_n__10128_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: {h: 0}}), a2: {h: 0}}});
|
|
11713
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $23 => $23, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10128_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
11689
11714
|
}
|
|
11690
11715
|
}
|
|
11691
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $36 => $36, {a1: ' and teams ', a2: {a1:
|
|
11716
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $36 => $36, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10128_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
11692
11717
|
}
|
|
11693
11718
|
}
|
|
11694
11719
|
|
|
11695
|
-
/* Commands.PullRequest.
|
|
11696
|
-
function
|
|
11720
|
+
/* Commands.PullRequest.11111:2921:relatedToPrefix */
|
|
11721
|
+
function Commands_PullRequest_n__11111_2921_relatedToPrefix($0, $1, $2, $3) {
|
|
11697
11722
|
return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $9 => $9, {a1: 'Related to #', a2: {a1: $3, a2: {h: 0}}});
|
|
11698
11723
|
}
|
|
11699
11724
|
|
|
11700
|
-
/* Commands.PullRequest.
|
|
11701
|
-
function
|
|
11702
|
-
|
|
11703
|
-
const $7 = $4.a2;
|
|
11704
|
-
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}}}}}}}});
|
|
11725
|
+
/* Commands.PullRequest.11454:3260:prTitlePrompt */
|
|
11726
|
+
function Commands_PullRequest_n__11454_3260_prTitlePrompt($0, $1, $2, $3, $4, $5) {
|
|
11727
|
+
return Util_Prompting_offerRetry(csegen_88()(), 'PR title cannot be an empty string.', Prelude_Types_foldMap_Foldable_List(csegen_65()(), $11 => $11, {a1: 'Did not find a non-empty value for a PR title. Will use \'', a2: {a1: 'New PR', a2: {a1: '\'', a2: {h: 0}}}}), () => 'New PR', $1b => $1c => Data_Promise_map_Functor_x28Promisex20x24ex29($1f => Commands_PullRequest_n__11454_3259_notEmptyString($0, $1, $2, $3, $4, $1f), Util_Prompting_getLineEnterForDefault(csegen_88()(), 'What would you like the title to be?', $5), $1b, $1c));
|
|
11705
11728
|
}
|
|
11706
11729
|
|
|
11707
|
-
/* Commands.PullRequest.
|
|
11708
|
-
function
|
|
11730
|
+
/* Commands.PullRequest.10128:1997:prComment */
|
|
11731
|
+
function Commands_PullRequest_n__10128_1997_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11709
11732
|
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
11733
|
}
|
|
11711
11734
|
|
|
11712
|
-
/* Commands.PullRequest.
|
|
11713
|
-
function
|
|
11714
|
-
|
|
11735
|
+
/* Commands.PullRequest.11454:3259:notEmptyString */
|
|
11736
|
+
function Commands_PullRequest_n__11454_3259_notEmptyString($0, $1, $2, $3, $4, $5) {
|
|
11737
|
+
switch($5) {
|
|
11738
|
+
case '': return {h: 0};
|
|
11739
|
+
default: return {a1: $5};
|
|
11740
|
+
}
|
|
11741
|
+
}
|
|
11742
|
+
|
|
11743
|
+
/* Commands.PullRequest.10128:1996:namePrComment */
|
|
11744
|
+
function Commands_PullRequest_n__10128_1996_namePrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11745
|
+
return Commands_PullRequest_n__10128_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $14 => $14, {a1: $6.a2, a2: {h: 0}}));
|
|
11715
11746
|
}
|
|
11716
11747
|
|
|
11717
|
-
/* Commands.PullRequest.
|
|
11718
|
-
function
|
|
11719
|
-
return
|
|
11748
|
+
/* Commands.PullRequest.10128:1995:mentionPrComment */
|
|
11749
|
+
function Commands_PullRequest_n__10128_1995_mentionPrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11750
|
+
return Commands_PullRequest_n__10128_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
11751
|
}
|
|
11721
11752
|
|
|
11722
|
-
/* Commands.PullRequest.
|
|
11723
|
-
function
|
|
11753
|
+
/* Commands.PullRequest.11111:2920:issueNumber */
|
|
11754
|
+
function Commands_PullRequest_n__11111_2920_issueNumber($0, $1, $2) {
|
|
11724
11755
|
return Util_Github_parseGithubIssueNumber($1);
|
|
11725
11756
|
}
|
|
11726
11757
|
|
|
11727
|
-
/* Commands.PullRequest.
|
|
11728
|
-
function
|
|
11729
|
-
return
|
|
11758
|
+
/* Commands.PullRequest.11111:2919:issueDescriptionPrefix */
|
|
11759
|
+
function Commands_PullRequest_n__11111_2919_issueDescriptionPrefix($0, $1, $2, $3, $4, $5) {
|
|
11760
|
+
return Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $d => $d, {a1: '<!--\n## GitHub Issue\n', a2: {a1: $3.a2, a2: {a1: '\n--\n', a2: {a1: $3.a3, a2: {a1: '\n-->', a2: {h: 0}}}}}}), $4, $5);
|
|
11730
11761
|
}
|
|
11731
11762
|
|
|
11732
|
-
/* Commands.PullRequest.
|
|
11733
|
-
function
|
|
11763
|
+
/* Commands.PullRequest.11312:3113:into */
|
|
11764
|
+
function Commands_PullRequest_n__11312_3113_into($0, $1, $2, $3) {
|
|
11765
|
+
switch($0.h) {
|
|
11766
|
+
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $a => $a, {a1: $0.a1, a2: {a1: '...', a2: {h: 0}}});
|
|
11767
|
+
case 0: /* nothing */ return '';
|
|
11768
|
+
}
|
|
11769
|
+
}
|
|
11770
|
+
|
|
11771
|
+
/* Commands.PullRequest.11454:3258:inlineDescriptionPrompt */
|
|
11772
|
+
function Commands_PullRequest_n__11454_3258_inlineDescriptionPrompt($0, $1, $2, $3, $4) {
|
|
11734
11773
|
return 'What would you like the description to be (two blank lines to finish)?';
|
|
11735
11774
|
}
|
|
11736
11775
|
|
|
11737
|
-
/* Commands.PullRequest.
|
|
11738
|
-
function
|
|
11776
|
+
/* Commands.PullRequest.11454:3257:getBaseBranch */
|
|
11777
|
+
function Commands_PullRequest_n__11454_3257_getBaseBranch($0, $1, $2, $3, $4, $5, $6) {
|
|
11739
11778
|
switch($2.h) {
|
|
11740
11779
|
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)),
|
|
11780
|
+
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
11781
|
}
|
|
11743
11782
|
}
|
|
11744
11783
|
|
|
11745
|
-
/* Commands.PullRequest.
|
|
11746
|
-
function
|
|
11784
|
+
/* Commands.PullRequest.9890:1725:forkedReviews */
|
|
11785
|
+
function Commands_PullRequest_n__9890_1725_forkedReviews($0, $1, $2, $3) {
|
|
11747
11786
|
return FFI_Concurrency_fork(csegen_88()(), ('reviews --json '+Prelude_Show_show_Show_Integer($3.a1)));
|
|
11748
11787
|
}
|
|
11749
11788
|
|
|
11750
|
-
/* Commands.PullRequest.
|
|
11751
|
-
function
|
|
11789
|
+
/* Commands.PullRequest.9313:1180:filterString */
|
|
11790
|
+
function Commands_PullRequest_n__9313_1180_filterString($0, $1, $2, $3, $4) {
|
|
11752
11791
|
switch($4.h) {
|
|
11753
11792
|
case 0: /* nothing */ return 'none';
|
|
11754
11793
|
case undefined: /* just */ {
|
|
@@ -11760,13 +11799,13 @@ function Commands_PullRequest_n__9299_1180_filterString($0, $1, $2, $3, $4) {
|
|
|
11760
11799
|
}
|
|
11761
11800
|
}
|
|
11762
11801
|
|
|
11763
|
-
/* Commands.PullRequest.
|
|
11764
|
-
function
|
|
11802
|
+
/* Commands.PullRequest.10128:1994:csv */
|
|
11803
|
+
function Commands_PullRequest_n__10128_1994_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
11765
11804
|
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
11805
|
}
|
|
11767
11806
|
|
|
11768
|
-
/* Commands.PullRequest.
|
|
11769
|
-
function
|
|
11807
|
+
/* Commands.PullRequest.11454:3256:createPR */
|
|
11808
|
+
function Commands_PullRequest_n__11454_3256_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
11770
11809
|
const $38 = $39 => $3a => $3b => {
|
|
11771
11810
|
const $48 = $49 => $4a => $4b => {
|
|
11772
11811
|
switch($49) {
|
|
@@ -11786,36 +11825,34 @@ function Commands_PullRequest_n__11264_3099_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
11786
11825
|
const $c8 = $c9 => $ca => $cb => {
|
|
11787
11826
|
const $e9 = $ea => $eb => $ec => {
|
|
11788
11827
|
const $f9 = baseBranch => $fa => $fb => {
|
|
11789
|
-
const $102 =
|
|
11790
|
-
const $
|
|
11791
|
-
|
|
11792
|
-
|
|
11793
|
-
|
|
11794
|
-
|
|
11795
|
-
|
|
11796
|
-
|
|
11797
|
-
|
|
11798
|
-
|
|
11799
|
-
|
|
11800
|
-
|
|
11801
|
-
case undefined: /* just */ {
|
|
11802
|
-
$14a = $15a => $15b => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_776(), Util_Prompting_editorDescription(csegen_88()(), $14b.a1, {a1: templateFilePath}, $103.a2), $15a, $15b);
|
|
11803
|
-
break;
|
|
11804
|
-
}
|
|
11828
|
+
const $102 = inferredBranchInfo => {
|
|
11829
|
+
const $103 = Data_Maybe_fromMaybe(() => '', inferredBranchInfo.a1);
|
|
11830
|
+
const $108 = Data_Maybe_fromMaybe(() => '', inferredBranchInfo.a2);
|
|
11831
|
+
return $10d => $10e => {
|
|
11832
|
+
const $123 = title => $124 => $125 => {
|
|
11833
|
+
const $12e = templateFilePath => $12f => $130 => {
|
|
11834
|
+
const $133 = Data_Config_rf__editor($4);
|
|
11835
|
+
let $132;
|
|
11836
|
+
switch($133.h) {
|
|
11837
|
+
case 0: /* nothing */ {
|
|
11838
|
+
$132 = Util_Prompting_inlineDescription(csegen_88()(), Commands_PullRequest_n__11454_3258_inlineDescriptionPrompt($0, $1, $2, $3, $4), $108);
|
|
11839
|
+
break;
|
|
11805
11840
|
}
|
|
11806
|
-
|
|
11807
|
-
|
|
11808
|
-
|
|
11841
|
+
case undefined: /* just */ {
|
|
11842
|
+
$132 = $142 => $143 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_777(), Util_Prompting_editorDescription(csegen_88()(), $133.a1, {a1: templateFilePath}, $108), $142, $143);
|
|
11843
|
+
break;
|
|
11844
|
+
}
|
|
11845
|
+
}
|
|
11846
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($132, description => $153 => $154 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($157 => $158 => $159 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($15c => Prelude_IO_prim__putStr('Creating PR...\n', $15c), $157, $158, $159), $164 => $165 => $166 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($169 => $16a => $16b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($16e => Prelude_IO_prim__putStr(($1+'\n'), $16e), $169, $16a, $16b), $178 => FFI_GitHub_createPR($0, $3, $4.a2, $4.a3, $1, baseBranch, title, description), $165, $166), $153, $154), $12f, $130);
|
|
11809
11847
|
};
|
|
11810
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11848
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($128 => $129 => Util_relativeToRoot('.github/PULL_REQUEST_TEMPLATE.md', $128, $129), $12e, $124, $125);
|
|
11811
11849
|
};
|
|
11812
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11850
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($111 => $112 => Data_Promise_map_Functor_x28Promisex20x24ex29($115 => ($103+$115), Commands_PullRequest_n__11454_3260_prTitlePrompt($0, $1, $2, $3, $4, inferredBranchInfo.a3), $111, $112), $123, $10d, $10e);
|
|
11813
11851
|
};
|
|
11814
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($109 => $10a => $10b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($10e => Prelude_IO_prim__putStr('What would you like the title to be?\n', $10e), $109, $10a, $10b), $115, $104, $105);
|
|
11815
11852
|
};
|
|
11816
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11853
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_getInferredBranchInfo($4, $0, $1), $102, $fa, $fb);
|
|
11817
11854
|
};
|
|
11818
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ef => $f0 =>
|
|
11855
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ef => $f0 => Commands_PullRequest_n__11454_3257_getBaseBranch($0, $1, $2, $3, $4, $ef, $f0), $f9, $eb, $ec);
|
|
11819
11856
|
};
|
|
11820
11857
|
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
11858
|
};
|
|
@@ -11824,32 +11861,32 @@ function Commands_PullRequest_n__11264_3099_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
11824
11861
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $5b, $5c);
|
|
11825
11862
|
}
|
|
11826
11863
|
};
|
|
11827
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4f => $50 =>
|
|
11864
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4f => $50 => Commands_PullRequest_n__11454_3254_continueGivenStagedChanges($0, $1, $2, $3, $4, $4f, $50), $59, $4a, $4b);
|
|
11828
11865
|
}
|
|
11829
11866
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $4a, $4b);
|
|
11830
11867
|
}
|
|
11831
11868
|
};
|
|
11832
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f =>
|
|
11869
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f => Commands_PullRequest_n__11454_3255_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $3e, $3f), $48, $3a, $3b);
|
|
11833
11870
|
};
|
|
11834
11871
|
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
11872
|
}
|
|
11836
11873
|
|
|
11837
|
-
/* Commands.PullRequest.
|
|
11838
|
-
function
|
|
11874
|
+
/* Commands.PullRequest.11454:3255:continueGivenUncommittedChanges */
|
|
11875
|
+
function Commands_PullRequest_n__11454_3255_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
11839
11876
|
const $e = $f => $10 => $11 => {
|
|
11840
11877
|
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),
|
|
11878
|
+
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
11879
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $10, $11);
|
|
11843
11880
|
}
|
|
11844
11881
|
};
|
|
11845
11882
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => $a => System_Git_uncommittedChanges($9, $a), $e, $5, $6);
|
|
11846
11883
|
}
|
|
11847
11884
|
|
|
11848
|
-
/* Commands.PullRequest.
|
|
11849
|
-
function
|
|
11885
|
+
/* Commands.PullRequest.11454:3254:continueGivenStagedChanges */
|
|
11886
|
+
function Commands_PullRequest_n__11454_3254_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
11850
11887
|
const $e = $f => $10 => $11 => {
|
|
11851
11888
|
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),
|
|
11889
|
+
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
11890
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $10, $11);
|
|
11854
11891
|
}
|
|
11855
11892
|
};
|
|
@@ -11858,12 +11895,12 @@ function Commands_PullRequest_n__11264_3097_continueGivenStagedChanges($0, $1, $
|
|
|
11858
11895
|
|
|
11859
11896
|
/* Commands.PullRequest.(.allReviewers) : PRHistory -> (List String, List String) */
|
|
11860
11897
|
function Commands_PullRequest_rf__allReviewers($0) {
|
|
11861
|
-
return Prelude_Interfaces_mapHom(
|
|
11898
|
+
return Prelude_Interfaces_mapHom(csegen_656(), $6 => Prelude_Types_join_Monad_List(Prelude_Types_List_mapAppend({h: 0}, $c => $c.a7, $6)))($0);
|
|
11862
11899
|
}
|
|
11863
11900
|
|
|
11864
11901
|
/* Commands.PullRequest.reviewsForPrs : Config => Octokit => List PullRequest -> Promise' (List Review) */
|
|
11865
11902
|
function Commands_PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
|
|
11866
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_81()(),
|
|
11903
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_81()(), csegen_691(), Prelude_Types_traverse_Traversable_List(csegen_80()(), $13 => Commands_PullRequest_n__9890_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
11904
|
}
|
|
11868
11905
|
|
|
11869
11906
|
/* Commands.PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise' (List Review) */
|
|
@@ -11893,9 +11930,9 @@ function Commands_PullRequest_reviewsByUser($0, $1, $2, $3) {
|
|
|
11893
11930
|
List PullRequest -> Promise' (SortedMap String (List Review)) */
|
|
11894
11931
|
function Commands_PullRequest_reviewsByEachUser($0, $1, $2, $3, $4) {
|
|
11895
11932
|
const $f = reviews => {
|
|
11896
|
-
const $10 = Data_List_groupAllWith(
|
|
11933
|
+
const $10 = Data_List_groupAllWith(csegen_310(), $15 => $15.a2, reviews);
|
|
11897
11934
|
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(
|
|
11935
|
+
return $21 => $22 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Data_SortedMap_fromList(csegen_310(), $18), $21, $22);
|
|
11899
11936
|
};
|
|
11900
11937
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Commands_PullRequest_reviewsForPrs($0, $1, $2, $7, $8), $f, $3, $4);
|
|
11901
11938
|
}
|
|
@@ -11909,12 +11946,12 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11909
11946
|
let $38;
|
|
11910
11947
|
switch($0.a7) {
|
|
11911
11948
|
case 1: {
|
|
11912
|
-
const $3b = Commands_Reviewer_chooseReviewers(
|
|
11949
|
+
const $3b = Commands_Reviewer_chooseReviewers(csegen_310(), $14.a2, $14.a1, teamMembers, {h: 0}, $2.a5);
|
|
11913
11950
|
$38 = Commands_Reviewer_randomReviewer(csegen_88()(), $3b);
|
|
11914
11951
|
break;
|
|
11915
11952
|
}
|
|
11916
11953
|
case 0: {
|
|
11917
|
-
$38 =
|
|
11954
|
+
$38 = csegen_453()();
|
|
11918
11955
|
break;
|
|
11919
11956
|
}
|
|
11920
11957
|
}
|
|
@@ -11950,8 +11987,8 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11950
11987
|
return $7f => {
|
|
11951
11988
|
switch($0.a8) {
|
|
11952
11989
|
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,
|
|
11990
|
+
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, Commands_PullRequest_n__10128_1995_mentionPrComment($1, $5, $4, $3, $2, $0, chosenUser.a1), $7d, $7f);
|
|
11991
|
+
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__10128_1996_namePrComment($1, $5, $4, $3, $2, $0, user), $9f, $a0), $7d, $7f);
|
|
11955
11992
|
}
|
|
11956
11993
|
};
|
|
11957
11994
|
}
|
|
@@ -11975,11 +12012,11 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11975
12012
|
let $bf;
|
|
11976
12013
|
switch($c0) {
|
|
11977
12014
|
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:
|
|
12015
|
+
$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__10128_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
12016
|
break;
|
|
11980
12017
|
}
|
|
11981
12018
|
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:
|
|
12019
|
+
$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__10128_1999_userNotice($1, $5, $4, $3, $2, $0, chosenUser), a2: {a1: Commands_PullRequest_n__10128_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
12020
|
break;
|
|
11984
12021
|
}
|
|
11985
12022
|
}
|
|
@@ -11995,6 +12032,11 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11995
12032
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => Commands_PullRequest_listReviewers($0, $1, 4n, 100n, $a, $b), $13, $6, $7);
|
|
11996
12033
|
}
|
|
11997
12034
|
|
|
12035
|
+
/* Commands.PullRequest.prCreationUrl : String -> String -> String -> Maybe String -> String */
|
|
12036
|
+
function Commands_PullRequest_prCreationUrl($0, $1, $2, $3) {
|
|
12037
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $9 => $9, {a1: 'https://github.com/', a2: {a1: $0, a2: {a1: '/', a2: {a1: $1, a2: {a1: '/compare/', a2: {a1: Commands_PullRequest_n__11312_3113_into($3, $2, $1, $0), a2: {a1: $2, a2: {a1: '?expand=1', a2: {h: 0}}}}}}}}});
|
|
12038
|
+
}
|
|
12039
|
+
|
|
11998
12040
|
/* Commands.PullRequest.partition' : Pagination _ _ _ () -> Promise' PRHistory */
|
|
11999
12041
|
function Commands_PullRequest_partitionx27($0, $1, $2) {
|
|
12000
12042
|
return Data_Promise_map_Functor_x28Promisex20x24ex29($5 => Commands_PullRequest_partition($5), $9 => $a => Commands_PullRequest_listx27({h: 0}, $0, $9, $a), $1, $2);
|
|
@@ -12005,6 +12047,11 @@ function Commands_PullRequest_partition($0) {
|
|
|
12005
12047
|
return Prelude_Basics_uncurry(csegen_108(), Data_List_partition($7 => Data_PullRequest_x3dx3d_Eq_PRState($7.a6, 0), $0));
|
|
12006
12048
|
}
|
|
12007
12049
|
|
|
12050
|
+
/* Commands.PullRequest.noInferredData : BranchInferredData */
|
|
12051
|
+
const Commands_PullRequest_noInferredData = __lazy(function () {
|
|
12052
|
+
return {a1: {h: 0}, a2: {h: 0}, a3: {h: 0}};
|
|
12053
|
+
});
|
|
12054
|
+
|
|
12008
12055
|
/* Commands.PullRequest.listReviewers : Config => Octokit => {default 0 _ : Nat} -> Fin 101 -> Promise' (List String,
|
|
12009
12056
|
List String) */
|
|
12010
12057
|
function Commands_PullRequest_listReviewers($0, $1, $2, $3, $4, $5) {
|
|
@@ -12024,7 +12071,7 @@ function Commands_PullRequest_listOpenPRs($0, $1, $2, $3) {
|
|
|
12024
12071
|
|
|
12025
12072
|
/* Commands.PullRequest.list' : Maybe GitHubPRState -> Pagination _ _ _ () -> Promise' (List PullRequest) */
|
|
12026
12073
|
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(
|
|
12074
|
+
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
12075
|
}
|
|
12029
12076
|
|
|
12030
12077
|
/* Commands.PullRequest.identifyOrCreatePR : Config => Octokit => {default False _ : Bool} ->
|
|
@@ -12044,36 +12091,36 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
12044
12091
|
return $20 => {
|
|
12045
12092
|
const $29 = $2a => $2b => $2c => {
|
|
12046
12093
|
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:
|
|
12094
|
+
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($30 => ({h: 0 /* Actual */, a1: 1, a2: $30}), $34 => $35 => Commands_PullRequest_n__11454_3256_createPR($1, $4, $3, $2, $0, $34, $35), $2b, $2c);
|
|
12095
|
+
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1: Commands_PullRequest_prCreationUrl($0.a2, $0.a3, $4, $3)}, $2b, $2c);
|
|
12049
12096
|
}
|
|
12050
12097
|
};
|
|
12051
12098
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(System_File_Meta_isTTY(csegen_88()(), System_File_Virtual_stdout()), $29, $12, $20);
|
|
12052
12099
|
};
|
|
12053
12100
|
}
|
|
12054
|
-
default: return $
|
|
12101
|
+
default: return $4e => Data_Promise_reject('Multiple PRs for the current brach. Harmony only handles 1 PR per branch currently.', $12, $4e);
|
|
12055
12102
|
}
|
|
12056
12103
|
};
|
|
12057
12104
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPRsForBranch($1, $0.a2, $0.a3, $4), $10, $5, $6);
|
|
12058
12105
|
}
|
|
12059
12106
|
|
|
12060
|
-
/* Commands.PullRequest.
|
|
12061
|
-
function
|
|
12062
|
-
return $3 =>
|
|
12107
|
+
/* Commands.PullRequest.githubInferredBranchInfo : Config => Octokit => String -> Promise' BranchInferredData */
|
|
12108
|
+
function Commands_PullRequest_githubInferredBranchInfo($0, $1, $2) {
|
|
12109
|
+
return $3 => Commands_PullRequest_case__githubInferredBranchInfo_2987($1, $2, $0, Commands_PullRequest_n__11111_2920_issueNumber($1, $2, $0), $3);
|
|
12063
12110
|
}
|
|
12064
12111
|
|
|
12065
|
-
/* Commands.PullRequest.
|
|
12066
|
-
function
|
|
12112
|
+
/* Commands.PullRequest.getInferredBranchInfo : Config => Octokit => String -> Promise' BranchInferredData */
|
|
12113
|
+
function Commands_PullRequest_getInferredBranchInfo($0, $1, $2) {
|
|
12067
12114
|
switch($0.a9) {
|
|
12068
|
-
case 1: return $5 => $6 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1:
|
|
12069
|
-
case 2: return
|
|
12070
|
-
case 0: return $
|
|
12115
|
+
case 1: return $5 => $6 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: Prelude_Types_map_Functor_Maybe($c => ($c+' - '), Util_Jira_parseJiraSlug($2)), a2: {h: 0}, a3: {h: 0}}, $5, $6);
|
|
12116
|
+
case 2: return Commands_PullRequest_githubInferredBranchInfo($0, $1, $2);
|
|
12117
|
+
case 0: return $1a => $1b => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Commands_PullRequest_noInferredData(), $1a, $1b);
|
|
12071
12118
|
}
|
|
12072
12119
|
}
|
|
12073
12120
|
|
|
12074
12121
|
/* Commands.PullRequest.forkedPRs : Maybe GitHubPRState -> Nat -> Nat -> Nat -> () -> Promise' Future */
|
|
12075
12122
|
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:
|
|
12123
|
+
return FFI_Concurrency_fork(csegen_88()(), Prelude_Types_foldMap_Foldable_List(csegen_65()(), $f => $f, {a1: 'pulls --json ', a2: {a1: Commands_PullRequest_n__9313_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
12124
|
}
|
|
12078
12125
|
|
|
12079
12126
|
/* Commands.PullRequest.empty : PRHistory */
|
|
@@ -12200,7 +12247,7 @@ function Util_Github_n__2629_823_go($0, $1) {
|
|
|
12200
12247
|
|
|
12201
12248
|
/* Util.Github.parseGithubIssueNumber : String -> Maybe String */
|
|
12202
12249
|
function Util_Github_parseGithubIssueNumber($0) {
|
|
12203
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
12250
|
+
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
12251
|
}
|
|
12205
12252
|
|
|
12206
12253
|
/* Util.Jira.2629:820:startOver */
|
|
@@ -12260,7 +12307,7 @@ function Util_Jira_n__2629_818_go($0, $1) {
|
|
|
12260
12307
|
|
|
12261
12308
|
/* Util.Jira.parseJiraSlug : String -> Maybe String */
|
|
12262
12309
|
function Util_Jira_parseJiraSlug($0) {
|
|
12263
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
12310
|
+
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
12311
|
}
|
|
12265
12312
|
|
|
12266
12313
|
/* Data.Pagination.with block in metaPages' */
|
|
@@ -12492,7 +12539,7 @@ function Data_ReviewScore_n__3521_1043_weightReviews($0, $1, $2, $3, $4, $5) {
|
|
|
12492
12539
|
|
|
12493
12540
|
/* Data.ReviewScore.3521:1042:sort' */
|
|
12494
12541
|
function Data_ReviewScore_n__3521_1042_sortx27($0, $1, $2, $3, $4) {
|
|
12495
|
-
return Data_List_sortBy($7 => $8 => Prelude_Basics_on(
|
|
12542
|
+
return Data_List_sortBy($7 => $8 => Prelude_Basics_on(csegen_314(), $d => $d.a3, $7, $8), $4);
|
|
12496
12543
|
}
|
|
12497
12544
|
|
|
12498
12545
|
/* Data.ReviewScore.3548:1196:calc */
|
|
@@ -12529,13 +12576,13 @@ function Data_List_DeleteBy_deleteByx27($0, $1, $2) {
|
|
|
12529
12576
|
}
|
|
12530
12577
|
}
|
|
12531
12578
|
|
|
12532
|
-
/* Commands.Quick.
|
|
12533
|
-
function
|
|
12579
|
+
/* Commands.Quick.5901:5659:issuePrompt */
|
|
12580
|
+
function Commands_Quick_n__5901_5659_issuePrompt($0, $1, $2, $3) {
|
|
12534
12581
|
return 'What would you like the issue description to be (two blank lines to finish)?';
|
|
12535
12582
|
}
|
|
12536
12583
|
|
|
12537
|
-
/* Commands.Quick.
|
|
12538
|
-
function
|
|
12584
|
+
/* Commands.Quick.5901:5658:branchPrefix */
|
|
12585
|
+
function Commands_Quick_n__5901_5658_branchPrefix($0, $1, $2, $3) {
|
|
12539
12586
|
return Data_String_toLower(Commands_Quick_show_Show_IssueCategory($2));
|
|
12540
12587
|
}
|
|
12541
12588
|
|
|
@@ -12554,38 +12601,45 @@ function Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5) {
|
|
|
12554
12601
|
const $21 = $22 => $23 => {
|
|
12555
12602
|
switch($3.h) {
|
|
12556
12603
|
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 =>
|
|
12604
|
+
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 => $39 => $3a => Data_Promise_map_Functor_x28Promisex20x24ex29($3d => Data_String_trim($3d), csegen_449()(), $39, $3a), $22, $23);
|
|
12558
12605
|
}
|
|
12559
12606
|
};
|
|
12560
|
-
const $
|
|
12561
|
-
const $
|
|
12562
|
-
let $
|
|
12563
|
-
switch($
|
|
12607
|
+
const $47 = issueTitle => $48 => $49 => {
|
|
12608
|
+
const $4c = Data_Config_rf__editor($0);
|
|
12609
|
+
let $4b;
|
|
12610
|
+
switch($4c.h) {
|
|
12564
12611
|
case 0: /* nothing */ {
|
|
12565
|
-
$
|
|
12612
|
+
$4b = Util_Prompting_inlineDescription(csegen_88()(), Commands_Quick_n__5901_5659_issuePrompt($1, $3, $2, $0), '');
|
|
12566
12613
|
break;
|
|
12567
12614
|
}
|
|
12568
12615
|
case undefined: /* just */ {
|
|
12569
|
-
$
|
|
12616
|
+
$4b = $5a => $5b => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_777(), Util_Prompting_editorDescription(csegen_88()(), $4c.a1, {h: 0}, ''), $5a, $5b);
|
|
12570
12617
|
break;
|
|
12571
12618
|
}
|
|
12572
12619
|
}
|
|
12573
|
-
const $
|
|
12574
|
-
const $
|
|
12575
|
-
const $
|
|
12576
|
-
|
|
12620
|
+
const $69 = issueBody => $6a => $6b => {
|
|
12621
|
+
const $76 = issue => {
|
|
12622
|
+
const $77 = Prelude_Types_foldMap_Foldable_List(csegen_65()(), $7d => $7d, {a1: Commands_Quick_n__5901_5658_branchPrefix($1, $3, $2, $0), a2: {a1: '/', a2: {a1: Prelude_Show_show_Show_Integer(issue.a1), a2: {a1: '/', a2: {h: 0}}}}});
|
|
12623
|
+
const $8f = Commands_Quick_dasherize(issueTitle);
|
|
12624
|
+
const $92 = ($77+$8f);
|
|
12625
|
+
return $95 => $96 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($99 => $9a => $9b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($9e => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $a7 => $a7, {a1: 'What would you like the branch to be named? ', a2: {a1: Util_Prompting_enterForDefaultStr($92), a2: {h: 0}}})+'\n'), $9e), $99, $9a, $9b), $b5 => $b6 => $b7 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ba => $bb => $bc => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($bf => Prelude_IO_prim__putStr($77, $bf), $ba, $bb, $bc), $c7 => $c8 => $c9 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($cc => $cd => Data_Promise_map_Functor_x28Promisex20x24ex29($d0 => Util_Prompting_orIfEmpty({a1: $8f}, Data_String_trim($d0)), csegen_449()(), $cc, $cd), branchSlug => System_Git_checkoutBranch(1, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $e5 => $e5, {a1: $77, a2: {a1: branchSlug, a2: {h: 0}}})), $c8, $c9), $b6, $b7), $95, $96);
|
|
12577
12626
|
};
|
|
12578
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_createIssue($1, $0.a2, $0.a3, issueTitle, issueBody), $
|
|
12627
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_createIssue($1, $0.a2, $0.a3, issueTitle, issueBody), $76, $6a, $6b);
|
|
12579
12628
|
};
|
|
12580
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
12629
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4b, $69, $48, $49);
|
|
12581
12630
|
};
|
|
12582
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($21, $
|
|
12631
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($21, $47, $1e, $1f);
|
|
12583
12632
|
};
|
|
12584
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
12633
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $1c, $16, $17);
|
|
12585
12634
|
};
|
|
12586
12635
|
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
12636
|
}
|
|
12588
12637
|
|
|
12638
|
+
/* Commands.Quick.dasherize : String -> String */
|
|
12639
|
+
function Commands_Quick_dasherize($0) {
|
|
12640
|
+
return Prelude_Types_fastPack(Data_List_replaceOn(csegen_107(), ' ', '-', Prelude_Types_fastUnpack($0)));
|
|
12641
|
+
}
|
|
12642
|
+
|
|
12589
12643
|
/* Commands.Label.unslugifyLabel : List String -> String -> String */
|
|
12590
12644
|
function Commands_Label_unslugifyLabel($0, $1) {
|
|
12591
12645
|
const $2 = Data_List_find($5 => Prelude_EqOrd_x3dx3d_Eq_String($5, $1), $0);
|
|
@@ -12602,7 +12656,7 @@ function Commands_Label_addLabels($0, $1, $2, $3, $4, $5) {
|
|
|
12602
12656
|
|
|
12603
12657
|
/* Commands.Graph.7727:7016:pendingDot */
|
|
12604
12658
|
function Commands_Graph_n__7727_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
12605
|
-
return Theme_theme($7,
|
|
12659
|
+
return Theme_theme($7, csegen_752(), csegen_750(), 6)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
|
|
12606
12660
|
}
|
|
12607
12661
|
|
|
12608
12662
|
/* Commands.Graph.7727:7015:note */
|
|
@@ -12612,7 +12666,7 @@ function Commands_Graph_n__7727_7015_note($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
12612
12666
|
|
|
12613
12667
|
/* Commands.Graph.7727:7014:missedDot */
|
|
12614
12668
|
function Commands_Graph_n__7727_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
12615
|
-
return Theme_theme($7,
|
|
12669
|
+
return Theme_theme($7, csegen_751(), csegen_751(), 7)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
|
|
12616
12670
|
}
|
|
12617
12671
|
|
|
12618
12672
|
/* Commands.Graph.7727:7013:maxValue */
|
|
@@ -12641,7 +12695,7 @@ function Commands_Graph_n__7727_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12641
12695
|
break;
|
|
12642
12696
|
}
|
|
12643
12697
|
}
|
|
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:
|
|
12698
|
+
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_838()}};
|
|
12645
12699
|
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
12700
|
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
12701
|
const $f = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $14};
|
|
@@ -12652,7 +12706,7 @@ function Commands_Graph_n__7727_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12652
12706
|
|
|
12653
12707
|
/* Commands.Graph.7324:6604:header */
|
|
12654
12708
|
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:
|
|
12709
|
+
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_838()}}}));
|
|
12656
12710
|
}
|
|
12657
12711
|
|
|
12658
12712
|
/* Commands.Graph.7324:6603:graphable */
|
|
@@ -12675,20 +12729,20 @@ function Commands_Graph_n__6757_6183_countInParens($0, $1, $2, $3, $4) {
|
|
|
12675
12729
|
|
|
12676
12730
|
/* Commands.Graph.7727:7010:completedBox */
|
|
12677
12731
|
function Commands_Graph_n__7727_7010_completedBox($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
12678
|
-
return Theme_theme($7,
|
|
12732
|
+
return Theme_theme($7, csegen_730(), csegen_730(), 3)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25aa}'));
|
|
12679
12733
|
}
|
|
12680
12734
|
|
|
12681
12735
|
/* Commands.Graph.6757:6182:coloredLabel */
|
|
12682
12736
|
function Commands_Graph_n__6757_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
12683
12737
|
switch((($4.a2===0n)?1:0)) {
|
|
12684
|
-
case 1: return Theme_theme($0,
|
|
12738
|
+
case 1: return Theme_theme($0, csegen_730(), csegen_730(), 0)($2.a1(undefined)($4.a1));
|
|
12685
12739
|
case 0: {
|
|
12686
12740
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 2n)) {
|
|
12687
12741
|
case 1: return $2.a1(undefined)($4.a1);
|
|
12688
12742
|
case 0: {
|
|
12689
12743
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 6n)) {
|
|
12690
|
-
case 1: return Theme_theme($0,
|
|
12691
|
-
case 0: return Theme_theme($0,
|
|
12744
|
+
case 1: return Theme_theme($0, csegen_752(), csegen_750(), 1)($2.a1(undefined)($4.a1));
|
|
12745
|
+
case 0: return Theme_theme($0, csegen_751(), csegen_751(), 2)($2.a1(undefined)($4.a1));
|
|
12692
12746
|
}
|
|
12693
12747
|
}
|
|
12694
12748
|
}
|
|
@@ -12828,9 +12882,9 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12828
12882
|
|
|
12829
12883
|
/* Commands.Graph.healthGraph : Config => List PullRequest -> String -> String -> Doc AnsiStyle */
|
|
12830
12884
|
function Commands_Graph_healthGraph($0, $1, $2, $3) {
|
|
12831
|
-
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(
|
|
12885
|
+
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
12886
|
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),
|
|
12887
|
+
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_854(), $36), a2: $41 => maxLabelLength => Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $45 => Commands_Graph_length_HasLength_Date($45), csegen_854(), $41, maxLabelLength), a3: $4d => Commands_Graph_labelLength_Graphable_x28PRsOnDatex20x24dateTyx29($0, $51 => Commands_Graph_length_HasLength_Date($51), csegen_854(), $4d), a4: $58 => Commands_Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29($0, $5c => Commands_Graph_length_HasLength_Date($5c), csegen_854(), $58), a5: $63 => Commands_Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29($0, $67 => Commands_Graph_length_HasLength_Date($67), csegen_854(), $63), a6: $6e => Commands_Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29($0, $72 => Commands_Graph_length_HasLength_Date($72), csegen_854(), $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
12888
|
}
|
|
12835
12889
|
|
|
12836
12890
|
/* Commands.Graph.graphOne : Config -> Graphable g => Nat -> Nat -> Nat -> g -> Doc AnsiStyle */
|
|
@@ -12853,7 +12907,7 @@ function Commands_Graph_countPadRight($0, $1, $2) {
|
|
|
12853
12907
|
|
|
12854
12908
|
/* Commands.Graph.bar : Config -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
12855
12909
|
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,
|
|
12910
|
+
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
12911
|
}
|
|
12858
12912
|
|
|
12859
12913
|
|