@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.
- package/harmony +864 -729
- 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),
|
|
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),
|
|
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),
|
|
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),
|
|
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:
|
|
2587
|
-
const
|
|
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:
|
|
2592
|
-
const
|
|
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:
|
|
2597
|
-
const
|
|
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:
|
|
2602
|
-
const
|
|
2603
|
-
return
|
|
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:
|
|
2607
|
-
const
|
|
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:
|
|
2612
|
-
const
|
|
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:
|
|
2617
|
-
const
|
|
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:
|
|
2622
|
-
const
|
|
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:
|
|
2627
|
-
const
|
|
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:
|
|
2632
|
-
const
|
|
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:
|
|
2637
|
-
const
|
|
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:
|
|
2642
|
-
const
|
|
2661
|
+
/* {csegen:423} */
|
|
2662
|
+
const csegen_423 = __lazy(function () {
|
|
2643
2663
|
return $0 => $0.a2;
|
|
2644
2664
|
});
|
|
2645
2665
|
|
|
2646
|
-
/* {csegen:
|
|
2647
|
-
const
|
|
2666
|
+
/* {csegen:427} */
|
|
2667
|
+
const csegen_427 = __lazy(function () {
|
|
2648
2668
|
return $0 => $0.a1;
|
|
2649
2669
|
});
|
|
2650
2670
|
|
|
2651
|
-
/* {csegen:
|
|
2652
|
-
const
|
|
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:
|
|
2657
|
-
const
|
|
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:
|
|
2662
|
-
const
|
|
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:
|
|
2667
|
-
const
|
|
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:
|
|
2672
|
-
const
|
|
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:
|
|
2677
|
-
const
|
|
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:
|
|
2682
|
-
const
|
|
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:
|
|
2687
|
-
const
|
|
2706
|
+
/* {csegen:494} */
|
|
2707
|
+
const csegen_494 = __lazy(function () {
|
|
2688
2708
|
return $0 => $0.a1;
|
|
2689
2709
|
});
|
|
2690
2710
|
|
|
2691
|
-
/* {csegen:
|
|
2692
|
-
const
|
|
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:
|
|
2697
|
-
const
|
|
2716
|
+
/* {csegen:497} */
|
|
2717
|
+
const csegen_497 = __lazy(function () {
|
|
2698
2718
|
return $0 => $0.a2;
|
|
2699
2719
|
});
|
|
2700
2720
|
|
|
2701
|
-
/* {csegen:
|
|
2702
|
-
const
|
|
2703
|
-
return $0 => $1 => Prelude_Basics_on(
|
|
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:
|
|
2707
|
-
const
|
|
2726
|
+
/* {csegen:511} */
|
|
2727
|
+
const csegen_511 = __lazy(function () {
|
|
2708
2728
|
return $0 => $0.a2;
|
|
2709
2729
|
});
|
|
2710
2730
|
|
|
2711
|
-
/* {csegen:
|
|
2712
|
-
const
|
|
2731
|
+
/* {csegen:514} */
|
|
2732
|
+
const csegen_514 = __lazy(function () {
|
|
2713
2733
|
return $0 => $0.a1;
|
|
2714
2734
|
});
|
|
2715
2735
|
|
|
2716
|
-
/* {csegen:
|
|
2717
|
-
const
|
|
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:
|
|
2722
|
-
const
|
|
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:
|
|
2727
|
-
const
|
|
2746
|
+
/* {csegen:585} */
|
|
2747
|
+
const csegen_585 = __lazy(function () {
|
|
2728
2748
|
return $0 => $0.a1;
|
|
2729
2749
|
});
|
|
2730
2750
|
|
|
2731
|
-
/* {csegen:
|
|
2732
|
-
const
|
|
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:
|
|
2737
|
-
const
|
|
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.
|
|
2747
|
-
function
|
|
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.
|
|
2752
|
-
function
|
|
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.
|
|
2757
|
-
function
|
|
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
|
-
|
|
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
|
-
$
|
|
2851
|
+
$6d = 1;
|
|
2828
2852
|
break;
|
|
2829
2853
|
}
|
|
2830
2854
|
case 0: {
|
|
2831
|
-
$
|
|
2855
|
+
$6d = Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_39(), $e, {a1: '--version', a2: {h: 0}});
|
|
2832
2856
|
break;
|
|
2833
2857
|
}
|
|
2834
2858
|
}
|
|
2835
|
-
const $
|
|
2836
|
-
const $
|
|
2837
|
-
return csegen_40()($
|
|
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 $
|
|
2840
|
-
const $
|
|
2841
|
-
const $
|
|
2842
|
-
return Main_handleArgs($
|
|
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})},
|
|
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(() =>
|
|
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.
|
|
5774
|
-
function
|
|
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
|
|
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}, $
|
|
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
|
-
/*
|
|
7190
|
-
function
|
|
7191
|
-
|
|
7192
|
-
|
|
7193
|
-
|
|
7194
|
-
|
|
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
|
-
/*
|
|
7201
|
-
|
|
7202
|
-
return
|
|
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
|
-
/*
|
|
7206
|
-
const
|
|
7207
|
-
return
|
|
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
|
-
/*
|
|
7211
|
-
function
|
|
7212
|
-
|
|
7213
|
-
|
|
7214
|
-
|
|
7215
|
-
|
|
7216
|
-
|
|
7217
|
-
return
|
|
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
|
-
/*
|
|
7221
|
-
function
|
|
7222
|
-
|
|
7223
|
-
|
|
7224
|
-
|
|
7225
|
-
|
|
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
|
-
|
|
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
|
-
/*
|
|
7232
|
-
|
|
7233
|
-
|
|
7234
|
-
|
|
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 $
|
|
7238
|
-
switch($
|
|
7239
|
-
case
|
|
7240
|
-
switch($
|
|
7241
|
-
case
|
|
7242
|
-
|
|
7243
|
-
|
|
7244
|
-
|
|
7245
|
-
|
|
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
|
-
|
|
7272
|
-
|
|
7273
|
-
|
|
7274
|
-
|
|
7275
|
-
|
|
7276
|
-
|
|
7277
|
-
|
|
7278
|
-
|
|
7279
|
-
|
|
7280
|
-
|
|
7281
|
-
|
|
7282
|
-
|
|
7283
|
-
|
|
7284
|
-
|
|
7285
|
-
|
|
7286
|
-
|
|
7287
|
-
|
|
7288
|
-
|
|
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:
|
|
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.
|
|
7747
|
-
function
|
|
7748
|
-
|
|
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.
|
|
7752
|
-
function
|
|
7753
|
-
return
|
|
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.
|
|
7757
|
-
function
|
|
7758
|
-
return
|
|
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.
|
|
7762
|
-
function
|
|
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
|
|
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
|
-
/*
|
|
7770
|
-
function
|
|
7771
|
-
return
|
|
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
|
-
/*
|
|
7775
|
-
function
|
|
7776
|
-
return
|
|
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
|
-
/*
|
|
7780
|
-
function
|
|
7781
|
-
return
|
|
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(
|
|
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(
|
|
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(),
|
|
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(
|
|
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(
|
|
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(
|
|
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(),
|
|
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
|
-
/*
|
|
8463
|
-
function
|
|
8464
|
-
|
|
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
|
-
/*
|
|
8468
|
-
function
|
|
8469
|
-
return $0.a1.a1.a1(
|
|
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
|
-
/*
|
|
8473
|
-
function
|
|
8474
|
-
return
|
|
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
|
-
/*
|
|
8478
|
-
function
|
|
8479
|
-
return
|
|
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), () =>
|
|
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(
|
|
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(
|
|
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(
|
|
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(
|
|
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(
|
|
8700
|
-
case 1: return Config_update(
|
|
8701
|
-
case 2: return Config_update(
|
|
8702
|
-
case 3: return Config_update(
|
|
8703
|
-
case 4: return Config_update(
|
|
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:
|
|
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,
|
|
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,
|
|
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,
|
|
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), () =>
|
|
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(
|
|
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)),
|
|
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)),
|
|
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)),
|
|
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), () =>
|
|
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(
|
|
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(
|
|
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(
|
|
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(
|
|
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(
|
|
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(
|
|
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),
|
|
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(
|
|
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(
|
|
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},
|
|
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(
|
|
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(
|
|
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(
|
|
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(
|
|
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(
|
|
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},
|
|
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)),
|
|
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),
|
|
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),
|
|
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),
|
|
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(
|
|
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 =
|
|
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,
|
|
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(
|
|
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:
|
|
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:
|
|
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),
|
|
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(
|
|
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.
|
|
11195
|
+
return '3.3.0';
|
|
11061
11196
|
});
|
|
11062
11197
|
|
|
11063
11198
|
|