@mattpolzin/harmony 3.2.0 → 3.3.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 (2) hide show
  1. package/harmony +864 -729
  2. package/package.json +1 -1
package/harmony CHANGED
@@ -792,6 +792,19 @@ const Prelude_IO_prim__putStr = (x=>process.stdout.write(x));
792
792
  const Prelude_IO_prim__getString = (x=>x);
793
793
  const Prelude_IO_prim__getStr = support_system_file_getStr;
794
794
  const PrimIO_prim__nullAnyPtr = (x=>x===undefined||x===null?1:0);
795
+ const FFI_Git_prim__userEmail = git_user_email;
796
+ const FFI_Git_prim__unpushedCommits = git_unpushed_commits;
797
+ const FFI_Git_prim__uncommittedChanges = git_uncommitted_changes;
798
+ const FFI_Git_prim__stagedChanges = git_staged_changes;
799
+ const FFI_Git_prim__rootDir = git_root_dir;
800
+ const FFI_Git_prim__remoteURI = git_remote_uri;
801
+ const FFI_Git_prim__remoteTrackingBranch = git_remote_tracking_branch;
802
+ const FFI_Git_prim__pushNewBranch = git_push_new_branch;
803
+ const FFI_Git_prim__push = git_push;
804
+ const FFI_Git_prim__listRemotes = git_list_remotes;
805
+ const FFI_Git_prim__git = git_git;
806
+ const FFI_Git_prim__currentBranch = git_current_branch;
807
+ const FFI_Git_prim__checkoutBranch = git_checkout_branch;
795
808
  const System_File_Virtual_prim__stdout = (x=>({fd:1, buffer: Buffer.alloc(0), name:'<stdout>', eof: false}));
796
809
  const System_File_Virtual_prim__stderr = (x=>({fd:2, buffer: Buffer.alloc(0), name:'<stderr>', eof: false}));
797
810
  const System_File_ReadWrite_prim__writeLine = ((filePtr, line) => require('fs').writeSync(filePtr.fd, line, undefined, 'utf-8'));
@@ -833,19 +846,6 @@ const FFI_GitHub_prim__createPR = okit_create_pr;
833
846
  const FFI_GitHub_prim__createComment = okit_create_comment;
834
847
  const FFI_GitHub_prim__addPullReviewers = okit_add_reviewers;
835
848
  const FFI_GitHub_prim__addLabels = okit_add_labels;
836
- const FFI_Git_prim__userEmail = git_user_email;
837
- const FFI_Git_prim__unpushedCommits = git_unpushed_commits;
838
- const FFI_Git_prim__uncommittedChanges = git_uncommitted_changes;
839
- const FFI_Git_prim__stagedChanges = git_staged_changes;
840
- const FFI_Git_prim__rootDir = git_root_dir;
841
- const FFI_Git_prim__remoteURI = git_remote_uri;
842
- const FFI_Git_prim__remoteTrackingBranch = git_remote_tracking_branch;
843
- const FFI_Git_prim__pushNewBranch = git_push_new_branch;
844
- const FFI_Git_prim__push = git_push;
845
- const FFI_Git_prim__listRemotes = git_list_remotes;
846
- const FFI_Git_prim__git = git_git;
847
- const FFI_Git_prim__currentBranch = git_current_branch;
848
- const FFI_Git_prim__checkoutBranch = git_checkout_branch;
849
849
  const System_Random_prim__randomBits32 = ((max)=>Math.floor(Math.random() * max));
850
850
  const FFI_Concurrency_prim__singleton = ((p)=>Promise.all([p]));
851
851
  const FFI_Concurrency_prim__neutral = (()=>Promise.all([]));
