@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.
Files changed (3) hide show
  1. package/harmony +858 -804
  2. package/man/harmony.1 +1 -1
  3. 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, csegen_827(), $1e, $1f), $17, $0.a6);
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, csegen_827(), $6b, $6c), $64, $0.a6);
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, csegen_827(), $bc, $bd), $b5, $0.a6);
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, csegen_827(), $109, $10a), $102, $0.a6);
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: csegen_329(), a2: $0.a6}}};
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: csegen_329(), a2: $0.a6}}};
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: csegen_330(), a2: $0.a3}}};
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: csegen_330(), a2: $0.a3}}};
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:222} */
2659
- const csegen_222 = __lazy(function () {
2658
+ /* {csegen:223} */
2659
+ const csegen_223 = __lazy(function () {
2660
2660
  return {a1: '', a2: {a1: '', a2: 1}};
2661
2661
  });
2662
2662
 
2663
- /* {csegen:225} */
2664
- const csegen_225 = __lazy(function () {
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:229} */
2674
- const csegen_229 = __lazy(function () {
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: csegen_225(), a2: a => $3 => ({h: 1 /* Right */, a1: $3}), a3: $5};
2686
+ return {a1: csegen_226(), a2: a => $3 => ({h: 1 /* Right */, a1: $3}), a3: $5};
2687
2687
  });
2688
2688
 
2689
- /* {csegen:230} */
2690
- const csegen_230 = __lazy(function () {
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:234} */
2695
- const csegen_234 = __lazy(function () {
2696
- return {a1: csegen_229(), a2: b => a => csegen_230(), a3: a => $5 => Prelude_Types_join_Monad_x28Eitherx20x24ex29($5)};
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:255} */
2700
- const csegen_255 = __lazy(function () {
2701
- return {a1: csegen_225(), 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)};
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:297} */
2705
- const csegen_297 = __lazy(function () {
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:298} */
2716
- const csegen_298 = __lazy(function () {
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:309} */
2721
- const csegen_309 = __lazy(function () {
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:312} */
2726
- const csegen_312 = __lazy(function () {
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:313} */
2731
- const csegen_313 = __lazy(function () {
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:321} */
2736
- const csegen_321 = __lazy(function () {
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:325} */
2747
- const csegen_325 = __lazy(function () {
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:329} */
2752
- const csegen_329 = __lazy(function () {
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:330} */
2757
- const csegen_330 = __lazy(function () {
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:339} */
2762
- const csegen_339 = __lazy(function () {
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:360} */
2767
- const csegen_360 = __lazy(function () {
2766
+ /* {csegen:361} */
2767
+ const csegen_361 = __lazy(function () {
2768
2768
  return () => $0 => $0.a2;
2769
2769
  });
2770
2770
 
2771
- /* {csegen:370} */
2772
- const csegen_370 = __lazy(function () {
2771
+ /* {csegen:371} */
2772
+ const csegen_371 = __lazy(function () {
2773
2773
  return $0 => $1 => (($0===$1)?1:0);
2774
2774
  });
2775
2775
 
2776
- /* {csegen:388} */
2777
- const csegen_388 = __lazy(function () {
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:401} */
2782
- const csegen_401 = __lazy(function () {
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:407} */
2787
- const csegen_407 = __lazy(function () {
2788
- return () => $0 => $0.a1;
2786
+ /* {csegen:408} */
2787
+ const csegen_408 = __lazy(function () {
2788
+ return $0 => $0.a1;
2789
2789
  });
2790
2790
 
2791
- /* {csegen:420} */
2792
- const csegen_420 = __lazy(function () {
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:425} */
2797
- const csegen_425 = __lazy(function () {
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:446} */
2802
- const csegen_446 = __lazy(function () {
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:448} */
2807
- const csegen_448 = __lazy(function () {
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:452} */
2812
- const csegen_452 = __lazy(function () {
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:466} */
2817
- const csegen_466 = __lazy(function () {
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:471} */
2822
- const csegen_471 = __lazy(function () {
2823
- return {a1: Commands_Help_argument(0, '#<label>'), a2: csegen_466()};
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:641} */
2827
- const csegen_641 = __lazy(function () {
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:655} */
2832
- const csegen_655 = __lazy(function () {
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:659} */
2837
- const csegen_659 = __lazy(function () {
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:664} */
2842
- const csegen_664 = __lazy(function () {
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:687} */
2847
- const csegen_687 = __lazy(function () {
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:688} */
2852
- const csegen_688 = __lazy(function () {
2853
- return $0 => Data_List_sort(csegen_309(), $0);
2851
+ /* {csegen:689} */
2852
+ const csegen_689 = __lazy(function () {
2853
+ return $0 => Data_List_sort(csegen_310(), $0);
2854
2854
  });
2855
2855
 
2856
- /* {csegen:690} */
2857
- const csegen_690 = __lazy(function () {
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:697} */
2862
- const csegen_697 = __lazy(function () {
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.a3;
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 => $1 => Prelude_Basics_on(csegen_702(), csegen_703(), $0, $1);
2878
+ return $0 => $0.a3;
2884
2879
  });
2885
2880
 
2886
- /* {csegen:726} */
2887
- const csegen_726 = __lazy(function () {
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:729} */
2892
- const csegen_729 = __lazy(function () {
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:732} */
2897
- const csegen_732 = __lazy(function () {
2896
+ /* {csegen:733} */
2897
+ const csegen_733 = __lazy(function () {
2898
2898
  return $0 => $0.a1;
2899
2899
  });
2900
2900
 
2901
- /* {csegen:739} */
2902
- const csegen_739 = __lazy(function () {
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: 1, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
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:776} */
2922
- const csegen_776 = __lazy(function () {
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:783} */
2927
- const csegen_783 = __lazy(function () {
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:822} */
2932
- const csegen_822 = __lazy(function () {
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:827} */
2937
- const csegen_827 = __lazy(function () {
2936
+ /* {csegen:828} */
2937
+ const csegen_828 = __lazy(function () {
2938
2938
  return $0 => $0.a1;
2939
2939
  });
2940
2940
 
2941
- /* {csegen:834} */
2942
- const csegen_834 = __lazy(function () {
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:855} */
2952
- const csegen_855 = __lazy(function () {
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.9130:1618:parsePg */
2962
- function Main_n__9130_1618_parsePg($0, $1, $2, $3, $4, $5) {
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.9130:1617:parseLim */
2967
- function Main_n__9130_1617_parseLim($0, $1, $2, $3, $4) {
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.8854:1307:ffiOpts */
2972
- function Main_n__8854_1307_ffiOpts($0, $1, $2, $3, $4) {
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.8854:1306:configuredOpts */
2977
- function Main_n__8854_1306_configuredOpts($0, $1, $2, $3, $4) {
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(() => Main_n__8854_1307_ffiOpts($0, $4, $3, $2, $1), () => $15 => $0.a1.a1.a2(undefined)({a1: $15}), $5);
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 Main_n__8854_1306_configuredOpts($0, $4, $3, $2, $1);
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})}, Main_n__9130_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__9130_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);
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 ShellCompletion_Common_case__optsForRequestCmdx2cslugsOrLoginsOrLabels_14084($0, $1, $2, $3) {
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.5307:14078:slugsOrLoginsOrLabels */
6282
- function ShellCompletion_Common_n__5307_14078_slugsOrLoginsOrLabels($0, $1, $2) {
6283
- return ShellCompletion_Common_case__optsForRequestCmdx2cslugsOrLoginsOrLabels_14084($0, $1, $2, Data_String_asList($0));
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)), ShellCompletion_Common_n__5307_14078_slugsOrLoginsOrLabels($2, $1, $0));
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 $2c = Prelude_Types_List_mapAppend({h: 0}, $30 => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $39 => $39, {a1: $0.a3, a2: {a1: ' label', a2: {h: 0}}}), ShellCompletion_Util_slugify($30)), $0.a11);
6335
- return Prelude_Types_List_mapAppend({h: 0}, $48 => Data_CompletionStyle_name($1, $48), $2c);
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 $4d = Prelude_Types_List_mapAppend({h: 0}, $51 => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $5a => $5a, {a1: $0.a3, a2: {a1: ' label', a2: {h: 0}}}), ShellCompletion_Util_slugify($51)), $0.a11);
6339
- const $66 = Prelude_Types_List_filterAppend({h: 0}, $6a => ShellCompletion_Util_isPrefixOf($1, $3, $6a), $4d);
6340
- return Prelude_Types_List_mapAppend({h: 0}, $73 => Data_CompletionStyle_name($1, $73), $66);
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 $7a = Prelude_Types_List_mapAppend({h: 0}, $7e => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $87 => $87, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $7e), $0.a10);
6350
- return Prelude_Types_List_mapAppend({h: 0}, $94 => Data_CompletionStyle_name($1, $94), $7a);
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 $9a = Prelude_Types_List_mapAppend({h: 0}, $9e => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $a7 => $a7, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $9e), $0.a10);
6356
- const $b1 = Prelude_Types_List_filterAppend({h: 0}, $b5 => ShellCompletion_Util_isPrefixOf($1, $3, $b5), $9a);
6357
- return Prelude_Types_List_mapAppend({h: 0}, $be => Data_CompletionStyle_name($1, $be), $b1);
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 $c5 = Prelude_Types_List_mapAppend({h: 0}, $c9 => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $d2 => $d2, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $c9), $0.a10);
6373
- const $dc = Prelude_Types_List_filterAppend({h: 0}, $e0 => ShellCompletion_Util_isPrefixOf($1, $3, $e0), $c5);
6374
- return Prelude_Types_List_mapAppend({h: 0}, $e9 => Data_CompletionStyle_name($1, $e9), $dc);
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($fa => Prelude_EqOrd_x3dx3d_Eq_String($fa, $4), csegen_152()))) {
6394
- case 1: return Prelude_Types_List_mapAppend({h: 0}, $103 => Data_CompletionStyle_name($1, $103), Prelude_Types_List_filterAppend({h: 0}, $10b => ShellCompletion_Util_isPrefixOf($1, $3, $10b), Prelude_Types_List_mapAppend({h: 0}, $114 => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $11d => $11d, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $114), $0.a10)));
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($12c => Prelude_EqOrd_x3dx3d_Eq_String($12c, $4), csegen_152()))) {
6402
- case 1: return Prelude_Types_List_mapAppend({h: 0}, $135 => Data_CompletionStyle_name($1, $135), Prelude_Types_List_filterAppend({h: 0}, $13d => ShellCompletion_Util_isPrefixOf($1, $3, $13d), Prelude_Types_List_mapAppend({h: 0}, $146 => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $14f => $14f, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $146), $0.a10)));
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 $199;
6770
+ let $1b0;
6776
6771
  switch(ShellCompletion_Util_isHashPrefix($2)) {
6777
6772
  case 1: {
6778
- $199 = () => ({h: 0});
6773
+ $1b0 = () => ({h: 0});
6779
6774
  break;
6780
6775
  }
6781
6776
  case 0: {
6782
- $199 = () => ({a1: {h: 0}});
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)), $199);
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 $1af;
6784
+ let $1c6;
6790
6785
  switch(ShellCompletion_Util_isHashPrefix($2)) {
6791
6786
  case 1: {
6792
- $1af = () => ({h: 0});
6787
+ $1c6 = () => ({h: 0});
6793
6788
  break;
6794
6789
  }
6795
6790
  case 0: {
6796
- $1af = () => ({a1: {h: 0}});
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}, $1a7 => ShellCompletion_Util_matches($0, '--into', $1a7), ShellCompletion_Common_allPrCmdOpts($0))), $1af);
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 $1c5;
6798
+ let $1dc;
6804
6799
  switch(ShellCompletion_Util_isHashPrefix($2)) {
6805
6800
  case 1: {
6806
- $1c5 = () => ({h: 0});
6801
+ $1dc = () => ({h: 0});
6807
6802
  break;
6808
6803
  }
6809
6804
  case 0: {
6810
- $1c5 = () => ({a1: {h: 0}});
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}, $1bd => ShellCompletion_Util_matches($0, '--draft', $1bd), ShellCompletion_Common_allPrCmdOpts($0))), $1c5);
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 $1e2;
6823
+ let $1f9;
6829
6824
  switch(ShellCompletion_Util_isHashPrefix($2)) {
6830
6825
  case 1: {
6831
- $1e2 = () => ({h: 0});
6826
+ $1f9 = () => ({h: 0});
6832
6827
  break;
6833
6828
  }
6834
6829
  case 0: {
6835
- $1e2 = () => ({a1: {h: 0}});
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)), $1e2);
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 $1f8;
6837
+ let $20f;
6843
6838
  switch(ShellCompletion_Util_isHashPrefix($2)) {
6844
6839
  case 1: {
6845
- $1f8 = () => ({h: 0});
6840
+ $20f = () => ({h: 0});
6846
6841
  break;
6847
6842
  }
6848
6843
  case 0: {
6849
- $1f8 = () => ({a1: {h: 0}});
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}, $1f0 => ShellCompletion_Util_matches($0, '--into', $1f0), ShellCompletion_Common_allPrCmdOpts($0))), $1f8);
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 $20e;
6851
+ let $225;
6857
6852
  switch(ShellCompletion_Util_isHashPrefix($2)) {
6858
6853
  case 1: {
6859
- $20e = () => ({h: 0});
6854
+ $225 = () => ({h: 0});
6860
6855
  break;
6861
6856
  }
6862
6857
  case 0: {
6863
- $20e = () => ({a1: {h: 0}});
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}, $206 => ShellCompletion_Util_matches($0, '--draft', $206), ShellCompletion_Common_allPrCmdOpts($0))), $20e);
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 $224;
6873
+ let $23b;
6879
6874
  switch(ShellCompletion_Util_isHashPrefix($2)) {
6880
6875
  case 1: {
6881
- $224 = () => ({h: 0});
6876
+ $23b = () => ({h: 0});
6882
6877
  break;
6883
6878
  }
6884
6879
  case 0: {
6885
- $224 = () => ({a1: {h: 0}});
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)), $224);
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 $23a;
6887
+ let $251;
6893
6888
  switch(ShellCompletion_Util_isHashPrefix($2)) {
6894
6889
  case 1: {
6895
- $23a = () => ({h: 0});
6890
+ $251 = () => ({h: 0});
6896
6891
  break;
6897
6892
  }
6898
6893
  case 0: {
6899
- $23a = () => ({a1: {h: 0}});
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}, $232 => ShellCompletion_Util_matches($0, '--into', $232), ShellCompletion_Common_allPrCmdOpts($0))), $23a);
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 $250;
6901
+ let $267;
6907
6902
  switch(ShellCompletion_Util_isHashPrefix($2)) {
6908
6903
  case 1: {
6909
- $250 = () => ({h: 0});
6904
+ $267 = () => ({h: 0});
6910
6905
  break;
6911
6906
  }
6912
6907
  case 0: {
6913
- $250 = () => ({a1: {h: 0}});
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}, $248 => ShellCompletion_Util_matches($0, '--draft', $248), ShellCompletion_Common_allPrCmdOpts($0))), $250);
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 System_Git_case__unpushedCommits_13086($0, $1) {
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 System_Git_case__stagedChanges_13030($0, $1) {
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 System_Git_case__uncommittedChanges_12965($0, $1) {
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 System_Git_case__remoteTrackingBranch_12899($0, $1, $2) {
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.7399:12437:res */
7062
- function System_Git_n__7399_12437_res($0, $1) {
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(System_Git_case__unpushedCommits_13086(commits, Data_String_strM(commits)), $1e, $1f), $0, $1);
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(System_Git_case__uncommittedChanges_12965(changedFiles, Data_String_strM(changedFiles)), $1e, $1f), $0, $1);
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(System_Git_case__stagedChanges_13030(stagedFiles, Data_String_strM(stagedFiles)), $20, $21), $0, $1);
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(System_Git_case__remoteTrackingBranch_12899(headRef, remoteBranch, Data_String_strM(remoteBranch)), $42, $43), $20, $21), $0, $1);
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 => System_Git_n__7399_12437_res($0, $a), $5, $6, $7), $12 => $13 => Data_Promise_either($12, $13), $1, $2);
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(System_Git_dropChar('*', $0)));
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.dropChar : Char -> String -> String */
7160
- function System_Git_dropChar($0, $1) {
7161
- return Prelude_Types_fastPack(System_Git_n__7337_12374_go($0, Prelude_Types_fastUnpack($1)));
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)(csegen_222());
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)(csegen_222());
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)(csegen_222());
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, csegen_234(), csegen_255(), System_File_ReadWrite_fGetLine($0, $4), str => System_File_ReadWrite_readLinesOnto($0, {a1: str, a2: $1}, 0n, $3.a1(), $4));
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, csegen_225(), func)($3d), a2: a => $49 => Prelude_Interfaces_Applicative_pure_Applicative_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1, csegen_229(), $49), a3: b => a => $52 => $53 => Prelude_Interfaces_Applicative_x3cx2ax3e_Applicative_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1, csegen_229(), $52, $53)}, System_File_ReadWrite_fSeekLine($0, $4), System_File_ReadWrite_readLinesOnto($0, $1, $37, {a1: $3.a1}, $4));
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, csegen_229(), '');
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(csegen_234(), csegen_297(), $8 => Data_Config_n__10207_7581_parseConfigJson($0, $8), $1);
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(csegen_298(), 0n, Prelude_Types_List_mapAppend({h: 0}, $8 => Prelude_Types_String_length(Data_Config_propNamex27($8)), Data_Config_settableProps()));
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(csegen_309(), $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_309(), $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_309(), $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_312(), a2: csegen_313(), 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}}}}}}}}}}}}}}}}};
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(csegen_234(), csegen_321(), $7 => Data_Either_maybeToEither(() => '', Data_Config_CommentStrategy_parseCommentConfig($7)), $0);
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(csegen_234(), csegen_321(), $7 => Data_Either_maybeToEither(() => '', Data_Config_ParseBranchStrategy_parseBranchConfig($7)), $0);
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:18332:lookup' */
7966
- function Language_JSON_Accessors_n__6303_18332_lookupx27($0, $1, $2, $3, $4) {
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(csegen_325(), 'string', $5, $0);
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 = Language_JSON_Accessors_n__6303_18332_lookupx27($0.a1, $0.a2, $1, $0.a1, $1);
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(csegen_325(), 'integer', $5, $0);
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(csegen_325(), 'bool', $5, $0);
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(csegen_229(), $0, $1.a1);
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.5819:1351:yesUnlessNo */
8771
- function Util_Prompting_n__5819_1351_yesUnlessNo($0, $1, $2, $3) {
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.6019:1552:readTemplate */
8776
- function Util_Prompting_n__6019_1552_readTemplate($0, $1, $2, $3, $4) {
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.5706:1233:getMoreLines */
8795
- function Util_n__5706_1233_getMoreLines($0, $1, $2) {
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 Util_n__5706_1233_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
8842
+ default: return Util_n__5707_1233_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
8807
8843
  }
8808
8844
  }
8809
- default: return Util_n__5706_1233_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
8845
+ default: return Util_n__5707_1233_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
8810
8846
  }
8811
8847
  }
