@mattpolzin/harmony 0.5.0 → 0.6.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.
- harmony-npm/harmony +996 -740
- harmony-npm/package.json +1 -1
harmony-npm/harmony
CHANGED
|
@@ -89,10 +89,34 @@ const _truncBigInt8 = x => {
|
|
|
89
89
|
return res >= 0x80 ? res - 0x100 : res;
|
|
90
90
|
}
|
|
91
91
|
|
|
92
|
+
// Euclidian Division
|
|
93
|
+
const _div = (a,b) => {
|
|
94
|
+
let q = Math.trunc(a / b)
|
|
95
|
+
let r = a % b
|
|
96
|
+
return r < 0 ? (b > 0 ? q - 1 : q + 1) : q
|
|
97
|
+
}
|
|
98
|
+
|
|
99
|
+
const _divBigInt = (a,b) => {
|
|
100
|
+
let q = a / b
|
|
101
|
+
let r = a % b
|
|
102
|
+
return r < 0n ? (b > 0n ? q - 1n : q + 1n) : q
|
|
103
|
+
}
|
|
104
|
+
|
|
105
|
+
// Euclidian Modulo
|
|
106
|
+
const _mod = (a,b) => {
|
|
107
|
+
r = a % b
|
|
108
|
+
return r < 0 ? (b > 0 ? r + b : r - b) : r
|
|
109
|
+
}
|
|
110
|
+
|
|
111
|
+
const _modBigInt = (a,b) => {
|
|
112
|
+
r = a % b
|
|
113
|
+
return r < 0n ? (b > 0n ? r + b : r - b) : r
|
|
114
|
+
}
|
|
115
|
+
|
|
92
116
|
const _add8s = (a,b) => _truncInt8(a + b)
|
|
93
117
|
const _sub8s = (a,b) => _truncInt8(a - b)
|
|
94
118
|
const _mul8s = (a,b) => _truncInt8(a * b)
|
|
95
|
-
const _div8s = (a,b) => _truncInt8(
|
|
119
|
+
const _div8s = (a,b) => _truncInt8(_div(a,b))
|
|
96
120
|
const _shl8s = (a,b) => _truncInt8(a << b)
|
|
97
121
|
const _shr8s = (a,b) => _truncInt8(a >> b)
|
|
98
122
|
|
|
@@ -110,7 +134,7 @@ const _truncBigInt16 = x => {
|
|
|
110
134
|
const _add16s = (a,b) => _truncInt16(a + b)
|
|
111
135
|
const _sub16s = (a,b) => _truncInt16(a - b)
|
|
112
136
|
const _mul16s = (a,b) => _truncInt16(a * b)
|
|
113
|
-
const _div16s = (a,b) => _truncInt16(
|
|
137
|
+
const _div16s = (a,b) => _truncInt16(_div(a,b))
|
|
114
138
|
const _shl16s = (a,b) => _truncInt16(a << b)
|
|
115
139
|
const _shr16s = (a,b) => _truncInt16(a >> b)
|
|
116
140
|
|
|
@@ -124,7 +148,7 @@ const _truncBigInt32 = x => {
|
|
|
124
148
|
|
|
125
149
|
const _add32s = (a,b) => _truncInt32(a + b)
|
|
126
150
|
const _sub32s = (a,b) => _truncInt32(a - b)
|
|
127
|
-
const _div32s = (a,b) => _truncInt32(
|
|
151
|
+
const _div32s = (a,b) => _truncInt32(_div(a,b))
|
|
128
152
|
|
|
129
153
|
const _mul32s = (a,b) => {
|
|
130
154
|
const res = a * b;
|
|
@@ -144,7 +168,7 @@ const _truncBigInt64 = x => {
|
|
|
144
168
|
const _add64s = (a,b) => _truncBigInt64(a + b)
|
|
145
169
|
const _sub64s = (a,b) => _truncBigInt64(a - b)
|
|
146
170
|
const _mul64s = (a,b) => _truncBigInt64(a * b)
|
|
147
|
-
const _div64s = (a,b) => _truncBigInt64(a
|
|
171
|
+
const _div64s = (a,b) => _truncBigInt64(_divBigInt(a,b))
|
|
148
172
|
const _shl64s = (a,b) => _truncBigInt64(a << b)
|
|
149
173
|
const _shr64s = (a,b) => _truncBigInt64(a >> b)
|
|
150
174
|
|
|
@@ -259,6 +283,13 @@ const git_current_branch = (git, onSuccess, onFailure) =>
|
|
|
259
283
|
onFailure
|
|
260
284
|
)
|
|
261
285
|
|
|
286
|
+
const git_checkout_branch = (git, branch, onSuccess, onFailure) =>
|
|
287
|
+
idris__git_unpromisify(
|
|
288
|
+
git.raw('checkout', `${branch}`),
|
|
289
|
+
r => onSuccess(''),
|
|
290
|
+
onFailure()
|
|
291
|
+
)
|
|
292
|
+
|
|
262
293
|
// push the current branch, setting its upstream
|
|
263
294
|
// Executes callback with empty string on success.
|
|
264
295
|
const git_push_new_branch = (git, remoteName, branch, onSuccess, onFailure) =>
|
|
@@ -343,7 +374,8 @@ const digPr = pr => {
|
|
|
343
374
|
author: pr.user.login,
|
|
344
375
|
state: pr.state,
|
|
345
376
|
created_at: pr.created_at,
|
|
346
|
-
reviewers: pr.requested_reviewers.map(u => u.login)
|
|
377
|
+
reviewers: pr.requested_reviewers.map(u => u.login),
|
|
378
|
+
head_ref: pr.head.ref
|
|
347
379
|
}
|
|
348
380
|
}
|
|
349
381
|
const digPrs = prJson =>
|
|
@@ -555,6 +587,16 @@ function support_system_file_chmod (filename, mode) {
|
|
|
555
587
|
}
|
|
556
588
|
}
|
|
557
589
|
|
|
590
|
+
function support_system_file_removeFile (filename) {
|
|
591
|
+
try {
|
|
592
|
+
support_system_file_fs.unlinkSync(filename)
|
|
593
|
+
return 0
|
|
594
|
+
} catch (e) {
|
|
595
|
+
process.__lasterr = e
|
|
596
|
+
return 1
|
|
597
|
+
}
|
|
598
|
+
}
|
|
599
|
+
|
|
558
600
|
const Prelude_Types_fastUnpack = ((str)=>__prim_js2idris_array(Array.from(str)));
|
|
559
601
|
const Prelude_Types_fastPack = ((xs)=>__prim_idris2js_array(xs).join(''));
|
|
560
602
|
const Prelude_Types_fastConcat = ((xs)=>__prim_idris2js_array(xs).join(''));
|
|
@@ -599,6 +641,7 @@ const FFI_Git_prim__remoteTrackingBranch = git_remote_tracking_branch;
|
|
|
599
641
|
const FFI_Git_prim__pushNewBranch = git_push_new_branch;
|
|
600
642
|
const FFI_Git_prim__git = git_git;
|
|
601
643
|
const FFI_Git_prim__currentBranch = git_current_branch;
|
|
644
|
+
const FFI_Git_prim__checkoutBranch = git_checkout_branch;
|
|
602
645
|
const FFI_Concurrency_prim__singleton = ((p)=>Promise.all([p]));
|
|
603
646
|
const FFI_Concurrency_prim__neutral = (()=>Promise.all([]));
|
|
604
647
|
const FFI_Concurrency_prim__future = concurrency_future;
|
|
@@ -618,7 +661,7 @@ function x24tcOpt_1($0) {
|
|
|
618
661
|
default: {
|
|
619
662
|
switch($0.a7.h) {
|
|
620
663
|
case 0: return {h: 0, a1: $0.a6};
|
|
621
|
-
case 1: return {h: 0, a1: Prelude_Interfaces_x3cx24x3e(
|
|
664
|
+
case 1: return {h: 0, a1: Prelude_Interfaces_x3cx24x3e(csegen_119(), $c => ({a1: $c.a1, a2: $c.a2, a3: 0n}), $0.a6)};
|
|
622
665
|
default: {
|
|
623
666
|
switch($0.a6.h) {
|
|
624
667
|
case 0: {
|
|
@@ -627,30 +670,30 @@ function x24tcOpt_1($0) {
|
|
|
627
670
|
case 0: return {h: 0, a1: $0.a5};
|
|
628
671
|
default: {
|
|
629
672
|
const $18 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
630
|
-
const $1c = Data_List_DeleteBy_deleteByx27($1f => $20 => Prelude_Basics_on($23 => $24 => $0.a1.a1.a1($23)($24),
|
|
673
|
+
const $1c = Data_List_DeleteBy_deleteByx27($1f => $20 => Prelude_Basics_on($23 => $24 => $0.a1.a1.a1($23)($24), csegen_471(), $1f, $20), $18, $0.a6);
|
|
631
674
|
switch($1c.a1.h) {
|
|
632
675
|
case 0: {
|
|
633
676
|
switch($0.a8) {
|
|
634
|
-
case 0: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2:
|
|
677
|
+
case 0: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2: Reviewer_n__4747_1536_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $1c.a2, $0.a7, $0.a8)}};
|
|
635
678
|
case 1: return {h: 1, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a2, a6: $1c.a2, a7: $0.a7, a8: $0.a8};
|
|
636
679
|
}
|
|
637
680
|
}
|
|
638
|
-
case undefined: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3:
|
|
681
|
+
case undefined: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: Reviewer_n__4774_1688_calc($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a1.a1, $0.a5.a1.a3, $0.a5.a1.a2, $18, $0.a5.a2, $0.a8, $0.a7, $0.a6, $0.a5.a1.a3, $1c.a1.a1.a3)}, a2: Reviewer_n__4747_1536_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $1c.a2, $0.a7, $0.a8)}};
|
|
639
682
|
}
|
|
640
683
|
}
|
|
641
684
|
}
|
|
642
685
|
}
|
|
643
686
|
default: {
|
|
644
687
|
const $6b = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
645
|
-
const $6f = Data_List_DeleteBy_deleteByx27($72 => $73 => Prelude_Basics_on($76 => $77 => $0.a1.a1.a1($76)($77),
|
|
688
|
+
const $6f = Data_List_DeleteBy_deleteByx27($72 => $73 => Prelude_Basics_on($76 => $77 => $0.a1.a1.a1($76)($77), csegen_471(), $72, $73), $6b, $0.a6);
|
|
646
689
|
switch($6f.a1.h) {
|
|
647
690
|
case 0: {
|
|
648
691
|
switch($0.a8) {
|
|
649
|
-
case 0: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2:
|
|
692
|
+
case 0: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2: Reviewer_n__4747_1536_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $6f.a2, $0.a7, $0.a8)}};
|
|
650
693
|
case 1: return {h: 1, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a2, a6: $6f.a2, a7: $0.a7, a8: $0.a8};
|
|
651
694
|
}
|
|
652
695
|
}
|
|
653
|
-
case undefined: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3:
|
|
696
|
+
case undefined: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: Reviewer_n__4774_1688_calc($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a1.a1, $0.a5.a1.a3, $0.a5.a1.a2, $6b, $0.a5.a2, $0.a8, $0.a7, $0.a6, $0.a5.a1.a3, $6f.a1.a1.a3)}, a2: Reviewer_n__4747_1536_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $6f.a2, $0.a7, $0.a8)}};
|
|
654
697
|
}
|
|
655
698
|
}
|
|
656
699
|
}
|
|
@@ -667,30 +710,30 @@ function x24tcOpt_1($0) {
|
|
|
667
710
|
case 0: return {h: 0, a1: $0.a5};
|
|
668
711
|
default: {
|
|
669
712
|
const $c2 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
670
|
-
const $c6 = Data_List_DeleteBy_deleteByx27($c9 => $ca => Prelude_Basics_on($cd => $ce => $0.a1.a1.a1($cd)($ce),
|
|
713
|
+
const $c6 = Data_List_DeleteBy_deleteByx27($c9 => $ca => Prelude_Basics_on($cd => $ce => $0.a1.a1.a1($cd)($ce), csegen_471(), $c9, $ca), $c2, $0.a6);
|
|
671
714
|
switch($c6.a1.h) {
|
|
672
715
|
case 0: {
|
|
673
716
|
switch($0.a8) {
|
|
674
|
-
case 0: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2:
|
|
717
|
+
case 0: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2: Reviewer_n__4747_1536_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $c6.a2, $0.a7, $0.a8)}};
|
|
675
718
|
case 1: return {h: 1, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a2, a6: $c6.a2, a7: $0.a7, a8: $0.a8};
|
|
676
719
|
}
|
|
677
720
|
}
|
|
678
|
-
case undefined: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3:
|
|
721
|
+
case undefined: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: Reviewer_n__4774_1688_calc($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a1.a1, $0.a5.a1.a3, $0.a5.a1.a2, $c2, $0.a5.a2, $0.a8, $0.a7, $0.a6, $0.a5.a1.a3, $c6.a1.a1.a3)}, a2: Reviewer_n__4747_1536_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $c6.a2, $0.a7, $0.a8)}};
|
|
679
722
|
}
|
|
680
723
|
}
|
|
681
724
|
}
|
|
682
725
|
}
|
|
683
726
|
default: {
|
|
684
727
|
const $115 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
685
|
-
const $119 = Data_List_DeleteBy_deleteByx27($11c => $11d => Prelude_Basics_on($120 => $121 => $0.a1.a1.a1($120)($121),
|
|
728
|
+
const $119 = Data_List_DeleteBy_deleteByx27($11c => $11d => Prelude_Basics_on($120 => $121 => $0.a1.a1.a1($120)($121), csegen_471(), $11c, $11d), $115, $0.a6);
|
|
686
729
|
switch($119.a1.h) {
|
|
687
730
|
case 0: {
|
|
688
731
|
switch($0.a8) {
|
|
689
|
-
case 0: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2:
|
|
732
|
+
case 0: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2: Reviewer_n__4747_1536_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $119.a2, $0.a7, $0.a8)}};
|
|
690
733
|
case 1: return {h: 1, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a2, a6: $119.a2, a7: $0.a7, a8: $0.a8};
|
|
691
734
|
}
|
|
692
735
|
}
|
|
693
|
-
case undefined: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3:
|
|
736
|
+
case undefined: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: Reviewer_n__4774_1688_calc($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a1.a1, $0.a5.a1.a3, $0.a5.a1.a2, $115, $0.a5.a2, $0.a8, $0.a7, $0.a6, $0.a5.a1.a3, $119.a1.a1.a3)}, a2: Reviewer_n__4747_1536_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $119.a2, $0.a7, $0.a8)}};
|
|
694
737
|
}
|
|
695
738
|
}
|
|
696
739
|
}
|
|
@@ -698,7 +741,7 @@ function x24tcOpt_1($0) {
|
|
|
698
741
|
}
|
|
699
742
|
}
|
|
700
743
|
|
|
701
|
-
function
|
|
744
|
+
function Reviewer_n__4747_1536_zipReviews($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
702
745
|
return __tailRec(x24tcOpt_1, {h: 1, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6, a8: $7});
|
|
703
746
|
}
|
|
704
747
|
|
|
@@ -719,7 +762,7 @@ function x24tcOpt_2($0) {
|
|
|
719
762
|
}
|
|
720
763
|
}
|
|
721
764
|
|
|
722
|
-
function
|
|
765
|
+
function Data_List_n__7156_6663_splitRec($0, $1, $2, $3, $4) {
|
|
723
766
|
return __tailRec(x24tcOpt_2, {h: 1, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4});
|
|
724
767
|
}
|
|
725
768
|
|
|
@@ -735,7 +778,7 @@ function x24tcOpt_3($0) {
|
|
|
735
778
|
}
|
|
736
779
|
}
|
|
737
780
|
|
|
738
|
-
function
|
|
781
|
+
function Prelude_Show_n__3172_11556_showx27($0, $1, $2, $3) {
|
|
739
782
|
return __tailRec(x24tcOpt_3, {h: 1, a1: $0, a2: $1, a3: $2, a4: $3});
|
|
740
783
|
}
|
|
741
784
|
|
|
@@ -748,7 +791,7 @@ function x24tcOpt_4($0) {
|
|
|
748
791
|
}
|
|
749
792
|
}
|
|
750
793
|
|
|
751
|
-
function
|
|
794
|
+
function Text_PrettyPrint_Prettyprinter_Doc_n__8712_6697_initialIndentation($0, $1, $2, $3) {
|
|
752
795
|
return __tailRec(x24tcOpt_4, {h: 1, a1: $0, a2: $1, a3: $2, a4: $3});
|
|
753
796
|
}
|
|
754
797
|
|
|
@@ -763,8 +806,8 @@ function x24tcOpt_5($0) {
|
|
|
763
806
|
case 2: {
|
|
764
807
|
switch($0.a11.h) {
|
|
765
808
|
case undefined: {
|
|
766
|
-
const $16 = _add32s($0.a5, Prelude_Cast_cast_Cast_Nat_Int(
|
|
767
|
-
const $23 =
|
|
809
|
+
const $16 = _add32s($0.a5, Prelude_Cast_cast_Cast_Nat_Int(Text_Lexer_Core_n__3659_2499_countNLs($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, $0.a6, $0.a11.a1.a1)));
|
|
810
|
+
const $23 = Text_Lexer_Core_n__3659_2500_getCols($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, $0.a6, $0.a11.a1.a1, $0.a4);
|
|
768
811
|
return {h: 0, a1: {a1: {a1: {a1: $0.a8(Prelude_Types_fastPack(Prelude_Types_List_reverse($0.a11.a1.a1))), a2: 0, a3: {a1: $0.a5, a2: $0.a4, a3: $16, a4: $23}}, a2: {a1: $16, a2: {a1: $23, a2: $0.a11.a1.a2}}}}};
|
|
769
812
|
}
|
|
770
813
|
case 0: return {h: 1, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a9, a8: $0.a10};
|
|
@@ -773,11 +816,11 @@ function x24tcOpt_5($0) {
|
|
|
773
816
|
}
|
|
774
817
|
}
|
|
775
818
|
|
|
776
|
-
function
|
|
819
|
+
function Text_Lexer_Core_n__3659_2501_getFirstToken($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
777
820
|
return __tailRec(x24tcOpt_5, {h: 1, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6, a8: $7});
|
|
778
821
|
}
|
|
779
822
|
|
|
780
|
-
function
|
|
823
|
+
function Text_Lexer_Core_case__tokenisex2cgetFirstToken_2636($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a) {
|
|
781
824
|
return __tailRec(x24tcOpt_5, {h: 2, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6, a8: $7, a9: $8, a10: $9, a11: $a});
|
|
782
825
|
}
|
|
783
826
|
|
|
@@ -812,7 +855,7 @@ function Prelude_Types_compare_Ord_x28Listx20x24ax29($0, $1, $2) {
|
|
|
812
855
|
return __tailRec(x24tcOpt_6, {h: 1, a1: $0, a2: $1, a3: $2});
|
|
813
856
|
}
|
|
814
857
|
|
|
815
|
-
function
|
|
858
|
+
function Prelude_Types_case__compare_6195($0, $1, $2, $3, $4, $5) {
|
|
816
859
|
return __tailRec(x24tcOpt_6, {h: 2, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5});
|
|
817
860
|
}
|
|
818
861
|
|
|
@@ -846,17 +889,17 @@ function Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29($0, $1, $2) {
|
|
|
846
889
|
function x24tcOpt_8($0) {
|
|
847
890
|
switch($0.a2.h) {
|
|
848
891
|
case 0: return {h: 0, a1: _truncToChar($0.a3)};
|
|
849
|
-
case undefined: return {h: 1, a1: $0.a1, a2: $0.a2.a2, a3: _add32s(
|
|
892
|
+
case undefined: return {h: 1, a1: $0.a1, a2: $0.a2.a2, a3: _add32s(Language_JSON_String_Tokens_n__3203_1166_hexVal($0.a1, $0.a2.a1), _mul32s(Number(_truncBigInt32(16n)), $0.a3))};
|
|
850
893
|
}
|
|
851
894
|
}
|
|
852
895
|
|
|
853
|
-
function
|
|
896
|
+
function Language_JSON_String_Tokens_n__3203_1167_fromHex($0, $1, $2) {
|
|
854
897
|
return __tailRec(x24tcOpt_8, {h: 1, a1: $0, a2: $1, a3: $2});
|
|
855
898
|
}
|
|
856
899
|
|
|
857
900
|
function x24tcOpt_9($0) {
|
|
858
901
|
switch($0.h) {
|
|
859
|
-
case 1: return {h: 2, a1: $0.a6, a2: $0.a5, a3: $0.a4, a4: $0.a3, a5: $0.a2, a6: $0.a1, a7:
|
|
902
|
+
case 1: return {h: 2, a1: $0.a6, a2: $0.a5, a3: $0.a4, a4: $0.a3, a5: $0.a2, a6: $0.a1, a7: Text_Lexer_Core_n__3659_2501_getFirstToken($0.a6, $0.a5, $0.a4, $0.a3, $0.a2, $0.a1, $0.a5, $0.a6)};
|
|
860
903
|
case 2: {
|
|
861
904
|
switch($0.a7.h) {
|
|
862
905
|
case undefined: {
|
|
@@ -875,7 +918,7 @@ function Text_Lexer_Core_tokenise($0, $1, $2, $3, $4, $5) {
|
|
|
875
918
|
return __tailRec(x24tcOpt_9, {h: 1, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5});
|
|
876
919
|
}
|
|
877
920
|
|
|
878
|
-
function
|
|
921
|
+
function Text_Lexer_Core_case__tokenise_2726($0, $1, $2, $3, $4, $5, $6) {
|
|
879
922
|
return __tailRec(x24tcOpt_9, {h: 2, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6});
|
|
880
923
|
}
|
|
881
924
|
|
|
@@ -910,15 +953,15 @@ function x24tcOpt_11($0) {
|
|
|
910
953
|
switch($0.a3.h) {
|
|
911
954
|
case 0: return {h: 0, a1: {h: 0}};
|
|
912
955
|
case undefined: {
|
|
913
|
-
switch(Prelude_Types_elemBy(
|
|
956
|
+
switch(Prelude_Types_elemBy(csegen_77(), $0.a2, $0.a3.a1, $0.a1)) {
|
|
914
957
|
case 1: return {h: 1, a1: $0.a1, a2: $0.a2, a3: $0.a3.a2};
|
|
915
|
-
case 0: return {h: 0, a1: {a1: $0.a3.a1, a2:
|
|
958
|
+
case 0: return {h: 0, a1: {a1: $0.a3.a1, a2: Data_List_n__4343_3930_nubByx27({a1: $0.a3.a1, a2: $0.a1}, $0.a2, $0.a3.a2)}};
|
|
916
959
|
}
|
|
917
960
|
}
|
|
918
961
|
}
|
|
919
962
|
}
|
|
920
963
|
|
|
921
|
-
function
|
|
964
|
+
function Data_List_n__4343_3930_nubByx27($0, $1, $2) {
|
|
922
965
|
return __tailRec(x24tcOpt_11, {h: 1, a1: $0, a2: $1, a3: $2});
|
|
923
966
|
}
|
|
924
967
|
|
|
@@ -946,7 +989,7 @@ function x24tcOpt_12($0) {
|
|
|
946
989
|
}
|
|
947
990
|
}
|
|
948
991
|
|
|
949
|
-
function
|
|
992
|
+
function Data_String_with__ltrim_6503($0, $1) {
|
|
950
993
|
return __tailRec(x24tcOpt_12, {h: 1, a1: $0, a2: $1});
|
|
951
994
|
}
|
|
952
995
|
|
|
@@ -997,14 +1040,14 @@ function Data_List_lookupBy($0, $1, $2) {
|
|
|
997
1040
|
}
|
|
998
1041
|
|
|
999
1042
|
function x24tcOpt_15($0) {
|
|
1000
|
-
switch($0.
|
|
1001
|
-
case 0: return {h: 0, a1: Prelude_Types_List_reverse($0.
|
|
1002
|
-
case undefined: return {h: 1, a1: $0.a1, a2:
|
|
1043
|
+
switch($0.a3.h) {
|
|
1044
|
+
case 0: return {h: 0, a1: Prelude_Types_List_reverse($0.a2)};
|
|
1045
|
+
case undefined: return {h: 1, a1: $0.a1, a2: Prelude_Types_List_reverseOnto($0.a2, $0.a1($0.a3.a1)), a3: $0.a3.a2};
|
|
1003
1046
|
}
|
|
1004
1047
|
}
|
|
1005
1048
|
|
|
1006
|
-
function
|
|
1007
|
-
return __tailRec(x24tcOpt_15, {h: 1, a1: $0, a2: $1, a3: $2
|
|
1049
|
+
function Prelude_Types_listBindOnto($0, $1, $2) {
|
|
1050
|
+
return __tailRec(x24tcOpt_15, {h: 1, a1: $0, a2: $1, a3: $2});
|
|
1008
1051
|
}
|
|
1009
1052
|
|
|
1010
1053
|
function x24tcOpt_16($0) {
|
|
@@ -1017,16 +1060,16 @@ function x24tcOpt_16($0) {
|
|
|
1017
1060
|
case 0: return {h: 0, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: {h: 0}}};
|
|
1018
1061
|
case undefined: {
|
|
1019
1062
|
switch($0.a3.a1) {
|
|
1020
|
-
case '\n': return {h: 0, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1063
|
+
case '\n': return {h: 0, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3748_6341_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1021
1064
|
case '\r': {
|
|
1022
1065
|
switch($0.a3.a2.h) {
|
|
1023
1066
|
case undefined: {
|
|
1024
1067
|
switch($0.a3.a2.a1) {
|
|
1025
|
-
case '\n': return {h: 0, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1026
|
-
default: return {h: 0, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1068
|
+
case '\n': return {h: 0, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3748_6341_linesHelp($0.a1, {h: 0}, $0.a3.a2.a2)}};
|
|
1069
|
+
default: return {h: 0, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3748_6341_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1027
1070
|
}
|
|
1028
1071
|
}
|
|
1029
|
-
default: return {h: 0, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1072
|
+
default: return {h: 0, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3748_6341_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1030
1073
|
}
|
|
1031
1074
|
}
|
|
1032
1075
|
default: return {h: 1, a1: $0.a1, a2: {a1: $0.a3.a1, a2: $0.a2}, a3: $0.a3.a2};
|
|
@@ -1041,16 +1084,16 @@ function x24tcOpt_16($0) {
|
|
|
1041
1084
|
case 0: return {h: 0, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: {h: 0}}};
|
|
1042
1085
|
case undefined: {
|
|
1043
1086
|
switch($0.a3.a1) {
|
|
1044
|
-
case '\n': return {h: 0, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1087
|
+
case '\n': return {h: 0, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3748_6341_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1045
1088
|
case '\r': {
|
|
1046
1089
|
switch($0.a3.a2.h) {
|
|
1047
1090
|
case undefined: {
|
|
1048
1091
|
switch($0.a3.a2.a1) {
|
|
1049
|
-
case '\n': return {h: 0, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1050
|
-
default: return {h: 0, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1092
|
+
case '\n': return {h: 0, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3748_6341_linesHelp($0.a1, {h: 0}, $0.a3.a2.a2)}};
|
|
1093
|
+
default: return {h: 0, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3748_6341_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1051
1094
|
}
|
|
1052
1095
|
}
|
|
1053
|
-
default: return {h: 0, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1096
|
+
default: return {h: 0, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3748_6341_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1054
1097
|
}
|
|
1055
1098
|
}
|
|
1056
1099
|
default: return {h: 1, a1: $0.a1, a2: {a1: $0.a3.a1, a2: $0.a2}, a3: $0.a3.a2};
|
|
@@ -1061,7 +1104,7 @@ function x24tcOpt_16($0) {
|
|
|
1061
1104
|
}
|
|
1062
1105
|
}
|
|
1063
1106
|
|
|
1064
|
-
function
|
|
1107
|
+
function Data_String_n__3748_6341_linesHelp($0, $1, $2) {
|
|
1065
1108
|
return __tailRec(x24tcOpt_16, {h: 1, a1: $0, a2: $1, a3: $2});
|
|
1066
1109
|
}
|
|
1067
1110
|
|
|
@@ -1079,14 +1122,14 @@ function Prelude_Types_List_lengthPlus($0, $1) {
|
|
|
1079
1122
|
function x24tcOpt_18($0) {
|
|
1080
1123
|
switch($0.a6.h) {
|
|
1081
1124
|
case 0: return {h: 0, a1: {h: 0}};
|
|
1082
|
-
case 2: return {h: 0, a1: {h: 5, a1:
|
|
1125
|
+
case 2: return {h: 0, a1: {h: 5, a1: Text_PrettyPrint_Prettyprinter_Doc_n__8712_6699_best($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, $0.a6.a1)}};
|
|
1083
1126
|
case 1: {
|
|
1084
1127
|
switch($0.a6.a2.h) {
|
|
1085
1128
|
case 0: return {h: 1, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6.a3};
|
|
1086
|
-
case 1: return {h: 0, a1: {h: 1, a1: $0.a6.a2.a1, a2: () =>
|
|
1087
|
-
case 2: return {h: 0, a1: {h: 2, a1: $0.a6.a2.a1, a2: $0.a6.a2.a2, a3: () =>
|
|
1129
|
+
case 1: return {h: 0, a1: {h: 1, a1: $0.a6.a2.a1, a2: () => Text_PrettyPrint_Prettyprinter_Doc_n__8712_6699_best($0.a1, $0.a2, $0.a3, $0.a4, _add32s($0.a5, 1), $0.a6.a3)}};
|
|
1130
|
+
case 2: return {h: 0, a1: {h: 2, a1: $0.a6.a2.a1, a2: $0.a6.a2.a2, a3: () => Text_PrettyPrint_Prettyprinter_Doc_n__8712_6699_best($0.a1, $0.a2, $0.a3, $0.a4, _add32s($0.a5, $0.a6.a2.a1), $0.a6.a3)}};
|
|
1088
1131
|
case 3: {
|
|
1089
|
-
const $2d =
|
|
1132
|
+
const $2d = Text_PrettyPrint_Prettyprinter_Doc_n__8712_6699_best($0.a1, $0.a2, $0.a3, $0.a6.a1, $0.a6.a1, $0.a6.a3);
|
|
1090
1133
|
let $35;
|
|
1091
1134
|
switch($2d.h) {
|
|
1092
1135
|
case 0: {
|
|
@@ -1105,20 +1148,20 @@ function x24tcOpt_18($0) {
|
|
|
1105
1148
|
case 5: return {h: 1, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1, a1: $0.a6.a1, a2: $0.a6.a2.a1, a3: {h: 1, a1: $0.a6.a1, a2: $0.a6.a2.a2, a3: $0.a6.a3}}};
|
|
1106
1149
|
case 6: return {h: 1, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1, a1: _add32s($0.a6.a1, $0.a6.a2.a1), a2: $0.a6.a2.a2, a3: $0.a6.a3}};
|
|
1107
1150
|
case 7: {
|
|
1108
|
-
const $5d =
|
|
1109
|
-
const $69 =
|
|
1110
|
-
return {h: 0, a1:
|
|
1151
|
+
const $5d = Text_PrettyPrint_Prettyprinter_Doc_n__8712_6699_best($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, {h: 1, a1: $0.a6.a1, a2: $0.a6.a2.a1(), a3: $0.a6.a3});
|
|
1152
|
+
const $69 = Text_PrettyPrint_Prettyprinter_Doc_n__8712_6699_best($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, {h: 1, a1: $0.a6.a1, a2: $0.a6.a2.a2(), a3: $0.a6.a3});
|
|
1153
|
+
return {h: 0, a1: Text_PrettyPrint_Prettyprinter_Doc_n__8712_6698_selectNicer($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, $5d, () => $69)};
|
|
1111
1154
|
}
|
|
1112
1155
|
case 8: return {h: 1, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1, a1: $0.a6.a1, a2: $0.a6.a2.a1($0.a5), a3: $0.a6.a3}};
|
|
1113
1156
|
case 9: return {h: 1, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1, a1: $0.a6.a1, a2: $0.a6.a2.a1($0.a2), a3: $0.a6.a3}};
|
|
1114
1157
|
case 10: return {h: 1, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1, a1: $0.a6.a1, a2: $0.a6.a2.a1($0.a6.a1), a3: $0.a6.a3}};
|
|
1115
|
-
case 11: return {h: 0, a1: {h: 4, a1: $0.a6.a2.a1, a2:
|
|
1158
|
+
case 11: return {h: 0, a1: {h: 4, a1: $0.a6.a2.a1, a2: Text_PrettyPrint_Prettyprinter_Doc_n__8712_6699_best($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, {h: 1, a1: $0.a6.a1, a2: $0.a6.a2.a2, a3: {h: 2, a1: $0.a6.a3}})}};
|
|
1116
1159
|
}
|
|
1117
1160
|
}
|
|
1118
1161
|
}
|
|
1119
1162
|
}
|
|
1120
1163
|
|
|
1121
|
-
function
|
|
1164
|
+
function Text_PrettyPrint_Prettyprinter_Doc_n__8712_6699_best($0, $1, $2, $3, $4, $5) {
|
|
1122
1165
|
return __tailRec(x24tcOpt_18, {h: 1, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5});
|
|
1123
1166
|
}
|
|
1124
1167
|
|
|
@@ -1172,7 +1215,7 @@ function x24tcOpt_21($0) {
|
|
|
1172
1215
|
}
|
|
1173
1216
|
}
|
|
1174
1217
|
|
|
1175
|
-
function
|
|
1218
|
+
function Data_String_Extra_with__index_1618($0, $1, $2) {
|
|
1176
1219
|
return __tailRec(x24tcOpt_21, {h: 1, a1: $0, a2: $1, a3: $2});
|
|
1177
1220
|
}
|
|
1178
1221
|
|
|
@@ -1244,18 +1287,34 @@ function x24tcOpt_25($0) {
|
|
|
1244
1287
|
case 0: return {h: 0, a1: {h: 0}};
|
|
1245
1288
|
case undefined: {
|
|
1246
1289
|
switch($0.a1($0.a2.a1)) {
|
|
1247
|
-
case 1: return {h: 0, a1: {a1: $0.a2.a1
|
|
1290
|
+
case 1: return {h: 0, a1: {a1: $0.a2.a1}};
|
|
1248
1291
|
case 0: return {h: 1, a1: $0.a1, a2: $0.a2.a2};
|
|
1249
1292
|
}
|
|
1250
1293
|
}
|
|
1251
1294
|
}
|
|
1252
1295
|
}
|
|
1253
1296
|
|
|
1254
|
-
function
|
|
1297
|
+
function Data_List_find($0, $1) {
|
|
1255
1298
|
return __tailRec(x24tcOpt_25, {h: 1, a1: $0, a2: $1});
|
|
1256
1299
|
}
|
|
1257
1300
|
|
|
1258
1301
|
function x24tcOpt_26($0) {
|
|
1302
|
+
switch($0.a2.h) {
|
|
1303
|
+
case 0: return {h: 0, a1: {h: 0}};
|
|
1304
|
+
case undefined: {
|
|
1305
|
+
switch($0.a1($0.a2.a1)) {
|
|
1306
|
+
case 1: return {h: 0, a1: {a1: $0.a2.a1, a2: Prelude_Types_List_filter($0.a1, $0.a2.a2)}};
|
|
1307
|
+
case 0: return {h: 1, a1: $0.a1, a2: $0.a2.a2};
|
|
1308
|
+
}
|
|
1309
|
+
}
|
|
1310
|
+
}
|
|
1311
|
+
}
|
|
1312
|
+
|
|
1313
|
+
function Prelude_Types_List_filter($0, $1) {
|
|
1314
|
+
return __tailRec(x24tcOpt_26, {h: 1, a1: $0, a2: $1});
|
|
1315
|
+
}
|
|
1316
|
+
|
|
1317
|
+
function x24tcOpt_27($0) {
|
|
1259
1318
|
switch($0.a1) {
|
|
1260
1319
|
case 0n: return {h: 0, a1: $0.a2};
|
|
1261
1320
|
default: {
|
|
@@ -1269,10 +1328,10 @@ function x24tcOpt_26($0) {
|
|
|
1269
1328
|
}
|
|
1270
1329
|
|
|
1271
1330
|
function Data_List_drop($0, $1) {
|
|
1272
|
-
return __tailRec(
|
|
1331
|
+
return __tailRec(x24tcOpt_27, {h: 1, a1: $0, a2: $1});
|
|
1273
1332
|
}
|
|
1274
1333
|
|
|
1275
|
-
function
|
|
1334
|
+
function x24tcOpt_28($0) {
|
|
1276
1335
|
switch($0.a2.h) {
|
|
1277
1336
|
case 0: return {h: 0, a1: $0.a1};
|
|
1278
1337
|
case undefined: return {h: 1, a1: {a1: $0.a2.a1, a2: $0.a1}, a2: $0.a2.a2};
|
|
@@ -1280,27 +1339,27 @@ function x24tcOpt_27($0) {
|
|
|
1280
1339
|
}
|
|
1281
1340
|
|
|
1282
1341
|
function Prelude_Types_List_reverseOnto($0, $1) {
|
|
1283
|
-
return __tailRec(
|
|
1342
|
+
return __tailRec(x24tcOpt_28, {h: 1, a1: $0, a2: $1});
|
|
1284
1343
|
}
|
|
1285
1344
|
|
|
1286
|
-
function
|
|
1345
|
+
function x24tcOpt_29($0) {
|
|
1287
1346
|
switch($0.a2.h) {
|
|
1288
1347
|
case 0: return {h: 0, a1: {h: 0}};
|
|
1289
1348
|
case undefined: {
|
|
1290
1349
|
const $4 = $0.a1($0.a2.a1);
|
|
1291
1350
|
switch($4.h) {
|
|
1292
1351
|
case 0: return {h: 1, a1: $0.a1, a2: $0.a2.a2};
|
|
1293
|
-
case undefined: return {h: 0, a1: {a1: $4.a1, a2:
|
|
1352
|
+
case undefined: return {h: 0, a1: {a1: $4.a1, a2: Prelude_Types_List_mapMaybe($0.a1, $0.a2.a2)}};
|
|
1294
1353
|
}
|
|
1295
1354
|
}
|
|
1296
1355
|
}
|
|
1297
1356
|
}
|
|
1298
1357
|
|
|
1299
|
-
function
|
|
1300
|
-
return __tailRec(
|
|
1358
|
+
function Prelude_Types_List_mapMaybe($0, $1) {
|
|
1359
|
+
return __tailRec(x24tcOpt_29, {h: 1, a1: $0, a2: $1});
|
|
1301
1360
|
}
|
|
1302
1361
|
|
|
1303
|
-
function
|
|
1362
|
+
function x24tcOpt_30($0) {
|
|
1304
1363
|
switch($0.a3.h) {
|
|
1305
1364
|
case 0: return {h: 0, a1: $0.a2};
|
|
1306
1365
|
case undefined: return {h: 1, a1: $0.a1, a2: $0.a1($0.a2)($0.a3.a1), a3: $0.a3.a2};
|
|
@@ -1308,10 +1367,10 @@ function x24tcOpt_29($0) {
|
|
|
1308
1367
|
}
|
|
1309
1368
|
|
|
1310
1369
|
function Prelude_Types_foldl_Foldable_List($0, $1, $2) {
|
|
1311
|
-
return __tailRec(
|
|
1370
|
+
return __tailRec(x24tcOpt_30, {h: 1, a1: $0, a2: $1, a3: $2});
|
|
1312
1371
|
}
|
|
1313
1372
|
|
|
1314
|
-
function
|
|
1373
|
+
function x24tcOpt_31($0) {
|
|
1315
1374
|
switch($0.a1) {
|
|
1316
1375
|
case 0n: return {h: 0, a1: Prelude_Uninhabited_absurd($6 => Data_Nat_uninhabited_Uninhabited_x28x28LTEx20x28Sx20x24nx29x29x20Zx29($6), $0.a2)};
|
|
1317
1376
|
default: {
|
|
@@ -1328,54 +1387,58 @@ function x24tcOpt_30($0) {
|
|
|
1328
1387
|
}
|
|
1329
1388
|
|
|
1330
1389
|
function Data_Nat_LTEImpliesNotGT($0, $1) {
|
|
1331
|
-
return __tailRec(
|
|
1390
|
+
return __tailRec(x24tcOpt_31, {h: 1, a1: $0, a2: $1});
|
|
1332
1391
|
}
|
|
1333
1392
|
|
|
1334
1393
|
const __mainExpression_0 = __lazy(function () {
|
|
1335
1394
|
return PrimIO_unsafePerformIO($2 => Main_main($2));
|
|
1336
1395
|
});
|
|
1337
1396
|
|
|
1338
|
-
const
|
|
1339
|
-
return $0 => $1 => ($0
|
|
1397
|
+
const csegen_3 = __lazy(function () {
|
|
1398
|
+
return b => a => func => $0 => $1 => $2 => Data_Promise_map_Functor_Promise(func, $0, $1, $2);
|
|
1340
1399
|
});
|
|
1341
1400
|
|
|
1342
|
-
const
|
|
1343
|
-
return $
|
|
1401
|
+
const csegen_9 = __lazy(function () {
|
|
1402
|
+
return {a1: csegen_3(), a2: a => $3 => $4 => $5 => Data_Promise_pure_Applicative_Promise($3, $4, $5), a3: b => a => $b => $c => $d => $e => Data_Promise_x3cx2ax3e_Applicative_Promise($b, $c, $d, $e)};
|
|
1344
1403
|
});
|
|
1345
1404
|
|
|
1346
|
-
const
|
|
1347
|
-
return {a1:
|
|
1405
|
+
const csegen_15 = __lazy(function () {
|
|
1406
|
+
return {a1: csegen_9(), a2: b => a => $3 => $4 => $5 => $6 => Data_Promise_x3ex3ex3d_Monad_Promise($3, $4, $5, $6), a3: a => $d => $e => $f => Data_Promise_join_Monad_Promise($d, $e, $f)};
|
|
1348
1407
|
});
|
|
1349
1408
|
|
|
1350
|
-
const
|
|
1351
|
-
return
|
|
1409
|
+
const csegen_18 = __lazy(function () {
|
|
1410
|
+
return $0 => $1 => $2 => $3 => Prelude_Types_map_Functor_Maybe($2, $3);
|
|
1352
1411
|
});
|
|
1353
1412
|
|
|
1354
|
-
const
|
|
1355
|
-
return {a1:
|
|
1413
|
+
const csegen_21 = __lazy(function () {
|
|
1414
|
+
return {a1: csegen_15(), a2: a => $3 => $4 => $5 => $6 => Data_Promise_liftIO_HasIO_Promise($3, $4, $5, $6)};
|
|
1356
1415
|
});
|
|
1357
1416
|
|
|
1358
|
-
const
|
|
1359
|
-
return
|
|
1417
|
+
const csegen_27 = __lazy(function () {
|
|
1418
|
+
return $0 => $1 => ($0+$1);
|
|
1360
1419
|
});
|
|
1361
1420
|
|
|
1362
|
-
const
|
|
1363
|
-
return
|
|
1421
|
+
const csegen_28 = __lazy(function () {
|
|
1422
|
+
return $0 => $1 => ($0*$1);
|
|
1364
1423
|
});
|
|
1365
1424
|
|
|
1366
|
-
const
|
|
1367
|
-
return
|
|
1425
|
+
const csegen_29 = __lazy(function () {
|
|
1426
|
+
return {a1: csegen_27(), a2: csegen_28(), a3: $5 => $5};
|
|
1368
1427
|
});
|
|
1369
1428
|
|
|
1370
|
-
const
|
|
1371
|
-
return {a1:
|
|
1429
|
+
const csegen_30 = __lazy(function () {
|
|
1430
|
+
return {a1: csegen_27(), a2: csegen_28(), a3: $5 => Prelude_Types_prim__integerToNat($5)};
|
|
1431
|
+
});
|
|
1432
|
+
|
|
1433
|
+
const csegen_37 = __lazy(function () {
|
|
1434
|
+
return {a1: b => a => func => $1 => Prelude_Types_map_Functor_Maybe(func, $1), a2: a => $6 => ({a1: $6}), a3: b => a => $9 => $a => Prelude_Types_x3cx2ax3e_Applicative_Maybe($9, $a)};
|
|
1372
1435
|
});
|
|
1373
1436
|
|
|
1374
|
-
const
|
|
1375
|
-
return {a1:
|
|
1437
|
+
const csegen_42 = __lazy(function () {
|
|
1438
|
+
return {a1: csegen_37(), a2: b => a => $3 => $4 => Prelude_Types_x3ex3ex3d_Monad_Maybe($3, $4), a3: a => $9 => Prelude_Types_join_Monad_Maybe($9)};
|
|
1376
1439
|
});
|
|
1377
1440
|
|
|
1378
|
-
const
|
|
1441
|
+
const csegen_52 = __lazy(function () {
|
|
1379
1442
|
const $a = b => a => $b => $c => $d => {
|
|
1380
1443
|
const $e = $b($d);
|
|
1381
1444
|
const $11 = $c($d);
|
|
@@ -1384,216 +1447,224 @@ const csegen_49 = __lazy(function () {
|
|
|
1384
1447
|
return {a1: b => a => func => $1 => $2 => Prelude_IO_map_Functor_IO(func, $1, $2), a2: a => $8 => $9 => $8, a3: $a};
|
|
1385
1448
|
});
|
|
1386
1449
|
|
|
1387
|
-
const
|
|
1450
|
+
const csegen_55 = __lazy(function () {
|
|
1388
1451
|
return b => a => $0 => $1 => $2 => {
|
|
1389
1452
|
const $3 = $0($2);
|
|
1390
1453
|
return $1($3)($2);
|
|
1391
1454
|
};
|
|
1392
1455
|
});
|
|
1393
1456
|
|
|
1394
|
-
const
|
|
1457
|
+
const csegen_59 = __lazy(function () {
|
|
1395
1458
|
const $5 = a => $6 => $7 => {
|
|
1396
1459
|
const $8 = $6($7);
|
|
1397
1460
|
return $8($7);
|
|
1398
1461
|
};
|
|
1399
|
-
const $0 = {a1:
|
|
1462
|
+
const $0 = {a1: csegen_52(), a2: csegen_55(), a3: $5};
|
|
1400
1463
|
return {a1: $0, a2: a => $e => $e};
|
|
1401
1464
|
});
|
|
1402
1465
|
|
|
1403
1466
|
const csegen_62 = __lazy(function () {
|
|
1467
|
+
return {a1: $1 => $2 => ($1+$2), a2: ''};
|
|
1468
|
+
});
|
|
1469
|
+
|
|
1470
|
+
const csegen_77 = __lazy(function () {
|
|
1471
|
+
return {a1: acc => elem => func => init => input => Prelude_Types_foldr_Foldable_List(func, init, input), a2: elem => acc => func => init => input => Prelude_Types_foldl_Foldable_List(func, init, input), a3: elem => $b => Prelude_Types_null_Foldable_List($b), a4: elem => acc => m => $f => funcM => init => input => Prelude_Types_foldlM_Foldable_List($f, funcM, init, input), a5: elem => $16 => $16, a6: a => m => $18 => f => $19 => Prelude_Types_foldMap_Foldable_List($18, f, $19)};
|
|
1472
|
+
});
|
|
1473
|
+
|
|
1474
|
+
const csegen_80 = __lazy(function () {
|
|
1475
|
+
return {a1: csegen_37(), a2: a => ({h: 0}), a3: a => $4 => $5 => Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, $5)};
|
|
1476
|
+
});
|
|
1477
|
+
|
|
1478
|
+
const csegen_85 = __lazy(function () {
|
|
1404
1479
|
return $0 => $1 => $2 => $3 => $4 => Prelude_IO_map_Functor_IO($2, $3, $4);
|
|
1405
1480
|
});
|
|
1406
1481
|
|
|
1407
|
-
const
|
|
1482
|
+
const csegen_91 = __lazy(function () {
|
|
1408
1483
|
const $4 = a => $5 => $6 => {
|
|
1409
1484
|
const $7 = $5($6);
|
|
1410
1485
|
return $7($6);
|
|
1411
1486
|
};
|
|
1412
|
-
return {a1:
|
|
1487
|
+
return {a1: csegen_52(), a2: csegen_55(), a3: $4};
|
|
1413
1488
|
});
|
|
1414
1489
|
|
|
1415
|
-
const
|
|
1490
|
+
const csegen_94 = __lazy(function () {
|
|
1416
1491
|
return {a1: $1 => $2 => Prelude_EqOrd_x3dx3d_Eq_String($1, $2), a2: $7 => $8 => Prelude_EqOrd_x2fx3d_Eq_String($7, $8)};
|
|
1417
1492
|
});
|
|
1418
1493
|
|
|
1419
|
-
const
|
|
1420
|
-
return System_exitSuccess(
|
|
1494
|
+
const csegen_95 = __lazy(function () {
|
|
1495
|
+
return System_exitSuccess(csegen_59());
|
|
1421
1496
|
});
|
|
1422
1497
|
|
|
1423
|
-
const
|
|
1498
|
+
const csegen_103 = __lazy(function () {
|
|
1424
1499
|
return $0 => $1 => $2 => $3 => $4 => $5 => Data_Promise_map_Functor_Promise($2, $3, $4, $5);
|
|
1425
1500
|
});
|
|
1426
1501
|
|
|
1427
|
-
const
|
|
1428
|
-
return {a1:
|
|
1429
|
-
});
|
|
1430
|
-
|
|
1431
|
-
const csegen_104 = __lazy(function () {
|
|
1432
|
-
return {a1: acc => elem => func => init => input => Prelude_Types_foldr_Foldable_List(func, init, input), a2: elem => acc => func => init => input => Prelude_Types_foldl_Foldable_List(func, init, input), a3: elem => $b => Prelude_Types_null_Foldable_List($b), a4: elem => acc => m => $f => funcM => init => input => Prelude_Types_foldlM_Foldable_List($f, funcM, init, input), a5: elem => $16 => $16, a6: a => m => $18 => f => $19 => Prelude_Types_foldMap_Foldable_List($18, f, $19)};
|
|
1502
|
+
const csegen_111 = __lazy(function () {
|
|
1503
|
+
return {a1: csegen_94(), a2: $3 => $4 => Prelude_EqOrd_compare_Ord_String($3, $4), a3: $9 => $a => Prelude_EqOrd_x3c_Ord_String($9, $a), a4: $f => $10 => Prelude_EqOrd_x3e_Ord_String($f, $10), a5: $15 => $16 => Prelude_EqOrd_x3cx3d_Ord_String($15, $16), a6: $1b => $1c => Prelude_EqOrd_x3ex3d_Ord_String($1b, $1c), a7: $21 => $22 => Prelude_EqOrd_max_Ord_String($21, $22), a8: $27 => $28 => Prelude_EqOrd_min_Ord_String($27, $28)};
|
|
1433
1504
|
});
|
|
1434
1505
|
|
|
1435
|
-
const
|
|
1436
|
-
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(
|
|
1506
|
+
const csegen_113 = __lazy(function () {
|
|
1507
|
+
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_77(), $0, $1, $2);
|
|
1437
1508
|
});
|
|
1438
1509
|
|
|
1439
|
-
const
|
|
1510
|
+
const csegen_115 = __lazy(function () {
|
|
1440
1511
|
return {a1: x => Prelude_Show_show_Show_String(x), a2: d => x => Prelude_Show_showPrec_Show_String(d, x)};
|
|
1441
1512
|
});
|
|
1442
1513
|
|
|
1443
|
-
const
|
|
1514
|
+
const csegen_119 = __lazy(function () {
|
|
1444
1515
|
return $0 => $1 => $2 => $3 => Prelude_Types_map_Functor_List($2, $3);
|
|
1445
1516
|
});
|
|
1446
1517
|
|
|
1447
|
-
const
|
|
1448
|
-
return {a1: $1 => $2 => ($1+$2), a2: ''};
|
|
1449
|
-
});
|
|
1450
|
-
|
|
1451
|
-
const csegen_122 = __lazy(function () {
|
|
1518
|
+
const csegen_128 = __lazy(function () {
|
|
1452
1519
|
return $0 => $1 => Data_Promise_pure_Applicative_Promise(undefined, $0, $1);
|
|
1453
1520
|
});
|
|
1454
1521
|
|
|
1455
|
-
const
|
|
1522
|
+
const csegen_134 = __lazy(function () {
|
|
1456
1523
|
return Data_Fin_finFromInteger(100n, Prelude_Types_prim__integerToNat(101n));
|
|
1457
1524
|
});
|
|
1458
1525
|
|
|
1459
|
-
const
|
|
1526
|
+
const csegen_139 = __lazy(function () {
|
|
1460
1527
|
return $0 => $0.a1;
|
|
1461
1528
|
});
|
|
1462
1529
|
|
|
1463
|
-
const
|
|
1530
|
+
const csegen_141 = __lazy(function () {
|
|
1464
1531
|
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
1465
1532
|
});
|
|
1466
1533
|
|
|
1467
|
-
const
|
|
1534
|
+
const csegen_156 = __lazy(function () {
|
|
1468
1535
|
return $0 => $0.a2;
|
|
1469
1536
|
});
|
|
1470
1537
|
|
|
1471
|
-
const
|
|
1538
|
+
const csegen_159 = __lazy(function () {
|
|
1472
1539
|
return $0 => $0.a1;
|
|
1473
1540
|
});
|
|
1474
1541
|
|
|
1475
|
-
const
|
|
1542
|
+
const csegen_164 = __lazy(function () {
|
|
1476
1543
|
return $0 => $1 => Prelude_Types_max_Ord_Nat($0, $1);
|
|
1477
1544
|
});
|
|
1478
1545
|
|
|
1479
|
-
const
|
|
1480
|
-
return $0 => $1 => $2 => $3 => Prelude_Types_map_Functor_Maybe($2, $3);
|
|
1481
|
-
});
|
|
1482
|
-
|
|
1483
|
-
const csegen_162 = __lazy(function () {
|
|
1546
|
+
const csegen_166 = __lazy(function () {
|
|
1484
1547
|
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}}}));
|
|
1485
1548
|
});
|
|
1486
1549
|
|
|
1487
|
-
const
|
|
1550
|
+
const csegen_190 = __lazy(function () {
|
|
1488
1551
|
return {a1: {a1: b => a => func => $2 => Control_Monad_ST_map_Functor_x28STx20x24sx29(func, $2), a2: a => $7 => $8 => $7, a3: b => a => $a => $b => $c => Control_Monad_ST_x3cx2ax3e_Applicative_x28STx20x24sx29($a, $b, $c)}, a2: b => a => $12 => $13 => $14 => Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($12, $13, $14), a3: a => $1a => $1b => Control_Monad_ST_join_Monad_x28STx20x24sx29($1a, $1b)};
|
|
1489
1552
|
});
|
|
1490
1553
|
|
|
1491
|
-
const
|
|
1554
|
+
const csegen_203 = __lazy(function () {
|
|
1492
1555
|
return $0 => $1 => Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29($0, $1);
|
|
1493
1556
|
});
|
|
1494
1557
|
|
|
1495
|
-
const
|
|
1558
|
+
const csegen_207 = __lazy(function () {
|
|
1496
1559
|
return {a1: $1 => $2 => Prelude_EqOrd_x3dx3d_Eq_Char($1, $2), a2: $7 => $8 => Prelude_EqOrd_x2fx3d_Eq_Char($7, $8)};
|
|
1497
1560
|
});
|
|
1498
1561
|
|
|
1499
|
-
const
|
|
1562
|
+
const csegen_223 = __lazy(function () {
|
|
1500
1563
|
return $0 => $1 => ({a1: $0, a2: $1});
|
|
1501
1564
|
});
|
|
1502
1565
|
|
|
1503
|
-
const
|
|
1566
|
+
const csegen_224 = __lazy(function () {
|
|
1504
1567
|
return $0 => $1 => $2 => $0($1($2));
|
|
1505
1568
|
});
|
|
1506
1569
|
|
|
1507
|
-
const
|
|
1570
|
+
const csegen_275 = __lazy(function () {
|
|
1508
1571
|
return b => a => $0 => $1 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($0, $1);
|
|
1509
1572
|
});
|
|
1510
1573
|
|
|
1511
|
-
const
|
|
1574
|
+
const csegen_276 = __lazy(function () {
|
|
1512
1575
|
return a => $0 => Prelude_Types_join_Monad_x28Eitherx20x24ex29($0);
|
|
1513
1576
|
});
|
|
1514
1577
|
|
|
1515
|
-
const
|
|
1578
|
+
const csegen_277 = __lazy(function () {
|
|
1516
1579
|
return $0 => Data_Either_maybeToEither(() => 'Failed to parse JSON', Language_JSON_parse($0));
|
|
1517
1580
|
});
|
|
1518
1581
|
|
|
1519
|
-
const
|
|
1582
|
+
const csegen_280 = __lazy(function () {
|
|
1520
1583
|
return b => a => func => $0 => Text_Bounded_map_Functor_WithBounds(func, $0);
|
|
1521
1584
|
});
|
|
1522
1585
|
|
|
1523
|
-
const
|
|
1586
|
+
const csegen_291 = __lazy(function () {
|
|
1524
1587
|
return {a1: {a1: $2 => $3 => Prelude_EqOrd_x3dx3d_Eq_Int($2, $3), a2: $8 => $9 => Prelude_EqOrd_x2fx3d_Eq_Int($8, $9)}, a2: $e => $f => Prelude_EqOrd_compare_Ord_Int($e, $f), a3: $14 => $15 => Prelude_EqOrd_x3c_Ord_Int($14, $15), a4: $1a => $1b => Prelude_EqOrd_x3e_Ord_Int($1a, $1b), a5: $20 => $21 => Prelude_EqOrd_x3cx3d_Ord_Int($20, $21), a6: $26 => $27 => Prelude_EqOrd_x3ex3d_Ord_Int($26, $27), a7: $2c => $2d => Prelude_EqOrd_max_Ord_Int($2c, $2d), a8: $32 => $33 => Prelude_EqOrd_min_Ord_Int($32, $33)};
|
|
1525
1588
|
});
|
|
1526
1589
|
|
|
1527
|
-
const
|
|
1590
|
+
const csegen_299 = __lazy(function () {
|
|
1528
1591
|
return {a1: $1 => Language_JSON_Tokens_TokType_TokenKind_JSONTokenKind($1), a2: kind => $5 => Language_JSON_Tokens_tokValue_TokenKind_JSONTokenKind(kind, $5)};
|
|
1529
1592
|
});
|
|
1530
1593
|
|
|
1531
|
-
const
|
|
1594
|
+
const csegen_302 = __lazy(function () {
|
|
1532
1595
|
return {a1: $1 => $2 => Language_JSON_Tokens_x3dx3d_Eq_JSONTokenKind($1, $2), a2: $7 => $8 => Language_JSON_Tokens_x2fx3d_Eq_JSONTokenKind($7, $8)};
|
|
1533
1596
|
});
|
|
1534
1597
|
|
|
1535
|
-
const
|
|
1598
|
+
const csegen_338 = __lazy(function () {
|
|
1536
1599
|
return {a1: $1 => Language_JSON_String_Tokens_TokType_TokenKind_JSONStringTokenKind($1), a2: kind => $5 => Language_JSON_String_Tokens_tokValue_TokenKind_JSONStringTokenKind(kind, $5)};
|
|
1537
1600
|
});
|
|
1538
1601
|
|
|
1539
|
-
const
|
|
1602
|
+
const csegen_341 = __lazy(function () {
|
|
1540
1603
|
return {a1: $1 => $2 => Language_JSON_String_Tokens_x3dx3d_Eq_JSONStringTokenKind($1, $2), a2: $7 => $8 => Language_JSON_String_Tokens_x2fx3d_Eq_JSONStringTokenKind($7, $8)};
|
|
1541
1604
|
});
|
|
1542
1605
|
|
|
1543
|
-
const
|
|
1606
|
+
const csegen_357 = __lazy(function () {
|
|
1544
1607
|
return $0 => $1 => $2 => $3 => Text_Bounded_map_Functor_WithBounds($2, $3);
|
|
1545
1608
|
});
|
|
1546
1609
|
|
|
1547
|
-
const
|
|
1610
|
+
const csegen_359 = __lazy(function () {
|
|
1548
1611
|
return {a1: {a1: 'End of input', a2: {h: 0}}, a2: {h: 0}};
|
|
1549
1612
|
});
|
|
1550
1613
|
|
|
1551
|
-
const
|
|
1552
|
-
return
|
|
1614
|
+
const csegen_402 = __lazy(function () {
|
|
1615
|
+
return $0 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($0));
|
|
1616
|
+
});
|
|
1617
|
+
|
|
1618
|
+
const csegen_404 = __lazy(function () {
|
|
1619
|
+
return Prelude_IO_getLine(csegen_21());
|
|
1553
1620
|
});
|
|
1554
1621
|
|
|
1555
|
-
const
|
|
1622
|
+
const csegen_434 = __lazy(function () {
|
|
1556
1623
|
return $0 => Language_JSON_Accessors_array($3 => Data_PullRequest_parsePR($3), $0);
|
|
1557
1624
|
});
|
|
1558
1625
|
|
|
1559
|
-
const
|
|
1626
|
+
const csegen_454 = __lazy(function () {
|
|
1560
1627
|
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)};
|
|
1561
1628
|
});
|
|
1562
1629
|
|
|
1563
|
-
const
|
|
1630
|
+
const csegen_458 = __lazy(function () {
|
|
1564
1631
|
return b => a => f => $0 => $1 => $2 => Prelude_Types_traverse_Traversable_x28Eitherx20x24ex29($0, $1, $2);
|
|
1565
1632
|
});
|
|
1566
1633
|
|
|
1567
|
-
const
|
|
1634
|
+
const csegen_471 = __lazy(function () {
|
|
1568
1635
|
return $0 => $0.a1;
|
|
1569
1636
|
});
|
|
1570
1637
|
|
|
1571
|
-
const
|
|
1572
|
-
return $0 => $1 => $2 => Data_Promise_either(
|
|
1638
|
+
const csegen_479 = __lazy(function () {
|
|
1639
|
+
return $0 => $1 => $2 => Data_Promise_either(csegen_115(), Data_PullRequest_parsePullRequestsString($0), $1, $2);
|
|
1573
1640
|
});
|
|
1574
1641
|
|
|
1575
|
-
const
|
|
1576
|
-
return $0 => $1 => $2 => Data_Promise_either(
|
|
1642
|
+
const csegen_480 = __lazy(function () {
|
|
1643
|
+
return $0 => $1 => $2 => Data_Promise_either(csegen_115(), Data_User_parseUserString($0), $1, $2);
|
|
1577
1644
|
});
|
|
1578
1645
|
|
|
1579
|
-
const
|
|
1646
|
+
const csegen_513 = __lazy(function () {
|
|
1580
1647
|
return {a1: $1 => $2 => _add32s($1, $2), a2: $6 => $7 => _mul32s($6, $7), a3: $b => Number(_truncBigInt32($b))};
|
|
1581
1648
|
});
|
|
1582
1649
|
|
|
1583
|
-
const
|
|
1650
|
+
const csegen_528 = __lazy(function () {
|
|
1584
1651
|
return $0 => $0.a2;
|
|
1585
1652
|
});
|
|
1586
1653
|
|
|
1587
|
-
const
|
|
1654
|
+
const csegen_532 = __lazy(function () {
|
|
1588
1655
|
return $0 => $0.a1;
|
|
1589
1656
|
});
|
|
1590
1657
|
|
|
1591
|
-
const
|
|
1592
|
-
return Prelude_Interfaces_x3cx24x3e(
|
|
1658
|
+
const csegen_535 = __lazy(function () {
|
|
1659
|
+
return Prelude_Interfaces_x3cx24x3e(csegen_103(), $4 => Prelude_Cast_cast_Cast_Integer_Bits32($4), System_time(csegen_21()));
|
|
1593
1660
|
});
|
|
1594
1661
|
|
|
1595
|
-
const
|
|
1596
|
-
return {a1:
|
|
1662
|
+
const csegen_539 = __lazy(function () {
|
|
1663
|
+
return {a1: csegen_21(), a2: {a1: x => Data_Config_show_Show_Config(x), a2: d => x => Data_Config_showPrec_Show_Config(d, x)}};
|
|
1664
|
+
});
|
|
1665
|
+
|
|
1666
|
+
const csegen_564 = __lazy(function () {
|
|
1667
|
+
return {a1: {a1: '--checkout', a2: {a1: '-c', a2: {h: 0}}}};
|
|
1597
1668
|
});
|
|
1598
1669
|
|
|
1599
1670
|
function prim__add_Integer($0, $1) {
|
|
@@ -1608,60 +1679,73 @@ function prim__mul_Integer($0, $1) {
|
|
|
1608
1679
|
return ($0*$1);
|
|
1609
1680
|
}
|
|
1610
1681
|
|
|
1611
|
-
function
|
|
1612
|
-
|
|
1682
|
+
function Main_case__contribute_3129($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a) {
|
|
1683
|
+
const $c = Data_List_headx27(Data_List_drop($6, Prelude_Types_List_tailRecAppend($a.a1, $a.a2)));
|
|
1684
|
+
switch($c.h) {
|
|
1685
|
+
case 0: return $16 => $17 => Data_Promise_reject('No open PRs to review!', $16, $17);
|
|
1613
1686
|
case undefined: {
|
|
1614
|
-
|
|
1615
|
-
|
|
1616
|
-
|
|
1617
|
-
|
|
1618
|
-
|
|
1619
|
-
case 0: return csegen_21();
|
|
1620
|
-
}
|
|
1687
|
+
const $1f = $20 => $21 => {
|
|
1688
|
+
const $22 = Prelude_Interfaces_x24x3e(csegen_18(), $7, $c.a1.a6);
|
|
1689
|
+
switch($22.h) {
|
|
1690
|
+
case undefined: return FFI_Git_checkoutBranch($0, $22.a1, $20, $21);
|
|
1691
|
+
case 0: return Data_Promise_pure_Applicative_Promise(undefined, $20, $21);
|
|
1621
1692
|
}
|
|
1622
|
-
|
|
1623
|
-
|
|
1693
|
+
};
|
|
1694
|
+
return Prelude_Interfaces_x3ex3e(csegen_15(), $1f, () => Prelude_IO_putStrLn(csegen_21(), Data_PullRequest_rf__webURI($3, $c.a1)));
|
|
1624
1695
|
}
|
|
1625
|
-
default: return csegen_21();
|
|
1626
1696
|
}
|
|
1627
1697
|
}
|
|
1628
1698
|
|
|
1629
|
-
function
|
|
1699
|
+
function Main_n__6348_2731_putNameLn($0, $1, $2, $3) {
|
|
1630
1700
|
return Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_fillBreak(15, Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a1))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('-'), a2: {h: 0}}), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a2), a2: {h: 0}}}});
|
|
1631
1701
|
}
|
|
1632
1702
|
|
|
1633
|
-
function
|
|
1634
|
-
|
|
1635
|
-
|
|
1636
|
-
|
|
1703
|
+
function Main_n__6216_2621_partitionedArgs($0, $1, $2, $3, $4) {
|
|
1704
|
+
const $5 = Data_List_partition($8 => Data_String_isPrefixOf('+', $8), $4);
|
|
1705
|
+
return {a1: Prelude_Types_map_Functor_List($11 => Data_String_Extra_drop(1n, $11), $5.a1), a2: $5.a2};
|
|
1706
|
+
}
|
|
1707
|
+
|
|
1708
|
+
function Main_n__6932_3327_parseSkipArg($0, $1) {
|
|
1709
|
+
const $2 = Prelude_Types_fastUnpack($1);
|
|
1710
|
+
switch($2.h) {
|
|
1711
|
+
case undefined: {
|
|
1712
|
+
switch($2.a1) {
|
|
1713
|
+
case '-': return Prelude_Types_map_Functor_Maybe($8 => ({a1: Prelude_Cast_cast_Cast_Integer_Nat($8)}), Data_String_parsePositive(csegen_29(), Prelude_Types_fastPack($2.a2)));
|
|
1714
|
+
default: return {h: 0};
|
|
1715
|
+
}
|
|
1716
|
+
}
|
|
1717
|
+
default: return {h: 0};
|
|
1637
1718
|
}
|
|
1638
1719
|
}
|
|
1639
1720
|
|
|
1640
|
-
function
|
|
1641
|
-
|
|
1642
|
-
return {a1: Prelude_Types_map_Functor_List($11 => Data_String_Extra_drop(1n, $11), $5.a1), a2: $5.a2};
|
|
1721
|
+
function Main_n__7131_3587_parsePg($0, $1, $2, $3, $4, $5) {
|
|
1722
|
+
return Data_String_parsePositive(csegen_30(), $5);
|
|
1643
1723
|
}
|
|
1644
1724
|
|
|
1645
|
-
function
|
|
1646
|
-
return Data_String_parsePositive(
|
|
1725
|
+
function Main_n__7131_3586_parseLim($0, $1, $2, $3, $4) {
|
|
1726
|
+
return Prelude_Interfaces_x3cx3dx3c(csegen_42(), x => Data_Fin_natToFin(x, Prelude_Types_prim__integerToNat(101n)), $f => Data_String_parsePositive(csegen_30(), $f));
|
|
1647
1727
|
}
|
|
1648
1728
|
|
|
1649
|
-
function
|
|
1650
|
-
|
|
1729
|
+
function Main_n__6932_3326_parseCheckoutArg($0, $1) {
|
|
1730
|
+
switch($1) {
|
|
1731
|
+
case '-c': return {a1: {h: 0}};
|
|
1732
|
+
case '--checkout': return {a1: {h: 0}};
|
|
1733
|
+
default: return {h: 0};
|
|
1734
|
+
}
|
|
1651
1735
|
}
|
|
1652
1736
|
|
|
1653
|
-
function
|
|
1737
|
+
function Main_n__6489_2885_maybeDecorated($0, $1, $2, $3) {
|
|
1654
1738
|
switch(Data_Config_rf__colors($2)) {
|
|
1655
1739
|
case 1: return $3;
|
|
1656
1740
|
case 0: return Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($3);
|
|
1657
1741
|
}
|
|
1658
1742
|
}
|
|
1659
1743
|
|
|
1660
|
-
function
|
|
1661
|
-
return FFI_Concurrency_fork(
|
|
1744
|
+
function Main_n__6348_2730_forkedUser($0, $1, $2, $3) {
|
|
1745
|
+
return FFI_Concurrency_fork(csegen_21(), ('user --json '+$3));
|
|
1662
1746
|
}
|
|
1663
1747
|
|
|
1664
|
-
function
|
|
1748
|
+
function Main_n__6086_2483_configuredOpts($0, $1, $2) {
|
|
1665
1749
|
const $10 = $11 => {
|
|
1666
1750
|
switch($11.h) {
|
|
1667
1751
|
case 1: return $0.a1.a1.a2(undefined)(BashCompletion_opts($11.a1, $2, $1));
|
|
@@ -1671,6 +1755,13 @@ function Main_n__5567_2479_configuredOpts($0, $1, $2) {
|
|
|
1671
1755
|
return $0.a1.a2(undefined)(undefined)(Config_loadConfig($0, 0, {h: 0}))($10);
|
|
1672
1756
|
}
|
|
1673
1757
|
|
|
1758
|
+
function Main_skipArg($0) {
|
|
1759
|
+
switch($0.h) {
|
|
1760
|
+
case undefined: return {a1: $0.a1};
|
|
1761
|
+
default: return {h: 0};
|
|
1762
|
+
}
|
|
1763
|
+
}
|
|
1764
|
+
|
|
1674
1765
|
function Main_shouldUseColors($0) {
|
|
1675
1766
|
const $e = tty => {
|
|
1676
1767
|
const $1b = noColors => {
|
|
@@ -1693,61 +1784,107 @@ function Main_shouldUseColors($0) {
|
|
|
1693
1784
|
}
|
|
1694
1785
|
|
|
1695
1786
|
function Main_resolvex27x27($0) {
|
|
1696
|
-
return Data_Promise_resolvex27($3 => $4 => $3, $6 => Main_exitError(
|
|
1787
|
+
return Data_Promise_resolvex27($3 => $4 => $3, $6 => Main_exitError(csegen_59(), $6), $0);
|
|
1788
|
+
}
|
|
1789
|
+
|
|
1790
|
+
function Main_printCurrentBranchURI($0, $1, $2, $3) {
|
|
1791
|
+
const $c = branch => {
|
|
1792
|
+
const $d = $0.a2;
|
|
1793
|
+
const $f = $0.a3;
|
|
1794
|
+
const $11 = Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'https://github.com/', a2: {a1: $d, a2: {a1: '/', a2: {a1: $f, a2: {a1: '/tree/', a2: {a1: branch, a2: {h: 0}}}}}}});
|
|
1795
|
+
return Prelude_IO_putStrLn(csegen_21(), $11);
|
|
1796
|
+
};
|
|
1797
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($6 => $7 => FFI_Git_currentBranch($1, $6, $7), $c, $2, $3);
|
|
1798
|
+
}
|
|
1799
|
+
|
|
1800
|
+
function Main_parseContributeArgs($0) {
|
|
1801
|
+
switch($0.h) {
|
|
1802
|
+
case 0: return {h: 1, a1: {h: 0}};
|
|
1803
|
+
case undefined: {
|
|
1804
|
+
switch($0.a2.h) {
|
|
1805
|
+
case undefined: {
|
|
1806
|
+
switch($0.a2.a2.h) {
|
|
1807
|
+
case undefined: return {h: 0, a1: 'contribute\'s arguments must be either -<num> to skip num PRs or --checkout (-c) to checkout the branch needing review.'};
|
|
1808
|
+
default: {
|
|
1809
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_37(), $b => Main_x3cx7cx7cx3e(csegen_80(), $10 => Main_n__6932_3327_parseSkipArg($0, $10), $15 => Main_n__6932_3326_parseCheckoutArg($0, $15), $b), $0);
|
|
1810
|
+
switch($6.h) {
|
|
1811
|
+
case undefined: return {h: 1, a1: $6.a1};
|
|
1812
|
+
case 0: return {h: 0, a1: 'contribute\'s arguments must be either -<num> to skip num PRs or --checkout (-c) to checkout the branch needing review.'};
|
|
1813
|
+
}
|
|
1814
|
+
}
|
|
1815
|
+
}
|
|
1816
|
+
}
|
|
1817
|
+
default: {
|
|
1818
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_37(), $22 => Main_x3cx7cx7cx3e(csegen_80(), $27 => Main_n__6932_3327_parseSkipArg($0, $27), $2c => Main_n__6932_3326_parseCheckoutArg($0, $2c), $22), $0);
|
|
1819
|
+
switch($1d.h) {
|
|
1820
|
+
case undefined: return {h: 1, a1: $1d.a1};
|
|
1821
|
+
case 0: return {h: 0, a1: 'contribute\'s arguments must be either -<num> to skip num PRs or --checkout (-c) to checkout the branch needing review.'};
|
|
1822
|
+
}
|
|
1823
|
+
}
|
|
1824
|
+
}
|
|
1825
|
+
}
|
|
1826
|
+
default: {
|
|
1827
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_37(), $39 => Main_x3cx7cx7cx3e(csegen_80(), $3e => Main_n__6932_3327_parseSkipArg($0, $3e), $43 => Main_n__6932_3326_parseCheckoutArg($0, $43), $39), $0);
|
|
1828
|
+
switch($34.h) {
|
|
1829
|
+
case undefined: return {h: 1, a1: $34.a1};
|
|
1830
|
+
case 0: return {h: 0, a1: 'contribute\'s arguments must be either -<num> to skip num PRs or --checkout (-c) to checkout the branch needing review.'};
|
|
1831
|
+
}
|
|
1832
|
+
}
|
|
1833
|
+
}
|
|
1697
1834
|
}
|
|
1698
1835
|
|
|
1699
1836
|
function Main_main($0) {
|
|
1700
|
-
const $1 = Main_shouldUseColors(
|
|
1701
|
-
const $7 = System_getEnv(
|
|
1702
|
-
const $e = Prelude_Interfaces_x3cx24x3e(
|
|
1837
|
+
const $1 = Main_shouldUseColors(csegen_59())($0);
|
|
1838
|
+
const $7 = System_getEnv(csegen_59(), 'EDITOR')($0);
|
|
1839
|
+
const $e = Prelude_Interfaces_x3cx24x3e(csegen_85(), $14 => Data_List_drop(2n, $14), System_getArgs(csegen_59()))($0);
|
|
1703
1840
|
let $25;
|
|
1704
|
-
switch(Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(
|
|
1841
|
+
switch(Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_94(), $e, {a1: 'help', a2: {h: 0}})) {
|
|
1705
1842
|
case 1: {
|
|
1706
1843
|
$25 = 1;
|
|
1707
1844
|
break;
|
|
1708
1845
|
}
|
|
1709
1846
|
case 0: {
|
|
1710
|
-
$25 = Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(
|
|
1847
|
+
$25 = Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_94(), $e, {a1: '--help', a2: {h: 0}});
|
|
1711
1848
|
break;
|
|
1712
1849
|
}
|
|
1713
1850
|
}
|
|
1714
|
-
const $21 = Prelude_Interfaces_when(
|
|
1851
|
+
const $21 = Prelude_Interfaces_when(csegen_52(), $25, () => Prelude_Interfaces_x3ex3e(csegen_91(), Prelude_IO_putStrLn(csegen_59(), Help_help($1)), () => csegen_95()));
|
|
1715
1852
|
const $42 = () => {
|
|
1716
1853
|
let $4a;
|
|
1717
|
-
switch(Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(
|
|
1854
|
+
switch(Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_94(), $e, {a1: 'version', a2: {h: 0}})) {
|
|
1718
1855
|
case 1: {
|
|
1719
1856
|
$4a = 1;
|
|
1720
1857
|
break;
|
|
1721
1858
|
}
|
|
1722
1859
|
case 0: {
|
|
1723
|
-
$4a = Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(
|
|
1860
|
+
$4a = Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_94(), $e, {a1: '--version', a2: {h: 0}});
|
|
1724
1861
|
break;
|
|
1725
1862
|
}
|
|
1726
1863
|
}
|
|
1727
|
-
const $46 = Prelude_Interfaces_when(
|
|
1728
|
-
return Prelude_Interfaces_x3ex3e(
|
|
1729
|
-
const $66 = System_getEnv(
|
|
1864
|
+
const $46 = Prelude_Interfaces_when(csegen_52(), $4a, () => Prelude_Interfaces_x3ex3e(csegen_91(), AppVersion_printVersion(csegen_59()), () => csegen_95()));
|
|
1865
|
+
return Prelude_Interfaces_x3ex3e(csegen_91(), $46, () => $65 => {
|
|
1866
|
+
const $66 = System_getEnv(csegen_59(), 'GITHUB_PAT')($65);
|
|
1730
1867
|
switch($66.h) {
|
|
1731
1868
|
case undefined: {
|
|
1732
1869
|
const $6e = FFI_GitHub_octokit($66.a1)($65);
|
|
1733
|
-
const $73 = FFI_Git_git(
|
|
1870
|
+
const $73 = FFI_Git_git(csegen_59())($65);
|
|
1734
1871
|
return Main_handleArgs($73, $6e, $1, $7, $e)($65);
|
|
1735
1872
|
}
|
|
1736
|
-
case 0: return Main_exitError(
|
|
1873
|
+
case 0: return Main_exitError(csegen_59(), 'GITHUB_PAT environment variable must be set to a personal access token.')($65);
|
|
1737
1874
|
}
|
|
1738
1875
|
});
|
|
1739
1876
|
};
|
|
1740
|
-
const $1d = Prelude_Interfaces_x3ex3e(
|
|
1877
|
+
const $1d = Prelude_Interfaces_x3ex3e(csegen_91(), $21, $42);
|
|
1741
1878
|
return $1d($0);
|
|
1742
1879
|
}
|
|
1743
1880
|
|
|
1744
1881
|
function Main_listTeam($0, $1, $2, $3, $4) {
|
|
1745
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(
|
|
1882
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_103(), $b => Data_List_sort(csegen_111(), $b), FFI_GitHub_listTeamMembers($1, $0.a2, $2)), teamMemberLogins => $17 => $18 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(csegen_15(), csegen_113(), Prelude_Types_traverse_Traversable_List(csegen_9(), $25 => Main_n__6348_2730_forkedUser($1, $2, $0, $25), teamMemberLogins)), teamMembersJson => $2d => $2e => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_traverse_Traversable_List(csegen_9(), $35 => $36 => $37 => Data_Promise_either(csegen_115(), Data_User_parseUser($35), $36, $37), teamMembersJson), teamMembers => $42 => $43 => $44 => Data_Promise_liftIO_HasIO_Promise(Text_PrettyPrint_Prettyprinter_Render_Terminal_putDoc(Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Interfaces_x3cx24x3e(csegen_119(), $4f => Main_n__6348_2731_putNameLn($1, $2, $0, $4f), teamMembers))), $42, $43, $44), $2d, $2e), $17, $18), $3, $4);
|
|
1746
1883
|
}
|
|
1747
1884
|
|
|
1748
1885
|
function Main_handleConfiguredArgs($0, $1, $2, $3) {
|
|
1749
1886
|
switch($3.h) {
|
|
1750
|
-
case 0: return Prelude_IO_putStrLn(
|
|
1887
|
+
case 0: return Prelude_IO_putStrLn(csegen_21(), Help_help(Data_Config_rf__colors($0)));
|
|
1751
1888
|
case undefined: {
|
|
1752
1889
|
switch($3.a1) {
|
|
1753
1890
|
case 'reviews': {
|
|
@@ -1761,24 +1898,24 @@ function Main_handleConfiguredArgs($0, $1, $2, $3) {
|
|
|
1761
1898
|
switch($3.a2.a2.a2.h) {
|
|
1762
1899
|
case 0: {
|
|
1763
1900
|
return $13 => {
|
|
1764
|
-
const $14 = Data_String_parsePositive(
|
|
1901
|
+
const $14 = Data_String_parsePositive(csegen_29(), $3.a2.a2.a1);
|
|
1765
1902
|
switch($14.h) {
|
|
1766
|
-
case undefined: return Data_Promise_x3ex3ex3d_Monad_Promise($1b => $1c => FFI_GitHub_listPullReviewsJsonStr($2, $0.a2, $0.a3, $14.a1, $1b, $1c), reviewsJsonStr => Prelude_IO_putStr(
|
|
1903
|
+
case undefined: return Data_Promise_x3ex3ex3d_Monad_Promise($1b => $1c => FFI_GitHub_listPullReviewsJsonStr($2, $0.a2, $0.a3, $14.a1, $1b, $1c), reviewsJsonStr => Prelude_IO_putStr(csegen_21(), reviewsJsonStr), $11, $13);
|
|
1767
1904
|
case 0: return Data_Promise_pure_Applicative_Promise(undefined, $11, $13);
|
|
1768
1905
|
}
|
|
1769
1906
|
};
|
|
1770
1907
|
}
|
|
1771
|
-
default: return $31 => Data_Promise_reject(Prelude_Interfaces_concat(
|
|
1908
|
+
default: return $31 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $11, $31);
|
|
1772
1909
|
}
|
|
1773
1910
|
};
|
|
1774
1911
|
}
|
|
1775
|
-
default: return $46 => $47 => Data_Promise_reject(Prelude_Interfaces_concat(
|
|
1912
|
+
default: return $46 => $47 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $46, $47);
|
|
1776
1913
|
}
|
|
1777
1914
|
}
|
|
1778
|
-
default: return $5c => $5d => Data_Promise_reject(Prelude_Interfaces_concat(
|
|
1915
|
+
default: return $5c => $5d => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $5c, $5d);
|
|
1779
1916
|
}
|
|
1780
1917
|
}
|
|
1781
|
-
default: return $72 => $73 => Data_Promise_reject(Prelude_Interfaces_concat(
|
|
1918
|
+
default: return $72 => $73 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $72, $73);
|
|
1782
1919
|
}
|
|
1783
1920
|
}
|
|
1784
1921
|
case 'pulls': {
|
|
@@ -1792,27 +1929,27 @@ function Main_handleConfiguredArgs($0, $1, $2, $3) {
|
|
|
1792
1929
|
case undefined: {
|
|
1793
1930
|
switch($3.a2.a2.a2.a2.h) {
|
|
1794
1931
|
case 0: {
|
|
1795
|
-
const $8d = Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $93 => $94 => ({a1: $93, a2: $94})},
|
|
1932
|
+
const $8d = Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $93 => $94 => ({a1: $93, a2: $94})}, Main_n__7131_3586_parseLim($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $0)($3.a2.a2.a1)), Main_n__7131_3587_parsePg($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $0, $3.a2.a2.a2.a1));
|
|
1796
1933
|
return $a8 => $a9 => {
|
|
1797
1934
|
switch($8d.h) {
|
|
1798
|
-
case undefined: return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequestsJsonStr($2, $0.a2, $0.a3, {h: 0}, $8d.a1.a1, $8d.a1.a2), pullsJsonStr => Prelude_IO_putStr(
|
|
1935
|
+
case undefined: return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequestsJsonStr($2, $0.a2, $0.a3, {h: 0}, $8d.a1.a1, $8d.a1.a2), pullsJsonStr => Prelude_IO_putStr(csegen_21(), pullsJsonStr), $a8, $a9);
|
|
1799
1936
|
case 0: return Data_Promise_pure_Applicative_Promise(undefined, $a8, $a9);
|
|
1800
1937
|
}
|
|
1801
1938
|
};
|
|
1802
1939
|
}
|
|
1803
|
-
default: return $c2 => $c3 => Data_Promise_reject(Prelude_Interfaces_concat(
|
|
1940
|
+
default: return $c2 => $c3 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $c2, $c3);
|
|
1804
1941
|
}
|
|
1805
1942
|
}
|
|
1806
|
-
default: return $d8 => $d9 => Data_Promise_reject(Prelude_Interfaces_concat(
|
|
1943
|
+
default: return $d8 => $d9 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $d8, $d9);
|
|
1807
1944
|
}
|
|
1808
1945
|
}
|
|
1809
|
-
default: return $ee => $ef => Data_Promise_reject(Prelude_Interfaces_concat(
|
|
1946
|
+
default: return $ee => $ef => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $ee, $ef);
|
|
1810
1947
|
}
|
|
1811
1948
|
}
|
|
1812
|
-
default: return $104 => $105 => Data_Promise_reject(Prelude_Interfaces_concat(
|
|
1949
|
+
default: return $104 => $105 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $104, $105);
|
|
1813
1950
|
}
|
|
1814
1951
|
}
|
|
1815
|
-
default: return $11a => $11b => Data_Promise_reject(Prelude_Interfaces_concat(
|
|
1952
|
+
default: return $11a => $11b => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $11a, $11b);
|
|
1816
1953
|
}
|
|
1817
1954
|
}
|
|
1818
1955
|
case 'user': {
|
|
@@ -1825,143 +1962,146 @@ function Main_handleConfiguredArgs($0, $1, $2, $3) {
|
|
|
1825
1962
|
case undefined: {
|
|
1826
1963
|
return $134 => {
|
|
1827
1964
|
switch($3.a2.a2.a2.h) {
|
|
1828
|
-
case 0: return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_getUser($2)($3.a2.a2.a1), $13d => Prelude_IO_print({a1:
|
|
1829
|
-
default: return Data_Promise_reject(Prelude_Interfaces_concat(
|
|
1965
|
+
case 0: return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_getUser($2)($3.a2.a2.a1), $13d => Prelude_IO_print({a1: csegen_21(), a2: {a1: x => Language_JSON_Data_show_Show_JSON(x), a2: d => x => Language_JSON_Data_showPrec_Show_JSON(d, x)}}, Data_User_json($13d)), $132, $134);
|
|
1966
|
+
default: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $132, $134);
|
|
1830
1967
|
}
|
|
1831
1968
|
};
|
|
1832
1969
|
}
|
|
1833
|
-
default: return $163 => Data_Promise_reject(Prelude_Interfaces_concat(
|
|
1970
|
+
default: return $163 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $132, $163);
|
|
1834
1971
|
}
|
|
1835
1972
|
};
|
|
1836
1973
|
}
|
|
1837
|
-
default: return $178 => $179 => Data_Promise_reject(Prelude_Interfaces_concat(
|
|
1974
|
+
default: return $178 => $179 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $178, $179);
|
|
1838
1975
|
}
|
|
1839
1976
|
}
|
|
1840
|
-
default: return $18e => $18f => Data_Promise_reject(Prelude_Interfaces_concat(
|
|
1977
|
+
default: return $18e => $18f => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $18e, $18f);
|
|
1841
1978
|
}
|
|
1842
1979
|
}
|
|
1843
1980
|
case 'sync': {
|
|
1844
1981
|
return $1a4 => $1a5 => {
|
|
1845
1982
|
switch($3.a2.h) {
|
|
1846
1983
|
case 0: return Data_Promise_map_Functor_Promise($1a9 => (undefined), $1ab => $1ac => Config_syncConfig($0, $2, 1, $1ab, $1ac), $1a4, $1a5);
|
|
1847
|
-
default: return Data_Promise_reject(Prelude_Interfaces_concat(
|
|
1984
|
+
default: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $1a4, $1a5);
|
|
1985
|
+
}
|
|
1986
|
+
};
|
|
1987
|
+
}
|
|
1988
|
+
case 'branch': {
|
|
1989
|
+
return $1c9 => {
|
|
1990
|
+
switch($3.a2.h) {
|
|
1991
|
+
case 0: return $1cb => Main_printCurrentBranchURI($0, $1, $1c9, $1cb);
|
|
1992
|
+
default: return $1d1 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $1c9, $1d1);
|
|
1848
1993
|
}
|
|
1849
1994
|
};
|
|
1850
1995
|
}
|
|
1851
1996
|
case 'pr': {
|
|
1852
|
-
return $
|
|
1997
|
+
return $1e6 => $1e7 => {
|
|
1853
1998
|
switch($3.a2.h) {
|
|
1854
1999
|
case 0: {
|
|
1855
|
-
const $
|
|
1856
|
-
switch($
|
|
2000
|
+
const $202 = $203 => {
|
|
2001
|
+
switch($203.h) {
|
|
1857
2002
|
case undefined: {
|
|
1858
|
-
switch($
|
|
1859
|
-
case 0: return Prelude_IO_putStrLn(
|
|
1860
|
-
default: return
|
|
2003
|
+
switch($203.a1) {
|
|
2004
|
+
case 0: return Prelude_IO_putStrLn(csegen_21(), Data_PullRequest_rf__webURI($0, $203.a2));
|
|
2005
|
+
default: return csegen_128();
|
|
1861
2006
|
}
|
|
1862
2007
|
}
|
|
1863
|
-
default: return
|
|
2008
|
+
default: return csegen_128();
|
|
1864
2009
|
}
|
|
1865
2010
|
};
|
|
1866
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($
|
|
2011
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($1eb => $1ec => Data_Promise_x3ex3ex3d_Monad_Promise($1ef => $1f0 => FFI_Git_currentBranch($1, $1ef, $1f0), $1f6 => $1f7 => $1f8 => PullRequest_identifyOrCreatePR($0, $1, $2, $1f6, $1f7, $1f8), $1eb, $1ec), $202, $1e6, $1e7);
|
|
1867
2012
|
}
|
|
1868
|
-
default: return Data_Promise_reject(Prelude_Interfaces_concat(
|
|
2013
|
+
default: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $1e6, $1e7);
|
|
1869
2014
|
}
|
|
1870
2015
|
};
|
|
1871
2016
|
}
|
|
1872
2017
|
case 'reflect': {
|
|
1873
|
-
return $
|
|
2018
|
+
return $225 => $226 => {
|
|
1874
2019
|
switch($3.a2.h) {
|
|
1875
|
-
case 0: return User_Reflect_reflectOnSelf($0, $2, $
|
|
1876
|
-
default: return Data_Promise_reject(Prelude_Interfaces_concat(
|
|
2020
|
+
case 0: return User_Reflect_reflectOnSelf($0, $2, $225, $226);
|
|
2021
|
+
default: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $225, $226);
|
|
1877
2022
|
}
|
|
1878
2023
|
};
|
|
1879
2024
|
}
|
|
1880
2025
|
case 'config': {
|
|
1881
2026
|
switch($3.a2.h) {
|
|
1882
2027
|
case undefined: {
|
|
1883
|
-
return $
|
|
2028
|
+
return $242 => {
|
|
1884
2029
|
switch($3.a2.a2.h) {
|
|
1885
|
-
case 0: return $
|
|
2030
|
+
case 0: return $244 => Data_Promise_x3ex3ex3d_Monad_Promise($247 => Config_getConfig($0, $3.a2.a1, $247), value => Prelude_IO_putStrLn(csegen_21(), value), $242, $244);
|
|
1886
2031
|
case undefined: {
|
|
1887
|
-
return $
|
|
2032
|
+
return $253 => {
|
|
1888
2033
|
switch($3.a2.a2.a2.h) {
|
|
1889
|
-
case 0: return Data_Promise_map_Functor_Promise($
|
|
1890
|
-
default: return Data_Promise_reject(Prelude_Interfaces_concat(
|
|
2034
|
+
case 0: return Data_Promise_map_Functor_Promise($257 => (undefined), Config_setConfig($0, $3.a2.a1, $3.a2.a2.a1), $242, $253);
|
|
2035
|
+
default: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $242, $253);
|
|
1891
2036
|
}
|
|
1892
2037
|
};
|
|
1893
2038
|
}
|
|
1894
|
-
default: return $
|
|
2039
|
+
default: return $273 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $242, $273);
|
|
1895
2040
|
}
|
|
1896
2041
|
};
|
|
1897
2042
|
}
|
|
1898
|
-
default: return $
|
|
2043
|
+
default: return $288 => $289 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $288, $289);
|
|
1899
2044
|
}
|
|
1900
2045
|
}
|
|
1901
2046
|
case 'contribute': {
|
|
1902
|
-
|
|
1903
|
-
|
|
1904
|
-
case
|
|
1905
|
-
|
|
1906
|
-
case 0: return Main_case__handleConfiguredArgs_3520($0, $1, $2, $3.a2.a1, Prelude_Types_fastUnpack($3.a2.a1));
|
|
1907
|
-
default: return $293 => $294 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_114(), csegen_104(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_107(), $3), a2: {a1: '.', a2: {h: 0}}}}), $293, $294);
|
|
1908
|
-
}
|
|
1909
|
-
}
|
|
1910
|
-
default: return $2a9 => $2aa => Data_Promise_reject(Prelude_Interfaces_concat(csegen_114(), csegen_104(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_107(), $3), a2: {a1: '.', a2: {h: 0}}}}), $2a9, $2aa);
|
|
2047
|
+
const $29e = Main_parseContributeArgs($3.a2);
|
|
2048
|
+
switch($29e.h) {
|
|
2049
|
+
case 1: return $2a1 => $2a2 => Main_contribute($0, $1, $2, $29e.a1, $2a1, $2a2);
|
|
2050
|
+
case 0: return Main_exitError(csegen_21(), $29e.a1);
|
|
1911
2051
|
}
|
|
1912
2052
|
}
|
|
1913
2053
|
case 'list': {
|
|
1914
2054
|
switch($3.a2.h) {
|
|
1915
|
-
case 0: return $
|
|
2055
|
+
case 0: return $2af => $2b0 => Data_Promise_reject('The list command expects the name of a GitHub Team as an argument.', $2af, $2b0);
|
|
1916
2056
|
case undefined: {
|
|
1917
|
-
return $
|
|
2057
|
+
return $2b5 => {
|
|
1918
2058
|
switch($3.a2.a2.h) {
|
|
1919
|
-
case 0: return $
|
|
1920
|
-
default: return $
|
|
2059
|
+
case 0: return $2b7 => Main_listTeam($0, $2, $3.a2.a1, $2b5, $2b7);
|
|
2060
|
+
default: return $2be => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $2b5, $2be);
|
|
1921
2061
|
}
|
|
1922
2062
|
};
|
|
1923
2063
|
}
|
|
1924
|
-
default: return $
|
|
2064
|
+
default: return $2d3 => $2d4 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $2d3, $2d4);
|
|
1925
2065
|
}
|
|
1926
2066
|
}
|
|
1927
2067
|
case 'graph': {
|
|
1928
2068
|
switch($3.a2.h) {
|
|
1929
|
-
case 0: return $
|
|
2069
|
+
case 0: return $2ea => $2eb => Data_Promise_reject('The graph command expects the name of a GitHub Team as an argument.', $2ea, $2eb);
|
|
1930
2070
|
case undefined: {
|
|
1931
|
-
return $
|
|
2071
|
+
return $2f0 => {
|
|
1932
2072
|
switch($3.a2.a2.h) {
|
|
1933
|
-
case 0: return $
|
|
1934
|
-
default: return $
|
|
2073
|
+
case 0: return $2f2 => Main_graphTeam($0, $2, $3.a2.a1, $2f0, $2f2);
|
|
2074
|
+
default: return $2f9 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $2f0, $2f9);
|
|
1935
2075
|
}
|
|
1936
2076
|
};
|
|
1937
2077
|
}
|
|
1938
|
-
default: return $
|
|
2078
|
+
default: return $30e => $30f => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $30e, $30f);
|
|
1939
2079
|
}
|
|
1940
2080
|
}
|
|
1941
2081
|
case 'assign': {
|
|
1942
2082
|
switch($3.a2.h) {
|
|
1943
|
-
case 0: return $
|
|
2083
|
+
case 0: return $325 => $326 => Data_Promise_reject('The assign commaand expects one or more names of GitHub Teams or Users as arguments.', $325, $326);
|
|
1944
2084
|
case undefined: {
|
|
1945
2085
|
switch($3.a2.a1) {
|
|
1946
2086
|
case '--dry': {
|
|
1947
|
-
return $
|
|
2087
|
+
return $32c => {
|
|
1948
2088
|
switch($3.a2.a2.h) {
|
|
1949
|
-
case 0: return $
|
|
1950
|
-
case undefined: return $
|
|
1951
|
-
default: return $
|
|
2089
|
+
case 0: return $32e => Data_Promise_reject('The assign commaand expects one or more names of GitHub Teams or Users as arguments.', $32c, $32e);
|
|
2090
|
+
case undefined: return $333 => Main_assign($0, $1, $2, {a1: $3.a2.a2.a1, a2: $3.a2.a2.a2}, 1, $32c, $333);
|
|
2091
|
+
default: return $33e => Main_assign($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2}, 0, $32c, $33e);
|
|
1952
2092
|
}
|
|
1953
2093
|
};
|
|
1954
2094
|
}
|
|
1955
|
-
default: return $
|
|
2095
|
+
default: return $349 => $34a => Main_assign($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2}, 0, $349, $34a);
|
|
1956
2096
|
}
|
|
1957
2097
|
}
|
|
1958
|
-
default: return $
|
|
2098
|
+
default: return $355 => $356 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $355, $356);
|
|
1959
2099
|
}
|
|
1960
2100
|
}
|
|
1961
|
-
default: return $
|
|
2101
|
+
default: return $36b => $36c => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $36b, $36c);
|
|
1962
2102
|
}
|
|
1963
2103
|
}
|
|
1964
|
-
default: return $
|
|
2104
|
+
default: return $381 => $382 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $381, $382);
|
|
1965
2105
|
}
|
|
1966
2106
|
}
|
|
1967
2107
|
|
|
@@ -1975,31 +2115,31 @@ function Main_handleArgs($0, $1, $2, $3, $4) {
|
|
|
1975
2115
|
switch($4.a2.a2.h) {
|
|
1976
2116
|
case undefined: {
|
|
1977
2117
|
switch($4.a2.a2.a2.h) {
|
|
1978
|
-
case 0: return Main_bashCompletion(
|
|
1979
|
-
default: return Main_resolvex27x27($11 => $12 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(
|
|
2118
|
+
case 0: return Main_bashCompletion(csegen_59(), $4.a2.a1, $4.a2.a2.a1);
|
|
2119
|
+
default: return Main_resolvex27x27($11 => $12 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(csegen_15(), $19 => $1a => $1b => Config_syncIfOld($1, $19, $1a, $1b), $22 => $23 => Config_loadOrCreateConfig($0, $1, $2, $3, $22, $23)), _ => Main_handleConfiguredArgs(_, $0, $1, $4), $11, $12));
|
|
1980
2120
|
}
|
|
1981
2121
|
}
|
|
1982
|
-
default: return Main_resolvex27x27($35 => $36 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(
|
|
2122
|
+
default: return Main_resolvex27x27($35 => $36 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(csegen_15(), $3d => $3e => $3f => Config_syncIfOld($1, $3d, $3e, $3f), $46 => $47 => Config_loadOrCreateConfig($0, $1, $2, $3, $46, $47)), _ => Main_handleConfiguredArgs(_, $0, $1, $4), $35, $36));
|
|
1983
2123
|
}
|
|
1984
2124
|
}
|
|
1985
|
-
default: return Main_resolvex27x27($59 => $5a => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(
|
|
2125
|
+
default: return Main_resolvex27x27($59 => $5a => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(csegen_15(), $61 => $62 => $63 => Config_syncIfOld($1, $61, $62, $63), $6a => $6b => Config_loadOrCreateConfig($0, $1, $2, $3, $6a, $6b)), _ => Main_handleConfiguredArgs(_, $0, $1, $4), $59, $5a));
|
|
1986
2126
|
}
|
|
1987
2127
|
}
|
|
1988
2128
|
case '--bash-completion-script': {
|
|
1989
2129
|
switch($4.a2.h) {
|
|
1990
|
-
case 0: return Prelude_IO_putStrLn(
|
|
1991
|
-
default: return Main_resolvex27x27($83 => $84 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(
|
|
2130
|
+
case 0: return Prelude_IO_putStrLn(csegen_59(), BashCompletion_script());
|
|
2131
|
+
default: return Main_resolvex27x27($83 => $84 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(csegen_15(), $8b => $8c => $8d => Config_syncIfOld($1, $8b, $8c, $8d), $94 => $95 => Config_loadOrCreateConfig($0, $1, $2, $3, $94, $95)), _ => Main_handleConfiguredArgs(_, $0, $1, $4), $83, $84));
|
|
1992
2132
|
}
|
|
1993
2133
|
}
|
|
1994
|
-
default: return Main_resolvex27x27($a7 => $a8 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(
|
|
2134
|
+
default: return Main_resolvex27x27($a7 => $a8 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(csegen_15(), $af => $b0 => $b1 => Config_syncIfOld($1, $af, $b0, $b1), $b8 => $b9 => Config_loadOrCreateConfig($0, $1, $2, $3, $b8, $b9)), _ => Main_handleConfiguredArgs(_, $0, $1, $4), $a7, $a8));
|
|
1995
2135
|
}
|
|
1996
2136
|
}
|
|
1997
|
-
default: return Main_resolvex27x27($cb => $cc => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(
|
|
2137
|
+
default: return Main_resolvex27x27($cb => $cc => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(csegen_15(), $d3 => $d4 => $d5 => Config_syncIfOld($1, $d3, $d4, $d5), $dc => $dd => Config_loadOrCreateConfig($0, $1, $2, $3, $dc, $dd)), _ => Main_handleConfiguredArgs(_, $0, $1, $4), $cb, $cc));
|
|
1998
2138
|
}
|
|
1999
2139
|
}
|
|
2000
2140
|
|
|
2001
2141
|
function Main_graphTeam($0, $1, $2, $3, $4) {
|
|
2002
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listTeamMembers($1, $0.a2, $2), teamMemberLogins => $d => $e => Data_Promise_x3ex3ex3d_Monad_Promise($11 => $12 => PullRequest_listReviewers($0, $1, 4n,
|
|
2142
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listTeamMembers($1, $0.a2, $2), teamMemberLogins => $d => $e => Data_Promise_x3ex3ex3d_Monad_Promise($11 => $12 => PullRequest_listReviewers($0, $1, 4n, csegen_134(), $11, $12), $1c => $1d => $1e => $1f => Data_Promise_liftIO_HasIO_Promise(Text_PrettyPrint_Prettyprinter_Render_Terminal_putDoc(Main_n__6489_2885_maybeDecorated($1, $2, $0, Reviewer_reviewsGraph(csegen_111(), {a1: ann => $2f => Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($2f), a2: ann => $33 => $34 => Text_PrettyPrint_Prettyprinter_Doc_prettyPrec_Pretty_String($33, $34)}, $1c.a2, $1c.a1, teamMemberLogins))), $1d, $1e, $1f), $d, $e), $3, $4);
|
|
2003
2143
|
}
|
|
2004
2144
|
|
|
2005
2145
|
function Main_exitError($0, $1) {
|
|
@@ -2020,44 +2160,54 @@ function Main_exitError($0, $1) {
|
|
|
2020
2160
|
return $0.a1.a2(undefined)(undefined)(System_File_Meta_isTTY($0, System_File_Virtual_stderr()))($f);
|
|
2021
2161
|
}
|
|
2022
2162
|
|
|
2023
|
-
function Main_contribute($0, $1, $2, $3, $4) {
|
|
2024
|
-
const $
|
|
2025
|
-
const $
|
|
2026
|
-
const $
|
|
2027
|
-
|
|
2163
|
+
function Main_contribute($0, $1, $2, $3, $4, $5) {
|
|
2164
|
+
const $13 = openPrs => $14 => $15 => {
|
|
2165
|
+
const $20 = myLogin => {
|
|
2166
|
+
const $21 = Data_Maybe_fromMaybe(() => Prelude_Types_prim__integerToNat(0n), Data_List_headx27(Prelude_Types_List_mapMaybe($2b => Main_skipArg($2b), $3)));
|
|
2167
|
+
const $31 = $32 => {
|
|
2168
|
+
switch($32.h) {
|
|
2169
|
+
case 0: return 1;
|
|
2170
|
+
default: return 0;
|
|
2171
|
+
}
|
|
2172
|
+
};
|
|
2173
|
+
const $2f = Data_List_find($31, $3);
|
|
2174
|
+
const $37 = $38 => {
|
|
2175
|
+
switch(Data_PullRequest_isAuthor(myLogin, $38)) {
|
|
2028
2176
|
case 1: return 0;
|
|
2029
2177
|
case 0: return 1;
|
|
2030
2178
|
}
|
|
2031
2179
|
};
|
|
2032
|
-
const $
|
|
2033
|
-
const $
|
|
2034
|
-
|
|
2035
|
-
const $5f = Prelude_Types_map_Functor_Maybe($62 => Data_PullRequest_rf__webURI($0, $62), Data_List_headx27(Data_List_drop($2, Prelude_Types_List_tailRecAppend($31.a1, $31.a2))));
|
|
2036
|
-
return Main_n__6077_2987_printResult($1, $2, $0, $5f);
|
|
2180
|
+
const $35 = Prelude_Types_List_filter($37, openPrs);
|
|
2181
|
+
const $3e = Data_List_partition($41 => Data_PullRequest_isRequestedReviewer(myLogin, $41), $35);
|
|
2182
|
+
return Main_case__contribute_3129($1, $2, $3, $0, openPrs, myLogin, $21, $2f, $35, $3e, Prelude_Interfaces_mapHom({a1: d => b => c => a => $55 => $56 => $57 => ({a1: $55($57.a1), a2: $56($57.a2)}), a2: b => c => a => $60 => $61 => ({a1: $60($61.a1), a2: $61.a2}), a3: a => d => b => $68 => $69 => ({a1: $69.a1, a2: $68($69.a2)})}, $70 => Data_List_sortBy($73 => $74 => Prelude_Basics_on(csegen_141(), $79 => $79.a2, $73, $74), $70), $3e));
|
|
2037
2183
|
};
|
|
2038
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(
|
|
2184
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_103(), csegen_139(), FFI_GitHub_getSelf($2)), $20, $14, $15);
|
|
2039
2185
|
};
|
|
2040
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequests($
|
|
2186
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequests($2, $0.a2, $0.a3, {a1: 0}, csegen_134(), 0n), $13, $4, $5);
|
|
2041
2187
|
}
|
|
2042
2188
|
|
|
2043
2189
|
function Main_bashCompletion($0, $1, $2) {
|
|
2044
|
-
const $3 = Prelude_Types_maybe(() =>
|
|
2190
|
+
const $3 = Prelude_Types_maybe(() => Main_n__6086_2483_configuredOpts($0, $2, $1), () => $b => $0.a1.a1.a2(undefined)($b), BashCompletion_cmdOpts($1, $2));
|
|
2045
2191
|
return $0.a1.a2(undefined)(undefined)($3)($21 => Prelude_IO_putStr($0, Data_String_fastUnlines($21)));
|
|
2046
2192
|
}
|
|
2047
2193
|
|
|
2048
2194
|
function Main_assign($0, $1, $2, $3, $4, $5, $6) {
|
|
2049
2195
|
return Data_Promise_x3ex3ex3d_Monad_Promise($9 => $a => Data_Promise_x3ex3ex3d_Monad_Promise($d => $e => FFI_Git_currentBranch($1, $d, $e), $14 => $15 => $16 => PullRequest_identifyOrCreatePR($0, $1, $2, $14, $15, $16), $9, $a), $21 => $22 => $24 => {
|
|
2050
|
-
const $25 =
|
|
2196
|
+
const $25 = Main_n__6216_2621_partitionedArgs($0, $1, $2, $4, $3);
|
|
2051
2197
|
return PullRequest_requestReviewers($0, $2, $21.a2, $25.a2, $25.a1, $4, $22, $24);
|
|
2052
2198
|
}, $5, $6);
|
|
2053
2199
|
}
|
|
2054
2200
|
|
|
2055
|
-
function
|
|
2056
|
-
|
|
2057
|
-
return Prelude_IO_putStrLn(csegen_20(), Util_renderString($0, 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)));
|
|
2201
|
+
function Main_x3cx7cx7cx3e($0, $1, $2, $3) {
|
|
2202
|
+
return $0.a3(undefined)($1($3))(() => $2($3));
|
|
2058
2203
|
}
|
|
2059
2204
|
|
|
2060
|
-
function
|
|
2205
|
+
function User_Reflect_case__casex20blockx20inx20reflectOnSelf_2238($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
2206
|
+
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_map_Functor_List(csegen_156(), $2a))), {a1: $7, a2: $9.a1});
|
|
2207
|
+
return Prelude_IO_putStrLn(csegen_21(), Util_renderString($0, 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)));
|
|
2208
|
+
}
|
|
2209
|
+
|
|
2210
|
+
function User_Reflect_n__5315_1432_ital($0, $1) {
|
|
2061
2211
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
2062
2212
|
}
|
|
2063
2213
|
|
|
@@ -2077,14 +2227,14 @@ function User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
|
2077
2227
|
const $c = prs => $d => $e => {
|
|
2078
2228
|
const $19 = myLogin => $1a => $1b => {
|
|
2079
2229
|
const $37 = reviews => {
|
|
2080
|
-
const $38 = Prelude_Types_map_Functor_Maybe(
|
|
2230
|
+
const $38 = Prelude_Types_map_Functor_Maybe(csegen_159(), Data_List_headx27(Data_List_sortBy($41 => $42 => Prelude_Basics_on(csegen_141(), csegen_159(), $41, $42), reviews)));
|
|
2081
2231
|
const $4b = PullRequest_tuple(prs);
|
|
2082
|
-
const $4e = Prelude_Interfaces_mapHom({a1: d => b => c => a => $52 => $53 => $54 => ({a1: $52($54.a1), a2: $53($54.a2)}), a2: b => c => a => $5d => $5e => ({a1: $5d($5e.a1), a2: $5e.a2}), a3: a => d => b => $65 => $66 => ({a1: $66.a1, a2: $65($66.a2)})}, $6d =>
|
|
2083
|
-
return
|
|
2232
|
+
const $4e = Prelude_Interfaces_mapHom({a1: d => b => c => a => $52 => $53 => $54 => ({a1: $52($54.a1), a2: $53($54.a2)}), a2: b => c => a => $5d => $5e => ({a1: $5d($5e.a1), a2: $5e.a2}), a3: a => d => b => $65 => $66 => ({a1: $66.a1, a2: $65($66.a2)})}, $6d => Prelude_Types_List_filter($70 => Prelude_EqOrd_x3dx3d_Eq_String($70.a3, myLogin), $6d), $4b);
|
|
2233
|
+
return User_Reflect_case__casex20blockx20inx20reflectOnSelf_2238($0, $1, prs, myLogin, reviews, $38, $4b, $4e.a1, $4e.a2, 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 => Prelude_Types_List_filter($a3 => Prelude_Interfaces_any(csegen_77(), $a8 => Prelude_EqOrd_x3dx3d_Eq_String($a8, myLogin), $a3.a5), $a0), $4b));
|
|
2084
2234
|
};
|
|
2085
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_reviewsForUser($0, $1, myLogin, Data_List_take(User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2b => $2c => Prelude_Basics_on(
|
|
2235
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_reviewsForUser($0, $1, myLogin, Data_List_take(User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2b => $2c => Prelude_Basics_on(csegen_141(), csegen_156(), $2b, $2c), PullRequest_combined(prs))))), $37, $1a, $1b);
|
|
2086
2236
|
};
|
|
2087
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(
|
|
2237
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_103(), csegen_139(), FFI_GitHub_getSelf($1)), $19, $d, $e);
|
|
2088
2238
|
};
|
|
2089
2239
|
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_listPartitionedPRs($0, $1, 4n, User_Reflect_prCount()), $c, $2, $3);
|
|
2090
2240
|
}
|
|
@@ -2094,7 +2244,7 @@ function User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
2094
2244
|
}
|
|
2095
2245
|
|
|
2096
2246
|
const User_Reflect_prCount = __lazy(function () {
|
|
2097
|
-
return
|
|
2247
|
+
return csegen_134();
|
|
2098
2248
|
});
|
|
2099
2249
|
|
|
2100
2250
|
const User_Reflect_leftTitle = __lazy(function () {
|
|
@@ -2102,18 +2252,18 @@ const User_Reflect_leftTitle = __lazy(function () {
|
|
|
2102
2252
|
});
|
|
2103
2253
|
|
|
2104
2254
|
const User_Reflect_intro = __lazy(function () {
|
|
2105
|
-
return Prelude_Interfaces_concat(
|
|
2255
|
+
return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Your current pull request summary (out of the past ', a2: {a1: Data_Fin_show_Show_x28Finx20x24nx29(User_Reflect_prCount()), a2: {a1: ' PRs):', a2: {h: 0}}}});
|
|
2106
2256
|
});
|
|
2107
2257
|
|
|
2108
2258
|
function User_Reflect_header($0) {
|
|
2109
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Prelude_Cast_cast_Cast_Nat_Int($0), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1:
|
|
2259
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Prelude_Cast_cast_Cast_Nat_Int($0), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: User_Reflect_n__5315_1432_ital($0, User_Reflect_leftTitle()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' '), a2: {a1: User_Reflect_n__5315_1432_ital($0, User_Reflect_rightTitle()), a2: {h: 0}}}}));
|
|
2110
2260
|
}
|
|
2111
2261
|
|
|
2112
2262
|
function User_Reflect_graph($0, $1, $2, $3, $4, $5) {
|
|
2113
2263
|
const $6 = ($2+$3);
|
|
2114
2264
|
const $9 = ($5+$4);
|
|
2115
|
-
const $c = Prelude_Types_foldr_Foldable_List(
|
|
2116
|
-
const $1b = Prelude_Types_foldr_Foldable_List(
|
|
2265
|
+
const $c = Prelude_Types_foldr_Foldable_List(csegen_164(), Prelude_Types_String_length(User_Reflect_leftTitle()), {a1: ($6+$1), a2: {a1: $9, a2: {h: 0}}});
|
|
2266
|
+
const $1b = Prelude_Types_foldr_Foldable_List(csegen_164(), Prelude_Types_String_length(User_Reflect_rightTitle()), {a1: $6, a2: {a1: $9, a2: {h: 0}}});
|
|
2117
2267
|
const $28 = (($c+$1b)+3n);
|
|
2118
2268
|
const $2d = ((Prelude_Cast_cast_Cast_Nat_Double($0)/2.0)-(Prelude_Cast_cast_Cast_Nat_Double($28)/2.0));
|
|
2119
2269
|
const $38 = (Prelude_Cast_cast_Cast_Double_Nat($2d)+Prelude_Types_prim__integerToNat(($c-Prelude_Types_String_length(User_Reflect_leftTitle()))));
|
|
@@ -2122,18 +2272,18 @@ function User_Reflect_graph($0, $1, $2, $3, $4, $5) {
|
|
|
2122
2272
|
}
|
|
2123
2273
|
|
|
2124
2274
|
function User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
2125
|
-
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_Interfaces_x3cx26x3e(
|
|
2275
|
+
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_Interfaces_x3cx26x3e(csegen_18(), $8, csegen_166()), 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_Interfaces_x3cx26x3e(csegen_18(), $6, 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}}}))), 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_Interfaces_x3cx26x3e(csegen_18(), $7, csegen_166()), 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_Interfaces_concat(csegen_62(), csegen_77(), {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}}}}}}}}}});
|
|
2126
2276
|
}
|
|
2127
2277
|
|
|
2128
2278
|
function User_Reflect_chart($0, $1, $2, $3, $4, $5, $6) {
|
|
2129
2279
|
return Text_PrettyPrint_Prettyprinter_Doc_indent(Prelude_Cast_cast_Cast_Nat_Int($6), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(User_replicatex27(2, $1, '\u{b7}'), User_replicatex27(1, $3, '\u{25e6}')), User_replicatex27(3, $2, '<')), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('|'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(User_replicatex27(3, $5, '>'), User_replicatex27(2, $4, '\u{b7}')))));
|
|
2130
2280
|
}
|
|
2131
2281
|
|
|
2132
|
-
const
|
|
2282
|
+
const Util_n__4424_1177_startOver = __lazy(function () {
|
|
2133
2283
|
return {a1: 0, a2: {h: 0}};
|
|
2134
2284
|
});
|
|
2135
2285
|
|
|
2136
|
-
function
|
|
2286
|
+
function Util_n__4424_1178_guardSuccess($0) {
|
|
2137
2287
|
switch($0.h) {
|
|
2138
2288
|
case undefined: {
|
|
2139
2289
|
switch($0.a1) {
|
|
@@ -2146,12 +2296,12 @@ function Util_n__3907_1174_guardSuccess($0) {
|
|
|
2146
2296
|
}
|
|
2147
2297
|
}
|
|
2148
2298
|
|
|
2149
|
-
function
|
|
2299
|
+
function Util_n__4424_1179_go($0, $1) {
|
|
2150
2300
|
switch($0.a1) {
|
|
2151
2301
|
case 0: {
|
|
2152
2302
|
switch(Prelude_Types_isAlpha($1)) {
|
|
2153
2303
|
case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
|
|
2154
|
-
case 0: return
|
|
2304
|
+
case 0: return Util_n__4424_1177_startOver();
|
|
2155
2305
|
}
|
|
2156
2306
|
}
|
|
2157
2307
|
case 1: {
|
|
@@ -2160,7 +2310,7 @@ function Util_n__3907_1175_go($0, $1) {
|
|
|
2160
2310
|
default: {
|
|
2161
2311
|
switch(Prelude_Types_isAlpha($1)) {
|
|
2162
2312
|
case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
|
|
2163
|
-
case 0: return
|
|
2313
|
+
case 0: return Util_n__4424_1177_startOver();
|
|
2164
2314
|
}
|
|
2165
2315
|
}
|
|
2166
2316
|
}
|
|
@@ -2168,7 +2318,7 @@ function Util_n__3907_1175_go($0, $1) {
|
|
|
2168
2318
|
case 2: {
|
|
2169
2319
|
switch(Prelude_Types_isDigit($1)) {
|
|
2170
2320
|
case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
|
|
2171
|
-
case 0: return
|
|
2321
|
+
case 0: return Util_n__4424_1177_startOver();
|
|
2172
2322
|
}
|
|
2173
2323
|
}
|
|
2174
2324
|
case 3: {
|
|
@@ -2181,7 +2331,7 @@ function Util_n__3907_1175_go($0, $1) {
|
|
|
2181
2331
|
}
|
|
2182
2332
|
}
|
|
2183
2333
|
|
|
2184
|
-
function
|
|
2334
|
+
function Util_n__4311_1068_getMoreLines($0, $1, $2) {
|
|
2185
2335
|
switch($2.h) {
|
|
2186
2336
|
case 0: return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1));
|
|
2187
2337
|
case undefined: {
|
|
@@ -2192,13 +2342,13 @@ function Util_n__3794_1064_getMoreLines($0, $1, $2) {
|
|
|
2192
2342
|
case '': {
|
|
2193
2343
|
switch(line) {
|
|
2194
2344
|
case '': return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1.a2));
|
|
2195
|
-
default: return
|
|
2345
|
+
default: return Util_n__4311_1068_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
2196
2346
|
}
|
|
2197
2347
|
}
|
|
2198
|
-
default: return
|
|
2348
|
+
default: return Util_n__4311_1068_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
2199
2349
|
}
|
|
2200
2350
|
}
|
|
2201
|
-
default: return
|
|
2351
|
+
default: return Util_n__4311_1068_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
2202
2352
|
}
|
|
2203
2353
|
};
|
|
2204
2354
|
return $0.a1.a2(undefined)(undefined)(Prelude_Interfaces_x3cx24x3e($0.a1.a1.a1, $1c => Data_String_trim($1c), Prelude_IO_getLine($0)))($22);
|
|
@@ -2223,32 +2373,32 @@ function Util_renderString($0, $1) {
|
|
|
2223
2373
|
}
|
|
2224
2374
|
|
|
2225
2375
|
function Util_parseJiraPrefix($0) {
|
|
2226
|
-
return Prelude_Types_map_Functor_Maybe($3 => Prelude_Types_fastPack(Prelude_Types_List_reverse($3)),
|
|
2376
|
+
return Prelude_Types_map_Functor_Maybe($3 => Prelude_Types_fastPack(Prelude_Types_List_reverse($3)), Util_n__4424_1178_guardSuccess(Prelude_Types_foldl_Foldable_List($d => $e => Util_n__4424_1179_go($d, $e), Util_n__4424_1177_startOver(), Prelude_Types_fastUnpack($0))));
|
|
2227
2377
|
}
|
|
2228
2378
|
|
|
2229
2379
|
function Util_getManyLines($0, $1) {
|
|
2230
|
-
return
|
|
2380
|
+
return Util_n__4311_1068_getMoreLines($0, {h: 0}, $1);
|
|
2231
2381
|
}
|
|
2232
2382
|
|
|
2233
|
-
function
|
|
2383
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5087_writeOutput($0, $1, $2, $3) {
|
|
2234
2384
|
return Control_Monad_ST_modifySTRef($1, $7 => ($7+$2), $3);
|
|
2235
2385
|
}
|
|
2236
2386
|
|
|
2237
|
-
function
|
|
2387
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5084_push($0, $1, $2, $3) {
|
|
2238
2388
|
return Control_Monad_ST_modifySTRef($1, $7 => ({a1: $2, a2: $7}), $3);
|
|
2239
2389
|
}
|
|
2240
2390
|
|
|
2241
|
-
function
|
|
2391
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5086_pop($0, $1, $2) {
|
|
2242
2392
|
const $9 = $a => {
|
|
2243
2393
|
switch($a.h) {
|
|
2244
|
-
case undefined: return Prelude_Interfaces_x3ex3e(
|
|
2394
|
+
case undefined: return Prelude_Interfaces_x3ex3e(csegen_190(), $10 => ($1.value=$a.a2), () => $16 => ({a1: $a.a1}));
|
|
2245
2395
|
case 0: return $18 => ({h: 0});
|
|
2246
2396
|
}
|
|
2247
2397
|
};
|
|
2248
2398
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($5 => ($1.value), $9, $2);
|
|
2249
2399
|
}
|
|
2250
2400
|
|
|
2251
|
-
function
|
|
2401
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5085_peek($0, $1, $2) {
|
|
2252
2402
|
const $9 = $a => $b => {
|
|
2253
2403
|
switch($a.h) {
|
|
2254
2404
|
case undefined: return {a1: $a.a1};
|
|
@@ -2258,24 +2408,24 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__3714_4049_peek($0, $1
|
|
|
2258
2408
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($5 => ($1.value), $9, $2);
|
|
2259
2409
|
}
|
|
2260
2410
|
|
|
2261
|
-
function
|
|
2411
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5088_go($0, $1, $2, $3) {
|
|
2262
2412
|
switch($3.h) {
|
|
2263
2413
|
case 0: return $5 => (undefined);
|
|
2264
|
-
case 1: return Prelude_Interfaces_x3ex3e(
|
|
2265
|
-
case 2: return Prelude_Interfaces_x3ex3e(
|
|
2266
|
-
case 3: return Prelude_Interfaces_x3ex3e(
|
|
2414
|
+
case 1: return Prelude_Interfaces_x3ex3e(csegen_190(), $a => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5087_writeOutput($0, $2, Data_String_singleton($3.a1), $a), () => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5088_go($0, $1, $2, $3.a2()));
|
|
2415
|
+
case 2: return Prelude_Interfaces_x3ex3e(csegen_190(), $1d => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5087_writeOutput($0, $2, $3.a2, $1d), () => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5088_go($0, $1, $2, $3.a3()));
|
|
2416
|
+
case 3: return Prelude_Interfaces_x3ex3e(csegen_190(), $2e => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5087_writeOutput($0, $2, (Data_String_singleton('\n')+Text_PrettyPrint_Prettyprinter_Doc_textSpaces($3.a1)), $2e), () => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5088_go($0, $1, $2, $3.a2));
|
|
2267
2417
|
case 4: {
|
|
2268
2418
|
return $40 => {
|
|
2269
2419
|
const $48 = $49 => {
|
|
2270
2420
|
switch($49.h) {
|
|
2271
2421
|
case undefined: {
|
|
2272
2422
|
const $4b = Prelude_Types_List_tailRecAppend($3.a1, $49.a1);
|
|
2273
|
-
return Prelude_Interfaces_x3ex3e(
|
|
2423
|
+
return Prelude_Interfaces_x3ex3e(csegen_190(), $53 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5084_push($0, $1, $4b, $53), () => Prelude_Interfaces_x3ex3e(csegen_190(), $5e => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5087_writeOutput($0, $2, Control_ANSI_SGR_escapeSGR($4b), $5e), () => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5088_go($0, $1, $2, $3.a2)));
|
|
2274
2424
|
}
|
|
2275
2425
|
case 0: return $6c => ($1.value={h: 0});
|
|
2276
2426
|
}
|
|
2277
2427
|
};
|
|
2278
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($43 =>
|
|
2428
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($43 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5085_peek($0, $1, $43), $48, $40);
|
|
2279
2429
|
};
|
|
2280
2430
|
}
|
|
2281
2431
|
case 5: {
|
|
@@ -2283,13 +2433,13 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__3714_4052_go($0, $1,
|
|
|
2283
2433
|
const $7a = _ => $7b => {
|
|
2284
2434
|
const $83 = $84 => {
|
|
2285
2435
|
switch($84.h) {
|
|
2286
|
-
case undefined: return Prelude_Interfaces_x3ex3e(
|
|
2436
|
+
case undefined: return Prelude_Interfaces_x3ex3e(csegen_190(), $8a => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5087_writeOutput($0, $2, Control_ANSI_SGR_escapeSGR({a1: {h: 0}, a2: $84.a1}), $8a), () => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5088_go($0, $1, $2, $3.a1));
|
|
2287
2437
|
case 0: return $9a => ($1.value={h: 0});
|
|
2288
2438
|
}
|
|
2289
2439
|
};
|
|
2290
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($7e =>
|
|
2440
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($7e => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5085_peek($0, $1, $7e), $83, $7b);
|
|
2291
2441
|
};
|
|
2292
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($75 =>
|
|
2442
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($75 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5086_pop($0, $1, $75), $7a, $72);
|
|
2293
2443
|
};
|
|
2294
2444
|
}
|
|
2295
2445
|
}
|
|
@@ -2300,7 +2450,7 @@ const Text_PrettyPrint_Prettyprinter_Render_Terminal_underline = __lazy(function
|
|
|
2300
2450
|
});
|
|
2301
2451
|
|
|
2302
2452
|
function Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString($0) {
|
|
2303
|
-
return Data_Maybe_fromMaybe(() => '<internal pretty printing error>', Control_Monad_ST_runST($6 => $7 => Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($a => Control_Monad_ST_newSTRef({a1: {h: 0}, a2: {h: 0}}, $a), styleStackRef => $11 => Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($14 => Control_Monad_ST_newSTRef('', $14), outputRef => Prelude_Interfaces_x3ex3e(
|
|
2453
|
+
return Data_Maybe_fromMaybe(() => '<internal pretty printing error>', Control_Monad_ST_runST($6 => $7 => Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($a => Control_Monad_ST_newSTRef({a1: {h: 0}, a2: {h: 0}}, $a), styleStackRef => $11 => Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($14 => Control_Monad_ST_newSTRef('', $14), outputRef => Prelude_Interfaces_x3ex3e(csegen_190(), Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5088_go($0, styleStackRef, outputRef, $0), () => $23 => {
|
|
2304
2454
|
const $2a = $2b => {
|
|
2305
2455
|
switch($2b.h) {
|
|
2306
2456
|
case 0: return $2d => ({h: 0});
|
|
@@ -2318,7 +2468,7 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString($0) {
|
|
|
2318
2468
|
}
|
|
2319
2469
|
|
|
2320
2470
|
function Text_PrettyPrint_Prettyprinter_Render_Terminal_renderIO($0) {
|
|
2321
|
-
return Prelude_IO_putStrLn(
|
|
2471
|
+
return Prelude_IO_putStrLn(csegen_59(), Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString($0));
|
|
2322
2472
|
}
|
|
2323
2473
|
|
|
2324
2474
|
function Text_PrettyPrint_Prettyprinter_Render_Terminal_putDoc($0) {
|
|
@@ -2333,7 +2483,11 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_color($0) {
|
|
|
2333
2483
|
return Prelude_Types_pure_Applicative_List({h: 1, a1: $0});
|
|
2334
2484
|
}
|
|
2335
2485
|
|
|
2336
|
-
function
|
|
2486
|
+
const Text_PrettyPrint_Prettyprinter_Render_Terminal_bold = __lazy(function () {
|
|
2487
|
+
return Prelude_Types_pure_Applicative_List({h: 3, a1: 0});
|
|
2488
|
+
});
|
|
2489
|
+
|
|
2490
|
+
function Text_PrettyPrint_Prettyprinter_Doc_case__unsafeTextWithoutNewLines_3043($0, $1) {
|
|
2337
2491
|
switch($0) {
|
|
2338
2492
|
case '': {
|
|
2339
2493
|
switch($1.h) {
|
|
@@ -2357,7 +2511,7 @@ function Text_PrettyPrint_Prettyprinter_Doc_case__unsafeTextWithoutNewLines_3039
|
|
|
2357
2511
|
}
|
|
2358
2512
|
}
|
|
2359
2513
|
|
|
2360
|
-
function
|
|
2514
|
+
function Text_PrettyPrint_Prettyprinter_Doc_case__changesUponFlattening_2310($0, $1, $2) {
|
|
2361
2515
|
switch($2.a1.h) {
|
|
2362
2516
|
case 2: return {h: 2};
|
|
2363
2517
|
default: {
|
|
@@ -2384,8 +2538,8 @@ function Text_PrettyPrint_Prettyprinter_Doc_case__changesUponFlattening_2306($0,
|
|
|
2384
2538
|
}
|
|
2385
2539
|
}
|
|
2386
2540
|
|
|
2387
|
-
function
|
|
2388
|
-
switch($2($3)($4)(
|
|
2541
|
+
function Text_PrettyPrint_Prettyprinter_Doc_n__8712_6698_selectNicer($0, $1, $2, $3, $4, $5, $6) {
|
|
2542
|
+
switch($2($3)($4)(Text_PrettyPrint_Prettyprinter_Doc_n__8712_6697_initialIndentation($0, $1, $2, $6()))($5)) {
|
|
2389
2543
|
case 1: return $5;
|
|
2390
2544
|
case 0: return $6();
|
|
2391
2545
|
}
|
|
@@ -2450,7 +2604,7 @@ function Text_PrettyPrint_Prettyprinter_Doc_vcat($0) {
|
|
|
2450
2604
|
}
|
|
2451
2605
|
|
|
2452
2606
|
function Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines($0) {
|
|
2453
|
-
return
|
|
2607
|
+
return Text_PrettyPrint_Prettyprinter_Doc_case__unsafeTextWithoutNewLines_3043($0, Data_String_strM($0));
|
|
2454
2608
|
}
|
|
2455
2609
|
|
|
2456
2610
|
function Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($0) {
|
|
@@ -2517,7 +2671,7 @@ const Text_PrettyPrint_Prettyprinter_Doc_line = __lazy(function () {
|
|
|
2517
2671
|
});
|
|
2518
2672
|
|
|
2519
2673
|
function Text_PrettyPrint_Prettyprinter_Doc_layoutWadlerLeijen($0, $1, $2) {
|
|
2520
|
-
return
|
|
2674
|
+
return Text_PrettyPrint_Prettyprinter_Doc_n__8712_6699_best($2, $1, $0, 0, 0, {h: 1, a1: 0, a2: $2, a3: {h: 0}});
|
|
2521
2675
|
}
|
|
2522
2676
|
|
|
2523
2677
|
function Text_PrettyPrint_Prettyprinter_Doc_layoutUnbounded($0) {
|
|
@@ -2540,7 +2694,7 @@ function Text_PrettyPrint_Prettyprinter_Doc_hsep($0) {
|
|
|
2540
2694
|
}
|
|
2541
2695
|
|
|
2542
2696
|
function Text_PrettyPrint_Prettyprinter_Doc_hcat($0) {
|
|
2543
|
-
return Text_PrettyPrint_Prettyprinter_Doc_concatWith(
|
|
2697
|
+
return Text_PrettyPrint_Prettyprinter_Doc_concatWith(csegen_203(), $0);
|
|
2544
2698
|
}
|
|
2545
2699
|
|
|
2546
2700
|
function Text_PrettyPrint_Prettyprinter_Doc_hang($0, $1) {
|
|
@@ -2585,10 +2739,10 @@ function Text_PrettyPrint_Prettyprinter_Doc_encloseSep($0, $1, $2, $3) {
|
|
|
2585
2739
|
case undefined: {
|
|
2586
2740
|
switch($3.a2.h) {
|
|
2587
2741
|
case 0: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29($0, $3.a1), $1);
|
|
2588
|
-
default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(
|
|
2742
|
+
default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(csegen_203(), {a1: $0, a2: Data_List_replicate(Prelude_Types_prim__integerToNat((Prelude_Types_List_lengthTR($3)-1n)), $2)}, $3)), $1);
|
|
2589
2743
|
}
|
|
2590
2744
|
}
|
|
2591
|
-
default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(
|
|
2745
|
+
default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(csegen_203(), {a1: $0, a2: Data_List_replicate(Prelude_Types_prim__integerToNat((Prelude_Types_List_lengthTR($3)-1n)), $2)}, $3)), $1);
|
|
2592
2746
|
}
|
|
2593
2747
|
}
|
|
2594
2748
|
|
|
@@ -2626,7 +2780,7 @@ function Text_PrettyPrint_Prettyprinter_Doc_changesUponFlattening($0) {
|
|
|
2626
2780
|
case 2: return {h: 1};
|
|
2627
2781
|
case 3: return {h: 2};
|
|
2628
2782
|
case 4: return {h: 0, a1: Text_PrettyPrint_Prettyprinter_Doc_flatten($0.a2())};
|
|
2629
|
-
case 5: return
|
|
2783
|
+
case 5: return Text_PrettyPrint_Prettyprinter_Doc_case__changesUponFlattening_2310($0.a2, $0.a1, {a1: Text_PrettyPrint_Prettyprinter_Doc_changesUponFlattening($0.a1), a2: Text_PrettyPrint_Prettyprinter_Doc_changesUponFlattening($0.a2)});
|
|
2630
2784
|
case 6: return Text_PrettyPrint_Prettyprinter_Doc_map_Functor_FlattenResult($12 => ({h: 6, a1: $0.a1, a2: $12}), Text_PrettyPrint_Prettyprinter_Doc_changesUponFlattening($0.a2));
|
|
2631
2785
|
case 7: return {h: 0, a1: $0.a1()};
|
|
2632
2786
|
case 8: return {h: 0, a1: {h: 8, a1: $1c => Text_PrettyPrint_Prettyprinter_Doc_flatten($0.a1($1c))}};
|
|
@@ -2678,7 +2832,7 @@ function Data_String_Extra_join($0, $1, $2) {
|
|
|
2678
2832
|
}
|
|
2679
2833
|
|
|
2680
2834
|
function Data_String_Extra_index($0, $1) {
|
|
2681
|
-
return
|
|
2835
|
+
return Data_String_Extra_with__index_1618($1, Prelude_Types_fastUnpack($1), $0);
|
|
2682
2836
|
}
|
|
2683
2837
|
|
|
2684
2838
|
function Data_String_Extra_dropLast($0, $1) {
|
|
@@ -2689,7 +2843,7 @@ function Data_String_Extra_drop($0, $1) {
|
|
|
2689
2843
|
return Prelude_Types_substr($0, Prelude_Types_String_length($1), $1);
|
|
2690
2844
|
}
|
|
2691
2845
|
|
|
2692
|
-
function
|
|
2846
|
+
function Data_String_with__parsePositivex2cparsePosTrimmed_6830($0, $1, $2, $3, $4) {
|
|
2693
2847
|
switch($3) {
|
|
2694
2848
|
case '': {
|
|
2695
2849
|
switch($4.h) {
|
|
@@ -2743,7 +2897,7 @@ function Data_String_with__parsePositivex2cparsePosTrimmed_3968($0, $1, $2, $3,
|
|
|
2743
2897
|
}
|
|
2744
2898
|
}
|
|
2745
2899
|
|
|
2746
|
-
function
|
|
2900
|
+
function Data_String_with__asList_6479($0, $1) {
|
|
2747
2901
|
switch($0) {
|
|
2748
2902
|
case '': {
|
|
2749
2903
|
switch($1.h) {
|
|
@@ -2755,15 +2909,15 @@ function Data_String_with__asList_3617($0, $1) {
|
|
|
2755
2909
|
}
|
|
2756
2910
|
}
|
|
2757
2911
|
|
|
2758
|
-
function
|
|
2912
|
+
function Data_String_n__3615_6211_unlinesx27($0) {
|
|
2759
2913
|
switch($0.h) {
|
|
2760
2914
|
case 0: return {h: 0};
|
|
2761
|
-
case undefined: return {a1: $0.a1, a2: {a1: '\n', a2:
|
|
2915
|
+
case undefined: return {a1: $0.a1, a2: {a1: '\n', a2: Data_String_n__3615_6211_unlinesx27($0.a2)}};
|
|
2762
2916
|
}
|
|
2763
2917
|
}
|
|
2764
2918
|
|
|
2765
|
-
function
|
|
2766
|
-
return
|
|
2919
|
+
function Data_String_n__4219_6824_parsePosTrimmed($0, $1, $2) {
|
|
2920
|
+
return Data_String_with__parsePositivex2cparsePosTrimmed_6830(undefined, $0, $2, $2, Data_String_strM($2));
|
|
2767
2921
|
}
|
|
2768
2922
|
|
|
2769
2923
|
function Data_String_trim($0) {
|
|
@@ -2799,15 +2953,15 @@ function Data_String_replicate($0, $1) {
|
|
|
2799
2953
|
}
|
|
2800
2954
|
|
|
2801
2955
|
function Data_String_parsePositive($0, $1) {
|
|
2802
|
-
return
|
|
2956
|
+
return Data_String_n__4219_6824_parsePosTrimmed($0, $1, Data_String_trim($1));
|
|
2803
2957
|
}
|
|
2804
2958
|
|
|
2805
2959
|
function Data_String_ltrim($0) {
|
|
2806
|
-
return
|
|
2960
|
+
return Data_String_with__ltrim_6503($0, Data_String_asList($0));
|
|
2807
2961
|
}
|
|
2808
2962
|
|
|
2809
2963
|
function Data_String_linesx27($0) {
|
|
2810
|
-
return
|
|
2964
|
+
return Data_String_n__3748_6341_linesHelp($0, {h: 0}, $0);
|
|
2811
2965
|
}
|
|
2812
2966
|
|
|
2813
2967
|
function Data_String_lines($0) {
|
|
@@ -2815,11 +2969,11 @@ function Data_String_lines($0) {
|
|
|
2815
2969
|
}
|
|
2816
2970
|
|
|
2817
2971
|
function Data_String_isSuffixOf($0, $1) {
|
|
2818
|
-
return Data_List_isSuffixOf(
|
|
2972
|
+
return Data_List_isSuffixOf(csegen_207(), Prelude_Types_fastUnpack($0), Prelude_Types_fastUnpack($1));
|
|
2819
2973
|
}
|
|
2820
2974
|
|
|
2821
2975
|
function Data_String_isPrefixOf($0, $1) {
|
|
2822
|
-
return Data_List_isPrefixOf(
|
|
2976
|
+
return Data_List_isPrefixOf(csegen_207(), Prelude_Types_fastUnpack($0), Prelude_Types_fastUnpack($1));
|
|
2823
2977
|
}
|
|
2824
2978
|
|
|
2825
2979
|
function Data_String_indent($0, $1) {
|
|
@@ -2827,7 +2981,7 @@ function Data_String_indent($0, $1) {
|
|
|
2827
2981
|
}
|
|
2828
2982
|
|
|
2829
2983
|
function Data_String_fastUnlines($0) {
|
|
2830
|
-
return Prelude_Types_fastConcat(
|
|
2984
|
+
return Prelude_Types_fastConcat(Data_String_n__3615_6211_unlinesx27($0));
|
|
2831
2985
|
}
|
|
2832
2986
|
|
|
2833
2987
|
function Data_String_break$($0, $1) {
|
|
@@ -2841,7 +2995,7 @@ function Data_String_break$($0, $1) {
|
|
|
2841
2995
|
}
|
|
2842
2996
|
|
|
2843
2997
|
function Data_String_asList($0) {
|
|
2844
|
-
return
|
|
2998
|
+
return Data_String_with__asList_6479($0, Data_String_strM($0));
|
|
2845
2999
|
}
|
|
2846
3000
|
|
|
2847
3001
|
function Data_Fin_show_Show_x28Finx20x24nx29($0) {
|
|
@@ -2917,14 +3071,14 @@ function Builtin_believe_me($0) {
|
|
|
2917
3071
|
return $0;
|
|
2918
3072
|
}
|
|
2919
3073
|
|
|
2920
|
-
function
|
|
3074
|
+
function Prelude_Types_n__9361_8543_hexChars($0) {
|
|
2921
3075
|
return {a1: '0', a2: {a1: '1', a2: {a1: '2', a2: {a1: '3', a2: {a1: '4', a2: {a1: '5', a2: {a1: '6', a2: {a1: '7', a2: {a1: '8', a2: {a1: '9', a2: {a1: 'A', a2: {a1: 'B', a2: {a1: 'C', a2: {a1: 'D', a2: {a1: 'E', a2: {a1: 'F', a2: {h: 0}}}}}}}}}}}}}}}}};
|
|
2922
3076
|
}
|
|
2923
3077
|
|
|
2924
3078
|
function Prelude_Types_traverse_Traversable_List($0, $1, $2) {
|
|
2925
3079
|
switch($2.h) {
|
|
2926
3080
|
case 0: return $0.a2(undefined)({h: 0});
|
|
2927
|
-
case undefined: return $0.a3(undefined)(undefined)($0.a3(undefined)(undefined)($0.a2(undefined)(
|
|
3081
|
+
case undefined: return $0.a3(undefined)(undefined)($0.a3(undefined)(undefined)($0.a2(undefined)(csegen_223()))($1($2.a1)))(Prelude_Types_traverse_Traversable_List($0, $1, $2.a2));
|
|
2928
3082
|
}
|
|
2929
3083
|
}
|
|
2930
3084
|
|
|
@@ -2936,11 +3090,11 @@ function Prelude_Types_traverse_Traversable_x28Eitherx20x24ex29($0, $1, $2) {
|
|
|
2936
3090
|
}
|
|
2937
3091
|
|
|
2938
3092
|
function Prelude_Types_toList_Foldable_Maybe($0) {
|
|
2939
|
-
return Prelude_Types_foldr_Foldable_Maybe(
|
|
3093
|
+
return Prelude_Types_foldr_Foldable_Maybe(csegen_223(), {h: 0}, $0);
|
|
2940
3094
|
}
|
|
2941
3095
|
|
|
2942
3096
|
function Prelude_Types_toList_Foldable_x28Eitherx20x24ex29($0) {
|
|
2943
|
-
return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29(
|
|
3097
|
+
return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29(csegen_223(), {h: 0}, $0);
|
|
2944
3098
|
}
|
|
2945
3099
|
|
|
2946
3100
|
function Prelude_Types_rangeFromTo_Range_x24a($0, $1, $2) {
|
|
@@ -3059,7 +3213,7 @@ function Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29($0, $1, $2) {
|
|
|
3059
3213
|
}
|
|
3060
3214
|
|
|
3061
3215
|
function Prelude_Types_foldl_Foldable_x28Eitherx20x24ex29($0, $1, $2) {
|
|
3062
|
-
return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29($6 => $7 => Prelude_Basics_flip(
|
|
3216
|
+
return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29($6 => $7 => Prelude_Basics_flip(csegen_224(), $c => Prelude_Basics_flip($0, $6, $c), $7), $13 => $13, $2)($1);
|
|
3063
3217
|
}
|
|
3064
3218
|
|
|
3065
3219
|
function Prelude_Types_foldlM_Foldable_List($0, $1, $2, $3) {
|
|
@@ -3210,7 +3364,7 @@ function Prelude_Types_maybe($0, $1, $2) {
|
|
|
3210
3364
|
}
|
|
3211
3365
|
|
|
3212
3366
|
function Prelude_Types_listBind($0, $1) {
|
|
3213
|
-
return
|
|
3367
|
+
return Prelude_Types_listBindOnto($1, {h: 0}, $0);
|
|
3214
3368
|
}
|
|
3215
3369
|
|
|
3216
3370
|
function Prelude_Types_List_lengthTR($0) {
|
|
@@ -3268,7 +3422,7 @@ function Prelude_Types_isLower($0) {
|
|
|
3268
3422
|
}
|
|
3269
3423
|
|
|
3270
3424
|
function Prelude_Types_isHexDigit($0) {
|
|
3271
|
-
return Prelude_Types_elem(
|
|
3425
|
+
return Prelude_Types_elem(csegen_77(), csegen_207(), Prelude_Types_toUpper($0), Prelude_Types_n__9361_8543_hexChars($0));
|
|
3272
3426
|
}
|
|
3273
3427
|
|
|
3274
3428
|
function Prelude_Types_isDigit($0) {
|
|
@@ -3329,15 +3483,15 @@ function Prelude_Types_countFrom($0, $1) {
|
|
|
3329
3483
|
|
|
3330
3484
|
function Prelude_Num_mod_Integral_Int($0, $1) {
|
|
3331
3485
|
switch(Prelude_EqOrd_x3dx3d_Eq_Int($1, Number(_truncBigInt32(0n)))) {
|
|
3332
|
-
case 0: return ($0
|
|
3333
|
-
default: return Builtin_idris_crash(undefined)('Unhandled input for Prelude.Num.case block in mod at Prelude.Num:
|
|
3486
|
+
case 0: return _mod($0, $1);
|
|
3487
|
+
default: return Builtin_idris_crash(undefined)('Unhandled input for Prelude.Num.case block in mod at Prelude.Num:131:3--133:40');
|
|
3334
3488
|
}
|
|
3335
3489
|
}
|
|
3336
3490
|
|
|
3337
3491
|
function Prelude_Num_div_Integral_Int($0, $1) {
|
|
3338
3492
|
switch(Prelude_EqOrd_x3dx3d_Eq_Int($1, Number(_truncBigInt32(0n)))) {
|
|
3339
3493
|
case 0: return _div32s($0, $1);
|
|
3340
|
-
default: return Builtin_idris_crash(undefined)('Unhandled input for Prelude.Num.case block in div at Prelude.Num:
|
|
3494
|
+
default: return Builtin_idris_crash(undefined)('Unhandled input for Prelude.Num.case block in div at Prelude.Num:128:3--130:40');
|
|
3341
3495
|
}
|
|
3342
3496
|
}
|
|
3343
3497
|
|
|
@@ -3740,7 +3894,11 @@ function Prelude_Interfaces_x2ax3e($0, $1, $2) {
|
|
|
3740
3894
|
return $0.a3(undefined)(undefined)($0.a1(undefined)(undefined)($13 => $14 => $14)($1))($2);
|
|
3741
3895
|
}
|
|
3742
3896
|
|
|
3743
|
-
function
|
|
3897
|
+
function Prelude_Interfaces_x24x3e($0, $1, $2) {
|
|
3898
|
+
return $0(undefined)(undefined)($a => $2)($1);
|
|
3899
|
+
}
|
|
3900
|
+
|
|
3901
|
+
function Prelude_Show_n__2390_10835_asciiTab($0) {
|
|
3744
3902
|
return {a1: 'NUL', a2: {a1: 'SOH', a2: {a1: 'STX', a2: {a1: 'ETX', a2: {a1: 'EOT', a2: {a1: 'ENQ', a2: {a1: 'ACK', a2: {a1: 'BEL', a2: {a1: 'BS', a2: {a1: 'HT', a2: {a1: 'LF', a2: {a1: 'VT', a2: {a1: 'FF', a2: {a1: 'CR', a2: {a1: 'SO', a2: {a1: 'SI', a2: {a1: 'DLE', a2: {a1: 'DC1', a2: {a1: 'DC2', a2: {a1: 'DC3', a2: {a1: 'DC4', a2: {a1: 'NAK', a2: {a1: 'SYN', a2: {a1: 'ETB', a2: {a1: 'CAN', a2: {a1: 'EM', a2: {a1: 'SUB', a2: {a1: 'ESC', a2: {a1: 'FS', a2: {a1: 'GS', a2: {a1: 'RS', a2: {a1: 'US', a2: {h: 0}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}};
|
|
3745
3903
|
}
|
|
3746
3904
|
|
|
@@ -3776,7 +3934,7 @@ function Prelude_Show_show_Show_Bits32($0) {
|
|
|
3776
3934
|
}
|
|
3777
3935
|
|
|
3778
3936
|
function Prelude_Show_show_Show_x28Listx20x24ax29($0, $1) {
|
|
3779
|
-
return ('['+(
|
|
3937
|
+
return ('['+(Prelude_Show_n__3172_11556_showx27($0, $1, '', $1)+']'));
|
|
3780
3938
|
}
|
|
3781
3939
|
|
|
3782
3940
|
function Prelude_Show_showPrec_Show_String($0, $1) {
|
|
@@ -3848,7 +4006,7 @@ function Prelude_Show_showLitChar($0) {
|
|
|
3848
4006
|
case '\u{5c}': return $23 => ('\u{5c}\u{5c}'+$23);
|
|
3849
4007
|
default: {
|
|
3850
4008
|
return $26 => {
|
|
3851
|
-
const $27 = Prelude_Types_getAt(Prelude_Types_prim__integerToNat(BigInt($0.codePointAt(0))),
|
|
4009
|
+
const $27 = Prelude_Types_getAt(Prelude_Types_prim__integerToNat(BigInt($0.codePointAt(0))), Prelude_Show_n__2390_10835_asciiTab($0));
|
|
3852
4010
|
switch($27.h) {
|
|
3853
4011
|
case undefined: return ('\u{5c}'+($27.a1+$26));
|
|
3854
4012
|
case 0: {
|
|
@@ -4189,7 +4347,7 @@ function Data_List1_x2bx2b($0, $1) {
|
|
|
4189
4347
|
return Data_List1_appendl($0, Data_List1_forget($1));
|
|
4190
4348
|
}
|
|
4191
4349
|
|
|
4192
|
-
function
|
|
4350
|
+
function Data_List_with__inBounds_3222($0, $1, $2, $3, $4) {
|
|
4193
4351
|
switch($3.h) {
|
|
4194
4352
|
case 0: return {h: 0, a1: ($3.a1+1n)};
|
|
4195
4353
|
case 1: {
|
|
@@ -4207,15 +4365,15 @@ function Data_List_with__inBounds_1883($0, $1, $2, $3, $4) {
|
|
|
4207
4365
|
}
|
|
4208
4366
|
}
|
|
4209
4367
|
|
|
4210
|
-
function
|
|
4211
|
-
return
|
|
4368
|
+
function Data_List_n__7156_6664_split($0, $1, $2) {
|
|
4369
|
+
return Data_List_n__7156_6663_splitRec($0, $1, $2, $2, $9 => $9);
|
|
4212
4370
|
}
|
|
4213
4371
|
|
|
4214
|
-
function
|
|
4372
|
+
function Data_List_n__7655_7156_go($0, $1, $2, $3, $4) {
|
|
4215
4373
|
switch($4.h) {
|
|
4216
4374
|
case 0: return {a1: Data_List1_singleton($3), a2: {h: 0}};
|
|
4217
4375
|
case undefined: {
|
|
4218
|
-
const $a =
|
|
4376
|
+
const $a = Data_List_n__7655_7156_go($0, $1, $2, $4.a1, $4.a2);
|
|
4219
4377
|
switch($2($3)($4.a1)) {
|
|
4220
4378
|
case 1: return {a1: Data_List1_cons($3, $a.a1), a2: $a.a2};
|
|
4221
4379
|
case 0: return {a1: Data_List1_singleton($3), a2: {a1: $a.a1, a2: $a.a2}};
|
|
@@ -4295,13 +4453,13 @@ function Data_List_sortBy($0, $1) {
|
|
|
4295
4453
|
switch($1.a2.h) {
|
|
4296
4454
|
case 0: return {a1: $1.a1, a2: {h: 0}};
|
|
4297
4455
|
default: {
|
|
4298
|
-
const $6 =
|
|
4456
|
+
const $6 = Data_List_n__7156_6664_split($1, $0, $1);
|
|
4299
4457
|
return Data_List_mergeBy($0, Data_List_sortBy($0, $6.a1), Data_List_sortBy($0, $6.a2));
|
|
4300
4458
|
}
|
|
4301
4459
|
}
|
|
4302
4460
|
}
|
|
4303
4461
|
default: {
|
|
4304
|
-
const $15 =
|
|
4462
|
+
const $15 = Data_List_n__7156_6664_split($1, $0, $1);
|
|
4305
4463
|
return Data_List_mergeBy($0, Data_List_sortBy($0, $15.a1), Data_List_sortBy($0, $15.a2));
|
|
4306
4464
|
}
|
|
4307
4465
|
}
|
|
@@ -4335,7 +4493,7 @@ function Data_List_partition($0, $1) {
|
|
|
4335
4493
|
}
|
|
4336
4494
|
|
|
4337
4495
|
function Data_List_nubBy($0, $1) {
|
|
4338
|
-
return
|
|
4496
|
+
return Data_List_n__4343_3930_nubByx27({h: 0}, $0, $1);
|
|
4339
4497
|
}
|
|
4340
4498
|
|
|
4341
4499
|
function Data_List_nub($0, $1) {
|
|
@@ -4404,7 +4562,7 @@ function Data_List_inBounds($0, $1) {
|
|
|
4404
4562
|
case 0n: return {h: 0, a1: 0n};
|
|
4405
4563
|
default: {
|
|
4406
4564
|
const $a = ($0-1n);
|
|
4407
|
-
return
|
|
4565
|
+
return Data_List_with__inBounds_3222(undefined, $a, $1.a2, Data_List_inBounds($a, $1.a2), $1.a1);
|
|
4408
4566
|
}
|
|
4409
4567
|
}
|
|
4410
4568
|
}
|
|
@@ -4430,7 +4588,7 @@ function Data_List_groupBy($0, $1) {
|
|
|
4430
4588
|
switch($1.h) {
|
|
4431
4589
|
case 0: return {h: 0};
|
|
4432
4590
|
case undefined: {
|
|
4433
|
-
const $3 =
|
|
4591
|
+
const $3 = Data_List_n__7655_7156_go($1.a1, $1.a2, $0, $1.a1, $1.a2);
|
|
4434
4592
|
return {a1: $3.a1, a2: $3.a2};
|
|
4435
4593
|
}
|
|
4436
4594
|
}
|
|
@@ -4457,7 +4615,7 @@ function Data_List_delete($0, $1, $2) {
|
|
|
4457
4615
|
}
|
|
4458
4616
|
|
|
4459
4617
|
function Data_List_catMaybes($0) {
|
|
4460
|
-
return
|
|
4618
|
+
return Prelude_Types_List_mapMaybe($3 => $3, $0);
|
|
4461
4619
|
}
|
|
4462
4620
|
|
|
4463
4621
|
function Data_List_break$($0, $1) {
|
|
@@ -4475,7 +4633,7 @@ function Data_List_x5cx5c($0, $1, $2) {
|
|
|
4475
4633
|
}
|
|
4476
4634
|
|
|
4477
4635
|
function Control_Monad_ST_map_Functor_x28STx20x24sx29($0, $1) {
|
|
4478
|
-
return Prelude_Interfaces_x3cx24x3e(
|
|
4636
|
+
return Prelude_Interfaces_x3cx24x3e(csegen_85(), $0, $1);
|
|
4479
4637
|
}
|
|
4480
4638
|
|
|
4481
4639
|
function Control_Monad_ST_join_Monad_x28STx20x24sx29($0, $1) {
|
|
@@ -4498,7 +4656,7 @@ function Control_Monad_ST_runST($0) {
|
|
|
4498
4656
|
}
|
|
4499
4657
|
|
|
4500
4658
|
function Control_Monad_ST_newSTRef($0, $1) {
|
|
4501
|
-
const $2 = Data_IORef_newIORef(
|
|
4659
|
+
const $2 = Data_IORef_newIORef(csegen_59(), $0)($1);
|
|
4502
4660
|
return $2;
|
|
4503
4661
|
}
|
|
4504
4662
|
|
|
@@ -4510,7 +4668,7 @@ function Data_IORef_newIORef($0, $1) {
|
|
|
4510
4668
|
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($10 => ({value:$1})))(m => $0.a1.a1.a2(undefined)(m));
|
|
4511
4669
|
}
|
|
4512
4670
|
|
|
4513
|
-
function
|
|
4671
|
+
function Control_ANSI_SGR_n__3202_2726_toCode($0, $1) {
|
|
4514
4672
|
switch($1.h) {
|
|
4515
4673
|
case 0: return '0';
|
|
4516
4674
|
case 1: return ('38;5;'+Control_ANSI_SGR_cast_Cast_Color_String($1.a1));
|
|
@@ -4564,7 +4722,7 @@ function Control_ANSI_SGR_cast_Cast_Blink_String($0) {
|
|
|
4564
4722
|
}
|
|
4565
4723
|
|
|
4566
4724
|
function Control_ANSI_SGR_escapeSGR($0) {
|
|
4567
|
-
return ('\u{1b}['+(Prelude_Interfaces_concat(
|
|
4725
|
+
return ('\u{1b}['+(Prelude_Interfaces_concat(csegen_62(), csegen_77(), Data_List_intersperse(';', Prelude_Interfaces_x3cx24x3e(csegen_119(), $11 => Control_ANSI_SGR_n__3202_2726_toCode($0, $11), $0)))+'m'));
|
|
4568
4726
|
}
|
|
4569
4727
|
|
|
4570
4728
|
const Text_PrettyPrint_Prettyprinter_Symbols_rparen = __lazy(function () {
|
|
@@ -4593,7 +4751,7 @@ const Data_Fuel_forever = __lazy(function () {
|
|
|
4593
4751
|
return {a1: () => Data_Fuel_forever()};
|
|
4594
4752
|
});
|
|
4595
4753
|
|
|
4596
|
-
function
|
|
4754
|
+
function Data_Config_n__5186_7922_parseConfigJson($0, $1) {
|
|
4597
4755
|
switch($1.h) {
|
|
4598
4756
|
case 5: {
|
|
4599
4757
|
const $18 = $19 => {
|
|
@@ -4614,7 +4772,7 @@ function Data_Config_n__4694_5004_parseConfigJson($0, $1) {
|
|
|
4614
4772
|
}
|
|
4615
4773
|
|
|
4616
4774
|
function Data_Config_show_Show_Config($0) {
|
|
4617
|
-
return Data_String_fastUnlines({a1: Prelude_Interfaces_concat(
|
|
4775
|
+
return Data_String_fastUnlines({a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' updatedAt: ', a2: {a1: Prelude_Show_show_Show_Bits32($0.a1), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' org: ', a2: {a1: Prelude_Show_show_Show_String($0.a2), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' repo: ', a2: {a1: Prelude_Show_show_Show_String($0.a3), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' mainBranch: ', a2: {a1: Prelude_Show_show_Show_String($0.a4), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' assignTeams: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a5), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'commentOnAssign: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a6), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' teamSlugs: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $0.a7), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' orgMembers: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $0.a8), a2: {h: 0}}}), a2: {h: 0}}}}}}}}});
|
|
4618
4776
|
}
|
|
4619
4777
|
|
|
4620
4778
|
function Data_Config_showPrec_Show_Config($0, $1) {
|
|
@@ -4656,33 +4814,33 @@ function Data_Config_parseConfig($0, $1) {
|
|
|
4656
4814
|
}
|
|
4657
4815
|
};
|
|
4658
4816
|
const $4 = {a1: $5, a2: a => $d => ({h: 1, a1: $d}), a3: $f};
|
|
4659
|
-
const $3 = {a1: $4, a2:
|
|
4660
|
-
return Prelude_Interfaces_x3ex3dx3e($3,
|
|
4817
|
+
const $3 = {a1: $4, a2: csegen_275(), a3: csegen_276()};
|
|
4818
|
+
return Prelude_Interfaces_x3ex3dx3e($3, csegen_277(), $20 => Data_Config_n__5186_7922_parseConfigJson($0, $20), $1);
|
|
4661
4819
|
}
|
|
4662
4820
|
|
|
4663
4821
|
function Data_Config_json($0) {
|
|
4664
|
-
return {h: 5, a1: {a1: {a1: 'mainBranch', a2: {h: 3, a1: $0.a4}}, a2: {a1: {a1: 'assignTeams', a2: {h: 1, a1: $0.a5}}, a2: {a1: {a1: 'commentOnAssign', a2: {h: 1, a1: $0.a6}}, a2: {a1: {a1: 'org', a2: {h: 3, a1: $0.a2}}, a2: {a1: {a1: 'orgMembers', a2: {h: 4, a1: Prelude_Interfaces_x3cx24x3e(
|
|
4822
|
+
return {h: 5, a1: {a1: {a1: 'mainBranch', a2: {h: 3, a1: $0.a4}}, a2: {a1: {a1: 'assignTeams', a2: {h: 1, a1: $0.a5}}, a2: {a1: {a1: 'commentOnAssign', a2: {h: 1, a1: $0.a6}}, a2: {a1: {a1: 'org', a2: {h: 3, a1: $0.a2}}, a2: {a1: {a1: 'orgMembers', a2: {h: 4, a1: Prelude_Interfaces_x3cx24x3e(csegen_119(), $1f => ({h: 3, a1: $1f}), Data_List_sort(csegen_111(), $0.a8))}}, a2: {a1: {a1: 'repo', a2: {h: 3, a1: $0.a3}}, a2: {a1: {a1: 'teamSlugs', a2: {h: 4, a1: Prelude_Interfaces_x3cx24x3e(csegen_119(), $34 => ({h: 3, a1: $34}), Data_List_sort(csegen_111(), $0.a7))}}, a2: {a1: {a1: 'updatedAt', a2: {h: 2, a1: Prelude_Cast_cast_Cast_Bits32_Double($0.a1)}}, a2: {h: 0}}}}}}}}}};
|
|
4665
4823
|
}
|
|
4666
4824
|
|
|
4667
4825
|
const Data_Config_filename = __lazy(function () {
|
|
4668
4826
|
return 'harmony.json';
|
|
4669
4827
|
});
|
|
4670
4828
|
|
|
4671
|
-
function
|
|
4672
|
-
return Data_Either_maybeToEither(() => Prelude_Interfaces_concat(
|
|
4829
|
+
function Language_JSON_Accessors_n__3991_6998_lookupx27($0, $1, $2, $3, $4) {
|
|
4830
|
+
return Data_Either_maybeToEither(() => Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Missing required key: ', a2: {a1: $3, a2: {a1: '.', a2: {h: 0}}}}), Data_List_lookup(csegen_94(), $3, $4));
|
|
4673
4831
|
}
|
|
4674
4832
|
|
|
4675
4833
|
function Language_JSON_Accessors_string($0) {
|
|
4676
4834
|
switch($0.h) {
|
|
4677
4835
|
case 3: return {h: 1, a1: $0.a1};
|
|
4678
|
-
default: return {h: 0, a1: Prelude_Interfaces_concat(
|
|
4836
|
+
default: return {h: 0, a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Expected a string but found ', a2: {a1: Language_JSON_Data_show_Show_JSON($0), a2: {a1: '.', a2: {h: 0}}}})};
|
|
4679
4837
|
}
|
|
4680
4838
|
}
|
|
4681
4839
|
|
|
4682
4840
|
function Language_JSON_Accessors_object($0) {
|
|
4683
4841
|
switch($0.h) {
|
|
4684
4842
|
case 5: return {h: 1, a1: $0.a1};
|
|
4685
|
-
default: return {h: 0, a1: Prelude_Interfaces_concat(
|
|
4843
|
+
default: return {h: 0, a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Expected an object but found ', a2: {a1: Language_JSON_Data_show_Show_JSON($0), a2: {a1: '.', a2: {h: 0}}}})};
|
|
4686
4844
|
}
|
|
4687
4845
|
}
|
|
4688
4846
|
|
|
@@ -4690,7 +4848,7 @@ function Language_JSON_Accessors_lookupAll($0, $1) {
|
|
|
4690
4848
|
switch($0.h) {
|
|
4691
4849
|
case 0: return {h: 1, a1: {h: 0}};
|
|
4692
4850
|
case undefined: {
|
|
4693
|
-
const $4 =
|
|
4851
|
+
const $4 = Language_JSON_Accessors_n__3991_6998_lookupx27($0.a1, $0.a2, $1, $0.a1, $1);
|
|
4694
4852
|
switch($4.h) {
|
|
4695
4853
|
case 1: {
|
|
4696
4854
|
const $b = Language_JSON_Accessors_lookupAll($0.a2, $1);
|
|
@@ -4708,14 +4866,14 @@ function Language_JSON_Accessors_lookupAll($0, $1) {
|
|
|
4708
4866
|
function Language_JSON_Accessors_integer($0) {
|
|
4709
4867
|
switch($0.h) {
|
|
4710
4868
|
case 2: return {h: 1, a1: Prelude_Cast_cast_Cast_Double_Integer($0.a1)};
|
|
4711
|
-
default: return {h: 0, a1: Prelude_Interfaces_concat(
|
|
4869
|
+
default: return {h: 0, a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Expected an integer but found ', a2: {a1: Language_JSON_Data_show_Show_JSON($0), a2: {a1: '.', a2: {h: 0}}}})};
|
|
4712
4870
|
}
|
|
4713
4871
|
}
|
|
4714
4872
|
|
|
4715
4873
|
function Language_JSON_Accessors_bool($0) {
|
|
4716
4874
|
switch($0.h) {
|
|
4717
4875
|
case 1: return {h: 1, a1: $0.a1};
|
|
4718
|
-
default: return {h: 0, a1: Prelude_Interfaces_concat(
|
|
4876
|
+
default: return {h: 0, a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Expected a bool but found ', a2: {a1: Language_JSON_Data_show_Show_JSON($0), a2: {a1: '.', a2: {h: 0}}}})};
|
|
4719
4877
|
}
|
|
4720
4878
|
}
|
|
4721
4879
|
|
|
@@ -4742,7 +4900,7 @@ function Language_JSON_Accessors_array($0, $1) {
|
|
|
4742
4900
|
const $4 = {a1: $5, a2: a => $d => ({h: 1, a1: $d}), a3: $f};
|
|
4743
4901
|
return Prelude_Types_traverse_Traversable_List($4, $0, $1.a1);
|
|
4744
4902
|
}
|
|
4745
|
-
default: return {h: 0, a1: Prelude_Interfaces_concat(
|
|
4903
|
+
default: return {h: 0, a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Expected an array but found ', a2: {a1: Language_JSON_Data_show_Show_JSON($1), a2: {a1: '.', a2: {h: 0}}}})};
|
|
4746
4904
|
}
|
|
4747
4905
|
}
|
|
4748
4906
|
|
|
@@ -4785,17 +4943,17 @@ function Text_Bounded_mergeBounds($0, $1) {
|
|
|
4785
4943
|
switch($1.h) {
|
|
4786
4944
|
case undefined: {
|
|
4787
4945
|
switch($1.a2) {
|
|
4788
|
-
case 1: return Prelude_Interfaces_x3cx24x3e(
|
|
4946
|
+
case 1: return Prelude_Interfaces_x3cx24x3e(csegen_280(), $e => $1.a1, $0);
|
|
4789
4947
|
default: {
|
|
4790
|
-
const $10 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
4791
|
-
const $1c = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
4948
|
+
const $10 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_291(), csegen_291(), Text_Bounded_start($0), Text_Bounded_start($1));
|
|
4949
|
+
const $1c = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_291(), csegen_291(), Text_Bounded_end($0), Text_Bounded_end($1));
|
|
4792
4950
|
return {a1: $1.a1, a2: 0, a3: {a1: $10.a1, a2: $10.a2, a3: $1c.a1, a4: $1c.a2}};
|
|
4793
4951
|
}
|
|
4794
4952
|
}
|
|
4795
4953
|
}
|
|
4796
4954
|
default: {
|
|
4797
|
-
const $30 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
4798
|
-
const $3c = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
4955
|
+
const $30 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_291(), csegen_291(), Text_Bounded_start($0), Text_Bounded_start($1));
|
|
4956
|
+
const $3c = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_291(), csegen_291(), Text_Bounded_end($0), Text_Bounded_end($1));
|
|
4799
4957
|
return {a1: $1.a1, a2: 0, a3: {a1: $30.a1, a2: $30.a2, a3: $3c.a1, a4: $3c.a2}};
|
|
4800
4958
|
}
|
|
4801
4959
|
}
|
|
@@ -4806,17 +4964,17 @@ function Text_Bounded_mergeBounds($0, $1) {
|
|
|
4806
4964
|
switch($1.h) {
|
|
4807
4965
|
case undefined: {
|
|
4808
4966
|
switch($1.a2) {
|
|
4809
|
-
case 1: return Prelude_Interfaces_x3cx24x3e(
|
|
4967
|
+
case 1: return Prelude_Interfaces_x3cx24x3e(csegen_280(), $56 => $1.a1, $0);
|
|
4810
4968
|
default: {
|
|
4811
|
-
const $58 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
4812
|
-
const $64 = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
4969
|
+
const $58 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_291(), csegen_291(), Text_Bounded_start($0), Text_Bounded_start($1));
|
|
4970
|
+
const $64 = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_291(), csegen_291(), Text_Bounded_end($0), Text_Bounded_end($1));
|
|
4813
4971
|
return {a1: $1.a1, a2: 0, a3: {a1: $58.a1, a2: $58.a2, a3: $64.a1, a4: $64.a2}};
|
|
4814
4972
|
}
|
|
4815
4973
|
}
|
|
4816
4974
|
}
|
|
4817
4975
|
default: {
|
|
4818
|
-
const $78 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
4819
|
-
const $84 = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
4976
|
+
const $78 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_291(), csegen_291(), Text_Bounded_start($0), Text_Bounded_start($1));
|
|
4977
|
+
const $84 = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_291(), csegen_291(), Text_Bounded_end($0), Text_Bounded_end($1));
|
|
4820
4978
|
return {a1: $1.a1, a2: 0, a3: {a1: $78.a1, a2: $78.a2, a3: $84.a1, a4: $84.a2}};
|
|
4821
4979
|
}
|
|
4822
4980
|
}
|
|
@@ -4836,7 +4994,7 @@ function Text_Bounded_end($0) {
|
|
|
4836
4994
|
return Text_Bounded_endBounds($0.a3);
|
|
4837
4995
|
}
|
|
4838
4996
|
|
|
4839
|
-
function
|
|
4997
|
+
function Language_JSON_Data_n__4587_6424_stringifyValues($0, $1) {
|
|
4840
4998
|
switch($1.h) {
|
|
4841
4999
|
case 0: return '';
|
|
4842
5000
|
case undefined: {
|
|
@@ -4847,7 +5005,7 @@ function Language_JSON_Data_n__4084_3506_stringifyValues($0, $1) {
|
|
|
4847
5005
|
break;
|
|
4848
5006
|
}
|
|
4849
5007
|
case 0: {
|
|
4850
|
-
$6 = (','+
|
|
5008
|
+
$6 = (','+Language_JSON_Data_n__4587_6424_stringifyValues($0, $1.a2));
|
|
4851
5009
|
break;
|
|
4852
5010
|
}
|
|
4853
5011
|
}
|
|
@@ -4856,7 +5014,7 @@ function Language_JSON_Data_n__4084_3506_stringifyValues($0, $1) {
|
|
|
4856
5014
|
}
|
|
4857
5015
|
}
|
|
4858
5016
|
|
|
4859
|
-
function
|
|
5017
|
+
function Language_JSON_Data_n__4587_6469_stringifyProps($0, $1) {
|
|
4860
5018
|
switch($1.h) {
|
|
4861
5019
|
case 0: return '';
|
|
4862
5020
|
case undefined: {
|
|
@@ -4867,25 +5025,25 @@ function Language_JSON_Data_n__4084_3551_stringifyProps($0, $1) {
|
|
|
4867
5025
|
break;
|
|
4868
5026
|
}
|
|
4869
5027
|
case 0: {
|
|
4870
|
-
$7 = (','+
|
|
5028
|
+
$7 = (','+Language_JSON_Data_n__4587_6469_stringifyProps($0, $1.a2));
|
|
4871
5029
|
break;
|
|
4872
5030
|
}
|
|
4873
5031
|
}
|
|
4874
|
-
return (
|
|
5032
|
+
return (Language_JSON_Data_n__4587_6468_stringifyProp($0, $1.a1)+$7);
|
|
4875
5033
|
}
|
|
4876
5034
|
}
|
|
4877
5035
|
}
|
|
4878
5036
|
|
|
4879
|
-
function
|
|
5037
|
+
function Language_JSON_Data_n__4587_6468_stringifyProp($0, $1) {
|
|
4880
5038
|
return (Language_JSON_Data_showString($1.a1)+(':'+Language_JSON_Data_stringify($1.a2)));
|
|
4881
5039
|
}
|
|
4882
5040
|
|
|
4883
|
-
function
|
|
5041
|
+
function Language_JSON_Data_n__4851_6669_formatValues($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
4884
5042
|
const $13 = {a1: $4, a2: $3};
|
|
4885
5043
|
let $12;
|
|
4886
5044
|
switch($8.a2.h) {
|
|
4887
5045
|
case undefined: {
|
|
4888
|
-
$12 = (',\n'+
|
|
5046
|
+
$12 = (',\n'+Language_JSON_Data_n__4851_6669_formatValues($0, $1, $2, $3, $4, $13, $6, $7, $8.a2, undefined));
|
|
4889
5047
|
break;
|
|
4890
5048
|
}
|
|
4891
5049
|
case 0: {
|
|
@@ -4896,19 +5054,19 @@ function Language_JSON_Data_n__4348_3751_formatValues($0, $1, $2, $3, $4, $5, $6
|
|
|
4896
5054
|
return (Language_JSON_Data_format(($7+$6), $6, $8.a1)+$12);
|
|
4897
5055
|
}
|
|
4898
5056
|
|
|
4899
|
-
function
|
|
5057
|
+
function Language_JSON_Data_n__4835_6640_formatValue($0, $1, $2, $3, $4, $5) {
|
|
4900
5058
|
switch($5.h) {
|
|
4901
5059
|
case 4: {
|
|
4902
5060
|
switch($5.a1.h) {
|
|
4903
5061
|
case 0: return '[]';
|
|
4904
|
-
case undefined: return ('[\n'+(
|
|
5062
|
+
case undefined: return ('[\n'+(Language_JSON_Data_n__4851_6669_formatValues($0, $1, $2, $5.a1.a2, $5.a1.a1, $5.a1, $4, $3, $5.a1, undefined)+Data_String_indent($3, ']')));
|
|
4905
5063
|
default: return Language_JSON_Data_stringify($5);
|
|
4906
5064
|
}
|
|
4907
5065
|
}
|
|
4908
5066
|
case 5: {
|
|
4909
5067
|
switch($5.a1.h) {
|
|
4910
5068
|
case 0: return '{}';
|
|
4911
|
-
case undefined: return ('{\n'+(
|
|
5069
|
+
case undefined: return ('{\n'+(Language_JSON_Data_n__4851_6774_formatProps($0, $1, $2, $5.a1.a2, $5.a1.a1, $5.a1, $4, $3, $5.a1, undefined)+Data_String_indent($3, '}')));
|
|
4912
5070
|
default: return Language_JSON_Data_stringify($5);
|
|
4913
5071
|
}
|
|
4914
5072
|
}
|
|
@@ -4916,12 +5074,12 @@ function Language_JSON_Data_n__4332_3722_formatValue($0, $1, $2, $3, $4, $5) {
|
|
|
4916
5074
|
}
|
|
4917
5075
|
}
|
|
4918
5076
|
|
|
4919
|
-
function
|
|
5077
|
+
function Language_JSON_Data_n__4851_6774_formatProps($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
4920
5078
|
const $17 = {a1: $4, a2: $3};
|
|
4921
5079
|
let $16;
|
|
4922
5080
|
switch($8.a2.h) {
|
|
4923
5081
|
case undefined: {
|
|
4924
|
-
$16 = (',\n'+
|
|
5082
|
+
$16 = (',\n'+Language_JSON_Data_n__4851_6774_formatProps($0, $1, $2, $3, $4, $17, $6, $7, $8.a2, undefined));
|
|
4925
5083
|
break;
|
|
4926
5084
|
}
|
|
4927
5085
|
case 0: {
|
|
@@ -4929,11 +5087,11 @@ function Language_JSON_Data_n__4348_3856_formatProps($0, $1, $2, $3, $4, $5, $6,
|
|
|
4929
5087
|
break;
|
|
4930
5088
|
}
|
|
4931
5089
|
}
|
|
4932
|
-
return (
|
|
5090
|
+
return (Language_JSON_Data_n__4851_6773_formatProp($0, $1, $2, $3, $4, $5, $6, $7, $8.a1)+$16);
|
|
4933
5091
|
}
|
|
4934
5092
|
|
|
4935
|
-
function
|
|
4936
|
-
return (Data_String_indent(($7+$6), (Language_JSON_Data_showString($8.a1)+': '))+
|
|
5093
|
+
function Language_JSON_Data_n__4851_6773_formatProp($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
5094
|
+
return (Data_String_indent(($7+$6), (Language_JSON_Data_showString($8.a1)+': '))+Language_JSON_Data_n__4835_6640_formatValue($0, $1, $2, ($7+$6), $6, $8.a2));
|
|
4937
5095
|
}
|
|
4938
5096
|
|
|
4939
5097
|
function Language_JSON_Data_show_Show_JSON($0) {
|
|
@@ -4955,13 +5113,13 @@ function Language_JSON_Data_stringify($0) {
|
|
|
4955
5113
|
}
|
|
4956
5114
|
case 2: return Prelude_Show_show_Show_Double($0.a1);
|
|
4957
5115
|
case 3: return Language_JSON_Data_showString($0.a1);
|
|
4958
|
-
case 4: return ('['+(
|
|
4959
|
-
case 5: return ('{'+(
|
|
5116
|
+
case 4: return ('['+(Language_JSON_Data_n__4587_6424_stringifyValues($0.a1, $0.a1)+']'));
|
|
5117
|
+
case 5: return ('{'+(Language_JSON_Data_n__4587_6469_stringifyProps($0.a1, $0.a1)+'}'));
|
|
4960
5118
|
}
|
|
4961
5119
|
}
|
|
4962
5120
|
|
|
4963
5121
|
function Language_JSON_Data_showString($0) {
|
|
4964
|
-
return ('\"'+(Prelude_Interfaces_concatMap(
|
|
5122
|
+
return ('\"'+(Prelude_Interfaces_concatMap(csegen_62(), csegen_77(), $a => Language_JSON_Data_showChar($a), Prelude_Types_fastUnpack($0))+'\"'));
|
|
4965
5123
|
}
|
|
4966
5124
|
|
|
4967
5125
|
function Language_JSON_Data_showChar($0) {
|
|
@@ -4997,7 +5155,7 @@ function Language_JSON_Data_showChar($0) {
|
|
|
4997
5155
|
}
|
|
4998
5156
|
|
|
4999
5157
|
function Language_JSON_Data_format($0, $1, $2) {
|
|
5000
|
-
return Data_String_indent($0,
|
|
5158
|
+
return Data_String_indent($0, Language_JSON_Data_n__4835_6640_formatValue($2, $1, $0, $0, $1, $2));
|
|
5001
5159
|
}
|
|
5002
5160
|
|
|
5003
5161
|
function Language_JSON_Data_b16ToHexString($0) {
|
|
@@ -5022,11 +5180,11 @@ function Language_JSON_Data_b16ToHexString($0) {
|
|
|
5022
5180
|
}
|
|
5023
5181
|
}
|
|
5024
5182
|
|
|
5025
|
-
const
|
|
5183
|
+
const Language_JSON_Parser_n__3581_2407_values = __lazy(function () {
|
|
5026
5184
|
return Text_Parser_sepBy(1, Language_JSON_Parser_punct({h: 0}), Language_JSON_Parser_json());
|
|
5027
5185
|
});
|
|
5028
5186
|
|
|
5029
|
-
const
|
|
5187
|
+
const Language_JSON_Parser_n__3578_2316_properties = __lazy(function () {
|
|
5030
5188
|
return Text_Parser_sepBy(1, Language_JSON_Parser_punct({h: 0}), {h: 8, a1: 1, a2: Language_JSON_Parser_rawString(), a3: () => key => ({h: 10, a1: 1, a2: Language_JSON_Parser_punct({h: 1}), a3: () => ({h: 8, a1: 0, a2: Language_JSON_Parser_json(), a3: () => value => ({h: 0, a1: {a1: key, a2: value}})})})});
|
|
5031
5189
|
});
|
|
5032
5190
|
|
|
@@ -5035,7 +5193,7 @@ const Language_JSON_Parser_string = __lazy(function () {
|
|
|
5035
5193
|
});
|
|
5036
5194
|
|
|
5037
5195
|
const Language_JSON_Parser_rawString = __lazy(function () {
|
|
5038
|
-
return {h: 8, a1: 0, a2: Text_Parser_match(
|
|
5196
|
+
return {h: 8, a1: 0, a2: Text_Parser_match(csegen_299(), csegen_302(), {h: 2}), a3: () => mstr => {
|
|
5039
5197
|
switch(mstr.h) {
|
|
5040
5198
|
case undefined: return {h: 0, a1: mstr.a1};
|
|
5041
5199
|
case 0: return {h: 4, a1: {h: 0}, a2: 0, a3: 'invalid string'};
|
|
@@ -5044,7 +5202,7 @@ const Language_JSON_Parser_rawString = __lazy(function () {
|
|
|
5044
5202
|
});
|
|
5045
5203
|
|
|
5046
5204
|
function Language_JSON_Parser_punct($0) {
|
|
5047
|
-
return Text_Parser_match(
|
|
5205
|
+
return Text_Parser_match(csegen_299(), csegen_302(), {h: 4, a1: $0});
|
|
5048
5206
|
}
|
|
5049
5207
|
|
|
5050
5208
|
function Language_JSON_Parser_parseJSON($0) {
|
|
@@ -5054,7 +5212,7 @@ function Language_JSON_Parser_parseJSON($0) {
|
|
|
5054
5212
|
case 0: return 1;
|
|
5055
5213
|
}
|
|
5056
5214
|
};
|
|
5057
|
-
const $6 =
|
|
5215
|
+
const $6 = Prelude_Types_List_filter($8, $0);
|
|
5058
5216
|
const $1 = Text_Parser_Core_parse(1, Language_JSON_Parser_json(), $6);
|
|
5059
5217
|
switch($1.h) {
|
|
5060
5218
|
case 1: {
|
|
@@ -5073,15 +5231,15 @@ function Language_JSON_Parser_parseJSON($0) {
|
|
|
5073
5231
|
}
|
|
5074
5232
|
|
|
5075
5233
|
const Language_JSON_Parser_object = __lazy(function () {
|
|
5076
|
-
return {h: 10, a1: 1, a2: Language_JSON_Parser_punct({h: 3, a1: 0}), a3: () => ({h: 11, a1: 0, a2: 1, a3: {h: 6}, a4: {h: 9, a1: 0, a2: 1, a3:
|
|
5234
|
+
return {h: 10, a1: 1, a2: Language_JSON_Parser_punct({h: 3, a1: 0}), a3: () => ({h: 11, a1: 0, a2: 1, a3: {h: 6}, a4: {h: 9, a1: 0, a2: 1, a3: Language_JSON_Parser_n__3578_2316_properties(), a4: props => ({h: 10, a1: 0, a2: Language_JSON_Parser_punct({h: 3, a1: 1}), a3: () => ({h: 0, a1: {h: 5, a1: props}})})}})};
|
|
5077
5235
|
});
|
|
5078
5236
|
|
|
5079
5237
|
const Language_JSON_Parser_number = __lazy(function () {
|
|
5080
|
-
return Text_Parser_Core_map_Functor_x28x28x28Grammarx20x24statex29x20x24tokx29x20x24cx29(1, $3 => ({h: 2, a1: $3}), Text_Parser_match(
|
|
5238
|
+
return Text_Parser_Core_map_Functor_x28x28x28Grammarx20x24statex29x20x24tokx29x20x24cx29(1, $3 => ({h: 2, a1: $3}), Text_Parser_match(csegen_299(), csegen_302(), {h: 1}));
|
|
5081
5239
|
});
|
|
5082
5240
|
|
|
5083
5241
|
const Language_JSON_Parser_null = __lazy(function () {
|
|
5084
|
-
return Text_Parser_Core_map_Functor_x28x28x28Grammarx20x24statex29x20x24tokx29x20x24cx29(1, $3 => ({h: 0}), Text_Parser_match(
|
|
5242
|
+
return Text_Parser_Core_map_Functor_x28x28x28Grammarx20x24statex29x20x24tokx29x20x24cx29(1, $3 => ({h: 0}), Text_Parser_match(csegen_299(), csegen_302(), {h: 3}));
|
|
5085
5243
|
});
|
|
5086
5244
|
|
|
5087
5245
|
const Language_JSON_Parser_json = __lazy(function () {
|
|
@@ -5089,11 +5247,11 @@ const Language_JSON_Parser_json = __lazy(function () {
|
|
|
5089
5247
|
});
|
|
5090
5248
|
|
|
5091
5249
|
const Language_JSON_Parser_boolean = __lazy(function () {
|
|
5092
|
-
return Text_Parser_Core_map_Functor_x28x28x28Grammarx20x24statex29x20x24tokx29x20x24cx29(1, $3 => ({h: 1, a1: $3}), Text_Parser_match(
|
|
5250
|
+
return Text_Parser_Core_map_Functor_x28x28x28Grammarx20x24statex29x20x24tokx29x20x24cx29(1, $3 => ({h: 1, a1: $3}), Text_Parser_match(csegen_299(), csegen_302(), {h: 0}));
|
|
5093
5251
|
});
|
|
5094
5252
|
|
|
5095
5253
|
const Language_JSON_Parser_array = __lazy(function () {
|
|
5096
|
-
return {h: 10, a1: 1, a2: Language_JSON_Parser_punct({h: 2, a1: 0}), a3: () => ({h: 11, a1: 0, a2: 1, a3: {h: 6}, a4: {h: 9, a1: 0, a2: 1, a3:
|
|
5254
|
+
return {h: 10, a1: 1, a2: Language_JSON_Parser_punct({h: 2, a1: 0}), a3: () => ({h: 11, a1: 0, a2: 1, a3: {h: 6}, a4: {h: 9, a1: 0, a2: 1, a3: Language_JSON_Parser_n__3581_2407_values(), a4: vals => ({h: 10, a1: 0, a2: Language_JSON_Parser_punct({h: 2, a1: 1}), a3: () => ({h: 0, a1: {h: 4, a1: vals}})})}})};
|
|
5097
5255
|
});
|
|
5098
5256
|
|
|
5099
5257
|
function Language_JSON_Tokens_tokValue_TokenKind_JSONTokenKind($0, $1) {
|
|
@@ -5265,7 +5423,7 @@ function Text_Lexer_opt($0) {
|
|
|
5265
5423
|
}
|
|
5266
5424
|
|
|
5267
5425
|
function Text_Lexer_oneOf($0) {
|
|
5268
|
-
return Text_Lexer_Core_pred(x => Prelude_Types_elem(
|
|
5426
|
+
return Text_Lexer_Core_pred(x => Prelude_Types_elem(csegen_77(), csegen_207(), x, Prelude_Types_fastUnpack($0)));
|
|
5269
5427
|
}
|
|
5270
5428
|
|
|
5271
5429
|
function Text_Lexer_non($0) {
|
|
@@ -5370,7 +5528,7 @@ function Text_Quantity_atLeast($0) {
|
|
|
5370
5528
|
return {a1: $0, a2: {h: 0}};
|
|
5371
5529
|
}
|
|
5372
5530
|
|
|
5373
|
-
function
|
|
5531
|
+
function Text_Lexer_Core_n__3659_2500_getCols($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
5374
5532
|
const $8 = Data_List_span($b => Prelude_EqOrd_x2fx3d_Eq_Char($b, '\n'), Prelude_Types_List_reverse($6));
|
|
5375
5533
|
switch($8.a2.h) {
|
|
5376
5534
|
case 0: return _add32s($7, Prelude_Cast_cast_Cast_Nat_Int(Prelude_Types_List_lengthTR($8.a1)));
|
|
@@ -5378,8 +5536,8 @@ function Text_Lexer_Core_n__3455_2496_getCols($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
5378
5536
|
}
|
|
5379
5537
|
}
|
|
5380
5538
|
|
|
5381
|
-
function
|
|
5382
|
-
return Prelude_Types_List_lengthTR(
|
|
5539
|
+
function Text_Lexer_Core_n__3659_2499_countNLs($0, $1, $2, $3, $4, $5, $6) {
|
|
5540
|
+
return Prelude_Types_List_lengthTR(Prelude_Types_List_filter($b => Prelude_EqOrd_x3dx3d_Eq_Char($b, '\n'), $6));
|
|
5383
5541
|
}
|
|
5384
5542
|
|
|
5385
5543
|
function Text_Lexer_Core_scan($0, $1, $2) {
|
|
@@ -5447,7 +5605,7 @@ function Text_Lexer_Core_x3cx7cx3e($0, $1) {
|
|
|
5447
5605
|
return {h: 7, a1: $0, a2: $1};
|
|
5448
5606
|
}
|
|
5449
5607
|
|
|
5450
|
-
function
|
|
5608
|
+
function Language_JSON_String_Tokens_n__3203_1166_hexVal($0, $1) {
|
|
5451
5609
|
switch(Prelude_EqOrd_x3ex3d_Ord_Char($1, 'A')) {
|
|
5452
5610
|
case 1: return _add32s(_sub32s(_truncInt32($1.codePointAt(0)), _truncInt32('A'.codePointAt(0))), 10);
|
|
5453
5611
|
case 0: return _sub32s(_truncInt32($1.codePointAt(0)), _truncInt32('0'.codePointAt(0)));
|
|
@@ -5510,7 +5668,7 @@ function Language_JSON_String_Tokens_x2fx3d_Eq_JSONStringTokenKind($0, $1) {
|
|
|
5510
5668
|
}
|
|
5511
5669
|
|
|
5512
5670
|
function Language_JSON_String_Tokens_unicodeEscapeValue($0) {
|
|
5513
|
-
return
|
|
5671
|
+
return Language_JSON_String_Tokens_n__3203_1167_fromHex($0, Data_List_drop(2n, Prelude_Types_fastUnpack($0)), 0);
|
|
5514
5672
|
}
|
|
5515
5673
|
|
|
5516
5674
|
function Language_JSON_String_Tokens_simpleEscapeValue($0) {
|
|
@@ -5542,11 +5700,11 @@ function Language_JSON_String_Tokens_charValue($0) {
|
|
|
5542
5700
|
}
|
|
5543
5701
|
|
|
5544
5702
|
const Language_JSON_String_Parser_stringChar = __lazy(function () {
|
|
5545
|
-
return {h: 12, a1: 1, a2: 1, a3: Text_Parser_match(
|
|
5703
|
+
return {h: 12, a1: 1, a2: 1, a3: Text_Parser_match(csegen_338(), csegen_341(), 1), a4: () => ({h: 12, a1: 1, a2: 1, a3: Text_Parser_match(csegen_338(), csegen_341(), 2), a4: () => Text_Parser_match(csegen_338(), csegen_341(), 3)})};
|
|
5546
5704
|
});
|
|
5547
5705
|
|
|
5548
5706
|
const Language_JSON_String_Parser_quotedString = __lazy(function () {
|
|
5549
|
-
const $0 = Text_Parser_match(
|
|
5707
|
+
const $0 = Text_Parser_match(csegen_338(), csegen_341(), 0);
|
|
5550
5708
|
return {h: 8, a1: 0, a2: Text_Parser_between(0, $0, $0, Text_Parser_many(Language_JSON_String_Parser_stringChar())), a3: () => chars => ({h: 11, a1: 0, a2: 0, a3: {h: 3}, a4: {h: 0, a1: Prelude_Types_fastPack(chars)}})};
|
|
5551
5709
|
});
|
|
5552
5710
|
|
|
@@ -5605,28 +5763,28 @@ function Text_Parser_between($0, $1, $2, $3) {
|
|
|
5605
5763
|
return {h: 9, a1: 1, a2: 1, a3: Text_Parser_Core_map_Functor_x28x28x28Grammarx20x24statex29x20x24tokx29x20x24cx29(1, $a => $b => $a, {h: 9, a1: 1, a2: $0, a3: Text_Parser_Core_map_Functor_x28x28x28Grammarx20x24statex29x20x24tokx29x20x24cx29(1, $13 => $14 => $14, $1), a4: f => Text_Parser_Core_map_Functor_x28x28x28Grammarx20x24statex29x20x24tokx29x20x24cx29($0, f, $3)}), a4: f => Text_Parser_Core_map_Functor_x28x28x28Grammarx20x24statex29x20x24tokx29x20x24cx29(1, f, $2)};
|
|
5606
5764
|
}
|
|
5607
5765
|
|
|
5608
|
-
function
|
|
5766
|
+
function Text_Parser_Core_case__doParse_5194($0, $1, $2, $3, $4, $5) {
|
|
5609
5767
|
switch($5.h) {
|
|
5610
5768
|
case 0: return {h: 0, a1: $5.a1, a2: $5.a2, a3: $5.a3};
|
|
5611
|
-
case 1: return {h: 1, a1: $5.a1, a2: $5.a2, a3: Prelude_Interfaces_x3cx24x3e(
|
|
5769
|
+
case 1: return {h: 1, a1: $5.a1, a2: $5.a2, a3: Prelude_Interfaces_x3cx24x3e(csegen_357(), $11 => $5.a3, $5.a3), a4: $5.a4};
|
|
5612
5770
|
}
|
|
5613
5771
|
}
|
|
5614
5772
|
|
|
5615
|
-
function
|
|
5773
|
+
function Text_Parser_Core_case__doParse_4881($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
5616
5774
|
switch($7.h) {
|
|
5617
5775
|
case 0: return {h: 0, a1: $7.a1, a2: $7.a2, a3: $7.a3};
|
|
5618
5776
|
case 1: return Text_Parser_Core_mergeWith($7.a3, Text_Parser_Core_doParse($0, $7.a1, $7.a2, $3()($7.a3.a1), $7.a4));
|
|
5619
5777
|
}
|
|
5620
5778
|
}
|
|
5621
5779
|
|
|
5622
|
-
function
|
|
5780
|
+
function Text_Parser_Core_case__doParse_4767($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
5623
5781
|
switch($8.h) {
|
|
5624
5782
|
case 0: return {h: 0, a1: $8.a1, a2: $8.a2, a3: $8.a3};
|
|
5625
5783
|
case 1: return Text_Parser_Core_mergeWith($8.a3, Text_Parser_Core_doParse($0, $8.a1, $8.a2, $4($8.a3.a1), $8.a4));
|
|
5626
5784
|
}
|
|
5627
5785
|
}
|
|
5628
5786
|
|
|
5629
|
-
function
|
|
5787
|
+
function Text_Parser_Core_case__casex20blockx20inx20casex20blockx20inx20doParse_4529($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a, $b) {
|
|
5630
5788
|
switch($b.h) {
|
|
5631
5789
|
case 0: {
|
|
5632
5790
|
let $d;
|
|
@@ -5649,7 +5807,7 @@ function Text_Parser_Core_case__casex20blockx20inx20casex20blockx20inx20doParse_
|
|
|
5649
5807
|
}
|
|
5650
5808
|
}
|
|
5651
5809
|
|
|
5652
|
-
function
|
|
5810
|
+
function Text_Parser_Core_case__doParse_4413($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
5653
5811
|
switch($8.h) {
|
|
5654
5812
|
case 0: {
|
|
5655
5813
|
let $a;
|
|
@@ -5665,21 +5823,21 @@ function Text_Parser_Core_case__doParse_4275($0, $1, $2, $3, $4, $5, $6, $7, $8)
|
|
|
5665
5823
|
}
|
|
5666
5824
|
switch($a) {
|
|
5667
5825
|
case 1: return {h: 0, a1: $7, a2: $8.a2, a3: $8.a3};
|
|
5668
|
-
case 0: return
|
|
5826
|
+
case 0: return Text_Parser_Core_case__casex20blockx20inx20casex20blockx20inx20doParse_4529($0, $2, $3, $4, $5, $6, $7, $8.a3, $8.a2, $8.a1, $1, Text_Parser_Core_doParse($0, $1, 0, $3(), $6));
|
|
5669
5827
|
}
|
|
5670
5828
|
}
|
|
5671
5829
|
case 1: return {h: 1, a1: $8.a1, a2: $7, a3: $8.a3, a4: $8.a4};
|
|
5672
5830
|
}
|
|
5673
5831
|
}
|
|
5674
5832
|
|
|
5675
|
-
function
|
|
5833
|
+
function Text_Parser_Core_case__doParse_4048($0, $1, $2, $3, $4, $5) {
|
|
5676
5834
|
switch($5.h) {
|
|
5677
5835
|
case 0: return {h: 0, a1: $5.a1, a2: 1, a3: $5.a3};
|
|
5678
5836
|
default: return $5;
|
|
5679
5837
|
}
|
|
5680
5838
|
}
|
|
5681
5839
|
|
|
5682
|
-
function
|
|
5840
|
+
function Text_Parser_Core_case__doParse_3951($0, $1, $2, $3, $4, $5) {
|
|
5683
5841
|
switch($5.h) {
|
|
5684
5842
|
case 0: return {h: 0, a1: $5.a1, a2: 0, a3: $5.a3};
|
|
5685
5843
|
default: return $5;
|
|
@@ -6026,18 +6184,18 @@ function Text_Parser_Core_mergeWith($0, $1) {
|
|
|
6026
6184
|
function Text_Parser_Core_doParse($0, $1, $2, $3, $4) {
|
|
6027
6185
|
switch($3.h) {
|
|
6028
6186
|
case 0: return {h: 1, a1: $1, a2: $2, a3: Text_Bounded_irrelevantBounds($3.a1), a4: $4};
|
|
6029
|
-
case 4: return {h: 0, a1: $2, a2: $3.a2, a3: {a1: {a1: $3.a3, a2: Prelude_Types_x3cx7cx3e_Alternative_Maybe($3.a1, () => Prelude_Interfaces_x3cx24x3e(
|
|
6030
|
-
case 5: return
|
|
6187
|
+
case 4: return {h: 0, a1: $2, a2: $3.a2, a3: {a1: {a1: $3.a3, a2: Prelude_Types_x3cx7cx3e_Alternative_Maybe($3.a1, () => Prelude_Interfaces_x3cx24x3e(csegen_18(), $19 => $19.a3, Data_List_headx27($4)))}, a2: {h: 0}}};
|
|
6188
|
+
case 5: return Text_Parser_Core_case__doParse_3951($0, $1, $3.a1, $4, $2, Text_Parser_Core_doParse($0, $1, $2, $3.a1, $4));
|
|
6031
6189
|
case 6: return {h: 1, a1: $1, a2: 1, a3: Text_Bounded_irrelevantBounds(undefined), a4: $4};
|
|
6032
|
-
case 7: return
|
|
6190
|
+
case 7: return Text_Parser_Core_case__doParse_4048($0, $1, $3.a1, $4, $2, Text_Parser_Core_doParse($0, $1, $2, $3.a1, $4));
|
|
6033
6191
|
case 1: {
|
|
6034
6192
|
switch($4.h) {
|
|
6035
|
-
case 0: return {h: 0, a1: $2, a2: 0, a3:
|
|
6193
|
+
case 0: return {h: 0, a1: $2, a2: 0, a3: csegen_359()};
|
|
6036
6194
|
case undefined: {
|
|
6037
6195
|
const $44 = $3.a2($4.a1.a1);
|
|
6038
6196
|
switch($44.h) {
|
|
6039
6197
|
case 0: return {h: 0, a1: $2, a2: 0, a3: {a1: {a1: $3.a1, a2: {a1: $4.a1.a3}}, a2: {h: 0}}};
|
|
6040
|
-
case undefined: return {h: 1, a1: $1, a2: $2, a3: Prelude_Interfaces_x3cx24x3e(
|
|
6198
|
+
case undefined: return {h: 1, a1: $1, a2: $2, a3: Prelude_Interfaces_x3cx24x3e(csegen_357(), $58 => $44.a1, $4.a1), a4: $4.a2};
|
|
6041
6199
|
}
|
|
6042
6200
|
}
|
|
6043
6201
|
}
|
|
@@ -6050,7 +6208,7 @@ function Text_Parser_Core_doParse($0, $1, $2, $3, $4) {
|
|
|
6050
6208
|
}
|
|
6051
6209
|
case 2: {
|
|
6052
6210
|
switch($4.h) {
|
|
6053
|
-
case 0: return {h: 0, a1: $2, a2: 0, a3:
|
|
6211
|
+
case 0: return {h: 0, a1: $2, a2: 0, a3: csegen_359()};
|
|
6054
6212
|
case undefined: {
|
|
6055
6213
|
switch($3.a2($4.a1.a1)) {
|
|
6056
6214
|
case 1: return {h: 1, a1: $1, a2: $2, a3: Text_Bounded_removeIrrelevance($4.a1), a4: {a1: $4.a1, a2: $4.a2}};
|
|
@@ -6059,9 +6217,9 @@ function Text_Parser_Core_doParse($0, $1, $2, $3, $4) {
|
|
|
6059
6217
|
}
|
|
6060
6218
|
}
|
|
6061
6219
|
}
|
|
6062
|
-
case 12: return
|
|
6063
|
-
case 9: return
|
|
6064
|
-
case 8: return
|
|
6220
|
+
case 12: return Text_Parser_Core_case__doParse_4413($0, $1, $3.a2, $3.a4, $3.a1, $3.a3, $4, $2, Text_Parser_Core_doParse($0, $1, 0, $3.a3, $4));
|
|
6221
|
+
case 9: return Text_Parser_Core_case__doParse_4767($0, $3.a1, $3.a2, $1, $3.a4, $3.a3, $4, $2, Text_Parser_Core_doParse($0, $1, $2, $3.a3, $4));
|
|
6222
|
+
case 8: return Text_Parser_Core_case__doParse_4881($0, $3.a1, $1, $3.a3, $3.a2, $4, $2, Text_Parser_Core_doParse($0, $1, $2, $3.a2, $4));
|
|
6065
6223
|
case 11: {
|
|
6066
6224
|
const $b4 = Text_Parser_Core_doParse($0, $1, $2, $3.a3, $4);
|
|
6067
6225
|
switch($b4.h) {
|
|
@@ -6076,10 +6234,10 @@ function Text_Parser_Core_doParse($0, $1, $2, $3, $4) {
|
|
|
6076
6234
|
case 1: return Text_Parser_Core_mergeWith($c7.a3, Text_Parser_Core_doParse($0, $c7.a1, $c7.a2, $3.a3(), $c7.a4));
|
|
6077
6235
|
}
|
|
6078
6236
|
}
|
|
6079
|
-
case 13: return
|
|
6237
|
+
case 13: return Text_Parser_Core_case__doParse_5194($0, $1, $3.a1, $4, $2, Text_Parser_Core_doParse($0, $1, $2, $3.a1, $4));
|
|
6080
6238
|
case 14: {
|
|
6081
6239
|
switch($4.h) {
|
|
6082
|
-
case 0: return {h: 0, a1: $2, a2: 0, a3:
|
|
6240
|
+
case 0: return {h: 0, a1: $2, a2: 0, a3: csegen_359()};
|
|
6083
6241
|
case undefined: return {h: 1, a1: $1, a2: $2, a3: Text_Bounded_irrelevantBounds($4.a1.a3), a4: {a1: $4.a1, a2: $4.a2}};
|
|
6084
6242
|
}
|
|
6085
6243
|
}
|
|
@@ -6169,23 +6327,23 @@ const Language_JSON_Lexer_jsonTokenMap = __lazy(function () {
|
|
|
6169
6327
|
return Text_Lexer_toTokenMap({a1: {a1: Text_Lexer_spaces(), a2: {h: 5}}, a2: {a1: {a1: Text_Lexer_is(','), a2: {h: 4, a1: {h: 0}}}, a2: {a1: {a1: Text_Lexer_is(':'), a2: {h: 4, a1: {h: 1}}}, a2: {a1: {a1: Text_Lexer_is('['), a2: {h: 4, a1: {h: 2, a1: 0}}}, a2: {a1: {a1: Text_Lexer_is(']'), a2: {h: 4, a1: {h: 2, a1: 1}}}, a2: {a1: {a1: Text_Lexer_is('{'), a2: {h: 4, a1: {h: 3, a1: 0}}}, a2: {a1: {a1: Text_Lexer_is('}'), a2: {h: 4, a1: {h: 3, a1: 1}}}, a2: {a1: {a1: Text_Lexer_exact('null'), a2: {h: 3}}, a2: {a1: {a1: Text_Lexer_Core_x3cx7cx3e(Text_Lexer_exact('true'), Text_Lexer_exact('false')), a2: {h: 0}}, a2: {a1: {a1: Language_JSON_Lexer_numberLit(), a2: {h: 1}}, a2: {a1: {a1: Language_JSON_String_permissiveStringLit(), a2: {h: 2}}, a2: {h: 0}}}}}}}}}}}});
|
|
6170
6328
|
});
|
|
6171
6329
|
|
|
6172
|
-
function
|
|
6330
|
+
function Decidable_Equality_n__4701_4105_primitiveNotEq($0, $1, $2, $3) {
|
|
6173
6331
|
return Builtin_believe_me(undefined);
|
|
6174
6332
|
}
|
|
6175
6333
|
|
|
6176
|
-
function
|
|
6334
|
+
function Decidable_Equality_n__4701_4104_primitiveEq($0, $1, $2) {
|
|
6177
6335
|
return Builtin_believe_me(undefined);
|
|
6178
6336
|
}
|
|
6179
6337
|
|
|
6180
6338
|
function Decidable_Equality_decEq_DecEq_FromEqx24a($0, $1, $2) {
|
|
6181
6339
|
switch($0.a1($1)($2)) {
|
|
6182
|
-
case 1: return {h: 0, a1:
|
|
6183
|
-
case 0: return {h: 1, a1: $f =>
|
|
6340
|
+
case 1: return {h: 0, a1: Decidable_Equality_n__4701_4104_primitiveEq($0, $1, $2)};
|
|
6341
|
+
case 0: return {h: 1, a1: $f => Decidable_Equality_n__4701_4105_primitiveNotEq($0, $1, $2, $f)};
|
|
6184
6342
|
}
|
|
6185
6343
|
}
|
|
6186
6344
|
|
|
6187
6345
|
function Decidable_Equality_decEq_DecEq_Char($0, $1) {
|
|
6188
|
-
return Decidable_Equality_decEq_DecEq_FromEqx24a(
|
|
6346
|
+
return Decidable_Equality_decEq_DecEq_FromEqx24a(csegen_207(), $0, $1);
|
|
6189
6347
|
}
|
|
6190
6348
|
|
|
6191
6349
|
function Data_Either_maybeToEither($0, $1) {
|
|
@@ -6195,66 +6353,66 @@ function Data_Either_maybeToEither($0, $1) {
|
|
|
6195
6353
|
}
|
|
6196
6354
|
}
|
|
6197
6355
|
|
|
6198
|
-
function
|
|
6356
|
+
function PullRequest_with__withx20blockx20inx20listPartitionedPRs_1206($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
6199
6357
|
switch($2.h) {
|
|
6200
6358
|
case 1: return $9 => PullRequest_partitionx27(Data_Pagination_metaPages($0, 1n, $4, 1n, $4), $7, $9);
|
|
6201
6359
|
case 0: return $14 => PullRequest_partitionx27(Data_Pagination_metaPagesx27($0, ($1+1n), $4, $2.a1), $7, $14);
|
|
6202
6360
|
}
|
|
6203
6361
|
}
|
|
6204
6362
|
|
|
6205
|
-
function
|
|
6363
|
+
function PullRequest_with__listPartitionedPRs_1144($0, $1, $2, $3, $4) {
|
|
6206
6364
|
switch($2.a1.h) {
|
|
6207
6365
|
case 1: return $7 => $8 => Data_Promise_pure_Applicative_Promise(PullRequest_empty(), $7, $8);
|
|
6208
6366
|
default: {
|
|
6209
6367
|
switch($2.a2.h) {
|
|
6210
|
-
case 1: return Prelude_Interfaces_x3cx24x3e(
|
|
6211
|
-
default: return $22 =>
|
|
6368
|
+
case 1: return Prelude_Interfaces_x3cx24x3e(csegen_103(), $13 => PullRequest_partition($13), FFI_GitHub_listPullRequests($3, $4.a2, $4.a3, {h: 0}, $0, 0n));
|
|
6369
|
+
default: return $22 => PullRequest_with__withx20blockx20inx20listPartitionedPRs_1206($0, $1, Data_Nat_isLTE(($1+1n), $0), $3, $2.a1.a1, $2.a2.a1, $4, $22);
|
|
6212
6370
|
}
|
|
6213
6371
|
}
|
|
6214
6372
|
}
|
|
6215
6373
|
}
|
|
6216
6374
|
|
|
6217
|
-
function
|
|
6375
|
+
function PullRequest_case__identifyOrCreatePRx2ccreatePR_2359($0, $1, $2, $3, $4, $5) {
|
|
6218
6376
|
switch($5.h) {
|
|
6219
6377
|
case undefined: return ($5.a1+$5.a2);
|
|
6220
6378
|
default: return $3.a4;
|
|
6221
6379
|
}
|
|
6222
6380
|
}
|
|
6223
6381
|
|
|
6224
|
-
function
|
|
6382
|
+
function PullRequest_n__6843_1429_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
6225
6383
|
switch($6.h) {
|
|
6226
6384
|
case 0: {
|
|
6227
6385
|
switch($2.h) {
|
|
6228
6386
|
case 0: return 'no users';
|
|
6229
|
-
default: return Prelude_Interfaces_concat(
|
|
6387
|
+
default: return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: PullRequest_n__6843_1428_csv($0, $1, $2, $3, $4, $5, $2), a2: {h: 0}});
|
|
6230
6388
|
}
|
|
6231
6389
|
}
|
|
6232
|
-
case undefined: return Prelude_Interfaces_concat(
|
|
6390
|
+
case undefined: return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: PullRequest_n__6843_1428_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: $2}), a2: {h: 0}});
|
|
6233
6391
|
}
|
|
6234
6392
|
}
|
|
6235
6393
|
|
|
6236
|
-
function
|
|
6394
|
+
function PullRequest_n__6843_1430_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
6237
6395
|
switch($6.h) {
|
|
6238
6396
|
case 0: return '';
|
|
6239
6397
|
case undefined: {
|
|
6240
6398
|
switch($6.a2.h) {
|
|
6241
|
-
case 0: return Prelude_Interfaces_concat(
|
|
6242
|
-
default: return Prelude_Interfaces_concat(
|
|
6399
|
+
case 0: return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' and team ', a2: {a1: PullRequest_n__6843_1428_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: {h: 0}}), a2: {h: 0}}});
|
|
6400
|
+
default: return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' and teams ', a2: {a1: PullRequest_n__6843_1428_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
6243
6401
|
}
|
|
6244
6402
|
}
|
|
6245
|
-
default: return Prelude_Interfaces_concat(
|
|
6403
|
+
default: return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' and teams ', a2: {a1: PullRequest_n__6843_1428_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
6246
6404
|
}
|
|
6247
6405
|
}
|
|
6248
6406
|
|
|
6249
|
-
function
|
|
6407
|
+
function PullRequest_n__7474_2030_prepareDescriptionFile($0, $1, $2, $3, $4) {
|
|
6250
6408
|
return $4.a1.a2(undefined)(undefined)(System_File_Meta_exists($4, '.github/PULL_REQUEST_TEMPLATE.md'))($12 => Prelude_Interfaces_when($4.a1.a1, $12, () => $4.a1.a1.a1(undefined)(undefined)($23 => (undefined))(System_File_copyFile($4, '.github/PULL_REQUEST_TEMPLATE.md', 'pr_description.tmp.md'))));
|
|
6251
6409
|
}
|
|
6252
6410
|
|
|
6253
|
-
function
|
|
6254
|
-
return Prelude_Interfaces_concat(
|
|
6411
|
+
function PullRequest_n__6843_1431_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
6412
|
+
return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ':musical_note: Harmoniously assigned @', a2: {a1: $6, a2: {a1: ' to review this PR.', a2: {h: 0}}}});
|
|
6255
6413
|
}
|
|
6256
6414
|
|
|
6257
|
-
function
|
|
6415
|
+
function PullRequest_n__6843_1427_maybeDecorate($0, $1, $2, $3, $4, $5, $6) {
|
|
6258
6416
|
const $7 = $8 => {
|
|
6259
6417
|
switch(Data_Config_rf__colors($5)) {
|
|
6260
6418
|
case 1: return $8;
|
|
@@ -6264,57 +6422,57 @@ function PullRequest_n__6325_1423_maybeDecorate($0, $1, $2, $3, $4, $5, $6) {
|
|
|
6264
6422
|
return Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString(Text_PrettyPrint_Prettyprinter_Doc_layoutPretty(Text_PrettyPrint_Prettyprinter_Doc_defaultLayoutOptions(), $7($6)));
|
|
6265
6423
|
}
|
|
6266
6424
|
|
|
6267
|
-
function
|
|
6425
|
+
function PullRequest_n__7474_2029_inlineDescription($0, $1, $2, $3, $4) {
|
|
6268
6426
|
return Prelude_Interfaces_x3ex3e($4.a1, Prelude_IO_putStrLn($4, 'What would you like the description to be (two blank lines to finish)?'), () => Prelude_Interfaces_x3cx24x3e($4.a1.a1.a1, $13 => Data_String_fastUnlines($13), Util_getManyLines($4, Data_Fuel_limit(Prelude_Types_prim__integerToNat(100n)))));
|
|
6269
6427
|
}
|
|
6270
6428
|
|
|
6271
|
-
function
|
|
6272
|
-
return FFI_Concurrency_fork(
|
|
6429
|
+
function PullRequest_n__6736_1302_forkedReviews($0, $1, $2, $3, $4) {
|
|
6430
|
+
return FFI_Concurrency_fork(csegen_21(), ('reviews --json '+Prelude_Show_show_Show_Integer($4.a1)));
|
|
6273
6431
|
}
|
|
6274
6432
|
|
|
6275
|
-
function
|
|
6433
|
+
function PullRequest_n__7474_2031_editorDescription($0, $1, $2, $3, $4, $5) {
|
|
6276
6434
|
const $10 = () => {
|
|
6277
6435
|
const $27 = $28 => {
|
|
6278
6436
|
switch($28) {
|
|
6279
|
-
case 0: return $4.a1.a2(undefined)(undefined)(System_File_ReadWrite_readFile($4, 'pr_description.tmp.md'))(description => Prelude_Interfaces_x3ex3e($4.a1, $4.a1.a2(undefined)(undefined)(System_File_Meta_exists($4, '.
|
|
6437
|
+
case 0: return $4.a1.a2(undefined)(undefined)(System_File_ReadWrite_readFile($4, 'pr_description.tmp.md'))(description => Prelude_Interfaces_x3ex3e($4.a1, $4.a1.a2(undefined)(undefined)(System_File_Meta_exists($4, 'pr_description.tmp.md'))($48 => Prelude_Interfaces_when($4.a1.a1, $48, () => System_File_Node_removeFile($4, 'pr_description.tmp.md'))), () => $4.a1.a1.a2(undefined)(description)));
|
|
6280
6438
|
default: return $4.a1.a1.a2(undefined)({h: 0, a1: {h: 0, a1: $28}});
|
|
6281
6439
|
}
|
|
6282
6440
|
};
|
|
6283
|
-
return $4.a1.a2(undefined)(undefined)(System_Node_system($4, Prelude_Interfaces_concat(
|
|
6441
|
+
return $4.a1.a2(undefined)(undefined)(System_Node_system($4, Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: $5, a2: {a1: ' pr_description.tmp.md', a2: {h: 0}}})))($27);
|
|
6284
6442
|
};
|
|
6285
|
-
return Prelude_Interfaces_x3ex3e($4.a1,
|
|
6443
|
+
return Prelude_Interfaces_x3ex3e($4.a1, PullRequest_n__7474_2030_prepareDescriptionFile($0, $1, $2, $3, $4), $10);
|
|
6286
6444
|
}
|
|
6287
6445
|
|
|
6288
|
-
function
|
|
6289
|
-
return
|
|
6446
|
+
function PullRequest_n__6843_1428_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
6447
|
+
return PullRequest_n__6843_1427_maybeDecorate($0, $1, $2, $3, $4, $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_map_Functor_List(csegen_402(), $6)));
|
|
6290
6448
|
}
|
|
6291
6449
|
|
|
6292
|
-
function
|
|
6293
|
-
return Prelude_Interfaces_x3ex3e(
|
|
6450
|
+
function PullRequest_n__7474_2032_createPR($0, $1, $2, $3) {
|
|
6451
|
+
return Prelude_Interfaces_x3ex3e(csegen_15(), $8 => $9 => Data_Promise_x3ex3ex3d_Monad_Promise($c => $d => FFI_Git_remoteTrackingBranch($0, $c, $d), $13 => Prelude_Interfaces_when(csegen_9(), Prelude_Types_x3dx3d_Eq_x28Maybex20x24ax29(csegen_94(), $13, {h: 0}), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), 'Creating a new remote branch...'), () => $27 => $28 => FFI_Git_pushNewBranch($0, 'origin', $2, $27, $28))), $8, $9), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Creating a new PR for the current branch (', a2: {a1: $2, a2: {a1: ').', a2: {h: 0}}}})), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $3.a4, a2: {a1: ')?', a2: {h: 0}}}})), () => $5d => $5e => {
|
|
6294
6452
|
const $6a = baseBranchInput => {
|
|
6295
|
-
const $6b =
|
|
6296
|
-
const $7e = Data_Maybe_fromMaybe(() => '', Prelude_Interfaces_x3cx24x3e(
|
|
6297
|
-
const $7d = () => Prelude_Interfaces_x3ex3e(
|
|
6453
|
+
const $6b = PullRequest_case__identifyOrCreatePRx2ccreatePR_2359($0, $1, $2, $3, baseBranchInput, Data_String_strM(baseBranchInput));
|
|
6454
|
+
const $7e = Data_Maybe_fromMaybe(() => '', Prelude_Interfaces_x3cx24x3e(csegen_18(), $86 => ($86+' - '), Util_parseJiraPrefix($2)));
|
|
6455
|
+
const $7d = () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStr(csegen_21(), $7e), () => $95 => $96 => {
|
|
6298
6456
|
const $a4 = title => $a5 => $a6 => {
|
|
6299
6457
|
const $a9 = Data_Config_rf__editor($3);
|
|
6300
6458
|
let $a8;
|
|
6301
6459
|
switch($a9.h) {
|
|
6302
6460
|
case 0: {
|
|
6303
|
-
$a8 =
|
|
6461
|
+
$a8 = PullRequest_n__7474_2029_inlineDescription($0, $1, $2, $3, csegen_21());
|
|
6304
6462
|
break;
|
|
6305
6463
|
}
|
|
6306
6464
|
case undefined: {
|
|
6307
|
-
$a8 = Prelude_Interfaces_x3cx24x3e(
|
|
6465
|
+
$a8 = Prelude_Interfaces_x3cx24x3e(csegen_103(), $b7 => Prelude_Types_either(() => $ba => '', () => $bc => $bc, $b7), PullRequest_n__7474_2031_editorDescription($0, $1, $2, $3, csegen_21(), $a9.a1));
|
|
6308
6466
|
break;
|
|
6309
6467
|
}
|
|
6310
6468
|
}
|
|
6311
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($a8, description => Prelude_Interfaces_x3ex3e(
|
|
6469
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($a8, description => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), 'Creating PR...'), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), $2), () => FFI_GitHub_createPR($1, $3.a2, $3.a3, $2, $6b, title, description))), $a5, $a6);
|
|
6312
6470
|
};
|
|
6313
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(
|
|
6471
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_103(), $9d => ($7e+Data_String_trim($9d)), csegen_404()), $a4, $95, $96);
|
|
6314
6472
|
});
|
|
6315
|
-
return Prelude_Interfaces_x3ex3e(
|
|
6473
|
+
return Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), 'What would you like the title to be?'), $7d);
|
|
6316
6474
|
};
|
|
6317
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(
|
|
6475
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_103(), $65 => Data_String_trim($65), csegen_404()), $6a, $5d, $5e);
|
|
6318
6476
|
})));
|
|
6319
6477
|
}
|
|
6320
6478
|
|
|
@@ -6344,7 +6502,7 @@ function PullRequest_reviewsForUser($0, $1, $2, $3) {
|
|
|
6344
6502
|
case 0: return 1;
|
|
6345
6503
|
}
|
|
6346
6504
|
};
|
|
6347
|
-
const $4 =
|
|
6505
|
+
const $4 = Prelude_Types_List_filter($6, $3);
|
|
6348
6506
|
return $10 => $11 => {
|
|
6349
6507
|
const $26 = reviewsJson => $27 => $28 => {
|
|
6350
6508
|
const $2a = $2b => $2c => {
|
|
@@ -6367,18 +6525,18 @@ function PullRequest_reviewsForUser($0, $1, $2, $3) {
|
|
|
6367
6525
|
};
|
|
6368
6526
|
const $32 = {a1: $33, a2: a => $3b => ({h: 1, a1: $3b}), a3: $3d};
|
|
6369
6527
|
const $30 = Prelude_Types_traverse_Traversable_List($32, $48 => Language_JSON_Accessors_array($4b => Data_Review_parseReview($4b), $48), reviewsJson);
|
|
6370
|
-
return Data_Promise_either(
|
|
6528
|
+
return Data_Promise_either(csegen_115(), $30, $2b, $2c);
|
|
6371
6529
|
};
|
|
6372
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($2a, reviews => $53 => $54 => Data_Promise_pure_Applicative_Promise(
|
|
6530
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($2a, reviews => $53 => $54 => Data_Promise_pure_Applicative_Promise(Prelude_Types_List_filter($59 => Data_Review_isAuthor($2, $59), Prelude_Types_join_Monad_List(reviews)), $53, $54), $27, $28);
|
|
6373
6531
|
};
|
|
6374
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(
|
|
6532
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(csegen_15(), csegen_113(), Prelude_Types_traverse_Traversable_List(csegen_9(), $1e => PullRequest_n__6736_1302_forkedReviews($1, $3, $2, $0, $1e), $4)), $26, $10, $11);
|
|
6375
6533
|
};
|
|
6376
6534
|
}
|
|
6377
6535
|
|
|
6378
6536
|
function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
6379
6537
|
const $14 = $15 => $16 => $17 => {
|
|
6380
6538
|
const $2e = teamMembers => {
|
|
6381
|
-
const $2f = Reviewer_chooseReviewers(
|
|
6539
|
+
const $2f = Reviewer_chooseReviewers(csegen_111(), $15.a2, $15.a1, teamMembers, {h: 0}, $2.a3);
|
|
6382
6540
|
return $39 => $3a => {
|
|
6383
6541
|
const $41 = chosenUser => {
|
|
6384
6542
|
const $42 = Prelude_Types_List_tailRecAppend(Prelude_Types_toList_Foldable_Maybe(chosenUser), $4);
|
|
@@ -6404,31 +6562,31 @@ function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
6404
6562
|
break;
|
|
6405
6563
|
}
|
|
6406
6564
|
}
|
|
6407
|
-
const $4e = Prelude_Interfaces_when(
|
|
6565
|
+
const $4e = Prelude_Interfaces_when(csegen_9(), $52, () => Prelude_Interfaces_x3ex3e(csegen_15(), $59 => $5a => Data_Promise_map_Functor_Promise($5d => (undefined), FFI_GitHub_addPullReviewers($1, $0.a2, $0.a3, $2.a1, $42, $48), $59, $5a), () => Prelude_Interfaces_when(csegen_9(), $0.a6, () => $72 => $73 => {
|
|
6408
6566
|
switch(chosenUser.h) {
|
|
6409
|
-
case undefined: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
6567
|
+
case undefined: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, PullRequest_n__6843_1431_prComment($1, $5, $4, $3, $2, $0, chosenUser.a1), $72, $73);
|
|
6410
6568
|
case 0: return Data_Promise_pure_Applicative_Promise(undefined, $72, $73);
|
|
6411
6569
|
}
|
|
6412
6570
|
})));
|
|
6413
6571
|
let $8c;
|
|
6414
6572
|
switch(Prelude_Types_null_Foldable_List($42)) {
|
|
6415
6573
|
case 1: {
|
|
6416
|
-
$8c = () => Prelude_IO_putStrLn(
|
|
6574
|
+
$8c = () => Prelude_IO_putStrLn(csegen_21(), PullRequest_n__6843_1427_maybeDecorate($1, $5, $4, $3, $2, $0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Could not pick a user from the given Team ')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('(perhaps the only option was the author of the pull request?).'), a2: {h: 0}}})));
|
|
6417
6575
|
break;
|
|
6418
6576
|
}
|
|
6419
6577
|
case 0: {
|
|
6420
|
-
$8c = () => Prelude_IO_putStrLn(
|
|
6578
|
+
$8c = () => Prelude_IO_putStrLn(csegen_21(), PullRequest_n__6843_1427_maybeDecorate($1, $5, $4, $3, $2, $0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Assigned ', a2: {a1: PullRequest_n__6843_1429_userNotice($1, $5, $4, $3, $2, $0, chosenUser), a2: {a1: PullRequest_n__6843_1430_teamNotice($1, $5, $4, $3, $2, $0, $48), a2: {a1: ' to the open PR ', a2: {h: 0}}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}})));
|
|
6421
6579
|
break;
|
|
6422
6580
|
}
|
|
6423
6581
|
}
|
|
6424
|
-
return Prelude_Interfaces_x3ex3e(
|
|
6582
|
+
return Prelude_Interfaces_x3ex3e(csegen_15(), $4e, $8c);
|
|
6425
6583
|
};
|
|
6426
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Reviewer_randomReviewer(
|
|
6584
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Reviewer_randomReviewer(csegen_21(), $2f), $41, $39, $3a);
|
|
6427
6585
|
};
|
|
6428
6586
|
};
|
|
6429
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(
|
|
6587
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_103(), $1f => Prelude_Types_join_Monad_List($1f), Prelude_Types_traverse_Traversable_List(csegen_9(), $27 => FFI_GitHub_listTeamMembers($1, $0.a2, $27), $3)), $2e, $16, $17);
|
|
6430
6588
|
};
|
|
6431
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($a => $b => PullRequest_listReviewers($0, $1, 4n,
|
|
6589
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($a => $b => PullRequest_listReviewers($0, $1, 4n, csegen_134(), $a, $b), $14, $6, $7);
|
|
6432
6590
|
}
|
|
6433
6591
|
|
|
6434
6592
|
function PullRequest_partitionx27($0, $1, $2) {
|
|
@@ -6452,12 +6610,12 @@ function PullRequest_partitionx27($0, $1, $2) {
|
|
|
6452
6610
|
}
|
|
6453
6611
|
};
|
|
6454
6612
|
const $4c = {a1: $4d, a2: a => $55 => ({h: 1, a1: $55}), a3: $57};
|
|
6455
|
-
const $4a = Prelude_Types_traverse_Traversable_List($4c,
|
|
6456
|
-
return Data_Promise_either(
|
|
6613
|
+
const $4a = Prelude_Types_traverse_Traversable_List($4c, csegen_434(), prJsons);
|
|
6614
|
+
return Data_Promise_either(csegen_115(), $4a, $45, $46);
|
|
6457
6615
|
};
|
|
6458
6616
|
return Data_Promise_x3ex3ex3d_Monad_Promise($44, pulls => $67 => $68 => Data_Promise_pure_Applicative_Promise(PullRequest_partition(Prelude_Types_join_Monad_List(pulls)), $67, $68), $41, $42);
|
|
6459
6617
|
};
|
|
6460
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(
|
|
6618
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(csegen_15(), $9 => $a => $b => 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 => $19 => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($19), a4: elem => acc => m => $1d => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1d, funcM, init, input), a5: elem => $24 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($24), a6: a => m => $28 => f => $29 => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($28, f, $29)}, $9, $a, $b), Data_Pagination_traversex27(csegen_9(), $36 => $37 => $38 => $39 => PullRequest_forkedPRs($36, $37, $38, $39), $0)), $40, $1, $2);
|
|
6461
6619
|
}
|
|
6462
6620
|
|
|
6463
6621
|
function PullRequest_partition($0) {
|
|
@@ -6469,7 +6627,7 @@ function PullRequest_listReviewers($0, $1, $2, $3, $4, $5) {
|
|
|
6469
6627
|
}
|
|
6470
6628
|
|
|
6471
6629
|
function PullRequest_listPartitionedPRs($0, $1, $2, $3) {
|
|
6472
|
-
return
|
|
6630
|
+
return PullRequest_with__listPartitionedPRs_1144($3, $2, {a1: Data_Nat_isLT(0n, $3), a2: Data_Nat_isLT(0n, $2)}, $1, $0);
|
|
6473
6631
|
}
|
|
6474
6632
|
|
|
6475
6633
|
function PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5) {
|
|
@@ -6483,7 +6641,7 @@ function PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5) {
|
|
|
6483
6641
|
}
|
|
6484
6642
|
};
|
|
6485
6643
|
}
|
|
6486
|
-
case 0: return Prelude_Interfaces_x3cx24x3e(
|
|
6644
|
+
case 0: return Prelude_Interfaces_x3cx24x3e(csegen_103(), $23 => ({a1: 1, a2: $23}), PullRequest_n__7474_2032_createPR($1, $2, $3, $0));
|
|
6487
6645
|
default: return $2c => $2d => Data_Promise_reject('Multiple PRs for the current brach. We only handle 1 PR per branch currently.', $2c, $2d);
|
|
6488
6646
|
}
|
|
6489
6647
|
};
|
|
@@ -6491,7 +6649,7 @@ function PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5) {
|
|
|
6491
6649
|
}
|
|
6492
6650
|
|
|
6493
6651
|
function PullRequest_forkedPRs($0, $1, $2, $3) {
|
|
6494
|
-
return FFI_Concurrency_fork(
|
|
6652
|
+
return FFI_Concurrency_fork(csegen_21(), Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'pulls --json ', a2: {a1: Prelude_Show_show_Show_Nat($0), a2: {a1: ' ', a2: {a1: Prelude_Show_show_Show_Nat($1), a2: {h: 0}}}}}));
|
|
6495
6653
|
}
|
|
6496
6654
|
|
|
6497
6655
|
const PullRequest_empty = __lazy(function () {
|
|
@@ -6559,14 +6717,14 @@ function System_File_ReadWrite_readLinesOnto($0, $1, $2, $3, $4) {
|
|
|
6559
6717
|
}
|
|
6560
6718
|
};
|
|
6561
6719
|
const $26 = {a1: $27, a2: a => $2f => ({h: 1, a1: $2f}), a3: $31};
|
|
6562
|
-
const $25 = {a1: $26, a2:
|
|
6720
|
+
const $25 = {a1: $26, a2: csegen_275(), a3: csegen_276()};
|
|
6563
6721
|
const $40 = b => a => func => $41 => {
|
|
6564
6722
|
switch($41.h) {
|
|
6565
6723
|
case 0: return {h: 0, a1: $41.a1};
|
|
6566
6724
|
case 1: return {h: 1, a1: func($41.a1)};
|
|
6567
6725
|
}
|
|
6568
6726
|
};
|
|
6569
|
-
const $3f = {a1: $40, a2:
|
|
6727
|
+
const $3f = {a1: $40, a2: csegen_454(), a3: csegen_458()};
|
|
6570
6728
|
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));
|
|
6571
6729
|
}
|
|
6572
6730
|
default: {
|
|
@@ -6805,7 +6963,7 @@ const System_Info_os = __lazy(function () {
|
|
|
6805
6963
|
});
|
|
6806
6964
|
|
|
6807
6965
|
const System_Info_isWindows = __lazy(function () {
|
|
6808
|
-
return Prelude_Types_elem(
|
|
6966
|
+
return Prelude_Types_elem(csegen_77(), csegen_94(), System_Info_os(), {a1: 'windows', a2: {a1: 'mingw32', a2: {a1: 'cygwin32', a2: {h: 0}}}});
|
|
6809
6967
|
});
|
|
6810
6968
|
|
|
6811
6969
|
function System_File_Meta_isTTY($0, $1) {
|
|
@@ -6915,63 +7073,63 @@ function System_Node_system($0, $1) {
|
|
|
6915
7073
|
return $0.a2(undefined)($7 => System_Node_prim__system($1, $7));
|
|
6916
7074
|
}
|
|
6917
7075
|
|
|
6918
|
-
function
|
|
7076
|
+
function Reviewer_with__scoredReviewersx2czipReviewsx2ccalc_1698($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a, $b, $c, $d, $e) {
|
|
6919
7077
|
switch($c.h) {
|
|
6920
7078
|
case 0: return ($e+$d);
|
|
6921
7079
|
case 1: return Prelude_Types_prim__integerToNat(($e-$d));
|
|
6922
7080
|
}
|
|
6923
7081
|
}
|
|
6924
7082
|
|
|
6925
|
-
function
|
|
7083
|
+
function Reviewer_n__5324_2083_yellowDot($0, $1, $2, $3, $4) {
|
|
6926
7084
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
|
|
6927
7085
|
}
|
|
6928
7086
|
|
|
6929
|
-
function
|
|
7087
|
+
function Reviewer_n__4747_1531_weightReviews($0, $1, $2, $3, $4, $5) {
|
|
6930
7088
|
const $6 = Data_List_groupAllWith($0, $a => $a, $5);
|
|
6931
7089
|
const $10 = xs => {
|
|
6932
7090
|
const $11 = (Prelude_Types_List_lengthTR(Data_List1_forget(xs))*$4);
|
|
6933
7091
|
return {a1: xs.a1, a2: $11, a3: $11};
|
|
6934
7092
|
};
|
|
6935
|
-
return Prelude_Interfaces_x3cx26x3e(
|
|
7093
|
+
return Prelude_Interfaces_x3cx26x3e(csegen_119(), $6, $10);
|
|
6936
7094
|
}
|
|
6937
7095
|
|
|
6938
|
-
function
|
|
7096
|
+
function Reviewer_n__4747_1532_sortx27($0, $1, $2, $3, $4) {
|
|
6939
7097
|
return Data_List_sortBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_EqOrd_compare_Ord_Integer($b, $c), $11 => $11.a3, $7, $8), $4);
|
|
6940
7098
|
}
|
|
6941
7099
|
|
|
6942
|
-
function
|
|
7100
|
+
function Reviewer_n__5324_2084_redDot($0, $1, $2, $3, $4) {
|
|
6943
7101
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(1), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
|
|
6944
7102
|
}
|
|
6945
7103
|
|
|
6946
|
-
function
|
|
6947
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('4x the numbewr of open review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(
|
|
7104
|
+
function Reviewer_n__5324_2085_header($0, $1, $2, $3, $4) {
|
|
7105
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('4x the numbewr of open review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Reviewer_n__5324_2083_yellowDot($0, $1, $2, $3, $4))), a2: {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(Reviewer_n__5324_2084_redDot($0, $1, $2, $3, $4))), a2: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Reviewer_n__5324_2084_redDot($0, $1, $2, $3, $4), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('overlayed on'), Reviewer_n__5324_2083_yellowDot($0, $1, $2, $3, $4)))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}}}});
|
|
6948
7106
|
}
|
|
6949
7107
|
|
|
6950
|
-
function
|
|
7108
|
+
function Reviewer_n__5324_2087_graphOne($0, $1, $2, $3, $4, $5, $6) {
|
|
6951
7109
|
const $8 = Prelude_Types_prim__integerToNat(($5-$6.a2));
|
|
6952
7110
|
const $d = Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), $1.a1(undefined)($6.a1));
|
|
6953
7111
|
const $17 = Prelude_Types_prim__integerToNat(($6.a2-$6.a3));
|
|
6954
7112
|
const $1c = Prelude_Types_prim__integerToNat(($5-$6.a3));
|
|
6955
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
7113
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Reviewer_n__5324_2086_bar($0, $1, $2, $3, $4, $8, $6.a3, Prelude_Types_min_Ord_Nat($1c, $17)), $d);
|
|
6956
7114
|
}
|
|
6957
7115
|
|
|
6958
|
-
function
|
|
6959
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_map_Functor_List($b =>
|
|
7116
|
+
function Reviewer_n__5324_2088_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
7117
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_map_Functor_List($b => Reviewer_n__5324_2087_graphOne($0, $1, $2, $3, $4, $5, $b), $6));
|
|
6960
7118
|
}
|
|
6961
7119
|
|
|
6962
|
-
function
|
|
6963
|
-
return
|
|
7120
|
+
function Reviewer_n__4774_1688_calc($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a, $b, $c, $d) {
|
|
7121
|
+
return Reviewer_with__scoredReviewersx2czipReviewsx2ccalc_1698(undefined, $0, $1, $2, $3, $4, $5, $6, $8, $9, $a, $b, $a, $d, $c);
|
|
6964
7122
|
}
|
|
6965
7123
|
|
|
6966
|
-
function
|
|
7124
|
+
function Reviewer_n__5324_2086_bar($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
6967
7125
|
return Text_PrettyPrint_Prettyprinter_Doc_indent(Prelude_Cast_cast_Cast_Nat_Int($5), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(1), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_String_replicate($7, '\u{25e6}'))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_String_replicate($6, '\u{b7}'))), a2: {h: 0}}}));
|
|
6968
7126
|
}
|
|
6969
7127
|
|
|
6970
7128
|
function Reviewer_scoredReviewers($0, $1, $2, $3) {
|
|
6971
|
-
const $4 =
|
|
6972
|
-
const $c =
|
|
6973
|
-
const $14 =
|
|
6974
|
-
return
|
|
7129
|
+
const $4 = Reviewer_n__4747_1531_weightReviews($0, $3, $2, $1, 1n, $1);
|
|
7130
|
+
const $c = Reviewer_n__4747_1531_weightReviews($0, $3, $2, $1, 4n, $2);
|
|
7131
|
+
const $14 = Reviewer_n__4747_1536_zipReviews($0, $3, $2, $1, $c, $4, {h: 1, a1: $0, a2: $3, a3: $2, a4: $1}, 0);
|
|
7132
|
+
return Reviewer_n__4747_1532_sortx27($0, $3, $2, $1, Reviewer_n__4747_1536_zipReviews($0, $3, $2, $1, $14, Reviewer_n__4747_1531_weightReviews($0, $3, $2, $1, 0n, $3), {h: 0, a1: $0, a2: $3, a3: $2, a4: $1}, 1));
|
|
6975
7133
|
}
|
|
6976
7134
|
|
|
6977
7135
|
function Reviewer_reviewsGraph($0, $1, $2, $3, $4) {
|
|
@@ -6991,8 +7149,8 @@ function Reviewer_reviewsGraph($0, $1, $2, $3, $4) {
|
|
|
6991
7149
|
break;
|
|
6992
7150
|
}
|
|
6993
7151
|
}
|
|
6994
|
-
const $28 =
|
|
6995
|
-
const $1f = Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(
|
|
7152
|
+
const $28 = Reviewer_n__5324_2088_graph($0, $1, $4, $3, $2, $2f, $5);
|
|
7153
|
+
const $1f = Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Reviewer_n__5324_2085_header($0, $1, $4, $3, $2), $28);
|
|
6996
7154
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29($1f, Text_PrettyPrint_Prettyprinter_Doc_line());
|
|
6997
7155
|
}
|
|
6998
7156
|
}
|
|
@@ -7016,7 +7174,7 @@ function Reviewer_chooseReviewers($0, $1, $2, $3, $4, $5) {
|
|
|
7016
7174
|
case 0: return {h: 0};
|
|
7017
7175
|
case undefined: {
|
|
7018
7176
|
const $1a = Data_List_takeWhile($1d => (($1d.a3===$12.a1.a3)?1:0), $12.a2);
|
|
7019
|
-
const $22 = Prelude_Interfaces_x3cx24x3e(
|
|
7177
|
+
const $22 = Prelude_Interfaces_x3cx24x3e(csegen_119(), $27 => Reviewer_loginScore($27), $1a);
|
|
7020
7178
|
return {a1: {a1: $12.a1.a1, a2: $12.a1.a3}, a2: $22};
|
|
7021
7179
|
}
|
|
7022
7180
|
}
|
|
@@ -7069,15 +7227,15 @@ function FFI_GitHub_pullRequestStateFilter($0) {
|
|
|
7069
7227
|
}
|
|
7070
7228
|
|
|
7071
7229
|
function FFI_GitHub_octokit($0) {
|
|
7072
|
-
return Prelude_Interfaces_x3cx24x3e(
|
|
7230
|
+
return Prelude_Interfaces_x3cx24x3e(csegen_85(), $5 => $5, $7 => FFI_GitHub_prim__octokit($0, $7));
|
|
7073
7231
|
}
|
|
7074
7232
|
|
|
7075
7233
|
function FFI_GitHub_listTeams($0, $1) {
|
|
7076
|
-
return Prelude_Interfaces_x3cx24x3e(
|
|
7234
|
+
return Prelude_Interfaces_x3cx24x3e(csegen_103(), $6 => Data_String_lines($6), $a => $b => FFI_promiseIO($e => $f => $10 => FFI_GitHub_prim__listTeams($0, $1, $e, $f, $10), $a, $b));
|
|
7077
7235
|
}
|
|
7078
7236
|
|
|
7079
7237
|
function FFI_GitHub_listTeamMembers($0, $1, $2) {
|
|
7080
|
-
return Prelude_Interfaces_x3cx24x3e(
|
|
7238
|
+
return Prelude_Interfaces_x3cx24x3e(csegen_103(), $7 => Data_String_lines($7), $b => $c => FFI_promiseIO($f => $10 => $11 => FFI_GitHub_prim__listTeamMembers($0, $1, $2, $f, $10, $11), $b, $c));
|
|
7081
7239
|
}
|
|
7082
7240
|
|
|
7083
7241
|
function FFI_GitHub_listPullReviewsJsonStr($0, $1, $2, $3, $4, $5) {
|
|
@@ -7092,23 +7250,23 @@ function FFI_GitHub_listPullRequestsJsonStr($0, $1, $2, $3, $4, $5) {
|
|
|
7092
7250
|
}
|
|
7093
7251
|
|
|
7094
7252
|
function FFI_GitHub_listPullRequests($0, $1, $2, $3, $4, $5) {
|
|
7095
|
-
return Prelude_Interfaces_x3dx3cx3c(
|
|
7253
|
+
return Prelude_Interfaces_x3dx3cx3c(csegen_15(), csegen_479(), FFI_GitHub_listPullRequestsJsonStr($0, $1, $2, $3, $4, $5));
|
|
7096
7254
|
}
|
|
7097
7255
|
|
|
7098
7256
|
function FFI_GitHub_listPRsForBranch($0, $1, $2, $3) {
|
|
7099
|
-
return Prelude_Interfaces_x3dx3cx3c(
|
|
7257
|
+
return Prelude_Interfaces_x3dx3cx3c(csegen_15(), csegen_479(), $a => $b => FFI_promiseIO($e => $f => $10 => FFI_GitHub_prim__listPRsForBranch($0, $1, $2, $3, $e, $f, $10), $a, $b));
|
|
7100
7258
|
}
|
|
7101
7259
|
|
|
7102
7260
|
function FFI_GitHub_listOrgMembers($0, $1) {
|
|
7103
|
-
return Prelude_Interfaces_x3cx24x3e(
|
|
7261
|
+
return Prelude_Interfaces_x3cx24x3e(csegen_103(), $6 => Data_String_lines($6), $a => $b => FFI_promiseIO($e => $f => $10 => FFI_GitHub_prim__listOrgMembers($0, $1, $e, $f, $10), $a, $b));
|
|
7104
7262
|
}
|
|
7105
7263
|
|
|
7106
7264
|
function FFI_GitHub_getUser($0) {
|
|
7107
|
-
return Prelude_Interfaces_x3cx3dx3c(
|
|
7265
|
+
return Prelude_Interfaces_x3cx3dx3c(csegen_15(), csegen_480(), $7 => $8 => $9 => FFI_promiseIO($c => $d => $e => FFI_GitHub_prim__getUser($0, $7, $c, $d, $e), $8, $9));
|
|
7108
7266
|
}
|
|
7109
7267
|
|
|
7110
7268
|
function FFI_GitHub_getSelf($0) {
|
|
7111
|
-
return Prelude_Interfaces_x3dx3cx3c(
|
|
7269
|
+
return Prelude_Interfaces_x3dx3cx3c(csegen_15(), csegen_480(), $7 => $8 => FFI_promiseIO($b => $c => $d => FFI_GitHub_prim__getSelf($0, $b, $c, $d), $7, $8));
|
|
7112
7270
|
}
|
|
7113
7271
|
|
|
7114
7272
|
function FFI_GitHub_getRepoDefaultBranch($0, $1, $2, $3, $4) {
|
|
@@ -7116,7 +7274,7 @@ function FFI_GitHub_getRepoDefaultBranch($0, $1, $2, $3, $4) {
|
|
|
7116
7274
|
}
|
|
7117
7275
|
|
|
7118
7276
|
function FFI_GitHub_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
7119
|
-
return Prelude_Interfaces_x3dx3cx3c(
|
|
7277
|
+
return Prelude_Interfaces_x3dx3cx3c(csegen_15(), $b => $c => $d => Data_Promise_either(csegen_115(), Data_PullRequest_parsePullRequestString($b), $c, $d), $17 => $18 => FFI_promiseIO($1b => $1c => $1d => FFI_GitHub_prim__createPR($0, $1, $2, $3, $4, $5, $6, $1b, $1c, $1d), $17, $18));
|
|
7120
7278
|
}
|
|
7121
7279
|
|
|
7122
7280
|
function FFI_GitHub_createComment($0, $1, $2, $3, $4, $5, $6) {
|
|
@@ -7124,7 +7282,7 @@ function FFI_GitHub_createComment($0, $1, $2, $3, $4, $5, $6) {
|
|
|
7124
7282
|
}
|
|
7125
7283
|
|
|
7126
7284
|
function FFI_GitHub_addPullReviewers($0, $1, $2, $3, $4, $5) {
|
|
7127
|
-
return Prelude_Interfaces_x3cx24x3e(
|
|
7285
|
+
return Prelude_Interfaces_x3cx24x3e(csegen_103(), $a => Data_String_lines($a), $e => $f => FFI_promiseIO($12 => $13 => $14 => FFI_GitHub_prim__addPullReviewers($0, $1, $2, $3, Data_String_Extra_join(',', csegen_77(), $4), Data_String_Extra_join(',', csegen_77(), $5), $12, $13, $14), $e, $f));
|
|
7128
7286
|
}
|
|
7129
7287
|
|
|
7130
7288
|
function FFI_promiseIO($0, $1, $2) {
|
|
@@ -7157,7 +7315,7 @@ function Data_Promise_x3cx7cx3e_Alternative_Promise($0, $1, $2, $3) {
|
|
|
7157
7315
|
}
|
|
7158
7316
|
|
|
7159
7317
|
function Data_Promise_x3cx2ax3e_Applicative_Promise($0, $1, $2, $3) {
|
|
7160
|
-
return Data_Promise_bind($0, f => Prelude_Interfaces_x3cx24x3e(
|
|
7318
|
+
return Data_Promise_bind($0, f => Prelude_Interfaces_x3cx24x3e(csegen_3(), f, $1), $2, $3);
|
|
7161
7319
|
}
|
|
7162
7320
|
|
|
7163
7321
|
function Data_Promise_resolvex27($0, $1, $2) {
|
|
@@ -7202,8 +7360,8 @@ function Data_User_parseUserString($0) {
|
|
|
7202
7360
|
}
|
|
7203
7361
|
};
|
|
7204
7362
|
const $3 = {a1: $4, a2: a => $c => ({h: 1, a1: $c}), a3: $e};
|
|
7205
|
-
const $2 = {a1: $3, a2:
|
|
7206
|
-
return Prelude_Interfaces_x3ex3dx3e($2,
|
|
7363
|
+
const $2 = {a1: $3, a2: csegen_275(), a3: csegen_276()};
|
|
7364
|
+
return Prelude_Interfaces_x3ex3dx3e($2, csegen_277(), $1f => Data_User_parseUser($1f), $0);
|
|
7207
7365
|
}
|
|
7208
7366
|
|
|
7209
7367
|
function Data_User_parseUser($0) {
|
|
@@ -7250,7 +7408,7 @@ function Data_Review_parseReview($0) {
|
|
|
7250
7408
|
}
|
|
7251
7409
|
};
|
|
7252
7410
|
const $20 = {a1: $21, a2: a => $29 => ({h: 1, a1: $29}), a3: $2b};
|
|
7253
|
-
const $1f = {a1: $20, a2:
|
|
7411
|
+
const $1f = {a1: $20, a2: csegen_275(), a3: csegen_276()};
|
|
7254
7412
|
const $1d = Prelude_Interfaces_x3dx3cx3c($1f, $3a => Data_Review_parseState($3a), Language_JSON_Accessors_string($12.a2.a1));
|
|
7255
7413
|
const $40 = state => {
|
|
7256
7414
|
const $46 = b => a => func => $47 => {
|
|
@@ -7271,7 +7429,7 @@ function Data_Review_parseReview($0) {
|
|
|
7271
7429
|
}
|
|
7272
7430
|
};
|
|
7273
7431
|
const $45 = {a1: $46, a2: a => $4e => ({h: 1, a1: $4e}), a3: $50};
|
|
7274
|
-
const $44 = {a1: $45, a2:
|
|
7432
|
+
const $44 = {a1: $45, a2: csegen_275(), a3: csegen_276()};
|
|
7275
7433
|
const $42 = Prelude_Interfaces_x3dx3cx3c($44, $5f => Data_Review_parseDateTime($5f), Language_JSON_Accessors_string($12.a2.a2.a1));
|
|
7276
7434
|
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($42, submittedAt => ({h: 1, a1: {a1: submittedAt, a2: author, a3: state}}));
|
|
7277
7435
|
};
|
|
@@ -7292,7 +7450,7 @@ function Data_Review_isAuthor($0, $1) {
|
|
|
7292
7450
|
return Prelude_EqOrd_x3dx3d_Eq_String($1.a2, $0);
|
|
7293
7451
|
}
|
|
7294
7452
|
|
|
7295
|
-
function
|
|
7453
|
+
function Data_Date_n__4075_9411_parseNat($0, $1, $2) {
|
|
7296
7454
|
switch($2) {
|
|
7297
7455
|
case '0': return {a1: 0n};
|
|
7298
7456
|
case '1': return {a1: 1n};
|
|
@@ -7308,14 +7466,14 @@ function Data_Date_n__3558_7504_parseNat($0, $1, $2) {
|
|
|
7308
7466
|
}
|
|
7309
7467
|
}
|
|
7310
7468
|
|
|
7311
|
-
function
|
|
7469
|
+
function Data_Date_n__3685_9059_pad($0, $1, $2, $3) {
|
|
7312
7470
|
switch(Prelude_Types_x3c_Ord_Nat($3, Prelude_Types_prim__integerToNat(10n))) {
|
|
7313
|
-
case 1: return Prelude_Interfaces_concat(
|
|
7471
|
+
case 1: return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: '0', a2: {a1: Prelude_Show_show_Show_Nat($3), a2: {h: 0}}});
|
|
7314
7472
|
case 0: return Prelude_Show_show_Show_Nat($3);
|
|
7315
7473
|
}
|
|
7316
7474
|
}
|
|
7317
7475
|
|
|
7318
|
-
function
|
|
7476
|
+
function Data_Date_n__4192_9528_guardSuccess($0) {
|
|
7319
7477
|
switch($0.h) {
|
|
7320
7478
|
case undefined: {
|
|
7321
7479
|
switch($0.a1.h) {
|
|
@@ -7323,7 +7481,7 @@ function Data_Date_n__3675_7621_guardSuccess($0) {
|
|
|
7323
7481
|
switch($0.a2.h) {
|
|
7324
7482
|
case undefined: {
|
|
7325
7483
|
switch($0.a2.a2.h) {
|
|
7326
|
-
case undefined: return Prelude_Interfaces_x3cx24x3e(
|
|
7484
|
+
case undefined: return Prelude_Interfaces_x3cx24x3e(csegen_18(), $9 => ({a1: $0.a2.a1, a2: $0.a2.a2.a1, a3: $9}), Data_Date_parsePositiveReversed($0.a2.a2.a2));
|
|
7327
7485
|
default: return {h: 0};
|
|
7328
7486
|
}
|
|
7329
7487
|
}
|
|
@@ -7337,7 +7495,7 @@ function Data_Date_n__3675_7621_guardSuccess($0) {
|
|
|
7337
7495
|
}
|
|
7338
7496
|
}
|
|
7339
7497
|
|
|
7340
|
-
function
|
|
7498
|
+
function Data_Date_n__4192_9529_go($0, $1) {
|
|
7341
7499
|
switch($0.a1.h) {
|
|
7342
7500
|
case 4: return {a1: {h: 4}, a2: undefined};
|
|
7343
7501
|
case 0: {
|
|
@@ -7395,7 +7553,7 @@ function Data_Date_n__3675_7622_go($0, $1) {
|
|
|
7395
7553
|
}
|
|
7396
7554
|
|
|
7397
7555
|
function Data_Date_show_Show_Date($0) {
|
|
7398
|
-
return Prelude_Interfaces_concat(
|
|
7556
|
+
return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: Prelude_Show_show_Show_Nat($0.a1), a2: {a1: '-', a2: {a1: Data_Date_n__3685_9059_pad($0.a3, $0.a2, $0.a1, $0.a2), a2: {a1: '-', a2: {a1: Data_Date_n__3685_9059_pad($0.a3, $0.a2, $0.a1, $0.a3), a2: {h: 0}}}}}});
|
|
7399
7557
|
}
|
|
7400
7558
|
|
|
7401
7559
|
function Data_Date_min_Ord_Date($0, $1) {
|
|
@@ -7454,7 +7612,7 @@ function Data_Date_x2fx3d_Eq_Date($0, $1) {
|
|
|
7454
7612
|
function Data_Date_parsePositiveReversed($0) {
|
|
7455
7613
|
switch($0.h) {
|
|
7456
7614
|
case 0: return {a1: 0n};
|
|
7457
|
-
case undefined: return Prelude_Types_x3ex3ex3d_Monad_Maybe(
|
|
7615
|
+
case undefined: return Prelude_Types_x3ex3ex3d_Monad_Maybe(Data_Date_n__4075_9411_parseNat($0.a1, $0.a2, $0.a1), n => Prelude_Types_x3ex3ex3d_Monad_Maybe(Data_Date_parsePositiveReversed($0.a2), $f => ({a1: (n+(Prelude_Types_prim__integerToNat(10n)*$f))})));
|
|
7458
7616
|
}
|
|
7459
7617
|
}
|
|
7460
7618
|
|
|
@@ -7465,7 +7623,7 @@ function Data_Date_parseDateTimeString($0) {
|
|
|
7465
7623
|
}
|
|
7466
7624
|
|
|
7467
7625
|
function Data_Date_parseDateString($0) {
|
|
7468
|
-
return
|
|
7626
|
+
return Data_Date_n__4192_9528_guardSuccess(Prelude_Types_foldl_Foldable_List($5 => $6 => Data_Date_n__4192_9529_go($5, $6), {a1: {h: 0}, a2: undefined}, Prelude_Types_fastUnpack($0)));
|
|
7469
7627
|
}
|
|
7470
7628
|
|
|
7471
7629
|
function Data_PullRequest_show_Show_PRState($0) {
|
|
@@ -7494,14 +7652,14 @@ function Data_PullRequest_x3dx3d_Eq_PRState($0, $1) {
|
|
|
7494
7652
|
}
|
|
7495
7653
|
|
|
7496
7654
|
function Data_PullRequest_rf__webURI($0, $1) {
|
|
7497
|
-
return Prelude_Interfaces_concat(
|
|
7655
|
+
return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'https://github.com/', a2: {a1: $0.a2, a2: {a1: '/', a2: {a1: $0.a3, a2: {a1: '/pull/', a2: {a1: Prelude_Show_show_Show_Integer($1.a1), a2: {h: 0}}}}}}});
|
|
7498
7656
|
}
|
|
7499
7657
|
|
|
7500
7658
|
function Data_PullRequest_parseState($0) {
|
|
7501
7659
|
switch($0) {
|
|
7502
7660
|
case 'open': return {h: 1, a1: 0};
|
|
7503
7661
|
case 'closed': return {h: 1, a1: 1};
|
|
7504
|
-
default: return {h: 0, a1: Prelude_Interfaces_concat(
|
|
7662
|
+
default: return {h: 0, a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Failed to parse a Pull Request State (open/closed). Found ', a2: {a1: $0, a2: {a1: '.', a2: {h: 0}}}})};
|
|
7505
7663
|
}
|
|
7506
7664
|
}
|
|
7507
7665
|
|
|
@@ -7524,8 +7682,8 @@ function Data_PullRequest_parsePullRequestsString($0) {
|
|
|
7524
7682
|
}
|
|
7525
7683
|
};
|
|
7526
7684
|
const $3 = {a1: $4, a2: a => $c => ({h: 1, a1: $c}), a3: $e};
|
|
7527
|
-
const $2 = {a1: $3, a2:
|
|
7528
|
-
return Prelude_Interfaces_x3ex3dx3e($2,
|
|
7685
|
+
const $2 = {a1: $3, a2: csegen_275(), a3: csegen_276()};
|
|
7686
|
+
return Prelude_Interfaces_x3ex3dx3e($2, csegen_277(), csegen_434(), $0);
|
|
7529
7687
|
}
|
|
7530
7688
|
|
|
7531
7689
|
function Data_PullRequest_parsePullRequestString($0) {
|
|
@@ -7547,65 +7705,65 @@ function Data_PullRequest_parsePullRequestString($0) {
|
|
|
7547
7705
|
}
|
|
7548
7706
|
};
|
|
7549
7707
|
const $3 = {a1: $4, a2: a => $c => ({h: 1, a1: $c}), a3: $e};
|
|
7550
|
-
const $2 = {a1: $3, a2:
|
|
7551
|
-
return Prelude_Interfaces_x3ex3dx3e($2,
|
|
7708
|
+
const $2 = {a1: $3, a2: csegen_275(), a3: csegen_276()};
|
|
7709
|
+
return Prelude_Interfaces_x3ex3dx3e($2, csegen_277(), $1f => Data_PullRequest_parsePR($1f), $0);
|
|
7552
7710
|
}
|
|
7553
7711
|
|
|
7554
7712
|
function Data_PullRequest_parsePR($0) {
|
|
7555
7713
|
const $5 = pr => {
|
|
7556
|
-
const $
|
|
7557
|
-
const $
|
|
7558
|
-
const $
|
|
7559
|
-
const $
|
|
7560
|
-
switch($
|
|
7561
|
-
case 0: return {h: 0, a1: $
|
|
7562
|
-
case 1: return {h: 1, a1: func($
|
|
7714
|
+
const $17 = $18 => {
|
|
7715
|
+
const $24 = number => {
|
|
7716
|
+
const $29 = author => {
|
|
7717
|
+
const $2f = b => a => func => $30 => {
|
|
7718
|
+
switch($30.h) {
|
|
7719
|
+
case 0: return {h: 0, a1: $30.a1};
|
|
7720
|
+
case 1: return {h: 1, a1: func($30.a1)};
|
|
7563
7721
|
}
|
|
7564
7722
|
};
|
|
7565
|
-
const $
|
|
7566
|
-
switch($
|
|
7567
|
-
case 0: return {h: 0, a1: $
|
|
7723
|
+
const $39 = b => a => $3a => $3b => {
|
|
7724
|
+
switch($3a.h) {
|
|
7725
|
+
case 0: return {h: 0, a1: $3a.a1};
|
|
7568
7726
|
case 1: {
|
|
7569
|
-
switch($
|
|
7570
|
-
case 1: return {h: 1, a1: $
|
|
7571
|
-
case 0: return {h: 0, a1: $
|
|
7727
|
+
switch($3b.h) {
|
|
7728
|
+
case 1: return {h: 1, a1: $3a.a1($3b.a1)};
|
|
7729
|
+
case 0: return {h: 0, a1: $3b.a1};
|
|
7572
7730
|
}
|
|
7573
7731
|
}
|
|
7574
7732
|
}
|
|
7575
7733
|
};
|
|
7576
|
-
const $
|
|
7577
|
-
const $
|
|
7578
|
-
const $
|
|
7579
|
-
const $
|
|
7580
|
-
const $
|
|
7581
|
-
switch($
|
|
7582
|
-
case 0: return {h: 0, a1: $
|
|
7583
|
-
case 1: return {h: 1, a1: func($
|
|
7734
|
+
const $2e = {a1: $2f, a2: a => $37 => ({h: 1, a1: $37}), a3: $39};
|
|
7735
|
+
const $2d = {a1: $2e, a2: csegen_275(), a3: csegen_276()};
|
|
7736
|
+
const $2b = Prelude_Interfaces_x3dx3cx3c($2d, $48 => Data_PullRequest_parseState($48), Language_JSON_Accessors_string($18.a2.a2.a1));
|
|
7737
|
+
const $4e = state => {
|
|
7738
|
+
const $54 = b => a => func => $55 => {
|
|
7739
|
+
switch($55.h) {
|
|
7740
|
+
case 0: return {h: 0, a1: $55.a1};
|
|
7741
|
+
case 1: return {h: 1, a1: func($55.a1)};
|
|
7584
7742
|
}
|
|
7585
7743
|
};
|
|
7586
|
-
const $
|
|
7587
|
-
switch($
|
|
7588
|
-
case 0: return {h: 0, a1: $
|
|
7744
|
+
const $5e = b => a => $5f => $60 => {
|
|
7745
|
+
switch($5f.h) {
|
|
7746
|
+
case 0: return {h: 0, a1: $5f.a1};
|
|
7589
7747
|
case 1: {
|
|
7590
|
-
switch($
|
|
7591
|
-
case 1: return {h: 1, a1: $
|
|
7592
|
-
case 0: return {h: 0, a1: $
|
|
7748
|
+
switch($60.h) {
|
|
7749
|
+
case 1: return {h: 1, a1: $5f.a1($60.a1)};
|
|
7750
|
+
case 0: return {h: 0, a1: $60.a1};
|
|
7593
7751
|
}
|
|
7594
7752
|
}
|
|
7595
7753
|
}
|
|
7596
7754
|
};
|
|
7597
|
-
const $
|
|
7598
|
-
const $
|
|
7599
|
-
const $
|
|
7600
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($
|
|
7755
|
+
const $53 = {a1: $54, a2: a => $5c => ({h: 1, a1: $5c}), a3: $5e};
|
|
7756
|
+
const $52 = {a1: $53, a2: csegen_275(), a3: csegen_276()};
|
|
7757
|
+
const $50 = Prelude_Interfaces_x3dx3cx3c($52, $6d => Data_PullRequest_parseDateTime($6d), Language_JSON_Accessors_string($18.a2.a2.a2.a1));
|
|
7758
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($50, createdAt => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($78 => Language_JSON_Accessors_string($78), $18.a2.a2.a2.a2.a1), reviewers => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($18.a2.a2.a2.a2.a2.a1), headRef => ({h: 1, a1: {a1: number, a2: createdAt, a3: author, a4: state, a5: reviewers, a6: headRef}}))));
|
|
7601
7759
|
};
|
|
7602
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($
|
|
7760
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($2b, $4e);
|
|
7603
7761
|
};
|
|
7604
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($
|
|
7762
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($18.a2.a1), $29);
|
|
7605
7763
|
};
|
|
7606
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($
|
|
7764
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($18.a1), $24);
|
|
7607
7765
|
};
|
|
7608
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'pull_number', a2: {a1: 'author', a2: {a1: 'state', a2: {a1: 'created_at', a2: {a1: 'reviewers', a2: {h: 0}}}}}}, pr), $
|
|
7766
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'pull_number', a2: {a1: 'author', a2: {a1: 'state', a2: {a1: 'created_at', a2: {a1: 'reviewers', a2: {a1: 'head_ref', a2: {h: 0}}}}}}}, pr), $17);
|
|
7609
7767
|
};
|
|
7610
7768
|
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), $5);
|
|
7611
7769
|
}
|
|
@@ -7615,14 +7773,14 @@ function Data_PullRequest_parseDateTime($0) {
|
|
|
7615
7773
|
}
|
|
7616
7774
|
|
|
7617
7775
|
function Data_PullRequest_isRequestedReviewer($0, $1) {
|
|
7618
|
-
return Prelude_Interfaces_any(
|
|
7776
|
+
return Prelude_Interfaces_any(csegen_77(), $6 => Prelude_EqOrd_x3dx3d_Eq_String($6, $0), $1.a5);
|
|
7619
7777
|
}
|
|
7620
7778
|
|
|
7621
7779
|
function Data_PullRequest_isAuthor($0, $1) {
|
|
7622
7780
|
return Prelude_EqOrd_x3dx3d_Eq_String($1.a3, $0);
|
|
7623
7781
|
}
|
|
7624
7782
|
|
|
7625
|
-
function
|
|
7783
|
+
function FFI_Git_case__remoteTrackingBranch_1746($0, $1, $2) {
|
|
7626
7784
|
switch($1) {
|
|
7627
7785
|
case '': {
|
|
7628
7786
|
switch($2.h) {
|
|
@@ -7639,7 +7797,7 @@ function FFI_Git_remoteURI($0, $1, $2, $3) {
|
|
|
7639
7797
|
}
|
|
7640
7798
|
|
|
7641
7799
|
function FFI_Git_remoteTrackingBranch($0, $1, $2) {
|
|
7642
|
-
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(
|
|
7800
|
+
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_1746($0, str, Data_String_strM(str)), $14, $15), $1, $2);
|
|
7643
7801
|
}
|
|
7644
7802
|
|
|
7645
7803
|
function FFI_Git_pushNewBranch($0, $1, $2, $3, $4) {
|
|
@@ -7654,7 +7812,11 @@ function FFI_Git_currentBranch($0, $1, $2) {
|
|
|
7654
7812
|
return FFI_promiseIO($5 => $6 => $7 => FFI_Git_prim__currentBranch($0, $5, $6, $7), $1, $2);
|
|
7655
7813
|
}
|
|
7656
7814
|
|
|
7657
|
-
function
|
|
7815
|
+
function FFI_Git_checkoutBranch($0, $1, $2, $3) {
|
|
7816
|
+
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);
|
|
7817
|
+
}
|
|
7818
|
+
|
|
7819
|
+
function FFI_Concurrency_n__3897_7062_both($0, $1, $2, $3, $4) {
|
|
7658
7820
|
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($13 => FFI_Concurrency_prim__singleton($3, $13)))(xx27 => $0.a1.a2(undefined)(undefined)($0.a1.a2(undefined)(undefined)($4)($2b => $0.a2(undefined)($31 => FFI_Concurrency_prim__both(xx27, $2b, $31))))(nested => $0.a2(undefined)($3c => FFI_Concurrency_prim__flatten(nested, $3c))));
|
|
7659
7821
|
}
|
|
7660
7822
|
|
|
@@ -7664,14 +7826,14 @@ function FFI_Concurrency_promiseAll($0, $1, $2, $3) {
|
|
|
7664
7826
|
const $3c = $3d => $3e => $3f => {
|
|
7665
7827
|
switch($3d.h) {
|
|
7666
7828
|
case 4: return Data_Promise_pure_Applicative_Promise($3d.a1, $3e, $3f);
|
|
7667
|
-
default: return Data_Promise_reject(Prelude_Interfaces_concat(
|
|
7829
|
+
default: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Expected a JSON array from futures but got ', a2: {a1: Language_JSON_Data_show_Show_JSON($3d), a2: {a1: '.', a2: {h: 0}}}}), $3e, $3f);
|
|
7668
7830
|
}
|
|
7669
7831
|
};
|
|
7670
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($25 => $26 => Data_Promise_either(
|
|
7832
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($25 => $26 => Data_Promise_either(csegen_115(), Data_Either_maybeToEither(() => Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Failed to parse JSON from ', a2: {a1: str, a2: {h: 0}}}), Language_JSON_parse(str)), $25, $26), $3c, $21, $22);
|
|
7671
7833
|
};
|
|
7672
7834
|
return Data_Promise_x3ex3ex3d_Monad_Promise($10 => $11 => Data_Promise_promisify(ok => err => $14 => FFI_Concurrency_prim__awaitStringify(f, x => ok(x), y => err(y), $14), $10, $11), $20, $c, $d);
|
|
7673
7835
|
};
|
|
7674
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_Concurrency_all(
|
|
7836
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_Concurrency_all(csegen_21(), $0, $1), $b, $2, $3);
|
|
7675
7837
|
}
|
|
7676
7838
|
|
|
7677
7839
|
function FFI_Concurrency_fork($0, $1) {
|
|
@@ -7679,26 +7841,26 @@ function FFI_Concurrency_fork($0, $1) {
|
|
|
7679
7841
|
}
|
|
7680
7842
|
|
|
7681
7843
|
function FFI_Concurrency_all($0, $1, $2) {
|
|
7682
|
-
return $1.a1(undefined)(undefined)($c => $d =>
|
|
7844
|
+
return $1.a1(undefined)(undefined)($c => $d => FFI_Concurrency_n__3897_7062_both($0, $1, $2, $c, $d))($0.a2(undefined)($1a => FFI_Concurrency_prim__neutral($1a)))($2);
|
|
7683
7845
|
}
|
|
7684
7846
|
|
|
7685
|
-
function
|
|
7847
|
+
function Data_Pagination_with__metaPagesx27_5846($0, $1, $2, $3, $4, $5, $6) {
|
|
7686
7848
|
const $7 = $8 => Data_Pagination_divNatNZLemma($0, $1, $6);
|
|
7687
7849
|
return Data_Pagination_pagesHelper(0n, $0, $3, $7(undefined), $5);
|
|
7688
7850
|
}
|
|
7689
7851
|
|
|
7690
|
-
function
|
|
7852
|
+
function Data_Pagination_with__withx20blockx20inx20divNatNZLemma_5787($0, $1, $2, $3, $4, $5) {
|
|
7691
7853
|
return Prelude_Uninhabited_absurd($8 => $8, $3((Data_Nat_lteReflectsLTE(($0+1n), $1, $4)+1n)));
|
|
7692
7854
|
}
|
|
7693
7855
|
|
|
7694
|
-
function
|
|
7856
|
+
function Data_Pagination_with__divNatNZLemma_5769($0, $1, $2, $3, $4, $5) {
|
|
7695
7857
|
switch($2) {
|
|
7696
7858
|
case 0: return 1n;
|
|
7697
|
-
case 1: return
|
|
7859
|
+
case 1: return Data_Pagination_with__withx20blockx20inx20divNatNZLemma_5787($1, $0, $5, $c => Data_Nat_LTEImpliesNotGT($5, $c), $3, undefined);
|
|
7698
7860
|
}
|
|
7699
7861
|
}
|
|
7700
7862
|
|
|
7701
|
-
function
|
|
7863
|
+
function Data_Pagination_with__pagesHelper_5611($0, $1, $2, $3, $4, $5) {
|
|
7702
7864
|
switch($2.h) {
|
|
7703
7865
|
case 0: {
|
|
7704
7866
|
const $7 = Data_Pagination_lemma($0, $1, $2.a1);
|
|
@@ -7708,16 +7870,16 @@ function Data_Pagination_with__pagesHelper_4159($0, $1, $2, $3, $4, $5) {
|
|
|
7708
7870
|
}
|
|
7709
7871
|
}
|
|
7710
7872
|
|
|
7711
|
-
function
|
|
7712
|
-
return {h: 0, a1: $7, a2: $1, a3: $0, a4: $
|
|
7873
|
+
function Data_Pagination_with__nonTerminalPage_5590($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
7874
|
+
return {h: 0, a1: $7, a2: $1, a3: $0, a4: $5, a5: $6, a6: undefined, a7: Data_Pagination_pagesHelper(($7+1n), $0, $1, $6, $5)};
|
|
7713
7875
|
}
|
|
7714
7876
|
|
|
7715
|
-
function
|
|
7877
|
+
function Data_Pagination_with__lemma_5493($0, $1, $2, $3, $4) {
|
|
7716
7878
|
return {a1: ($3.a1+1n), a2: {a1: undefined, a2: 1n}};
|
|
7717
7879
|
}
|
|
7718
7880
|
|
|
7719
7881
|
function Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($0) {
|
|
7720
|
-
return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(
|
|
7882
|
+
return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(csegen_223(), {h: 0}, $0);
|
|
7721
7883
|
}
|
|
7722
7884
|
|
|
7723
7885
|
function Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($0) {
|
|
@@ -7732,7 +7894,7 @@ function Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24p
|
|
|
7732
7894
|
}
|
|
7733
7895
|
|
|
7734
7896
|
function Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($0, $1, $2) {
|
|
7735
|
-
return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($6 => $7 => Prelude_Basics_flip(
|
|
7897
|
+
return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($6 => $7 => Prelude_Basics_flip(csegen_224(), $c => Prelude_Basics_flip($0, $6, $c), $7), $13 => $13, $2)($1);
|
|
7736
7898
|
}
|
|
7737
7899
|
|
|
7738
7900
|
function Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($0, $1, $2, $3) {
|
|
@@ -7751,15 +7913,15 @@ function Data_Pagination_traversex27($0, $1, $2) {
|
|
|
7751
7913
|
}
|
|
7752
7914
|
|
|
7753
7915
|
function Data_Pagination_pagesHelper($0, $1, $2, $3, $4) {
|
|
7754
|
-
return
|
|
7916
|
+
return Data_Pagination_with__pagesHelper_5611($2, $1, Data_Nat_isLT($2, $1), $3, $4, $0);
|
|
7755
7917
|
}
|
|
7756
7918
|
|
|
7757
7919
|
function Data_Pagination_nonTerminalPage($0, $1, $2, $3, $4, $5) {
|
|
7758
|
-
return
|
|
7920
|
+
return Data_Pagination_with__nonTerminalPage_5590($0, $3, $2, undefined, undefined, $5, $4, $1);
|
|
7759
7921
|
}
|
|
7760
7922
|
|
|
7761
7923
|
function Data_Pagination_metaPagesx27($0, $1, $2, $3) {
|
|
7762
|
-
return
|
|
7924
|
+
return Data_Pagination_with__metaPagesx27_5846($0, $1, undefined, Data_Nat_divNatNZ($0, $1), undefined, $2, $3);
|
|
7763
7925
|
}
|
|
7764
7926
|
|
|
7765
7927
|
function Data_Pagination_metaPages($0, $1, $2, $3, $4) {
|
|
@@ -7779,7 +7941,7 @@ function Data_Pagination_lemma($0, $1, $2) {
|
|
|
7779
7941
|
case 0n: _crashExp('Nat case not covered');
|
|
7780
7942
|
default: {
|
|
7781
7943
|
const $8 = ($2-1n);
|
|
7782
|
-
return
|
|
7944
|
+
return Data_Pagination_with__lemma_5493($0, $4, $8, Data_Pagination_lemmax27($0, $4, $8), $1);
|
|
7783
7945
|
}
|
|
7784
7946
|
}
|
|
7785
7947
|
}
|
|
@@ -7800,7 +7962,7 @@ function Data_Pagination_divNatNZLemma($0, $1, $2) {
|
|
|
7800
7962
|
case 0n: _crashExp('Nat case not covered');
|
|
7801
7963
|
default: {
|
|
7802
7964
|
const $f = ($1-1n);
|
|
7803
|
-
return
|
|
7965
|
+
return Data_Pagination_with__divNatNZLemma_5769($f, $b, Data_Nat_lte(($b+1n), $f), undefined, undefined, $2);
|
|
7804
7966
|
}
|
|
7805
7967
|
}
|
|
7806
7968
|
}
|
|
@@ -7824,7 +7986,7 @@ function System_getEnv($0, $1) {
|
|
|
7824
7986
|
function System_getArgs($0) {
|
|
7825
7987
|
const $12 = n => {
|
|
7826
7988
|
switch(Prelude_EqOrd_x3e_Ord_Int(n, Number(_truncBigInt32(0n)))) {
|
|
7827
|
-
case 1: return Prelude_Interfaces_for($0.a1.a1, {a1: b => a => func => $1e => Prelude_Types_map_Functor_List(func, $1e), a2:
|
|
7989
|
+
case 1: return Prelude_Interfaces_for($0.a1.a1, {a1: b => a => func => $1e => Prelude_Types_map_Functor_List(func, $1e), a2: csegen_77(), a3: b => a => f => $25 => $26 => $27 => Prelude_Types_traverse_Traversable_List($25, $26, $27)}, Prelude_Types_rangeFromTo_Range_x24a({a1: {a1: csegen_513(), a2: $33 => $34 => Prelude_Num_div_Integral_Int($33, $34), a3: $39 => $3a => Prelude_Num_mod_Integral_Int($39, $3a)}, a2: {a1: csegen_291(), a2: {a1: csegen_513(), a2: $45 => _sub32s(0, $45), a3: $49 => $4a => _sub32s($49, $4a)}}}, 0, _sub32s(n, 1)), $52 => $0.a2(undefined)($58 => System_prim__getArg($52, $58)));
|
|
7828
7990
|
case 0: return $0.a1.a1.a2(undefined)({h: 0});
|
|
7829
7991
|
}
|
|
7830
7992
|
};
|
|
@@ -7846,55 +8008,59 @@ function System_exitFailure($0) {
|
|
|
7846
8008
|
return System_exitWith($0, {a1: 1, a2: undefined});
|
|
7847
8009
|
}
|
|
7848
8010
|
|
|
7849
|
-
function
|
|
7850
|
-
return
|
|
8011
|
+
function Help_n__4274_1021_subcommand($0, $1) {
|
|
8012
|
+
return Help_n__4274_1019_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(5), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
|
|
7851
8013
|
}
|
|
7852
8014
|
|
|
7853
|
-
function
|
|
7854
|
-
return
|
|
8015
|
+
function Help_n__4274_1024_shell($0, $1) {
|
|
8016
|
+
return Help_n__4274_1019_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
|
|
7855
8017
|
}
|
|
7856
8018
|
|
|
7857
|
-
function
|
|
8019
|
+
function Help_n__4274_1020_option($0, $1) {
|
|
8020
|
+
return Help_n__4274_1019_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_bold(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
|
|
8021
|
+
}
|
|
8022
|
+
|
|
8023
|
+
function Help_n__4274_1019_maybeDecorate($0, $1, $2) {
|
|
7858
8024
|
switch($0) {
|
|
7859
8025
|
case 1: return Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString(Text_PrettyPrint_Prettyprinter_Doc_layoutPretty(Text_PrettyPrint_Prettyprinter_Doc_defaultLayoutOptions(), $1($2)));
|
|
7860
8026
|
case 0: return $2;
|
|
7861
8027
|
}
|
|
7862
8028
|
}
|
|
7863
8029
|
|
|
7864
|
-
function
|
|
7865
|
-
return
|
|
8030
|
+
function Help_n__4274_1023_heading($0, $1) {
|
|
8031
|
+
return Help_n__4274_1019_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
|
|
7866
8032
|
}
|
|
7867
8033
|
|
|
7868
|
-
function
|
|
7869
|
-
return
|
|
8034
|
+
function Help_n__4274_1022_argument($0, $1) {
|
|
8035
|
+
return Help_n__4274_1019_maybeDecorate($0, csegen_402(), $1);
|
|
7870
8036
|
}
|
|
7871
8037
|
|
|
7872
8038
|
function Help_help($0) {
|
|
7873
|
-
return Prelude_Interfaces_concat(
|
|
8039
|
+
return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'harmony ', a2: {a1: Help_n__4274_1021_subcommand($0, '<subcommand>'), a2: {a1: '\n\n', a2: {a1: Help_n__4274_1023_heading($0, 'Subcommands'), a2: {a1: ':\n ', a2: {a1: Help_n__4274_1021_subcommand($0, 'help'), a2: {a1: '\n - Print help\n ', a2: {a1: Help_n__4274_1021_subcommand($0, 'version'), a2: {a1: '\n - Print version\n ', a2: {a1: Help_n__4274_1021_subcommand($0, 'config'), a2: {a1: ' {', a2: {a1: Help_n__4274_1022_argument($0, '<property>'), a2: {a1: '} [', a2: {a1: Help_n__4274_1022_argument($0, '<value>'), a2: {a1: ']\n - Get or set the value of a configuration property. Not all properties\n can be set and read via this subcommand.\n ', a2: {a1: Help_n__4274_1022_argument($0, 'properties'), a2: {a1: ': ', a2: {a1: Data_String_Extra_join(', ', csegen_77(), Prelude_Interfaces_x3cx24x3e(csegen_119(), $4b => Help_n__4274_1020_option($0, $4b), Data_Config_settableProps())), a2: {a1: '.\n ', a2: {a1: Help_n__4274_1021_subcommand($0, 'sync'), a2: {a1: '\n - Synchronize local config with information from GitHub.\n ', a2: {a1: Help_n__4274_1021_subcommand($0, 'branch'), a2: {a1: '\n - Print the GitHub URI for the currently checked out branch.\n ', a2: {a1: Help_n__4274_1021_subcommand($0, 'pr'), a2: {a1: '\n - Identify an existing PR or create a new one for the current branch.\n ', a2: {a1: Help_n__4274_1021_subcommand($0, 'contribute'), a2: {a1: ' [', a2: {a1: Help_n__4274_1022_argument($0, '-c/--checkout'), a2: {a1: '] [', a2: {a1: Help_n__4274_1022_argument($0, '-<num>'), a2: {a1: ']\n - Contribute to an open PR. Prints a URL. Prioritizes PRs you are\n requested to review but will also return other PRs.\n ', a2: {a1: Help_n__4274_1021_subcommand($0, 'reflect'), a2: {a1: '\n - Reflect on the current state of ones own PRs and review requests.\n ', a2: {a1: Help_n__4274_1021_subcommand($0, 'list'), a2: {a1: ' {', a2: {a1: Help_n__4274_1022_argument($0, '<team-slug>'), a2: {a1: '}\n - List the members of the given GitHub Team.\n ', a2: {a1: Help_n__4274_1021_subcommand($0, 'graph'), a2: {a1: ' {', a2: {a1: Help_n__4274_1022_argument($0, '<team-slug>'), a2: {a1: '}\n - Graph the relative review workload of the members of the given GitHub Team.\n ', a2: {a1: Help_n__4274_1021_subcommand($0, 'assign'), a2: {a1: ' {', a2: {a1: Help_n__4274_1022_argument($0, '<team-slug>'), a2: {a1: ' | ', a2: {a1: Help_n__4274_1022_argument($0, '+<user-login>'), a2: {a1: '} [...]\n - Assign the given team(s) and one lucky member from one of those teams\n to review the PR for the current branch.\n \n Also assign any users with logins specified. You specify these\n additional users by prefixing their logins with \'+\'.\n \n', a2: {a1: Help_n__4274_1023_heading($0, 'Bash Completion'), a2: {a1: ':\n You can set up bash completion by adding the following to your resource\n or bash profile:\n \n ', a2: {a1: Help_n__4274_1024_shell($0, 'eval \"$(harmony --bash-completion-script)\"'), a2: {a1: '\n \n Zsh users will also need to have the following in their resource or\n zsh profile before the above eval:\n \n ', a2: {a1: Help_n__4274_1024_shell($0, 'autoload -U +X compinit && compinit'), a2: {a1: '\n ', a2: {a1: Help_n__4274_1024_shell($0, 'autoload -U +X bashcompinit && bashcompinit'), a2: {a1: '\n ', a2: {h: 0}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}});
|
|
7874
8040
|
}
|
|
7875
8041
|
|
|
7876
|
-
function
|
|
8042
|
+
function Config_with__getConfig_5595($0, $1, $2, $3, $4) {
|
|
7877
8043
|
switch($1.h) {
|
|
7878
|
-
case 0: return Data_Promise_reject(Prelude_Interfaces_concat(
|
|
8044
|
+
case 0: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: $0, a2: {a1: ' cannot get read via `config` command.', a2: {h: 0}}}), $3, $4);
|
|
7879
8045
|
case undefined: return Data_Promise_pure_Applicative_Promise($1.a1($2), $3, $4);
|
|
7880
8046
|
}
|
|
7881
8047
|
}
|
|
7882
8048
|
|
|
7883
|
-
function
|
|
8049
|
+
function Config_with__withx20blockx20inx20setConfig_5494($0, $1, $2, $3, $4, $5) {
|
|
7884
8050
|
switch($3.h) {
|
|
7885
|
-
case 0: return $7 => Data_Promise_reject(Prelude_Interfaces_concat(
|
|
8051
|
+
case 0: return $7 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: $2, a2: {a1: ' is not a valid value for ', a2: {a1: $4, a2: {a1: '.', a2: {h: 0}}}}}), $5, $7);
|
|
7886
8052
|
case undefined: return $1a => Config_writeConfig($3.a1, $5, $1a);
|
|
7887
8053
|
}
|
|
7888
8054
|
}
|
|
7889
8055
|
|
|
7890
|
-
function
|
|
8056
|
+
function Config_with__setConfig_5466($0, $1, $2, $3) {
|
|
7891
8057
|
switch($1.h) {
|
|
7892
|
-
case 0: return $5 => $6 => Data_Promise_reject(Prelude_Interfaces_concat(
|
|
7893
|
-
case undefined: return $15 =>
|
|
8058
|
+
case 0: return $5 => $6 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: $0, a2: {a1: ' cannot be set via `config` command.', a2: {h: 0}}}), $5, $6);
|
|
8059
|
+
case undefined: return $15 => Config_with__withx20blockx20inx20setConfig_5494($1.a1, $3, $2, $1.a1($3)($2), $0, $15);
|
|
7894
8060
|
}
|
|
7895
8061
|
}
|
|
7896
8062
|
|
|
7897
|
-
function
|
|
8063
|
+
function Config_with__propSettersx2cparseBool_5272($0, $1) {
|
|
7898
8064
|
switch($1) {
|
|
7899
8065
|
case 'yes': return {a1: 1};
|
|
7900
8066
|
case 'true': return {a1: 1};
|
|
@@ -7904,14 +8070,14 @@ function Config_with__propSettersx2cparseBool_4221($0, $1) {
|
|
|
7904
8070
|
}
|
|
7905
8071
|
}
|
|
7906
8072
|
|
|
7907
|
-
function
|
|
8073
|
+
function Config_with__dropPrefixx27x2cdropx27_5088($0, $1, $2) {
|
|
7908
8074
|
switch($2.h) {
|
|
7909
8075
|
case 0: return {a1: $2.a1.a1};
|
|
7910
8076
|
case 1: return {h: 0};
|
|
7911
8077
|
}
|
|
7912
8078
|
}
|
|
7913
8079
|
|
|
7914
|
-
function
|
|
8080
|
+
function Config_case__parseGitHubURIx2cparseSuffix_5148($0, $1, $2) {
|
|
7915
8081
|
const $e = $f => {
|
|
7916
8082
|
switch($f.h) {
|
|
7917
8083
|
case undefined: {
|
|
@@ -7931,7 +8097,7 @@ function Config_case__parseGitHubURIx2cparseSuffix_4097($0, $1, $2) {
|
|
|
7931
8097
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split($9 => Prelude_EqOrd_x3dx3d_Eq_Char($9, '/'), $2.a1)}, $e);
|
|
7932
8098
|
}
|
|
7933
8099
|
|
|
7934
|
-
function
|
|
8100
|
+
function Config_n__5880_5646_yesUnlessNo($0, $1, $2, $3, $4) {
|
|
7935
8101
|
switch($4) {
|
|
7936
8102
|
case 'n': return 0;
|
|
7937
8103
|
case 'N': return 0;
|
|
@@ -7939,35 +8105,35 @@ function Config_n__5368_4595_yesUnlessNo($0, $1, $2, $3, $4) {
|
|
|
7939
8105
|
}
|
|
7940
8106
|
}
|
|
7941
8107
|
|
|
7942
|
-
function
|
|
8108
|
+
function Config_n__5524_5264_update($0, $1, $2, $3, $4) {
|
|
7943
8109
|
return $0(undefined)(undefined)($c => Prelude_Basics_flip($2, $3, $c))($1($4));
|
|
7944
8110
|
}
|
|
7945
8111
|
|
|
7946
|
-
function
|
|
7947
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
8112
|
+
function Config_n__5880_5648_repo($0, $1, $2, $3, $4) {
|
|
8113
|
+
return Prelude_Types_map_Functor_Maybe(csegen_528(), $4);
|
|
7948
8114
|
}
|
|
7949
8115
|
|
|
7950
|
-
function
|
|
7951
|
-
return
|
|
8116
|
+
function Config_n__5392_5127_parseSuffix($0, $1) {
|
|
8117
|
+
return Config_case__parseGitHubURIx2cparseSuffix_5148($0, $1, Data_String_break$($8 => Prelude_EqOrd_x3dx3d_Eq_Char($8, '.'), $1));
|
|
7952
8118
|
}
|
|
7953
8119
|
|
|
7954
|
-
function
|
|
7955
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
8120
|
+
function Config_n__5392_5129_parseSSH($0, $1) {
|
|
8121
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_42(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b => Config_n__5392_5127_parseSuffix($0, $b), $1);
|
|
7956
8122
|
}
|
|
7957
8123
|
|
|
7958
|
-
function
|
|
7959
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
8124
|
+
function Config_n__5392_5128_parseHTTPS($0, $1) {
|
|
8125
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_42(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b => Config_n__5392_5127_parseSuffix($0, $b), $1);
|
|
7960
8126
|
}
|
|
7961
8127
|
|
|
7962
|
-
function
|
|
7963
|
-
return
|
|
8128
|
+
function Config_n__5524_5263_parseBool($0) {
|
|
8129
|
+
return Config_with__propSettersx2cparseBool_5272($0, Data_String_toLower($0));
|
|
7964
8130
|
}
|
|
7965
8131
|
|
|
7966
|
-
function
|
|
7967
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
8132
|
+
function Config_n__5880_5647_org($0, $1, $2, $3, $4) {
|
|
8133
|
+
return Prelude_Types_map_Functor_Maybe(csegen_532(), $4);
|
|
7968
8134
|
}
|
|
7969
8135
|
|
|
7970
|
-
function
|
|
8136
|
+
function Config_n__5880_5645_orIfEmpty($0, $1, $2, $3, $4, $5) {
|
|
7971
8137
|
switch($4.h) {
|
|
7972
8138
|
case 0: return $5;
|
|
7973
8139
|
case undefined: {
|
|
@@ -7979,20 +8145,20 @@ function Config_n__5368_4594_orIfEmpty($0, $1, $2, $3, $4, $5) {
|
|
|
7979
8145
|
}
|
|
7980
8146
|
}
|
|
7981
8147
|
|
|
7982
|
-
function
|
|
8148
|
+
function Config_n__5218_4962_oneDayAgo($0, $1, $2) {
|
|
7983
8149
|
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(Prelude_Cast_cast_Cast_Integer_Bits32((now-86400n))));
|
|
7984
8150
|
}
|
|
7985
8151
|
|
|
7986
|
-
function
|
|
7987
|
-
return Prelude_Interfaces_concat(
|
|
8152
|
+
function Config_n__5880_5649_enterForDefaultStr($0, $1, $2, $3, $4) {
|
|
8153
|
+
return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' (ENTER for default: ', a2: {a1: $4, a2: {a1: ')', a2: {h: 0}}}});
|
|
7988
8154
|
}
|
|
7989
8155
|
|
|
7990
|
-
function
|
|
7991
|
-
return
|
|
8156
|
+
function Config_n__5345_5080_dropx27($0, $1) {
|
|
8157
|
+
return Config_with__dropPrefixx27x2cdropx27_5088($0, $1, Data_List_PrefixSuffix_dropPrefix($8 => $9 => Decidable_Equality_decEq_DecEq_Char($8, $9), Prelude_Types_fastUnpack($0), $1));
|
|
7992
8158
|
}
|
|
7993
8159
|
|
|
7994
|
-
function
|
|
7995
|
-
return Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($b =>
|
|
8160
|
+
function Config_n__5880_5650_defaultStr($0, $1, $2, $3, $4, $5) {
|
|
8161
|
+
return Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($b => Config_n__5880_5649_enterForDefaultStr($0, $1, $2, $3, $4($b)), $5));
|
|
7996
8162
|
}
|
|
7997
8163
|
|
|
7998
8164
|
function Config_show_Show_ConfigError($0) {
|
|
@@ -8006,10 +8172,10 @@ function Config_writeConfig($0, $1, $2) {
|
|
|
8006
8172
|
const $12 = res => $13 => $14 => {
|
|
8007
8173
|
switch(res.h) {
|
|
8008
8174
|
case 1: return Data_Promise_pure_Applicative_Promise($0, $13, $14);
|
|
8009
|
-
case 0: return Data_Promise_reject(Prelude_Interfaces_concat(
|
|
8175
|
+
case 0: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Failed to write updated config file to ', a2: {a1: Data_Config_rf__filepath($0), a2: {a1: ': ', a2: {a1: System_File_Error_show_Show_FileError(res.a1), a2: {a1: '.', a2: {h: 0}}}}}}), $13, $14);
|
|
8010
8176
|
}
|
|
8011
8177
|
};
|
|
8012
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(System_File_ReadWrite_writeFile(
|
|
8178
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(System_File_ReadWrite_writeFile(csegen_21(), Data_Config_rf__filepath($0), Language_JSON_Data_format(0n, 2n, Data_Config_json($0))), $12, $1, $2);
|
|
8013
8179
|
}
|
|
8014
8180
|
|
|
8015
8181
|
function Config_syncIfOld($0, $1, $2, $3) {
|
|
@@ -8019,7 +8185,7 @@ function Config_syncIfOld($0, $1, $2, $3) {
|
|
|
8019
8185
|
case 0: return $1a => Data_Promise_pure_Applicative_Promise($1, $d, $1a);
|
|
8020
8186
|
}
|
|
8021
8187
|
};
|
|
8022
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
8188
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Config_n__5218_4962_oneDayAgo($0, $1, csegen_21()), $b, $2, $3);
|
|
8023
8189
|
}
|
|
8024
8190
|
|
|
8025
8191
|
function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
@@ -8027,9 +8193,9 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
8027
8193
|
const $14 = orgMembers => $15 => $16 => {
|
|
8028
8194
|
const $1a = updatedAt => {
|
|
8029
8195
|
const $1b = {a1: updatedAt, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: teamSlugs, a8: orgMembers, a9: $0.a9};
|
|
8030
|
-
return Prelude_Interfaces_x3ex3e(
|
|
8196
|
+
return Prelude_Interfaces_x3ex3e(csegen_15(), $2a => $2b => Data_Promise_map_Functor_Promise($2e => (undefined), $30 => $31 => Config_writeConfig($1b, $30, $31), $2a, $2b), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_Interfaces_when(csegen_9(), $2, () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), 'Your updated configuration is:'), () => Prelude_IO_printLn(csegen_539(), $0))), () => $50 => $51 => Data_Promise_pure_Applicative_Promise($1b, $50, $51)));
|
|
8031
8197
|
};
|
|
8032
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
8198
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_535(), $1a, $15, $16);
|
|
8033
8199
|
};
|
|
8034
8200
|
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listOrgMembers($1, $0.a2), $14, $c, $d);
|
|
8035
8201
|
};
|
|
@@ -8037,11 +8203,11 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
8037
8203
|
}
|
|
8038
8204
|
|
|
8039
8205
|
function Config_setConfig($0, $1, $2) {
|
|
8040
|
-
return
|
|
8206
|
+
return Config_with__setConfig_5466($1, Data_List_lookup(csegen_94(), $1, Config_propSetters()), $2, $0);
|
|
8041
8207
|
}
|
|
8042
8208
|
|
|
8043
8209
|
const Config_propSetters = __lazy(function () {
|
|
8044
|
-
return {a1: {a1: 'assignTeams', a2: $3 => $4 =>
|
|
8210
|
+
return {a1: {a1: 'assignTeams', a2: $3 => $4 => Config_n__5524_5264_update(csegen_18(), $9 => Config_n__5524_5263_parseBool($9), b => $d => ({a1: $d.a1, a2: $d.a2, a3: $d.a3, a4: $d.a4, a5: b, a6: $d.a6, a7: $d.a7, a8: $d.a8, a9: $d.a9}), $3, $4)}, a2: {a1: {a1: 'commentOnAssign', a2: $1e => $1f => Config_n__5524_5264_update(csegen_18(), $24 => Config_n__5524_5263_parseBool($24), b => $28 => ({a1: $28.a1, a2: $28.a2, a3: $28.a3, a4: $28.a4, a5: $28.a5, a6: b, a7: $28.a7, a8: $28.a8, a9: $28.a9}), $1e, $1f)}, a2: {h: 0}}};
|
|
8045
8211
|
});
|
|
8046
8212
|
|
|
8047
8213
|
const Config_propGetters = __lazy(function () {
|
|
@@ -8049,7 +8215,7 @@ const Config_propGetters = __lazy(function () {
|
|
|
8049
8215
|
});
|
|
8050
8216
|
|
|
8051
8217
|
function Config_parseGitHubURI($0) {
|
|
8052
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
8218
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(Config_n__5392_5128_parseHTTPS($0, $0), () => Config_n__5392_5129_parseSSH($0, $0));
|
|
8053
8219
|
}
|
|
8054
8220
|
|
|
8055
8221
|
function Config_loadOrCreateConfig($0, $1, $2, $3, $4, $5) {
|
|
@@ -8061,15 +8227,15 @@ function Config_loadOrCreateConfig($0, $1, $2, $3, $4, $5) {
|
|
|
8061
8227
|
case 0: {
|
|
8062
8228
|
switch($e.a1.a1.h) {
|
|
8063
8229
|
case 3: return Config_createConfig($0, $1, $2, $3);
|
|
8064
|
-
default: return $1d => $1e => Data_Promise_reject(Prelude_Interfaces_concat(
|
|
8230
|
+
default: return $1d => $1e => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Error loading ', a2: {a1: Data_Config_filename(), a2: {a1: ': ', a2: {a1: Config_show_Show_ConfigError($e.a1), a2: {a1: '.', a2: {h: 0}}}}}}), $1d, $1e);
|
|
8065
8231
|
}
|
|
8066
8232
|
}
|
|
8067
|
-
default: return $36 => $37 => Data_Promise_reject(Prelude_Interfaces_concat(
|
|
8233
|
+
default: return $36 => $37 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Error loading ', a2: {a1: Data_Config_filename(), a2: {a1: ': ', a2: {a1: Config_show_Show_ConfigError($e.a1), a2: {a1: '.', a2: {h: 0}}}}}}), $36, $37);
|
|
8068
8234
|
}
|
|
8069
8235
|
}
|
|
8070
8236
|
}
|
|
8071
8237
|
};
|
|
8072
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Config_loadConfig(
|
|
8238
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Config_loadConfig(csegen_21(), $2, $3), $d, $4, $5);
|
|
8073
8239
|
}
|
|
8074
8240
|
|
|
8075
8241
|
function Config_loadConfig($0, $1, $2) {
|
|
@@ -8092,14 +8258,14 @@ function Config_loadConfig($0, $1, $2) {
|
|
|
8092
8258
|
}
|
|
8093
8259
|
};
|
|
8094
8260
|
const $a = {a1: $b, a2: a => $13 => ({h: 1, a1: $13}), a3: $15};
|
|
8095
|
-
const $9 = {a1: $a, a2:
|
|
8261
|
+
const $9 = {a1: $a, a2: csegen_275(), a3: csegen_276()};
|
|
8096
8262
|
const $24 = b => a => func => $25 => {
|
|
8097
8263
|
switch($25.h) {
|
|
8098
8264
|
case 0: return {h: 0, a1: $25.a1};
|
|
8099
8265
|
case 1: return {h: 1, a1: func($25.a1)};
|
|
8100
8266
|
}
|
|
8101
8267
|
};
|
|
8102
|
-
const $23 = {a1: $24, a2:
|
|
8268
|
+
const $23 = {a1: $24, a2: csegen_454(), a3: csegen_458()};
|
|
8103
8269
|
return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, $9, $23, $4, $5);
|
|
8104
8270
|
};
|
|
8105
8271
|
const $39 = $3a => {
|
|
@@ -8141,18 +8307,18 @@ function Config_loadConfig($0, $1, $2) {
|
|
|
8141
8307
|
}
|
|
8142
8308
|
|
|
8143
8309
|
function Config_getConfig($0, $1, $2) {
|
|
8144
|
-
return $3 =>
|
|
8310
|
+
return $3 => Config_with__getConfig_5595($1, Data_List_lookup(csegen_94(), $1, Config_propGetters()), $0, $2, $3);
|
|
8145
8311
|
}
|
|
8146
8312
|
|
|
8147
8313
|
function Config_findConfig($0, $1, $2) {
|
|
8148
8314
|
switch($2.h) {
|
|
8149
8315
|
case 0: return $0.a1.a1.a2(undefined)({h: 0});
|
|
8150
8316
|
case undefined: {
|
|
8151
|
-
const $b = Prelude_Interfaces_concat(
|
|
8317
|
+
const $b = Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: $1, a2: {a1: '/', a2: {a1: Data_Config_filename(), a2: {h: 0}}}});
|
|
8152
8318
|
const $25 = $26 => {
|
|
8153
8319
|
switch($26) {
|
|
8154
8320
|
case 1: return $0.a1.a1.a2(undefined)({a1: $b});
|
|
8155
|
-
case 0: return Config_findConfig($0, Prelude_Interfaces_concat(
|
|
8321
|
+
case 0: return Config_findConfig($0, Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: $1, a2: {a1: '/..', a2: {h: 0}}}), $2.a1());
|
|
8156
8322
|
}
|
|
8157
8323
|
};
|
|
8158
8324
|
return $0.a1.a2(undefined)(undefined)(System_File_Meta_exists($0, $b))($25);
|
|
@@ -8161,54 +8327,54 @@ function Config_findConfig($0, $1, $2) {
|
|
|
8161
8327
|
}
|
|
8162
8328
|
|
|
8163
8329
|
function Config_dropPrefixx27($0, $1) {
|
|
8164
|
-
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4),
|
|
8330
|
+
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4), Config_n__5345_5080_dropx27($0, Prelude_Types_fastUnpack($1)));
|
|
8165
8331
|
}
|
|
8166
8332
|
|
|
8167
8333
|
function Config_createConfig($0, $1, $2, $3) {
|
|
8168
|
-
return Prelude_Interfaces_x3ex3e(
|
|
8334
|
+
return Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Creating a new configuration (storing in ', a2: {a1: Data_Config_filename(), a2: {a1: ')...', a2: {h: 0}}}})), () => $1a => $1b => {
|
|
8169
8335
|
const $3a = defaultOrgAndRepo => {
|
|
8170
|
-
const $3b =
|
|
8171
|
-
return Prelude_Interfaces_x3ex3e(
|
|
8336
|
+
const $3b = Config_n__5880_5650_defaultStr($0, $1, $3, $2, csegen_532(), defaultOrgAndRepo);
|
|
8337
|
+
return Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'What GitHub org would you like to use harmony for', a2: {a1: $3b, a2: {a1: '?', a2: {h: 0}}}})), () => $59 => $5a => {
|
|
8172
8338
|
const $73 = org => {
|
|
8173
|
-
const $74 =
|
|
8174
|
-
return Prelude_Interfaces_x3ex3e(
|
|
8339
|
+
const $74 = Config_n__5880_5650_defaultStr($0, $1, $3, $2, csegen_528(), defaultOrgAndRepo);
|
|
8340
|
+
return Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'What repository would you like to use harmony for', a2: {a1: $74, a2: {a1: '?', a2: {h: 0}}}})), () => $92 => $93 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_103(), $9a => Config_n__5880_5645_orIfEmpty($0, $1, $3, $2, Config_n__5880_5648_repo($0, $1, $3, $2, defaultOrgAndRepo), Data_String_trim($9a)), csegen_404()), repo => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStr(csegen_21(), 'Would you like harmony to comment when it assigns reviewers? [Y/n] '), () => $b6 => $b7 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_103(), $be => Config_n__5880_5646_yesUnlessNo($0, $1, $3, $2, Data_String_trim($be)), csegen_404()), commentOnAssign => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStr(csegen_21(), 'Would you like harmony to assign teams in addition to individuals when it assigns reviewers? [Y/n] '), () => $d3 => $d4 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_103(), $db => Config_n__5880_5646_yesUnlessNo($0, $1, $3, $2, Data_String_trim($db)), csegen_404()), assignTeams => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), 'Creating config...'), () => $f0 => $f1 => {
|
|
8175
8341
|
const $fc = mainBranch => $fd => $fe => {
|
|
8176
8342
|
const $102 = updatedAt => {
|
|
8177
|
-
const $103 = {a1: Prelude_Interfaces_concat(
|
|
8343
|
+
const $103 = {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: './', a2: {a1: Data_Config_filename(), a2: {h: 0}}}), a2: $2, a3: $3};
|
|
8178
8344
|
return $112 => $113 => {
|
|
8179
8345
|
const $119 = teamSlugs => $11a => $11b => {
|
|
8180
8346
|
const $121 = orgMembers => {
|
|
8181
8347
|
const $122 = {a1: updatedAt, a2: org, a3: repo, a4: mainBranch, a5: assignTeams, a6: commentOnAssign, a7: teamSlugs, a8: orgMembers, a9: $103};
|
|
8182
|
-
return Prelude_Interfaces_x3ex3e(
|
|
8348
|
+
return Prelude_Interfaces_x3ex3e(csegen_15(), $130 => $131 => Data_Promise_map_Functor_Promise($134 => (undefined), $136 => $137 => Config_writeConfig($122, $136, $137), $130, $131), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), 'Your new configuration is:'), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_printLn(csegen_539(), $122), () => $151 => $152 => Data_Promise_pure_Applicative_Promise($122, $151, $152))));
|
|
8183
8349
|
};
|
|
8184
8350
|
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listOrgMembers($1, org), $121, $11a, $11b);
|
|
8185
8351
|
};
|
|
8186
8352
|
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listTeams($1, org), $119, $112, $113);
|
|
8187
8353
|
};
|
|
8188
8354
|
};
|
|
8189
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
8355
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_535(), $102, $fd, $fe);
|
|
8190
8356
|
};
|
|
8191
8357
|
return Data_Promise_x3ex3ex3d_Monad_Promise($f4 => $f5 => FFI_GitHub_getRepoDefaultBranch($1, org, repo, $f4, $f5), $fc, $f0, $f1);
|
|
8192
8358
|
}), $d3, $d4)), $b6, $b7)), $92, $93));
|
|
8193
8359
|
};
|
|
8194
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(
|
|
8360
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_103(), $61 => Config_n__5880_5645_orIfEmpty($0, $1, $3, $2, Config_n__5880_5647_org($0, $1, $3, $2, defaultOrgAndRepo), Data_String_trim($61)), csegen_404()), $73, $59, $5a);
|
|
8195
8361
|
});
|
|
8196
8362
|
};
|
|
8197
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($1e => $1f => Data_Promise_x3cx7cx3e_Alternative_Promise(Prelude_Interfaces_x3cx24x3e(
|
|
8363
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($1e => $1f => Data_Promise_x3cx7cx3e_Alternative_Promise(Prelude_Interfaces_x3cx24x3e(csegen_103(), $26 => Config_parseGitHubURI($26), $2a => $2b => FFI_Git_remoteURI($0, 'origin', $2a, $2b)), () => $32 => $33 => Data_Promise_pure_Applicative_Promise({h: 0}, $32, $33), $1e, $1f), $3a, $1a, $1b);
|
|
8198
8364
|
});
|
|
8199
8365
|
}
|
|
8200
8366
|
|
|
8201
|
-
function
|
|
8367
|
+
function Data_List_PrefixSuffix_with__withx20blockx20inx20dropPrefix_3662($0, $1, $2, $3, $4, $5) {
|
|
8202
8368
|
switch($4.h) {
|
|
8203
8369
|
case 1: return {h: 1, a1: $8 => $4.a1({a1: $8.a1, a2: Builtin_snd(Data_List_PrefixSuffix_prefixSuffixConsInjective($8.a2))})};
|
|
8204
8370
|
case 0: return {h: 0, a1: {a1: $4.a1.a1, a2: {a1: {a1: $5, a2: $3}, a2: $4.a1.a1}}};
|
|
8205
8371
|
}
|
|
8206
8372
|
}
|
|
8207
8373
|
|
|
8208
|
-
function
|
|
8374
|
+
function Data_List_PrefixSuffix_with__dropPrefix_3625($0, $1, $2, $3, $4, $5, $6) {
|
|
8209
8375
|
switch($4.h) {
|
|
8210
8376
|
case 1: return {h: 1, a1: $9 => Data_List_PrefixSuffix_prefixDifferentVoid($4.a1, $9)};
|
|
8211
|
-
case 0: return
|
|
8377
|
+
case 0: return Data_List_PrefixSuffix_with__withx20blockx20inx20dropPrefix_3662(undefined, $1, $6, $5, Data_List_PrefixSuffix_dropPrefix($1, $5, $6), $2);
|
|
8212
8378
|
}
|
|
8213
8379
|
}
|
|
8214
8380
|
|
|
@@ -8230,21 +8396,21 @@ function Data_List_PrefixSuffix_dropPrefix($0, $1, $2) {
|
|
|
8230
8396
|
case undefined: {
|
|
8231
8397
|
switch($2.h) {
|
|
8232
8398
|
case 0: return {h: 1, a1: $b => Prelude_Uninhabited_absurd($f => Data_List_PrefixSuffix_uninhabited_Uninhabited_x28x28x28PrefixSuffixx20x28x28x3ax3ax20x24xx29x20x24xsx29x29x20x24suffixListx29x20Nilx29($f), $b.a2)};
|
|
8233
|
-
case undefined: return
|
|
8399
|
+
case undefined: return Data_List_PrefixSuffix_with__dropPrefix_3625(undefined, $0, $1.a1, $2.a1, $0($1.a1)($2.a1), $1.a2, $2.a2);
|
|
8234
8400
|
}
|
|
8235
8401
|
}
|
|
8236
8402
|
}
|
|
8237
8403
|
}
|
|
8238
8404
|
|
|
8239
|
-
function
|
|
8405
|
+
function BashCompletion_n__3740_1114_slugsOrLogins($0, $1, $2) {
|
|
8240
8406
|
switch(Data_String_isPrefixOf('+', $1)) {
|
|
8241
|
-
case 1: return Prelude_Interfaces_x3cx24x3e(
|
|
8407
|
+
case 1: return Prelude_Interfaces_x3cx24x3e(csegen_119(), $b => ('+'+$b), $2.a8);
|
|
8242
8408
|
case 0: return $2.a7;
|
|
8243
8409
|
}
|
|
8244
8410
|
}
|
|
8245
8411
|
|
|
8246
8412
|
const BashCompletion_script = __lazy(function () {
|
|
8247
|
-
return Prelude_Interfaces_concat(
|
|
8413
|
+
return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: '_harmony()\n{\n ED=$([ -z $2 ] && echo \"--\" || echo \"$2\")\n COMPREPLY=($(harmony --bash-completion \"$ED\" \"$3\"))\n}\n\ncomplete -F _harmony harmony', a2: {h: 0}});
|
|
8248
8414
|
});
|
|
8249
8415
|
|
|
8250
8416
|
function BashCompletion_opts($0, $1, $2) {
|
|
@@ -8254,7 +8420,7 @@ function BashCompletion_opts($0, $1, $2) {
|
|
|
8254
8420
|
case 'config': return Data_Config_settableProps();
|
|
8255
8421
|
default: {
|
|
8256
8422
|
switch($2) {
|
|
8257
|
-
case 'config': return
|
|
8423
|
+
case 'config': return Prelude_Types_List_filter($9 => Data_String_isPrefixOf($1, $9), Data_Config_settableProps());
|
|
8258
8424
|
default: {
|
|
8259
8425
|
switch($1) {
|
|
8260
8426
|
case '--': {
|
|
@@ -8262,11 +8428,11 @@ function BashCompletion_opts($0, $1, $2) {
|
|
|
8262
8428
|
case 'list': return $0.a7;
|
|
8263
8429
|
default: {
|
|
8264
8430
|
switch($2) {
|
|
8265
|
-
case 'list': return
|
|
8431
|
+
case 'list': return Prelude_Types_List_filter($15 => Data_String_isPrefixOf($1, $15), $0.a7);
|
|
8266
8432
|
default: {
|
|
8267
8433
|
switch($1) {
|
|
8268
8434
|
case '--': return $0.a7;
|
|
8269
|
-
default: return
|
|
8435
|
+
default: return Prelude_Types_List_filter($1f => Data_String_isPrefixOf($1, $1f), BashCompletion_n__3740_1114_slugsOrLogins($2, $1, $0));
|
|
8270
8436
|
}
|
|
8271
8437
|
}
|
|
8272
8438
|
}
|
|
@@ -8275,11 +8441,11 @@ function BashCompletion_opts($0, $1, $2) {
|
|
|
8275
8441
|
}
|
|
8276
8442
|
default: {
|
|
8277
8443
|
switch($2) {
|
|
8278
|
-
case 'list': return
|
|
8444
|
+
case 'list': return Prelude_Types_List_filter($2b => Data_String_isPrefixOf($1, $2b), $0.a7);
|
|
8279
8445
|
default: {
|
|
8280
8446
|
switch($1) {
|
|
8281
8447
|
case '--': return $0.a7;
|
|
8282
|
-
default: return
|
|
8448
|
+
default: return Prelude_Types_List_filter($35 => Data_String_isPrefixOf($1, $35), BashCompletion_n__3740_1114_slugsOrLogins($2, $1, $0));
|
|
8283
8449
|
}
|
|
8284
8450
|
}
|
|
8285
8451
|
}
|
|
@@ -8292,7 +8458,7 @@ function BashCompletion_opts($0, $1, $2) {
|
|
|
8292
8458
|
}
|
|
8293
8459
|
default: {
|
|
8294
8460
|
switch($2) {
|
|
8295
|
-
case 'config': return
|
|
8461
|
+
case 'config': return Prelude_Types_List_filter($41 => Data_String_isPrefixOf($1, $41), Data_Config_settableProps());
|
|
8296
8462
|
default: {
|
|
8297
8463
|
switch($1) {
|
|
8298
8464
|
case '--': {
|
|
@@ -8300,11 +8466,11 @@ function BashCompletion_opts($0, $1, $2) {
|
|
|
8300
8466
|
case 'list': return $0.a7;
|
|
8301
8467
|
default: {
|
|
8302
8468
|
switch($2) {
|
|
8303
|
-
case 'list': return
|
|
8469
|
+
case 'list': return Prelude_Types_List_filter($4d => Data_String_isPrefixOf($1, $4d), $0.a7);
|
|
8304
8470
|
default: {
|
|
8305
8471
|
switch($1) {
|
|
8306
8472
|
case '--': return $0.a7;
|
|
8307
|
-
default: return
|
|
8473
|
+
default: return Prelude_Types_List_filter($57 => Data_String_isPrefixOf($1, $57), BashCompletion_n__3740_1114_slugsOrLogins($2, $1, $0));
|
|
8308
8474
|
}
|
|
8309
8475
|
}
|
|
8310
8476
|
}
|
|
@@ -8313,11 +8479,11 @@ function BashCompletion_opts($0, $1, $2) {
|
|
|
8313
8479
|
}
|
|
8314
8480
|
default: {
|
|
8315
8481
|
switch($2) {
|
|
8316
|
-
case 'list': return
|
|
8482
|
+
case 'list': return Prelude_Types_List_filter($63 => Data_String_isPrefixOf($1, $63), $0.a7);
|
|
8317
8483
|
default: {
|
|
8318
8484
|
switch($1) {
|
|
8319
8485
|
case '--': return $0.a7;
|
|
8320
|
-
default: return
|
|
8486
|
+
default: return Prelude_Types_List_filter($6d => Data_String_isPrefixOf($1, $6d), BashCompletion_n__3740_1114_slugsOrLogins($2, $1, $0));
|
|
8321
8487
|
}
|
|
8322
8488
|
}
|
|
8323
8489
|
}
|
|
@@ -8336,45 +8502,135 @@ function BashCompletion_cmdOpts($0, $1) {
|
|
|
8336
8502
|
case 'harmony': return {a1: BashCompletion_allRootCmds()};
|
|
8337
8503
|
default: {
|
|
8338
8504
|
switch($1) {
|
|
8339
|
-
case 'harmony': return {a1:
|
|
8505
|
+
case 'harmony': return {a1: Prelude_Types_List_filter($a => Data_String_isPrefixOf($0, $a), BashCompletion_allRootCmds())};
|
|
8340
8506
|
case 'pr': return {a1: {h: 0}};
|
|
8341
|
-
case 'contribute': return {a1: {h: 0}};
|
|
8342
8507
|
case 'sync': return {a1: {h: 0}};
|
|
8343
8508
|
case 'help': return {a1: {h: 0}};
|
|
8344
8509
|
case '--help': return {a1: {h: 0}};
|
|
8345
8510
|
case 'reflect': return {a1: {h: 0}};
|
|
8346
8511
|
case 'version': return {a1: {h: 0}};
|
|
8347
|
-
default:
|
|
8512
|
+
default: {
|
|
8513
|
+
switch($0) {
|
|
8514
|
+
case '-': {
|
|
8515
|
+
switch($1) {
|
|
8516
|
+
case 'contribute': return csegen_564();
|
|
8517
|
+
default: {
|
|
8518
|
+
switch($1) {
|
|
8519
|
+
case 'contribute': {
|
|
8520
|
+
switch(Data_String_isPrefixOf($0, '--checkout')) {
|
|
8521
|
+
case 1: return {a1: {a1: '--checkout', a2: {h: 0}}};
|
|
8522
|
+
case 0: return {a1: {h: 0}};
|
|
8523
|
+
}
|
|
8524
|
+
}
|
|
8525
|
+
default: return {h: 0};
|
|
8526
|
+
}
|
|
8527
|
+
}
|
|
8528
|
+
}
|
|
8529
|
+
}
|
|
8530
|
+
case '--': {
|
|
8531
|
+
switch($1) {
|
|
8532
|
+
case 'contribute': return csegen_564();
|
|
8533
|
+
default: {
|
|
8534
|
+
switch($1) {
|
|
8535
|
+
case 'contribute': {
|
|
8536
|
+
switch(Data_String_isPrefixOf($0, '--checkout')) {
|
|
8537
|
+
case 1: return {a1: {a1: '--checkout', a2: {h: 0}}};
|
|
8538
|
+
case 0: return {a1: {h: 0}};
|
|
8539
|
+
}
|
|
8540
|
+
}
|
|
8541
|
+
default: return {h: 0};
|
|
8542
|
+
}
|
|
8543
|
+
}
|
|
8544
|
+
}
|
|
8545
|
+
}
|
|
8546
|
+
default: {
|
|
8547
|
+
switch($1) {
|
|
8548
|
+
case 'contribute': {
|
|
8549
|
+
switch(Data_String_isPrefixOf($0, '--checkout')) {
|
|
8550
|
+
case 1: return {a1: {a1: '--checkout', a2: {h: 0}}};
|
|
8551
|
+
case 0: return {a1: {h: 0}};
|
|
8552
|
+
}
|
|
8553
|
+
}
|
|
8554
|
+
default: return {h: 0};
|
|
8555
|
+
}
|
|
8556
|
+
}
|
|
8557
|
+
}
|
|
8558
|
+
}
|
|
8348
8559
|
}
|
|
8349
8560
|
}
|
|
8350
8561
|
}
|
|
8351
8562
|
}
|
|
8352
8563
|
default: {
|
|
8353
8564
|
switch($1) {
|
|
8354
|
-
case 'harmony': return {a1:
|
|
8565
|
+
case 'harmony': return {a1: Prelude_Types_List_filter($3a => Data_String_isPrefixOf($0, $3a), BashCompletion_allRootCmds())};
|
|
8355
8566
|
case 'pr': return {a1: {h: 0}};
|
|
8356
|
-
case 'contribute': return {a1: {h: 0}};
|
|
8357
8567
|
case 'sync': return {a1: {h: 0}};
|
|
8358
8568
|
case 'help': return {a1: {h: 0}};
|
|
8359
8569
|
case '--help': return {a1: {h: 0}};
|
|
8360
8570
|
case 'reflect': return {a1: {h: 0}};
|
|
8361
8571
|
case 'version': return {a1: {h: 0}};
|
|
8362
|
-
default:
|
|
8572
|
+
default: {
|
|
8573
|
+
switch($0) {
|
|
8574
|
+
case '-': {
|
|
8575
|
+
switch($1) {
|
|
8576
|
+
case 'contribute': return csegen_564();
|
|
8577
|
+
default: {
|
|
8578
|
+
switch($1) {
|
|
8579
|
+
case 'contribute': {
|
|
8580
|
+
switch(Data_String_isPrefixOf($0, '--checkout')) {
|
|
8581
|
+
case 1: return {a1: {a1: '--checkout', a2: {h: 0}}};
|
|
8582
|
+
case 0: return {a1: {h: 0}};
|
|
8583
|
+
}
|
|
8584
|
+
}
|
|
8585
|
+
default: return {h: 0};
|
|
8586
|
+
}
|
|
8587
|
+
}
|
|
8588
|
+
}
|
|
8589
|
+
}
|
|
8590
|
+
case '--': {
|
|
8591
|
+
switch($1) {
|
|
8592
|
+
case 'contribute': return csegen_564();
|
|
8593
|
+
default: {
|
|
8594
|
+
switch($1) {
|
|
8595
|
+
case 'contribute': {
|
|
8596
|
+
switch(Data_String_isPrefixOf($0, '--checkout')) {
|
|
8597
|
+
case 1: return {a1: {a1: '--checkout', a2: {h: 0}}};
|
|
8598
|
+
case 0: return {a1: {h: 0}};
|
|
8599
|
+
}
|
|
8600
|
+
}
|
|
8601
|
+
default: return {h: 0};
|
|
8602
|
+
}
|
|
8603
|
+
}
|
|
8604
|
+
}
|
|
8605
|
+
}
|
|
8606
|
+
default: {
|
|
8607
|
+
switch($1) {
|
|
8608
|
+
case 'contribute': {
|
|
8609
|
+
switch(Data_String_isPrefixOf($0, '--checkout')) {
|
|
8610
|
+
case 1: return {a1: {a1: '--checkout', a2: {h: 0}}};
|
|
8611
|
+
case 0: return {a1: {h: 0}};
|
|
8612
|
+
}
|
|
8613
|
+
}
|
|
8614
|
+
default: return {h: 0};
|
|
8615
|
+
}
|
|
8616
|
+
}
|
|
8617
|
+
}
|
|
8618
|
+
}
|
|
8363
8619
|
}
|
|
8364
8620
|
}
|
|
8365
8621
|
}
|
|
8366
8622
|
}
|
|
8367
8623
|
|
|
8368
8624
|
const BashCompletion_allRootCmds = __lazy(function () {
|
|
8369
|
-
return {a1: 'assign', a2: {a1: 'config', a2: {a1: 'contribute', a2: {a1: 'graph', a2: {a1: 'help', a2: {a1: 'list', a2: {a1: 'pr', a2: {a1: 'reflect', a2: {a1: 'sync', a2: {a1: 'version', a2: {h: 0}}}}}}}}}}};
|
|
8625
|
+
return {a1: 'assign', a2: {a1: 'branch', a2: {a1: 'config', a2: {a1: 'contribute', a2: {a1: 'graph', a2: {a1: 'help', a2: {a1: 'list', a2: {a1: 'pr', a2: {a1: 'reflect', a2: {a1: 'sync', a2: {a1: 'version', a2: {h: 0}}}}}}}}}}}};
|
|
8370
8626
|
});
|
|
8371
8627
|
|
|
8372
8628
|
function AppVersion_printVersion($0) {
|
|
8373
|
-
return Prelude_IO_putStrLn($0, Prelude_Interfaces_concat(
|
|
8629
|
+
return Prelude_IO_putStrLn($0, Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Harmony v', a2: {a1: AppVersion_appVersion(), a2: {h: 0}}}));
|
|
8374
8630
|
}
|
|
8375
8631
|
|
|
8376
8632
|
const AppVersion_appVersion = __lazy(function () {
|
|
8377
|
-
return '0.
|
|
8633
|
+
return '0.6.0';
|
|
8378
8634
|
});
|
|
8379
8635
|
|
|
8380
8636
|
|