@@ -871,7 +871,7 @@ function x24tcOpt_1($0) {
871
871
  case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
872
872
  default: {
873
873
  const $17 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
874
- const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($22 => $23 => $0.a1.a1.a1($22)($23), csegen_492(), $1e, $1f), $17, $0.a6);
874
+ const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($22 => $23 => $0.a1.a1.a1($22)($23), csegen_585(), $1e, $1f), $17, $0.a6);
875
875
  switch($1b.a1.h) {
876
876
  case 0: /* nothing */ {
877
877
  switch($0.a8) {
@@ -886,7 +886,7 @@ function x24tcOpt_1($0) {
886
886
  }
887
887
  default: {
888
888
  const $6a = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
889
- const $6e = Data_List_DeleteBy_deleteByx27($71 => $72 => Prelude_Basics_on($75 => $76 => $0.a1.a1.a1($75)($76), csegen_492(), $71, $72), $6a, $0.a6);
889
+ const $6e = Data_List_DeleteBy_deleteByx27($71 => $72 => Prelude_Basics_on($75 => $76 => $0.a1.a1.a1($75)($76), csegen_585(), $71, $72), $6a, $0.a6);
890
890
  switch($6e.a1.h) {
891
891
  case 0: /* nothing */ {
892
892
  switch($0.a8) {
@@ -911,7 +911,7 @@ function x24tcOpt_1($0) {
911
911
  case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
912
912
  default: {
913
913
  const $c1 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
914
- const $c5 = Data_List_DeleteBy_deleteByx27($c8 => $c9 => Prelude_Basics_on($cc => $cd => $0.a1.a1.a1($cc)($cd), csegen_492(), $c8, $c9), $c1, $0.a6);
914
+ const $c5 = Data_List_DeleteBy_deleteByx27($c8 => $c9 => Prelude_Basics_on($cc => $cd => $0.a1.a1.a1($cc)($cd), csegen_585(), $c8, $c9), $c1, $0.a6);
915
915
  switch($c5.a1.h) {
916
916
  case 0: /* nothing */ {
917
917
  switch($0.a8) {
@@ -926,7 +926,7 @@ function x24tcOpt_1($0) {
926
926
  }
927
927
  default: {
928
928
  const $114 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
929
- const $118 = Data_List_DeleteBy_deleteByx27($11b => $11c => Prelude_Basics_on($11f => $120 => $0.a1.a1.a1($11f)($120), csegen_492(), $11b, $11c), $114, $0.a6);
929
+ const $118 = Data_List_DeleteBy_deleteByx27($11b => $11c => Prelude_Basics_on($11f => $120 => $0.a1.a1.a1($11f)($120), csegen_585(), $11b, $11c), $114, $0.a6);
930
930
  switch($118.a1.h) {
931
931
  case 0: /* nothing */ {
932
932
  switch($0.a8) {
@@ -2583,158 +2583,178 @@ const csegen_236 = __lazy(function () {
2583
2583
  return $6 => $7 => $0(undefined)($6)($7);
2584
2584
  });
2585
2585
 
2586
- /* {csegen:254} */
2587
- const csegen_254 = __lazy(function () {
2586
+ /* {csegen:256} */
2587
+ const csegen_256 = __lazy(function () {
2588
2588
  return {a1: acc => elem => func => init => input => Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29(func, init, input), a2: elem => acc => func => init => input => Prelude_Types_foldl_Foldable_x28Eitherx20x24ex29(func, init, input), a3: elem => $b => Prelude_Types_null_Foldable_x28Eitherx20x24ex29($b), a4: elem => acc => m => $f => funcM => init => input => Prelude_Types_foldlM_Foldable_x28Eitherx20x24ex29($f, funcM, init, input), a5: elem => $16 => Prelude_Types_toList_Foldable_x28Eitherx20x24ex29($16), a6: a => m => $1a => f => $1b => Prelude_Types_foldMap_Foldable_x28Eitherx20x24ex29($1a, f, $1b)};
2589
2589
  });
2590
2590
 
2591
- /* {csegen:258} */
2592
- const csegen_258 = __lazy(function () {
2591
+ /* {csegen:260} */
2592
+ const csegen_260 = __lazy(function () {
2593
2593
  return b => a => f => $0 => $1 => $2 => Prelude_Types_traverse_Traversable_x28Eitherx20x24ex29($0, $1, $2);
2594
2594
  });
2595
2595
 
2596
- /* {csegen:272} */
2597
- const csegen_272 = __lazy(function () {
2596
+ /* {csegen:274} */
2597
+ const csegen_274 = __lazy(function () {
2598
2598
  return {a1: $1 => $2 => _add32s($1, $2), a2: $6 => $7 => _mul32s($6, $7), a3: $b => Number(_truncBigInt32($b))};
2599
2599
  });
2600
2600
 
2601
- /* {csegen:296} */
2602
- const csegen_296 = __lazy(function () {
2603
- return $0 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($0));
2601
+ /* {csegen:294} */
2602
+ const csegen_294 = __lazy(function () {
2603
+ return {a1: Help_argument(0, '...'), a2: {h: 0}};
2604
+ });
2605
+
2606
+ /* {csegen:299} */
2607
+ const csegen_299 = __lazy(function () {
2608
+ return {a1: Help_argument(0, '#<label>'), a2: csegen_294()};
2609
+ });
2610
+
2611
+ /* {csegen:305} */
2612
+ const csegen_305 = __lazy(function () {
2613
+ return {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Optionally apply any number of labels by prefixing them with \'#\'.'), a2: {h: 0}};
2604
2614
  });
2605
2615
 
2606
- /* {csegen:297} */
2607
- const csegen_297 = __lazy(function () {
2616
+ /* {csegen:323} */
2617
+ const csegen_323 = __lazy(function () {
2618
+ return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('.'), a2: {h: 0}});
2619
+ });
2620
+
2621
+ /* {csegen:341} */
2622
+ const csegen_341 = __lazy(function () {
2623
+ return {a1: Help_argument(1, '<team-slug>'), a2: {h: 0}};
2624
+ });
2625
+
2626
+ /* {csegen:393} */
2627
+ const csegen_393 = __lazy(function () {
2608
2628
  return $0 => $1 => $2 => $3 => Data_Promise_x3ex3ex3d_Monad_Promise($0, $1, $2, $3);
2609
2629
  });
2610
2630
 
2611
- /* {csegen:298} */
2612
- const csegen_298 = __lazy(function () {
2631
+ /* {csegen:394} */
2632
+ const csegen_394 = __lazy(function () {
2613
2633
  return $0 => $1 => Data_Promise_either(csegen_51(), Data_PullRequest_parsePullRequestsString($0), $1);
2614
2634
  });
2615
2635
 
2616
- /* {csegen:299} */
2617
- const csegen_299 = __lazy(function () {
2636
+ /* {csegen:395} */
2637
+ const csegen_395 = __lazy(function () {
2618
2638
  return $0 => $1 => Data_Promise_either(csegen_51(), Data_User_parseUserString($0), $1);
2619
2639
  });
2620
2640
 
2621
- /* {csegen:304} */
2622
- const csegen_304 = __lazy(function () {
2641
+ /* {csegen:400} */
2642
+ const csegen_400 = __lazy(function () {
2623
2643
  return $0 => $1 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($0, $1);
2624
2644
  });
2625
2645
 
2626
- /* {csegen:317} */
2627
- const csegen_317 = __lazy(function () {
2646
+ /* {csegen:413} */
2647
+ const csegen_413 = __lazy(function () {
2628
2648
  return $0 => Language_JSON_Accessors_array($3 => Data_PullRequest_parsePR($3), $0);
2629
2649
  });
2630
2650
 
2631
- /* {csegen:325} */
2632
- const csegen_325 = __lazy(function () {
2651
+ /* {csegen:421} */
2652
+ const csegen_421 = __lazy(function () {
2633
2653
  return $0 => $1 => $2 => Data_Promise_pure_Applicative_Promise($0, $1, $2);
2634
2654
  });
2635
2655
 
2636
- /* {csegen:326} */
2637
- const csegen_326 = __lazy(function () {
2656
+ /* {csegen:422} */
2657
+ const csegen_422 = __lazy(function () {
2638
2658
  return $0 => Prelude_EqOrd_x3dx3d_Eq_Char($0, '/');
2639
2659
  });
2640
2660
 
2641
- /* {csegen:327} */
2642
- const csegen_327 = __lazy(function () {
2661
+ /* {csegen:423} */
2662
+ const csegen_423 = __lazy(function () {
2643
2663
  return $0 => $0.a2;
2644
2664
  });
2645
2665
 
2646
- /* {csegen:331} */
2647
- const csegen_331 = __lazy(function () {
2666
+ /* {csegen:427} */
2667
+ const csegen_427 = __lazy(function () {
2648
2668
  return $0 => $0.a1;
2649
2669
  });
2650
2670
 
2651
- /* {csegen:342} */
2652
- const csegen_342 = __lazy(function () {
2671
+ /* {csegen:438} */
2672
+ const csegen_438 = __lazy(function () {
2653
2673
  return $0 => $1 => Data_Promise_map_Functor_Promise($4 => Number(_truncUBigInt32($4)), System_time(csegen_72()), $0, $1);
2654
2674
  });
2655
2675
 
2656
- /* {csegen:347} */
2657
- const csegen_347 = __lazy(function () {
2676
+ /* {csegen:443} */
2677
+ const csegen_443 = __lazy(function () {
2658
2678
  return $0 => $1 => $2 => $3 => Prelude_Types_map_Functor_Maybe($2, $3);
2659
2679
  });
2660
2680
 
2661
- /* {csegen:360} */
2662
- const csegen_360 = __lazy(function () {
2681
+ /* {csegen:456} */
2682
+ const csegen_456 = __lazy(function () {
2663
2683
  return $0 => $1 => $2 => Data_Promise_liftIO_HasIO_Promise($5 => Prelude_IO_prim__getStr($5), $0, $1, $2);
2664
2684
  });
2665
2685
 
2666
- /* {csegen:362} */
2667
- const csegen_362 = __lazy(function () {
2686
+ /* {csegen:458} */
2687
+ const csegen_458 = __lazy(function () {
2668
2688
  return $0 => $1 => Data_Promise_pure_Applicative_Promise({h: 0}, $0, $1);
2669
2689
  });
2670
2690
 
2671
- /* {csegen:392} */
2672
- const csegen_392 = __lazy(function () {
2691
+ /* {csegen:486} */
2692
+ const csegen_486 = __lazy(function () {
2673
2693
  return {a1: csegen_9(), a2: a => ({h: 0}), a3: a => $4 => $5 => Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, $5)};
2674
2694
  });
2675
2695
 
2676
- /* {csegen:393} */
2677
- const csegen_393 = __lazy(function () {
2696
+ /* {csegen:487} */
2697
+ const csegen_487 = __lazy(function () {
2678
2698
  return $0 => Data_List_sort(csegen_212(), $0);
2679
2699
  });
2680
2700
 
2681
- /* {csegen:394} */
2682
- const csegen_394 = __lazy(function () {
2701
+ /* {csegen:488} */
2702
+ const csegen_488 = __lazy(function () {
2683
2703
  return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_144(), $0, $1, $2);
2684
2704
  });
2685
2705
 
2686
- /* {csegen:402} */
2687
- const csegen_402 = __lazy(function () {
2706
+ /* {csegen:494} */
2707
+ const csegen_494 = __lazy(function () {
2688
2708
  return $0 => $0.a1;
2689
2709
  });
2690
2710
 
2691
- /* {csegen:404} */
2692
- const csegen_404 = __lazy(function () {
2711
+ /* {csegen:496} */
2712
+ const csegen_496 = __lazy(function () {
2693
2713
  return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
2694
2714
  });
2695
2715
 
2696
- /* {csegen:405} */
2697
- const csegen_405 = __lazy(function () {
2716
+ /* {csegen:497} */
2717
+ const csegen_497 = __lazy(function () {
2698
2718
  return $0 => $0.a2;
2699
2719
  });
2700
2720
 
2701
- /* {csegen:406} */
2702
- const csegen_406 = __lazy(function () {
2703
- return $0 => $1 => Prelude_Basics_on(csegen_404(), csegen_405(), $0, $1);
2721
+ /* {csegen:498} */
2722
+ const csegen_498 = __lazy(function () {
2723
+ return $0 => $1 => Prelude_Basics_on(csegen_496(), csegen_497(), $0, $1);
2704
2724
  });
2705
2725
 
2706
- /* {csegen:419} */
2707
- const csegen_419 = __lazy(function () {
2726
+ /* {csegen:511} */
2727
+ const csegen_511 = __lazy(function () {
2708
2728
  return $0 => $0.a2;
2709
2729
  });
2710
2730
 
2711
- /* {csegen:422} */
2712
- const csegen_422 = __lazy(function () {
2731
+ /* {csegen:514} */
2732
+ const csegen_514 = __lazy(function () {
2713
2733
  return $0 => $0.a1;
2714
2734
  });
2715
2735
 
2716
- /* {csegen:428} */
2717
- const csegen_428 = __lazy(function () {
2736
+ /* {csegen:520} */
2737
+ const csegen_520 = __lazy(function () {
2718
2738
  return date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('earliest:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date(date)), a2: {h: 0}}}));
2719
2739
  });
2720
2740
 
2721
- /* {csegen:457} */
2722
- const csegen_457 = __lazy(function () {
2741
+ /* {csegen:550} */
2742
+ const csegen_550 = __lazy(function () {
2723
2743
  return $0 => Util_yesNoPrompt(csegen_72(), 'Would you like to continue creating a Pull Request anyway?');
2724
2744
  });
2725
2745
 
2726
- /* {csegen:492} */
2727
- const csegen_492 = __lazy(function () {
2746
+ /* {csegen:585} */
2747
+ const csegen_585 = __lazy(function () {
2728
2748
  return $0 => $0.a1;
2729
2749
  });
2730
2750
 
2731
- /* {csegen:504} */
2732
- const csegen_504 = __lazy(function () {
2751
+ /* {csegen:597} */
2752
+ const csegen_597 = __lazy(function () {
2733
2753
  return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}};
2734
2754
  });
2735
2755
 
2736
- /* {csegen:523} */
2737
- const csegen_523 = __lazy(function () {
2756
+ /* {csegen:616} */
2757
+ const csegen_616 = __lazy(function () {
2738
2758
  return {a1: ann => $1 => Graph_pretty_Pretty_Date($1), a2: ann => $5 => $6 => Graph_prettyPrec_Pretty_Date($5, $6)};
2739
2759
  });
2740
2760
 
@@ -2743,18 +2763,18 @@ function prim__sub_Integer($0, $1) {
2743
2763
  return ($0-$1);
2744
2764
  }
2745
2765
 
2746
- /* Main.8124:1348:parsePg */
2747
- function Main_n__8124_1348_parsePg($0, $1, $2, $3, $4, $5, $6) {
2766
+ /* Main.8197:1349:parsePg */
2767
+ function Main_n__8197_1349_parsePg($0, $1, $2, $3, $4, $5, $6) {
2748
2768
  return Data_String_parsePositive(csegen_2(), $6);
2749
2769
  }
2750
2770
 
2751
- /* Main.8124:1347:parseLim */
2752
- function Main_n__8124_1347_parseLim($0, $1, $2, $3, $4, $5) {
2771
+ /* Main.8197:1348:parseLim */
2772
+ function Main_n__8197_1348_parseLim($0, $1, $2, $3, $4, $5) {
2753
2773
  return Prelude_Interfaces_x3cx3dx3c(csegen_14(), x => Data_Fin_natToFin(x, 101n), $e => Data_String_parsePositive(csegen_2(), $e));
2754
2774
  }
2755
2775
 
2756
- /* Main.7985:1149:configuredOpts */
2757
- function Main_n__7985_1149_configuredOpts($0, $1, $2, $3) {
2776
+ /* Main.8058:1150:configuredOpts */
2777
+ function Main_n__8058_1150_configuredOpts($0, $1, $2, $3) {
2758
2778
  const $11 = $12 => {
2759
2779
  switch($12.h) {
2760
2780
  case 1: /* Right */ return $0.a1.a1.a2(undefined)(BashCompletion_opts($12.a1, $3, $2, $1));
@@ -2821,25 +2841,29 @@ function Main_main($0) {
2821
2841
  return csegen_40()($36);
2822
2842
  });
2823
2843
  const $1a = $1b($0);
2824
- let $48;
2844
+ const $43 = Prelude_Interfaces_when(csegen_24(), Prelude_Types_x3dx3d_Eq_x28Maybex20x24ax29(csegen_39(), Data_List_headx27($e), {a1: 'help'}), () => $52 => {
2845
+ const $53 = Prelude_IO_prim__putStr((Help_subcommandHelp($1, Data_Maybe_fromMaybe(() => '', Data_List_headx27(Data_List_drop(1n, $e))))+'\n'), $52);
2846
+ return csegen_40()($52);
2847
+ })($0);
2848
+ let $6d;
2825
2849
  switch(Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_39(), $e, {a1: 'version', a2: {h: 0}})) {
2826
2850
  case 1: {
2827
- $48 = 1;
2851
+ $6d = 1;
2828
2852
  break;
2829
2853
  }
2830
2854
  case 0: {
2831
- $48 = Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_39(), $e, {a1: '--version', a2: {h: 0}});
2855
+ $6d = Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_39(), $e, {a1: '--version', a2: {h: 0}});
2832
2856
  break;
2833
2857
  }
2834
2858
  }
2835
- const $44 = Prelude_Interfaces_when(csegen_24(), $48, () => $59 => {
2836
- const $5a = AppVersion_printVersion(csegen_31())($59);
2837
- return csegen_40()($59);
2859
+ const $69 = Prelude_Interfaces_when(csegen_24(), $6d, () => $7e => {
2860
+ const $7f = AppVersion_printVersion(csegen_31())($7e);
2861
+ return csegen_40()($7e);
2838
2862
  });
2839
- const $43 = $44($0);
2840
- const $64 = System_getEnv(csegen_31(), 'GITHUB_PAT')($0);
2841
- const $6b = FFI_Git_git(csegen_31())($0);
2842
- return Main_handleArgs($6b, $64, $1, $7, $e)($0);
2863
+ const $68 = $69($0);
2864
+ const $89 = System_getEnv(csegen_31(), 'GITHUB_PAT')($0);
2865
+ const $90 = FFI_Git_git(csegen_31())($0);
2866
+ return Main_handleArgs($90, $89, $1, $7, $e)($0);
2843
2867
  }
2844
2868
 
2845
2869
  /* Main.handleConfiguredArgs : Config => Git => Maybe String -> List String -> Promise () */
@@ -2992,7 +3016,7 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
2992
3016
  }
2993
3017
  return Prelude_Types_x3ex3ex3d_Monad_Maybe($b1, filter => ({a1: {a1: filter, a2: {a1: $ae.a1, a2: $ae.a2}}}));
2994
3018
  };
2995
- const $8e = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $96 => $97 => ({a1: $96, a2: $97})}, Main_n__8124_1347_parseLim($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0)($3.a2.a2.a2.a1)), Main_n__8124_1348_parsePg($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0, $3.a2.a2.a2.a2.a1)), $ad);
3019
+ const $8e = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $96 => $97 => ({a1: $96, a2: $97})}, Main_n__8197_1348_parseLim($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0)($3.a2.a2.a2.a1)), Main_n__8197_1349_parsePg($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0, $3.a2.a2.a2.a2.a1)), $ad);
2996
3020
  return $be => {
2997
3021
  switch($8e.h) {
2998
3022
  case undefined: /* just */ return $c0 => Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequestsJsonStr($2, $0.a2, $0.a3, $8e.a1.a1, $8e.a1.a2.a1, $8e.a1.a2.a2), pullsJsonStr => $cf => $d0 => $d1 => Data_Promise_liftIO_HasIO_Promise($d4 => Prelude_IO_prim__putStr(pullsJsonStr, $d4), $cf, $d0, $d1), $be, $c0);
@@ -3221,7 +3245,7 @@ function Main_exitError($0, $1) {
3221
3245
 
3222
3246
  /* Main.bashCompletion : HasIO io => String -> String -> String -> io () */
3223
3247
  function Main_bashCompletion($0, $1, $2, $3) {
3224
- const $4 = Prelude_Types_maybe(() => Main_n__7985_1149_configuredOpts($0, $3, $2, $1), () => $d => $0.a1.a1.a2(undefined)($d), BashCompletion_cmdOpts($1, $2, $3));
3248
+ const $4 = Prelude_Types_maybe(() => Main_n__8058_1150_configuredOpts($0, $3, $2, $1), () => $d => $0.a1.a1.a2(undefined)($d), BashCompletion_cmdOpts($1, $2, $3));
3225
3249
  return $0.a1.a2(undefined)(undefined)($4)($24 => $0.a2(undefined)($2a => Prelude_IO_prim__putStr(Data_String_fastUnlines($24), $2a)));
3226
3250
  }
3227
3251
 
@@ -4199,6 +4223,24 @@ function Prelude_Types_x3ex3d_Ord_Nat($0, $1) {
4199
4223
  return Prelude_EqOrd_x2fx3d_Eq_Ordering(Prelude_EqOrd_compare_Ord_Integer($0, $1), 0);
4200
4224
  }
4201
4225
 
4226
+ /* Prelude.Types.== */
4227
+ function Prelude_Types_x3dx3d_Eq_x28Maybex20x24ax29($0, $1, $2) {
4228
+ switch($1.h) {
4229
+ case 0: /* nothing */ {
4230
+ switch($2.h) {
4231
+ case 0: /* nothing */ return 1;
4232
+ case undefined: /* just */ return 0;
4233
+ }
4234
+ }
4235
+ case undefined: /* just */ {
4236
+ switch($2.h) {
4237
+ case 0: /* nothing */ return 0;
4238
+ case undefined: /* just */ return $0.a1($1.a1)($2.a1);
4239
+ }
4240
+ }
4241
+ }
4242
+ }
4243
+
4202
4244
  /* Prelude.Types.<|> */
4203
4245
  function Prelude_Types_x3cx7cx3e_Alternative_Maybe($0, $1) {
4204
4246
  switch($0.h) {
@@ -5770,8 +5812,8 @@ function BashCompletion_case__unhashify_9324($0, $1) {
5770
5812
  }
5771
5813
  }
5772
5814
 
5773
- /* BashCompletion.4630:10022:slugsOrLoginsOrLabels */
5774
- function BashCompletion_n__4630_10022_slugsOrLoginsOrLabels($0, $1, $2) {
5815
+ /* BashCompletion.4641:10034:slugsOrLoginsOrLabels */
5816
+ function BashCompletion_n__4641_10034_slugsOrLoginsOrLabels($0, $1, $2) {
5775
5817
  switch(Data_String_isPrefixOf('+', $1)) {
5776
5818
  case 1: return Prelude_Types_List_mapAppend({h: 0}, $a => ('+'+$a), $2.a11);
5777
5819
  case 0: {
@@ -5903,7 +5945,7 @@ function BashCompletion_opts($0, $1, $2, $3) {
5903
5945
  default: {
5904
5946
  switch(Data_String_isPrefixOf($2, '--dry')) {
5905
5947
  case 1: return {a1: '--dry', a2: {h: 0}};
5906
- case 0: return BashCompletion_n__4630_10022_slugsOrLoginsOrLabels($3, $2, $0);
5948
+ case 0: return BashCompletion_n__4641_10034_slugsOrLoginsOrLabels($3, $2, $0);
5907
5949
  }
5908
5950
  }
5909
5951
  }
@@ -5938,10 +5980,30 @@ function BashCompletion_cmdOpts($0, $1, $2) {
5938
5980
  switch($0) {
5939
5981
  case 'sync': return {a1: {h: 0}};
5940
5982
  case 'health': return {a1: {h: 0}};
5941
- case 'help': return {a1: {h: 0}};
5942
5983
  case '--help': return {a1: {h: 0}};
5943
5984
  case 'reflect': return {a1: {h: 0}};
5944
5985
  case 'version': return {a1: {h: 0}};
5986
+ case 'help': {
5987
+ switch($1) {
5988
+ case '--': {
5989
+ switch($2) {
5990
+ case 'help': return {a1: BashCompletion_allRootCmds()};
5991
+ default: {
5992
+ switch($2) {
5993
+ case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $21 => Data_String_isPrefixOf($1, $21), BashCompletion_allRootCmds())};
5994
+ default: return {h: 0};
5995
+ }
5996
+ }
5997
+ }
5998
+ }
5999
+ default: {
6000
+ switch($2) {
6001
+ case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $2c => Data_String_isPrefixOf($1, $2c), BashCompletion_allRootCmds())};
6002
+ default: return {h: 0};
6003
+ }
6004
+ }
6005
+ }
6006
+ }
5945
6007
  case 'pr': {
5946
6008
  switch($1) {
5947
6009
  case '-': {
@@ -6042,15 +6104,35 @@ function BashCompletion_cmdOpts($0, $1, $2) {
6042
6104
  }
6043
6105
  default: {
6044
6106
  switch($2) {
6045
- case 'harmony': return {a1: Prelude_Types_List_filterAppend({h: 0}, $66 => Data_String_isPrefixOf($1, $66), BashCompletion_allRootCmds())};
6107
+ case 'harmony': return {a1: Prelude_Types_List_filterAppend({h: 0}, $7f => Data_String_isPrefixOf($1, $7f), BashCompletion_allRootCmds())};
6046
6108
  default: {
6047
6109
  switch($0) {
6048
6110
  case 'sync': return {a1: {h: 0}};
6049
6111
  case 'health': return {a1: {h: 0}};
6050
- case 'help': return {a1: {h: 0}};
6051
6112
  case '--help': return {a1: {h: 0}};
6052
6113
  case 'reflect': return {a1: {h: 0}};
6053
6114
  case 'version': return {a1: {h: 0}};
6115
+ case 'help': {
6116
+ switch($1) {
6117
+ case '--': {
6118
+ switch($2) {
6119
+ case 'help': return {a1: BashCompletion_allRootCmds()};
6120
+ default: {
6121
+ switch($2) {
6122
+ case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $94 => Data_String_isPrefixOf($1, $94), BashCompletion_allRootCmds())};
6123
+ default: return {h: 0};
6124
+ }
6125
+ }
6126
+ }
6127
+ }
6128
+ default: {
6129
+ switch($2) {
6130
+ case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $9f => Data_String_isPrefixOf($1, $9f), BashCompletion_allRootCmds())};
6131
+ default: return {h: 0};
6132
+ }
6133
+ }
6134
+ }
6135
+ }
6054
6136
  case 'pr': {
6055
6137
  switch($1) {
6056
6138
  case '-': {
@@ -7186,106 +7268,480 @@ function Data_Vect_fromList($0) {
7186
7268
  return Data_Vect_reverse(Data_Vect_fromListx27({h: 0}, $0));
7187
7269
  }
7188
7270
 
7189
- /* System.File.copyFile : HasIO io => String -> String -> io (Either (FileError, Int) ()) */
7190
- function System_File_copyFile($0, $1, $2) {
7191
- const $f = $10 => {
7192
- switch($10.h) {
7193
- case 1: /* Right */ return $0.a1.a2(undefined)(undefined)($0.a1.a1.a2(undefined)(Data_Buffer_prim__bufferSize($10.a1)))($25 => System_File_Buffer_writeBufferToFile($0, $2, $10.a1, $25));
7194
- case 0: /* Left */ return $0.a1.a1.a2(undefined)({h: 0 /* Left */, a1: {a1: $10.a1, a2: Number(_truncBigInt32(0n))}});
7195
- }
7196
- };
7197
- return $0.a1.a2(undefined)(undefined)(System_File_Buffer_createBufferFromFile($0, $1))($f);
7271
+ /* Util.with block in yesNoPrompt,yesUnlessNo */
7272
+ function Util_with__yesNoPromptx2cyesUnlessNo_1292($0, $1, $2, $3, $4) {
7273
+ switch($4) {
7274
+ case 'n': return 0;
7275
+ case 'no': return 0;
7276
+ default: return 1;
7277
+ }
7198
7278
  }
7199
7279
 
7200
- /* System.File.Virtual.stdout : File */
7201
- const System_File_Virtual_stdout = __lazy(function () {
7202
- return System_File_Virtual_prim__stdout();
7203
- });
7280
+ /* Util.5058:1284:yesUnlessNo */
7281
+ function Util_n__5058_1284_yesUnlessNo($0, $1, $2) {
7282
+ return Util_with__yesNoPromptx2cyesUnlessNo_1292(undefined, $0, $1, $2, Data_String_toLower($2));
7283
+ }
7204
7284
 
7205
- /* System.File.Virtual.stderr : File */
7206
- const System_File_Virtual_stderr = __lazy(function () {
7207
- return System_File_Virtual_prim__stderr();
7285
+ /* Util.5161:1391:startOver */
7286
+ const Util_n__5161_1391_startOver = __lazy(function () {
7287
+ return {a1: 0, a2: {h: 0}};
7208
7288
  });
7209
7289
 
7210
- /* System.File.Support.ok : HasIO io => a -> io (Either err a) */
7211
- function System_File_Support_ok($0, $1) {
7212
- return $0.a1.a1.a2(undefined)({h: 1 /* Right */, a1: $1});
7213
- }
7214
-
7215
- /* System.File.ReadWrite.writeFile : HasIO io => String -> String -> io (Either FileError ()) */
7216
- function System_File_ReadWrite_writeFile($0, $1, $2) {
7217
- return System_File_Handle_withFile($0, $1, 1, $8 => $0.a1.a1.a2(undefined)($8), $11 => Prelude_Basics_flip($14 => $15 => System_File_ReadWrite_fPutStr($0, $14, $15), $2, $11));
7290
+ /* Util.5161:1390:guardSuccess */
7291
+ function Util_n__5161_1390_guardSuccess($0) {
7292
+ switch($0.h) {
7293
+ case undefined: /* cons */ {
7294
+ switch($0.a1) {
7295
+ case 3: return {a1: $0.a2};
7296
+ case 4: return {a1: $0.a2};
7297
+ default: return {h: 0};
7298
+ }
7299
+ }
7300
+ default: return {h: 0};
7301
+ }
7218
7302
  }
7219
7303
 
7220
- /* System.File.ReadWrite.removeFile : HasIO io => String -> io (Either FileError ()) */
7221
- function System_File_ReadWrite_removeFile($0, $1) {
7222
- const $14 = res => {
7223
- switch(Prelude_EqOrd_x3dx3d_Eq_Int(res, Number(_truncBigInt32(0n)))) {
7224
- case 1: return System_File_Support_ok($0, undefined);
7225
- case 0: return System_File_Error_returnError($0);
7304
+ /* Util.5161:1389:go */
7305
+ function Util_n__5161_1389_go($0, $1) {
7306
+ switch($0.a1) {
7307
+ case 0: {
7308
+ switch(Prelude_Types_isAlpha($1)) {
7309
+ case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
7310
+ case 0: return Util_n__5161_1391_startOver();
7311
+ }
7226
7312
  }
7227
- };
7228
- return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($10 => System_File_ReadWrite_prim__removeFile($1, $10)))($14);
7313
+ case 1: {
7314
+ switch($1) {
7315
+ case '-': return {a1: 2, a2: {a1: '-', a2: $0.a2}};
7316
+ default: {
7317
+ switch(Prelude_Types_isAlpha($1)) {
7318
+ case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
7319
+ case 0: return Util_n__5161_1391_startOver();
7320
+ }
7321
+ }
7322
+ }
7323
+ }
7324
+ case 2: {
7325
+ switch(Prelude_Types_isDigit($1)) {
7326
+ case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
7327
+ case 0: return Util_n__5161_1391_startOver();
7328
+ }
7329
+ }
7330
+ case 3: {
7331
+ switch(Prelude_Types_isDigit($1)) {
7332
+ case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
7333
+ case 0: return {a1: 4, a2: $0.a2};
7334
+ }
7335
+ }
7336
+ case 4: return {a1: 4, a2: $0.a2};
7337
+ }
7229
7338
  }
7230
7339
 
7231
- /* System.File.ReadWrite.readLinesOnto : HasIO io => List String -> Nat -> Fuel -> File -> io (Either FileError (Bool,
7232
- List String)) */
7233
- function System_File_ReadWrite_readLinesOnto($0, $1, $2, $3, $4) {
7234
- switch($3.h) {
7235
- case 0: /* nothing */ return $0.a1.a1.a2(undefined)({h: 1 /* Right */, a1: {a1: 0, a2: Prelude_Types_List_reverse($1)}});
7340
+ /* Util.4945:1172:getMoreLines */
7341
+ function Util_n__4945_1172_getMoreLines($0, $1, $2) {
7342
+ switch($2.h) {
7343
+ case 0: /* nothing */ return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1));
7236
7344
  case undefined: /* just */ {
7237
- const $1e = $1f => {
7238
- switch($1f) {
7239
- case 0: {
7240
- switch($2) {
7241
- case 0n: {
7242
- const $27 = b => a => func => $28 => {
7243
- switch($28.h) {
7244
- case 0: /* Left */ return {h: 0 /* Left */, a1: $28.a1};
7245
- case 1: /* Right */ return {h: 1 /* Right */, a1: func($28.a1)};
7246
- }
7247
- };
7248
- const $31 = b => a => $32 => $33 => {
7249
- switch($32.h) {
7250
- case 0: /* Left */ return {h: 0 /* Left */, a1: $32.a1};
7251
- case 1: /* Right */ {
7252
- switch($33.h) {
7253
- case 1: /* Right */ return {h: 1 /* Right */, a1: $32.a1($33.a1)};
7254
- case 0: /* Left */ return {h: 0 /* Left */, a1: $33.a1};
7255
- }
7256
- }
7257
- }
7258
- };
7259
- const $26 = {a1: $27, a2: a => $2f => ({h: 1 /* Right */, a1: $2f}), a3: $31};
7260
- const $25 = {a1: $26, a2: csegen_198(), a3: csegen_199()};
7261
- const $40 = b => a => func => $41 => {
7262
- switch($41.h) {
7263
- case 0: /* Left */ return {h: 0 /* Left */, a1: $41.a1};
7264
- case 1: /* Right */ return {h: 1 /* Right */, a1: func($41.a1)};
7265
- }
7266
- };
7267
- const $3f = {a1: $40, a2: csegen_254(), a3: csegen_258()};
7268
- return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, $25, $3f, System_File_ReadWrite_fGetLine($0, $4), str => System_File_ReadWrite_readLinesOnto($0, {a1: str, a2: $1}, 0n, $3.a1(), $4));
7345
+ const $2c = line => {
7346
+ switch($1.h) {
7347
+ case undefined: /* cons */ {
7348
+ switch($1.a1) {
7349
+ case '': {
7350
+ switch(line) {
7351
+ case '': return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1.a2));
7352
+ default: return Util_n__4945_1172_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
7353
+ }
7269
7354
  }
7270
- default: {
7271
- const $59 = ($2-1n);
7272
- const $5e = b => a => func => $5f => {
7273
- const $65 = $66 => $67 => $68 => $69 => {
7274
- switch($69.h) {
7275
- case 0: /* Left */ return {h: 0 /* Left */, a1: $69.a1};
7276
- case 1: /* Right */ return {h: 1 /* Right */, a1: $68($69.a1)};
7277
- }
7278
- };
7279
- return Prelude_Interfaces_Functor_map_Functor_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1.a1, $65, func, $5f);
7280
- };
7281
- const $71 = a => $72 => {
7282
- const $78 = b => $79 => func => $7a => {
7283
- switch($7a.h) {
7284
- case 0: /* Left */ return {h: 0 /* Left */, a1: $7a.a1};
7285
- case 1: /* Right */ return {h: 1 /* Right */, a1: func($7a.a1)};
7286
- }
7287
- };
7288
- const $84 = b => $85 => $86 => $87 => {
7355
+ default: return Util_n__4945_1172_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
7356
+ }
7357
+ }
7358
+ default: return Util_n__4945_1172_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
7359
+ }
7360
+ };
7361
+ 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);
7362
+ }
7363
+ }
7364
+ }
7365
+
7366
+ /* Util.yesNoPrompt : HasIO io => String -> io Bool */
7367
+ function Util_yesNoPrompt($0, $1) {
7368
+ return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($10 => Prelude_IO_prim__putStr(Prelude_Types_foldMap_Foldable_List(csegen_49(), $17 => $17, {a1: $1, a2: {a1: ' [Y/n] ', a2: {h: 0}}}), $10)))($1f => $0.a1.a1.a1(undefined)(undefined)($2a => Util_n__5058_1284_yesUnlessNo($0, $1, Data_String_trim($2a)))($0.a2(undefined)($37 => Prelude_IO_prim__getStr($37))));
7369
+ }
7370
+
7371
+ /* Util.whenNothing : Applicative f => Maybe a -> f () -> f () */
7372
+ function Util_whenNothing($0, $1, $2) {
7373
+ switch($1.h) {
7374
+ case 0: /* nothing */ return $2;
7375
+ case undefined: /* just */ return $0.a2(undefined)(undefined);
7376
+ }
7377
+ }
7378
+
7379
+ /* Util.renderString : Config => Doc AnsiStyle -> String */
7380
+ function Util_renderString($0, $1) {
7381
+ let $7;
7382
+ switch(Data_Config_rf__colors($0)) {
7383
+ case 1: {
7384
+ $7 = $1;
7385
+ break;
7386
+ }
7387
+ case 0: {
7388
+ $7 = Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($1);
7389
+ break;
7390
+ }
7391
+ }
7392
+ const $3 = Text_PrettyPrint_Prettyprinter_Doc_layoutPretty(Text_PrettyPrint_Prettyprinter_Doc_defaultLayoutOptions(), $7);
7393
+ return Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString($3);
7394
+ }
7395
+
7396
+ /* Util.renderIO : Config => HasIO io => Doc AnsiStyle -> io () */
7397
+ function Util_renderIO($0, $1, $2) {
7398
+ const $7 = $8 => {
7399
+ let $a;
7400
+ switch(Data_Config_rf__colors($0)) {
7401
+ case 1: {
7402
+ $a = $2;
7403
+ break;
7404
+ }
7405
+ case 0: {
7406
+ $a = Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($2);
7407
+ break;
7408
+ }
7409
+ }
7410
+ return Text_PrettyPrint_Prettyprinter_Render_Terminal_putDoc($a, $8);
7411
+ };
7412
+ return $1.a2(undefined)($7);
7413
+ }
7414
+
7415
+ /* Util.relativeToRoot : Git => String -> Promise String */
7416
+ function Util_relativeToRoot($0, $1, $2, $3) {
7417
+ return Data_Promise_map_Functor_Promise($6 => ($6+Prelude_Types_foldMap_Foldable_List(csegen_49(), $d => $d, {a1: '/', a2: {a1: $1, a2: {h: 0}}})), $14 => $15 => FFI_Git_rootDir($0, $14, $15), $2, $3);
7418
+ }
7419
+
7420
+ /* Util.parseJiraPrefix : String -> Maybe String */
7421
+ function Util_parseJiraPrefix($0) {
7422
+ return Prelude_Types_map_Functor_Maybe($3 => Prelude_Types_fastPack(Prelude_Types_List_reverse($3)), Util_n__5161_1390_guardSuccess(Prelude_Types_foldl_Foldable_List($d => $e => Util_n__5161_1389_go($d, $e), Util_n__5161_1391_startOver(), Prelude_Types_fastUnpack($0))));
7423
+ }
7424
+
7425
+ /* Util.getManyLines : HasIO io => Fuel -> io (List String) */
7426
+ function Util_getManyLines($0, $1) {
7427
+ return Util_n__4945_1172_getMoreLines($0, {h: 0}, $1);
7428
+ }
7429
+
7430
+ /* FFI.Git.case block in unpushedCommits */
7431
+ function FFI_Git_case__unpushedCommits_2011($0, $1, $2) {
7432
+ switch($1) {
7433
+ case '': {
7434
+ switch($2.h) {
7435
+ case 0: /* nil */ return {h: 0};
7436
+ default: return {a1: $1};
7437
+ }
7438
+ }
7439
+ default: return {a1: $1};
7440
+ }
7441
+ }
7442
+
7443
+ /* FFI.Git.case block in stagedChanges */
7444
+ function FFI_Git_case__stagedChanges_1948($0, $1, $2) {
7445
+ switch($1) {
7446
+ case '': {
7447
+ switch($2.h) {
7448
+ case 0: /* nil */ return {h: 0};
7449
+ default: return {a1: $1};
7450
+ }
7451
+ }
7452
+ default: return {a1: $1};
7453
+ }
7454
+ }
7455
+
7456
+ /* FFI.Git.case block in uncommittedChanges */
7457
+ function FFI_Git_case__uncommittedChanges_1885($0, $1, $2) {
7458
+ switch($1) {
7459
+ case '': {
7460
+ switch($2.h) {
7461
+ case 0: /* nil */ return {h: 0};
7462
+ default: return {a1: $1};
7463
+ }
7464
+ }
7465
+ default: return {a1: $1};
7466
+ }
7467
+ }
7468
+
7469
+ /* FFI.Git.case block in remoteTrackingBranch */
7470
+ function FFI_Git_case__remoteTrackingBranch_1822($0, $1, $2) {
7471
+ switch($1) {
7472
+ case '': {
7473
+ switch($2.h) {
7474
+ case 0: /* nil */ return {h: 0};
7475
+ default: return {a1: $1};
7476
+ }
7477
+ }
7478
+ default: return {a1: $1};
7479
+ }
7480
+ }
7481
+
7482
+ /* FFI.Git.userEmail : Git => Promise String */
7483
+ function FFI_Git_userEmail($0, $1, $2) {
7484
+ return FFI_promiseIO($5 => $6 => $7 => FFI_Git_prim__userEmail($0, $5, $6, $7), $1, $2);
7485
+ }
7486
+
7487
+ /* FFI.Git.unpushedCommits : Git => Promise (Maybe String) */
7488
+ function FFI_Git_unpushedCommits($0, $1, $2) {
7489
+ return Data_Promise_x3ex3ex3d_Monad_Promise($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__unpushedCommits($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__unpushedCommits_2011($0, str, Data_String_strM(str)), $14, $15), $1, $2);
7490
+ }
7491
+
7492
+ /* FFI.Git.uncommittedChanges : Git => Promise (Maybe String) */
7493
+ function FFI_Git_uncommittedChanges($0, $1, $2) {
7494
+ return Data_Promise_x3ex3ex3d_Monad_Promise($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__uncommittedChanges($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__uncommittedChanges_1885($0, str, Data_String_strM(str)), $14, $15), $1, $2);
7495
+ }
7496
+
7497
+ /* FFI.Git.stagedChanges : Git => Promise (Maybe String) */
7498
+ function FFI_Git_stagedChanges($0, $1, $2) {
7499
+ return Data_Promise_x3ex3ex3d_Monad_Promise($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__stagedChanges($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__stagedChanges_1948($0, str, Data_String_strM(str)), $14, $15), $1, $2);
7500
+ }
7501
+
7502
+ /* FFI.Git.rootDir : Git => Promise String */
7503
+ function FFI_Git_rootDir($0, $1, $2) {
7504
+ return FFI_promiseIO($5 => $6 => $7 => FFI_Git_prim__rootDir($0, $5, $6, $7), $1, $2);
7505
+ }
7506
+
7507
+ /* FFI.Git.remoteURI : Git => String -> Promise String */
7508
+ function FFI_Git_remoteURI($0, $1, $2, $3) {
7509
+ return FFI_promiseIO($6 => $7 => $8 => FFI_Git_prim__remoteURI($0, $1, $6, $7, $8), $2, $3);
7510
+ }
7511
+
7512
+ /* FFI.Git.remoteTrackingBranch : Git => Promise (Maybe String) */
7513
+ function FFI_Git_remoteTrackingBranch($0, $1, $2) {
7514
+ return Data_Promise_x3ex3ex3d_Monad_Promise($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__remoteTrackingBranch($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__remoteTrackingBranch_1822($0, str, Data_String_strM(str)), $14, $15), $1, $2);
7515
+ }
7516
+
7517
+ /* FFI.Git.pushNewBranch : Git => String -> String -> Promise () */
7518
+ function FFI_Git_pushNewBranch($0, $1, $2, $3, $4) {
7519
+ return Data_Promise_map_Functor_Promise($7 => (undefined), $9 => $a => FFI_promiseIO($d => $e => $f => FFI_Git_prim__pushNewBranch($0, $1, $2, $d, $e, $f), $9, $a), $3, $4);
7520
+ }
7521
+
7522
+ /* FFI.Git.push : Git => Promise () */
7523
+ function FFI_Git_push($0, $1, $2) {
7524
+ return Data_Promise_map_Functor_Promise($5 => (undefined), $7 => $8 => FFI_promiseIO($b => $c => $d => FFI_Git_prim__push($0, $b, $c, $d), $7, $8), $1, $2);
7525
+ }
7526
+
7527
+ /* FFI.Git.listRemotes : Git => Promise (List String) */
7528
+ function FFI_Git_listRemotes($0, $1, $2) {
7529
+ return Data_Promise_map_Functor_Promise($5 => Data_String_lines($5), $9 => $a => FFI_promiseIO($d => $e => $f => FFI_Git_prim__listRemotes($0, $d, $e, $f), $9, $a), $1, $2);
7530
+ }
7531
+
7532
+ /* FFI.Git.git : HasIO io => io Git */
7533
+ function FFI_Git_git($0) {
7534
+ return $0.a1.a1.a1(undefined)(undefined)($b => $b)($0.a2(undefined)($12 => FFI_Git_prim__git($12)));
7535
+ }
7536
+
7537
+ /* FFI.Git.currentBranch : Git => Promise String */
7538
+ function FFI_Git_currentBranch($0, $1, $2) {
7539
+ return FFI_promiseIO($5 => $6 => $7 => FFI_Git_prim__currentBranch($0, $5, $6, $7), $1, $2);
7540
+ }
7541
+
7542
+ /* FFI.Git.checkoutBranch : Git => String -> Promise () */
7543
+ function FFI_Git_checkoutBranch($0, $1, $2, $3) {
7544
+ return Data_Promise_map_Functor_Promise($6 => (undefined), $8 => $9 => FFI_promiseIO($c => $d => $e => FFI_Git_prim__checkoutBranch($0, $1, $c, $d, $e), $8, $9), $2, $3);
7545
+ }
7546
+
7547
+ /* FFI.promiseIO : ((String -> PrimIO ()) -> (String -> PrimIO ()) -> PrimIO ()) -> Promise String */
7548
+ function FFI_promiseIO($0, $1, $2) {
7549
+ return Data_Promise_promisify(ok => notOk => $0(res => ok(res))(err => notOk(err)), $1, $2);
7550
+ }
7551
+
7552
+ /* Data.Promise.pure */
7553
+ function Data_Promise_pure_Applicative_Promise($0, $1, $2) {
7554
+ return $1($0);
7555
+ }
7556
+
7557
+ /* Data.Promise.map */
7558
+ function Data_Promise_map_Functor_Promise($0, $1, $2, $3) {
7559
+ return $1(x => $2($0(x)))($3);
7560
+ }
7561
+
7562
+ /* Data.Promise.liftIO */
7563
+ function Data_Promise_liftIO_HasIO_Promise($0, $1, $2, $3) {
7564
+ const $4 = $0($3);
7565
+ return $1($4)($3);
7566
+ }
7567
+
7568
+ /* Data.Promise.join */
7569
+ function Data_Promise_join_Monad_Promise($0) {
7570
+ return $1 => $2 => Data_Promise_x3ex3ex3d_Monad_Promise($0, $6 => $6, $1, $2);
7571
+ }
7572
+
7573
+ /* Data.Promise.>>= */
7574
+ function Data_Promise_x3ex3ex3d_Monad_Promise($0, $1, $2, $3) {
7575
+ return Data_Promise_bind($0, $1, $2, $3);
7576
+ }
7577
+
7578
+ /* Data.Promise.<|> */
7579
+ function Data_Promise_x3cx7cx3e_Alternative_Promise($0, $1, $2, $3) {
7580
+ const $7 = $8 => {
7581
+ const $b = $1();
7582
+ const $a = $b;
7583
+ const $9 = $a($2);
7584
+ return $9($3);
7585
+ };
7586
+ return $0($2)($7);
7587
+ }
7588
+
7589
+ /* Data.Promise.<*> */
7590
+ function Data_Promise_x3cx2ax3e_Applicative_Promise($0, $1, $2, $3) {
7591
+ return Data_Promise_bind($0, f => $7 => $8 => Data_Promise_map_Functor_Promise(f, $1, $7, $8), $2, $3);
7592
+ }
7593
+
7594
+ /* Data.Promise.resolve' : (a -> IO ()) -> (String -> IO ()) -> Promise a -> IO () */
7595
+ function Data_Promise_resolvex27($0, $1, $2) {
7596
+ return $2($0)($1);
7597
+ }
7598
+
7599
+ /* Data.Promise.reject : String -> Promise a */
7600
+ function Data_Promise_reject($0, $1, $2) {
7601
+ return $2($0);
7602
+ }
7603
+
7604
+ /* Data.Promise.promisify : PromiseShape a -> Promise a */
7605
+ function Data_Promise_promisify($0, $1, $2) {
7606
+ return $0($1)($2);
7607
+ }
7608
+
7609
+ /* Data.Promise.either : Show e => Either e a -> Promise a */
7610
+ function Data_Promise_either($0, $1, $2) {
7611
+ return $3 => {
7612
+ switch($1.h) {
7613
+ case 0: /* Left */ return Data_Promise_reject($0.a1($1.a1), $2, $3);
7614
+ case 1: /* Right */ return Data_Promise_pure_Applicative_Promise($1.a1, $2, $3);
7615
+ }
7616
+ };
7617
+ }
7618
+
7619
+ /* Data.Promise.bind : Promise a -> (a -> Promise b) -> Promise b */
7620
+ function Data_Promise_bind($0, $1, $2, $3) {
7621
+ const $6 = x => {
7622
+ const $7 = $1(x);
7623
+ return $7($2)($3);
7624
+ };
7625
+ const $4 = $0($6);
7626
+ return $4($3);
7627
+ }
7628
+
7629
+ /* Data.Fuel.limit : Nat -> Fuel */
7630
+ function Data_Fuel_limit($0) {
7631
+ switch($0) {
7632
+ case 0n: return {h: 0};
7633
+ default: {
7634
+ const $2 = ($0-1n);
7635
+ return {a1: () => Data_Fuel_limit($2)};
7636
+ }
7637
+ }
7638
+ }
7639
+
7640
+ /* Data.Fuel.forever : Fuel */
7641
+ const Data_Fuel_forever = __lazy(function () {
7642
+ return {a1: () => Data_Fuel_forever()};
7643
+ });
7644
+
7645
+ /* System.File.copyFile : HasIO io => String -> String -> io (Either (FileError, Int) ()) */
7646
+ function System_File_copyFile($0, $1, $2) {
7647
+ const $f = $10 => {
7648
+ switch($10.h) {
7649
+ case 1: /* Right */ return $0.a1.a2(undefined)(undefined)($0.a1.a1.a2(undefined)(Data_Buffer_prim__bufferSize($10.a1)))($25 => System_File_Buffer_writeBufferToFile($0, $2, $10.a1, $25));
7650
+ case 0: /* Left */ return $0.a1.a1.a2(undefined)({h: 0 /* Left */, a1: {a1: $10.a1, a2: Number(_truncBigInt32(0n))}});
7651
+ }
7652
+ };
7653
+ return $0.a1.a2(undefined)(undefined)(System_File_Buffer_createBufferFromFile($0, $1))($f);
7654
+ }
7655
+
7656
+ /* System.File.Virtual.stdout : File */
7657
+ const System_File_Virtual_stdout = __lazy(function () {
7658
+ return System_File_Virtual_prim__stdout();
7659
+ });
7660
+
7661
+ /* System.File.Virtual.stderr : File */
7662
+ const System_File_Virtual_stderr = __lazy(function () {
7663
+ return System_File_Virtual_prim__stderr();
7664
+ });
7665
+
7666
+ /* System.File.Support.ok : HasIO io => a -> io (Either err a) */
7667
+ function System_File_Support_ok($0, $1) {
7668
+ return $0.a1.a1.a2(undefined)({h: 1 /* Right */, a1: $1});
7669
+ }
7670
+
7671
+ /* System.File.ReadWrite.writeFile : HasIO io => String -> String -> io (Either FileError ()) */
7672
+ function System_File_ReadWrite_writeFile($0, $1, $2) {
7673
+ return System_File_Handle_withFile($0, $1, 1, $8 => $0.a1.a1.a2(undefined)($8), $11 => Prelude_Basics_flip($14 => $15 => System_File_ReadWrite_fPutStr($0, $14, $15), $2, $11));
7674
+ }
7675
+
7676
+ /* System.File.ReadWrite.removeFile : HasIO io => String -> io (Either FileError ()) */
7677
+ function System_File_ReadWrite_removeFile($0, $1) {
7678
+ const $14 = res => {
7679
+ switch(Prelude_EqOrd_x3dx3d_Eq_Int(res, Number(_truncBigInt32(0n)))) {
7680
+ case 1: return System_File_Support_ok($0, undefined);
7681
+ case 0: return System_File_Error_returnError($0);
7682
+ }
7683
+ };
7684
+ return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($10 => System_File_ReadWrite_prim__removeFile($1, $10)))($14);
7685
+ }
7686
+
7687
+ /* System.File.ReadWrite.readLinesOnto : HasIO io => List String -> Nat -> Fuel -> File -> io (Either FileError (Bool,
7688
+ List String)) */
7689
+ function System_File_ReadWrite_readLinesOnto($0, $1, $2, $3, $4) {
7690
+ switch($3.h) {
7691
+ case 0: /* nothing */ return $0.a1.a1.a2(undefined)({h: 1 /* Right */, a1: {a1: 0, a2: Prelude_Types_List_reverse($1)}});
7692
+ case undefined: /* just */ {
7693
+ const $1e = $1f => {
7694
+ switch($1f) {
7695
+ case 0: {
7696
+ switch($2) {
7697
+ case 0n: {
7698
+ const $27 = b => a => func => $28 => {
7699
+ switch($28.h) {
7700
+ case 0: /* Left */ return {h: 0 /* Left */, a1: $28.a1};
7701
+ case 1: /* Right */ return {h: 1 /* Right */, a1: func($28.a1)};
7702
+ }
7703
+ };
7704
+ const $31 = b => a => $32 => $33 => {
7705
+ switch($32.h) {
7706
+ case 0: /* Left */ return {h: 0 /* Left */, a1: $32.a1};
7707
+ case 1: /* Right */ {
7708
+ switch($33.h) {
7709
+ case 1: /* Right */ return {h: 1 /* Right */, a1: $32.a1($33.a1)};
7710
+ case 0: /* Left */ return {h: 0 /* Left */, a1: $33.a1};
7711
+ }
7712
+ }
7713
+ }
7714
+ };
7715
+ const $26 = {a1: $27, a2: a => $2f => ({h: 1 /* Right */, a1: $2f}), a3: $31};
7716
+ const $25 = {a1: $26, a2: csegen_198(), a3: csegen_199()};
7717
+ const $40 = b => a => func => $41 => {
7718
+ switch($41.h) {
7719
+ case 0: /* Left */ return {h: 0 /* Left */, a1: $41.a1};
7720
+ case 1: /* Right */ return {h: 1 /* Right */, a1: func($41.a1)};
7721
+ }
7722
+ };
7723
+ const $3f = {a1: $40, a2: csegen_256(), a3: csegen_260()};
7724
+ return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, $25, $3f, System_File_ReadWrite_fGetLine($0, $4), str => System_File_ReadWrite_readLinesOnto($0, {a1: str, a2: $1}, 0n, $3.a1(), $4));
7725
+ }
7726
+ default: {
7727
+ const $59 = ($2-1n);
7728
+ const $5e = b => a => func => $5f => {
7729
+ const $65 = $66 => $67 => $68 => $69 => {
7730
+ switch($69.h) {
7731
+ case 0: /* Left */ return {h: 0 /* Left */, a1: $69.a1};
7732
+ case 1: /* Right */ return {h: 1 /* Right */, a1: $68($69.a1)};
7733
+ }
7734
+ };
7735
+ return Prelude_Interfaces_Functor_map_Functor_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1.a1, $65, func, $5f);
7736
+ };
7737
+ const $71 = a => $72 => {
7738
+ const $78 = b => $79 => func => $7a => {
7739
+ switch($7a.h) {
7740
+ case 0: /* Left */ return {h: 0 /* Left */, a1: $7a.a1};
7741
+ case 1: /* Right */ return {h: 1 /* Right */, a1: func($7a.a1)};
7742
+ }
7743
+ };
7744
+ const $84 = b => $85 => $86 => $87 => {
7289
7745
  switch($86.h) {
7290
7746
  case 0: /* Left */ return {h: 0 /* Left */, a1: $86.a1};
7291
7747
  case 1: /* Right */ {
@@ -7566,22 +8022,6 @@ const System_Info_isWindows = __lazy(function () {
7566
8022
  return Prelude_Types_elem(csegen_144(), csegen_39(), System_Info_os(), {a1: 'windows', a2: {a1: 'mingw32', a2: {a1: 'cygwin32', a2: {h: 0}}}});
7567
8023
  });
7568
8024
 
7569
- /* Data.Fuel.limit : Nat -> Fuel */
7570
- function Data_Fuel_limit($0) {
7571
- switch($0) {
7572
- case 0n: return {h: 0};
7573
- default: {
7574
- const $2 = ($0-1n);
7575
- return {a1: () => Data_Fuel_limit($2)};
7576
- }
7577
- }
7578
- }
7579
-
7580
- /* Data.Fuel.forever : Fuel */
7581
- const Data_Fuel_forever = __lazy(function () {
7582
- return {a1: () => Data_Fuel_forever()};
7583
- });
7584
-
7585
8025
  /* System.File.Meta.isTTY : HasIO io => File -> io Bool */
7586
8026
  function System_File_Meta_isTTY($0, $1) {
7587
8027
  return $0.a1.a1.a1(undefined)(undefined)($c => Prelude_EqOrd_x2fx3d_Eq_Int($c, Number(_truncBigInt32(0n))))($0.a2(undefined)($17 => System_File_Meta_prim__fileIsTTY($1, $17)));
@@ -7718,7 +8158,7 @@ function System_getEnv($0, $1) {
7718
8158
  function System_getArgs($0) {
7719
8159
  const $12 = n => {
7720
8160
  switch(Prelude_EqOrd_x3e_Ord_Int(n, Number(_truncBigInt32(0n)))) {
7721
- 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_272(), 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_272(), 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)));
8161
+ case 1: return Prelude_Basics_flip($1a => $1b => Prelude_Types_traverse_Traversable_List($0.a1.a1, $1a, $1b), Prelude_Types_rangeFromTo_Range_x24a({a1: {a1: csegen_274(), 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_274(), 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)));
7722
8162
  case 0: return $0.a1.a1.a2(undefined)({h: 0});
7723
8163
  }
7724
8164
  };
@@ -7743,42 +8183,121 @@ function System_exitFailure($0) {
7743
8183
  return System_exitWith($0, {a1: 1, a2: undefined});
7744
8184
  }
7745
8185
 
7746
- /* Help.4720:1024:subcommand */
7747
- function Help_n__4720_1024_subcommand($0, $1) {
7748
- return Help_n__4720_1021_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(5), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
8186
+ /* Help.subcommandHelp' : String -> Doc AnsiStyle */
8187
+ function Help_subcommandHelpx27($0) {
8188
+ switch($0) {
8189
+ case 'label': return Help_subcommand($0, {a1: Help_argument(1, '<label>'), a2: csegen_294()}, {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Add one or more labels to a PR, creating a new PR if one does not exist.'), Text_PrettyPrint_Prettyprinter_Doc_line()), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Labels that do not exist yet will be created automatically.')), a2: {h: 0}});
8190
+ case 'assign': return Help_subcommand($0, {a1: Help_argument(1, '<team-slug> | +<user-login>'), a2: csegen_299()}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $2a => $2a, {a1: 'Assign the given team(s) and one lucky member from one of those teams\nto review the PR for the current branch.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $36 => $36, {a1: 'Also assign any users with logins specified. You specify these\nadditional users by prefixing their logins with \'+\'.', a2: {h: 0}})), a2: csegen_305()}});
8191
+ case 'config': return Help_subcommand($0, {a1: Help_argument(1, '<property>'), a2: {a1: Help_argument(0, '<value>'), a2: {h: 0}}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $59 => $59, {a1: 'Get or set the value of a configuration property. Not all properties\ncan be set and read via this subcommand.', a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_line()), Help_argumentx27('properties')), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(':'), a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_concatWith(a => b => Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(a, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(','), a2: {h: 0}})), b), Prelude_Types_List_mapAppend({h: 0}, $7e => Help_option($7e), Data_Config_settablePropNames())), csegen_323())), a2: {h: 0}});
8192
+ case 'pr': return Help_subcommand($0, {a1: Help_argument(0, '--draft'), a2: csegen_299()}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Identify an existing PR or create a new one for the current branch.'), a2: csegen_305()});
8193
+ case 'contribute': return Help_subcommand($0, {a1: Help_argument(0, '-c/--checkout'), a2: {a1: Help_argument(0, '-<num>'), a2: {a1: Help_argument(0, '-i/--ignore {<uri>/<pr-number>}'), a2: {h: 0}}}}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $af => $af, {a1: 'Contribute to an open PR. Prints a URL. Prioritizes PRs you are\nrequested to review but will also return other PRs.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $bb => $bb, {a1: 'Use dash followed by a number (e.g. \'-3\') to skip that number of\npotential PRs and return the next.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $c7 => $c7, {a1: 'Specify a PR to ignore (only affects the local Harmony config on\nthis machine) if you would like to more permanently skip a potential\nPR. Do this with the \'--ignore\' option followed by a GitHub URI or\nPull Request number.', a2: {h: 0}})), a2: {h: 0}}}});
8194
+ case 'graph': return Help_subcommand($0, {a1: Help_argument(0, '-c/--completed'), a2: csegen_341()}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Graph the relative review workload of the members of the given GitHub Team.'), a2: {h: 0}});
8195
+ case 'help': return Help_subcommand($0, {a1: Help_argument(0, '<subcommand>'), a2: {h: 0}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print help'), a2: {h: 0}});
8196
+ case 'version': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print version'), a2: {h: 0}});
8197
+ case 'sync': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Synchronize local config with information from GitHub.'), a2: {h: 0}});
8198
+ case 'branch': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print the GitHub URI for the currently checked out branch.'), a2: {h: 0}});
8199
+ case 'whoami': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print information about the configured and authenticated user.'), a2: {h: 0}});
8200
+ case 'reflect': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Reflect on the current state of ones own PRs and review requests.'), a2: {h: 0}});
8201
+ case 'list': return Help_subcommand($0, csegen_341(), {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('List the members of the given GitHub Team.'), a2: {h: 0}});
8202
+ case 'health': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Graph all open PRs grouped by the month they were created.'), a2: {h: 0}});
8203
+ default: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $126 => $126, {a1: 'Unreconized command: ', a2: {a1: $0, a2: {h: 0}}}));
8204
+ }
8205
+ }
8206
+
8207
+ /* Help.subcommandHelp : Bool -> String -> String */
8208
+ function Help_subcommandHelp($0, $1) {
8209
+ const $2 = $3 => {
8210
+ switch($0) {
8211
+ case 1: return $3;
8212
+ case 0: return Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($3);
8213
+ }
8214
+ };
8215
+ return Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString(Text_PrettyPrint_Prettyprinter_Doc_layoutPretty(Text_PrettyPrint_Prettyprinter_Doc_defaultLayoutOptions(), $2(Help_subcommandHelpx27($1))));
8216
+ }
8217
+
8218
+ /* Help.subcommand' : String -> Doc AnsiStyle */
8219
+ function Help_subcommandx27($0) {
8220
+ return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(5), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($0));
8221
+ }
8222
+
8223
+ /* Help.subcommand : String -> List (Doc AnsiStyle) -> List (Doc AnsiStyle) -> Doc AnsiStyle */
8224
+ function Help_subcommand($0, $1, $2) {
8225
+ const $3 = Help_subcommandx27($0);
8226
+ const $6 = Text_PrettyPrint_Prettyprinter_Doc_hsep($1);
8227
+ const $9 = Text_PrettyPrint_Prettyprinter_Doc_concatWith(p => q => Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(p, Text_PrettyPrint_Prettyprinter_Doc_line()), Text_PrettyPrint_Prettyprinter_Doc_line()), q), $2);
8228
+ return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e($3, Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29($6, Text_PrettyPrint_Prettyprinter_Doc_line()), Text_PrettyPrint_Prettyprinter_Doc_indent(4, $9)));
7749
8229
  }
7750
8230
 
7751
- /* Help.4720:1023:shell */
7752
- function Help_n__4720_1023_shell($0, $1) {
7753
- return Help_n__4720_1021_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
8231
+ /* Help.shell : String -> Doc AnsiStyle */
8232
+ function Help_shell($0) {
8233
+ return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($0));
7754
8234
  }
7755
8235
 
7756
- /* Help.4720:1022:option */
7757
- function Help_n__4720_1022_option($0, $1) {
7758
- return Help_n__4720_1021_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_bold(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
8236
+ /* Help.option : String -> Doc AnsiStyle */
8237
+ function Help_option($0) {
8238
+ return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_bold(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($0));
7759
8239
  }
7760
8240
 
7761
- /* Help.4720:1021:maybeDecorate */
7762
- function Help_n__4720_1021_maybeDecorate($0, $1, $2) {
8241
+ /* Help.helpDocs : Doc AnsiStyle */
8242
+ const Help_helpDocs = __lazy(function () {
8243
+ return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('harmony'), Help_subcommandx27('<subcommand>')), a2: {a1: Help_heading('Subcommands', Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Help_subcommandHelpx27('assign'), a2: {a1: Help_subcommandHelpx27('branch'), a2: {a1: Help_subcommandHelpx27('config'), a2: {a1: Help_subcommandHelpx27('contribute'), a2: {a1: Help_subcommandHelpx27('graph'), a2: {a1: Help_subcommandHelpx27('health'), a2: {a1: Help_subcommandHelpx27('help'), a2: {a1: Help_subcommandHelpx27('label'), a2: {a1: Help_subcommandHelpx27('list'), a2: {a1: Help_subcommandHelpx27('pr'), a2: {a1: Help_subcommandHelpx27('reflect'), a2: {a1: Help_subcommandHelpx27('sync'), a2: {a1: Help_subcommandHelpx27('version'), a2: {a1: Help_subcommandHelpx27('whoami'), a2: {h: 0}}}}}}}}}}}}}}})), a2: {a1: Help_heading('Prompt Completion', Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $57 => $57, {a1: 'You can set up bash completion by adding the following to your bashrc\nfile or bash profile:', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_vsep({h: 0}), a2: {a1: Help_shell('eval \"$(harmony --bash-completion-script)\"'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_vsep({h: 0}), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $6f => $6f, {a1: 'You can set up zsh completion by adding the following to your zshrc\nfile or zsh profile:', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_vsep({h: 0}), a2: {a1: Help_shell('eval \"$(harmony --zsh-completion-script)\"'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_vsep({h: 0}), a2: {h: 0}}}}}}}}})), a2: {h: 0}}}});
8244
+ });
8245
+
8246
+ /* Help.help : Bool -> String */
8247
+ function Help_help($0) {
8248
+ const $1 = $2 => {
8249
+ switch($0) {
8250
+ case 1: return $2;
8251
+ case 0: return Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($2);
8252
+ }
8253
+ };
8254
+ return Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString(Text_PrettyPrint_Prettyprinter_Doc_layoutPretty(Text_PrettyPrint_Prettyprinter_Doc_defaultLayoutOptions(), $1(Help_helpDocs())));
8255
+ }
8256
+
8257
+ /* Help.heading : String -> Doc AnsiStyle -> Doc AnsiStyle */
8258
+ function Help_heading($0, $1) {
8259
+ const $2 = Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($0));
8260
+ return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_line(), $2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(':')), Text_PrettyPrint_Prettyprinter_Doc_line()), Text_PrettyPrint_Prettyprinter_Doc_indent(2, $1));
8261
+ }
8262
+
8263
+ /* Help.argument' : String -> Doc AnsiStyle */
8264
+ function Help_argumentx27($0) {
8265
+ return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($0));
8266
+ }
8267
+
8268
+ /* Help.argument : Bool -> String -> Doc AnsiStyle */
8269
+ function Help_argument($0, $1) {
8270
+ const $2 = Help_argumentx27($1);
7763
8271
  switch($0) {
7764
- case 1: return Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString(Text_PrettyPrint_Prettyprinter_Doc_layoutPretty(Text_PrettyPrint_Prettyprinter_Doc_defaultLayoutOptions(), $1($2)));
7765
- case 0: return $2;
8272
+ case 1: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('{'), $2), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('}'), a2: {h: 0}}));
8273
+ case 0: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('['), $2), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(']'), a2: {h: 0}}));
8274
+ }
8275
+ }
8276
+
8277
+ /* Text.PrettyPrint.Prettyprinter.Util.case block in words,helper */
8278
+ function Text_PrettyPrint_Prettyprinter_Util_case__wordsx2chelper_5200($0, $1, $2) {
8279
+ switch($2.h) {
8280
+ case 0: /* nil */ return {h: 0};
8281
+ default: {
8282
+ const $4 = Data_List_break$($7 => Prelude_Types_isSpace($7), $2);
8283
+ return {a1: $4.a1, a2: Text_PrettyPrint_Prettyprinter_Util_n__3825_5188_helper($0, $4.a2)};
8284
+ }
7766
8285
  }
7767
8286
  }
7768
8287
 
7769
- /* Help.4720:1020:heading */
7770
- function Help_n__4720_1020_heading($0, $1) {
7771
- return Help_n__4720_1021_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
8288
+ /* Text.PrettyPrint.Prettyprinter.Util.3825:5188:helper */
8289
+ function Text_PrettyPrint_Prettyprinter_Util_n__3825_5188_helper($0, $1) {
8290
+ return Text_PrettyPrint_Prettyprinter_Util_case__wordsx2chelper_5200($0, $1, Data_List_dropWhile($8 => Prelude_Types_isSpace($8), $1));
7772
8291
  }
7773
8292
 
7774
- /* Help.4720:1019:argument */
7775
- function Help_n__4720_1019_argument($0, $1) {
7776
- return Help_n__4720_1021_maybeDecorate($0, csegen_296(), $1);
8293
+ /* Text.PrettyPrint.Prettyprinter.Util.words : String -> List (Doc ann) */
8294
+ function Text_PrettyPrint_Prettyprinter_Util_words($0) {
8295
+ return Prelude_Types_List_mapAppend({h: 0}, $4 => Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4), Prelude_Types_List_mapAppend({h: 0}, $b => Prelude_Types_fastPack($b), Text_PrettyPrint_Prettyprinter_Util_n__3825_5188_helper($0, Prelude_Types_fastUnpack($0))));
7777
8296
  }
7778
8297
 
7779
- /* Help.help : Bool -> String */
7780
- function Help_help($0) {
7781
- return Prelude_Types_foldMap_Foldable_List(csegen_49(), $5 => $5, {a1: 'harmony ', a2: {a1: Help_n__4720_1024_subcommand($0, '<subcommand>'), a2: {a1: '\n\n', a2: {a1: Help_n__4720_1020_heading($0, 'Subcommands'), a2: {a1: ':\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'help'), a2: {a1: '\n - Print help\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'version'), a2: {a1: '\n - Print version\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'config'), a2: {a1: ' {', a2: {a1: Help_n__4720_1019_argument($0, '<property>'), a2: {a1: '} [', a2: {a1: Help_n__4720_1019_argument($0, '<value>'), a2: {a1: ']\n - Get or set the value of a configuration property. Not all properties\n can be set and read via this subcommand.\n ', a2: {a1: Help_n__4720_1019_argument($0, 'properties'), a2: {a1: ': ', a2: {a1: Data_String_Extra_join(', ', csegen_144(), Prelude_Types_List_mapAppend({h: 0}, $4a => Help_n__4720_1022_option($0, $4a), Data_Config_settablePropNames())), a2: {a1: '.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'sync'), a2: {a1: '\n - Synchronize local config with information from GitHub.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'branch'), a2: {a1: '\n - Print the GitHub URI for the currently checked out branch.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'pr'), a2: {a1: ' [', a2: {a1: Help_n__4720_1019_argument($0, '--draft'), a2: {a1: '] [', a2: {a1: Help_n__4720_1019_argument($0, '#<label>'), a2: {a1: '] [...]\n - Identify an existing PR or create a new one for the current branch.\n \n Optionally apply any number of labels by prefixing them with \'#\'.\n\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'contribute'), a2: {a1: ' [', a2: {a1: Help_n__4720_1019_argument($0, '-c/--checkout'), a2: {a1: '] [', a2: {a1: Help_n__4720_1019_argument($0, '-<num>'), a2: {a1: '] [', a2: {a1: Help_n__4720_1019_argument($0, '-i/--ignore'), a2: {a1: ' {', a2: {a1: Help_n__4720_1019_argument($0, '<uri>/<pr-number>'), a2: {a1: '}]\n - Contribute to an open PR. Prints a URL. Prioritizes PRs you are\n requested to review but will also return other PRs.\n\n Use dash followed by a number (e.g. \'-3\') to skip that number of\n potential PRs and return the next.\n\n Specify a PR to ignore (only affects the local Harmony config on\n this machine) if you would like to more permanently skip a potential\n PR. Do this with the \'--ignore\' option followed by a GitHub URI or\n Pull Request number.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'whoami'), a2: {a1: '\n - Print information about the configured and authenticated user.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'reflect'), a2: {a1: '\n - Reflect on the current state of ones own PRs and review requests.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'list'), a2: {a1: ' {', a2: {a1: Help_n__4720_1019_argument($0, '<team-slug>'), a2: {a1: '}\n - List the members of the given GitHub Team.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'graph'), a2: {a1: ' [', a2: {a1: Help_n__4720_1019_argument($0, '-c/--completed'), a2: {a1: '] {', a2: {a1: Help_n__4720_1019_argument($0, '<team-slug>'), a2: {a1: '}\n - Graph the relative review workload of the members of the given GitHub Team.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'health'), a2: {a1: '\n - Graph all open PRs grouped by the month they were created.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'label'), a2: {a1: ' {', a2: {a1: Help_n__4720_1019_argument($0, '<label>'), a2: {a1: '} [...]\n - Add one or more labels to a PR, creating a new PR if one does not exist.\n Labels that do not exist yet will be created automatically.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'assign'), a2: {a1: ' {', a2: {a1: Help_n__4720_1019_argument($0, '<team-slug>'), a2: {a1: ' | ', a2: {a1: Help_n__4720_1019_argument($0, '+<user-login>'), a2: {a1: '} [', a2: {a1: Help_n__4720_1019_argument($0, '#<label>'), a2: {a1: '] [...]\n - Assign the given team(s) and one lucky member from one of those teams\n to review the PR for the current branch.\n \n Also assign any users with logins specified. You specify these\n additional users by prefixing their logins with \'+\'.\n\n Optionally apply any number of labels by prefixing them with \'#\'.\n \n', a2: {a1: Help_n__4720_1020_heading($0, 'Bash Completion'), a2: {a1: ':\n You can set up bash completion by adding the following to your resource\n or bash profile:\n \n ', a2: {a1: Help_n__4720_1023_shell($0, 'eval \"$(harmony --bash-completion-script)\"'), a2: {a1: '\n \n Zsh users will also need to have the following in their resource or\n zsh profile before the above eval:\n \n ', a2: {a1: Help_n__4720_1023_shell($0, 'autoload -U +X compinit && compinit'), a2: {a1: '\n ', a2: {a1: Help_n__4720_1023_shell($0, 'autoload -U +X bashcompinit && bashcompinit'), a2: {a1: '\n ', a2: {h: 0}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}});
8298
+ /* Text.PrettyPrint.Prettyprinter.Util.reflow : String -> Doc ann */
8299
+ function Text_PrettyPrint_Prettyprinter_Util_reflow($0) {
8300
+ return Text_PrettyPrint_Prettyprinter_Doc_fillSep(Text_PrettyPrint_Prettyprinter_Util_words($0));
7782
8301
  }
7783
8302
 
7784
8303
  /* FFI.GitHub.show */
@@ -7836,12 +8355,12 @@ function FFI_GitHub_listPullRequestsJsonStr($0, $1, $2, $3, $4, $5) {
7836
8355
  String -> String -> Maybe GitHubPRState -> Fin 101 -> {default 0 _ : Nat} ->
7837
8356
  Promise (List PullRequest) */
7838
8357
  function FFI_GitHub_listPullRequests($0, $1, $2, $3, $4, $5) {
7839
- return Prelude_Basics_flip(csegen_297(), csegen_298(), FFI_GitHub_listPullRequestsJsonStr($0, $1, $2, $3, $4, $5));
8358
+ return Prelude_Basics_flip(csegen_393(), csegen_394(), FFI_GitHub_listPullRequestsJsonStr($0, $1, $2, $3, $4, $5));
7840
8359
  }
7841
8360
 
7842
8361
  /* FFI.GitHub.listPRsForBranch : Octokit => String -> String -> String -> Promise (List PullRequest) */
7843
8362
  function FFI_GitHub_listPRsForBranch($0, $1, $2, $3) {
7844
- return Prelude_Basics_flip(csegen_297(), csegen_298(), $a => $b => FFI_promiseIO($e => $f => $10 => FFI_GitHub_prim__listPRsForBranch($0, $1, $2, $3, $e, $f, $10), $a, $b));
8363
+ return Prelude_Basics_flip(csegen_393(), csegen_394(), $a => $b => FFI_promiseIO($e => $f => $10 => FFI_GitHub_prim__listPRsForBranch($0, $1, $2, $3, $e, $f, $10), $a, $b));
7845
8364
  }
7846
8365
 
7847
8366
  /* FFI.GitHub.listOrgMembers : Octokit => String -> Promise (List String) */
@@ -7856,12 +8375,12 @@ function FFI_GitHub_listMyTeams($0, $1, $2) {
7856
8375
 
7857
8376
  /* FFI.GitHub.getUser : Octokit => String -> Promise User */
7858
8377
  function FFI_GitHub_getUser($0) {
7859
- return Prelude_Interfaces_x3cx3dx3c(csegen_69(), csegen_299(), $7 => $8 => $9 => FFI_promiseIO($c => $d => $e => FFI_GitHub_prim__getUser($0, $7, $c, $d, $e), $8, $9));
8378
+ return Prelude_Interfaces_x3cx3dx3c(csegen_69(), csegen_395(), $7 => $8 => $9 => FFI_promiseIO($c => $d => $e => FFI_GitHub_prim__getUser($0, $7, $c, $d, $e), $8, $9));
7860
8379
  }
7861
8380
 
7862
8381
  /* FFI.GitHub.getSelf : Octokit => Promise User */
7863
8382
  function FFI_GitHub_getSelf($0) {
7864
- return Prelude_Basics_flip(csegen_297(), csegen_299(), $7 => $8 => FFI_promiseIO($b => $c => $d => FFI_GitHub_prim__getSelf($0, $b, $c, $d), $7, $8));
8383
+ return Prelude_Basics_flip(csegen_393(), csegen_395(), $7 => $8 => FFI_promiseIO($b => $c => $d => FFI_GitHub_prim__getSelf($0, $b, $c, $d), $7, $8));
7865
8384
  }
7866
8385
 
7867
8386
  /* FFI.GitHub.getRepoDefaultBranch : Octokit => String -> String -> Promise String */
@@ -7872,7 +8391,7 @@ function FFI_GitHub_getRepoDefaultBranch($0, $1, $2, $3, $4) {
7872
8391
  /* FFI.GitHub.createPR : Octokit => {default False _ : Bool} ->
7873
8392
  String -> String -> String -> String -> String -> String -> Promise PullRequest */
7874
8393
  function FFI_GitHub_createPR($0, $1, $2, $3, $4, $5, $6, $7) {
7875
- return Prelude_Basics_flip(csegen_297(), $c => $d => Data_Promise_either(csegen_51(), Data_PullRequest_parsePullRequestString($c), $d), $16 => $17 => FFI_promiseIO($1a => $1b => $1c => FFI_GitHub_prim__createPR($0, $2, $3, $4, $5, $6, $7, $1, $1a, $1b, $1c), $16, $17));
8394
+ return Prelude_Basics_flip(csegen_393(), $c => $d => Data_Promise_either(csegen_51(), Data_PullRequest_parsePullRequestString($c), $d), $16 => $17 => FFI_promiseIO($1a => $1b => $1c => FFI_GitHub_prim__createPR($0, $2, $3, $4, $5, $6, $7, $1, $1a, $1b, $1c), $16, $17));
7876
8395
  }
7877
8396
 
7878
8397
  /* FFI.GitHub.createComment : Octokit => String -> String -> Integer -> String -> Promise () */
@@ -7891,88 +8410,6 @@ function FFI_GitHub_addPullLabels($0, $1, $2, $3, $4, $5, $6) {
7891
8410
  return Data_Promise_map_Functor_Promise($9 => Data_String_lines($9), $d => $e => FFI_promiseIO($11 => $12 => $13 => FFI_GitHub_prim__addLabels($0, $1, $2, $3, Data_String_Extra_join(',', csegen_144(), $4), $11, $12, $13), $d, $e), $5, $6);
7892
8411
  }
7893
8412
 
7894
- /* FFI.promiseIO : ((String -> PrimIO ()) -> (String -> PrimIO ()) -> PrimIO ()) -> Promise String */
7895
- function FFI_promiseIO($0, $1, $2) {
7896
- return Data_Promise_promisify(ok => notOk => $0(res => ok(res))(err => notOk(err)), $1, $2);
7897
- }
7898
-
7899
- /* Data.Promise.pure */
7900
- function Data_Promise_pure_Applicative_Promise($0, $1, $2) {
7901
- return $1($0);
7902
- }
7903
-
7904
- /* Data.Promise.map */
7905
- function Data_Promise_map_Functor_Promise($0, $1, $2, $3) {
7906
- return $1(x => $2($0(x)))($3);
7907
- }
7908
-
7909
- /* Data.Promise.liftIO */
7910
- function Data_Promise_liftIO_HasIO_Promise($0, $1, $2, $3) {
7911
- const $4 = $0($3);
7912
- return $1($4)($3);
7913
- }
7914
-
7915
- /* Data.Promise.join */
7916
- function Data_Promise_join_Monad_Promise($0) {
7917
- return $1 => $2 => Data_Promise_x3ex3ex3d_Monad_Promise($0, $6 => $6, $1, $2);
7918
- }
7919
-
7920
- /* Data.Promise.>>= */
7921
- function Data_Promise_x3ex3ex3d_Monad_Promise($0, $1, $2, $3) {
7922
- return Data_Promise_bind($0, $1, $2, $3);
7923
- }
7924
-
7925
- /* Data.Promise.<|> */
7926
- function Data_Promise_x3cx7cx3e_Alternative_Promise($0, $1, $2, $3) {
7927
- const $7 = $8 => {
7928
- const $b = $1();
7929
- const $a = $b;
7930
- const $9 = $a($2);
7931
- return $9($3);
7932
- };
7933
- return $0($2)($7);
7934
- }
7935
-
7936
- /* Data.Promise.<*> */
7937
- function Data_Promise_x3cx2ax3e_Applicative_Promise($0, $1, $2, $3) {
7938
- return Data_Promise_bind($0, f => $7 => $8 => Data_Promise_map_Functor_Promise(f, $1, $7, $8), $2, $3);
7939
- }
7940
-
7941
- /* Data.Promise.resolve' : (a -> IO ()) -> (String -> IO ()) -> Promise a -> IO () */
7942
- function Data_Promise_resolvex27($0, $1, $2) {
7943
- return $2($0)($1);
7944
- }
7945
-
7946
- /* Data.Promise.reject : String -> Promise a */
7947
- function Data_Promise_reject($0, $1, $2) {
7948
- return $2($0);
7949
- }
7950
-
7951
- /* Data.Promise.promisify : PromiseShape a -> Promise a */
7952
- function Data_Promise_promisify($0, $1, $2) {
7953
- return $0($1)($2);
7954
- }
7955
-
7956
- /* Data.Promise.either : Show e => Either e a -> Promise a */
7957
- function Data_Promise_either($0, $1, $2) {
7958
- return $3 => {
7959
- switch($1.h) {
7960
- case 0: /* Left */ return Data_Promise_reject($0.a1($1.a1), $2, $3);
7961
- case 1: /* Right */ return Data_Promise_pure_Applicative_Promise($1.a1, $2, $3);
7962
- }
7963
- };
7964
- }
7965
-
7966
- /* Data.Promise.bind : Promise a -> (a -> Promise b) -> Promise b */
7967
- function Data_Promise_bind($0, $1, $2, $3) {
7968
- const $6 = x => {
7969
- const $7 = $1(x);
7970
- return $7($2)($3);
7971
- };
7972
- const $4 = $0($6);
7973
- return $4($3);
7974
- }
7975
-
7976
8413
  /* Data.User.parseUserString : String -> Either String User */
7977
8414
  function Data_User_parseUserString($0) {
7978
8415
  const $4 = b => a => func => $5 => {
@@ -8024,7 +8461,7 @@ function Data_Review_parseState($0) {
8024
8461
 
8025
8462
  /* Data.Review.parseReview : JSON -> Either String Review */
8026
8463
  function Data_Review_parseReview($0) {
8027
- 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_304(), $22 => Data_Review_parseState($22), Language_JSON_Accessors_string($12.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_304(), $2f => Data_Review_parseDateTime($2f), Language_JSON_Accessors_string($12.a2.a2.a1)), submittedAt => ({h: 1 /* Right */, a1: {a1: submittedAt, a2: author, a3: state}}))))));
8464
+ return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), review => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'author', a2: {a1: 'state', a2: {a1: 'submitted_at', a2: {h: 0}}}}, review), $12 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($12.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_400(), $22 => Data_Review_parseState($22), Language_JSON_Accessors_string($12.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_400(), $2f => Data_Review_parseDateTime($2f), Language_JSON_Accessors_string($12.a2.a2.a1)), submittedAt => ({h: 1 /* Right */, a1: {a1: submittedAt, a2: author, a3: state}}))))));
8028
8465
  }
8029
8466
 
8030
8467
  /* Data.Review.parseDateTime : String -> Either String Date */
@@ -8294,189 +8731,72 @@ function Data_PullRequest_parseState($0, $1) {
8294
8731
  }
8295
8732
  }
8296
8733
 
8297
- /* Data.PullRequest.parsePullRequestsString : String -> Either String (List PullRequest) */
8298
- function Data_PullRequest_parsePullRequestsString($0) {
8299
- const $4 = b => a => func => $5 => {
8300
- switch($5.h) {
8301
- case 0: /* Left */ return {h: 0 /* Left */, a1: $5.a1};
8302
- case 1: /* Right */ return {h: 1 /* Right */, a1: func($5.a1)};
8303
- }
8304
- };
8305
- const $e = b => a => $f => $10 => {
8306
- switch($f.h) {
8307
- case 0: /* Left */ return {h: 0 /* Left */, a1: $f.a1};
8308
- case 1: /* Right */ {
8309
- switch($10.h) {
8310
- case 1: /* Right */ return {h: 1 /* Right */, a1: $f.a1($10.a1)};
8311
- case 0: /* Left */ return {h: 0 /* Left */, a1: $10.a1};
8312
- }
8313
- }
8314
- }
8315
- };
8316
- const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
8317
- const $2 = {a1: $3, a2: csegen_198(), a3: csegen_199()};
8318
- return Prelude_Interfaces_x3ex3dx3e($2, csegen_200(), csegen_317(), $0);
8319
- }
8320
-
8321
- /* Data.PullRequest.parsePullRequestString : String -> Either String PullRequest */
8322
- function Data_PullRequest_parsePullRequestString($0) {
8323
- const $4 = b => a => func => $5 => {
8324
- switch($5.h) {
8325
- case 0: /* Left */ return {h: 0 /* Left */, a1: $5.a1};
8326
- case 1: /* Right */ return {h: 1 /* Right */, a1: func($5.a1)};
8327
- }
8328
- };
8329
- const $e = b => a => $f => $10 => {
8330
- switch($f.h) {
8331
- case 0: /* Left */ return {h: 0 /* Left */, a1: $f.a1};
8332
- case 1: /* Right */ {
8333
- switch($10.h) {
8334
- case 1: /* Right */ return {h: 1 /* Right */, a1: $f.a1($10.a1)};
8335
- case 0: /* Left */ return {h: 0 /* Left */, a1: $10.a1};
8336
- }
8337
- }
8338
- }
8339
- };
8340
- const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
8341
- const $2 = {a1: $3, a2: csegen_198(), a3: csegen_199()};
8342
- return Prelude_Interfaces_x3ex3dx3e($2, csegen_200(), $1f => Data_PullRequest_parsePR($1f), $0);
8343
- }
8344
-
8345
- /* Data.PullRequest.parsePR : JSON -> Either String PullRequest */
8346
- function Data_PullRequest_parsePR($0) {
8347
- return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), pr => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'pull_number', a2: {a1: 'author', a2: {a1: 'state', a2: {a1: 'created_at', a2: {a1: 'merged', a2: {a1: 'draft', a2: {a1: 'reviewers', a2: {a1: 'head_ref', a2: {h: 0}}}}}}}}}, pr), $1c => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($1c.a1), number => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1c.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($1c.a2.a2.a2.a2.a1), merged => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($1c.a2.a2.a2.a2.a2.a1), isDraft => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_304(), $40 => Data_PullRequest_parseState(merged, $40), Language_JSON_Accessors_string($1c.a2.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_304(), $4e => Data_PullRequest_parseDateTime($4e), Language_JSON_Accessors_string($1c.a2.a2.a2.a1)), createdAt => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($59 => Language_JSON_Accessors_string($59), $1c.a2.a2.a2.a2.a2.a2.a1), reviewers => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1c.a2.a2.a2.a2.a2.a2.a2.a1), headRef => ({h: 1 /* Right */, a1: {a1: number, a2: createdAt, a3: isDraft, a4: author, a5: state, a6: reviewers, a7: headRef}})))))))))));
8348
- }
8349
-
8350
- /* Data.PullRequest.parseDateTime : String -> Either String Date */
8351
- function Data_PullRequest_parseDateTime($0) {
8352
- return Data_Either_maybeToEither(() => 'Failed to parse Date', Data_Date_parseDateTimeString($0));
8353
- }
8354
-
8355
- /* Data.PullRequest.isRequestedReviewer : String -> PullRequest -> Bool */
8356
- function Data_PullRequest_isRequestedReviewer($0, $1) {
8357
- return Prelude_Types_foldMap_Foldable_List(csegen_94(), $6 => Prelude_EqOrd_x3dx3d_Eq_String($6, $0), $1.a6);
8358
- }
8359
-
8360
- /* Data.PullRequest.isAuthor : String -> PullRequest -> Bool */
8361
- function Data_PullRequest_isAuthor($0, $1) {
8362
- return Prelude_EqOrd_x3dx3d_Eq_String($1.a4, $0);
8363
- }
8364
-
8365
- /* FFI.Git.case block in unpushedCommits */
8366
- function FFI_Git_case__unpushedCommits_2011($0, $1, $2) {
8367
- switch($1) {
8368
- case '': {
8369
- switch($2.h) {
8370
- case 0: /* nil */ return {h: 0};
8371
- default: return {a1: $1};
8372
- }
8373
- }
8374
- default: return {a1: $1};
8375
- }
8376
- }
8377
-
8378
- /* FFI.Git.case block in stagedChanges */
8379
- function FFI_Git_case__stagedChanges_1948($0, $1, $2) {
8380
- switch($1) {
8381
- case '': {
8382
- switch($2.h) {
8383
- case 0: /* nil */ return {h: 0};
8384
- default: return {a1: $1};
8385
- }
8386
- }
8387
- default: return {a1: $1};
8388
- }
8389
- }
8390
-
8391
- /* FFI.Git.case block in uncommittedChanges */
8392
- function FFI_Git_case__uncommittedChanges_1885($0, $1, $2) {
8393
- switch($1) {
8394
- case '': {
8395
- switch($2.h) {
8396
- case 0: /* nil */ return {h: 0};
8397
- default: return {a1: $1};
8398
- }
8399
- }
8400
- default: return {a1: $1};
8401
- }
8402
- }
8403
-
8404
- /* FFI.Git.case block in remoteTrackingBranch */
8405
- function FFI_Git_case__remoteTrackingBranch_1822($0, $1, $2) {
8406
- switch($1) {
8407
- case '': {
8408
- switch($2.h) {
8409
- case 0: /* nil */ return {h: 0};
8410
- default: return {a1: $1};
8411
- }
8412
- }
8413
- default: return {a1: $1};
8414
- }
8415
- }
8416
-
8417
- /* FFI.Git.userEmail : Git => Promise String */
8418
- function FFI_Git_userEmail($0, $1, $2) {
8419
- return FFI_promiseIO($5 => $6 => $7 => FFI_Git_prim__userEmail($0, $5, $6, $7), $1, $2);
8420
- }
8421
-
8422
- /* FFI.Git.unpushedCommits : Git => Promise (Maybe String) */
8423
- function FFI_Git_unpushedCommits($0, $1, $2) {
8424
- return Data_Promise_x3ex3ex3d_Monad_Promise($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__unpushedCommits($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__unpushedCommits_2011($0, str, Data_String_strM(str)), $14, $15), $1, $2);
8425
- }
8426
-
8427
- /* FFI.Git.uncommittedChanges : Git => Promise (Maybe String) */
8428
- function FFI_Git_uncommittedChanges($0, $1, $2) {
8429
- return Data_Promise_x3ex3ex3d_Monad_Promise($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__uncommittedChanges($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__uncommittedChanges_1885($0, str, Data_String_strM(str)), $14, $15), $1, $2);
8430
- }
8431
-
8432
- /* FFI.Git.stagedChanges : Git => Promise (Maybe String) */
8433
- function FFI_Git_stagedChanges($0, $1, $2) {
8434
- return Data_Promise_x3ex3ex3d_Monad_Promise($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__stagedChanges($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__stagedChanges_1948($0, str, Data_String_strM(str)), $14, $15), $1, $2);
8435
- }
8436
-
8437
- /* FFI.Git.rootDir : Git => Promise String */
8438
- function FFI_Git_rootDir($0, $1, $2) {
8439
- return FFI_promiseIO($5 => $6 => $7 => FFI_Git_prim__rootDir($0, $5, $6, $7), $1, $2);
8440
- }
8441
-
8442
- /* FFI.Git.remoteURI : Git => String -> Promise String */
8443
- function FFI_Git_remoteURI($0, $1, $2, $3) {
8444
- return FFI_promiseIO($6 => $7 => $8 => FFI_Git_prim__remoteURI($0, $1, $6, $7, $8), $2, $3);
8445
- }
8446
-
8447
- /* FFI.Git.remoteTrackingBranch : Git => Promise (Maybe String) */
8448
- function FFI_Git_remoteTrackingBranch($0, $1, $2) {
8449
- return Data_Promise_x3ex3ex3d_Monad_Promise($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__remoteTrackingBranch($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__remoteTrackingBranch_1822($0, str, Data_String_strM(str)), $14, $15), $1, $2);
8450
- }
8451
-
8452
- /* FFI.Git.pushNewBranch : Git => String -> String -> Promise () */
8453
- function FFI_Git_pushNewBranch($0, $1, $2, $3, $4) {
8454
- return Data_Promise_map_Functor_Promise($7 => (undefined), $9 => $a => FFI_promiseIO($d => $e => $f => FFI_Git_prim__pushNewBranch($0, $1, $2, $d, $e, $f), $9, $a), $3, $4);
8455
- }
8456
-
8457
- /* FFI.Git.push : Git => Promise () */
8458
- function FFI_Git_push($0, $1, $2) {
8459
- return Data_Promise_map_Functor_Promise($5 => (undefined), $7 => $8 => FFI_promiseIO($b => $c => $d => FFI_Git_prim__push($0, $b, $c, $d), $7, $8), $1, $2);
8734
+ /* Data.PullRequest.parsePullRequestsString : String -> Either String (List PullRequest) */
8735
+ function Data_PullRequest_parsePullRequestsString($0) {
8736
+ const $4 = b => a => func => $5 => {
8737
+ switch($5.h) {
8738
+ case 0: /* Left */ return {h: 0 /* Left */, a1: $5.a1};
8739
+ case 1: /* Right */ return {h: 1 /* Right */, a1: func($5.a1)};
8740
+ }
8741
+ };
8742
+ const $e = b => a => $f => $10 => {
8743
+ switch($f.h) {
8744
+ case 0: /* Left */ return {h: 0 /* Left */, a1: $f.a1};
8745
+ case 1: /* Right */ {
8746
+ switch($10.h) {
8747
+ case 1: /* Right */ return {h: 1 /* Right */, a1: $f.a1($10.a1)};
8748
+ case 0: /* Left */ return {h: 0 /* Left */, a1: $10.a1};
8749
+ }
8750
+ }
8751
+ }
8752
+ };
8753
+ const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
8754
+ const $2 = {a1: $3, a2: csegen_198(), a3: csegen_199()};
8755
+ return Prelude_Interfaces_x3ex3dx3e($2, csegen_200(), csegen_413(), $0);
8460
8756
  }
8461
8757
 
8462
- /* FFI.Git.listRemotes : Git => Promise (List String) */
8463
- function FFI_Git_listRemotes($0, $1, $2) {
8464
- return Data_Promise_map_Functor_Promise($5 => Data_String_lines($5), $9 => $a => FFI_promiseIO($d => $e => $f => FFI_Git_prim__listRemotes($0, $d, $e, $f), $9, $a), $1, $2);
8758
+ /* Data.PullRequest.parsePullRequestString : String -> Either String PullRequest */
8759
+ function Data_PullRequest_parsePullRequestString($0) {
8760
+ const $4 = b => a => func => $5 => {
8761
+ switch($5.h) {
8762
+ case 0: /* Left */ return {h: 0 /* Left */, a1: $5.a1};
8763
+ case 1: /* Right */ return {h: 1 /* Right */, a1: func($5.a1)};
8764
+ }
8765
+ };
8766
+ const $e = b => a => $f => $10 => {
8767
+ switch($f.h) {
8768
+ case 0: /* Left */ return {h: 0 /* Left */, a1: $f.a1};
8769
+ case 1: /* Right */ {
8770
+ switch($10.h) {
8771
+ case 1: /* Right */ return {h: 1 /* Right */, a1: $f.a1($10.a1)};
8772
+ case 0: /* Left */ return {h: 0 /* Left */, a1: $10.a1};
8773
+ }
8774
+ }
8775
+ }
8776
+ };
8777
+ const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
8778
+ const $2 = {a1: $3, a2: csegen_198(), a3: csegen_199()};
8779
+ return Prelude_Interfaces_x3ex3dx3e($2, csegen_200(), $1f => Data_PullRequest_parsePR($1f), $0);
8465
8780
  }
8466
8781
 
8467
- /* FFI.Git.git : HasIO io => io Git */
8468
- function FFI_Git_git($0) {
8469
- return $0.a1.a1.a1(undefined)(undefined)($b => $b)($0.a2(undefined)($12 => FFI_Git_prim__git($12)));
8782
+ /* Data.PullRequest.parsePR : JSON -> Either String PullRequest */
8783
+ function Data_PullRequest_parsePR($0) {
8784
+ return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), pr => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'pull_number', a2: {a1: 'author', a2: {a1: 'state', a2: {a1: 'created_at', a2: {a1: 'merged', a2: {a1: 'draft', a2: {a1: 'reviewers', a2: {a1: 'head_ref', a2: {h: 0}}}}}}}}}, pr), $1c => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($1c.a1), number => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1c.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($1c.a2.a2.a2.a2.a1), merged => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($1c.a2.a2.a2.a2.a2.a1), isDraft => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_400(), $40 => Data_PullRequest_parseState(merged, $40), Language_JSON_Accessors_string($1c.a2.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_400(), $4e => Data_PullRequest_parseDateTime($4e), Language_JSON_Accessors_string($1c.a2.a2.a2.a1)), createdAt => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($59 => Language_JSON_Accessors_string($59), $1c.a2.a2.a2.a2.a2.a2.a1), reviewers => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1c.a2.a2.a2.a2.a2.a2.a2.a1), headRef => ({h: 1 /* Right */, a1: {a1: number, a2: createdAt, a3: isDraft, a4: author, a5: state, a6: reviewers, a7: headRef}})))))))))));
8470
8785
  }
8471
8786
 
8472
- /* FFI.Git.currentBranch : Git => Promise String */
8473
- function FFI_Git_currentBranch($0, $1, $2) {
8474
- return FFI_promiseIO($5 => $6 => $7 => FFI_Git_prim__currentBranch($0, $5, $6, $7), $1, $2);
8787
+ /* Data.PullRequest.parseDateTime : String -> Either String Date */
8788
+ function Data_PullRequest_parseDateTime($0) {
8789
+ return Data_Either_maybeToEither(() => 'Failed to parse Date', Data_Date_parseDateTimeString($0));
8475
8790
  }
8476
8791
 
8477
- /* FFI.Git.checkoutBranch : Git => String -> Promise () */
8478
- function FFI_Git_checkoutBranch($0, $1, $2, $3) {
8479
- return Data_Promise_map_Functor_Promise($6 => (undefined), $8 => $9 => FFI_promiseIO($c => $d => $e => FFI_Git_prim__checkoutBranch($0, $1, $c, $d, $e), $8, $9), $2, $3);
8792
+ /* Data.PullRequest.isRequestedReviewer : String -> PullRequest -> Bool */
8793
+ function Data_PullRequest_isRequestedReviewer($0, $1) {
8794
+ return Prelude_Types_foldMap_Foldable_List(csegen_94(), $6 => Prelude_EqOrd_x3dx3d_Eq_String($6, $0), $1.a6);
8795
+ }
8796
+
8797
+ /* Data.PullRequest.isAuthor : String -> PullRequest -> Bool */
8798
+ function Data_PullRequest_isAuthor($0, $1) {
8799
+ return Prelude_EqOrd_x3dx3d_Eq_String($1.a4, $0);
8480
8800
  }
8481
8801
 
8482
8802
  /* Config.with block in getConfig */
@@ -8494,7 +8814,7 @@ function Config_with__withx20blockx20inx20setConfig_1978($0, $1, $2, $3, $4, $5,
8494
8814
  return $7 => {
8495
8815
  switch($5.h) {
8496
8816
  case 0: /* nothing */ return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_49(), $f => $f, {a1: $4, a2: {a1: ' is not a valid value for ', a2: {a1: $1, a2: {a1: '.', a2: {h: 0}}}}}), $6, $7);
8497
- case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $1f => Util_renderIO($5.a1, csegen_72(), $1f), () => csegen_325(), Config_checkConfigConsistency($5.a1)), $2b => $2c => $2d => Config_writeConfig($5.a1, $2c, $2d), $6, $7);
8817
+ case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $1f => Util_renderIO($5.a1, csegen_72(), $1f), () => csegen_421(), Config_checkConfigConsistency($5.a1)), $2b => $2c => $2d => Config_writeConfig($5.a1, $2c, $2d), $6, $7);
8498
8818
  }
8499
8819
  };
8500
8820
  }
@@ -8544,12 +8864,12 @@ function Config_case__parseGitHubURIx2cparseSuffix_1509($0, $1, $2) {
8544
8864
  default: return {h: 0};
8545
8865
  }
8546
8866
  };
8547
- return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_326(), $2.a1)}, $b);
8867
+ return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_422(), $2.a1)}, $b);
8548
8868
  }
8549
8869
 
8550
8870
  /* Config.8973:2259:repo */
8551
8871
  function Config_n__8973_2259_repo($0, $1, $2, $3, $4) {
8552
- return Prelude_Types_map_Functor_Maybe(csegen_327(), $4);
8872
+ return Prelude_Types_map_Functor_Maybe(csegen_423(), $4);
8553
8873
  }
8554
8874
 
8555
8875
  /* Config.8227:1489:parseSuffix */
@@ -8569,7 +8889,7 @@ function Config_n__8227_1487_parseHTTPS($0, $1) {
8569
8889
 
8570
8890
  /* Config.8973:2258:org */
8571
8891
  function Config_n__8973_2258_org($0, $1, $2, $3, $4) {
8572
- return Prelude_Types_map_Functor_Maybe(csegen_331(), $4);
8892
+ return Prelude_Types_map_Functor_Maybe(csegen_427(), $4);
8573
8893
  }
8574
8894
 
8575
8895
  /* Config.8973:2257:orIfEmpty */
@@ -8673,7 +8993,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
8673
8993
  const $32 = {a1: updatedAt, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: $0.a8, a9: teamSlugs, a10: labelNames, a11: orgMembers, a12: $0.a12, a13: $0.a13, a14: $0.a14};
8674
8994
  return $42 => $43 => Data_Promise_x3ex3ex3d_Monad_Promise($46 => $47 => Data_Promise_map_Functor_Promise($4a => (undefined), $4c => $4d => Config_writeConfig($32, $4c, $4d), $46, $47), $55 => $56 => $57 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_when(csegen_64(), $2, () => $5f => $60 => Data_Promise_x3ex3ex3d_Monad_Promise($63 => $64 => $65 => Data_Promise_liftIO_HasIO_Promise($68 => Prelude_IO_prim__putStr('Your updated configuration is:\n', $68), $63, $64, $65), $70 => $71 => $72 => $73 => Data_Promise_liftIO_HasIO_Promise($76 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($32)+'\n'), $76), $71, $72, $73), $5f, $60)), $84 => $85 => $86 => Data_Promise_pure_Applicative_Promise($32, $85, $86), $56, $57), $42, $43);
8675
8995
  };
8676
- return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_342(), $31, $2c, $2d);
8996
+ return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_438(), $31, $2c, $2d);
8677
8997
  };
8678
8998
  return Data_Promise_x3ex3ex3d_Monad_Promise($23 => $24 => FFI_GitHub_listOrgMembers($1, $0.a2, $23, $24), $2b, $1f, $20);
8679
8999
  };
@@ -8696,11 +9016,11 @@ function Config_setConfig($0, $1, $2) {
8696
9016
  function Config_propSetter($0, $1) {
8697
9017
  return $2 => {
8698
9018
  switch($0) {
8699
- case 0: return Config_update(csegen_347(), $8 => Config_parseBool($8), b => $c => ({a1: $c.a1, a2: $c.a2, a3: $c.a3, a4: $c.a4, a5: $c.a5, a6: b, a7: $c.a7, a8: $c.a8, a9: $c.a9, a10: $c.a10, a11: $c.a11, a12: $c.a12, a13: $c.a13, a14: $c.a14}), $1, $2);
8700
- case 1: return Config_update(csegen_347(), $22 => Config_parseBool($22), b => $26 => ({a1: $26.a1, a2: $26.a2, a3: $26.a3, a4: $26.a4, a5: $26.a5, a6: $26.a6, a7: b, a8: $26.a8, a9: $26.a9, a10: $26.a10, a11: $26.a11, a12: $26.a12, a13: $26.a13, a14: $26.a14}), $1, $2);
8701
- case 2: return Config_update(csegen_347(), $3c => Config_parseBool($3c), b => $40 => ({a1: $40.a1, a2: $40.a2, a3: $40.a3, a4: $40.a4, a5: $40.a5, a6: $40.a6, a7: $40.a7, a8: b, a9: $40.a9, a10: $40.a10, a11: $40.a11, a12: $40.a12, a13: $40.a13, a14: $40.a14}), $1, $2);
8702
- case 3: return Config_update(csegen_347(), $56 => ({a1: $56}), s => $59 => ({a1: $59.a1, a2: $59.a2, a3: $59.a3, a4: s, a5: $59.a5, a6: $59.a6, a7: $59.a7, a8: $59.a8, a9: $59.a9, a10: $59.a10, a11: $59.a11, a12: $59.a12, a13: $59.a13, a14: $59.a14}), $1, $2);
8703
- case 4: return Config_update(csegen_347(), $6f => ({a1: $6f}), s => $72 => ({a1: $72.a1, a2: $72.a2, a3: $72.a3, a4: $72.a4, a5: $72.a5, a6: $72.a6, a7: $72.a7, a8: $72.a8, a9: $72.a9, a10: $72.a10, a11: $72.a11, a12: $72.a12, a13: {a1: s}, a14: $72.a14}), $1, $2);
9019
+ case 0: return Config_update(csegen_443(), $8 => Config_parseBool($8), b => $c => ({a1: $c.a1, a2: $c.a2, a3: $c.a3, a4: $c.a4, a5: $c.a5, a6: b, a7: $c.a7, a8: $c.a8, a9: $c.a9, a10: $c.a10, a11: $c.a11, a12: $c.a12, a13: $c.a13, a14: $c.a14}), $1, $2);
9020
+ case 1: return Config_update(csegen_443(), $22 => Config_parseBool($22), b => $26 => ({a1: $26.a1, a2: $26.a2, a3: $26.a3, a4: $26.a4, a5: $26.a5, a6: $26.a6, a7: b, a8: $26.a8, a9: $26.a9, a10: $26.a10, a11: $26.a11, a12: $26.a12, a13: $26.a13, a14: $26.a14}), $1, $2);
9021
+ case 2: return Config_update(csegen_443(), $3c => Config_parseBool($3c), b => $40 => ({a1: $40.a1, a2: $40.a2, a3: $40.a3, a4: $40.a4, a5: $40.a5, a6: $40.a6, a7: $40.a7, a8: b, a9: $40.a9, a10: $40.a10, a11: $40.a11, a12: $40.a12, a13: $40.a13, a14: $40.a14}), $1, $2);
9022
+ case 3: return Config_update(csegen_443(), $56 => ({a1: $56}), s => $59 => ({a1: $59.a1, a2: $59.a2, a3: $59.a3, a4: s, a5: $59.a5, a6: $59.a6, a7: $59.a7, a8: $59.a8, a9: $59.a9, a10: $59.a10, a11: $59.a11, a12: $59.a12, a13: $59.a13, a14: $59.a14}), $1, $2);
9023
+ case 4: return Config_update(csegen_443(), $6f => ({a1: $6f}), s => $72 => ({a1: $72.a1, a2: $72.a2, a3: $72.a3, a4: $72.a4, a5: $72.a5, a6: $72.a6, a7: $72.a7, a8: $72.a8, a9: $72.a9, a10: $72.a10, a11: $72.a11, a12: $72.a12, a13: {a1: s}, a14: $72.a14}), $1, $2);
8704
9024
  }
8705
9025
  };
8706
9026
  }
@@ -8788,7 +9108,7 @@ function Config_loadConfig($0, $1, $2) {
8788
9108
  case 1: /* Right */ return {h: 1 /* Right */, a1: func($25.a1)};
8789
9109
  }
8790
9110
  };
8791
- const $23 = {a1: $24, a2: csegen_254(), a3: csegen_258()};
9111
+ const $23 = {a1: $24, a2: csegen_256(), a3: csegen_260()};
8792
9112
  return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, $9, $23, $4, $5);
8793
9113
  };
8794
9114
  const $3d = $3e => {
@@ -8872,7 +9192,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
8872
9192
  default: return {a1: Data_String_trim($73)};
8873
9193
  }
8874
9194
  };
8875
- return Data_Promise_map_Functor_Promise($72, csegen_360(), $6f, $70);
9195
+ return Data_Promise_map_Functor_Promise($72, csegen_456(), $6f, $70);
8876
9196
  };
8877
9197
  const $7e = configPAT => $7f => $80 => {
8878
9198
  const $8c = $8d => $8e => $8f => {
@@ -8880,11 +9200,11 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
8880
9200
  case undefined: /* just */ {
8881
9201
  const $a3 = remoteGuess => $a4 => $a5 => {
8882
9202
  const $c1 = defaultOrgAndRepo => {
8883
- const $c2 = Config_n__8973_2255_defaultStr($0, $3, $2, $1, csegen_331(), defaultOrgAndRepo);
9203
+ const $c2 = Config_n__8973_2255_defaultStr($0, $3, $2, $1, csegen_427(), defaultOrgAndRepo);
8884
9204
  return $cb => $cc => {
8885
9205
  const $e9 = $ea => $eb => $ec => {
8886
9206
  const $107 = org => {
8887
- const $108 = Config_n__8973_2255_defaultStr($0, $3, $2, $1, csegen_327(), defaultOrgAndRepo);
9207
+ const $108 = Config_n__8973_2255_defaultStr($0, $3, $2, $1, csegen_423(), defaultOrgAndRepo);
8888
9208
  return $111 => $112 => {
8889
9209
  const $12f = $130 => $131 => $132 => {
8890
9210
  const $14d = repo => {
@@ -8905,7 +9225,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
8905
9225
  const $205 = repoLabels => $206 => $207 => {
8906
9226
  const $211 = orgMembers => {
8907
9227
  const $212 = {a1: updatedAt, a2: org, a3: repo, a4: defaultRemote, a5: mainBranch, a6: assignTeams, a7: assignUsers, a8: commentOnAssign, a9: teamSlugs, a10: repoLabels, a11: orgMembers, a12: {h: 0}, a13: Prelude_Types_map_Functor_Maybe($222 => $222, configPAT), a14: $1de};
8908
- return $225 => $226 => Data_Promise_x3ex3ex3d_Monad_Promise($229 => $22a => Data_Promise_map_Functor_Promise($22d => (undefined), $22f => $230 => Config_writeConfig($212, $22f, $230), $229, $22a), $238 => $239 => $23a => Data_Promise_x3ex3ex3d_Monad_Promise($23d => $23e => $23f => Data_Promise_liftIO_HasIO_Promise($242 => Prelude_IO_prim__putStr('Your new configuration is:\n', $242), $23d, $23e, $23f), $24a => $24b => $24c => Data_Promise_x3ex3ex3d_Monad_Promise($24f => $250 => $251 => Data_Promise_liftIO_HasIO_Promise($254 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($212)+'\n'), $254), $24f, $250, $251), $260 => $261 => $262 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $267 => Util_renderIO($212, csegen_72(), $267), () => csegen_325(), Config_checkConfigConsistency($212)), $273 => $274 => $275 => Data_Promise_pure_Applicative_Promise($212, $274, $275), $261, $262), $24b, $24c), $239, $23a), $225, $226);
9228
+ return $225 => $226 => Data_Promise_x3ex3ex3d_Monad_Promise($229 => $22a => Data_Promise_map_Functor_Promise($22d => (undefined), $22f => $230 => Config_writeConfig($212, $22f, $230), $229, $22a), $238 => $239 => $23a => Data_Promise_x3ex3ex3d_Monad_Promise($23d => $23e => $23f => Data_Promise_liftIO_HasIO_Promise($242 => Prelude_IO_prim__putStr('Your new configuration is:\n', $242), $23d, $23e, $23f), $24a => $24b => $24c => Data_Promise_x3ex3ex3d_Monad_Promise($24f => $250 => $251 => Data_Promise_liftIO_HasIO_Promise($254 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($212)+'\n'), $254), $24f, $250, $251), $260 => $261 => $262 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $267 => Util_renderIO($212, csegen_72(), $267), () => csegen_421(), Config_checkConfigConsistency($212)), $273 => $274 => $275 => Data_Promise_pure_Applicative_Promise($212, $274, $275), $261, $262), $24b, $24c), $239, $23a), $225, $226);
8909
9229
  };
8910
9230
  return Data_Promise_x3ex3ex3d_Monad_Promise($20a => $20b => FFI_GitHub_listOrgMembers(_, org, $20a, $20b), $211, $206, $207);
8911
9231
  };
@@ -8914,7 +9234,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
8914
9234
  return Data_Promise_x3ex3ex3d_Monad_Promise($1f1 => $1f2 => FFI_GitHub_listTeams(_, org, $1f1, $1f2), $1f8, $1ed, $1ee);
8915
9235
  };
8916
9236
  };
8917
- return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_342(), $1dd, $1d8, $1d9);
9237
+ return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_438(), $1dd, $1d8, $1d9);
8918
9238
  };
8919
9239
  return Data_Promise_x3ex3ex3d_Monad_Promise($1cf => $1d0 => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $1cf, $1d0), $1d7, $1cb, $1cc);
8920
9240
  };
@@ -8928,22 +9248,22 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
8928
9248
  };
8929
9249
  return Data_Promise_x3ex3ex3d_Monad_Promise(Util_yesNoPrompt(csegen_72(), 'Would you like harmony to comment when it assigns reviewers?'), $195, $18d, $18e);
8930
9250
  };
8931
- return Data_Promise_x3ex3ex3d_Monad_Promise($179 => $17a => Data_Promise_map_Functor_Promise($17d => Config_n__8973_2257_orIfEmpty($0, $3, $2, $1, {a1: remoteGuess}, Data_String_trim($17d)), csegen_360(), $179, $17a), $18c, $175, $176);
9251
+ return Data_Promise_x3ex3ex3d_Monad_Promise($179 => $17a => Data_Promise_map_Functor_Promise($17d => Config_n__8973_2257_orIfEmpty($0, $3, $2, $1, {a1: remoteGuess}, Data_String_trim($17d)), csegen_456(), $179, $17a), $18c, $175, $176);
8932
9252
  };
8933
9253
  return Data_Promise_x3ex3ex3d_Monad_Promise($159 => $15a => $15b => Data_Promise_liftIO_HasIO_Promise($15e => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_49(), $166 => $166, {a1: 'What GitHub remote repo would you like to use harmony for', a2: {a1: $14e, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $15e), $159, $15a, $15b), $173, $155, $156);
8934
9254
  };
8935
9255
  };
8936
- return Data_Promise_x3ex3ex3d_Monad_Promise($135 => $136 => Data_Promise_map_Functor_Promise($139 => Config_n__8973_2257_orIfEmpty($0, $3, $2, $1, Config_n__8973_2259_repo($0, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($139)), csegen_360(), $135, $136), $14d, $131, $132);
9256
+ return Data_Promise_x3ex3ex3d_Monad_Promise($135 => $136 => Data_Promise_map_Functor_Promise($139 => Config_n__8973_2257_orIfEmpty($0, $3, $2, $1, Config_n__8973_2259_repo($0, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($139)), csegen_456(), $135, $136), $14d, $131, $132);
8937
9257
  };
8938
9258
  return Data_Promise_x3ex3ex3d_Monad_Promise($115 => $116 => $117 => Data_Promise_liftIO_HasIO_Promise($11a => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_49(), $122 => $122, {a1: 'What repository would you like to use harmony for', a2: {a1: $108, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $11a), $115, $116, $117), $12f, $111, $112);
8939
9259
  };
8940
9260
  };
8941
- return Data_Promise_x3ex3ex3d_Monad_Promise($ef => $f0 => Data_Promise_map_Functor_Promise($f3 => Config_n__8973_2257_orIfEmpty($0, $3, $2, $1, Config_n__8973_2258_org($0, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($f3)), csegen_360(), $ef, $f0), $107, $eb, $ec);
9261
+ return Data_Promise_x3ex3ex3d_Monad_Promise($ef => $f0 => Data_Promise_map_Functor_Promise($f3 => Config_n__8973_2257_orIfEmpty($0, $3, $2, $1, Config_n__8973_2258_org($0, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($f3)), csegen_456(), $ef, $f0), $107, $eb, $ec);
8942
9262
  };
8943
9263
  return Data_Promise_x3ex3ex3d_Monad_Promise($cf => $d0 => $d1 => Data_Promise_liftIO_HasIO_Promise($d4 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_49(), $dc => $dc, {a1: 'What GitHub org would you like to use harmony for', a2: {a1: $c2, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $d4), $cf, $d0, $d1), $e9, $cb, $cc);
8944
9264
  };
8945
9265
  };
8946
- return Data_Promise_x3ex3ex3d_Monad_Promise($a8 => $a9 => Data_Promise_x3cx7cx3e_Alternative_Promise($ac => $ad => Data_Promise_map_Functor_Promise($b0 => Config_parseGitHubURI($b0), $b4 => $b5 => FFI_Git_remoteURI($0, remoteGuess, $b4, $b5), $ac, $ad), () => csegen_362(), $a8, $a9), $c1, $a4, $a5);
9266
+ return Data_Promise_x3ex3ex3d_Monad_Promise($a8 => $a9 => Data_Promise_x3cx7cx3e_Alternative_Promise($ac => $ad => Data_Promise_map_Functor_Promise($b0 => Config_parseGitHubURI($b0), $b4 => $b5 => FFI_Git_remoteURI($0, remoteGuess, $b4, $b5), $ac, $ad), () => csegen_458(), $a8, $a9), $c1, $a4, $a5);
8947
9267
  };
8948
9268
  return Data_Promise_x3ex3ex3d_Monad_Promise($93 => $94 => Data_Promise_map_Functor_Promise($97 => Config_preferOriginRemote($97), $9b => $9c => FFI_Git_listRemotes($0, $9b, $9c), $93, $94), $a3, $8e, $8f);
8949
9269
  }
@@ -8973,165 +9293,6 @@ function Config_addIgnoredPRs($0, $1, $2, $3) {
8973
9293
  return Config_writeConfig({a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: $0.a8, a9: $0.a9, a10: $0.a10, a11: $0.a11, a12: Data_List_nub(csegen_215(), Prelude_Types_List_tailRecAppend($0.a12, $1)), a13: $0.a13, a14: $0.a14}, $2, $3);
8974
9294
  }
8975
9295
 
8976
- /* Util.with block in yesNoPrompt,yesUnlessNo */
8977
- function Util_with__yesNoPromptx2cyesUnlessNo_1292($0, $1, $2, $3, $4) {
8978
- switch($4) {
8979
- case 'n': return 0;
8980
- case 'no': return 0;
8981
- default: return 1;
8982
- }
8983
- }
8984
-
8985
- /* Util.5058:1284:yesUnlessNo */
8986
- function Util_n__5058_1284_yesUnlessNo($0, $1, $2) {
8987
- return Util_with__yesNoPromptx2cyesUnlessNo_1292(undefined, $0, $1, $2, Data_String_toLower($2));
8988
- }
8989
-
8990
- /* Util.5161:1391:startOver */
8991
- const Util_n__5161_1391_startOver = __lazy(function () {
8992
- return {a1: 0, a2: {h: 0}};
8993
- });
8994
-
8995
- /* Util.5161:1390:guardSuccess */
8996
- function Util_n__5161_1390_guardSuccess($0) {
8997
- switch($0.h) {
8998
- case undefined: /* cons */ {
8999
- switch($0.a1) {
9000
- case 3: return {a1: $0.a2};
9001
- case 4: return {a1: $0.a2};
9002
- default: return {h: 0};
9003
- }
9004
- }
9005
- default: return {h: 0};
9006
- }
9007
- }
9008
-
9009
- /* Util.5161:1389:go */
9010
- function Util_n__5161_1389_go($0, $1) {
9011
- switch($0.a1) {
9012
- case 0: {
9013
- switch(Prelude_Types_isAlpha($1)) {
9014
- case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
9015
- case 0: return Util_n__5161_1391_startOver();
9016
- }
9017
- }
9018
- case 1: {
9019
- switch($1) {
9020
- case '-': return {a1: 2, a2: {a1: '-', a2: $0.a2}};
9021
- default: {
9022
- switch(Prelude_Types_isAlpha($1)) {
9023
- case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
9024
- case 0: return Util_n__5161_1391_startOver();
9025
- }
9026
- }
9027
- }
9028
- }
9029
- case 2: {
9030
- switch(Prelude_Types_isDigit($1)) {
9031
- case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
9032
- case 0: return Util_n__5161_1391_startOver();
9033
- }
9034
- }
9035
- case 3: {
9036
- switch(Prelude_Types_isDigit($1)) {
9037
- case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
9038
- case 0: return {a1: 4, a2: $0.a2};
9039
- }
9040
- }
9041
- case 4: return {a1: 4, a2: $0.a2};
9042
- }
9043
- }
9044
-
9045
- /* Util.4945:1172:getMoreLines */
9046
- function Util_n__4945_1172_getMoreLines($0, $1, $2) {
9047
- switch($2.h) {
9048
- case 0: /* nothing */ return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1));
9049
- case undefined: /* just */ {
9050
- const $2c = line => {
9051
- switch($1.h) {
9052
- case undefined: /* cons */ {
9053
- switch($1.a1) {
9054
- case '': {
9055
- switch(line) {
9056
- case '': return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1.a2));
9057
- default: return Util_n__4945_1172_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
9058
- }
9059
- }
9060
- default: return Util_n__4945_1172_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
9061
- }
9062
- }
9063
- default: return Util_n__4945_1172_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
9064
- }
9065
- };
9066
- 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);
9067
- }
9068
- }
9069
- }
9070
-
9071
- /* Util.yesNoPrompt : HasIO io => String -> io Bool */
9072
- function Util_yesNoPrompt($0, $1) {
9073
- return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($10 => Prelude_IO_prim__putStr(Prelude_Types_foldMap_Foldable_List(csegen_49(), $17 => $17, {a1: $1, a2: {a1: ' [Y/n] ', a2: {h: 0}}}), $10)))($1f => $0.a1.a1.a1(undefined)(undefined)($2a => Util_n__5058_1284_yesUnlessNo($0, $1, Data_String_trim($2a)))($0.a2(undefined)($37 => Prelude_IO_prim__getStr($37))));
9074
- }
9075
-
9076
- /* Util.whenNothing : Applicative f => Maybe a -> f () -> f () */
9077
- function Util_whenNothing($0, $1, $2) {
9078
- switch($1.h) {
9079
- case 0: /* nothing */ return $2;
9080
- case undefined: /* just */ return $0.a2(undefined)(undefined);
9081
- }
9082
- }
9083
-
9084
- /* Util.renderString : Config => Doc AnsiStyle -> String */
9085
- function Util_renderString($0, $1) {
9086
- let $7;
9087
- switch(Data_Config_rf__colors($0)) {
9088
- case 1: {
9089
- $7 = $1;
9090
- break;
9091
- }
9092
- case 0: {
9093
- $7 = Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($1);
9094
- break;
9095
- }
9096
- }
9097
- const $3 = Text_PrettyPrint_Prettyprinter_Doc_layoutPretty(Text_PrettyPrint_Prettyprinter_Doc_defaultLayoutOptions(), $7);
9098
- return Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString($3);
9099
- }
9100
-
9101
- /* Util.renderIO : Config => HasIO io => Doc AnsiStyle -> io () */
9102
- function Util_renderIO($0, $1, $2) {
9103
- const $7 = $8 => {
9104
- let $a;
9105
- switch(Data_Config_rf__colors($0)) {
9106
- case 1: {
9107
- $a = $2;
9108
- break;
9109
- }
9110
- case 0: {
9111
- $a = Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($2);
9112
- break;
9113
- }
9114
- }
9115
- return Text_PrettyPrint_Prettyprinter_Render_Terminal_putDoc($a, $8);
9116
- };
9117
- return $1.a2(undefined)($7);
9118
- }
9119
-
9120
- /* Util.relativeToRoot : Git => String -> Promise String */
9121
- function Util_relativeToRoot($0, $1, $2, $3) {
9122
- return Data_Promise_map_Functor_Promise($6 => ($6+Prelude_Types_foldMap_Foldable_List(csegen_49(), $d => $d, {a1: '/', a2: {a1: $1, a2: {h: 0}}})), $14 => $15 => FFI_Git_rootDir($0, $14, $15), $2, $3);
9123
- }
9124
-
9125
- /* Util.parseJiraPrefix : String -> Maybe String */
9126
- function Util_parseJiraPrefix($0) {
9127
- return Prelude_Types_map_Functor_Maybe($3 => Prelude_Types_fastPack(Prelude_Types_List_reverse($3)), Util_n__5161_1390_guardSuccess(Prelude_Types_foldl_Foldable_List($d => $e => Util_n__5161_1389_go($d, $e), Util_n__5161_1391_startOver(), Prelude_Types_fastUnpack($0))));
9128
- }
9129
-
9130
- /* Util.getManyLines : HasIO io => Fuel -> io (List String) */
9131
- function Util_getManyLines($0, $1) {
9132
- return Util_n__4945_1172_getMoreLines($0, {h: 0}, $1);
9133
- }
9134
-
9135
9296
  /* Data.List.PrefixSuffix.with block in with block in dropPrefix */
9136
9297
  function Data_List_PrefixSuffix_with__withx20blockx20inx20dropPrefix_3656($0, $1, $2, $3, $4, $5) {
9137
9298
  switch($4.h) {
@@ -9384,7 +9545,7 @@ function Commands_n__9677_2510_parseSkipArg($0, $1) {
9384
9545
 
9385
9546
  /* Commands.9677:2509:parseIgnoreOpt */
9386
9547
  function Commands_n__9677_2509_parseIgnoreOpt($0, $1) {
9387
- const $2 = Data_String_split(csegen_326(), $1);
9548
+ const $2 = Data_String_split(csegen_422(), $1);
9388
9549
  const $7 = Data_List1_last($2);
9389
9550
  return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
9390
9551
  }
@@ -9503,7 +9664,7 @@ function Commands_parseGraphArgs($0) {
9503
9664
  switch($0.a2.a2.h) {
9504
9665
  case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
9505
9666
  default: {
9506
- const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_392(), $10 => Commands_n__9518_2372_parseCompletedFlag($0, $10), $15 => Commands_n__9518_2373_parseTeamArg($0, $15), $b), $0);
9667
+ const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_486(), $10 => Commands_n__9518_2372_parseCompletedFlag($0, $10), $15 => Commands_n__9518_2373_parseTeamArg($0, $15), $b), $0);
9507
9668
  switch($6.h) {
9508
9669
  case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
9509
9670
  case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
@@ -9512,7 +9673,7 @@ function Commands_parseGraphArgs($0) {
9512
9673
  }
9513
9674
  }
9514
9675
  default: {
9515
- const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_392(), $27 => Commands_n__9518_2372_parseCompletedFlag($0, $27), $2c => Commands_n__9518_2373_parseTeamArg($0, $2c), $22), $0);
9676
+ const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_486(), $27 => Commands_n__9518_2372_parseCompletedFlag($0, $27), $2c => Commands_n__9518_2373_parseTeamArg($0, $2c), $22), $0);
9516
9677
  switch($1d.h) {
9517
9678
  case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
9518
9679
  case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
@@ -9521,7 +9682,7 @@ function Commands_parseGraphArgs($0) {
9521
9682
  }
9522
9683
  }
9523
9684
  default: {
9524
- const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_392(), $3e => Commands_n__9518_2372_parseCompletedFlag($0, $3e), $43 => Commands_n__9518_2373_parseTeamArg($0, $43), $39), $0);
9685
+ const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_486(), $3e => Commands_n__9518_2372_parseCompletedFlag($0, $3e), $43 => Commands_n__9518_2373_parseTeamArg($0, $43), $39), $0);
9525
9686
  switch($34.h) {
9526
9687
  case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
9527
9688
  case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
@@ -9537,7 +9698,7 @@ function Commands_parseContributeArgs($0) {
9537
9698
  default: {
9538
9699
  const $3 = Commands_n__9677_2511_recombineIgnoreArgs($0, $0);
9539
9700
  const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 1 /* Ignore */, a1: $b}), $3.a1);
9540
- const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_392(), $18 => Commands_n__9677_2510_parseSkipArg($0, $18), $1d => Commands_n__9677_2508_parseCheckoutFlag($0, $1d), $13), $3.a2);
9701
+ const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_486(), $18 => Commands_n__9677_2510_parseSkipArg($0, $18), $1d => Commands_n__9677_2508_parseCheckoutFlag($0, $1d), $13), $3.a2);
9541
9702
  return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($29 => Prelude_Types_List_tailRecAppend($7, $29), $e));