8812
- default: return Util_n__5706_1233_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
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.5819:1350:defaultAnswerStr */
8821
- function Util_Prompting_n__5819_1350_defaultAnswerStr($0, $1, $2) {
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: Util_Prompting_n__5819_1350_defaultAnswerStr($0, $1, $2), a2: {a1: '] ', a2: {h: 0}}}}}), $11)))($29 => $0.a1.a1.a1(undefined)(undefined)($34 => Util_Prompting_n__5819_1351_yesUnlessNo($0, $1, $2, Data_String_trim($34)))($0.a2(undefined)($42 => Prelude_IO_prim__getStr($42))));
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 => Util_Prompting_n__6019_1552_readTemplate($0, $3, $2, $1, $17), $1))($1f);
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 Util_n__5706_1233_getMoreLines($0, {h: 0}, $1);
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: csegen_339(), 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_339(), 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)));
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:18522:unexpectedPayload */
9010
- function FFI_GitHub_n__6772_18522_unexpectedPayload($0, $1) {
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:18521:parse */
9015
- function FFI_GitHub_n__6772_18521_parse($0, $1) {
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:20090:errString */
9023
- function FFI_GitHub_n__8295_20090_errString($0, $1) {
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:18946:errString */
9031
- function FFI_GitHub_n__7168_18946_errString($0, $1) {
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:18655:errMsg */
9039
- function FFI_GitHub_n__6905_18655_errMsg($0) {
9040
- return Prelude_Types_either(() => csegen_360()(), () => csegen_360()(), $0);
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: FFI_GitHub_n__6772_18522_unexpectedPayload($0, $3.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 = FFI_GitHub_n__6772_18521_parse($0, json);
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 => FFI_GitHub_n__6905_18655_errMsg(FFI_GitHub_parseError($5)), $0, $1, $2);
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 => FFI_GitHub_n__7168_18946_errString($0, $6), $b => $c => FFI_GitHub_listTeams($0, $1, $b, $c), $2, $3);
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 => FFI_GitHub_n__8295_20090_errString($0, $7), $c => $d => FFI_GitHub_listTeamMembers($0, $1, $2, $c, $d), $3, $4);
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(csegen_234(), csegen_297(), $7 => Data_User_parseUser($7), $0);
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(csegen_230(), $22 => Data_Review_parseState($22), Language_JSON_Accessors_string($12.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_230(), $2f => Data_Review_parseDateTime($2f), Language_JSON_Accessors_string($12.a2.a2.a1)), submittedAt => ({h: 1 /* Right */, a1: {a1: submittedAt, a2: author, a3: state}}))))));
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: csegen_370(), a2: $a => $b => Prelude_Types_x2fx3d_Eq_Nat($a, $b)}, a2: csegen_313(), 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_298(), 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}}}});
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(csegen_234(), csegen_297(), $7 => Data_Issue_parseIssue($7), $0);
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(csegen_230(), $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}})))));
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(csegen_234(), csegen_297(), csegen_388(), $0);
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(csegen_234(), csegen_297(), $7 => Data_PullRequest_parsePR($7), $0);
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(csegen_230(), $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_230(), $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}})))))))))))));
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(csegen_401(), $2.a1)}, $b);
9769
+ return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_402(), $2.a1)}, $b);
9692
9770
  }