9542
9703
  }
9543
9704
  }
@@ -9545,14 +9706,14 @@ function Commands_parseContributeArgs($0) {
9545
9706
 
9546
9707
  /* Commands.list : Config => Octokit => String -> Promise () */
9547
9708
  function Commands_list($0, $1, $2, $3, $4) {
9548
- return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => Data_Promise_map_Functor_Promise(csegen_393(), $d => $e => FFI_GitHub_listTeamMembers($1, $0.a2, $2, $d, $e), $7, $8), teamMemberLogins => $19 => $1a => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_297(), csegen_394(), Prelude_Types_traverse_Traversable_List(csegen_64(), $27 => Commands_n__9068_1921_forkedUser($1, $2, $0, $27), teamMemberLogins)), teamMembersJson => $2f => $30 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_traverse_Traversable_List(csegen_64(), $37 => $38 => Data_Promise_either(csegen_51(), Data_User_parseUser($37), $38), teamMembersJson), teamMembers => Util_renderIO($0, csegen_72(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $4c => Commands_n__9068_1922_putNameLn($1, $2, $0, $4c), teamMembers))), $2f, $30), $19, $1a), $3, $4);
9709
+ return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => Data_Promise_map_Functor_Promise(csegen_487(), $d => $e => FFI_GitHub_listTeamMembers($1, $0.a2, $2, $d, $e), $7, $8), teamMemberLogins => $19 => $1a => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_393(), csegen_488(), Prelude_Types_traverse_Traversable_List(csegen_64(), $27 => Commands_n__9068_1921_forkedUser($1, $2, $0, $27), teamMemberLogins)), teamMembersJson => $2f => $30 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_traverse_Traversable_List(csegen_64(), $37 => $38 => Data_Promise_either(csegen_51(), Data_User_parseUser($37), $38), teamMembersJson), teamMembers => Util_renderIO($0, csegen_72(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $4c => Commands_n__9068_1922_putNameLn($1, $2, $0, $4c), teamMembers))), $2f, $30), $19, $1a), $3, $4);
9549
9710
  }
9550
9711
 
9551
9712
  /* Commands.label : Config => Git => Octokit => List String -> Promise () */
9552
9713
  function Commands_label($0, $1, $2, $3, $4, $5) {
9553
9714
  const $20 = $21 => {
9554
9715
  const $23 = Prelude_Types_List_mapAppend({h: 0}, $27 => Commands_unslugifyLabel($0.a10, $27), $3);
9555
- return $2d => $2e => Data_Promise_x3ex3ex3d_Monad_Promise($31 => $32 => Label_addLabels($0, $2, $21.a2, $23, $31, $32), allLabels => Util_renderIO($0, csegen_72(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Added'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8389_1299_putLabels($1, $2, $3, $0, $23), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(' to PR.'), a2: {h: 0}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $61 => $61, {a1: 'All labels for PR of ', a2: {a1: $21.a2.a7, a2: {a1: ':', a2: {h: 0}}}})), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8389_1299_putLabels($1, $2, $3, $0, allLabels), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('.'), a2: {h: 0}}))), a2: {h: 0}}})), $2d, $2e);
9716
+ return $2d => $2e => Data_Promise_x3ex3ex3d_Monad_Promise($31 => $32 => Label_addLabels($0, $2, $21.a2, $23, $31, $32), allLabels => Util_renderIO($0, csegen_72(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Added'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8389_1299_putLabels($1, $2, $3, $0, $23), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(' to PR.'), a2: {h: 0}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $61 => $61, {a1: 'All labels for PR of ', a2: {a1: $21.a2.a7, a2: {a1: ':', a2: {h: 0}}}})), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8389_1299_putLabels($1, $2, $3, $0, allLabels), csegen_323())), a2: {h: 0}}})), $2d, $2e);
9556
9717
  };
9557
9718
  return Data_Promise_x3ex3ex3d_Monad_Promise($8 => $9 => Data_Promise_x3ex3ex3d_Monad_Promise($c => $d => FFI_Git_currentBranch($1, $c, $d), $13 => $14 => $15 => PullRequest_identifyOrCreatePR($0, $1, $2, 0, $13, $14, $15), $8, $9), $20, $4, $5);
9558
9719
  }
@@ -9617,12 +9778,12 @@ function Commands_contribute($0, $1, $2, $3, $4, $5) {
9617
9778
  const $53 = Prelude_Types_List_filterAppend({h: 0}, $56, $13);
9618
9779
  const $5d = Prelude_Types_List_filterAppend({h: 0}, $61 => Commands_n__10007_2847_isNotIgnored($1, $2, $3, $0, configx27, $61), $53);
9619
9780
  const $6a = Data_List_partition($6d => Data_PullRequest_isRequestedReviewer(myLogin, $6d), $5d);
9620
- return Commands_case__contribute_3017($1, $2, $3, $0, openPrs, $13, myLogin, $2a, configx27, $40, $4d, $53, $5d, $6a, Prelude_Interfaces_mapHom({a1: d => b => c => a => $85 => $86 => $87 => ({a1: $85($87.a1), a2: $86($87.a2)}), a2: b => c => a => $90 => $91 => ({a1: $90($91.a1), a2: $91.a2}), a3: a => d => b => $98 => $99 => ({a1: $99.a1, a2: $98($99.a2)})}, $a0 => Data_List_sortBy(csegen_406(), $a0), $6a));
9781
+ return Commands_case__contribute_3017($1, $2, $3, $0, openPrs, $13, myLogin, $2a, configx27, $40, $4d, $53, $5d, $6a, Prelude_Interfaces_mapHom({a1: d => b => c => a => $85 => $86 => $87 => ({a1: $85($87.a1), a2: $86($87.a2)}), a2: b => c => a => $90 => $91 => ({a1: $90($91.a1), a2: $91.a2}), a3: a => d => b => $98 => $99 => ({a1: $99.a1, a2: $98($99.a2)})}, $a0 => Data_List_sortBy(csegen_498(), $a0), $6a));
9621
9782
  };
9622
9783
  return Data_Promise_x3ex3ex3d_Monad_Promise($30, $3f, $2d, $2e);
9623
9784
  };
9624
9785
  };
9625
- return Data_Promise_x3ex3ex3d_Monad_Promise($1f => $20 => Data_Promise_map_Functor_Promise(csegen_402(), FFI_GitHub_getSelf($2), $1f, $20), $29, $1b, $1c);
9786
+ return Data_Promise_x3ex3ex3d_Monad_Promise($1f => $20 => Data_Promise_map_Functor_Promise(csegen_494(), FFI_GitHub_getSelf($2), $1f, $20), $29, $1b, $1c);
9626
9787
  };
9627
9788
  };
9628
9789
  return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequests($2, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $12, $4, $5);
@@ -9652,7 +9813,7 @@ function Commands_x3cx7cx7cx3e($0, $1, $2, $3) {
9652
9813
 
9653
9814
  /* User.Reflect.case block in case block in reflectOnSelf */
9654
9815
  function User_Reflect_case__casex20blockx20inx20reflectOnSelf_1862($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
9655
- const $b = Prelude_Interfaces_mapHom({a1: d => b => c => a => $f => $10 => $11 => ({a1: $f($11.a1), a2: $10($11.a2)}), a2: b => c => a => $1a => $1b => ({a1: $1a($1b.a1), a2: $1b.a2}), a3: a => d => b => $22 => $23 => ({a1: $23.a1, a2: $22($23.a2)})}, $2a => Data_List_headx27(Data_List_sort({a1: {a1: $31 => $32 => Data_Date_x3dx3d_Eq_Date($31, $32), a2: $37 => $38 => Data_Date_x2fx3d_Eq_Date($37, $38)}, a2: $3d => $3e => Data_Date_compare_Ord_Date($3d, $3e), a3: $43 => $44 => Data_Date_x3c_Ord_Date($43, $44), a4: $49 => $4a => Data_Date_x3e_Ord_Date($49, $4a), a5: $4f => $50 => Data_Date_x3cx3d_Ord_Date($4f, $50), a6: $55 => $56 => Data_Date_x3ex3d_Ord_Date($55, $56), a7: $5b => $5c => Data_Date_max_Ord_Date($5b, $5c), a8: $61 => $62 => Data_Date_min_Ord_Date($61, $62)}, Prelude_Types_List_mapAppend({h: 0}, csegen_419(), $2a))), {a1: $7, a2: $9.a1});
9816
+ const $b = Prelude_Interfaces_mapHom({a1: d => b => c => a => $f => $10 => $11 => ({a1: $f($11.a1), a2: $10($11.a2)}), a2: b => c => a => $1a => $1b => ({a1: $1a($1b.a1), a2: $1b.a2}), a3: a => d => b => $22 => $23 => ({a1: $23.a1, a2: $22($23.a2)})}, $2a => Data_List_headx27(Data_List_sort({a1: {a1: $31 => $32 => Data_Date_x3dx3d_Eq_Date($31, $32), a2: $37 => $38 => Data_Date_x2fx3d_Eq_Date($37, $38)}, a2: $3d => $3e => Data_Date_compare_Ord_Date($3d, $3e), a3: $43 => $44 => Data_Date_x3c_Ord_Date($43, $44), a4: $49 => $4a => Data_Date_x3e_Ord_Date($49, $4a), a5: $4f => $50 => Data_Date_x3cx3d_Ord_Date($4f, $50), a6: $55 => $56 => Data_Date_x3ex3d_Ord_Date($55, $56), a7: $5b => $5c => Data_Date_max_Ord_Date($5b, $5c), a8: $61 => $62 => Data_Date_min_Ord_Date($61, $62)}, Prelude_Types_List_mapAppend({h: 0}, csegen_511(), $2a))), {a1: $7, a2: $9.a1});
9656
9817
  return Util_renderIO($0, csegen_72(), User_Reflect_print(Prelude_Types_String_length(User_Reflect_intro()), Prelude_Types_List_lengthTR($4), Prelude_Types_List_lengthTR($9.a1), Prelude_Types_List_lengthTR($9.a2), Prelude_Types_List_lengthTR($8), Prelude_Types_List_lengthTR($7), $5, $b.a1, $b.a2));
9657
9818
  }
9658
9819
 
@@ -9735,21 +9896,21 @@ function User_Reflect_reflectOnSelf($0, $1, $2, $3) {
9735
9896
  const $c = prs => $d => $e => {
9736
9897
  const $1b = myLogin => $1c => $1d => {
9737
9898
  const $39 = reviews => {
9738
- const $3a = Prelude_Types_map_Functor_Maybe(csegen_422(), Data_List_headx27(Data_List_sortBy($43 => $44 => Prelude_Basics_on(csegen_404(), csegen_422(), $43, $44), reviews)));
9899
+ const $3a = Prelude_Types_map_Functor_Maybe(csegen_514(), Data_List_headx27(Data_List_sortBy($43 => $44 => Prelude_Basics_on(csegen_496(), csegen_514(), $43, $44), reviews)));
9739
9900
  const $4d = PullRequest_tuple(prs);
9740
9901
  const $50 = Prelude_Interfaces_mapHom({a1: d => b => c => a => $54 => $55 => $56 => ({a1: $54($56.a1), a2: $55($56.a2)}), a2: b => c => a => $5f => $60 => ({a1: $5f($60.a1), a2: $60.a2}), a3: a => d => b => $67 => $68 => ({a1: $68.a1, a2: $67($68.a2)})}, $6f => Prelude_Types_List_filterAppend({h: 0}, $73 => Prelude_EqOrd_x3dx3d_Eq_String($73.a4, myLogin), $6f), $4d);
9741
9902
  return User_Reflect_case__casex20blockx20inx20reflectOnSelf_1862($0, $1, prs, myLogin, reviews, $3a, $4d, $50.a1, $50.a2, Prelude_Interfaces_mapHom({a1: d => b => c => a => $88 => $89 => $8a => ({a1: $88($8a.a1), a2: $89($8a.a2)}), a2: b => c => a => $93 => $94 => ({a1: $93($94.a1), a2: $94.a2}), a3: a => d => b => $9b => $9c => ({a1: $9c.a1, a2: $9b($9c.a2)})}, $a3 => Prelude_Types_List_filterAppend({h: 0}, $a7 => Prelude_Types_foldMap_Foldable_List(csegen_94(), $ac => Prelude_EqOrd_x3dx3d_Eq_String($ac, myLogin), $a7.a6), $a3), $4d));
9742
9903
  };
9743
- return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2d => $2e => Prelude_Basics_on(csegen_404(), csegen_419(), $2d, $2e), PullRequest_combined(prs))))), $39, $1c, $1d);
9904
+ return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2d => $2e => Prelude_Basics_on(csegen_496(), csegen_511(), $2d, $2e), PullRequest_combined(prs))))), $39, $1c, $1d);
9744
9905
  };