9693
9771
 
9694
- /* Config.9643:2534:themePrompt */
9695
- function Config_n__9643_2534_themePrompt($0, $1, $2, $3, $4) {
9696
- const $5 = Config_n__9643_2530_enterForDefaultStr($0, $1, $2, $3, 'dark');
9697
- return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($1a => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $23 => $23, {a1: 'Would you like harmony configured for a \'dark\' or \'light\' terminal background', a2: {a1: $5, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $1a)))($2e => Config_n__9643_2531_offerRetry($0, $1, $2, $3, $4, 'The theme must be either \'dark\' or \'light\'. Which would you prefer?', 'Could not parse the input as a valid theme; will use \'dark\' for now.', () => 1, $4.a1.a1.a1(undefined)(undefined)($43 => Data_Theme_parseString(Util_Prompting_orIfEmpty({a1: 'dark'}, Data_String_trim($43))))($4.a2(undefined)($52 => Prelude_IO_prim__getStr($52)))));
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.9643:2533:repo */
9701
- function Config_n__9643_2533_repo($0, $1, $2, $3, $4) {
9702
- return Prelude_Types_map_Functor_Maybe(csegen_360()(), $4);
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.8710:1562:parseSuffix */
9706
- function Config_n__8710_1562_parseSuffix($0, $1) {
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.8710:1561:parseSSH */
9711
- function Config_n__8710_1561_parseSSH($0, $1) {
9712
- return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b => Config_n__8710_1562_parseSuffix($0, $b), $1);
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.8710:1560:parseHTTPS */
9716
- function Config_n__8710_1560_parseHTTPS($0, $1) {
9717
- return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b => Config_n__8710_1562_parseSuffix($0, $b), $1);
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.9643:2532:org */
9721
- function Config_n__9643_2532_org($0, $1, $2, $3, $4) {
9722
- return Prelude_Types_map_Functor_Maybe(csegen_407()(), $4);
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.8421:1281:oneDayAgo */
9726
- function Config_n__8421_1281_oneDayAgo($0, $1, $2) {
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.9643:2531:offerRetry */
9731
- function Config_n__9643_2531_offerRetry($0, $1, $2, $3, $4, $5, $6, $7, $8) {
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.9643:2530:enterForDefaultStr */
9758
- function Config_n__9643_2530_enterForDefaultStr($0, $1, $2, $3, $4) {
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.9643:2529:defaultStr */
9768
- function Config_n__9643_2529_defaultStr($0, $1, $2, $3, $4, $5) {
9769
- return Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($b => Config_n__9643_2530_enterForDefaultStr($0, $1, $2, $3, $4($b)), $5));
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.8552:1406:checkRequestSettings */
9779
- function Config_n__8552_1406_checkRequestSettings($0, $1) {
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.9643:2527:branchParsingPrompt */
9798
- function Config_n__9643_2527_branchParsingPrompt($0, $1, $2, $3, $4) {
9799
- const $5 = Config_n__9643_2530_enterForDefaultStr($0, $1, $2, $3, 'none');
9800
- return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($1a => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $23 => $23, {a1: 'Would you like harmony to parse branch names for \'jira\' slugs or \'github\' issue numbers to use as part of new PR title or body', a2: {a1: $5, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $1a)))($2e => Config_n__9643_2531_offerRetry($0, $1, $2, $3, $4, 'Branch parsing must be \'none\', \'jira\', or \'github\'. Which would you prefer?', 'Could not parse the input as a valid option; will use \'none\' for now.', () => 0, $4.a1.a1.a1(undefined)(undefined)($43 => Data_Config_ParseBranchStrategy_parseBranchConfig(Util_Prompting_orIfEmpty({a1: 'none'}, Data_String_trim($43))))($4.a2(undefined)($52 => Prelude_IO_prim__getStr($52)))));
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(Config_n__8421_1281_oneDayAgo($0, $1, csegen_88()()), $c, $2, $3);
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(csegen_420()(), $40, $3a, $3b);
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 => Config_n__9546_2423_help($0, $9), Data_Config_settablePropNamesAndHelp())));
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(csegen_425(), $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);
9871
- case 1: return Config_update(csegen_425(), $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);
9872
- case 2: return Config_update(csegen_425(), $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);
9873
- case 3: return Config_update(csegen_425(), $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);
9874
- case 4: return Config_update(csegen_425(), $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);
9875
- case 5: return Config_update(csegen_425(), $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);
9876
- case 6: return Config_update(csegen_425(), $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);
9877
- case 7: return Config_update(csegen_425(), $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);
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(Config_n__8710_1560_parseHTTPS($0, $0), () => Config_n__8710_1561_parseSSH($0, $0));
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, csegen_234(), csegen_255(), $5, $6);
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), Config_n__8663_1513_dropx27($0, Prelude_Types_fastUnpack($1)));
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 = Config_n__9643_2530_enterForDefaultStr($3, $2, $1, $0, 'unset');
10026
- const $2e = () => $36 => $37 => {
10027
- const $61 = $62 => $63 => $64 => {
10028
- const $66 = $67 => $68 => {
10029
- const $6a = $6b => {
10030
- switch(Data_String_trim($6b)) {
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($6b)};
10078
+ default: return {a1: Data_String_trim($65)};
10033
10079
  }
10034
10080
  };
10035
- return Data_Promise_map_Functor_x28Promisex20x24ex29($6a, csegen_448()(), $67, $68);
10081
+ return Data_Promise_map_Functor_x28Promisex20x24ex29($64, csegen_449()(), $61, $62);
10036
10082
  };
10037
- const $77 = configPAT => $78 => $79 => {
10038
- const $85 = $86 => $87 => $88 => {
10039
- switch($86.h) {
10083
+ const $71 = configPAT => $72 => $73 => {
10084
+ const $7f = $80 => $81 => $82 => {
10085
+ switch($80.h) {
10040
10086
  case undefined: /* just */ {
10041
- const $9b = remoteGuess => $9c => $9d => {
10042
- const $b9 = defaultOrgAndRepo => $ba => $bb => {
10043
- const $c0 = $c1 => {
10044
- const $c3 = Config_n__9643_2529_defaultStr($3, $2, $1, $0, csegen_407()(), defaultOrgAndRepo);
10045
- const $c2 = () => $cd => $ce => {
10046
- const $ec = $ed => $ee => $ef => {
10047
- const $107 = org => $108 => $109 => {
10048
- const $10e = $10f => {
10049
- const $111 = Config_n__9643_2529_defaultStr($3, $2, $1, $0, csegen_360()(), defaultOrgAndRepo);
10050
- const $110 = () => $11b => $11c => {
10051
- const $13a = $13b => $13c => $13d => {
10052
- const $155 = repo => $156 => $157 => {
10053
- const $15c = $15d => {
10054
- const $15f = Config_n__9643_2530_enterForDefaultStr($3, $2, $1, $0, remoteGuess);
10055
- const $15e = () => $166 => $167 => {
10056
- const $185 = $186 => $187 => $188 => {
10057
- const $19b = defaultRemote => $19c => $19d => {
10058
- const $1a2 = $1a3 => $1a4 => $1a5 => {
10059
- const $1b0 = commentOnRequest => $1b1 => $1b2 => {
10060
- const $1b7 = $1b8 => $1b9 => $1ba => {
10061
- const $1c5 = branchParsing => $1c6 => $1c7 => {
10062
- const $1cc = $1cd => $1ce => $1cf => {
10063
- const $1d8 = requestTeams => $1d9 => $1da => {
10064
- const $1df = $1e0 => $1e1 => $1e2 => {
10065
- const $1eb = requestUsers => $1ec => $1ed => {
10066
- const $1f2 = $1f3 => $1f4 => $1f5 => {
10067
- const $200 = theme => $201 => $202 => {
10068
- const $207 = $208 => $209 => $20a => {
10069
- const $219 = _ => $21a => $21b => {
10070
- const $22a = $22b => $22c => $22d => {
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($21e => $21f => $220 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($223 => Prelude_IO_prim__putStr('Creating config...\n', $223), $21e, $21f, $220), $22a, $21a, $21b);
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($20d => $20e => $20f => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($212 => FFI_GitHub_octokit($86.a1, $212), $20d, $20e, $20f), $219, $209, $20a);
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(csegen_446()(), $207, $201, $202);
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(csegen_446()(), $1f2, $1ec, $1ed);
10125
+ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_421()(), $19d, $197, $198);
10101
10126
  };
10102
- return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_88()(), 1, 'Would you like harmony to request reviews from individual users when it requests a teams review?'), $1eb, $1e1, $1e2);
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(csegen_446()(), $1df, $1d9, $1da);
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(Util_Prompting_yesNoPrompt(csegen_88()(), 1, 'Would you like harmony to request reviews from teams when it requests reviewers?'), $1d8, $1ce, $1cf);
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(csegen_446()(), $1cc, $1c6, $1c7);
10133
+ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $165, $15f, $160);
10109
10134
  };
10110
- return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9643_2527_branchParsingPrompt($3, $2, $1, $0, csegen_88()()), $1c5, $1b9, $1ba);
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(csegen_446()(), $1b7, $1b1, $1b2);
10137
+ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $150, $14a, $14b);
10113
10138
  };
10114
- return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9643_2528_commentConfigPrompt($3, $2, $1, $0, csegen_88()()), $1b0, $1a4, $1a5);
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(csegen_446()(), $1a2, $19c, $19d);
10141
+ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $13d, $137, $138);
10117
10142
  };
10118
- return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($18b => $18c => Data_Promise_map_Functor_x28Promisex20x24ex29($18f => Util_Prompting_orIfEmpty({a1: remoteGuess}, Data_String_trim($18f)), csegen_448()(), $18b, $18c), $19b, $187, $188);
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($16a => $16b => $16c => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($16f => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $178 => $178, {a1: 'What GitHub remote repo would you like to use harmony for', a2: {a1: $15f, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $16f), $16a, $16b, $16c), $185, $166, $167);
10145
+ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $12a, $124, $125);
10121
10146
  };
10122
- return $15e();
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(csegen_446()(), $15c, $156, $157);
10149
+ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $115, $10f, $110);
10125
10150
  };
10126
- return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($140 => $141 => Data_Promise_map_Functor_x28Promisex20x24ex29($144 => Util_Prompting_orIfEmpty(Config_n__9643_2533_repo($3, $2, $1, $0, defaultOrgAndRepo), Data_String_trim($144)), csegen_448()(), $140, $141), $155, $13c, $13d);
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($11f => $120 => $121 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($124 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $12d => $12d, {a1: 'What repository would you like to use harmony for', a2: {a1: $111, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $124), $11f, $120, $121), $13a, $11b, $11c);
10153
+ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $100, $fa, $fb);
10129
10154
  };
10130
- return $110();
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(csegen_446()(), $10e, $108, $109);
10157
+ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $ec, $e6, $e7);
10133
10158
  };
10134
- return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f2 => $f3 => Data_Promise_map_Functor_x28Promisex20x24ex29($f6 => Util_Prompting_orIfEmpty(Config_n__9643_2532_org($3, $2, $1, $0, defaultOrgAndRepo), Data_String_trim($f6)), csegen_448()(), $f2, $f3), $107, $ee, $ef);
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($d1 => $d2 => $d3 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d6 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $df => $df, {a1: 'What GitHub org would you like to use harmony for', a2: {a1: $c3, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $d6), $d1, $d2, $d3), $ec, $cd, $ce);
10161
+ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $d3, $cd, $ce);
10137
10162
  };
10138
- return $c2();
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(csegen_446()(), $c0, $ba, $bb);
10165
+ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $ba, $b4, $b5);
10141
10166
  };
10142
- return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a0 => $a1 => Data_Promise_x3cx7cx3e_Alternative_x28Promisex20Stringx29($a4 => $a5 => Data_Promise_map_Functor_x28Promisex20x24ex29($a8 => Config_parseGitHubURI($a8), $ac => $ad => System_Git_remoteURI(remoteGuess, $ac, $ad), $a4, $a5), () => csegen_452()(), $a0, $a1), $b9, $9c, $9d);
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($8c => $8d => Data_Promise_map_Functor_x28Promisex20x24ex29($90 => Config_preferOriginRemote($90), $94 => $95 => System_Git_listRemotes($94, $95), $8c, $8d), $9b, $87, $88);
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.', $87, $88);
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($7c => $7d => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_x3cx7cx3e_Alternative_Maybe($0, () => configPAT), $7c, $7d), $85, $78, $79);
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($66, $77, $63, $64);
10176
+ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($60, $71, $5d, $5e);
10152
10177
  };
10153
- return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3a => $3b => $3c => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($3f => 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()(), $54 => $54, {a1: 'What PAT would you like to set in the config file', a2: {a1: $2f, a2: {a1: '?', a2: {h: 0}}}}), a2: {h: 0}}}}}}}), $3f), $3a, $3b, $3c), $61, $36, $37);
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(csegen_446()(), $2c, $26, $27);
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 Config_n__8552_1406_checkRequestSettings($0, $0);
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(csegen_312(), Prelude_Types_List_tailRecAppend($0.a13, $1)), a14: $0.a14, a15: $0.a15, a16: $0.a16}, $2, $3);
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.1.0';
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: csegen_466()}, {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}});
10228
- case 'request': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<team-slug> | +<user-login>'), a2: csegen_471()}, {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}}}});
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: csegen_471()}}}, {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}}}}}});
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: csegen_466()}}, {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}}}});
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), csegen_309(), {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);
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(csegen_641(), $1b => $1c => $1d => Commands_PullRequest_identifyOrCreatePR($0, $1, 0, {h: 0}, $1b, $1c, $1d), $15, $16), $28, $6, $8);
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(csegen_655(), $e => Prelude_Types_List_mapAppend({h: 0}, $12 => Data_String_Extra_drop(1n, $12), $e))({a1: $4, a2: $6.a1});
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.8992:20478:recombineIntoArgs */
10452
- function Commands_n__8992_20478_recombineIntoArgs($0, $1) {
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 csegen_659();
10484
+ case 0: /* nil */ return csegen_660();
10460
10485
  case undefined: /* cons */ {
10461
- const $8 = Commands_n__8992_20475_parseIntoOpt($0, $1.a2.a1);
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 = Commands_n__8992_20478_recombineIntoArgs($0, $1.a2.a2);
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 = Commands_n__8992_20478_recombineIntoArgs($0, $1.a2.a2);
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 = Commands_n__8992_20478_recombineIntoArgs($0, $1.a2);
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 = Commands_n__8992_20475_parseIntoOpt($0, $1.a2.a1);
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 = Commands_n__8992_20478_recombineIntoArgs($0, $1.a2.a2);
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 = Commands_n__8992_20478_recombineIntoArgs($0, $1.a2.a2);
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 = Commands_n__8992_20478_recombineIntoArgs($0, $1.a2);
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 = Commands_n__8992_20478_recombineIntoArgs($0, $1.a2);
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.11143:22520:recombineIgnoreArgs */
10511
- function Commands_n__11143_22520_recombineIgnoreArgs($0, $1) {
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 csegen_659();
10543
+ case 0: /* nil */ return csegen_660();
10519
10544
  case undefined: /* cons */ {
10520
- const $8 = Commands_n__11143_22517_parseIgnoreOpt($0, $1.a2.a1);
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 = Commands_n__11143_22520_recombineIgnoreArgs($0, $1.a2.a2);
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 = Commands_n__11143_22520_recombineIgnoreArgs($0, $1.a2.a2);
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 = Commands_n__11143_22520_recombineIgnoreArgs($0, $1.a2);
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 = Commands_n__11143_22517_parseIgnoreOpt($0, $1.a2.a1);
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 = Commands_n__11143_22520_recombineIgnoreArgs($0, $1.a2.a2);
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 = Commands_n__11143_22520_recombineIgnoreArgs($0, $1.a2.a2);
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 = Commands_n__11143_22520_recombineIgnoreArgs($0, $1.a2);
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 = Commands_n__11143_22520_recombineIgnoreArgs($0, $1.a2);
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.10357:21764:putNameLn */
10570
- function Commands_n__10357_21764_putNameLn($0, $1, $2, $3) {
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.8740:20218:putLabels */
10575
- function Commands_n__8740_20218_putLabels($0, $1, $2, $3) {
10576
- 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__8740_20217_putLabel($0, $1, $2, $e), $3)));
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.8740:20217:putLabel */
10580
- function Commands_n__8740_20217_putLabel($0, $1, $2, $3) {
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.11495:22875:printDetails */
10585
- function Commands_n__11495_22875_printDetails($0, $1, $2, $3) {
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.11495:22874:pickOne */
10595
- function Commands_n__11495_22874_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
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 = csegen_664();
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.9987:21430:partitionedArgs */
10620
- function Commands_n__9987_21430_partitionedArgs($0, $1, $2, $3) {
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.10525:21952:parseTeamArg */
10625
- function Commands_n__10525_21952_parseTeamArg($0, $1) {
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.11143:22519:parseSkipArg */
10630
- function Commands_n__11143_22519_parseSkipArg($0, $1) {
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.8992:20477:parseReadyFlag */
10635
- function Commands_n__8992_20477_parseReadyFlag($0, $1) {
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.11143:22518:parseListFlag */
10643
- function Commands_n__11143_22518_parseListFlag($0, $1) {
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.8992:20476:parseLabelArg */
10652
- function Commands_n__8992_20476_parseLabelArg($0, $1) {
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.8992:20475:parseIntoOpt */
10666
- function Commands_n__8992_20475_parseIntoOpt($0, $1) {
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.11143:22517:parseIgnoreOpt */
10672
- function Commands_n__11143_22517_parseIgnoreOpt($0, $1) {
10673
- const $2 = Data_String_split(csegen_401(), $1);
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.8992:20474:parseDraftFlag */
10679
- function Commands_n__8992_20474_parseDraftFlag($0, $1) {
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.10525:21951:parseCompletedFlag */
10687
- function Commands_n__10525_21951_parseCompletedFlag($0, $1) {
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.11143:22516:parseCheckoutFlag */
10696
- function Commands_n__11143_22516_parseCheckoutFlag($0, $1) {
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.9458:20943:markAsReady */
10705
- function Commands_n__9458_20943_markAsReady($0, $1, $2) {
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.9458:20942:markAsDraft */
10717
- function Commands_n__9458_20942_markAsDraft($0, $1, $2) {
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.11495:22873:listSome */
10729
- function Commands_n__11495_22873_listSome($0, $1, $2, $3, $4, $5, $6, $7) {
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(csegen_446()(), $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__11495_22871_goListSome($0, $1, $2, 0, Data_List_take(5n, $5)), $26, $27), $1e, $1f));
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(Commands_n__11495_22871_goListSome($0, $1, $2, 1, Data_List_drop($3, $4)), $13, $6, $7);
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.9458:20941:labelSlugs */
10748
- function Commands_n__9458_20941_labelSlugs($0, $1, $2) {
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.11495:22872:isNotIgnored */
10759
- function Commands_n__11495_22872_isNotIgnored($0, $1, $2, $3, $4) {
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.9458:20940:intoBranch */
10764
- function Commands_n__9458_20940_intoBranch($0, $1, $2) {
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.11495:22871:goListSome */
10775
- function Commands_n__11495_22871_goListSome($0, $1, $2, $3, $4) {
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 = Commands_n__11495_22875_printDetails($0, $1, $2, $4.a1);
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: Commands_n__11495_22875_printDetails($0, $1, $2, next), a2: {h: 0}}}}), $6, $4.a2));
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 csegen_664();
10818
+ case 0: /* nil */ return csegen_665();
10794
10819
  }
10795
10820
  }
10796
10821
 
10797
- /* Commands.12559:23856:go */
10798
- function Commands_n__12559_23856_go($0, $1) {
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.10357:21763:forkedUser */
10811
- function Commands_n__10357_21763_forkedUser($0, $1, $2, $3) {
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.9458:20939:conflictingDraftReadyArgs */
10816
- function Commands_n__9458_20939_conflictingDraftReadyArgs($0, $1, $2) {
10817
- switch(Commands_n__9458_20942_markAsDraft($0, $1, $2)) {
10818
- case 1: return Commands_n__9458_20943_markAsReady($0, $1, $2);
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 => Commands_n__12559_23856_go($3, $4), {h: 0}, $0);
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, Commands_n__9987_21430_partitionedArgs($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(Commands_n__9458_20941_labelSlugs($0, $1, $2))) {
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, Commands_n__9458_20941_labelSlugs($0, $1, $2), $68, $69));
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 = Commands_n__9458_20940_intoBranch($0, $1, $2);
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(Commands_n__9458_20942_markAsDraft($0, $1, $2)) {
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(csegen_446()(), $b8, $b2, $b3);
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(Commands_n__9458_20943_markAsReady($0, $1, $2)) {
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(csegen_446()(), $10d, $107, $108);
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(csegen_641(), $23 => $24 => $25 => Commands_PullRequest_identifyOrCreatePR($0, $1, Commands_n__9458_20942_markAsDraft($0, $1, $2), Commands_n__9458_20940_intoBranch($0, $1, $2), $23, $24, $25), $1d, $1e), $38, $19, $1a);
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()(), Commands_n__9458_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);
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 = Commands_n__8992_20478_recombineIntoArgs($0, $0);
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(csegen_687(), $18 => Commands_n__8992_20477_parseReadyFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_687(), $22 => Commands_n__8992_20474_parseDraftFlag($0, $22), $27 => Commands_n__8992_20476_parseLabelArg($0, $27), $1d), $13), $3.a2);
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(csegen_687(), $10 => Commands_n__10525_21951_parseCompletedFlag($0, $10), $15 => Commands_n__10525_21952_parseTeamArg($0, $15), $b), $0);
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(csegen_687(), $27 => Commands_n__10525_21951_parseCompletedFlag($0, $27), $2c => Commands_n__10525_21952_parseTeamArg($0, $2c), $22), $0);
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(csegen_687(), $3e => Commands_n__10525_21951_parseCompletedFlag($0, $3e), $43 => Commands_n__10525_21952_parseTeamArg($0, $43), $39), $0);
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 = Commands_n__11143_22520_recombineIgnoreArgs($0, $0);
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(csegen_687(), $18 => Commands_n__11143_22518_parseListFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_687(), $22 => Commands_n__11143_22519_parseSkipArg($0, $22), $27 => Commands_n__11143_22516_parseCheckoutFlag($0, $27), $1d), $13), $3.a2);
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(csegen_688(), $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);
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(csegen_688(), $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_690(), Prelude_Types_traverse_Traversable_List(csegen_80()(), $29 => Commands_n__10357_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__10357_21764_putNameLn($1, $2, $0, $4e), teamMembers))), $31, $32), $19, $1a), $3, $4);
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(Commands_n__8740_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__8740_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);
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(csegen_641(), $d => $e => $f => Commands_PullRequest_identifyOrCreatePR($0, $1, 0, {h: 0}, $d, $e, $f), $7, $8), $1a, $3, $4);
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(csegen_697(), $0));
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(csegen_697(), $2);
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 $29 = myLogin => {
11121
- const $2a = Commands_ignorePRNums($2);
11122
- return $2d => $2e => {
11123
- const $30 = $31 => $32 => {
11124
- switch(Prelude_Types_null_Foldable_List($2a)) {
11125
- case 1: return Data_Promise_pure_Applicative_x28Promisex20x24ex29($0, $31, $32);
11126
- case 0: return Config_addIgnoredPRs($0, $2a, $31, $32);
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 $3f = configx27 => {
11130
- const $40 = Data_Maybe_fromMaybe(() => 0n, Data_List_headx27(Prelude_Types_List_mapMaybeAppend({h: 0}, $49 => Commands_skipArg($49), $2)));
11131
- const $4f = $50 => {
11132
- switch($50.h) {
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 $4d = Data_List_find($4f, $2);
11138
- const $55 = $56 => {
11139
- switch($56.h) {
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 $53 = Data_List_find($55, $2);
11145
- return $59 => $5a => {
11146
- let $61;
11147
- switch(Data_Maybe_isJust($4d)) {
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
- $61 = Data_Maybe_isJust($53);
11174
+ $60 = Data_Maybe_isJust($52);
11150
11175
  break;
11151
11176
  }
11152
11177
  case 0: {
11153
- $61 = 0;
11178
+ $60 = 0;
11154
11179
  break;
11155
11180
  }
11156
11181
  }
11157
- const $5c = Prelude_Interfaces_when(csegen_80()(), $61, () => $68 => $69 => Data_Promise_reject('The --checkout and --list options are mutually exclusive', $68, $69));
11158
- const $6e = $6f => {
11159
- const $74 = $75 => {
11160
- switch(Data_PullRequest_isAuthor(myLogin, $75)) {
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 $71 = Prelude_Types_List_filterAppend({h: 0}, $74, $12);
11166
- const $7b = Prelude_Types_List_filterAppend({h: 0}, $7f => Commands_n__11495_22872_isNotIgnored($1, $2, $0, configx27, $7f), $71);
11167
- const $87 = Data_List_partition($8a => Data_PullRequest_isRequestedReviewer(myLogin, $8a), $7b);
11168
- const $8f = Prelude_Interfaces_mapHom(csegen_655(), $95 => Data_List_sortBy(csegen_704(), $95))($87);
11169
- let $70;
11170
- switch($53.h) {
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
- $70 = () => Commands_n__11495_22874_pickOne($1, $2, $0, configx27, $40, $4d, $8f.a1, $8f.a2);
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
- $70 = () => $a5 => $a6 => Commands_n__11495_22873_listSome($1, $2, $0, $40, $8f.a1, $8f.a2, $a5, $a6);
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 $70();
11205
+ return $6f();
11181
11206
  };
11182
- return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($5c, $6e, $59, $5a);
11207
+ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($5b, $6d, $58, $59);
11183
11208
  };
11184
11209
  };
11185
- return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($30, $3f, $2d, $2e);
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(csegen_407()(), FFI_GitHub_getSelf($1), $1e, $1f), $29, $1a, $1b);
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(csegen_641(), $6, $1, $2);
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(csegen_655(), $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_726(), $11))))({a1: $7, a2: $9.a1});
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.7594:2049:ul */
11427
- function Commands_User_Me_n__7594_2049_ul($0, $1, $2, $3, $4) {
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.7594:2048:teams */
11432
- function Commands_User_Me_n__7594_2048_teams($0, $1, $2, $3) {
11433
- return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_User_Me_n__7594_2049_ul($0, $1, $2, $3, 'GitHub Teams:'), a2: Prelude_Types_List_mapAppend({h: 0}, $11 => Commands_User_Me_n__7594_2046_it($0, $1, $2, $3, $11), $0)});
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.7594:2047:login */
11437
- function Commands_User_Me_n__7594_2047_login($0, $1, $2, $3) {
11438
- return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'), Commands_User_Me_n__7594_2043_dataVal($0, $1, $2, $3, $1.a1));
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.6649:1075:ital */
11442
- function Commands_User_Reflect_n__6649_1075_ital($0, $1) {
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.7594:2046:it */
11447
- function Commands_User_Me_n__7594_2046_it($0, $1, $2, $3, $4) {
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.7744:2196:handleUnsetEmail */
11452
- function Commands_User_Me_n__7744_2196_handleUnsetEmail($0, $1, $2) {
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.7594:2045:fullName */
11460
- function Commands_User_Me_n__7594_2045_fullName($0, $1, $2, $3) {
11461
- return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'), Commands_User_Me_n__7594_2043_dataVal($0, $1, $2, $3, $1.a2));
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.7594:2044:email */
11465
- function Commands_User_Me_n__7594_2044_email($0, $1, $2, $3) {
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 = Commands_User_Me_n__7594_2043_dataVal($0, $1, $2, $3, $2.a1);
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 = Commands_User_Me_n__7594_2046_it($0, $1, $2, $3, 'Not set');
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.7594:2043:dataVal */
11481
- function Commands_User_Me_n__7594_2043_dataVal($0, $1, $2, $3, $4) {
11482
- return Theme_theme($3, csegen_729(), Theme_cs({a1: 4, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined}), 8)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
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 $1c = myLogin => $1d => $1e => {
11504
- const $3a = reviews => {
11505
- const $3b = Prelude_Types_map_Functor_Maybe(csegen_732(), Data_List_headx27(Data_List_sortBy($44 => $45 => Prelude_Basics_on(csegen_702(), csegen_732(), $44, $45), reviews)));
11506
- const $4e = Prelude_Interfaces_mapHom(csegen_655(), $54 => Prelude_Types_List_filterAppend({h: 0}, $58 => Prelude_EqOrd_x3dx3d_Eq_String($58.a5, myLogin), $54))(prs);
11507
- return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(csegen_655(), $6f => Prelude_Types_List_filterAppend({h: 0}, $73 => Prelude_Types_foldMap_Foldable_List(csegen_111(), $78 => Prelude_EqOrd_x3dx3d_Eq_String($78, myLogin), $73.a7), $6f))(prs));
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($2e => $2f => Prelude_Basics_on(csegen_702(), csegen_726(), $2e, $2f), Commands_PullRequest_combined(prs))))), $3a, $1d, $1e);
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(csegen_407()(), FFI_GitHub_getSelf($1), $11, $12), $1c, $d, $e);
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 => Commands_User_Me_n__7744_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_688(), $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);
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: Commands_User_Me_n__7594_2044_email($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7594_2045_fullName($3, $2, $1, $0), a2: {a1: Commands_User_Me_n__7594_2047_login($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7594_2048_teams($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}}}}});
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: Commands_User_Reflect_n__6649_1075_ital($0, Commands_User_Reflect_leftTitle()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' '), a2: {a1: Commands_User_Reflect_n__6649_1075_ital($0, Commands_User_Reflect_rightTitle()), a2: {h: 0}}}}));
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(csegen_298(), Prelude_Types_String_length(Commands_User_Reflect_leftTitle()), {a1: ($7+$1), a2: {a1: $a, a2: {h: 0}}});
11557
- const $1c = Prelude_Types_foldr_Foldable_List(csegen_298(), Prelude_Types_String_length(Commands_User_Reflect_rightTitle()), {a1: $7, a2: {a1: $a, a2: {h: 0}}});
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(csegen_739(), $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_739(), $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}}}}}}}}}});
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, csegen_729(), csegen_749(), 4, $1, '\u{b7}'), Commands_User_replicatex27($6, csegen_750(), csegen_750(), 7, $3, '\u{25e6}')), Commands_User_replicatex27($6, csegen_751(), csegen_751(), 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_751(), csegen_751(), 5, $5, '>'), Commands_User_replicatex27($6, csegen_729(), csegen_749(), 4, $4, '\u{b7}')))));
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 githubTitleAndBodyPrefix */
11659
- function Commands_PullRequest_case__githubTitleAndBodyPrefix_2940($0, $1, $2, $3, $4) {
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({a1: '', a2: ''}, $4, $5);
11663
- case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f => $10 => Commands_PullRequest_n__11030_2862_issueDescriptionPrefix($0, $1, $2, $3.a1, $f, $10), $19 => $1a => $1b => Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: '', a2: ($19+('\n\n'+Commands_PullRequest_n__11030_2864_relatedToPrefix($0, $1, $2, $3.a1)))}, $1a, $1b), $4, $5);
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.10114:1999:userNotice */
11669
- function Commands_PullRequest_n__10114_1999_userNotice($0, $1, $2, $3, $4, $5, $6) {
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: Commands_PullRequest_n__10114_1994_csv($0, $1, $2, $3, $4, $5, $2), a2: {h: 0}});
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: Commands_PullRequest_n__10114_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: $2}), a2: {h: 0}});
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.10114:1998:teamNotice */
11682
- function Commands_PullRequest_n__10114_1998_teamNotice($0, $1, $2, $3, $4, $5, $6) {
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: Commands_PullRequest_n__10114_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: {h: 0}}), a2: {h: 0}}});
11688
- default: return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $23 => $23, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10114_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
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: Commands_PullRequest_n__10114_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
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.11030:2864:relatedToPrefix */
11696
- function Commands_PullRequest_n__11030_2864_relatedToPrefix($0, $1, $2, $3) {
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.11264:3102:prCreationUrl */
11701
- function Commands_PullRequest_n__11264_3102_prCreationUrl($0, $1, $2, $3, $4) {
11702
- const $5 = $4.a3;
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.10114:1997:prComment */
11708
- function Commands_PullRequest_n__10114_1997_prComment($0, $1, $2, $3, $4, $5, $6) {
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.10114:1996:namePrComment */
11713
- function Commands_PullRequest_n__10114_1996_namePrComment($0, $1, $2, $3, $4, $5, $6) {
11714
- return Commands_PullRequest_n__10114_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $14 => $14, {a1: $6.a2, a2: {h: 0}}));
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.10114:1995:mentionPrComment */
11718
- function Commands_PullRequest_n__10114_1995_mentionPrComment($0, $1, $2, $3, $4, $5, $6) {
11719
- return Commands_PullRequest_n__10114_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $14 => $14, {a1: '@', a2: {a1: $6, a2: {h: 0}}}));
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.11030:2863:issueNumber */
11723
- function Commands_PullRequest_n__11030_2863_issueNumber($0, $1, $2) {
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.11030:2862:issueDescriptionPrefix */
11728
- function Commands_PullRequest_n__11030_2862_issueDescriptionPrefix($0, $1, $2, $3, $4, $5) {
11729
- return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getIssue($0, $2.a2, $2.a3, $3), issue => $10 => $11 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $19 => $19, {a1: '<!--\n## GitHub Issue\n', a2: {a1: issue.a2, a2: {a1: '\n--\n', a2: {a1: issue.a3, a2: {a1: '\n-->', a2: {h: 0}}}}}}), $10, $11), $4, $5);
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.11264:3101:inlineDescriptionPrompt */
11733
- function Commands_PullRequest_n__11264_3101_inlineDescriptionPrompt($0, $1, $2, $3, $4) {
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.11264:3100:getBaseBranch */
11738
- function Commands_PullRequest_n__11264_3100_getBaseBranch($0, $1, $2, $3, $4, $5, $6) {
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)), csegen_448()(), $4f, $50), $5, $6);
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.9876:1725:forkedReviews */
11746
- function Commands_PullRequest_n__9876_1725_forkedReviews($0, $1, $2, $3) {
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.9299:1180:filterString */
11751
- function Commands_PullRequest_n__9299_1180_filterString($0, $1, $2, $3, $4) {
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.10114:1994:csv */
11764
- function Commands_PullRequest_n__10114_1994_csv($0, $1, $2, $3, $4, $5, $6) {
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.11264:3099:createPR */
11769
- function Commands_PullRequest_n__11264_3099_createPR($0, $1, $2, $3, $4, $5, $6) {
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 = $103 => $104 => $105 => {
11790
- const $115 = $116 => $117 => $118 => {
11791
- const $127 = $128 => $129 => $12a => {
11792
- const $13b = title => $13c => $13d => {
11793
- const $146 = templateFilePath => $147 => $148 => {
11794
- const $14b = Data_Config_rf__editor($4);
11795
- let $14a;
11796
- switch($14b.h) {
11797
- case 0: /* nothing */ {
11798
- $14a = Util_Prompting_inlineDescription(csegen_88()(), Commands_PullRequest_n__11264_3101_inlineDescriptionPrompt($0, $1, $2, $3, $4), $103.a2);
11799
- break;
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
- return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($14a, description => $16b => $16c => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($16f => $170 => $171 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($174 => Prelude_IO_prim__putStr('Creating PR...\n', $174), $16f, $170, $171), $17c => $17d => $17e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($181 => $182 => $183 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($186 => Prelude_IO_prim__putStr(($1+'\n'), $186), $181, $182, $183), $190 => FFI_GitHub_createPR($0, $3, $4.a2, $4.a3, $1, baseBranch, title, description), $17d, $17e), $16b, $16c), $147, $148);
11807
- };
11808
- return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($140 => $141 => Util_relativeToRoot('.github/PULL_REQUEST_TEMPLATE.md', $140, $141), $146, $13c, $13d);
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($12d => $12e => Data_Promise_map_Functor_x28Promisex20x24ex29($131 => ($103.a1+Data_String_trim($131)), csegen_448()(), $12d, $12e), $13b, $129, $12a);
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($11b => $11c => $11d => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($120 => Prelude_IO_prim__putStr($103.a1, $120), $11b, $11c, $11d), $127, $117, $118);
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(Commands_PullRequest_getTitleAndBodyPrefix($4, $0, $1), $102, $fa, $fb);
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 => Commands_PullRequest_n__11264_3100_getBaseBranch($0, $1, $2, $3, $4, $ef, $f0), $f9, $eb, $ec);
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 => Commands_PullRequest_n__11264_3097_continueGivenStagedChanges($0, $1, $2, $3, $4, $4f, $50), $59, $4a, $4b);
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 => Commands_PullRequest_n__11264_3098_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $3e, $3f), $48, $3a, $3b);
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.11264:3098:continueGivenUncommittedChanges */
11838
- function Commands_PullRequest_n__11264_3098_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6) {
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), csegen_783(), $23, $24), $10, $11);
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.11264:3097:continueGivenStagedChanges */
11849
- function Commands_PullRequest_n__11264_3097_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6) {
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), csegen_783(), $23, $24), $10, $11);
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(csegen_655(), $6 => Prelude_Types_join_Monad_List(Prelude_Types_List_mapAppend({h: 0}, $c => $c.a7, $6)))($0);
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()(), csegen_690(), Prelude_Types_traverse_Traversable_List(csegen_80()(), $13 => Commands_PullRequest_n__9876_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_229(), $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);
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(csegen_309(), $15 => $15.a2, reviews);
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(csegen_309(), $18), $21, $22);
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(csegen_309(), $14.a2, $14.a1, teamMembers, {h: 0}, $2.a5);
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 = csegen_452()();
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, Commands_PullRequest_n__10114_1995_mentionPrComment($1, $5, $4, $3, $2, $0, chosenUser.a1), $7d, $7f);
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, Commands_PullRequest_n__10114_1996_namePrComment($1, $5, $4, $3, $2, $0, user), $9f, $a0), $7d, $7f);
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: Commands_PullRequest_n__10114_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);
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: Commands_PullRequest_n__10114_1999_userNotice($1, $5, $4, $3, $2, $0, chosenUser), a2: {a1: Commands_PullRequest_n__10114_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);
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(csegen_229(), csegen_388(), prJsons), $49), pulls => $54 => $55 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_join_Monad_List(pulls), $54, $55), $45, $46), $2, $3);
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 => Commands_PullRequest_n__11264_3099_createPR($1, $4, $3, $2, $0, $34, $35), $2b, $2c);
12048
- case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1: Commands_PullRequest_n__11264_3102_prCreationUrl($1, $4, $3, $2, $0)}, $2b, $2c);
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 $4d => Data_Promise_reject('Multiple PRs for the current brach. Harmony only handles 1 PR per branch currently.', $12, $4d);
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.githubTitleAndBodyPrefix : Config => Octokit => String -> Promise' (String, String) */
12061
- function Commands_PullRequest_githubTitleAndBodyPrefix($0, $1, $2) {
12062
- return $3 => Commands_PullRequest_case__githubTitleAndBodyPrefix_2940($1, $2, $0, Commands_PullRequest_n__11030_2863_issueNumber($1, $2, $0), $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.getTitleAndBodyPrefix : Config => Octokit => String -> Promise' (String, String) */
12066
- function Commands_PullRequest_getTitleAndBodyPrefix($0, $1, $2) {
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: Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($f => ($f+' - '), Util_Jira_parseJiraSlug($2))), a2: ''}, $5, $6);
12069
- case 2: return Commands_PullRequest_githubTitleAndBodyPrefix($0, $1, $2);
12070
- case 0: return $1c => $1d => Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: '', a2: ''}, $1c, $1d);
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: Commands_PullRequest_n__9299_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}}}}}}}));
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(csegen_822(), 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))));
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(csegen_822(), 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))));
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(csegen_313(), $d => $d.a3, $7, $8), $4);
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.5857:5625:issuePrompt */
12533
- function Commands_Quick_n__5857_5625_issuePrompt($0, $1, $2, $3) {
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.5857:5624:branchPrefix */
12538
- function Commands_Quick_n__5857_5624_branchPrefix($0, $1, $2, $3) {
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 => csegen_834(), $22, $23);
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 $3c = issueTitle => $3d => $3e => {
12561
- const $41 = Data_Config_rf__editor($0);
12562
- let $40;
12563
- switch($41.h) {
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
- $40 = Util_Prompting_inlineDescription(csegen_88()(), Commands_Quick_n__5857_5625_issuePrompt($1, $3, $2, $0), '');
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
- $40 = $4f => $50 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_776(), Util_Prompting_editorDescription(csegen_88()(), $41.a1, {h: 0}, ''), $4f, $50);
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 $5e = issueBody => $5f => $60 => {
12574
- const $6b = issue => {
12575
- const $6c = Prelude_Types_foldMap_Foldable_List(csegen_65()(), $72 => $72, {a1: Commands_Quick_n__5857_5624_branchPrefix($1, $3, $2, $0), a2: {a1: '/', a2: {a1: Prelude_Show_show_Show_Integer(issue.a1), a2: {a1: '/', a2: {h: 0}}}}});
12576
- return $84 => $85 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($88 => $89 => $8a => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($8d => Prelude_IO_prim__putStr('What would you like the branch to be named?\n', $8d), $88, $89, $8a), $95 => $96 => $97 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9a => $9b => $9c => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($9f => Prelude_IO_prim__putStr($6c, $9f), $9a, $9b, $9c), $a7 => $a8 => $a9 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_834(), branchSlug => System_Git_checkoutBranch(1, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $b6 => $b6, {a1: $6c, a2: {a1: branchSlug, a2: {h: 0}}})), $a8, $a9), $96, $97), $84, $85);
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), $6b, $5f, $60);
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($40, $5e, $3d, $3e);
12629
+ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4b, $69, $48, $49);
12581
12630
  };