9745
- return Data_Promise_x3ex3ex3d_Monad_Promise($11 => $12 => Data_Promise_map_Functor_Promise(csegen_402(), FFI_GitHub_getSelf($1), $11, $12), $1b, $d, $e);
9906
+ return Data_Promise_x3ex3ex3d_Monad_Promise($11 => $12 => Data_Promise_map_Functor_Promise(csegen_494(), FFI_GitHub_getSelf($1), $11, $12), $1b, $d, $e);
9746
9907
  };
9747
9908
  return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_listPartitionedPRs($0, $1, 4n, User_Reflect_prCount()), $c, $2, $3);
9748
9909
  }
9749
9910
 
9750
9911
  /* User.Me.printInfoOnSelf : Config => Octokit => Git => Promise () */
9751
9912
  function User_Me_printInfoOnSelf($0, $1, $2, $3, $4) {
9752
- return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => Data_Promise_map_Functor_Promise($b => User_Me_n__7256_2135_handleUnsetEmail($0, $1, $2, $b), $12 => $13 => FFI_Git_userEmail($2, $12, $13), $7, $8), gitEmail => $1b => $1c => Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_getSelf($1), githubUser => $22 => $23 => Data_Promise_x3ex3ex3d_Monad_Promise($26 => $27 => Data_Promise_map_Functor_Promise(csegen_393(), $2c => $2d => FFI_GitHub_listMyTeams($1, $2c, $2d), $26, $27), githubTeams => Util_renderIO($0, csegen_72(), User_Me_print(gitEmail, githubUser, githubTeams)), $22, $23), $1b, $1c), $3, $4);
9913
+ return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => Data_Promise_map_Functor_Promise($b => User_Me_n__7256_2135_handleUnsetEmail($0, $1, $2, $b), $12 => $13 => FFI_Git_userEmail($2, $12, $13), $7, $8), gitEmail => $1b => $1c => Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_getSelf($1), githubUser => $22 => $23 => Data_Promise_x3ex3ex3d_Monad_Promise($26 => $27 => Data_Promise_map_Functor_Promise(csegen_487(), $2c => $2d => FFI_GitHub_listMyTeams($1, $2c, $2d), $26, $27), githubTeams => Util_renderIO($0, csegen_72(), User_Me_print(gitEmail, githubUser, githubTeams)), $22, $23), $1b, $1c), $3, $4);
9753
9914
  }
9754
9915
 
9755
9916
  /* User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
@@ -9797,7 +9958,7 @@ function User_Reflect_graph($0, $1, $2, $3, $4, $5) {
9797
9958
 
9798
9959
  /* User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
9799
9960
  function User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
9800
- return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(User_Reflect_intro()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Requested Reviews:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('unreviewed:')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($2)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(csegen_428(), $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_428(), $7), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('closed:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($4)), a2: {h: 0}}})}, a2: {h: 0}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $cf => $cf, {a1: '*review count (not PR count) of most recent ', a2: {a1: Data_Fin_show_Show_x28Finx20x24nx29(User_Reflect_reviewDetailsCount()), a2: {a1: ' PRs.', a2: {h: 0}}}}))), a2: {h: 0}}}}}}}}}});
9961
+ return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(User_Reflect_intro()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Requested Reviews:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('unreviewed:')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($2)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(csegen_520(), $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_520(), $7), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('closed:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($4)), a2: {h: 0}}})}, a2: {h: 0}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $cf => $cf, {a1: '*review count (not PR count) of most recent ', a2: {a1: Data_Fin_show_Show_x28Finx20x24nx29(User_Reflect_reviewDetailsCount()), a2: {a1: ' PRs.', a2: {h: 0}}}}))), a2: {h: 0}}}}}}}}}});
9801
9962
  }
9802
9963
 
9803
9964
  /* User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
@@ -9935,7 +10096,7 @@ function PullRequest_n__10180_2627_editorDescription($0, $1, $2, $3, $4, $5, $6,
9935
10096
 
9936
10097
  /* PullRequest.9490:1962:csv */