12582
- return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($21, $3c, $1e, $1f);
12631
+ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($21, $47, $1e, $1f);
12583
12632
  };
12584
- return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_446()(), $1c, $16, $17);
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, csegen_751(), csegen_749(), 6)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
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, csegen_750(), csegen_750(), 7)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
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: csegen_839()}};
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: csegen_839()}}}));
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, csegen_729(), csegen_729(), 3)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25aa}'));
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, csegen_729(), csegen_729(), 0)($2.a1(undefined)($4.a1));
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, csegen_751(), csegen_749(), 1)($2.a1(undefined)($4.a1));
12691
- case 0: return Theme_theme($0, csegen_750(), csegen_750(), 2)($2.a1(undefined)($4.a1));
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(csegen_370(), $11 => $11.a2, $b, $c), csegen_703(), $7, $8), Data_List_sortBy(csegen_704(), $1));
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), csegen_855(), $36), a2: $41 => maxLabelLength => Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $45 => Commands_Graph_length_HasLength_Date($45), csegen_855(), $41, maxLabelLength), a3: $4d => Commands_Graph_labelLength_Graphable_x28PRsOnDatex20x24dateTyx29($0, $51 => Commands_Graph_length_HasLength_Date($51), csegen_855(), $4d), a4: $58 => Commands_Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29($0, $5c => Commands_Graph_length_HasLength_Date($5c), csegen_855(), $58), a5: $63 => Commands_Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29($0, $67 => Commands_Graph_length_HasLength_Date($67), csegen_855(), $63), a6: $6e => Commands_Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29($0, $72 => Commands_Graph_length_HasLength_Date($72), csegen_855(), $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}}}}}});
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, csegen_750(), csegen_750(), 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_751(), csegen_749(), 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_729(), csegen_729(), 3)(Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $4, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{25aa}')))), a2: {h: 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