9937
10098
  function PullRequest_n__9490_1962_csv($0, $1, $2, $3, $4, $5, $6) {
9938
- 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}, csegen_296(), $6)));
10099
+ 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)));
9939
10100
  }
9940
10101
 
9941
10102
  /* PullRequest.10180:2626:createPR */
@@ -9984,7 +10145,7 @@ function PullRequest_n__10180_2626_createPR($0, $1, $2, $3, $4, $5, $6) {
9984
10145
  };
9985
10146
  return Data_Promise_x3ex3ex3d_Monad_Promise($16f => $170 => Util_relativeToRoot($0, '.github/PULL_REQUEST_TEMPLATE.md', $16f, $170), $176, $16b, $16c);
9986
10147
  };
9987
- return Data_Promise_x3ex3ex3d_Monad_Promise($15d => $15e => Data_Promise_map_Functor_Promise($161 => ($13b+Data_String_trim($161)), csegen_360(), $15d, $15e), $16a, $159, $15a);
10148
+ return Data_Promise_x3ex3ex3d_Monad_Promise($15d => $15e => Data_Promise_map_Functor_Promise($161 => ($13b+Data_String_trim($161)), csegen_456(), $15d, $15e), $16a, $159, $15a);
9988
10149
  };
9989
10150
  return Data_Promise_x3ex3ex3d_Monad_Promise($14b => $14c => $14d => Data_Promise_liftIO_HasIO_Promise($150 => Prelude_IO_prim__putStr($13b, $150), $14b, $14c, $14d), $157, $147, $148);
9990
10151
  };
@@ -9993,7 +10154,7 @@ function PullRequest_n__10180_2626_createPR($0, $1, $2, $3, $4, $5, $6) {
9993
10154
  return Data_Promise_x3ex3ex3d_Monad_Promise($12c => $12d => $12e => Data_Promise_liftIO_HasIO_Promise($131 => Prelude_IO_prim__putStr('What would you like the title to be?\n', $131), $12c, $12d, $12e), $138, $128, $129);
9994
10155
  };
9995
10156
  };
9996
- return Data_Promise_x3ex3ex3d_Monad_Promise($10f => $110 => Data_Promise_map_Functor_Promise($113 => Data_String_trim($113), csegen_360(), $10f, $110), $11a, $10b, $10c);
10157
+ return Data_Promise_x3ex3ex3d_Monad_Promise($10f => $110 => Data_Promise_map_Functor_Promise($113 => Data_String_trim($113), csegen_456(), $10f, $110), $11a, $10b, $10c);
9997
10158
  };
9998
10159
  return Data_Promise_x3ex3ex3d_Monad_Promise($ee => $ef => $f0 => Data_Promise_liftIO_HasIO_Promise($f3 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_49(), $fb => $fb, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $4.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $f3), $ee, $ef, $f0), $109, $ea, $eb);
9999
10160
  };
@@ -10018,7 +10179,7 @@ function PullRequest_n__10180_2626_createPR($0, $1, $2, $3, $4, $5, $6) {
10018
10179
  function PullRequest_n__10180_2625_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6) {
10019
10180
  const $f = $10 => $11 => $12 => {
10020
10181
  switch($10.h) {
10021
- case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($16 => $17 => $18 => Data_Promise_liftIO_HasIO_Promise($1b => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1b), $16, $17, $18), $23 => $24 => $25 => Data_Promise_x3ex3ex3d_Monad_Promise($28 => $29 => $2a => Data_Promise_liftIO_HasIO_Promise($2d => Prelude_IO_prim__putStr(($10.a1+'\n'), $2d), $28, $29, $2a), csegen_457(), $24, $25), $11, $12);
10182
+ case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($16 => $17 => $18 => Data_Promise_liftIO_HasIO_Promise($1b => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1b), $16, $17, $18), $23 => $24 => $25 => Data_Promise_x3ex3ex3d_Monad_Promise($28 => $29 => $2a => Data_Promise_liftIO_HasIO_Promise($2d => Prelude_IO_prim__putStr(($10.a1+'\n'), $2d), $28, $29, $2a), csegen_550(), $24, $25), $11, $12);
10022
10183
  case 0: /* nothing */ return Data_Promise_pure_Applicative_Promise(1, $11, $12);
10023
10184
  }
10024
10185
  };
@@ -10029,7 +10190,7 @@ function PullRequest_n__10180_2625_continueGivenUncommittedChanges($0, $1, $2, $
10029
10190
  function PullRequest_n__10180_2624_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6) {
10030
10191
  const $f = $10 => $11 => $12 => {
10031
10192
  switch($10.h) {
10032
- case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($16 => $17 => $18 => Data_Promise_liftIO_HasIO_Promise($1b => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1b), $16, $17, $18), $23 => $24 => $25 => Data_Promise_x3ex3ex3d_Monad_Promise($28 => $29 => $2a => Data_Promise_liftIO_HasIO_Promise($2d => Prelude_IO_prim__putStr(($10.a1+'\n'), $2d), $28, $29, $2a), csegen_457(), $24, $25), $11, $12);
10193
+ case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($16 => $17 => $18 => Data_Promise_liftIO_HasIO_Promise($1b => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1b), $16, $17, $18), $23 => $24 => $25 => Data_Promise_x3ex3ex3d_Monad_Promise($28 => $29 => $2a => Data_Promise_liftIO_HasIO_Promise($2d => Prelude_IO_prim__putStr(($10.a1+'\n'), $2d), $28, $29, $2a), csegen_550(), $24, $25), $11, $12);
10033
10194
  case 0: /* nothing */ return Data_Promise_pure_Applicative_Promise(1, $11, $12);
10034
10195
  }
10035
10196
  };
@@ -10073,7 +10234,7 @@ function PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
10073
10234
  };
10074
10235
  return Data_Promise_x3ex3ex3d_Monad_Promise($1c, reviews => $43 => $44 => Data_Promise_pure_Applicative_Promise(Prelude_Types_join_Monad_List(reviews), $43, $44), $19, $1a);
10075
10236
  };
10076
- return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_297(), csegen_394(), Prelude_Types_traverse_Traversable_List(csegen_64(), $11 => PullRequest_n__9263_1704_forkedReviews($0, $1, $2, $11), $2)), $18, $3, $4);
10237
+ return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_393(), csegen_488(), Prelude_Types_traverse_Traversable_List(csegen_64(), $11 => PullRequest_n__9263_1704_forkedReviews($0, $1, $2, $11), $2)), $18, $3, $4);
10077
10238
  }
10078
10239
 
10079
10240
  /* PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise (List Review) */
@@ -10124,7 +10285,7 @@ function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
10124
10285
  break;
10125
10286
  }
10126
10287
  case 0: {
10127
- $37 = csegen_362();
10288
+ $37 = csegen_458();
10128
10289
  break;
10129
10290
  }
10130
10291
  }
@@ -10243,12 +10404,12 @@ function PullRequest_listx27($0, $1, $2, $3) {
10243
10404
  }
10244
10405
  };
10245
10406
  const $4d = {a1: $4e, a2: a => $56 => ({h: 1 /* Right */, a1: $56}), a3: $58};
10246
- const $4b = Prelude_Types_traverse_Traversable_List($4d, csegen_317(), prJsons);
10407
+ const $4b = Prelude_Types_traverse_Traversable_List($4d, csegen_413(), prJsons);
10247
10408
  return Data_Promise_either(csegen_51(), $4b, $47);
10248
10409
  };
10249
10410
  return Data_Promise_x3ex3ex3d_Monad_Promise($46, pulls => $67 => $68 => Data_Promise_pure_Applicative_Promise(Prelude_Types_join_Monad_List(pulls), $67, $68), $43, $44);
10250
10411
  };
10251
- return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_297(), $a => $b => $c => FFI_Concurrency_promiseAll({a1: acc => elem => func => init => input => Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a2: elem => acc => func => init => input => Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a3: elem => $1a => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1a), a4: elem => acc => m => $1e => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1e, funcM, init, input), a5: elem => $25 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($25), a6: a => m => $29 => f => $2a => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($29, f, $2a)}, $a, $b, $c), Data_Pagination_traversex27(csegen_64(), $37 => $38 => $39 => $3a => PullRequest_forkedPRs($0, $37, $38, $39, $3a), $1)), $42, $2, $3);
10412
+ return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_393(), $a => $b => $c => FFI_Concurrency_promiseAll({a1: acc => elem => func => init => input => Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a2: elem => acc => func => init => input => Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a3: elem => $1a => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1a), a4: elem => acc => m => $1e => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1e, funcM, init, input), a5: elem => $25 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($25), a6: a => m => $29 => f => $2a => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($29, f, $2a)}, $a, $b, $c), Data_Pagination_traversex27(csegen_64(), $37 => $38 => $39 => $3a => PullRequest_forkedPRs($0, $37, $38, $39, $3a), $1)), $42, $2, $3);
10252
10413
  }
10253
10414
 
10254
10415
  /* PullRequest.identifyOrCreatePR : Config => Git => Octokit => {default False _ : Bool} ->
@@ -10841,7 +11002,7 @@ function Graph_n__6343_6621_header($0, $1, $2, $3, $4, $5) {
10841
11002
  break;
10842
11003
  }
10843
11004
  }
10844
- const $34 = {a1: $35, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Graph_n__6343_6624_redDot($0, $1, $2, $3, $4, $5), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('overlayed on'), Graph_n__6343_6625_yellowDot($0, $1, $2, $3, $4, $5))))}, a2: csegen_504()}};
11005
+ const $34 = {a1: $35, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Graph_n__6343_6624_redDot($0, $1, $2, $3, $4, $5), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('overlayed on'), Graph_n__6343_6625_yellowDot($0, $1, $2, $3, $4, $5))))}, a2: csegen_597()}};
10845
11006
  const $23 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('1x the number of closed PRs with unanswered review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Graph_n__6343_6624_redDot($0, $1, $2, $3, $4, $5)))}, a2: $34};
10846
11007
  const $12 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('4x the number of open review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Graph_n__6343_6625_yellowDot($0, $1, $2, $3, $4, $5)))}, a2: $23};
10847
11008
  const $d = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $12};
@@ -10852,7 +11013,7 @@ function Graph_n__6343_6621_header($0, $1, $2, $3, $4, $5) {
10852
11013
 
10853
11014
  /* Graph.5952:6229:header */
10854
11015
  function Graph_n__5952_6229_header($0, $1, $2) {
10855
- 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_504()}}}));
11016
+ return Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Open Pull Requests grouped by month created.')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: csegen_597()}}}));
10856
11017
  }
10857
11018
 
10858
11019
  /* Graph.6343:6620:greenBox */
@@ -11002,9 +11163,9 @@ function Graph_reviewsGraph($0, $1, $2, $3, $4, $5) {
11002
11163
 
11003
11164
  /* Graph.healthGraph : List PullRequest -> String -> String -> Doc AnsiStyle */
11004
11165
  function Graph_healthGraph($0, $1, $2) {
11005
- const $3 = Data_List_groupBy($6 => $7 => Prelude_Basics_on($a => $b => Prelude_Basics_on($e => $f => (($e===$f)?1:0), $13 => $13.a2, $a, $b), csegen_405(), $6, $7), Data_List_sortBy(csegen_406(), $0));
11166
+ const $3 = Data_List_groupBy($6 => $7 => Prelude_Basics_on($a => $b => Prelude_Basics_on($e => $f => (($e===$f)?1:0), $13 => $13.a2, $a, $b), csegen_497(), $6, $7), Data_List_sortBy(csegen_498(), $0));
11006
11167
  const $20 = Prelude_Types_foldr_Foldable_List(xs => m => Prelude_Types_max_Ord_Nat(Data_List1_length(xs), m), 1n, $3);
11007
- return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Graph_n__5952_6229_header($2, $1, $0), a2: {a1: Graph_graph({a1: $36 => Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_523(), $36), a2: $3c => Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_523(), $3c), a3: $42 => Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_523(), $42), a4: $48 => Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_523(), $48), a5: $4e => Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_523(), $4e)}, $20, Graph_n__5952_6231_unfoldGraph($2, $1, $0, Data_Fuel_limit(48n), $3, {h: 0})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Graph_n__5952_6230_link($2, $1, $0)), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}});
11168
+ return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Graph_n__5952_6229_header($2, $1, $0), a2: {a1: Graph_graph({a1: $36 => Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_616(), $36), a2: $3c => Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_616(), $3c), a3: $42 => Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_616(), $42), a4: $48 => Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_616(), $48), a5: $4e => Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_616(), $4e)}, $20, Graph_n__5952_6231_unfoldGraph($2, $1, $0, Data_Fuel_limit(48n), $3, {h: 0})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Graph_n__5952_6230_link($2, $1, $0)), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}});
11008
11169
  }
11009
11170
 
11010
11171
  /* Graph.graphOne : Graphable g => Nat -> g -> Doc AnsiStyle */
@@ -11024,32 +11185,6 @@ function Graph_bar($0, $1, $2, $3) {
11024
11185
  return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(1), Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $2, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{25e6}')))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $1, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{b7}')))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $3, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{25aa}')))), a2: {h: 0}}}}));
11025
11186
  }
11026
11187
 
11027
- /* Text.PrettyPrint.Prettyprinter.Util.case block in words,helper */
11028
- function Text_PrettyPrint_Prettyprinter_Util_case__wordsx2chelper_5200($0, $1, $2) {
11029
- switch($2.h) {
11030
- case 0: /* nil */ return {h: 0};
11031
- default: {
11032
- const $4 = Data_List_break$($7 => Prelude_Types_isSpace($7), $2);
11033
- return {a1: $4.a1, a2: Text_PrettyPrint_Prettyprinter_Util_n__3825_5188_helper($0, $4.a2)};
11034
- }
11035
- }
11036
- }
11037
-
11038
- /* Text.PrettyPrint.Prettyprinter.Util.3825:5188:helper */
11039
- function Text_PrettyPrint_Prettyprinter_Util_n__3825_5188_helper($0, $1) {
11040
- return Text_PrettyPrint_Prettyprinter_Util_case__wordsx2chelper_5200($0, $1, Data_List_dropWhile($8 => Prelude_Types_isSpace($8), $1));
11041
- }
11042
-
11043
- /* Text.PrettyPrint.Prettyprinter.Util.words : String -> List (Doc ann) */
11044
- function Text_PrettyPrint_Prettyprinter_Util_words($0) {
11045
- return Prelude_Types_List_mapAppend({h: 0}, $4 => Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4), Prelude_Types_List_mapAppend({h: 0}, $b => Prelude_Types_fastPack($b), Text_PrettyPrint_Prettyprinter_Util_n__3825_5188_helper($0, Prelude_Types_fastUnpack($0))));
11046
- }
11047
-
11048
- /* Text.PrettyPrint.Prettyprinter.Util.reflow : String -> Doc ann */
11049
- function Text_PrettyPrint_Prettyprinter_Util_reflow($0) {
11050
- return Text_PrettyPrint_Prettyprinter_Doc_fillSep(Text_PrettyPrint_Prettyprinter_Util_words($0));
11051
- }
11052
-
11053
11188
  /* AppVersion.printVersion : HasIO io => io () */
11054
11189
  function AppVersion_printVersion($0) {
11055
11190
  return $0.a2(undefined)($6 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_49(), $e => $e, {a1: 'Harmony v', a2: {a1: AppVersion_appVersion(), a2: {h: 0}}})+'\n'), $6));
@@ -11057,7 +11192,7 @@ function AppVersion_printVersion($0) {
11057
11192
 
11058
11193
  /* AppVersion.appVersion : String */
11059
11194
  const AppVersion_appVersion = __lazy(function () {
11060
- return '3.2.0';
11195
+ return '3.3.0';
11061
11196
  });
11062
11197
 
11063
11198