@mattpolzin/harmony 2.3.0 → 2.4.1
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 → package}/harmony
RENAMED
|
@@ -633,6 +633,16 @@ function support_system_file_getStr () {
|
|
|
633
633
|
return support_system_file_readLine({ fd: 0, buffer: Buffer.alloc(0), name: '<stdin>', eof: false })
|
|
634
634
|
}
|
|
635
635
|
|
|
636
|
+
function support_system_file_getChar() {
|
|
637
|
+
const readBuf = Buffer.alloc(1);
|
|
638
|
+
if (support_system_file_fs.readSync(process.stdin.fd, readBuf, 0, 1) === 0) {
|
|
639
|
+
// No bytes read, getChar from libc returns -1 in this case.
|
|
640
|
+
return String.fromCharCode(-1)
|
|
641
|
+
} else {
|
|
642
|
+
return readBuf.toString('utf-8')
|
|
643
|
+
}
|
|
644
|
+
}
|
|
645
|
+
|
|
636
646
|
function support_system_file_parseMode(mode) {
|
|
637
647
|
return mode.replace('b', '')
|
|
638
648
|
}
|
|
@@ -683,12 +693,6 @@ function support_system_file_popen (cmd, m) {
|
|
|
683
693
|
}
|
|
684
694
|
|
|
685
695
|
const tmp_file = require('os').tmpdir() + "/" + require('crypto').randomBytes(15).toString('hex')
|
|
686
|
-
// try {
|
|
687
|
-
// support_system_file_fs.writeFileSync(tmp_file, '')
|
|
688
|
-
// } catch (e) {
|
|
689
|
-
// process.__lasterr = e
|
|
690
|
-
// return null
|
|
691
|
-
// }
|
|
692
696
|
const write_fd = support_system_file_fs.openSync(
|
|
693
697
|
tmp_file,
|
|
694
698
|
'w'
|
|
@@ -806,8 +810,8 @@ function x24tcOpt_1($0) {
|
|
|
806
810
|
case 0: /* nil */ return {h: 0 /* {TcDone:1} */, a1: {h: 0}};
|
|
807
811
|
default: {
|
|
808
812
|
switch($0.a7.h) {
|
|
809
|
-
case 0: /*
|
|
810
|
-
case 1: /*
|
|
813
|
+
case 0: /* 3350:1047:Add */ return {h: 0 /* {TcDone:1} */, a1: $0.a6};
|
|
814
|
+
case 1: /* 3350:1048:Subtract */ return {h: 0 /* {TcDone:1} */, a1: csegen_116()($c => ({a1: $c.a1, a2: $c.a2, a3: 0n}))($0.a6)};
|
|
811
815
|
default: {
|
|
812
816
|
switch($0.a6.h) {
|
|
813
817
|
case 0: /* nil */ {
|
|
@@ -816,30 +820,30 @@ function x24tcOpt_1($0) {
|
|
|
816
820
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
817
821
|
default: {
|
|
818
822
|
const $18 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
819
|
-
const $1c = Data_List_DeleteBy_deleteByx27($1f => $20 => Prelude_Basics_on($23 => $24 => $0.a1.a1.a1($23)($24),
|
|
823
|
+
const $1c = Data_List_DeleteBy_deleteByx27($1f => $20 => Prelude_Basics_on($23 => $24 => $0.a1.a1.a1($23)($24), csegen_729(), $1f, $20), $18, $0.a6);
|
|
820
824
|
switch($1c.a1.h) {
|
|
821
825
|
case 0: /* nothing */ {
|
|
822
826
|
switch($0.a8) {
|
|
823
|
-
case 0: return {h: 0 /* {TcDone:1} */, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2:
|
|
827
|
+
case 0: return {h: 0 /* {TcDone:1} */, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2: Data_ReviewScore_n__3350_1049_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $1c.a2, $0.a7, $0.a8)}};
|
|
824
828
|
case 1: return {h: 1 /* {TcContinue1: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};
|
|
825
829
|
}
|
|
826
830
|
}
|
|
827
|
-
case undefined: /* just */ return {h: 0 /* {TcDone:1} */, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3:
|
|
831
|
+
case undefined: /* just */ return {h: 0 /* {TcDone:1} */, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: Data_ReviewScore_n__3377_1201_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: Data_ReviewScore_n__3350_1049_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $1c.a2, $0.a7, $0.a8)}};
|
|
828
832
|
}
|
|
829
833
|
}
|
|
830
834
|
}
|
|
831
835
|
}
|
|
832
836
|
default: {
|
|
833
837
|
const $6b = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
834
|
-
const $6f = Data_List_DeleteBy_deleteByx27($72 => $73 => Prelude_Basics_on($76 => $77 => $0.a1.a1.a1($76)($77),
|
|
838
|
+
const $6f = Data_List_DeleteBy_deleteByx27($72 => $73 => Prelude_Basics_on($76 => $77 => $0.a1.a1.a1($76)($77), csegen_729(), $72, $73), $6b, $0.a6);
|
|
835
839
|
switch($6f.a1.h) {
|
|
836
840
|
case 0: /* nothing */ {
|
|
837
841
|
switch($0.a8) {
|
|
838
|
-
case 0: return {h: 0 /* {TcDone:1} */, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2:
|
|
842
|
+
case 0: return {h: 0 /* {TcDone:1} */, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2: Data_ReviewScore_n__3350_1049_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $6f.a2, $0.a7, $0.a8)}};
|
|
839
843
|
case 1: return {h: 1 /* {TcContinue1: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};
|
|
840
844
|
}
|
|
841
845
|
}
|
|
842
|
-
case undefined: /* just */ return {h: 0 /* {TcDone:1} */, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3:
|
|
846
|
+
case undefined: /* just */ return {h: 0 /* {TcDone:1} */, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: Data_ReviewScore_n__3377_1201_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: Data_ReviewScore_n__3350_1049_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $6f.a2, $0.a7, $0.a8)}};
|
|
843
847
|
}
|
|
844
848
|
}
|
|
845
849
|
}
|
|
@@ -856,30 +860,30 @@ function x24tcOpt_1($0) {
|
|
|
856
860
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
857
861
|
default: {
|
|
858
862
|
const $c2 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
859
|
-
const $c6 = Data_List_DeleteBy_deleteByx27($c9 => $ca => Prelude_Basics_on($cd => $ce => $0.a1.a1.a1($cd)($ce),
|
|
863
|
+
const $c6 = Data_List_DeleteBy_deleteByx27($c9 => $ca => Prelude_Basics_on($cd => $ce => $0.a1.a1.a1($cd)($ce), csegen_729(), $c9, $ca), $c2, $0.a6);
|
|
860
864
|
switch($c6.a1.h) {
|
|
861
865
|
case 0: /* nothing */ {
|
|
862
866
|
switch($0.a8) {
|
|
863
|
-
case 0: return {h: 0 /* {TcDone:1} */, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2:
|
|
867
|
+
case 0: return {h: 0 /* {TcDone:1} */, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2: Data_ReviewScore_n__3350_1049_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $c6.a2, $0.a7, $0.a8)}};
|
|
864
868
|
case 1: return {h: 1 /* {TcContinue1: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};
|
|
865
869
|
}
|
|
866
870
|
}
|
|
867
|
-
case undefined: /* just */ return {h: 0 /* {TcDone:1} */, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3:
|
|
871
|
+
case undefined: /* just */ return {h: 0 /* {TcDone:1} */, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: Data_ReviewScore_n__3377_1201_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: Data_ReviewScore_n__3350_1049_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $c6.a2, $0.a7, $0.a8)}};
|
|
868
872
|
}
|
|
869
873
|
}
|
|
870
874
|
}
|
|
871
875
|
}
|
|
872
876
|
default: {
|
|
873
877
|
const $115 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
874
|
-
const $119 = Data_List_DeleteBy_deleteByx27($11c => $11d => Prelude_Basics_on($120 => $121 => $0.a1.a1.a1($120)($121),
|
|
878
|
+
const $119 = Data_List_DeleteBy_deleteByx27($11c => $11d => Prelude_Basics_on($120 => $121 => $0.a1.a1.a1($120)($121), csegen_729(), $11c, $11d), $115, $0.a6);
|
|
875
879
|
switch($119.a1.h) {
|
|
876
880
|
case 0: /* nothing */ {
|
|
877
881
|
switch($0.a8) {
|
|
878
|
-
case 0: return {h: 0 /* {TcDone:1} */, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2:
|
|
882
|
+
case 0: return {h: 0 /* {TcDone:1} */, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2: Data_ReviewScore_n__3350_1049_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $119.a2, $0.a7, $0.a8)}};
|
|
879
883
|
case 1: return {h: 1 /* {TcContinue1: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};
|
|
880
884
|
}
|
|
881
885
|
}
|
|
882
|
-
case undefined: /* just */ return {h: 0 /* {TcDone:1} */, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3:
|
|
886
|
+
case undefined: /* just */ return {h: 0 /* {TcDone:1} */, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: Data_ReviewScore_n__3377_1201_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: Data_ReviewScore_n__3350_1049_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $119.a2, $0.a7, $0.a8)}};
|
|
883
887
|
}
|
|
884
888
|
}
|
|
885
889
|
}
|
|
@@ -887,8 +891,8 @@ function x24tcOpt_1($0) {
|
|
|
887
891
|
}
|
|
888
892
|
}
|
|
889
893
|
|
|
890
|
-
/* Data.ReviewScore.
|
|
891
|
-
function
|
|
894
|
+
/* Data.ReviewScore.3350:1049:zipReviews */
|
|
895
|
+
function Data_ReviewScore_n__3350_1049_zipReviews($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
892
896
|
return __tailRec(x24tcOpt_1, {h: 1 /* {TcContinue1:1} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6, a8: $7});
|
|
893
897
|
}
|
|
894
898
|
|
|
@@ -910,8 +914,8 @@ function x24tcOpt_2($0) {
|
|
|
910
914
|
}
|
|
911
915
|
}
|
|
912
916
|
|
|
913
|
-
/* Data.List.
|
|
914
|
-
function
|
|
917
|
+
/* Data.List.7716:6697:splitRec */
|
|
918
|
+
function Data_List_n__7716_6697_splitRec($0, $1, $2, $3, $4) {
|
|
915
919
|
return __tailRec(x24tcOpt_2, {h: 1 /* {TcContinue2:1} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4});
|
|
916
920
|
}
|
|
917
921
|
|
|
@@ -928,15 +932,15 @@ function x24tcOpt_3($0) {
|
|
|
928
932
|
}
|
|
929
933
|
}
|
|
930
934
|
|
|
931
|
-
/* Prelude.Show.3219:
|
|
932
|
-
function
|
|
935
|
+
/* Prelude.Show.3219:12510:show' */
|
|
936
|
+
function Prelude_Show_n__3219_12510_showx27($0, $1, $2, $3) {
|
|
933
937
|
return __tailRec(x24tcOpt_3, {h: 1 /* {TcContinue3:1} */, a1: $0, a2: $1, a3: $2, a4: $3});
|
|
934
938
|
}
|
|
935
939
|
|
|
936
940
|
/* {$tcOpt:4} */
|
|
937
941
|
function x24tcOpt_4($0) {
|
|
938
942
|
switch($0.h) {
|
|
939
|
-
case 1: /* {TcContinue4:1} */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2(), a3: $0.a6, a4: {a1: {a1: $0.a3.a2, a2: {a1:
|
|
943
|
+
case 1: /* {TcContinue4:1} */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2(), a3: $0.a6, a4: {a1: {a1: $0.a3.a2, a2: {a1: Graph_n__5908_1929_graphable($0.a1, $0.a5), a2: Data_List1_forget($0.a8)}}}};
|
|
940
944
|
case 2: /* {TcContinue4:2} */ {
|
|
941
945
|
switch($0.a2.h) {
|
|
942
946
|
case 0: /* nothing */ {
|
|
@@ -955,7 +959,7 @@ function x24tcOpt_4($0) {
|
|
|
955
959
|
case undefined: /* cons */ return {h: 0 /* {TcDone:4} */, a1: Data_List1_forget($0.a4.a1.a2)};
|
|
956
960
|
default: {
|
|
957
961
|
switch($0.a4.h) {
|
|
958
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2.a1(), a3: $0.a3.a2, a4: {a1: {a1: $0.a3.a1.a1.a2, a2: {a1:
|
|
962
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2.a1(), a3: $0.a3.a2, a4: {a1: {a1: $0.a3.a1.a1.a2, a2: {a1: Graph_n__5908_1929_graphable($0.a1, $0.a3.a1), a2: {h: 0}}}}};
|
|
959
963
|
case undefined: /* just */ {
|
|
960
964
|
const $33 = {a1: $0.a3.a1.a1, a2: $0.a3.a1.a2};
|
|
961
965
|
switch(((Data_Date_nextMonth($0.a4.a1.a1.a2)===$0.a3.a1.a1.a2.a2)?1:0)) {
|
|
@@ -969,7 +973,7 @@ function x24tcOpt_4($0) {
|
|
|
969
973
|
}
|
|
970
974
|
default: {
|
|
971
975
|
switch($0.a4.h) {
|
|
972
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2.a1(), a3: $0.a3.a2, a4: {a1: {a1: $0.a3.a1.a1.a2, a2: {a1:
|
|
976
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2.a1(), a3: $0.a3.a2, a4: {a1: {a1: $0.a3.a1.a1.a2, a2: {a1: Graph_n__5908_1929_graphable($0.a1, $0.a3.a1), a2: {h: 0}}}}};
|
|
973
977
|
case undefined: /* just */ {
|
|
974
978
|
const $61 = {a1: $0.a3.a1.a1, a2: $0.a3.a1.a2};
|
|
975
979
|
switch(((Data_Date_nextMonth($0.a4.a1.a1.a2)===$0.a3.a1.a1.a2.a2)?1:0)) {
|
|
@@ -983,7 +987,7 @@ function x24tcOpt_4($0) {
|
|
|
983
987
|
}
|
|
984
988
|
default: {
|
|
985
989
|
switch($0.a4.h) {
|
|
986
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2.a1(), a3: $0.a3.a2, a4: {a1: {a1: $0.a3.a1.a1.a2, a2: {a1:
|
|
990
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2.a1(), a3: $0.a3.a2, a4: {a1: {a1: $0.a3.a1.a1.a2, a2: {a1: Graph_n__5908_1929_graphable($0.a1, $0.a3.a1), a2: {h: 0}}}}};
|
|
987
991
|
case undefined: /* just */ {
|
|
988
992
|
const $8f = {a1: $0.a3.a1.a1, a2: $0.a3.a1.a2};
|
|
989
993
|
switch(((Data_Date_nextMonth($0.a4.a1.a1.a2)===$0.a3.a1.a1.a2.a2)?1:0)) {
|
|
@@ -1007,7 +1011,7 @@ function x24tcOpt_4($0) {
|
|
|
1007
1011
|
case undefined: /* cons */ return {h: 0 /* {TcDone:4} */, a1: Data_List1_forget($0.a4.a1.a2)};
|
|
1008
1012
|
default: {
|
|
1009
1013
|
switch($0.a4.h) {
|
|
1010
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2.a1(), a3: $0.a3.a2, a4: {a1: {a1: $0.a3.a1.a1.a2, a2: {a1:
|
|
1014
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2.a1(), a3: $0.a3.a2, a4: {a1: {a1: $0.a3.a1.a1.a2, a2: {a1: Graph_n__5908_1929_graphable($0.a1, $0.a3.a1), a2: {h: 0}}}}};
|
|
1011
1015
|
case undefined: /* just */ {
|
|
1012
1016
|
const $c4 = {a1: $0.a3.a1.a1, a2: $0.a3.a1.a2};
|
|
1013
1017
|
switch(((Data_Date_nextMonth($0.a4.a1.a1.a2)===$0.a3.a1.a1.a2.a2)?1:0)) {
|
|
@@ -1021,7 +1025,7 @@ function x24tcOpt_4($0) {
|
|
|
1021
1025
|
}
|
|
1022
1026
|
default: {
|
|
1023
1027
|
switch($0.a4.h) {
|
|
1024
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2.a1(), a3: $0.a3.a2, a4: {a1: {a1: $0.a3.a1.a1.a2, a2: {a1:
|
|
1028
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2.a1(), a3: $0.a3.a2, a4: {a1: {a1: $0.a3.a1.a1.a2, a2: {a1: Graph_n__5908_1929_graphable($0.a1, $0.a3.a1), a2: {h: 0}}}}};
|
|
1025
1029
|
case undefined: /* just */ {
|
|
1026
1030
|
const $f2 = {a1: $0.a3.a1.a1, a2: $0.a3.a1.a2};
|
|
1027
1031
|
switch(((Data_Date_nextMonth($0.a4.a1.a1.a2)===$0.a3.a1.a1.a2.a2)?1:0)) {
|
|
@@ -1035,7 +1039,7 @@ function x24tcOpt_4($0) {
|
|
|
1035
1039
|
}
|
|
1036
1040
|
default: {
|
|
1037
1041
|
switch($0.a4.h) {
|
|
1038
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2.a1(), a3: $0.a3.a2, a4: {a1: {a1: $0.a3.a1.a1.a2, a2: {a1:
|
|
1042
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2.a1(), a3: $0.a3.a2, a4: {a1: {a1: $0.a3.a1.a1.a2, a2: {a1: Graph_n__5908_1929_graphable($0.a1, $0.a3.a1), a2: {h: 0}}}}};
|
|
1039
1043
|
case undefined: /* just */ {
|
|
1040
1044
|
const $120 = {a1: $0.a3.a1.a1, a2: $0.a3.a1.a2};
|
|
1041
1045
|
switch(((Data_Date_nextMonth($0.a4.a1.a1.a2)===$0.a3.a1.a1.a2.a2)?1:0)) {
|
|
@@ -1059,7 +1063,7 @@ function x24tcOpt_4($0) {
|
|
|
1059
1063
|
case undefined: /* cons */ return {h: 0 /* {TcDone:4} */, a1: Data_List1_forget($0.a4.a1.a2)};
|
|
1060
1064
|
default: {
|
|
1061
1065
|
switch($0.a4.h) {
|
|
1062
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2.a1(), a3: $0.a3.a2, a4: {a1: {a1: $0.a3.a1.a1.a2, a2: {a1:
|
|
1066
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2.a1(), a3: $0.a3.a2, a4: {a1: {a1: $0.a3.a1.a1.a2, a2: {a1: Graph_n__5908_1929_graphable($0.a1, $0.a3.a1), a2: {h: 0}}}}};
|
|
1063
1067
|
case undefined: /* just */ {
|
|
1064
1068
|
const $155 = {a1: $0.a3.a1.a1, a2: $0.a3.a1.a2};
|
|
1065
1069
|
switch(((Data_Date_nextMonth($0.a4.a1.a1.a2)===$0.a3.a1.a1.a2.a2)?1:0)) {
|
|
@@ -1073,7 +1077,7 @@ function x24tcOpt_4($0) {
|
|
|
1073
1077
|
}
|
|
1074
1078
|
default: {
|
|
1075
1079
|
switch($0.a4.h) {
|
|
1076
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2.a1(), a3: $0.a3.a2, a4: {a1: {a1: $0.a3.a1.a1.a2, a2: {a1:
|
|
1080
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2.a1(), a3: $0.a3.a2, a4: {a1: {a1: $0.a3.a1.a1.a2, a2: {a1: Graph_n__5908_1929_graphable($0.a1, $0.a3.a1), a2: {h: 0}}}}};
|
|
1077
1081
|
case undefined: /* just */ {
|
|
1078
1082
|
const $183 = {a1: $0.a3.a1.a1, a2: $0.a3.a1.a2};
|
|
1079
1083
|
switch(((Data_Date_nextMonth($0.a4.a1.a1.a2)===$0.a3.a1.a1.a2.a2)?1:0)) {
|
|
@@ -1087,7 +1091,7 @@ function x24tcOpt_4($0) {
|
|
|
1087
1091
|
}
|
|
1088
1092
|
default: {
|
|
1089
1093
|
switch($0.a4.h) {
|
|
1090
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2.a1(), a3: $0.a3.a2, a4: {a1: {a1: $0.a3.a1.a1.a2, a2: {a1:
|
|
1094
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2.a1(), a3: $0.a3.a2, a4: {a1: {a1: $0.a3.a1.a1.a2, a2: {a1: Graph_n__5908_1929_graphable($0.a1, $0.a3.a1), a2: {h: 0}}}}};
|
|
1091
1095
|
case undefined: /* just */ {
|
|
1092
1096
|
const $1b1 = {a1: $0.a3.a1.a1, a2: $0.a3.a1.a2};
|
|
1093
1097
|
switch(((Data_Date_nextMonth($0.a4.a1.a1.a2)===$0.a3.a1.a1.a2.a2)?1:0)) {
|
|
@@ -1109,18 +1113,18 @@ function x24tcOpt_4($0) {
|
|
|
1109
1113
|
}
|
|
1110
1114
|
}
|
|
1111
1115
|
|
|
1112
|
-
/* Graph.
|
|
1113
|
-
function
|
|
1116
|
+
/* Graph.5915:2026:insertNext */
|
|
1117
|
+
function Graph_n__5915_2026_insertNext($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
1114
1118
|
return __tailRec(x24tcOpt_4, {h: 1 /* {TcContinue4:1} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6, a8: $7});
|
|
1115
1119
|
}
|
|
1116
1120
|
|
|
1117
|
-
/* Graph.
|
|
1118
|
-
function
|
|
1121
|
+
/* Graph.5908:1930:unfoldGraph */
|
|
1122
|
+
function Graph_n__5908_1930_unfoldGraph($0, $1, $2, $3) {
|
|
1119
1123
|
return __tailRec(x24tcOpt_4, {h: 2 /* {TcContinue4:2} */, a1: $0, a2: $1, a3: $2, a4: $3});
|
|
1120
1124
|
}
|
|
1121
1125
|
|
|
1122
|
-
/* Graph.
|
|
1123
|
-
function
|
|
1126
|
+
/* Graph.5915:2027:insertPlaceholder */
|
|
1127
|
+
function Graph_n__5915_2027_insertPlaceholder($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
1124
1128
|
return __tailRec(x24tcOpt_4, {h: 3 /* {TcContinue4:3} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6, a8: $7});
|
|
1125
1129
|
}
|
|
1126
1130
|
|
|
@@ -1134,8 +1138,8 @@ function x24tcOpt_5($0) {
|
|
|
1134
1138
|
}
|
|
1135
1139
|
}
|
|
1136
1140
|
|
|
1137
|
-
/* Text.PrettyPrint.Prettyprinter.Doc.
|
|
1138
|
-
function
|
|
1141
|
+
/* Text.PrettyPrint.Prettyprinter.Doc.8891:6790:initialIndentation */
|
|
1142
|
+
function Text_PrettyPrint_Prettyprinter_Doc_n__8891_6790_initialIndentation($0, $1, $2, $3) {
|
|
1139
1143
|
return __tailRec(x24tcOpt_5, {h: 1 /* {TcContinue5:1} */, a1: $0, a2: $1, a3: $2, a4: $3});
|
|
1140
1144
|
}
|
|
1141
1145
|
|
|
@@ -1151,8 +1155,8 @@ function x24tcOpt_6($0) {
|
|
|
1151
1155
|
case 2: /* {TcContinue6:2} */ {
|
|
1152
1156
|
switch($0.a11.h) {
|
|
1153
1157
|
case undefined: /* just */ {
|
|
1154
|
-
const $16 = _add32s($0.a5, Number(_truncBigInt32(
|
|
1155
|
-
const $22 =
|
|
1158
|
+
const $16 = _add32s($0.a5, Number(_truncBigInt32(Text_Lexer_Core_n__3742_2499_countNLs($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, $0.a6, $0.a11.a1.a1))));
|
|
1159
|
+
const $22 = Text_Lexer_Core_n__3742_2500_getCols($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, $0.a6, $0.a11.a1.a1, $0.a4);
|
|
1156
1160
|
return {h: 0 /* {TcDone:6} */, 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: $22}}, a2: {a1: $16, a2: {a1: $22, a2: $0.a11.a1.a2}}}}};
|
|
1157
1161
|
}
|
|
1158
1162
|
case 0: /* nothing */ return {h: 1 /* {TcContinue6: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};
|
|
@@ -1161,8 +1165,8 @@ function x24tcOpt_6($0) {
|
|
|
1161
1165
|
}
|
|
1162
1166
|
}
|
|
1163
1167
|
|
|
1164
|
-
/* Text.Lexer.Core.
|
|
1165
|
-
function
|
|
1168
|
+
/* Text.Lexer.Core.3742:2501:getFirstToken */
|
|
1169
|
+
function Text_Lexer_Core_n__3742_2501_getFirstToken($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
1166
1170
|
return __tailRec(x24tcOpt_6, {h: 1 /* {TcContinue6:1} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6, a8: $7});
|
|
1167
1171
|
}
|
|
1168
1172
|
|
|
@@ -1205,7 +1209,7 @@ function Prelude_Types_compare_Ord_x28Listx20x24ax29($0, $1, $2) {
|
|
|
1205
1209
|
}
|
|
1206
1210
|
|
|
1207
1211
|
/* Prelude.Types.case block in compare */
|
|
1208
|
-
function
|
|
1212
|
+
function Prelude_Types_case__compare_6665($0, $1, $2, $3, $4, $5) {
|
|
1209
1213
|
return __tailRec(x24tcOpt_7, {h: 2 /* {TcContinue7:2} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5});
|
|
1210
1214
|
}
|
|
1211
1215
|
|
|
@@ -1242,19 +1246,19 @@ function Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29($0, $1, $2) {
|
|
|
1242
1246
|
function x24tcOpt_9($0) {
|
|
1243
1247
|
switch($0.a2.h) {
|
|
1244
1248
|
case 0: /* nil */ return {h: 0 /* {TcDone:9} */, a1: _truncToChar($0.a3)};
|
|
1245
|
-
case undefined: /* cons */ return {h: 1 /* {TcContinue9:1} */, a1: $0.a1, a2: $0.a2.a2, a3: _add32s(
|
|
1249
|
+
case undefined: /* cons */ return {h: 1 /* {TcContinue9:1} */, a1: $0.a1, a2: $0.a2.a2, a3: _add32s(Language_JSON_String_Tokens_n__3290_1166_hexVal($0.a1, $0.a2.a1), _mul32s(Number(_truncBigInt32(16n)), $0.a3))};
|
|
1246
1250
|
}
|
|
1247
1251
|
}
|
|
1248
1252
|
|
|
1249
|
-
/* Language.JSON.String.Tokens.
|
|
1250
|
-
function
|
|
1253
|
+
/* Language.JSON.String.Tokens.3290:1167:fromHex */
|
|
1254
|
+
function Language_JSON_String_Tokens_n__3290_1167_fromHex($0, $1, $2) {
|
|
1251
1255
|
return __tailRec(x24tcOpt_9, {h: 1 /* {TcContinue9:1} */, a1: $0, a2: $1, a3: $2});
|
|
1252
1256
|
}
|
|
1253
1257
|
|
|
1254
1258
|
/* {$tcOpt:10} */
|
|
1255
1259
|
function x24tcOpt_10($0) {
|
|
1256
1260
|
switch($0.h) {
|
|
1257
|
-
case 1: /* {TcContinue10:1} */ return {h: 2 /* {TcContinue10:2} */, a1: $0.a6, a2: $0.a5, a3: $0.a4, a4: $0.a3, a5: $0.a2, a6: $0.a1, a7:
|
|
1261
|
+
case 1: /* {TcContinue10:1} */ return {h: 2 /* {TcContinue10:2} */, a1: $0.a6, a2: $0.a5, a3: $0.a4, a4: $0.a3, a5: $0.a2, a6: $0.a1, a7: Text_Lexer_Core_n__3742_2501_getFirstToken($0.a6, $0.a5, $0.a4, $0.a3, $0.a2, $0.a1, $0.a5, $0.a6)};
|
|
1258
1262
|
case 2: /* {TcContinue10:2} */ {
|
|
1259
1263
|
switch($0.a7.h) {
|
|
1260
1264
|
case undefined: /* just */ {
|
|
@@ -1284,13 +1288,13 @@ function Text_Lexer_Core_case__tokenise_2724($0, $1, $2, $3, $4, $5, $6) {
|
|
|
1284
1288
|
function x24tcOpt_11($0) {
|
|
1285
1289
|
switch($0.a2.h) {
|
|
1286
1290
|
case 0: /* Leaf */ return {h: 0 /* {TcDone:11} */, a1: $0.a1({a1: $0.a2.a1, a2: $0.a2.a2})};
|
|
1287
|
-
case 1: /* Branch2 */ return {h: 1 /* {TcContinue11:1} */, a1: $9 => ({a1: $9, a2:
|
|
1288
|
-
case 2: /* Branch3 */ return {h: 1 /* {TcContinue11:1} */, a1: $11 => ({a1: $11, a2:
|
|
1291
|
+
case 1: /* Branch2 */ return {h: 1 /* {TcContinue11:1} */, a1: $9 => ({a1: $9, a2: Data_SortedMap_Dependent_n__6750_6807_treeToListx27($0.a1, $0.a2.a3)}), a2: $0.a2.a1};
|
|
1292
|
+
case 2: /* Branch3 */ return {h: 1 /* {TcContinue11:1} */, a1: $11 => ({a1: $11, a2: Data_SortedMap_Dependent_n__6750_6807_treeToListx27($16 => ({a1: $16, a2: Data_SortedMap_Dependent_n__6750_6807_treeToListx27($0.a1, $0.a2.a5)}), $0.a2.a3)}), a2: $0.a2.a1};
|
|
1289
1293
|
}
|
|
1290
1294
|
}
|
|
1291
1295
|
|
|
1292
|
-
/* Data.SortedMap.Dependent.
|
|
1293
|
-
function
|
|
1296
|
+
/* Data.SortedMap.Dependent.6750:6807:treeToList' */
|
|
1297
|
+
function Data_SortedMap_Dependent_n__6750_6807_treeToListx27($0, $1) {
|
|
1294
1298
|
return __tailRec(x24tcOpt_11, {h: 1 /* {TcContinue11:1} */, a1: $0, a2: $1});
|
|
1295
1299
|
}
|
|
1296
1300
|
|
|
@@ -1344,16 +1348,16 @@ function x24tcOpt_14($0) {
|
|
|
1344
1348
|
switch($0.a3.h) {
|
|
1345
1349
|
case 0: /* nil */ return {h: 0 /* {TcDone:14} */, a1: {h: 0}};
|
|
1346
1350
|
case undefined: /* cons */ {
|
|
1347
|
-
switch(Prelude_Types_elemBy(
|
|
1351
|
+
switch(Prelude_Types_elemBy(csegen_193(), $0.a2, $0.a3.a1, $0.a1)) {
|
|
1348
1352
|
case 1: return {h: 1 /* {TcContinue14:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3.a2};
|
|
1349
|
-
case 0: return {h: 0 /* {TcDone:14} */, a1: {a1: $0.a3.a1, a2:
|
|
1353
|
+
case 0: return {h: 0 /* {TcDone:14} */, a1: {a1: $0.a3.a1, a2: Data_List_n__4868_3930_nubByx27({a1: $0.a3.a1, a2: $0.a1}, $0.a2, $0.a3.a2)}};
|
|
1350
1354
|
}
|
|
1351
1355
|
}
|
|
1352
1356
|
}
|
|
1353
1357
|
}
|
|
1354
1358
|
|
|
1355
|
-
/* Data.List.
|
|
1356
|
-
function
|
|
1359
|
+
/* Data.List.4868:3930:nubBy' */
|
|
1360
|
+
function Data_List_n__4868_3930_nubByx27($0, $1, $2) {
|
|
1357
1361
|
return __tailRec(x24tcOpt_14, {h: 1 /* {TcContinue14:1} */, a1: $0, a2: $1, a3: $2});
|
|
1358
1362
|
}
|
|
1359
1363
|
|
|
@@ -1508,16 +1512,16 @@ function x24tcOpt_21($0) {
|
|
|
1508
1512
|
case 0: /* nil */ return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: {h: 0}}};
|
|
1509
1513
|
case undefined: /* cons */ {
|
|
1510
1514
|
switch($0.a3.a1) {
|
|
1511
|
-
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1515
|
+
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3923_7830_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1512
1516
|
case '\r': {
|
|
1513
1517
|
switch($0.a3.a2.h) {
|
|
1514
1518
|
case undefined: /* cons */ {
|
|
1515
1519
|
switch($0.a3.a2.a1) {
|
|
1516
|
-
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1517
|
-
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1520
|
+
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3923_7830_linesHelp($0.a1, {h: 0}, $0.a3.a2.a2)}};
|
|
1521
|
+
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3923_7830_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1518
1522
|
}
|
|
1519
1523
|
}
|
|
1520
|
-
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1524
|
+
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3923_7830_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1521
1525
|
}
|
|
1522
1526
|
}
|
|
1523
1527
|
default: return {h: 1 /* {TcContinue21:1} */, a1: $0.a1, a2: {a1: $0.a3.a1, a2: $0.a2}, a3: $0.a3.a2};
|
|
@@ -1532,16 +1536,16 @@ function x24tcOpt_21($0) {
|
|
|
1532
1536
|
case 0: /* nil */ return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: {h: 0}}};
|
|
1533
1537
|
case undefined: /* cons */ {
|
|
1534
1538
|
switch($0.a3.a1) {
|
|
1535
|
-
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1539
|
+
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3923_7830_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1536
1540
|
case '\r': {
|
|
1537
1541
|
switch($0.a3.a2.h) {
|
|
1538
1542
|
case undefined: /* cons */ {
|
|
1539
1543
|
switch($0.a3.a2.a1) {
|
|
1540
|
-
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1541
|
-
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1544
|
+
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3923_7830_linesHelp($0.a1, {h: 0}, $0.a3.a2.a2)}};
|
|
1545
|
+
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3923_7830_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1542
1546
|
}
|
|
1543
1547
|
}
|
|
1544
|
-
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1548
|
+
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3923_7830_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1545
1549
|
}
|
|
1546
1550
|
}
|
|
1547
1551
|
default: return {h: 1 /* {TcContinue21:1} */, a1: $0.a1, a2: {a1: $0.a3.a1, a2: $0.a2}, a3: $0.a3.a2};
|
|
@@ -1552,8 +1556,8 @@ function x24tcOpt_21($0) {
|
|
|
1552
1556
|
}
|
|
1553
1557
|
}
|
|
1554
1558
|
|
|
1555
|
-
/* Data.String.
|
|
1556
|
-
function
|
|
1559
|
+
/* Data.String.3923:7830:linesHelp */
|
|
1560
|
+
function Data_String_n__3923_7830_linesHelp($0, $1, $2) {
|
|
1557
1561
|
return __tailRec(x24tcOpt_21, {h: 1 /* {TcContinue21:1} */, a1: $0, a2: $1, a3: $2});
|
|
1558
1562
|
}
|
|
1559
1563
|
|
|
@@ -1574,14 +1578,14 @@ function Prelude_Types_List_lengthPlus($0, $1) {
|
|
|
1574
1578
|
function x24tcOpt_23($0) {
|
|
1575
1579
|
switch($0.a6.h) {
|
|
1576
1580
|
case 0: /* Nil */ return {h: 0 /* {TcDone:23} */, a1: {h: 0 /* SEmpty */}};
|
|
1577
|
-
case 2: /* UndoAnn */ return {h: 0 /* {TcDone:23} */, a1: {h: 5 /* SAnnPop */, a1:
|
|
1581
|
+
case 2: /* UndoAnn */ return {h: 0 /* {TcDone:23} */, a1: {h: 5 /* SAnnPop */, a1: Text_PrettyPrint_Prettyprinter_Doc_n__8891_6792_best($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, $0.a6.a1)}};
|
|
1578
1582
|
case 1: /* Cons */ {
|
|
1579
1583
|
switch($0.a6.a2.h) {
|
|
1580
1584
|
case 0: /* Empty */ return {h: 1 /* {TcContinue23:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6.a3};
|
|
1581
|
-
case 1: /* Chara */ return {h: 0 /* {TcDone:23} */, a1: {h: 1 /* SChar */, a1: $0.a6.a2.a1, a2: () =>
|
|
1582
|
-
case 2: /* Text */ return {h: 0 /* {TcDone:23} */, a1: {h: 2 /* SText */, a1: $0.a6.a2.a1, a2: $0.a6.a2.a2, a3: () =>
|
|
1585
|
+
case 1: /* Chara */ return {h: 0 /* {TcDone:23} */, a1: {h: 1 /* SChar */, a1: $0.a6.a2.a1, a2: () => Text_PrettyPrint_Prettyprinter_Doc_n__8891_6792_best($0.a1, $0.a2, $0.a3, $0.a4, _add32s($0.a5, 1), $0.a6.a3)}};
|
|
1586
|
+
case 2: /* Text */ return {h: 0 /* {TcDone:23} */, a1: {h: 2 /* SText */, a1: $0.a6.a2.a1, a2: $0.a6.a2.a2, a3: () => Text_PrettyPrint_Prettyprinter_Doc_n__8891_6792_best($0.a1, $0.a2, $0.a3, $0.a4, _add32s($0.a5, $0.a6.a2.a1), $0.a6.a3)}};
|
|
1583
1587
|
case 3: /* Line */ {
|
|
1584
|
-
const $2d =
|
|
1588
|
+
const $2d = Text_PrettyPrint_Prettyprinter_Doc_n__8891_6792_best($0.a1, $0.a2, $0.a3, $0.a6.a1, $0.a6.a1, $0.a6.a3);
|
|
1585
1589
|
let $35;
|
|
1586
1590
|
switch($2d.h) {
|
|
1587
1591
|
case 0: /* SEmpty */ {
|
|
@@ -1600,21 +1604,21 @@ function x24tcOpt_23($0) {
|
|
|
1600
1604
|
case 5: /* Cat */ return {h: 1 /* {TcContinue23:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a1, a3: {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a2, a3: $0.a6.a3}}};
|
|
1601
1605
|
case 6: /* Nest */ return {h: 1 /* {TcContinue23:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1 /* Cons */, a1: _add32s($0.a6.a1, $0.a6.a2.a1), a2: $0.a6.a2.a2, a3: $0.a6.a3}};
|
|
1602
1606
|
case 7: /* Union */ {
|
|
1603
|
-
const $5d =
|
|
1604
|
-
const $69 =
|
|
1605
|
-
return {h: 0 /* {TcDone:23} */, a1:
|
|
1607
|
+
const $5d = Text_PrettyPrint_Prettyprinter_Doc_n__8891_6792_best($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a1(), a3: $0.a6.a3});
|
|
1608
|
+
const $69 = Text_PrettyPrint_Prettyprinter_Doc_n__8891_6792_best($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a2(), a3: $0.a6.a3});
|
|
1609
|
+
return {h: 0 /* {TcDone:23} */, a1: Text_PrettyPrint_Prettyprinter_Doc_n__8891_6791_selectNicer($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, $5d, () => $69)};
|
|
1606
1610
|
}
|
|
1607
1611
|
case 8: /* Column */ return {h: 1 /* {TcContinue23:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a1($0.a5), a3: $0.a6.a3}};
|
|
1608
1612
|
case 9: /* WithPageWidth */ return {h: 1 /* {TcContinue23:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a1($0.a2), a3: $0.a6.a3}};
|
|
1609
1613
|
case 10: /* Nesting */ return {h: 1 /* {TcContinue23:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a1($0.a6.a1), a3: $0.a6.a3}};
|
|
1610
|
-
case 11: /* Annotated */ return {h: 0 /* {TcDone:23} */, a1: {h: 4 /* SAnnPush */, a1: $0.a6.a2.a1, a2:
|
|
1614
|
+
case 11: /* Annotated */ return {h: 0 /* {TcDone:23} */, a1: {h: 4 /* SAnnPush */, a1: $0.a6.a2.a1, a2: Text_PrettyPrint_Prettyprinter_Doc_n__8891_6792_best($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a2, a3: {h: 2 /* UndoAnn */, a1: $0.a6.a3}})}};
|
|
1611
1615
|
}
|
|
1612
1616
|
}
|
|
1613
1617
|
}
|
|
1614
1618
|
}
|
|
1615
1619
|
|
|
1616
|
-
/* Text.PrettyPrint.Prettyprinter.Doc.
|
|
1617
|
-
function
|
|
1620
|
+
/* Text.PrettyPrint.Prettyprinter.Doc.8891:6792:best */
|
|
1621
|
+
function Text_PrettyPrint_Prettyprinter_Doc_n__8891_6792_best($0, $1, $2, $3, $4, $5) {
|
|
1618
1622
|
return __tailRec(x24tcOpt_23, {h: 1 /* {TcContinue23:1} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5});
|
|
1619
1623
|
}
|
|
1620
1624
|
|
|
@@ -1898,14 +1902,27 @@ function Data_Nat_LTEImpliesNotGT($0, $1) {
|
|
|
1898
1902
|
/* {$tcOpt:39} */
|
|
1899
1903
|
function x24tcOpt_39($0) {
|
|
1900
1904
|
switch($0.a1.h) {
|
|
1901
|
-
case 0: /* nil */ return {h: 0 /* {TcDone:39} */, a1:
|
|
1902
|
-
case undefined: /* cons */ return {h: 1 /* {TcContinue39:1} */, a1: $0.a1.a1
|
|
1905
|
+
case 0: /* nil */ return {h: 0 /* {TcDone:39} */, a1: undefined};
|
|
1906
|
+
case undefined: /* cons */ return {h: 1 /* {TcContinue39:1} */, a1: $0.a1.a1};
|
|
1907
|
+
}
|
|
1908
|
+
}
|
|
1909
|
+
|
|
1910
|
+
/* Syntax.PreorderReasoning.Calc : FastDerivation x y -> x = y */
|
|
1911
|
+
function Syntax_PreorderReasoning_Calc($0) {
|
|
1912
|
+
return __tailRec(x24tcOpt_39, {h: 1 /* {TcContinue39:1} */, a1: $0});
|
|
1913
|
+
}
|
|
1914
|
+
|
|
1915
|
+
/* {$tcOpt:40} */
|
|
1916
|
+
function x24tcOpt_40($0) {
|
|
1917
|
+
switch($0.a1.h) {
|
|
1918
|
+
case 0: /* nil */ return {h: 0 /* {TcDone:40} */, a1: $0.a2};
|
|
1919
|
+
case undefined: /* cons */ return {h: 1 /* {TcContinue40:1} */, a1: $0.a1.a1, a2: {a1: $0.a1.a2, a2: $0.a2}};
|
|
1903
1920
|
}
|
|
1904
1921
|
}
|
|
1905
1922
|
|
|
1906
1923
|
/* Prelude.Types.SnocList.<>> : SnocList a -> List a -> List a */
|
|
1907
1924
|
function Prelude_Types_SnocList_x3cx3ex3e($0, $1) {
|
|
1908
|
-
return __tailRec(
|
|
1925
|
+
return __tailRec(x24tcOpt_40, {h: 1 /* {TcContinue40:1} */, a1: $0, a2: $1});
|
|
1909
1926
|
}
|
|
1910
1927
|
|
|
1911
1928
|
/* {__mainExpression:0} */
|
|
@@ -2104,340 +2121,350 @@ const csegen_136 = __lazy(function () {
|
|
|
2104
2121
|
return {a1: $1 => $2 => Prelude_Interfaces_Bool_Semigroup_x3cx2bx3e_Semigroup_AnyBool($1, $2), a2: 0};
|
|
2105
2122
|
});
|
|
2106
2123
|
|
|
2107
|
-
/* {csegen:
|
|
2108
|
-
const
|
|
2124
|
+
/* {csegen:174} */
|
|
2125
|
+
const csegen_174 = __lazy(function () {
|
|
2126
|
+
return {a1: {a1: {h: 0}, a2: undefined}, a2: undefined};
|
|
2127
|
+
});
|
|
2128
|
+
|
|
2129
|
+
/* {csegen:193} */
|
|
2130
|
+
const csegen_193 = __lazy(function () {
|
|
2109
2131
|
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)};
|
|
2110
2132
|
});
|
|
2111
2133
|
|
|
2112
|
-
/* {csegen:
|
|
2113
|
-
const
|
|
2134
|
+
/* {csegen:200} */
|
|
2135
|
+
const csegen_200 = __lazy(function () {
|
|
2114
2136
|
return b => a => $0 => $1 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($0, $1);
|
|
2115
2137
|
});
|
|
2116
2138
|
|
|
2117
|
-
/* {csegen:
|
|
2118
|
-
const
|
|
2139
|
+
/* {csegen:201} */
|
|
2140
|
+
const csegen_201 = __lazy(function () {
|
|
2119
2141
|
return a => $0 => Prelude_Types_join_Monad_x28Eitherx20x24ex29($0);
|
|
2120
2142
|
});
|
|
2121
2143
|
|
|
2122
|
-
/* {csegen:
|
|
2123
|
-
const
|
|
2144
|
+
/* {csegen:217} */
|
|
2145
|
+
const csegen_217 = __lazy(function () {
|
|
2124
2146
|
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)};
|
|
2125
2147
|
});
|
|
2126
2148
|
|
|
2127
|
-
/* {csegen:
|
|
2128
|
-
const
|
|
2149
|
+
/* {csegen:221} */
|
|
2150
|
+
const csegen_221 = __lazy(function () {
|
|
2129
2151
|
return b => a => f => $0 => $1 => $2 => Prelude_Types_traverse_Traversable_x28Eitherx20x24ex29($0, $1, $2);
|
|
2130
2152
|
});
|
|
2131
2153
|
|
|
2132
|
-
/* {csegen:
|
|
2133
|
-
const
|
|
2154
|
+
/* {csegen:235} */
|
|
2155
|
+
const csegen_235 = __lazy(function () {
|
|
2134
2156
|
return {a1: $1 => $2 => _add32s($1, $2), a2: $6 => $7 => _mul32s($6, $7), a3: $b => Number(_truncBigInt32($b))};
|
|
2135
2157
|
});
|
|
2136
2158
|
|
|
2137
|
-
/* {csegen:
|
|
2138
|
-
const
|
|
2159
|
+
/* {csegen:249} */
|
|
2160
|
+
const csegen_249 = __lazy(function () {
|
|
2139
2161
|
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)};
|
|
2140
2162
|
});
|
|
2141
2163
|
|
|
2142
|
-
/* {csegen:
|
|
2143
|
-
const
|
|
2164
|
+
/* {csegen:258} */
|
|
2165
|
+
const csegen_258 = __lazy(function () {
|
|
2144
2166
|
const $0 = b => a => func => $1 => Text_Bounded_map_Functor_WithBounds(func, $1);
|
|
2145
2167
|
return $5 => $6 => $0(undefined)(undefined)($5)($6);
|
|
2146
2168
|
});
|
|
2147
2169
|
|
|
2148
|
-
/* {csegen:
|
|
2149
|
-
const
|
|
2170
|
+
/* {csegen:270} */
|
|
2171
|
+
const csegen_270 = __lazy(function () {
|
|
2150
2172
|
const $0 = $1 => $2 => $3 => $4 => Text_Parser_Core_map_Functor_x28x28x28Grammarx20x24statex29x20x24tokx29x20x24cx29(1, $3, $4);
|
|
2151
2173
|
return $9 => $a => $0(undefined)(undefined)($9)($a);
|
|
2152
2174
|
});
|
|
2153
2175
|
|
|
2154
|
-
/* {csegen:
|
|
2155
|
-
const
|
|
2176
|
+
/* {csegen:274} */
|
|
2177
|
+
const csegen_274 = __lazy(function () {
|
|
2156
2178
|
return {a1: $1 => Language_JSON_Tokens_TokType_TokenKind_JSONTokenKind($1), a2: kind => $5 => Language_JSON_Tokens_tokValue_TokenKind_JSONTokenKind(kind, $5)};
|
|
2157
2179
|
});
|
|
2158
2180
|
|
|
2159
|
-
/* {csegen:
|
|
2160
|
-
const
|
|
2181
|
+
/* {csegen:277} */
|
|
2182
|
+
const csegen_277 = __lazy(function () {
|
|
2161
2183
|
return {a1: $1 => $2 => Language_JSON_Tokens_x3dx3d_Eq_JSONTokenKind($1, $2), a2: $7 => $8 => Language_JSON_Tokens_x2fx3d_Eq_JSONTokenKind($7, $8)};
|
|
2162
2184
|
});
|
|
2163
2185
|
|
|
2164
|
-
/* {csegen:
|
|
2165
|
-
const
|
|
2186
|
+
/* {csegen:319} */
|
|
2187
|
+
const csegen_319 = __lazy(function () {
|
|
2166
2188
|
return {a1: $1 => Language_JSON_String_Tokens_TokType_TokenKind_JSONStringTokenKind($1), a2: kind => $5 => Language_JSON_String_Tokens_tokValue_TokenKind_JSONStringTokenKind(kind, $5)};
|
|
2167
2189
|
});
|
|
2168
2190
|
|
|
2169
|
-
/* {csegen:
|
|
2170
|
-
const
|
|
2191
|
+
/* {csegen:322} */
|
|
2192
|
+
const csegen_322 = __lazy(function () {
|
|
2171
2193
|
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)};
|
|
2172
2194
|
});
|
|
2173
2195
|
|
|
2174
|
-
/* {csegen:
|
|
2175
|
-
const
|
|
2196
|
+
/* {csegen:340} */
|
|
2197
|
+
const csegen_340 = __lazy(function () {
|
|
2176
2198
|
const $0 = b => a => func => $1 => Text_Parser_Core_map_Functor_x28x28x28Grammarx20x24statex29x20x24tokx29x20x24cx29(1, func, $1);
|
|
2177
2199
|
return $6 => $7 => $0(undefined)(undefined)($6)($7);
|
|
2178
2200
|
});
|
|
2179
2201
|
|
|
2180
|
-
/* {csegen:335} */
|
|
2181
|
-
const csegen_335 = __lazy(function () {
|
|
2182
|
-
return csegen_334()($3 => $4 => $4);
|
|
2183
|
-
});
|
|
2184
|
-
|
|
2185
2202
|
/* {csegen:341} */
|
|
2186
2203
|
const csegen_341 = __lazy(function () {
|
|
2204
|
+
return csegen_340()($3 => $4 => $4);
|
|
2205
|
+
});
|
|
2206
|
+
|
|
2207
|
+
/* {csegen:347} */
|
|
2208
|
+
const csegen_347 = __lazy(function () {
|
|
2187
2209
|
const $0 = $1 => $2 => $3 => $4 => Text_Bounded_map_Functor_WithBounds($3, $4);
|
|
2188
2210
|
return $8 => $9 => $0(undefined)(undefined)($8)($9);
|
|
2189
2211
|
});
|
|
2190
2212
|
|
|
2191
|
-
/* {csegen:
|
|
2192
|
-
const
|
|
2213
|
+
/* {csegen:352} */
|
|
2214
|
+
const csegen_352 = __lazy(function () {
|
|
2193
2215
|
return {a1: {a1: csegen_62()('End of input'), a2: {h: 0}}, a2: {h: 0}};
|
|
2194
2216
|
});
|
|
2195
2217
|
|
|
2196
|
-
/* {csegen:
|
|
2197
|
-
const
|
|
2218
|
+
/* {csegen:398} */
|
|
2219
|
+
const csegen_398 = __lazy(function () {
|
|
2198
2220
|
return $0 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($0));
|
|
2199
2221
|
});
|
|
2200
2222
|
|
|
2201
|
-
/* {csegen:
|
|
2202
|
-
const
|
|
2223
|
+
/* {csegen:409} */
|
|
2224
|
+
const csegen_409 = __lazy(function () {
|
|
2203
2225
|
const $0 = $1 => Number(_truncUBigInt32($1));
|
|
2204
2226
|
return $3 => $0($3);
|
|
2205
2227
|
});
|
|
2206
2228
|
|
|
2207
|
-
/* {csegen:
|
|
2208
|
-
const
|
|
2229
|
+
/* {csegen:410} */
|
|
2230
|
+
const csegen_410 = __lazy(function () {
|
|
2209
2231
|
return $0 => Language_JSON_Accessors_optional($3 => Language_JSON_Accessors_string($3), $0);
|
|
2210
2232
|
});
|
|
2211
2233
|
|
|
2212
|
-
/* {csegen:
|
|
2213
|
-
const
|
|
2234
|
+
/* {csegen:412} */
|
|
2235
|
+
const csegen_412 = __lazy(function () {
|
|
2214
2236
|
return csegen_60()($3 => $3);
|
|
2215
2237
|
});
|
|
2216
2238
|
|
|
2217
|
-
/* {csegen:
|
|
2218
|
-
const
|
|
2239
|
+
/* {csegen:428} */
|
|
2240
|
+
const csegen_428 = __lazy(function () {
|
|
2219
2241
|
return $0 => Data_Either_maybeToEither(() => 'Failed to parse JSON', Language_JSON_parse($0));
|
|
2220
2242
|
});
|
|
2221
2243
|
|
|
2222
|
-
/* {csegen:
|
|
2223
|
-
const
|
|
2244
|
+
/* {csegen:429} */
|
|
2245
|
+
const csegen_429 = __lazy(function () {
|
|
2224
2246
|
return $0 => $1 => Prelude_Types_max_Ord_Nat($0, $1);
|
|
2225
2247
|
});
|
|
2226
2248
|
|
|
2227
|
-
/* {csegen:
|
|
2228
|
-
const
|
|
2249
|
+
/* {csegen:434} */
|
|
2250
|
+
const csegen_434 = __lazy(function () {
|
|
2229
2251
|
return csegen_116()($3 => ({h: 3 /* JString */, a1: $3}));
|
|
2230
2252
|
});
|
|
2231
2253
|
|
|
2232
|
-
/* {csegen:
|
|
2233
|
-
const
|
|
2254
|
+
/* {csegen:442} */
|
|
2255
|
+
const csegen_442 = __lazy(function () {
|
|
2234
2256
|
return {a1: csegen_45(), 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)};
|
|
2235
2257
|
});
|
|
2236
2258
|
|
|
2237
|
-
/* {csegen:
|
|
2238
|
-
const
|
|
2259
|
+
/* {csegen:446} */
|
|
2260
|
+
const csegen_446 = __lazy(function () {
|
|
2239
2261
|
return {a1: csegen_62()('.'), a2: {h: 0}};
|
|
2240
2262
|
});
|
|
2241
2263
|
|
|
2242
|
-
/* {csegen:
|
|
2243
|
-
const
|
|
2264
|
+
/* {csegen:448} */
|
|
2265
|
+
const csegen_448 = __lazy(function () {
|
|
2244
2266
|
return csegen_55()($3 => Data_String_lines($3));
|
|
2245
2267
|
});
|
|
2246
2268
|
|
|
2247
|
-
/* {csegen:
|
|
2248
|
-
const
|
|
2269
|
+
/* {csegen:449} */
|
|
2270
|
+
const csegen_449 = __lazy(function () {
|
|
2249
2271
|
return $0 => $1 => Data_Promise_x3ex3ex3d_Monad_Promise($0, $1);
|
|
2250
2272
|
});
|
|
2251
2273
|
|
|
2252
|
-
/* {csegen:
|
|
2253
|
-
const
|
|
2274
|
+
/* {csegen:450} */
|
|
2275
|
+
const csegen_450 = __lazy(function () {
|
|
2254
2276
|
return $0 => $1 => Data_Promise_either(csegen_72(), Data_PullRequest_parsePullRequestsString($0), $1);
|
|
2255
2277
|
});
|
|
2256
2278
|
|
|
2257
|
-
/* {csegen:
|
|
2258
|
-
const
|
|
2279
|
+
/* {csegen:451} */
|
|
2280
|
+
const csegen_451 = __lazy(function () {
|
|
2259
2281
|
return $0 => $1 => Data_Promise_either(csegen_72(), Data_User_parseUserString($0), $1);
|
|
2260
2282
|
});
|
|
2261
2283
|
|
|
2262
|
-
/* {csegen:
|
|
2263
|
-
const
|
|
2284
|
+
/* {csegen:460} */
|
|
2285
|
+
const csegen_460 = __lazy(function () {
|
|
2264
2286
|
return $0 => $1 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($0, $1);
|
|
2265
2287
|
});
|
|
2266
2288
|
|
|
2267
|
-
/* {csegen:
|
|
2268
|
-
const
|
|
2289
|
+
/* {csegen:474} */
|
|
2290
|
+
const csegen_474 = __lazy(function () {
|
|
2269
2291
|
return $0 => Language_JSON_Accessors_array($3 => Data_PullRequest_parsePR($3), $0);
|
|
2270
2292
|
});
|
|
2271
2293
|
|
|
2272
|
-
/* {csegen:
|
|
2273
|
-
const
|
|
2294
|
+
/* {csegen:482} */
|
|
2295
|
+
const csegen_482 = __lazy(function () {
|
|
2274
2296
|
return $0 => $1 => $2 => Data_Promise_pure_Applicative_Promise($0, $1, $2);
|
|
2275
2297
|
});
|
|
2276
2298
|
|
|
2277
|
-
/* {csegen:
|
|
2278
|
-
const
|
|
2299
|
+
/* {csegen:484} */
|
|
2300
|
+
const csegen_484 = __lazy(function () {
|
|
2279
2301
|
return $0 => $0.a2;
|
|
2280
2302
|
});
|
|
2281
2303
|
|
|
2282
|
-
/* {csegen:
|
|
2283
|
-
const
|
|
2304
|
+
/* {csegen:489} */
|
|
2305
|
+
const csegen_489 = __lazy(function () {
|
|
2284
2306
|
return $0 => $0.a1;
|
|
2285
2307
|
});
|
|
2286
2308
|
|
|
2287
|
-
/* {csegen:
|
|
2288
|
-
const
|
|
2309
|
+
/* {csegen:491} */
|
|
2310
|
+
const csegen_491 = __lazy(function () {
|
|
2289
2311
|
const $0 = csegen_126();
|
|
2290
2312
|
return $2 => $3 => $0($2)($3);
|
|
2291
2313
|
});
|
|
2292
2314
|
|
|
2293
|
-
/* {csegen:
|
|
2294
|
-
const
|
|
2315
|
+
/* {csegen:502} */
|
|
2316
|
+
const csegen_502 = __lazy(function () {
|
|
2295
2317
|
return csegen_62()(': ');
|
|
2296
2318
|
});
|
|
2297
2319
|
|
|
2298
|
-
/* {csegen:
|
|
2299
|
-
const
|
|
2300
|
-
return csegen_55()(
|
|
2320
|
+
/* {csegen:505} */
|
|
2321
|
+
const csegen_505 = __lazy(function () {
|
|
2322
|
+
return csegen_55()(csegen_409())(System_time(csegen_94()));
|
|
2301
2323
|
});
|
|
2302
2324
|
|
|
2303
|
-
/* {csegen:
|
|
2304
|
-
const
|
|
2325
|
+
/* {csegen:511} */
|
|
2326
|
+
const csegen_511 = __lazy(function () {
|
|
2305
2327
|
return csegen_62()('Error loading ');
|
|
2306
2328
|
});
|
|
2307
2329
|
|
|
2308
|
-
/* {csegen:
|
|
2309
|
-
const
|
|
2330
|
+
/* {csegen:512} */
|
|
2331
|
+
const csegen_512 = __lazy(function () {
|
|
2310
2332
|
return csegen_62()(Data_Config_filename());
|
|
2311
2333
|
});
|
|
2312
2334
|
|
|
2313
|
-
/* {csegen:
|
|
2314
|
-
const
|
|
2335
|
+
/* {csegen:528} */
|
|
2336
|
+
const csegen_528 = __lazy(function () {
|
|
2315
2337
|
return $0 => $1 => $2 => Data_Promise_liftIO_HasIO_Promise($5 => Prelude_IO_prim__getStr($5), $0, $1, $2);
|
|
2316
2338
|
});
|
|
2317
2339
|
|
|
2318
|
-
/* {csegen:
|
|
2319
|
-
const
|
|
2340
|
+
/* {csegen:532} */
|
|
2341
|
+
const csegen_532 = __lazy(function () {
|
|
2320
2342
|
return $0 => $1 => Data_Promise_pure_Applicative_Promise({h: 0}, $0, $1);
|
|
2321
2343
|
});
|
|
2322
2344
|
|
|
2323
|
-
/* {csegen:
|
|
2324
|
-
const
|
|
2345
|
+
/* {csegen:535} */
|
|
2346
|
+
const csegen_535 = __lazy(function () {
|
|
2325
2347
|
return {a1: csegen_62()('?'), a2: {h: 0}};
|
|
2326
2348
|
});
|
|
2327
2349
|
|
|
2328
|
-
/* {csegen:
|
|
2329
|
-
const
|
|
2350
|
+
/* {csegen:578} */
|
|
2351
|
+
const csegen_578 = __lazy(function () {
|
|
2330
2352
|
return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()(', '));
|
|
2331
2353
|
});
|
|
2332
2354
|
|
|
2333
|
-
/* {csegen:
|
|
2334
|
-
const
|
|
2355
|
+
/* {csegen:588} */
|
|
2356
|
+
const csegen_588 = __lazy(function () {
|
|
2335
2357
|
return {a1: csegen_9(), a2: a => ({h: 0}), a3: a => $4 => $5 => Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, $5)};
|
|
2336
2358
|
});
|
|
2337
2359
|
|
|
2338
|
-
/* {csegen:
|
|
2339
|
-
const
|
|
2340
|
-
return csegen_55()($3 => Data_List_sort(
|
|
2360
|
+
/* {csegen:590} */
|
|
2361
|
+
const csegen_590 = __lazy(function () {
|
|
2362
|
+
return csegen_55()($3 => Data_List_sort(csegen_442(), $3));
|
|
2341
2363
|
});
|
|
2342
2364
|
|
|
2343
|
-
/* {csegen:
|
|
2344
|
-
const
|
|
2345
|
-
return $0 => FFI_Concurrency_promiseAll(
|
|
2365
|
+
/* {csegen:591} */
|
|
2366
|
+
const csegen_591 = __lazy(function () {
|
|
2367
|
+
return $0 => FFI_Concurrency_promiseAll(csegen_193(), $0);
|
|
2346
2368
|
});
|
|
2347
2369
|
|
|
2348
|
-
/* {csegen:
|
|
2349
|
-
const
|
|
2370
|
+
/* {csegen:593} */
|
|
2371
|
+
const csegen_593 = __lazy(function () {
|
|
2350
2372
|
const $0 = $1 => Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1);
|
|
2351
2373
|
return $4 => $0($4);
|
|
2352
2374
|
});
|
|
2353
2375
|
|
|
2354
|
-
/* {csegen:
|
|
2355
|
-
const
|
|
2376
|
+
/* {csegen:604} */
|
|
2377
|
+
const csegen_604 = __lazy(function () {
|
|
2356
2378
|
return csegen_55()($3 => $3.a1);
|
|
2357
2379
|
});
|
|
2358
2380
|
|
|
2359
|
-
/* {csegen:
|
|
2360
|
-
const
|
|
2381
|
+
/* {csegen:606} */
|
|
2382
|
+
const csegen_606 = __lazy(function () {
|
|
2361
2383
|
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2362
2384
|
});
|
|
2363
2385
|
|
|
2364
|
-
/* {csegen:
|
|
2365
|
-
const
|
|
2386
|
+
/* {csegen:607} */
|
|
2387
|
+
const csegen_607 = __lazy(function () {
|
|
2366
2388
|
return $0 => $0.a2;
|
|
2367
2389
|
});
|
|
2368
2390
|
|
|
2369
|
-
/* {csegen:
|
|
2370
|
-
const
|
|
2371
|
-
return $0 => $1 => Prelude_Basics_on(
|
|
2391
|
+
/* {csegen:608} */
|
|
2392
|
+
const csegen_608 = __lazy(function () {
|
|
2393
|
+
return $0 => $1 => Prelude_Basics_on(csegen_606(), csegen_607(), $0, $1);
|
|
2372
2394
|
});
|
|
2373
2395
|
|
|
2374
|
-
/* {csegen:
|
|
2375
|
-
const
|
|
2396
|
+
/* {csegen:621} */
|
|
2397
|
+
const csegen_621 = __lazy(function () {
|
|
2376
2398
|
return $0 => $0.a2;
|
|
2377
2399
|
});
|
|
2378
2400
|
|
|
2379
|
-
/* {csegen:
|
|
2380
|
-
const
|
|
2401
|
+
/* {csegen:628} */
|
|
2402
|
+
const csegen_628 = __lazy(function () {
|
|
2381
2403
|
return $0 => $0.a1;
|
|
2382
2404
|
});
|
|
2383
2405
|
|
|
2384
|
-
/* {csegen:
|
|
2385
|
-
const
|
|
2406
|
+
/* {csegen:643} */
|
|
2407
|
+
const csegen_643 = __lazy(function () {
|
|
2386
2408
|
return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('open:'));
|
|
2387
2409
|
});
|
|
2388
2410
|
|
|
2389
|
-
/* {csegen:
|
|
2390
|
-
const
|
|
2411
|
+
/* {csegen:647} */
|
|
2412
|
+
const csegen_647 = __lazy(function () {
|
|
2391
2413
|
return csegen_60()(date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('earliest:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date(date)), a2: {h: 0}}})));
|
|
2392
2414
|
});
|
|
2393
2415
|
|
|
2394
|
-
/* {csegen:
|
|
2395
|
-
const
|
|
2416
|
+
/* {csegen:649} */
|
|
2417
|
+
const csegen_649 = __lazy(function () {
|
|
2396
2418
|
return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('closed:'));
|
|
2397
2419
|
});
|
|
2398
2420
|
|
|
2399
|
-
/* {csegen:
|
|
2400
|
-
const
|
|
2421
|
+
/* {csegen:672} */
|
|
2422
|
+
const csegen_672 = __lazy(function () {
|
|
2401
2423
|
return csegen_62()('pr_description.tmp.md');
|
|
2402
2424
|
});
|
|
2403
2425
|
|
|
2404
|
-
/* {csegen:
|
|
2405
|
-
const
|
|
2426
|
+
/* {csegen:722} */
|
|
2427
|
+
const csegen_722 = __lazy(function () {
|
|
2406
2428
|
return $0 => $1 => Data_Promise_reject('Multiple PRs for the current brach. Harmony only handles 1 PR per branch currently.', $0, $1);
|
|
2407
2429
|
});
|
|
2408
2430
|
|
|
2409
|
-
/* {csegen:
|
|
2410
|
-
const
|
|
2431
|
+
/* {csegen:729} */
|
|
2432
|
+
const csegen_729 = __lazy(function () {
|
|
2411
2433
|
return $0 => $0.a1;
|
|
2412
2434
|
});
|
|
2413
2435
|
|
|
2414
|
-
/* {csegen:
|
|
2415
|
-
const
|
|
2436
|
+
/* {csegen:755} */
|
|
2437
|
+
const csegen_755 = __lazy(function () {
|
|
2416
2438
|
return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}}};
|
|
2417
2439
|
});
|
|
2418
2440
|
|
|
2419
|
-
/* {csegen:
|
|
2420
|
-
const
|
|
2441
|
+
/* {csegen:776} */
|
|
2442
|
+
const csegen_776 = __lazy(function () {
|
|
2421
2443
|
return {a1: ann => $1 => Graph_pretty_Pretty_Date($1), a2: ann => $5 => $6 => Graph_prettyPrec_Pretty_Date($5, $6)};
|
|
2422
2444
|
});
|
|
2423
2445
|
|
|
2424
|
-
/* {csegen:
|
|
2425
|
-
const
|
|
2446
|
+
/* {csegen:791} */
|
|
2447
|
+
const csegen_791 = __lazy(function () {
|
|
2448
|
+
return csegen_116()($3 => BashCompletion_hashify(BashCompletion_slugify($3)));
|
|
2449
|
+
});
|
|
2450
|
+
|
|
2451
|
+
/* {csegen:793} */
|
|
2452
|
+
const csegen_793 = __lazy(function () {
|
|
2426
2453
|
return csegen_116()($3 => BashCompletion_slugify($3));
|
|
2427
2454
|
});
|
|
2428
2455
|
|
|
2429
|
-
/* {csegen:
|
|
2430
|
-
const
|
|
2456
|
+
/* {csegen:794} */
|
|
2457
|
+
const csegen_794 = __lazy(function () {
|
|
2431
2458
|
return {a1: '--completed', a2: {a1: 'graph', a2: {h: 0}}};
|
|
2432
2459
|
});
|
|
2433
2460
|
|
|
2434
|
-
/* {csegen:
|
|
2435
|
-
const
|
|
2461
|
+
/* {csegen:796} */
|
|
2462
|
+
const csegen_796 = __lazy(function () {
|
|
2436
2463
|
return {a1: {a1: '--checkout', a2: {a1: '-c', a2: {h: 0}}}};
|
|
2437
2464
|
});
|
|
2438
2465
|
|
|
2439
|
-
/* {csegen:
|
|
2440
|
-
const
|
|
2466
|
+
/* {csegen:798} */
|
|
2467
|
+
const csegen_798 = __lazy(function () {
|
|
2441
2468
|
return {a1: {a1: '--completed', a2: {a1: '-c', a2: {h: 0}}}};
|
|
2442
2469
|
});
|
|
2443
2470
|
|
|
@@ -2446,18 +2473,18 @@ function prim__sub_Integer($0, $1) {
|
|
|
2446
2473
|
return ($0-$1);
|
|
2447
2474
|
}
|
|
2448
2475
|
|
|
2449
|
-
/* Main.
|
|
2450
|
-
function
|
|
2476
|
+
/* Main.6951:1348:parsePg */
|
|
2477
|
+
function Main_n__6951_1348_parsePg($0, $1, $2, $3, $4, $5, $6) {
|
|
2451
2478
|
return Data_String_parsePositive(csegen_2(), $6);
|
|
2452
2479
|
}
|
|
2453
2480
|
|
|
2454
|
-
/* Main.
|
|
2455
|
-
function
|
|
2481
|
+
/* Main.6951:1347:parseLim */
|
|
2482
|
+
function Main_n__6951_1347_parseLim($0, $1, $2, $3, $4, $5) {
|
|
2456
2483
|
return Prelude_Interfaces_x3cx3dx3c(csegen_14(), x => Data_Fin_natToFin(x, 101n), $e => Data_String_parsePositive(csegen_2(), $e));
|
|
2457
2484
|
}
|
|
2458
2485
|
|
|
2459
|
-
/* Main.
|
|
2460
|
-
function
|
|
2486
|
+
/* Main.6812:1149:configuredOpts */
|
|
2487
|
+
function Main_n__6812_1149_configuredOpts($0, $1, $2, $3) {
|
|
2461
2488
|
const $11 = $12 => {
|
|
2462
2489
|
switch($12.h) {
|
|
2463
2490
|
case 1: /* Right */ return $0.a1.a1.a2(undefined)(BashCompletion_opts($12.a1, $3, $2, $1));
|
|
@@ -2679,7 +2706,7 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
2679
2706
|
}
|
|
2680
2707
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe($a7, filter => ({a1: {a1: filter, a2: {a1: $a4.a1, a2: $a4.a2}}}));
|
|
2681
2708
|
};
|
|
2682
|
-
const $84 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $8c => $8d => ({a1: $8c, a2: $8d})},
|
|
2709
|
+
const $84 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $8c => $8d => ({a1: $8c, a2: $8d})}, Main_n__6951_1347_parseLim($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0)($3.a2.a2.a2.a1)), Main_n__6951_1348_parsePg($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0, $3.a2.a2.a2.a2.a1)), $a3);
|
|
2683
2710
|
switch($84.h) {
|
|
2684
2711
|
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequestsJsonStr($2, $0.a2, $0.a3, $84.a1.a1, $84.a1.a2.a1, $84.a1.a2.a2), pullsJsonStr => $c3 => $c4 => $c5 => Data_Promise_liftIO_HasIO_Promise($c8 => Prelude_IO_prim__putStr(pullsJsonStr, $c8), $c3, $c4, $c5));
|
|
2685
2712
|
case 0: /* nothing */ return csegen_68();
|
|
@@ -2753,49 +2780,43 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
2753
2780
|
switch($3.a2.h) {
|
|
2754
2781
|
case undefined: /* cons */ {
|
|
2755
2782
|
switch($3.a2.a1) {
|
|
2756
|
-
case '--draft':
|
|
2757
|
-
|
|
2758
|
-
case 0: /* nil */ return Commands_pr($0, $1, $2, 1);
|
|
2759
|
-
default: return $23f => $240 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_70(), $247 => $247, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_72(), $3), a2: {a1: '.', a2: {h: 0}}}}), $23f, $240);
|
|
2760
|
-
}
|
|
2761
|
-
}
|
|
2762
|
-
default: return $255 => $256 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_70(), $25d => $25d, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_72(), $3), a2: {a1: '.', a2: {h: 0}}}}), $255, $256);
|
|
2783
|
+
case '--draft': return Commands_pr($0, $1, $2, 1, $3.a2.a2);
|
|
2784
|
+
default: return Commands_pr($0, $1, $2, 0, $3.a2);
|
|
2763
2785
|
}
|
|
2764
2786
|
}
|
|
2765
|
-
|
|
2766
|
-
default: return $270 => $271 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_70(), $278 => $278, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_72(), $3), a2: {a1: '.', a2: {h: 0}}}}), $270, $271);
|
|
2787
|
+
default: return Commands_pr($0, $1, $2, 0, $3.a2);
|
|
2767
2788
|
}
|
|
2768
2789
|
}
|
|
2769
2790
|
case 'reflect': {
|
|
2770
2791
|
switch($3.a2.h) {
|
|
2771
2792
|
case 0: /* nil */ return Commands_reflect($0, $2);
|
|
2772
|
-
default: return $
|
|
2793
|
+
default: return $24f => $250 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_70(), $257 => $257, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_72(), $3), a2: {a1: '.', a2: {h: 0}}}}), $24f, $250);
|
|
2773
2794
|
}
|
|
2774
2795
|
}
|
|
2775
2796
|
case 'contribute': {
|
|
2776
|
-
const $
|
|
2777
|
-
switch($
|
|
2778
|
-
case 1: /* Right */ return Commands_contribute($0, $1, $2, $
|
|
2779
|
-
case 0: /* Left */ return Main_exitError(csegen_94(), $
|
|
2797
|
+
const $265 = Commands_parseContributeArgs($3.a2);
|
|
2798
|
+
switch($265.h) {
|
|
2799
|
+
case 1: /* Right */ return Commands_contribute($0, $1, $2, $265.a1);
|
|
2800
|
+
case 0: /* Left */ return Main_exitError(csegen_94(), $265.a1);
|
|
2780
2801
|
}
|
|
2781
2802
|
}
|
|
2782
2803
|
case 'list': {
|
|
2783
2804
|
switch($3.a2.h) {
|
|
2784
|
-
case 0: /* nil */ return $
|
|
2805
|
+
case 0: /* nil */ return $272 => $273 => Data_Promise_reject('The list command expects the name of a GitHub Team as an argument.', $272, $273);
|
|
2785
2806
|
case undefined: /* cons */ {
|
|
2786
2807
|
switch($3.a2.a2.h) {
|
|
2787
2808
|
case 0: /* nil */ return Commands_list($0, $2, $3.a2.a1);
|
|
2788
|
-
default: return $
|
|
2809
|
+
default: return $27d => $27e => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_70(), $285 => $285, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_72(), $3), a2: {a1: '.', a2: {h: 0}}}}), $27d, $27e);
|
|
2789
2810
|
}
|
|
2790
2811
|
}
|
|
2791
|
-
default: return $
|
|
2812
|
+
default: return $293 => $294 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_70(), $29b => $29b, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_72(), $3), a2: {a1: '.', a2: {h: 0}}}}), $293, $294);
|
|
2792
2813
|
}
|
|
2793
2814
|
}
|
|
2794
2815
|
case 'graph': {
|
|
2795
|
-
const $
|
|
2796
|
-
switch($
|
|
2797
|
-
case 1: /* Right */ return Commands_graph($0, $2, $
|
|
2798
|
-
case 0: /* Left */ return Main_exitError(csegen_94(), $
|
|
2816
|
+
const $2a9 = Commands_parseGraphArgs($3.a2);
|
|
2817
|
+
switch($2a9.h) {
|
|
2818
|
+
case 1: /* Right */ return Commands_graph($0, $2, $2a9.a1);
|
|
2819
|
+
case 0: /* Left */ return Main_exitError(csegen_94(), $2a9.a1);
|
|
2799
2820
|
}
|
|
2800
2821
|
}
|
|
2801
2822
|
case 'assign': {
|
|
@@ -2811,15 +2832,15 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
2811
2832
|
}
|
|
2812
2833
|
case 'label': {
|
|
2813
2834
|
switch($3.a2.h) {
|
|
2814
|
-
case 0: /* nil */ return $
|
|
2835
|
+
case 0: /* nil */ return $2c9 => $2ca => Data_Promise_reject('The label command expects one or more labels as arguments.', $2c9, $2ca);
|
|
2815
2836
|
case undefined: /* cons */ return Commands_label($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2});
|
|
2816
|
-
default: return $
|
|
2837
|
+
default: return $2d6 => $2d7 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_70(), $2de => $2de, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_72(), $3), a2: {a1: '.', a2: {h: 0}}}}), $2d6, $2d7);
|
|
2817
2838
|
}
|
|
2818
2839
|
}
|
|
2819
|
-
default: return $
|
|
2840
|
+
default: return $2ec => $2ed => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_70(), $2f4 => $2f4, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_72(), $3), a2: {a1: '.', a2: {h: 0}}}}), $2ec, $2ed);
|
|
2820
2841
|
}
|
|
2821
2842
|
}
|
|
2822
|
-
default: return $
|
|
2843
|
+
default: return $302 => $303 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_70(), $30a => $30a, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_72(), $3), a2: {a1: '.', a2: {h: 0}}}}), $302, $303);
|
|
2823
2844
|
}
|
|
2824
2845
|
}
|
|
2825
2846
|
|
|
@@ -2891,22 +2912,22 @@ function Main_exitError($0, $1) {
|
|
|
2891
2912
|
|
|
2892
2913
|
/* Main.bashCompletion : HasIO io => String -> String -> String -> io () */
|
|
2893
2914
|
function Main_bashCompletion($0, $1, $2, $3) {
|
|
2894
|
-
const $4 = Prelude_Types_maybe(() =>
|
|
2915
|
+
const $4 = Prelude_Types_maybe(() => Main_n__6812_1149_configuredOpts($0, $3, $2, $1), () => $d => $0.a1.a1.a2(undefined)($d), BashCompletion_cmdOpts($1, $2, $3));
|
|
2895
2916
|
return $0.a1.a2(undefined)(undefined)($4)($24 => $0.a2(undefined)($2a => Prelude_IO_prim__putStr(Data_String_fastUnlines($24), $2a)));
|
|
2896
2917
|
}
|
|
2897
2918
|
|
|
2898
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
2899
|
-
function
|
|
2919
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4414:5087:writeOutput */
|
|
2920
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5087_writeOutput($0, $1, $2) {
|
|
2900
2921
|
return Control_Monad_ST_modifySTRef($1, $6 => csegen_100()($6)($2));
|
|
2901
2922
|
}
|
|
2902
2923
|
|
|
2903
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
2904
|
-
function
|
|
2924
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4414:5084:push */
|
|
2925
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5084_push($0, $1, $2) {
|
|
2905
2926
|
return Control_Monad_ST_modifySTRef($1, $6 => ({a1: $2, a2: $6}));
|
|
2906
2927
|
}
|
|
2907
2928
|
|
|
2908
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
2909
|
-
function
|
|
2929
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4414:5086:pop */
|
|
2930
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5086_pop($0, $1) {
|
|
2910
2931
|
const $4 = $1;
|
|
2911
2932
|
const $5 = $4;
|
|
2912
2933
|
const $3 = $6 => ($5.value);
|
|
@@ -2924,8 +2945,8 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4412_5086_pop($0, $1)
|
|
|
2924
2945
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($3, $a);
|
|
2925
2946
|
}
|
|
2926
2947
|
|
|
2927
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
2928
|
-
function
|
|
2948
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4414:5085:peek */
|
|
2949
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5085_peek($0, $1) {
|
|
2929
2950
|
const $4 = $1;
|
|
2930
2951
|
const $5 = $4;
|
|
2931
2952
|
const $3 = $6 => ($5.value);
|
|
@@ -2938,13 +2959,13 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4412_5085_peek($0, $1
|
|
|
2938
2959
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($3, $a);
|
|
2939
2960
|
}
|
|
2940
2961
|
|
|
2941
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
2942
|
-
function
|
|
2962
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4414:5088:go */
|
|
2963
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5088_go($0, $1, $2, $3) {
|
|
2943
2964
|
switch($3.h) {
|
|
2944
2965
|
case 0: /* SEmpty */ return $5 => (undefined);
|
|
2945
|
-
case 1: /* SChar */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(
|
|
2946
|
-
case 2: /* SText */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(
|
|
2947
|
-
case 3: /* SLine */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(
|
|
2966
|
+
case 1: /* SChar */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5087_writeOutput($0, $2, Data_String_singleton($3.a1)), $f => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5088_go($0, $1, $2, $3.a2()));
|
|
2967
|
+
case 2: /* SText */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5087_writeOutput($0, $2, $3.a2), $1d => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5088_go($0, $1, $2, $3.a3()));
|
|
2968
|
+
case 3: /* SLine */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5087_writeOutput($0, $2, csegen_100()(Data_String_singleton('\n'))(Text_PrettyPrint_Prettyprinter_Doc_textSpaces($3.a1))), $34 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5088_go($0, $1, $2, $3.a2));
|
|
2948
2969
|
case 4: /* SAnnPush */ {
|
|
2949
2970
|
const $3f = $40 => {
|
|
2950
2971
|
switch($40.h) {
|
|
@@ -2953,7 +2974,7 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4412_5088_go($0, $1,
|
|
|
2953
2974
|
const $44 = $4b => $4c => $45($4b)($4c);
|
|
2954
2975
|
const $43 = $44($3.a1);
|
|
2955
2976
|
const $42 = $43($40.a1);
|
|
2956
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(
|
|
2977
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5084_push($0, $1, $42), $5a => Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5087_writeOutput($0, $2, Control_ANSI_SGR_escapeSGR($42)), $64 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5088_go($0, $1, $2, $3.a2)));
|
|
2957
2978
|
}
|
|
2958
2979
|
case 0: /* nothing */ {
|
|
2959
2980
|
const $6a = $1;
|
|
@@ -2962,13 +2983,13 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4412_5088_go($0, $1,
|
|
|
2962
2983
|
}
|
|
2963
2984
|
}
|
|
2964
2985
|
};
|
|
2965
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(
|
|
2986
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5085_peek($0, $1), $3f);
|
|
2966
2987
|
}
|
|
2967
2988
|
case 5: /* SAnnPop */ {
|
|
2968
2989
|
const $76 = _ => {
|
|
2969
2990
|
const $7c = $7d => {
|
|
2970
2991
|
switch($7d.h) {
|
|
2971
|
-
case undefined: /* just */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(
|
|
2992
|
+
case undefined: /* just */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5087_writeOutput($0, $2, Control_ANSI_SGR_escapeSGR({a1: {h: 0 /* Reset */}, a2: $7d.a1})), $8a => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5088_go($0, $1, $2, $3.a1));
|
|
2972
2993
|
case 0: /* nothing */ {
|
|
2973
2994
|
const $90 = $1;
|
|
2974
2995
|
const $91 = $90;
|
|
@@ -2976,9 +2997,9 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4412_5088_go($0, $1,
|
|
|
2976
2997
|
}
|
|
2977
2998
|
}
|
|
2978
2999
|
};
|
|
2979
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(
|
|
3000
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5085_peek($0, $1), $7c);
|
|
2980
3001
|
};
|
|
2981
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(
|
|
3002
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5086_pop($0, $1), $76);
|
|
2982
3003
|
}
|
|
2983
3004
|
}
|
|
2984
3005
|
}
|
|
@@ -3019,7 +3040,7 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString($0) {
|
|
|
3019
3040
|
};
|
|
3020
3041
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($21, $28);
|
|
3021
3042
|
};
|
|
3022
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(
|
|
3043
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29(Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4414_5088_go($0, styleStackRef, outputRef, $0), $1e);
|
|
3023
3044
|
};
|
|
3024
3045
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($12 => Control_Monad_ST_newSTRef('', $12), $16);
|
|
3025
3046
|
};
|
|
@@ -3107,9 +3128,9 @@ function Text_PrettyPrint_Prettyprinter_Doc_case__changesUponFlattening_2403($0,
|
|
|
3107
3128
|
}
|
|
3108
3129
|
}
|
|
3109
3130
|
|
|
3110
|
-
/* Text.PrettyPrint.Prettyprinter.Doc.
|
|
3111
|
-
function
|
|
3112
|
-
switch($2($3)($4)(
|
|
3131
|
+
/* Text.PrettyPrint.Prettyprinter.Doc.8891:6791:selectNicer */
|
|
3132
|
+
function Text_PrettyPrint_Prettyprinter_Doc_n__8891_6791_selectNicer($0, $1, $2, $3, $4, $5, $6) {
|
|
3133
|
+
switch($2($3)($4)(Text_PrettyPrint_Prettyprinter_Doc_n__8891_6790_initialIndentation($0, $1, $2, $6()))($5)) {
|
|
3113
3134
|
case 1: return $5;
|
|
3114
3135
|
case 0: return $6();
|
|
3115
3136
|
}
|
|
@@ -3262,7 +3283,7 @@ const Text_PrettyPrint_Prettyprinter_Doc_line = __lazy(function () {
|
|
|
3262
3283
|
|
|
3263
3284
|
/* Text.PrettyPrint.Prettyprinter.Doc.layoutWadlerLeijen : FittingPredicate ann -> PageWidth -> Doc ann -> SimpleDocStream ann */
|
|
3264
3285
|
function Text_PrettyPrint_Prettyprinter_Doc_layoutWadlerLeijen($0, $1, $2) {
|
|
3265
|
-
return
|
|
3286
|
+
return Text_PrettyPrint_Prettyprinter_Doc_n__8891_6792_best($2, $1, $0, 0, 0, {h: 1 /* Cons */, a1: 0, a2: $2, a3: {h: 0 /* Nil */}});
|
|
3266
3287
|
}
|
|
3267
3288
|
|
|
3268
3289
|
/* Text.PrettyPrint.Prettyprinter.Doc.layoutUnbounded : Doc ann -> SimpleDocStream ann */
|
|
@@ -3536,16 +3557,16 @@ function Data_String_with__asList_7968($0, $1) {
|
|
|
3536
3557
|
}
|
|
3537
3558
|
}
|
|
3538
3559
|
|
|
3539
|
-
/* Data.String.
|
|
3540
|
-
function
|
|
3560
|
+
/* Data.String.3790:7700:unlines' */
|
|
3561
|
+
function Data_String_n__3790_7700_unlinesx27($0) {
|
|
3541
3562
|
switch($0.h) {
|
|
3542
3563
|
case 0: /* nil */ return {h: 0};
|
|
3543
|
-
case undefined: /* cons */ return {a1: $0.a1, a2: {a1: '\n', a2:
|
|
3564
|
+
case undefined: /* cons */ return {a1: $0.a1, a2: {a1: '\n', a2: Data_String_n__3790_7700_unlinesx27($0.a2)}};
|
|
3544
3565
|
}
|
|
3545
3566
|
}
|
|
3546
3567
|
|
|
3547
|
-
/* Data.String.
|
|
3548
|
-
function
|
|
3568
|
+
/* Data.String.4394:8313:parsePosTrimmed */
|
|
3569
|
+
function Data_String_n__4394_8313_parsePosTrimmed($0, $1, $2) {
|
|
3549
3570
|
return Data_String_with__parsePositivex2cparsePosTrimmed_8319(undefined, $0, $2, $2, Data_String_strM($2));
|
|
3550
3571
|
}
|
|
3551
3572
|
|
|
@@ -3590,7 +3611,7 @@ function Data_String_replicate($0, $1) {
|
|
|
3590
3611
|
|
|
3591
3612
|
/* Data.String.parsePositive : Num a => String -> Maybe a */
|
|
3592
3613
|
function Data_String_parsePositive($0, $1) {
|
|
3593
|
-
return
|
|
3614
|
+
return Data_String_n__4394_8313_parsePosTrimmed($0, $1, Data_String_trim($1));
|
|
3594
3615
|
}
|
|
3595
3616
|
|
|
3596
3617
|
/* Data.String.ltrim : String -> String */
|
|
@@ -3600,7 +3621,7 @@ function Data_String_ltrim($0) {
|
|
|
3600
3621
|
|
|
3601
3622
|
/* Data.String.lines' : List Char -> List (List Char) */
|
|
3602
3623
|
function Data_String_linesx27($0) {
|
|
3603
|
-
return
|
|
3624
|
+
return Data_String_n__3923_7830_linesHelp($0, {h: 0}, $0);
|
|
3604
3625
|
}
|
|
3605
3626
|
|
|
3606
3627
|
/* Data.String.lines : String -> List String */
|
|
@@ -3625,7 +3646,7 @@ function Data_String_indent($0, $1) {
|
|
|
3625
3646
|
|
|
3626
3647
|
/* Data.String.fastUnlines : List String -> String */
|
|
3627
3648
|
function Data_String_fastUnlines($0) {
|
|
3628
|
-
return Prelude_Types_fastConcat(
|
|
3649
|
+
return Prelude_Types_fastConcat(Data_String_n__3790_7700_unlinesx27($0));
|
|
3629
3650
|
}
|
|
3630
3651
|
|
|
3631
3652
|
/* Data.String.break : (Char -> Bool) -> String -> (String, String) */
|
|
@@ -4611,6 +4632,14 @@ function Prelude_Interfaces_Bool_Semigroup_x3cx2bx3e_Semigroup_AnyBool($0, $1) {
|
|
|
4611
4632
|
}
|
|
4612
4633
|
}
|
|
4613
4634
|
|
|
4635
|
+
/* Prelude.Interfaces.Bool.Semigroup.<+> */
|
|
4636
|
+
function Prelude_Interfaces_Bool_Semigroup_x3cx2bx3e_Semigroup_AllBool($0, $1) {
|
|
4637
|
+
switch($0) {
|
|
4638
|
+
case 1: return $1;
|
|
4639
|
+
case 0: return 0;
|
|
4640
|
+
}
|
|
4641
|
+
}
|
|
4642
|
+
|
|
4614
4643
|
/* Prelude.Interfaces.Applicative.<*> */
|
|
4615
4644
|
function Prelude_Interfaces_Applicative_x3cx2ax3e_Applicative_Composex28x28x2ex20x24fx29x20x24gx29($0, $1, $2, $3) {
|
|
4616
4645
|
return $0.a3(undefined)(undefined)($0.a3(undefined)(undefined)($0.a2(undefined)($19 => $1a => $1.a3(undefined)(undefined)($19)($1a)))($2))($3);
|
|
@@ -4649,8 +4678,8 @@ function Prelude_Interfaces_x2ax3e($0, $1, $2) {
|
|
|
4649
4678
|
return $4($2);
|
|
4650
4679
|
}
|
|
4651
4680
|
|
|
4652
|
-
/* Prelude.Show.2437:
|
|
4653
|
-
function
|
|
4681
|
+
/* Prelude.Show.2437:11789:asciiTab */
|
|
4682
|
+
function Prelude_Show_n__2437_11789_asciiTab($0) {
|
|
4654
4683
|
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}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}};
|
|
4655
4684
|
}
|
|
4656
4685
|
|
|
@@ -4694,7 +4723,7 @@ function Prelude_Show_show_Show_Bits32($0) {
|
|
|
4694
4723
|
|
|
4695
4724
|
/* Prelude.Show.show */
|
|
4696
4725
|
function Prelude_Show_show_Show_x28Listx20x24ax29($0, $1) {
|
|
4697
|
-
return ('['+(
|
|
4726
|
+
return ('['+(Prelude_Show_n__3219_12510_showx27($0, $1, '', $1)+']'));
|
|
4698
4727
|
}
|
|
4699
4728
|
|
|
4700
4729
|
/* Prelude.Show.showPrec */
|
|
@@ -4778,7 +4807,7 @@ function Prelude_Show_showLitChar($0) {
|
|
|
4778
4807
|
case '\u{5c}': return $23 => ('\u{5c}\u{5c}'+$23);
|
|
4779
4808
|
default: {
|
|
4780
4809
|
return $26 => {
|
|
4781
|
-
const $27 = Prelude_Types_getAt(Prelude_Types_prim__integerToNat(BigInt($0.codePointAt(0))),
|
|
4810
|
+
const $27 = Prelude_Types_getAt(Prelude_Types_prim__integerToNat(BigInt($0.codePointAt(0))), Prelude_Show_n__2437_11789_asciiTab($0));
|
|
4782
4811
|
switch($27.h) {
|
|
4783
4812
|
case undefined: /* just */ return ('\u{5c}'+($27.a1+$26));
|
|
4784
4813
|
case 0: /* nothing */ {
|
|
@@ -4884,22 +4913,14 @@ function Data_Nat_succNotLTEzero($0) {
|
|
|
4884
4913
|
_crashExp('No clauses');
|
|
4885
4914
|
}
|
|
4886
4915
|
|
|
4887
|
-
/* Data.Nat.plusZeroRightNeutral : (left : Nat) -> left + 0 = left */
|
|
4888
|
-
function Data_Nat_plusZeroRightNeutral($0) {
|
|
4889
|
-
switch($0) {
|
|
4890
|
-
case 0n: return undefined;
|
|
4891
|
-
default: return undefined;
|
|
4892
|
-
}
|
|
4893
|
-
}
|
|
4894
|
-
|
|
4895
4916
|
/* Data.Nat.plusMinusLte : (n : Nat) -> (m : Nat) -> LTE n m -> minus m n + n = m */
|
|
4896
4917
|
function Data_Nat_plusMinusLte($0, $1, $2) {
|
|
4897
4918
|
switch($0) {
|
|
4898
|
-
case 0n: return
|
|
4919
|
+
case 0n: return Syntax_PreorderReasoning_Calc(csegen_174());
|
|
4899
4920
|
default: {
|
|
4900
4921
|
switch($1) {
|
|
4901
|
-
case 0n: return Prelude_Uninhabited_absurd($
|
|
4902
|
-
default: return undefined;
|
|
4922
|
+
case 0n: return Prelude_Uninhabited_absurd($a => Data_Nat_uninhabited_Uninhabited_x28x28LTEx20x28Sx20x24nx29x29x20Zx29($a), $2);
|
|
4923
|
+
default: return Syntax_PreorderReasoning_Calc({a1: csegen_174(), a2: undefined});
|
|
4903
4924
|
}
|
|
4904
4925
|
}
|
|
4905
4926
|
}
|
|
@@ -5070,17 +5091,17 @@ function Data_List1_x2bx2b($0, $1) {
|
|
|
5070
5091
|
return Data_List1_appendl($0, Data_List1_forget($1));
|
|
5071
5092
|
}
|
|
5072
5093
|
|
|
5073
|
-
/* Data.List.
|
|
5074
|
-
function
|
|
5075
|
-
return
|
|
5094
|
+
/* Data.List.7716:6698:split */
|
|
5095
|
+
function Data_List_n__7716_6698_split($0, $1, $2) {
|
|
5096
|
+
return Data_List_n__7716_6697_splitRec($0, $1, $2, $2, $9 => $9);
|
|
5076
5097
|
}
|
|
5077
5098
|
|
|
5078
|
-
/* Data.List.
|
|
5079
|
-
function
|
|
5099
|
+
/* Data.List.8215:7190:go */
|
|
5100
|
+
function Data_List_n__8215_7190_go($0, $1, $2, $3, $4) {
|
|
5080
5101
|
switch($4.h) {
|
|
5081
5102
|
case 0: /* nil */ return {a1: Data_List1_singleton($3), a2: {h: 0}};
|
|
5082
5103
|
case undefined: /* cons */ {
|
|
5083
|
-
const $a =
|
|
5104
|
+
const $a = Data_List_n__8215_7190_go($0, $1, $2, $4.a1, $4.a2);
|
|
5084
5105
|
switch($2($3)($4.a1)) {
|
|
5085
5106
|
case 1: return {a1: Data_List1_cons($3, $a.a1), a2: $a.a2};
|
|
5086
5107
|
case 0: return {a1: Data_List1_singleton($3), a2: {a1: $a.a1, a2: $a.a2}};
|
|
@@ -5162,13 +5183,13 @@ function Data_List_sortBy($0, $1) {
|
|
|
5162
5183
|
switch($1.a2.h) {
|
|
5163
5184
|
case 0: /* nil */ return {a1: $1.a1, a2: {h: 0}};
|
|
5164
5185
|
default: {
|
|
5165
|
-
const $6 =
|
|
5186
|
+
const $6 = Data_List_n__7716_6698_split($1, $0, $1);
|
|
5166
5187
|
return Data_List_mergeBy($0, Data_List_sortBy($0, $6.a1), Data_List_sortBy($0, $6.a2));
|
|
5167
5188
|
}
|
|
5168
5189
|
}
|
|
5169
5190
|
}
|
|
5170
5191
|
default: {
|
|
5171
|
-
const $15 =
|
|
5192
|
+
const $15 = Data_List_n__7716_6698_split($1, $0, $1);
|
|
5172
5193
|
return Data_List_mergeBy($0, Data_List_sortBy($0, $15.a1), Data_List_sortBy($0, $15.a2));
|
|
5173
5194
|
}
|
|
5174
5195
|
}
|
|
@@ -5212,7 +5233,7 @@ function Data_List_partition($0, $1) {
|
|
|
5212
5233
|
|
|
5213
5234
|
/* Data.List.nubBy : (a -> a -> Bool) -> List a -> List a */
|
|
5214
5235
|
function Data_List_nubBy($0, $1) {
|
|
5215
|
-
return
|
|
5236
|
+
return Data_List_n__4868_3930_nubByx27({h: 0}, $0, $1);
|
|
5216
5237
|
}
|
|
5217
5238
|
|
|
5218
5239
|
/* Data.List.nub : Eq a => List a -> List a */
|
|
@@ -5300,7 +5321,7 @@ function Data_List_groupBy($0, $1) {
|
|
|
5300
5321
|
switch($1.h) {
|
|
5301
5322
|
case 0: /* nil */ return {h: 0};
|
|
5302
5323
|
case undefined: /* cons */ {
|
|
5303
|
-
const $3 =
|
|
5324
|
+
const $3 = Data_List_n__8215_7190_go($1.a1, $1.a2, $0, $1.a1, $1.a2);
|
|
5304
5325
|
return {a1: $3.a1, a2: $3.a2};
|
|
5305
5326
|
}
|
|
5306
5327
|
}
|
|
@@ -5397,8 +5418,8 @@ function Data_IORef_newIORef($0, $1) {
|
|
|
5397
5418
|
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($10 => ({value:$1})))(m => $0.a1.a1.a2(undefined)(m));
|
|
5398
5419
|
}
|
|
5399
5420
|
|
|
5400
|
-
/* Control.ANSI.SGR.
|
|
5401
|
-
function
|
|
5421
|
+
/* Control.ANSI.SGR.3285:2726:toCode */
|
|
5422
|
+
function Control_ANSI_SGR_n__3285_2726_toCode($0, $1) {
|
|
5402
5423
|
switch($1.h) {
|
|
5403
5424
|
case 0: /* Reset */ return '0';
|
|
5404
5425
|
case 1: /* SetForeground */ return ('38;5;'+Control_ANSI_SGR_cast_Cast_Color_String($1.a1));
|
|
@@ -5456,7 +5477,7 @@ function Control_ANSI_SGR_cast_Cast_Blink_String($0) {
|
|
|
5456
5477
|
|
|
5457
5478
|
/* Control.ANSI.SGR.escapeSGR : List SGR -> String */
|
|
5458
5479
|
function Control_ANSI_SGR_escapeSGR($0) {
|
|
5459
|
-
return ('\u{1b}['+(Prelude_Types_foldMap_Foldable_List(csegen_70(), $8 => $8, Data_List_intersperse(';', csegen_116()($11 =>
|
|
5480
|
+
return ('\u{1b}['+(Prelude_Types_foldMap_Foldable_List(csegen_70(), $8 => $8, Data_List_intersperse(';', csegen_116()($11 => Control_ANSI_SGR_n__3285_2726_toCode($0, $11))($0)))+'m'));
|
|
5460
5481
|
}
|
|
5461
5482
|
|
|
5462
5483
|
/* Text.PrettyPrint.Prettyprinter.Symbols.rparen : Doc ann */
|
|
@@ -5545,14 +5566,14 @@ function System_File_ReadWrite_readLinesOnto($0, $1, $2, $3, $4) {
|
|
|
5545
5566
|
}
|
|
5546
5567
|
};
|
|
5547
5568
|
const $26 = {a1: $27, a2: a => $2f => ({h: 1 /* Right */, a1: $2f}), a3: $31};
|
|
5548
|
-
const $25 = {a1: $26, a2:
|
|
5569
|
+
const $25 = {a1: $26, a2: csegen_200(), a3: csegen_201()};
|
|
5549
5570
|
const $40 = b => a => func => $41 => {
|
|
5550
5571
|
switch($41.h) {
|
|
5551
5572
|
case 0: /* Left */ return {h: 0 /* Left */, a1: $41.a1};
|
|
5552
5573
|
case 1: /* Right */ return {h: 1 /* Right */, a1: func($41.a1)};
|
|
5553
5574
|
}
|
|
5554
5575
|
};
|
|
5555
|
-
const $3f = {a1: $40, a2:
|
|
5576
|
+
const $3f = {a1: $40, a2: csegen_217(), a3: csegen_221()};
|
|
5556
5577
|
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));
|
|
5557
5578
|
}
|
|
5558
5579
|
default: {
|
|
@@ -5833,7 +5854,7 @@ const System_Info_os = __lazy(function () {
|
|
|
5833
5854
|
|
|
5834
5855
|
/* System.Info.isWindows : Bool */
|
|
5835
5856
|
const System_Info_isWindows = __lazy(function () {
|
|
5836
|
-
return Prelude_Types_elem(
|
|
5857
|
+
return Prelude_Types_elem(csegen_193(), csegen_45(), System_Info_os(), {a1: 'windows', a2: {a1: 'mingw32', a2: {a1: 'cygwin32', a2: {h: 0}}}});
|
|
5837
5858
|
});
|
|
5838
5859
|
|
|
5839
5860
|
/* Data.Fuel.limit : Nat -> Fuel */
|
|
@@ -5995,7 +6016,7 @@ function System_getEnv($0, $1) {
|
|
|
5995
6016
|
function System_getArgs($0) {
|
|
5996
6017
|
const $12 = n => {
|
|
5997
6018
|
switch(Prelude_EqOrd_x3e_Ord_Int(n, Number(_truncBigInt32(0n)))) {
|
|
5998
|
-
case 1: return Prelude_Basics_flip($1a => $1b => Prelude_Types_traverse_Traversable_List($0.a1.a1, $1a, $1b), Prelude_Types_rangeFromTo_Range_x24a({a1: {a1:
|
|
6019
|
+
case 1: return Prelude_Basics_flip($1a => $1b => Prelude_Types_traverse_Traversable_List($0.a1.a1, $1a, $1b), Prelude_Types_rangeFromTo_Range_x24a({a1: {a1: csegen_235(), a2: $29 => $2a => Prelude_Num_div_Integral_Int($29, $2a), a3: $2f => $30 => Prelude_Num_mod_Integral_Int($2f, $30)}, a2: {a1: csegen_249(), a2: {a1: csegen_235(), a2: $3b => _sub32s(0, $3b), a3: $3f => $40 => _sub32s($3f, $40)}}}, 0, _sub32s(n, 1)), $48 => $0.a2(undefined)($4e => System_prim__getArg($48, $4e)));
|
|
5999
6020
|
case 0: return $0.a1.a1.a2(undefined)({h: 0});
|
|
6000
6021
|
}
|
|
6001
6022
|
};
|
|
@@ -6065,17 +6086,17 @@ function Text_Bounded_mergeBounds($0, $1) {
|
|
|
6065
6086
|
switch($1.h) {
|
|
6066
6087
|
case undefined: /* record */ {
|
|
6067
6088
|
switch($1.a2) {
|
|
6068
|
-
case 1: return
|
|
6089
|
+
case 1: return csegen_258()($e => $1.a1)($0);
|
|
6069
6090
|
default: {
|
|
6070
|
-
const $10 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
6071
|
-
const $1c = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
6091
|
+
const $10 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_249(), csegen_249(), Text_Bounded_start($0), Text_Bounded_start($1));
|
|
6092
|
+
const $1c = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_249(), csegen_249(), Text_Bounded_end($0), Text_Bounded_end($1));
|
|
6072
6093
|
return {a1: $1.a1, a2: 0, a3: {a1: $10.a1, a2: $10.a2, a3: $1c.a1, a4: $1c.a2}};
|
|
6073
6094
|
}
|
|
6074
6095
|
}
|
|
6075
6096
|
}
|
|
6076
6097
|
default: {
|
|
6077
|
-
const $30 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
6078
|
-
const $3c = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
6098
|
+
const $30 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_249(), csegen_249(), Text_Bounded_start($0), Text_Bounded_start($1));
|
|
6099
|
+
const $3c = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_249(), csegen_249(), Text_Bounded_end($0), Text_Bounded_end($1));
|
|
6079
6100
|
return {a1: $1.a1, a2: 0, a3: {a1: $30.a1, a2: $30.a2, a3: $3c.a1, a4: $3c.a2}};
|
|
6080
6101
|
}
|
|
6081
6102
|
}
|
|
@@ -6086,17 +6107,17 @@ function Text_Bounded_mergeBounds($0, $1) {
|
|
|
6086
6107
|
switch($1.h) {
|
|
6087
6108
|
case undefined: /* record */ {
|
|
6088
6109
|
switch($1.a2) {
|
|
6089
|
-
case 1: return
|
|
6110
|
+
case 1: return csegen_258()($56 => $1.a1)($0);
|
|
6090
6111
|
default: {
|
|
6091
|
-
const $58 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
6092
|
-
const $64 = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
6112
|
+
const $58 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_249(), csegen_249(), Text_Bounded_start($0), Text_Bounded_start($1));
|
|
6113
|
+
const $64 = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_249(), csegen_249(), Text_Bounded_end($0), Text_Bounded_end($1));
|
|
6093
6114
|
return {a1: $1.a1, a2: 0, a3: {a1: $58.a1, a2: $58.a2, a3: $64.a1, a4: $64.a2}};
|
|
6094
6115
|
}
|
|
6095
6116
|
}
|
|
6096
6117
|
}
|
|
6097
6118
|
default: {
|
|
6098
|
-
const $78 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
6099
|
-
const $84 = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
6119
|
+
const $78 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_249(), csegen_249(), Text_Bounded_start($0), Text_Bounded_start($1));
|
|
6120
|
+
const $84 = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_249(), csegen_249(), Text_Bounded_end($0), Text_Bounded_end($1));
|
|
6100
6121
|
return {a1: $1.a1, a2: 0, a3: {a1: $78.a1, a2: $78.a2, a3: $84.a1, a4: $84.a2}};
|
|
6101
6122
|
}
|
|
6102
6123
|
}
|
|
@@ -6119,8 +6140,8 @@ function Text_Bounded_end($0) {
|
|
|
6119
6140
|
return Text_Bounded_endBounds($0.a3);
|
|
6120
6141
|
}
|
|
6121
6142
|
|
|
6122
|
-
/* Language.JSON.Data.
|
|
6123
|
-
function
|
|
6143
|
+
/* Language.JSON.Data.5292:7913:stringifyValues */
|
|
6144
|
+
function Language_JSON_Data_n__5292_7913_stringifyValues($0, $1) {
|
|
6124
6145
|
switch($1.h) {
|
|
6125
6146
|
case 0: /* nil */ return '';
|
|
6126
6147
|
case undefined: /* cons */ {
|
|
@@ -6131,7 +6152,7 @@ function Language_JSON_Data_n__4777_7913_stringifyValues($0, $1) {
|
|
|
6131
6152
|
break;
|
|
6132
6153
|
}
|
|
6133
6154
|
case 0: {
|
|
6134
|
-
$6 = (','+
|
|
6155
|
+
$6 = (','+Language_JSON_Data_n__5292_7913_stringifyValues($0, $1.a2));
|
|
6135
6156
|
break;
|
|
6136
6157
|
}
|
|
6137
6158
|
}
|
|
@@ -6140,8 +6161,8 @@ function Language_JSON_Data_n__4777_7913_stringifyValues($0, $1) {
|
|
|
6140
6161
|
}
|
|
6141
6162
|
}
|
|
6142
6163
|
|
|
6143
|
-
/* Language.JSON.Data.
|
|
6144
|
-
function
|
|
6164
|
+
/* Language.JSON.Data.5292:7958:stringifyProps */
|
|
6165
|
+
function Language_JSON_Data_n__5292_7958_stringifyProps($0, $1) {
|
|
6145
6166
|
switch($1.h) {
|
|
6146
6167
|
case 0: /* nil */ return '';
|
|
6147
6168
|
case undefined: /* cons */ {
|
|
@@ -6152,27 +6173,27 @@ function Language_JSON_Data_n__4777_7958_stringifyProps($0, $1) {
|
|
|
6152
6173
|
break;
|
|
6153
6174
|
}
|
|
6154
6175
|
case 0: {
|
|
6155
|
-
$7 = (','+
|
|
6176
|
+
$7 = (','+Language_JSON_Data_n__5292_7958_stringifyProps($0, $1.a2));
|
|
6156
6177
|
break;
|
|
6157
6178
|
}
|
|
6158
6179
|
}
|
|
6159
|
-
return (
|
|
6180
|
+
return (Language_JSON_Data_n__5292_7957_stringifyProp($0, $1.a1)+$7);
|
|
6160
6181
|
}
|
|
6161
6182
|
}
|
|
6162
6183
|
}
|
|
6163
6184
|
|
|
6164
|
-
/* Language.JSON.Data.
|
|
6165
|
-
function
|
|
6185
|
+
/* Language.JSON.Data.5292:7957:stringifyProp */
|
|
6186
|
+
function Language_JSON_Data_n__5292_7957_stringifyProp($0, $1) {
|
|
6166
6187
|
return (Language_JSON_Data_showString($1.a1)+(':'+Language_JSON_Data_stringify($1.a2)));
|
|
6167
6188
|
}
|
|
6168
6189
|
|
|
6169
|
-
/* Language.JSON.Data.
|
|
6170
|
-
function
|
|
6190
|
+
/* Language.JSON.Data.5556:8158:formatValues */
|
|
6191
|
+
function Language_JSON_Data_n__5556_8158_formatValues($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
6171
6192
|
const $13 = {a1: $4, a2: $3};
|
|
6172
6193
|
let $12;
|
|
6173
6194
|
switch($8.a2.h) {
|
|
6174
6195
|
case undefined: /* cons */ {
|
|
6175
|
-
$12 = (',\n'+
|
|
6196
|
+
$12 = (',\n'+Language_JSON_Data_n__5556_8158_formatValues($0, $1, $2, $3, $4, $13, $6, $7, $8.a2, undefined));
|
|
6176
6197
|
break;
|
|
6177
6198
|
}
|
|
6178
6199
|
case 0: /* nil */ {
|
|
@@ -6183,20 +6204,20 @@ function Language_JSON_Data_n__5041_8158_formatValues($0, $1, $2, $3, $4, $5, $6
|
|
|
6183
6204
|
return (Language_JSON_Data_format(($7+$6), $6, $8.a1)+$12);
|
|
6184
6205
|
}
|
|
6185
6206
|
|
|
6186
|
-
/* Language.JSON.Data.
|
|
6187
|
-
function
|
|
6207
|
+
/* Language.JSON.Data.5540:8129:formatValue */
|
|
6208
|
+
function Language_JSON_Data_n__5540_8129_formatValue($0, $1, $2, $3, $4, $5) {
|
|
6188
6209
|
switch($5.h) {
|
|
6189
6210
|
case 4: /* JArray */ {
|
|
6190
6211
|
switch($5.a1.h) {
|
|
6191
6212
|
case 0: /* nil */ return '[]';
|
|
6192
|
-
case undefined: /* cons */ return ('[\n'+(
|
|
6213
|
+
case undefined: /* cons */ return ('[\n'+(Language_JSON_Data_n__5556_8158_formatValues($0, $1, $2, $5.a1.a2, $5.a1.a1, $5.a1, $4, $3, $5.a1, undefined)+Data_String_indent($3, ']')));
|
|
6193
6214
|
default: return Language_JSON_Data_stringify($5);
|
|
6194
6215
|
}
|
|
6195
6216
|
}
|
|
6196
6217
|
case 5: /* JObject */ {
|
|
6197
6218
|
switch($5.a1.h) {
|
|
6198
6219
|
case 0: /* nil */ return '{}';
|
|
6199
|
-
case undefined: /* cons */ return ('{\n'+(
|
|
6220
|
+
case undefined: /* cons */ return ('{\n'+(Language_JSON_Data_n__5556_8263_formatProps($0, $1, $2, $5.a1.a2, $5.a1.a1, $5.a1, $4, $3, $5.a1, undefined)+Data_String_indent($3, '}')));
|
|
6200
6221
|
default: return Language_JSON_Data_stringify($5);
|
|
6201
6222
|
}
|
|
6202
6223
|
}
|
|
@@ -6204,13 +6225,13 @@ function Language_JSON_Data_n__5025_8129_formatValue($0, $1, $2, $3, $4, $5) {
|
|
|
6204
6225
|
}
|
|
6205
6226
|
}
|
|
6206
6227
|
|
|
6207
|
-
/* Language.JSON.Data.
|
|
6208
|
-
function
|
|
6228
|
+
/* Language.JSON.Data.5556:8263:formatProps */
|
|
6229
|
+
function Language_JSON_Data_n__5556_8263_formatProps($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
6209
6230
|
const $17 = {a1: $4, a2: $3};
|
|
6210
6231
|
let $16;
|
|
6211
6232
|
switch($8.a2.h) {
|
|
6212
6233
|
case undefined: /* cons */ {
|
|
6213
|
-
$16 = (',\n'+
|
|
6234
|
+
$16 = (',\n'+Language_JSON_Data_n__5556_8263_formatProps($0, $1, $2, $3, $4, $17, $6, $7, $8.a2, undefined));
|
|
6214
6235
|
break;
|
|
6215
6236
|
}
|
|
6216
6237
|
case 0: /* nil */ {
|
|
@@ -6218,12 +6239,12 @@ function Language_JSON_Data_n__5041_8263_formatProps($0, $1, $2, $3, $4, $5, $6,
|
|
|
6218
6239
|
break;
|
|
6219
6240
|
}
|
|
6220
6241
|
}
|
|
6221
|
-
return (
|
|
6242
|
+
return (Language_JSON_Data_n__5556_8262_formatProp($0, $1, $2, $3, $4, $5, $6, $7, $8.a1)+$16);
|
|
6222
6243
|
}
|
|
6223
6244
|
|
|
6224
|
-
/* Language.JSON.Data.
|
|
6225
|
-
function
|
|
6226
|
-
return (Data_String_indent(($7+$6), (Language_JSON_Data_showString($8.a1)+': '))+
|
|
6245
|
+
/* Language.JSON.Data.5556:8262:formatProp */
|
|
6246
|
+
function Language_JSON_Data_n__5556_8262_formatProp($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
6247
|
+
return (Data_String_indent(($7+$6), (Language_JSON_Data_showString($8.a1)+': '))+Language_JSON_Data_n__5540_8129_formatValue($0, $1, $2, ($7+$6), $6, $8.a2));
|
|
6227
6248
|
}
|
|
6228
6249
|
|
|
6229
6250
|
/* Language.JSON.Data.show */
|
|
@@ -6243,8 +6264,8 @@ function Language_JSON_Data_stringify($0) {
|
|
|
6243
6264
|
}
|
|
6244
6265
|
case 2: /* JNumber */ return Prelude_Show_show_Show_Double($0.a1);
|
|
6245
6266
|
case 3: /* JString */ return Language_JSON_Data_showString($0.a1);
|
|
6246
|
-
case 4: /* JArray */ return ('['+(
|
|
6247
|
-
case 5: /* JObject */ return ('{'+(
|
|
6267
|
+
case 4: /* JArray */ return ('['+(Language_JSON_Data_n__5292_7913_stringifyValues($0.a1, $0.a1)+']'));
|
|
6268
|
+
case 5: /* JObject */ return ('{'+(Language_JSON_Data_n__5292_7958_stringifyProps($0.a1, $0.a1)+'}'));
|
|
6248
6269
|
}
|
|
6249
6270
|
}
|
|
6250
6271
|
|
|
@@ -6288,7 +6309,7 @@ function Language_JSON_Data_showChar($0) {
|
|
|
6288
6309
|
|
|
6289
6310
|
/* Language.JSON.Data.format : {default 0 _ : Nat} -> Nat -> JSON -> String */
|
|
6290
6311
|
function Language_JSON_Data_format($0, $1, $2) {
|
|
6291
|
-
return Data_String_indent($0,
|
|
6312
|
+
return Data_String_indent($0, Language_JSON_Data_n__5540_8129_formatValue($2, $1, $0, $0, $1, $2));
|
|
6292
6313
|
}
|
|
6293
6314
|
|
|
6294
6315
|
/* Language.JSON.Data.b16ToHexString : Bits16 -> String */
|
|
@@ -6314,24 +6335,66 @@ function Language_JSON_Data_b16ToHexString($0) {
|
|
|
6314
6335
|
}
|
|
6315
6336
|
}
|
|
6316
6337
|
|
|
6317
|
-
/*
|
|
6318
|
-
|
|
6338
|
+
/* Data.Vect.reverse : Vect len elem -> Vect len elem */
|
|
6339
|
+
function Data_Vect_reverse($0) {
|
|
6340
|
+
return Data_Vect_reverseOnto({h: 0}, $0);
|
|
6341
|
+
}
|
|
6342
|
+
|
|
6343
|
+
/* Data.Vect.fromList : (xs : List elem) -> Vect (length xs) elem */
|
|
6344
|
+
function Data_Vect_fromList($0) {
|
|
6345
|
+
return Data_Vect_reverse(Data_Vect_fromListx27({h: 0}, $0));
|
|
6346
|
+
}
|
|
6347
|
+
|
|
6348
|
+
/* Decidable.Equality.5871:4214:primitiveNotEq */
|
|
6349
|
+
function Decidable_Equality_n__5871_4214_primitiveNotEq($0, $1, $2, $3) {
|
|
6350
|
+
return undefined;
|
|
6351
|
+
}
|
|
6352
|
+
|
|
6353
|
+
/* Decidable.Equality.5871:4213:primitiveEq */
|
|
6354
|
+
function Decidable_Equality_n__5871_4213_primitiveEq($0, $1, $2) {
|
|
6355
|
+
return undefined;
|
|
6356
|
+
}
|
|
6357
|
+
|
|
6358
|
+
/* Decidable.Equality.decEq */
|
|
6359
|
+
function Decidable_Equality_decEq_DecEq_FromEqx24a($0, $1, $2) {
|
|
6360
|
+
switch($0.a1($1)($2)) {
|
|
6361
|
+
case 1: return {h: 0 /* Yes */, a1: Decidable_Equality_n__5871_4213_primitiveEq($0, $1, $2)};
|
|
6362
|
+
case 0: return {h: 1 /* No */, a1: $f => Decidable_Equality_n__5871_4214_primitiveNotEq($0, $1, $2, $f)};
|
|
6363
|
+
}
|
|
6364
|
+
}
|
|
6365
|
+
|
|
6366
|
+
/* Decidable.Equality.decEq */
|
|
6367
|
+
const Decidable_Equality_decEq_DecEq_Char = __lazy(function () {
|
|
6368
|
+
const $0 = x1 => x2 => Decidable_Equality_decEq_DecEq_FromEqx24a(csegen_132(), x1, x2);
|
|
6369
|
+
return $6 => $7 => $0($6)($7);
|
|
6370
|
+
});
|
|
6371
|
+
|
|
6372
|
+
/* Data.Either.maybeToEither : Lazy e -> Maybe a -> Either e a */
|
|
6373
|
+
function Data_Either_maybeToEither($0, $1) {
|
|
6374
|
+
switch($1.h) {
|
|
6375
|
+
case undefined: /* just */ return {h: 1 /* Right */, a1: $1.a1};
|
|
6376
|
+
case 0: /* nothing */ return {h: 0 /* Left */, a1: $0()};
|
|
6377
|
+
}
|
|
6378
|
+
}
|
|
6379
|
+
|
|
6380
|
+
/* Language.JSON.Parser.3664:2407:values */
|
|
6381
|
+
const Language_JSON_Parser_n__3664_2407_values = __lazy(function () {
|
|
6319
6382
|
return Text_Parser_sepBy(1, Language_JSON_Parser_punct({h: 0 /* Comma */}), Language_JSON_Parser_json());
|
|
6320
6383
|
});
|
|
6321
6384
|
|
|
6322
|
-
/* Language.JSON.Parser.
|
|
6323
|
-
const
|
|
6385
|
+
/* Language.JSON.Parser.3661:2316:properties */
|
|
6386
|
+
const Language_JSON_Parser_n__3661_2316_properties = __lazy(function () {
|
|
6324
6387
|
return Text_Parser_sepBy(1, Language_JSON_Parser_punct({h: 0 /* Comma */}), {h: 8 /* SeqEat */, a1: 1, a2: Language_JSON_Parser_rawString(), a3: () => key => ({h: 10 /* ThenEat */, a1: 1, a2: Language_JSON_Parser_punct({h: 1 /* Colon */}), a3: () => ({h: 8 /* SeqEat */, a1: 0, a2: Language_JSON_Parser_json(), a3: () => value => ({h: 0 /* Empty */, a1: {a1: key, a2: value}})})})});
|
|
6325
6388
|
});
|
|
6326
6389
|
|
|
6327
6390
|
/* Language.JSON.Parser.string : Grammar state JSONToken True JSON */
|
|
6328
6391
|
const Language_JSON_Parser_string = __lazy(function () {
|
|
6329
|
-
return
|
|
6392
|
+
return csegen_270()($4 => ({h: 3 /* JString */, a1: $4}))(Language_JSON_Parser_rawString());
|
|
6330
6393
|
});
|
|
6331
6394
|
|
|
6332
6395
|
/* Language.JSON.Parser.rawString : Grammar state JSONToken True String */
|
|
6333
6396
|
const Language_JSON_Parser_rawString = __lazy(function () {
|
|
6334
|
-
return {h: 8 /* SeqEat */, a1: 0, a2: Text_Parser_match(
|
|
6397
|
+
return {h: 8 /* SeqEat */, a1: 0, a2: Text_Parser_match(csegen_274(), csegen_277(), {h: 2 /* JTString */}), a3: () => mstr => {
|
|
6335
6398
|
switch(mstr.h) {
|
|
6336
6399
|
case undefined: /* just */ return {h: 0 /* Empty */, a1: mstr.a1};
|
|
6337
6400
|
case 0: /* nothing */ return {h: 4 /* Fail */, a1: {h: 0}, a2: 0, a3: csegen_62()('invalid string')};
|
|
@@ -6341,7 +6404,7 @@ const Language_JSON_Parser_rawString = __lazy(function () {
|
|
|
6341
6404
|
|
|
6342
6405
|
/* Language.JSON.Parser.punct : Punctuation -> Grammar state JSONToken True () */
|
|
6343
6406
|
function Language_JSON_Parser_punct($0) {
|
|
6344
|
-
return Text_Parser_match(
|
|
6407
|
+
return Text_Parser_match(csegen_274(), csegen_277(), {h: 4 /* JTPunct */, a1: $0});
|
|
6345
6408
|
}
|
|
6346
6409
|
|
|
6347
6410
|
/* Language.JSON.Parser.parseJSON : List (WithBounds JSONToken) -> Maybe JSON */
|
|
@@ -6372,17 +6435,17 @@ function Language_JSON_Parser_parseJSON($0) {
|
|
|
6372
6435
|
|
|
6373
6436
|
/* Language.JSON.Parser.object : Grammar state JSONToken True JSON */
|
|
6374
6437
|
const Language_JSON_Parser_object = __lazy(function () {
|
|
6375
|
-
return {h: 10 /* ThenEat */, a1: 1, a2: Language_JSON_Parser_punct({h: 3 /* Curly */, a1: 0}), a3: () => ({h: 11 /* ThenEmpty */, a1: 0, a2: 1, a3: {h: 6 /* Commit */}, a4: {h: 9 /* SeqEmpty */, a1: 0, a2: 1, a3:
|
|
6438
|
+
return {h: 10 /* ThenEat */, a1: 1, a2: Language_JSON_Parser_punct({h: 3 /* Curly */, a1: 0}), a3: () => ({h: 11 /* ThenEmpty */, a1: 0, a2: 1, a3: {h: 6 /* Commit */}, a4: {h: 9 /* SeqEmpty */, a1: 0, a2: 1, a3: Language_JSON_Parser_n__3661_2316_properties(), a4: props => ({h: 10 /* ThenEat */, a1: 0, a2: Language_JSON_Parser_punct({h: 3 /* Curly */, a1: 1}), a3: () => ({h: 0 /* Empty */, a1: {h: 5 /* JObject */, a1: props}})})}})};
|
|
6376
6439
|
});
|
|
6377
6440
|
|
|
6378
6441
|
/* Language.JSON.Parser.number : Grammar state JSONToken True JSON */
|
|
6379
6442
|
const Language_JSON_Parser_number = __lazy(function () {
|
|
6380
|
-
return
|
|
6443
|
+
return csegen_270()($4 => ({h: 2 /* JNumber */, a1: $4}))(Text_Parser_match(csegen_274(), csegen_277(), {h: 1 /* JTNumber */}));
|
|
6381
6444
|
});
|
|
6382
6445
|
|
|
6383
6446
|
/* Language.JSON.Parser.null : Grammar state JSONToken True JSON */
|
|
6384
6447
|
const Language_JSON_Parser_null$ = __lazy(function () {
|
|
6385
|
-
return
|
|
6448
|
+
return csegen_270()($4 => ({h: 0 /* JNull */}))(Text_Parser_match(csegen_274(), csegen_277(), {h: 3 /* JTNull */}));
|
|
6386
6449
|
});
|
|
6387
6450
|
|
|
6388
6451
|
/* Language.JSON.Parser.json : Grammar state JSONToken True JSON */
|
|
@@ -6392,12 +6455,12 @@ const Language_JSON_Parser_json = __lazy(function () {
|
|
|
6392
6455
|
|
|
6393
6456
|
/* Language.JSON.Parser.boolean : Grammar state JSONToken True JSON */
|
|
6394
6457
|
const Language_JSON_Parser_boolean = __lazy(function () {
|
|
6395
|
-
return
|
|
6458
|
+
return csegen_270()($4 => ({h: 1 /* JBoolean */, a1: $4}))(Text_Parser_match(csegen_274(), csegen_277(), {h: 0 /* JTBoolean */}));
|
|
6396
6459
|
});
|
|
6397
6460
|
|
|
6398
6461
|
/* Language.JSON.Parser.array : Grammar state JSONToken True JSON */
|
|
6399
6462
|
const Language_JSON_Parser_array = __lazy(function () {
|
|
6400
|
-
return {h: 10 /* ThenEat */, a1: 1, a2: Language_JSON_Parser_punct({h: 2 /* Square */, a1: 0}), a3: () => ({h: 11 /* ThenEmpty */, a1: 0, a2: 1, a3: {h: 6 /* Commit */}, a4: {h: 9 /* SeqEmpty */, a1: 0, a2: 1, a3:
|
|
6463
|
+
return {h: 10 /* ThenEat */, a1: 1, a2: Language_JSON_Parser_punct({h: 2 /* Square */, a1: 0}), a3: () => ({h: 11 /* ThenEmpty */, a1: 0, a2: 1, a3: {h: 6 /* Commit */}, a4: {h: 9 /* SeqEmpty */, a1: 0, a2: 1, a3: Language_JSON_Parser_n__3664_2407_values(), a4: vals => ({h: 10 /* ThenEat */, a1: 0, a2: Language_JSON_Parser_punct({h: 2 /* Square */, a1: 1}), a3: () => ({h: 0 /* Empty */, a1: {h: 4 /* JArray */, a1: vals}})})}})};
|
|
6401
6464
|
});
|
|
6402
6465
|
|
|
6403
6466
|
/* Language.JSON.Tokens.tokValue */
|
|
@@ -6585,7 +6648,7 @@ function Text_Lexer_opt($0) {
|
|
|
6585
6648
|
|
|
6586
6649
|
/* Text.Lexer.oneOf : String -> Lexer */
|
|
6587
6650
|
function Text_Lexer_oneOf($0) {
|
|
6588
|
-
return Text_Lexer_Core_pred(x => Prelude_Types_elem(
|
|
6651
|
+
return Text_Lexer_Core_pred(x => Prelude_Types_elem(csegen_193(), csegen_132(), x, Prelude_Types_fastUnpack($0)));
|
|
6589
6652
|
}
|
|
6590
6653
|
|
|
6591
6654
|
/* Text.Lexer.non : Lexer -> Lexer */
|
|
@@ -6707,8 +6770,8 @@ function Text_Quantity_atLeast($0) {
|
|
|
6707
6770
|
return {a1: $0, a2: {h: 0}};
|
|
6708
6771
|
}
|
|
6709
6772
|
|
|
6710
|
-
/* Text.Lexer.Core.
|
|
6711
|
-
function
|
|
6773
|
+
/* Text.Lexer.Core.3742:2500:getCols */
|
|
6774
|
+
function Text_Lexer_Core_n__3742_2500_getCols($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
6712
6775
|
const $8 = Data_List_span($b => Prelude_EqOrd_x2fx3d_Eq_Char($b, '\n'), $6);
|
|
6713
6776
|
switch($8.a2.h) {
|
|
6714
6777
|
case 0: /* nil */ return _add32s($7, Number(_truncBigInt32(Prelude_Types_List_lengthTR($8.a1))));
|
|
@@ -6716,8 +6779,8 @@ function Text_Lexer_Core_n__3740_2500_getCols($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
6716
6779
|
}
|
|
6717
6780
|
}
|
|
6718
6781
|
|
|
6719
|
-
/* Text.Lexer.Core.
|
|
6720
|
-
function
|
|
6782
|
+
/* Text.Lexer.Core.3742:2499:countNLs */
|
|
6783
|
+
function Text_Lexer_Core_n__3742_2499_countNLs($0, $1, $2, $3, $4, $5, $6) {
|
|
6721
6784
|
return Prelude_Types_List_lengthTR(Prelude_Types_List_filterAppend({h: 0}, $c => Prelude_EqOrd_x3dx3d_Eq_Char($c, '\n'), $6));
|
|
6722
6785
|
}
|
|
6723
6786
|
|
|
@@ -6794,8 +6857,8 @@ function Text_Lexer_Core_x3cx7cx3e($0, $1) {
|
|
|
6794
6857
|
return {h: 7 /* Alt */, a1: $0, a2: $1};
|
|
6795
6858
|
}
|
|
6796
6859
|
|
|
6797
|
-
/* Language.JSON.String.Tokens.
|
|
6798
|
-
function
|
|
6860
|
+
/* Language.JSON.String.Tokens.3290:1166:hexVal */
|
|
6861
|
+
function Language_JSON_String_Tokens_n__3290_1166_hexVal($0, $1) {
|
|
6799
6862
|
switch(Prelude_EqOrd_x3ex3d_Ord_Char($1, 'A')) {
|
|
6800
6863
|
case 1: return _add32s(_sub32s(_truncInt32($1.codePointAt(0)), _truncInt32('A'.codePointAt(0))), 10);
|
|
6801
6864
|
case 0: return _sub32s(_truncInt32($1.codePointAt(0)), _truncInt32('0'.codePointAt(0)));
|
|
@@ -6863,7 +6926,7 @@ function Language_JSON_String_Tokens_x2fx3d_Eq_JSONStringTokenKind($0, $1) {
|
|
|
6863
6926
|
|
|
6864
6927
|
/* Language.JSON.String.Tokens.unicodeEscapeValue : String -> Char */
|
|
6865
6928
|
function Language_JSON_String_Tokens_unicodeEscapeValue($0) {
|
|
6866
|
-
return
|
|
6929
|
+
return Language_JSON_String_Tokens_n__3290_1167_fromHex($0, Data_List_drop(2n, Prelude_Types_fastUnpack($0)), 0);
|
|
6867
6930
|
}
|
|
6868
6931
|
|
|
6869
6932
|
/* Language.JSON.String.Tokens.simpleEscapeValue : String -> Char */
|
|
@@ -6898,12 +6961,12 @@ function Language_JSON_String_Tokens_charValue($0) {
|
|
|
6898
6961
|
|
|
6899
6962
|
/* Language.JSON.String.Parser.stringChar : Grammar state JSONStringToken True Char */
|
|
6900
6963
|
const Language_JSON_String_Parser_stringChar = __lazy(function () {
|
|
6901
|
-
return {h: 12 /* Alt */, a1: 1, a2: 1, a3: Text_Parser_match(
|
|
6964
|
+
return {h: 12 /* Alt */, a1: 1, a2: 1, a3: Text_Parser_match(csegen_319(), csegen_322(), 1), a4: () => ({h: 12 /* Alt */, a1: 1, a2: 1, a3: Text_Parser_match(csegen_319(), csegen_322(), 2), a4: () => Text_Parser_match(csegen_319(), csegen_322(), 3)})};
|
|
6902
6965
|
});
|
|
6903
6966
|
|
|
6904
6967
|
/* Language.JSON.String.Parser.quotedString : Grammar state JSONStringToken True String */
|
|
6905
6968
|
const Language_JSON_String_Parser_quotedString = __lazy(function () {
|
|
6906
|
-
const $0 = Text_Parser_match(
|
|
6969
|
+
const $0 = Text_Parser_match(csegen_319(), csegen_322(), 0);
|
|
6907
6970
|
return {h: 8 /* SeqEat */, a1: 0, a2: Text_Parser_between(0, $0, $0, Text_Parser_many(Language_JSON_String_Parser_stringChar())), a3: () => chars => ({h: 11 /* ThenEmpty */, a1: 0, a2: 0, a3: {h: 3 /* EOF */}, a4: {h: 0 /* Empty */, a1: Prelude_Types_fastPack(chars)}})};
|
|
6908
6971
|
});
|
|
6909
6972
|
|
|
@@ -6950,7 +7013,7 @@ function Text_Parser_sepBy1($0, $1, $2) {
|
|
|
6950
7013
|
const $42 = $43($41);
|
|
6951
7014
|
return $42($2);
|
|
6952
7015
|
};
|
|
6953
|
-
const $39 = {h: 9 /* SeqEmpty */, a1: 1, a2: $0, a3:
|
|
7016
|
+
const $39 = {h: 9 /* SeqEmpty */, a1: 1, a2: $0, a3: csegen_341()($1), a4: $40};
|
|
6954
7017
|
const $37 = Text_Parser_many($39);
|
|
6955
7018
|
return $24($37);
|
|
6956
7019
|
};
|
|
@@ -6988,7 +7051,7 @@ function Text_Parser_match($0, $1, $2) {
|
|
|
6988
7051
|
|
|
6989
7052
|
/* Text.Parser.many : Grammar state tok True a -> Grammar state tok False (List a) */
|
|
6990
7053
|
function Text_Parser_many($0) {
|
|
6991
|
-
return Text_Parser_option(1, {h: 0},
|
|
7054
|
+
return Text_Parser_option(1, {h: 0}, csegen_270()($9 => Data_List1_forget($9))(Text_Parser_some($0)));
|
|
6992
7055
|
}
|
|
6993
7056
|
|
|
6994
7057
|
/* Text.Parser.between : Grammar state tok True l -> Grammar state tok True r -> Grammar state tok c a -> Grammar state tok True a */
|
|
@@ -6999,16 +7062,16 @@ function Text_Parser_between($0, $1, $2, $3) {
|
|
|
6999
7062
|
const $15 = $16(f);
|
|
7000
7063
|
return $15($3);
|
|
7001
7064
|
};
|
|
7002
|
-
const $d = {h: 9 /* SeqEmpty */, a1: 1, a2: $0, a3:
|
|
7003
|
-
const $6 =
|
|
7004
|
-
return {h: 9 /* SeqEmpty */, a1: 1, a2: 1, a3: $6, a4: f =>
|
|
7065
|
+
const $d = {h: 9 /* SeqEmpty */, a1: 1, a2: $0, a3: csegen_341()($1), a4: $14};
|
|
7066
|
+
const $6 = csegen_340()($b => $c => $b)($d);
|
|
7067
|
+
return {h: 9 /* SeqEmpty */, a1: 1, a2: 1, a3: $6, a4: f => csegen_340()(f)($2)};
|
|
7005
7068
|
}
|
|
7006
7069
|
|
|
7007
7070
|
/* Text.Parser.Core.case block in doParse */
|
|
7008
7071
|
function Text_Parser_Core_case__doParse_5194($0, $1, $2, $3, $4, $5) {
|
|
7009
7072
|
switch($5.h) {
|
|
7010
7073
|
case 0: /* Failure */ return {h: 0 /* Failure */, a1: $5.a1, a2: $5.a2, a3: $5.a3};
|
|
7011
|
-
case 1: /* Res */ return {h: 1 /* Res */, a1: $5.a1, a2: $5.a2, a3:
|
|
7074
|
+
case 1: /* Res */ return {h: 1 /* Res */, a1: $5.a1, a2: $5.a2, a3: csegen_347()($11 => $5.a3)($5.a3), a4: $5.a4};
|
|
7012
7075
|
}
|
|
7013
7076
|
}
|
|
7014
7077
|
|
|
@@ -7768,12 +7831,12 @@ function Text_Parser_Core_doParse($0, $1, $2, $3, $4) {
|
|
|
7768
7831
|
case 7: /* MustWork */ return Text_Parser_Core_case__doParse_4048($0, $1, $3.a1, $4, $2, Text_Parser_Core_doParse($0, $1, $2, $3.a1, $4));
|
|
7769
7832
|
case 1: /* Terminal */ {
|
|
7770
7833
|
switch($4.h) {
|
|
7771
|
-
case 0: /* nil */ return {h: 0 /* Failure */, a1: $2, a2: 0, a3:
|
|
7834
|
+
case 0: /* nil */ return {h: 0 /* Failure */, a1: $2, a2: 0, a3: csegen_352()};
|
|
7772
7835
|
case undefined: /* cons */ {
|
|
7773
7836
|
const $44 = $3.a2($4.a1.a1);
|
|
7774
7837
|
switch($44.h) {
|
|
7775
7838
|
case 0: /* nothing */ return {h: 0 /* Failure */, a1: $2, a2: 0, a3: {a1: {a1: $3.a1, a2: {a1: $4.a1.a3}}, a2: {h: 0}}};
|
|
7776
|
-
case undefined: /* just */ return {h: 1 /* Res */, a1: $1, a2: $2, a3:
|
|
7839
|
+
case undefined: /* just */ return {h: 1 /* Res */, a1: $1, a2: $2, a3: csegen_347()($58 => $44.a1)($4.a1), a4: $4.a2};
|
|
7777
7840
|
}
|
|
7778
7841
|
}
|
|
7779
7842
|
}
|
|
@@ -7786,7 +7849,7 @@ function Text_Parser_Core_doParse($0, $1, $2, $3, $4) {
|
|
|
7786
7849
|
}
|
|
7787
7850
|
case 2: /* NextIs */ {
|
|
7788
7851
|
switch($4.h) {
|
|
7789
|
-
case 0: /* nil */ return {h: 0 /* Failure */, a1: $2, a2: 0, a3:
|
|
7852
|
+
case 0: /* nil */ return {h: 0 /* Failure */, a1: $2, a2: 0, a3: csegen_352()};
|
|
7790
7853
|
case undefined: /* cons */ {
|
|
7791
7854
|
switch($3.a2($4.a1.a1)) {
|
|
7792
7855
|
case 1: return {h: 1 /* Res */, a1: $1, a2: $2, a3: Text_Bounded_removeIrrelevance($4.a1), a4: {a1: $4.a1, a2: $4.a2}};
|
|
@@ -7815,7 +7878,7 @@ function Text_Parser_Core_doParse($0, $1, $2, $3, $4) {
|
|
|
7815
7878
|
case 13: /* Bounds */ return Text_Parser_Core_case__doParse_5194($0, $1, $3.a1, $4, $2, Text_Parser_Core_doParse($0, $1, $2, $3.a1, $4));
|
|
7816
7879
|
case 14: /* Position */ {
|
|
7817
7880
|
switch($4.h) {
|
|
7818
|
-
case 0: /* nil */ return {h: 0 /* Failure */, a1: $2, a2: 0, a3:
|
|
7881
|
+
case 0: /* nil */ return {h: 0 /* Failure */, a1: $2, a2: 0, a3: csegen_352()};
|
|
7819
7882
|
case undefined: /* cons */ return {h: 1 /* Res */, a1: $1, a2: $2, a3: Text_Bounded_irrelevantBounds($4.a1.a3), a4: {a1: $4.a1, a2: $4.a2}};
|
|
7820
7883
|
}
|
|
7821
7884
|
}
|
|
@@ -7921,51 +7984,51 @@ const Language_JSON_Lexer_jsonTokenMap = __lazy(function () {
|
|
|
7921
7984
|
return Text_Lexer_toTokenMap()({a1: {a1: Text_Lexer_spaces(), a2: {h: 5 /* JTIgnore */}}, a2: {a1: {a1: Text_Lexer_is(','), a2: {h: 4 /* JTPunct */, a1: {h: 0 /* Comma */}}}, a2: {a1: {a1: Text_Lexer_is(':'), a2: {h: 4 /* JTPunct */, a1: {h: 1 /* Colon */}}}, a2: {a1: {a1: Text_Lexer_is('['), a2: {h: 4 /* JTPunct */, a1: {h: 2 /* Square */, a1: 0}}}, a2: {a1: {a1: Text_Lexer_is(']'), a2: {h: 4 /* JTPunct */, a1: {h: 2 /* Square */, a1: 1}}}, a2: {a1: {a1: Text_Lexer_is('{'), a2: {h: 4 /* JTPunct */, a1: {h: 3 /* Curly */, a1: 0}}}, a2: {a1: {a1: Text_Lexer_is('}'), a2: {h: 4 /* JTPunct */, a1: {h: 3 /* Curly */, a1: 1}}}, a2: {a1: {a1: Text_Lexer_exact('null'), a2: {h: 3 /* JTNull */}}, a2: {a1: {a1: Text_Lexer_Core_x3cx7cx3e(Text_Lexer_exact('true'), Text_Lexer_exact('false')), a2: {h: 0 /* JTBoolean */}}, a2: {a1: {a1: Language_JSON_Lexer_numberLit(), a2: {h: 1 /* JTNumber */}}, a2: {a1: {a1: Language_JSON_String_permissiveStringLit(), a2: {h: 2 /* JTString */}}, a2: {h: 0}}}}}}}}}}}});
|
|
7922
7985
|
});
|
|
7923
7986
|
|
|
7924
|
-
/* Help.
|
|
7925
|
-
function
|
|
7926
|
-
return
|
|
7987
|
+
/* Help.4669:1021:subcommand */
|
|
7988
|
+
function Help_n__4669_1021_subcommand($0, $1) {
|
|
7989
|
+
return Help_n__4669_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);
|
|
7927
7990
|
}
|
|
7928
7991
|
|
|
7929
|
-
/* Help.
|
|
7930
|
-
function
|
|
7931
|
-
return
|
|
7992
|
+
/* Help.4669:1024:shell */
|
|
7993
|
+
function Help_n__4669_1024_shell($0, $1) {
|
|
7994
|
+
return Help_n__4669_1019_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
|
|
7932
7995
|
}
|
|
7933
7996
|
|
|
7934
|
-
/* Help.
|
|
7935
|
-
function
|
|
7936
|
-
return
|
|
7997
|
+
/* Help.4669:1020:option */
|
|
7998
|
+
function Help_n__4669_1020_option($0, $1) {
|
|
7999
|
+
return Help_n__4669_1019_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_bold(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
|
|
7937
8000
|
}
|
|
7938
8001
|
|
|
7939
|
-
/* Help.
|
|
7940
|
-
function
|
|
8002
|
+
/* Help.4669:1019:maybeDecorate */
|
|
8003
|
+
function Help_n__4669_1019_maybeDecorate($0, $1, $2) {
|
|
7941
8004
|
switch($0) {
|
|
7942
8005
|
case 1: return Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString(Text_PrettyPrint_Prettyprinter_Doc_layoutPretty(Text_PrettyPrint_Prettyprinter_Doc_defaultLayoutOptions())($1($2)));
|
|
7943
8006
|
case 0: return $2;
|
|
7944
8007
|
}
|
|
7945
8008
|
}
|
|
7946
8009
|
|
|
7947
|
-
/* Help.
|
|
7948
|
-
function
|
|
7949
|
-
return
|
|
8010
|
+
/* Help.4669:1023:heading */
|
|
8011
|
+
function Help_n__4669_1023_heading($0, $1) {
|
|
8012
|
+
return Help_n__4669_1019_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
|
|
7950
8013
|
}
|
|
7951
8014
|
|
|
7952
|
-
/* Help.
|
|
7953
|
-
function
|
|
7954
|
-
return
|
|
8015
|
+
/* Help.4669:1022:argument */
|
|
8016
|
+
function Help_n__4669_1022_argument($0, $1) {
|
|
8017
|
+
return Help_n__4669_1019_maybeDecorate($0, csegen_398(), $1);
|
|
7955
8018
|
}
|
|
7956
8019
|
|
|
7957
8020
|
/* Help.help : Bool -> String */
|
|
7958
8021
|
function Help_help($0) {
|
|
7959
|
-
return Prelude_Types_foldMap_Foldable_List(csegen_70(), $5 => $5, {a1: 'harmony ', a2: {a1:
|
|
8022
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_70(), $5 => $5, {a1: 'harmony ', a2: {a1: Help_n__4669_1021_subcommand($0, '<subcommand>'), a2: {a1: '\n\n', a2: {a1: Help_n__4669_1023_heading($0, 'Subcommands'), a2: {a1: ':\n ', a2: {a1: Help_n__4669_1021_subcommand($0, 'help'), a2: {a1: '\n - Print help\n ', a2: {a1: Help_n__4669_1021_subcommand($0, 'version'), a2: {a1: '\n - Print version\n ', a2: {a1: Help_n__4669_1021_subcommand($0, 'config'), a2: {a1: ' {', a2: {a1: Help_n__4669_1022_argument($0, '<property>'), a2: {a1: '} [', a2: {a1: Help_n__4669_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__4669_1022_argument($0, 'properties'), a2: {a1: ': ', a2: {a1: Data_String_Extra_join(', ', csegen_193(), csegen_116()($4b => Help_n__4669_1020_option($0, $4b))(Data_Config_settablePropNames())), a2: {a1: '.\n ', a2: {a1: Help_n__4669_1021_subcommand($0, 'sync'), a2: {a1: '\n - Synchronize local config with information from GitHub.\n ', a2: {a1: Help_n__4669_1021_subcommand($0, 'branch'), a2: {a1: '\n - Print the GitHub URI for the currently checked out branch.\n ', a2: {a1: Help_n__4669_1021_subcommand($0, 'pr'), a2: {a1: ' [', a2: {a1: Help_n__4669_1022_argument($0, '--draft'), a2: {a1: '] [', a2: {a1: Help_n__4669_1022_argument($0, '#<label>'), a2: {a1: '] [...]\n - Identify an existing PR or create a new one for the current branch.\n \n Optionally apply any number of labels by prefixing them with \'#\'.\n\n ', a2: {a1: Help_n__4669_1021_subcommand($0, 'contribute'), a2: {a1: ' [', a2: {a1: Help_n__4669_1022_argument($0, '-c/--checkout'), a2: {a1: '] [', a2: {a1: Help_n__4669_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__4669_1021_subcommand($0, 'whoami'), a2: {a1: '\n - Print information about the configured and authenticated user.\n ', a2: {a1: Help_n__4669_1021_subcommand($0, 'reflect'), a2: {a1: '\n - Reflect on the current state of ones own PRs and review requests.\n ', a2: {a1: Help_n__4669_1021_subcommand($0, 'list'), a2: {a1: ' {', a2: {a1: Help_n__4669_1022_argument($0, '<team-slug>'), a2: {a1: '}\n - List the members of the given GitHub Team.\n ', a2: {a1: Help_n__4669_1021_subcommand($0, 'graph'), a2: {a1: ' [', a2: {a1: Help_n__4669_1022_argument($0, '-c/--completed'), a2: {a1: '] {', a2: {a1: Help_n__4669_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__4669_1021_subcommand($0, 'health'), a2: {a1: '\n - Graph all open PRs grouped by the month they were created.\n ', a2: {a1: Help_n__4669_1021_subcommand($0, 'label'), a2: {a1: ' {', a2: {a1: Help_n__4669_1022_argument($0, '<label>'), a2: {a1: '} [...]\n - Add one or more labels to a PR, creating a new PR if one does not exist.\n Labels that do not exist yet will be created automatically.\n ', a2: {a1: Help_n__4669_1021_subcommand($0, 'assign'), a2: {a1: ' {', a2: {a1: Help_n__4669_1022_argument($0, '<team-slug>'), a2: {a1: ' | ', a2: {a1: Help_n__4669_1022_argument($0, '+<user-login>'), a2: {a1: '} [', a2: {a1: Help_n__4669_1022_argument($0, '#<label>'), a2: {a1: '] [...]\n - Assign the given team(s) and one lucky member from one of those teams\n to review the PR for the current branch.\n \n Also assign any users with logins specified. You specify these\n additional users by prefixing their logins with \'+\'.\n\n Optionally apply any number of labels by prefixing them with \'#\'.\n \n', a2: {a1: Help_n__4669_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__4669_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__4669_1024_shell($0, 'autoload -U +X compinit && compinit'), a2: {a1: '\n ', a2: {a1: Help_n__4669_1024_shell($0, 'autoload -U +X bashcompinit && bashcompinit'), a2: {a1: '\n ', a2: {h: 0}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}});
|
|
7960
8023
|
}
|
|
7961
8024
|
|
|
7962
|
-
/* Data.Config.
|
|
7963
|
-
function
|
|
8025
|
+
/* Data.Config.6403:5961:personalAccessToken */
|
|
8026
|
+
function Data_Config_n__6403_5961_personalAccessToken($0) {
|
|
7964
8027
|
return Prelude_Types_maybe(() => 'Not set (will use $GITHUB_PAT environment variable)', () => $4 => Data_Config_show_Show_x28Hiddenx20x24ax29($4), $0.a12);
|
|
7965
8028
|
}
|
|
7966
8029
|
|
|
7967
|
-
/* Data.Config.
|
|
7968
|
-
function
|
|
8030
|
+
/* Data.Config.6852:6398:parseConfigJson */
|
|
8031
|
+
function Data_Config_n__6852_6398_parseConfigJson($0, $1) {
|
|
7969
8032
|
switch($1.h) {
|
|
7970
8033
|
case 5: /* JObject */ {
|
|
7971
8034
|
const $18 = $19 => {
|
|
@@ -7980,9 +8043,9 @@ function Data_Config_n__6388_6398_parseConfigJson($0, $1) {
|
|
|
7980
8043
|
}
|
|
7981
8044
|
};
|
|
7982
8045
|
const $47 = $52 => $53 => $48(undefined)(undefined)($52)($53);
|
|
7983
|
-
const $46 = $47(
|
|
8046
|
+
const $46 = $47(csegen_409());
|
|
7984
8047
|
const $45 = $46(Language_JSON_Accessors_integer($19.a1));
|
|
7985
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($45, ua => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($19.a2.a1), o => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($19.a2.a2.a1), r => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Types_maybe(() => ({h: 1 /* Right */, a1: {h: 0}}), () =>
|
|
8048
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($45, ua => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($19.a2.a1), o => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($19.a2.a2.a1), r => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Types_maybe(() => ({h: 1 /* Right */, a1: {h: 0}}), () => csegen_410(), $35), dr => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($19.a2.a2.a2.a1), mb => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($19.a2.a2.a2.a2.a1), at => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Types_maybe(() => ({h: 1 /* Right */, a1: 1}), () => $85 => Language_JSON_Accessors_bool($85), $23), au => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($19.a2.a2.a2.a2.a2.a1), ca => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($93 => Language_JSON_Accessors_string($93), $19.a2.a2.a2.a2.a2.a2.a1), ts => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Types_maybe(() => ({h: 1 /* Right */, a1: {h: 0}}), () => $9e => Language_JSON_Accessors_array($a1 => Language_JSON_Accessors_string($a1), $9e), $2c), rl => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($ab => Language_JSON_Accessors_string($ab), $19.a2.a2.a2.a2.a2.a2.a2.a1), om => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Types_maybe(() => ({h: 1 /* Right */, a1: {h: 0}}), () => csegen_410(), $3e), gp => ({h: 1 /* Right */, a1: {a1: ua, a2: o, a3: r, a4: dr, a5: mb, a6: at, a7: au, a8: ca, a9: ts, a10: rl, a11: om, a12: csegen_412()(gp), a13: $0}})))))))))))));
|
|
7986
8049
|
};
|
|
7987
8050
|
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'updatedAt', a2: {a1: 'org', a2: {a1: 'repo', a2: {a1: 'mainBranch', a2: {a1: 'assignTeams', a2: {a1: 'commentOnAssign', a2: {a1: 'teamSlugs', a2: {a1: 'orgMembers', a2: {h: 0}}}}}}}}}, $1.a1), $18);
|
|
7988
8051
|
}
|
|
@@ -7991,14 +8054,14 @@ function Data_Config_n__6388_6398_parseConfigJson($0, $1) {
|
|
|
7991
8054
|
}
|
|
7992
8055
|
}
|
|
7993
8056
|
|
|
7994
|
-
/* Data.Config.
|
|
7995
|
-
function
|
|
8057
|
+
/* Data.Config.6403:5960:defaultRemote */
|
|
8058
|
+
function Data_Config_n__6403_5960_defaultRemote($0) {
|
|
7996
8059
|
return Prelude_Types_maybe(() => 'Not set (defaults to \"origin\")', () => $4 => Prelude_Show_show_Show_String($4), $0.a4);
|
|
7997
8060
|
}
|
|
7998
8061
|
|
|
7999
8062
|
/* Data.Config.show */
|
|
8000
8063
|
function Data_Config_show_Show_Config($0) {
|
|
8001
|
-
return Data_String_fastUnlines({a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $8 => $8, {a1: ' updatedAt: ', a2: {a1: Prelude_Show_show_Show_Bits32($0.a1), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $17 => $17, {a1: ' org: ', a2: {a1: Prelude_Show_show_Show_String($0.a2), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $26 => $26, {a1: ' repo: ', a2: {a1: Prelude_Show_show_Show_String($0.a3), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $35 => $35, {a1: ' defaultRemote: ', a2: {a1:
|
|
8064
|
+
return Data_String_fastUnlines({a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $8 => $8, {a1: ' updatedAt: ', a2: {a1: Prelude_Show_show_Show_Bits32($0.a1), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $17 => $17, {a1: ' org: ', a2: {a1: Prelude_Show_show_Show_String($0.a2), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $26 => $26, {a1: ' repo: ', a2: {a1: Prelude_Show_show_Show_String($0.a3), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $35 => $35, {a1: ' defaultRemote: ', a2: {a1: Data_Config_n__6403_5960_defaultRemote($0), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $43 => $43, {a1: ' mainBranch: ', a2: {a1: Prelude_Show_show_Show_String($0.a5), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $52 => $52, {a1: ' assignTeams: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a6), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $61 => $61, {a1: ' assignUsers: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a7), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $70 => $70, {a1: 'commentOnAssign: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a8), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $7f => $7f, {a1: ' teamSlugs: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_72(), $0.a9), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $90 => $90, {a1: ' repoLabels: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_72(), $0.a10), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $a1 => $a1, {a1: ' orgMembers: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_72(), $0.a11), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $b2 => $b2, {a1: ' githubPAT: ', a2: {a1: Data_Config_n__6403_5961_personalAccessToken($0), a2: {h: 0}}}), a2: {h: 0}}}}}}}}}}}}});
|
|
8002
8065
|
}
|
|
8003
8066
|
|
|
8004
8067
|
/* Data.Config.show */
|
|
@@ -8078,18 +8141,18 @@ function Data_Config_parseConfig($0, $1) {
|
|
|
8078
8141
|
}
|
|
8079
8142
|
};
|
|
8080
8143
|
const $4 = {a1: $5, a2: a => $d => ({h: 1 /* Right */, a1: $d}), a3: $f};
|
|
8081
|
-
const $3 = {a1: $4, a2:
|
|
8082
|
-
return Prelude_Interfaces_x3ex3dx3e($3,
|
|
8144
|
+
const $3 = {a1: $4, a2: csegen_200(), a3: csegen_201()};
|
|
8145
|
+
return Prelude_Interfaces_x3ex3dx3e($3, csegen_428(), $20 => Data_Config_n__6852_6398_parseConfigJson($0, $20), $1);
|
|
8083
8146
|
}
|
|
8084
8147
|
|
|
8085
8148
|
/* Data.Config.longestSettablePropName : Nat */
|
|
8086
8149
|
const Data_Config_longestSettablePropName = __lazy(function () {
|
|
8087
|
-
return Prelude_Types_foldr_Foldable_List(
|
|
8150
|
+
return Prelude_Types_foldr_Foldable_List(csegen_429(), 0n, csegen_116()($9 => Prelude_Types_String_length(Data_Config_propNamex27($9)))(Data_Config_settableProps()));
|
|
8088
8151
|
});
|
|
8089
8152
|
|
|
8090
8153
|
/* Data.Config.json : Config -> JSON */
|
|
8091
8154
|
function Data_Config_json($0) {
|
|
8092
|
-
return {h: 5 /* JObject */, a1: {a1: {a1: 'assignTeams', a2: {h: 1 /* JBoolean */, a1: $0.a6}}, a2: {a1: {a1: 'assignUsers', a2: {h: 1 /* JBoolean */, a1: $0.a7}}, a2: {a1: {a1: 'commentOnAssign', a2: {h: 1 /* JBoolean */, a1: $0.a8}}, a2: {a1: {a1: 'org', a2: {h: 3 /* JString */, a1: $0.a2}}, a2: {a1: {a1: 'repo', a2: {h: 3 /* JString */, a1: $0.a3}}, a2: {a1: {a1: 'defaultRemote', a2: Prelude_Types_maybe(() => ({h: 0 /* JNull */}), () => $22 => ({h: 3 /* JString */, a1: $22}), $0.a4)}, a2: {a1: {a1: 'mainBranch', a2: {h: 3 /* JString */, a1: $0.a5}}, a2: {a1: {a1: 'orgMembers', a2: {h: 4 /* JArray */, a1:
|
|
8155
|
+
return {h: 5 /* JObject */, a1: {a1: {a1: 'assignTeams', a2: {h: 1 /* JBoolean */, a1: $0.a6}}, a2: {a1: {a1: 'assignUsers', a2: {h: 1 /* JBoolean */, a1: $0.a7}}, a2: {a1: {a1: 'commentOnAssign', a2: {h: 1 /* JBoolean */, a1: $0.a8}}, a2: {a1: {a1: 'org', a2: {h: 3 /* JString */, a1: $0.a2}}, a2: {a1: {a1: 'repo', a2: {h: 3 /* JString */, a1: $0.a3}}, a2: {a1: {a1: 'defaultRemote', a2: Prelude_Types_maybe(() => ({h: 0 /* JNull */}), () => $22 => ({h: 3 /* JString */, a1: $22}), $0.a4)}, a2: {a1: {a1: 'mainBranch', a2: {h: 3 /* JString */, a1: $0.a5}}, a2: {a1: {a1: 'orgMembers', a2: {h: 4 /* JArray */, a1: csegen_434()(Data_List_sort(csegen_442(), $0.a11))}}, a2: {a1: {a1: 'teamSlugs', a2: {h: 4 /* JArray */, a1: csegen_434()(Data_List_sort(csegen_442(), $0.a9))}}, a2: {a1: {a1: 'repoLabels', a2: {h: 4 /* JArray */, a1: csegen_434()(Data_List_sort(csegen_442(), $0.a10))}}, a2: {a1: {a1: 'githubPAT', a2: Prelude_Types_maybe(() => ({h: 0 /* JNull */}), () => $55 => ({h: 3 /* JString */, a1: Data_Config_expose($55)}), $0.a12)}, a2: {a1: {a1: 'updatedAt', a2: {h: 2 /* JNumber */, a1: $0.a1}}, a2: {h: 0}}}}}}}}}}}}}};
|
|
8093
8156
|
}
|
|
8094
8157
|
|
|
8095
8158
|
/* Data.Config.filename : String */
|
|
@@ -8103,41 +8166,9 @@ function Data_Config_expose($0) {
|
|
|
8103
8166
|
return $1;
|
|
8104
8167
|
}
|
|
8105
8168
|
|
|
8106
|
-
/*
|
|
8107
|
-
function
|
|
8108
|
-
return
|
|
8109
|
-
}
|
|
8110
|
-
|
|
8111
|
-
/* Decidable.Equality.5420:4213:primitiveEq */
|
|
8112
|
-
function Decidable_Equality_n__5420_4213_primitiveEq($0, $1, $2) {
|
|
8113
|
-
return undefined;
|
|
8114
|
-
}
|
|
8115
|
-
|
|
8116
|
-
/* Decidable.Equality.decEq */
|
|
8117
|
-
function Decidable_Equality_decEq_DecEq_FromEqx24a($0, $1, $2) {
|
|
8118
|
-
switch($0.a1($1)($2)) {
|
|
8119
|
-
case 1: return {h: 0 /* Yes */, a1: Decidable_Equality_n__5420_4213_primitiveEq($0, $1, $2)};
|
|
8120
|
-
case 0: return {h: 1 /* No */, a1: $f => Decidable_Equality_n__5420_4214_primitiveNotEq($0, $1, $2, $f)};
|
|
8121
|
-
}
|
|
8122
|
-
}
|
|
8123
|
-
|
|
8124
|
-
/* Decidable.Equality.decEq */
|
|
8125
|
-
const Decidable_Equality_decEq_DecEq_Char = __lazy(function () {
|
|
8126
|
-
const $0 = x1 => x2 => Decidable_Equality_decEq_DecEq_FromEqx24a(csegen_132(), x1, x2);
|
|
8127
|
-
return $6 => $7 => $0($6)($7);
|
|
8128
|
-
});
|
|
8129
|
-
|
|
8130
|
-
/* Data.Either.maybeToEither : Lazy e -> Maybe a -> Either e a */
|
|
8131
|
-
function Data_Either_maybeToEither($0, $1) {
|
|
8132
|
-
switch($1.h) {
|
|
8133
|
-
case undefined: /* just */ return {h: 1 /* Right */, a1: $1.a1};
|
|
8134
|
-
case 0: /* nothing */ return {h: 0 /* Left */, a1: $0()};
|
|
8135
|
-
}
|
|
8136
|
-
}
|
|
8137
|
-
|
|
8138
|
-
/* Language.JSON.Accessors.4085:8487:lookup' */
|
|
8139
|
-
function Language_JSON_Accessors_n__4085_8487_lookupx27($0, $1, $2, $3, $4) {
|
|
8140
|
-
return Data_Either_maybeToEither(() => Prelude_Types_foldMap_Foldable_List(csegen_70(), $b => $b, {a1: csegen_62()('Missing required key: '), a2: {a1: csegen_62()($3), a2: csegen_442()}}), Data_List_lookup(csegen_45(), $3, $4));
|
|
8169
|
+
/* Language.JSON.Accessors.4549:8487:lookup' */
|
|
8170
|
+
function Language_JSON_Accessors_n__4549_8487_lookupx27($0, $1, $2, $3, $4) {
|
|
8171
|
+
return Data_Either_maybeToEither(() => Prelude_Types_foldMap_Foldable_List(csegen_70(), $b => $b, {a1: csegen_62()('Missing required key: '), a2: {a1: csegen_62()($3), a2: csegen_446()}}), Data_List_lookup(csegen_45(), $3, $4));
|
|
8141
8172
|
}
|
|
8142
8173
|
|
|
8143
8174
|
/* Language.JSON.Accessors.string : JSON -> Either String String */
|
|
@@ -8179,7 +8210,7 @@ function Language_JSON_Accessors_lookupAll($0, $1) {
|
|
|
8179
8210
|
switch($0.h) {
|
|
8180
8211
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
8181
8212
|
case undefined: /* cons */ {
|
|
8182
|
-
const $4 =
|
|
8213
|
+
const $4 = Language_JSON_Accessors_n__4549_8487_lookupx27($0.a1, $0.a2, $1, $0.a1, $1);
|
|
8183
8214
|
switch($4.h) {
|
|
8184
8215
|
case 1: /* Right */ {
|
|
8185
8216
|
const $b = Language_JSON_Accessors_lookupAll($0.a2, $1);
|
|
@@ -8238,16 +8269,6 @@ function Language_JSON_Accessors_array($0, $1) {
|
|
|
8238
8269
|
}
|
|
8239
8270
|
}
|
|
8240
8271
|
|
|
8241
|
-
/* Data.Vect.reverse : Vect len elem -> Vect len elem */
|
|
8242
|
-
function Data_Vect_reverse($0) {
|
|
8243
|
-
return Data_Vect_reverseOnto({h: 0}, $0);
|
|
8244
|
-
}
|
|
8245
|
-
|
|
8246
|
-
/* Data.Vect.fromList : (xs : List elem) -> Vect (length xs) elem */
|
|
8247
|
-
function Data_Vect_fromList($0) {
|
|
8248
|
-
return Data_Vect_reverse(Data_Vect_fromListx27({h: 0}, $0));
|
|
8249
|
-
}
|
|
8250
|
-
|
|
8251
8272
|
/* FFI.GitHub.show */
|
|
8252
8273
|
function FFI_GitHub_show_Show_GitHubPRState($0) {
|
|
8253
8274
|
switch($0) {
|
|
@@ -8272,19 +8293,19 @@ function FFI_GitHub_octokit($0) {
|
|
|
8272
8293
|
/* FFI.GitHub.listTeams : Octokit => String -> Promise (List String) */
|
|
8273
8294
|
function FFI_GitHub_listTeams($0, $1) {
|
|
8274
8295
|
const $2 = $0;
|
|
8275
|
-
return
|
|
8296
|
+
return csegen_448()($6 => $7 => FFI_promiseIO($a => $b => $c => FFI_GitHub_prim__listTeams($2, $1, $a, $b, $c), $6, $7));
|
|
8276
8297
|
}
|
|
8277
8298
|
|
|
8278
8299
|
/* FFI.GitHub.listTeamMembers : Octokit => String -> String -> Promise (List String) */
|
|
8279
8300
|
function FFI_GitHub_listTeamMembers($0, $1, $2) {
|
|
8280
8301
|
const $3 = $0;
|
|
8281
|
-
return
|
|
8302
|
+
return csegen_448()($7 => $8 => FFI_promiseIO($b => $c => $d => FFI_GitHub_prim__listTeamMembers($3, $1, $2, $b, $c, $d), $7, $8));
|
|
8282
8303
|
}
|
|
8283
8304
|
|
|
8284
8305
|
/* FFI.GitHub.listRepoLabels : Octokit => String -> String -> Promise (List String) */
|
|
8285
8306
|
function FFI_GitHub_listRepoLabels($0, $1, $2) {
|
|
8286
8307
|
const $3 = $0;
|
|
8287
|
-
return
|
|
8308
|
+
return csegen_448()($7 => $8 => FFI_promiseIO($b => $c => $d => FFI_GitHub_prim__listRepoLabels($3, $1, $2, $b, $c, $d), $7, $8));
|
|
8288
8309
|
}
|
|
8289
8310
|
|
|
8290
8311
|
/* FFI.GitHub.listPullReviewsJsonStr : Octokit => String -> String -> Integer -> Promise String */
|
|
@@ -8309,37 +8330,37 @@ String -> String -> Maybe GitHubPRState -> Fin 101 -> {default 0 _ : Nat} ->
|
|
|
8309
8330
|
Promise (List PullRequest) */
|
|
8310
8331
|
function FFI_GitHub_listPullRequests($0, $1, $2, $3, $4, $5) {
|
|
8311
8332
|
const $6 = $0;
|
|
8312
|
-
return Prelude_Basics_flip(
|
|
8333
|
+
return Prelude_Basics_flip(csegen_449(), csegen_450(), FFI_GitHub_listPullRequestsJsonStr($6, $1, $2, $3, $4, $5));
|
|
8313
8334
|
}
|
|
8314
8335
|
|
|
8315
8336
|
/* FFI.GitHub.listPRsForBranch : Octokit => String -> String -> String -> Promise (List PullRequest) */
|
|
8316
8337
|
function FFI_GitHub_listPRsForBranch($0, $1, $2, $3) {
|
|
8317
8338
|
const $4 = $0;
|
|
8318
|
-
return Prelude_Basics_flip(
|
|
8339
|
+
return Prelude_Basics_flip(csegen_449(), csegen_450(), $b => $c => FFI_promiseIO($f => $10 => $11 => FFI_GitHub_prim__listPRsForBranch($4, $1, $2, $3, $f, $10, $11), $b, $c));
|
|
8319
8340
|
}
|
|
8320
8341
|
|
|
8321
8342
|
/* FFI.GitHub.listOrgMembers : Octokit => String -> Promise (List String) */
|
|
8322
8343
|
function FFI_GitHub_listOrgMembers($0, $1) {
|
|
8323
8344
|
const $2 = $0;
|
|
8324
|
-
return
|
|
8345
|
+
return csegen_448()($6 => $7 => FFI_promiseIO($a => $b => $c => FFI_GitHub_prim__listOrgMembers($2, $1, $a, $b, $c), $6, $7));
|
|
8325
8346
|
}
|
|
8326
8347
|
|
|
8327
8348
|
/* FFI.GitHub.listMyTeams : Octokit => Promise (List String) */
|
|
8328
8349
|
function FFI_GitHub_listMyTeams($0) {
|
|
8329
8350
|
const $1 = $0;
|
|
8330
|
-
return
|
|
8351
|
+
return csegen_448()($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_GitHub_prim__listMyTeams($1, $9, $a, $b), $5, $6));
|
|
8331
8352
|
}
|
|
8332
8353
|
|
|
8333
8354
|
/* FFI.GitHub.getUser : Octokit => String -> Promise User */
|
|
8334
8355
|
function FFI_GitHub_getUser($0) {
|
|
8335
8356
|
const $1 = $0;
|
|
8336
|
-
return Prelude_Interfaces_x3cx3dx3c(csegen_91(),
|
|
8357
|
+
return Prelude_Interfaces_x3cx3dx3c(csegen_91(), csegen_451(), $8 => $9 => $a => FFI_promiseIO($d => $e => $f => FFI_GitHub_prim__getUser($1, $8, $d, $e, $f), $9, $a));
|
|
8337
8358
|
}
|
|
8338
8359
|
|
|
8339
8360
|
/* FFI.GitHub.getSelf : Octokit => Promise User */
|
|
8340
8361
|
function FFI_GitHub_getSelf($0) {
|
|
8341
8362
|
const $1 = $0;
|
|
8342
|
-
return Prelude_Basics_flip(
|
|
8363
|
+
return Prelude_Basics_flip(csegen_449(), csegen_451(), $8 => $9 => FFI_promiseIO($c => $d => $e => FFI_GitHub_prim__getSelf($1, $c, $d, $e), $8, $9));
|
|
8343
8364
|
}
|
|
8344
8365
|
|
|
8345
8366
|
/* FFI.GitHub.getRepoDefaultBranch : Octokit => String -> String -> Promise String */
|
|
@@ -8352,7 +8373,7 @@ function FFI_GitHub_getRepoDefaultBranch($0, $1, $2) {
|
|
|
8352
8373
|
String -> String -> String -> String -> String -> String -> Promise PullRequest */
|
|
8353
8374
|
function FFI_GitHub_createPR($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
8354
8375
|
const $8 = $0;
|
|
8355
|
-
return Prelude_Basics_flip(
|
|
8376
|
+
return Prelude_Basics_flip(csegen_449(), $d => $e => Data_Promise_either(csegen_72(), Data_PullRequest_parsePullRequestString($d), $e), $17 => $18 => FFI_promiseIO($1b => $1c => $1d => FFI_GitHub_prim__createPR($8, $2, $3, $4, $5, $6, $7, $1, $1b, $1c, $1d), $17, $18));
|
|
8356
8377
|
}
|
|
8357
8378
|
|
|
8358
8379
|
/* FFI.GitHub.createComment : Octokit => String -> String -> Integer -> String -> Promise () */
|
|
@@ -8365,13 +8386,13 @@ function FFI_GitHub_createComment($0, $1, $2, $3, $4) {
|
|
|
8365
8386
|
String -> String -> Integer -> List String -> List String -> Promise (List String) */
|
|
8366
8387
|
function FFI_GitHub_addPullReviewers($0, $1, $2, $3, $4, $5) {
|
|
8367
8388
|
const $6 = $0;
|
|
8368
|
-
return
|
|
8389
|
+
return csegen_448()($a => $b => FFI_promiseIO($e => $f => $10 => FFI_GitHub_prim__addPullReviewers($6, $1, $2, $3, Data_String_Extra_join(',', csegen_193(), $4), Data_String_Extra_join(',', csegen_193(), $5), $e, $f, $10), $a, $b));
|
|
8369
8390
|
}
|
|
8370
8391
|
|
|
8371
8392
|
/* FFI.GitHub.addPullLabels : Octokit => String -> String -> Integer -> List String -> Promise (List String) */
|
|
8372
8393
|
function FFI_GitHub_addPullLabels($0, $1, $2, $3, $4) {
|
|
8373
8394
|
const $5 = $0;
|
|
8374
|
-
return
|
|
8395
|
+
return csegen_448()($9 => $a => FFI_promiseIO($d => $e => $f => FFI_GitHub_prim__addLabels($5, $1, $2, $3, Data_String_Extra_join(',', csegen_193(), $4), $d, $e, $f), $9, $a));
|
|
8375
8396
|
}
|
|
8376
8397
|
|
|
8377
8398
|
/* FFI.promiseIO : ((String -> PrimIO ()) -> (String -> PrimIO ()) -> PrimIO ()) -> Promise String */
|
|
@@ -8502,8 +8523,8 @@ function Data_User_parseUserString($0) {
|
|
|
8502
8523
|
}
|
|
8503
8524
|
};
|
|
8504
8525
|
const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
|
|
8505
|
-
const $2 = {a1: $3, a2:
|
|
8506
|
-
return Prelude_Interfaces_x3ex3dx3e($2,
|
|
8526
|
+
const $2 = {a1: $3, a2: csegen_200(), a3: csegen_201()};
|
|
8527
|
+
return Prelude_Interfaces_x3ex3dx3e($2, csegen_428(), $1f => Data_User_parseUser($1f), $0);
|
|
8507
8528
|
}
|
|
8508
8529
|
|
|
8509
8530
|
/* Data.User.parseUser : JSON -> Either String User */
|
|
@@ -8533,7 +8554,7 @@ function Data_Review_parseState($0) {
|
|
|
8533
8554
|
|
|
8534
8555
|
/* Data.Review.parseReview : JSON -> Either String Review */
|
|
8535
8556
|
function Data_Review_parseReview($0) {
|
|
8536
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), review => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'author', a2: {a1: 'state', a2: {a1: 'submitted_at', a2: {h: 0}}}}, review), $12 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($12.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(
|
|
8557
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), review => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'author', a2: {a1: 'state', a2: {a1: 'submitted_at', a2: {h: 0}}}}, review), $12 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($12.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_460(), $22 => Data_Review_parseState($22), Language_JSON_Accessors_string($12.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_460(), $2f => Data_Review_parseDateTime($2f), Language_JSON_Accessors_string($12.a2.a2.a1)), submittedAt => ({h: 1 /* Right */, a1: {a1: submittedAt, a2: author, a3: state}}))))));
|
|
8537
8558
|
}
|
|
8538
8559
|
|
|
8539
8560
|
/* Data.Review.parseDateTime : String -> Either String Date */
|
|
@@ -8546,8 +8567,8 @@ function Data_Review_isAuthor($0, $1) {
|
|
|
8546
8567
|
return Prelude_EqOrd_x3dx3d_Eq_String($1.a2, $0);
|
|
8547
8568
|
}
|
|
8548
8569
|
|
|
8549
|
-
/* Data.Date.
|
|
8550
|
-
function
|
|
8570
|
+
/* Data.Date.5104:9771:parseNat */
|
|
8571
|
+
function Data_Date_n__5104_9771_parseNat($0, $1, $2) {
|
|
8551
8572
|
switch($2) {
|
|
8552
8573
|
case '0': return {a1: 0n};
|
|
8553
8574
|
case '1': return {a1: 1n};
|
|
@@ -8563,12 +8584,12 @@ function Data_Date_n__4653_9771_parseNat($0, $1, $2) {
|
|
|
8563
8584
|
}
|
|
8564
8585
|
}
|
|
8565
8586
|
|
|
8566
|
-
/* Data.Date.
|
|
8567
|
-
function
|
|
8587
|
+
/* Data.Date.5221:9888:guardSuccess */
|
|
8588
|
+
function Data_Date_n__5221_9888_guardSuccess($0) {
|
|
8568
8589
|
switch($0.h) {
|
|
8569
8590
|
case undefined: /* cons */ {
|
|
8570
8591
|
switch($0.a1.h) {
|
|
8571
|
-
case 3: /*
|
|
8592
|
+
case 3: /* 5221:9885:Day */ {
|
|
8572
8593
|
switch($0.a2.h) {
|
|
8573
8594
|
case undefined: /* cons */ {
|
|
8574
8595
|
switch($0.a2.a2.h) {
|
|
@@ -8586,28 +8607,28 @@ function Data_Date_n__4770_9888_guardSuccess($0) {
|
|
|
8586
8607
|
}
|
|
8587
8608
|
}
|
|
8588
8609
|
|
|
8589
|
-
/* Data.Date.
|
|
8590
|
-
function
|
|
8610
|
+
/* Data.Date.5221:9889:go */
|
|
8611
|
+
function Data_Date_n__5221_9889_go($0, $1) {
|
|
8591
8612
|
switch($0.a1.h) {
|
|
8592
|
-
case 4: /*
|
|
8593
|
-
case 0: /*
|
|
8613
|
+
case 4: /* 5221:9886:Fail */ return {a1: {h: 4 /* 5221:9886:Fail */}, a2: undefined};
|
|
8614
|
+
case 0: /* 5221:9882:Start */ {
|
|
8594
8615
|
switch(Prelude_Types_isDigit($1)) {
|
|
8595
|
-
case 1: return {a1: {h: 1 /*
|
|
8596
|
-
case 0: return {a1: {h: 4 /*
|
|
8616
|
+
case 1: return {a1: {h: 1 /* 5221:9883:P */, a1: 0}, a2: {a1: $1, a2: {h: 0}}};
|
|
8617
|
+
case 0: return {a1: {h: 4 /* 5221:9886:Fail */}, a2: undefined};
|
|
8597
8618
|
}
|
|
8598
8619
|
}
|
|
8599
|
-
case 1: /*
|
|
8620
|
+
case 1: /* 5221:9883:P */ {
|
|
8600
8621
|
switch($0.a1.a1) {
|
|
8601
8622
|
case 0: {
|
|
8602
8623
|
switch($1) {
|
|
8603
8624
|
case '-': {
|
|
8604
8625
|
const $12 = Data_Date_parsePositiveReversed($0.a2);
|
|
8605
8626
|
switch($12.h) {
|
|
8606
|
-
case 0: /* nothing */ return {a1: {h: 4 /*
|
|
8607
|
-
case undefined: /* just */ return {a1: {h: 2 /*
|
|
8627
|
+
case 0: /* nothing */ return {a1: {h: 4 /* 5221:9886:Fail */}, a2: undefined};
|
|
8628
|
+
case undefined: /* just */ return {a1: {h: 2 /* 5221:9884:S */, a1: 0}, a2: $12.a1};
|
|
8608
8629
|
}
|
|
8609
8630
|
}
|
|
8610
|
-
default: return {a1: {h: 1 /*
|
|
8631
|
+
default: return {a1: {h: 1 /* 5221:9883:P */, a1: 0}, a2: {a1: $1, a2: $0.a2}};
|
|
8611
8632
|
}
|
|
8612
8633
|
}
|
|
8613
8634
|
case 1: {
|
|
@@ -8615,32 +8636,32 @@ function Data_Date_n__4770_9889_go($0, $1) {
|
|
|
8615
8636
|
case '-': {
|
|
8616
8637
|
const $21 = Data_Date_parsePositiveReversed($0.a2.a2);
|
|
8617
8638
|
switch($21.h) {
|
|
8618
|
-
case 0: /* nothing */ return {a1: {h: 4 /*
|
|
8619
|
-
case undefined: /* just */ return {a1: {h: 2 /*
|
|
8639
|
+
case 0: /* nothing */ return {a1: {h: 4 /* 5221:9886:Fail */}, a2: undefined};
|
|
8640
|
+
case undefined: /* just */ return {a1: {h: 2 /* 5221:9884:S */, a1: 1}, a2: {a1: $0.a2.a1, a2: $21.a1}};
|
|
8620
8641
|
}
|
|
8621
8642
|
}
|
|
8622
|
-
default: return {a1: {h: 1 /*
|
|
8643
|
+
default: return {a1: {h: 1 /* 5221:9883:P */, a1: 1}, a2: {a1: $0.a2.a1, a2: {a1: $1, a2: $0.a2.a2}}};
|
|
8623
8644
|
}
|
|
8624
8645
|
}
|
|
8625
8646
|
}
|
|
8626
8647
|
}
|
|
8627
|
-
case 2: /*
|
|
8648
|
+
case 2: /* 5221:9884:S */ {
|
|
8628
8649
|
switch($0.a1.a1) {
|
|
8629
8650
|
case 0: {
|
|
8630
8651
|
switch(Prelude_Types_isDigit($1)) {
|
|
8631
|
-
case 1: return {a1: {h: 1 /*
|
|
8632
|
-
case 0: return {a1: {h: 4 /*
|
|
8652
|
+
case 1: return {a1: {h: 1 /* 5221:9883:P */, a1: 1}, a2: {a1: $0.a2, a2: {a1: $1, a2: {h: 0}}}};
|
|
8653
|
+
case 0: return {a1: {h: 4 /* 5221:9886:Fail */}, a2: undefined};
|
|
8633
8654
|
}
|
|
8634
8655
|
}
|
|
8635
8656
|
case 1: {
|
|
8636
8657
|
switch(Prelude_Types_isDigit($1)) {
|
|
8637
|
-
case 1: return {a1: {h: 3 /*
|
|
8638
|
-
case 0: return {a1: {h: 4 /*
|
|
8658
|
+
case 1: return {a1: {h: 3 /* 5221:9885:Day */}, a2: {a1: $0.a2.a1, a2: {a1: $0.a2.a2, a2: {a1: $1, a2: {h: 0}}}}};
|
|
8659
|
+
case 0: return {a1: {h: 4 /* 5221:9886:Fail */}, a2: undefined};
|
|
8639
8660
|
}
|
|
8640
8661
|
}
|
|
8641
8662
|
}
|
|
8642
8663
|
}
|
|
8643
|
-
case 3: /*
|
|
8664
|
+
case 3: /* 5221:9885:Day */ return {a1: {h: 3 /* 5221:9885:Day */}, a2: {a1: $0.a2.a1, a2: {a1: $0.a2.a2.a1, a2: {a1: $1, a2: $0.a2.a2.a2}}}};
|
|
8644
8665
|
}
|
|
8645
8666
|
}
|
|
8646
8667
|
|
|
@@ -8720,7 +8741,7 @@ function Data_Date_showYearAndMonth($0) {
|
|
|
8720
8741
|
function Data_Date_parsePositiveReversed($0) {
|
|
8721
8742
|
switch($0.h) {
|
|
8722
8743
|
case 0: /* nil */ return {a1: 0n};
|
|
8723
|
-
case undefined: /* cons */ return Prelude_Types_x3ex3ex3d_Monad_Maybe(
|
|
8744
|
+
case undefined: /* cons */ return Prelude_Types_x3ex3ex3d_Monad_Maybe(Data_Date_n__5104_9771_parseNat($0.a1, $0.a2, $0.a1), n => Prelude_Types_x3ex3ex3d_Monad_Maybe(Data_Date_parsePositiveReversed($0.a2), $f => ({a1: (n+($f*10n))})));
|
|
8724
8745
|
}
|
|
8725
8746
|
}
|
|
8726
8747
|
|
|
@@ -8733,7 +8754,7 @@ function Data_Date_parseDateTimeString($0) {
|
|
|
8733
8754
|
|
|
8734
8755
|
/* Data.Date.parseDateString : String -> Maybe Date */
|
|
8735
8756
|
function Data_Date_parseDateString($0) {
|
|
8736
|
-
return
|
|
8757
|
+
return Data_Date_n__5221_9888_guardSuccess(Prelude_Types_foldl_Foldable_List($5 => $6 => Data_Date_n__5221_9889_go($5, $6), {a1: {h: 0 /* 5221:9882:Start */}, a2: undefined}, Prelude_Types_fastUnpack($0)));
|
|
8737
8758
|
}
|
|
8738
8759
|
|
|
8739
8760
|
/* Data.Date.pad : Nat -> String */
|
|
@@ -8823,8 +8844,8 @@ function Data_PullRequest_parsePullRequestsString($0) {
|
|
|
8823
8844
|
}
|
|
8824
8845
|
};
|
|
8825
8846
|
const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
|
|
8826
|
-
const $2 = {a1: $3, a2:
|
|
8827
|
-
return Prelude_Interfaces_x3ex3dx3e($2,
|
|
8847
|
+
const $2 = {a1: $3, a2: csegen_200(), a3: csegen_201()};
|
|
8848
|
+
return Prelude_Interfaces_x3ex3dx3e($2, csegen_428(), csegen_474(), $0);
|
|
8828
8849
|
}
|
|
8829
8850
|
|
|
8830
8851
|
/* Data.PullRequest.parsePullRequestString : String -> Either String PullRequest */
|
|
@@ -8847,13 +8868,13 @@ function Data_PullRequest_parsePullRequestString($0) {
|
|
|
8847
8868
|
}
|
|
8848
8869
|
};
|
|
8849
8870
|
const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
|
|
8850
|
-
const $2 = {a1: $3, a2:
|
|
8851
|
-
return Prelude_Interfaces_x3ex3dx3e($2,
|
|
8871
|
+
const $2 = {a1: $3, a2: csegen_200(), a3: csegen_201()};
|
|
8872
|
+
return Prelude_Interfaces_x3ex3dx3e($2, csegen_428(), $1f => Data_PullRequest_parsePR($1f), $0);
|
|
8852
8873
|
}
|
|
8853
8874
|
|
|
8854
8875
|
/* Data.PullRequest.parsePR : JSON -> Either String PullRequest */
|
|
8855
8876
|
function Data_PullRequest_parsePR($0) {
|
|
8856
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), pr => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'pull_number', a2: {a1: 'author', a2: {a1: 'state', a2: {a1: 'created_at', a2: {a1: 'merged', a2: {a1: 'draft', a2: {a1: 'reviewers', a2: {a1: 'head_ref', a2: {h: 0}}}}}}}}}, pr), $1c => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($1c.a1), number => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1c.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($1c.a2.a2.a2.a2.a1), merged => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($1c.a2.a2.a2.a2.a2.a1), isDraft => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(
|
|
8877
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), pr => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'pull_number', a2: {a1: 'author', a2: {a1: 'state', a2: {a1: 'created_at', a2: {a1: 'merged', a2: {a1: 'draft', a2: {a1: 'reviewers', a2: {a1: 'head_ref', a2: {h: 0}}}}}}}}}, pr), $1c => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($1c.a1), number => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1c.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($1c.a2.a2.a2.a2.a1), merged => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($1c.a2.a2.a2.a2.a2.a1), isDraft => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_460(), $40 => Data_PullRequest_parseState(merged, $40), Language_JSON_Accessors_string($1c.a2.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_460(), $4e => Data_PullRequest_parseDateTime($4e), Language_JSON_Accessors_string($1c.a2.a2.a2.a1)), createdAt => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($59 => Language_JSON_Accessors_string($59), $1c.a2.a2.a2.a2.a2.a2.a1), reviewers => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1c.a2.a2.a2.a2.a2.a2.a2.a1), headRef => ({h: 1 /* Right */, a1: {a1: number, a2: createdAt, a3: isDraft, a4: author, a5: state, a6: reviewers, a7: headRef}})))))))))));
|
|
8857
8878
|
}
|
|
8858
8879
|
|
|
8859
8880
|
/* Data.PullRequest.parseDateTime : String -> Either String Date */
|
|
@@ -8917,7 +8938,7 @@ function FFI_Git_pushNewBranch($0, $1, $2) {
|
|
|
8917
8938
|
/* FFI.Git.listRemotes : Git => Promise (List String) */
|
|
8918
8939
|
function FFI_Git_listRemotes($0) {
|
|
8919
8940
|
const $1 = $0;
|
|
8920
|
-
return
|
|
8941
|
+
return csegen_448()($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__listRemotes($1, $9, $a, $b), $5, $6));
|
|
8921
8942
|
}
|
|
8922
8943
|
|
|
8923
8944
|
/* FFI.Git.git : HasIO io => io Git */
|
|
@@ -8964,7 +8985,7 @@ function Config_with__getConfig_2069($0, $1, $2) {
|
|
|
8964
8985
|
function Config_with__withx20blockx20inx20setConfig_1934($0, $1, $2, $3, $4, $5) {
|
|
8965
8986
|
switch($5.h) {
|
|
8966
8987
|
case 0: /* nothing */ return $7 => $8 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_70(), $f => $f, {a1: $4, a2: {a1: ' is not a valid value for ', a2: {a1: $1, a2: {a1: '.', a2: {h: 0}}}}}), $7, $8);
|
|
8967
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $1f => Util_renderIO($5.a1, csegen_94(), $1f), () =>
|
|
8988
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $1f => Util_renderIO($5.a1, csegen_94(), $1f), () => csegen_482(), Config_checkConfigConsistency($5.a1)), $2b => Config_writeConfig($5.a1));
|
|
8968
8989
|
}
|
|
8969
8990
|
}
|
|
8970
8991
|
|
|
@@ -9019,38 +9040,38 @@ function Config_case__parseGitHubURIx2cparseSuffix_1470($0, $1, $2) {
|
|
|
9019
9040
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split($9 => Prelude_EqOrd_x3dx3d_Eq_Char($9, '/'), $2.a1)}, $e);
|
|
9020
9041
|
}
|
|
9021
9042
|
|
|
9022
|
-
/* Config.
|
|
9023
|
-
function
|
|
9043
|
+
/* Config.7751:2216:yesUnlessNo */
|
|
9044
|
+
function Config_n__7751_2216_yesUnlessNo($0, $1, $2, $3, $4) {
|
|
9024
9045
|
return Config_with__createConfigx2cyesUnlessNo_2250($0, $1, $2, $3, $4, Data_String_toLower($4));
|
|
9025
9046
|
}
|
|
9026
9047
|
|
|
9027
|
-
/* Config.
|
|
9028
|
-
function
|
|
9029
|
-
return csegen_60()(
|
|
9048
|
+
/* Config.7751:2218:repo */
|
|
9049
|
+
function Config_n__7751_2218_repo($0, $1, $2, $3) {
|
|
9050
|
+
return csegen_60()(csegen_484());
|
|
9030
9051
|
}
|
|
9031
9052
|
|
|
9032
|
-
/* Config.
|
|
9033
|
-
function
|
|
9053
|
+
/* Config.7008:1449:parseSuffix */
|
|
9054
|
+
function Config_n__7008_1449_parseSuffix($0, $1) {
|
|
9034
9055
|
return Config_case__parseGitHubURIx2cparseSuffix_1470($0, $1, Data_String_break$($8 => Prelude_EqOrd_x3dx3d_Eq_Char($8, '.'), $1));
|
|
9035
9056
|
}
|
|
9036
9057
|
|
|
9037
|
-
/* Config.
|
|
9038
|
-
function
|
|
9039
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b =>
|
|
9058
|
+
/* Config.7008:1451:parseSSH */
|
|
9059
|
+
function Config_n__7008_1451_parseSSH($0, $1) {
|
|
9060
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b => Config_n__7008_1449_parseSuffix($0, $b), $1);
|
|
9040
9061
|
}
|
|
9041
9062
|
|
|
9042
|
-
/* Config.
|
|
9043
|
-
function
|
|
9044
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b =>
|
|
9063
|
+
/* Config.7008:1450:parseHTTPS */
|
|
9064
|
+
function Config_n__7008_1450_parseHTTPS($0, $1) {
|
|
9065
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b => Config_n__7008_1449_parseSuffix($0, $b), $1);
|
|
9045
9066
|
}
|
|
9046
9067
|
|
|
9047
|
-
/* Config.
|
|
9048
|
-
function
|
|
9049
|
-
return csegen_60()(
|
|
9068
|
+
/* Config.7751:2217:org */
|
|
9069
|
+
function Config_n__7751_2217_org($0, $1, $2, $3) {
|
|
9070
|
+
return csegen_60()(csegen_489());
|
|
9050
9071
|
}
|
|
9051
9072
|
|
|
9052
|
-
/* Config.
|
|
9053
|
-
function
|
|
9073
|
+
/* Config.7751:2215:orIfEmpty */
|
|
9074
|
+
function Config_n__7751_2215_orIfEmpty($0, $1, $2, $3, $4, $5) {
|
|
9054
9075
|
switch($4.h) {
|
|
9055
9076
|
case 0: /* nothing */ return $5;
|
|
9056
9077
|
case undefined: /* just */ {
|
|
@@ -9062,33 +9083,33 @@ function Config_n__7286_2215_orIfEmpty($0, $1, $2, $3, $4, $5) {
|
|
|
9062
9083
|
}
|
|
9063
9084
|
}
|
|
9064
9085
|
|
|
9065
|
-
/* Config.
|
|
9066
|
-
function
|
|
9067
|
-
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(
|
|
9086
|
+
/* Config.6762:1212:oneDayAgo */
|
|
9087
|
+
function Config_n__6762_1212_oneDayAgo($0, $1, $2) {
|
|
9088
|
+
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(csegen_409()((now-86400n))));
|
|
9068
9089
|
}
|
|
9069
9090
|
|
|
9070
|
-
/* Config.
|
|
9071
|
-
function
|
|
9072
|
-
return
|
|
9091
|
+
/* Config.7655:2109:help */
|
|
9092
|
+
function Config_n__7655_2109_help($0, $1) {
|
|
9093
|
+
return csegen_491()(Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1.a1)))(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_70(), $15 => $15, {a1: ': ', a2: {a1: (Data_String_replicate(Prelude_Types_prim__integerToNat((Data_Config_longestSettablePropName()-Prelude_Types_String_length($1.a1))), ' ')+$1.a2), a2: {h: 0}}})));
|
|
9073
9094
|
}
|
|
9074
9095
|
|
|
9075
|
-
/* Config.
|
|
9076
|
-
function
|
|
9096
|
+
/* Config.7751:2219:enterForDefaultStr */
|
|
9097
|
+
function Config_n__7751_2219_enterForDefaultStr($0, $1, $2, $3, $4) {
|
|
9077
9098
|
return Prelude_Types_foldMap_Foldable_List(csegen_70(), $9 => $9, {a1: ' (ENTER for default: ', a2: {a1: $4, a2: {a1: ')', a2: {h: 0}}}});
|
|
9078
9099
|
}
|
|
9079
9100
|
|
|
9080
|
-
/* Config.
|
|
9081
|
-
function
|
|
9101
|
+
/* Config.6961:1402:drop' */
|
|
9102
|
+
function Config_n__6961_1402_dropx27($0, $1) {
|
|
9082
9103
|
return Config_with__dropPrefixx27x2cdropx27_1410($0, $1, Data_List_PrefixSuffix_dropPrefix($8 => $9 => Decidable_Equality_decEq_DecEq_Char()($8)($9), Prelude_Types_fastUnpack($0), $1));
|
|
9083
9104
|
}
|
|
9084
9105
|
|
|
9085
|
-
/* Config.
|
|
9086
|
-
function
|
|
9087
|
-
return Data_Maybe_fromMaybe(() => '', csegen_60()($d =>
|
|
9106
|
+
/* Config.7751:2220:defaultStr */
|
|
9107
|
+
function Config_n__7751_2220_defaultStr($0, $1, $2, $3, $4, $5) {
|
|
9108
|
+
return Data_Maybe_fromMaybe(() => '', csegen_60()($d => Config_n__7751_2219_enterForDefaultStr($0, $1, $2, $3, $4($d)))($5));
|
|
9088
9109
|
}
|
|
9089
9110
|
|
|
9090
|
-
/* Config.
|
|
9091
|
-
function
|
|
9111
|
+
/* Config.6850:1295:checkAssignSettings */
|
|
9112
|
+
function Config_n__6850_1295_checkAssignSettings($0, $1) {
|
|
9092
9113
|
let $2;
|
|
9093
9114
|
switch($1.a6) {
|
|
9094
9115
|
case 1: {
|
|
@@ -9119,7 +9140,7 @@ function Config_writeConfig($0) {
|
|
|
9119
9140
|
const $10 = res => $11 => $12 => {
|
|
9120
9141
|
switch(res.h) {
|
|
9121
9142
|
case 1: /* Right */ return Data_Promise_pure_Applicative_Promise($0, $11, $12);
|
|
9122
|
-
case 0: /* Left */ return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_70(), $1e => $1e, {a1: csegen_62()('Failed to write updated config file to '), a2: {a1: csegen_62()(Data_Config_rf__filepath($0)), a2: {a1:
|
|
9143
|
+
case 0: /* Left */ return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_70(), $1e => $1e, {a1: csegen_62()('Failed to write updated config file to '), a2: {a1: csegen_62()(Data_Config_rf__filepath($0)), a2: {a1: csegen_502(), a2: {a1: csegen_62()(System_File_Error_show_Show_FileError(res.a1)), a2: csegen_446()}}}}), $11, $12);
|
|
9123
9144
|
}
|
|
9124
9145
|
};
|
|
9125
9146
|
return Data_Promise_x3ex3ex3d_Monad_Promise(System_File_ReadWrite_writeFile(csegen_94(), Data_Config_rf__filepath($0), Language_JSON_Data_format(0n, 2n, Data_Config_json($0))), $10);
|
|
@@ -9141,7 +9162,7 @@ function Config_syncIfOld($0, $1) {
|
|
|
9141
9162
|
case 0: return $14 => $15 => Data_Promise_pure_Applicative_Promise($1, $14, $15);
|
|
9142
9163
|
}
|
|
9143
9164
|
};
|
|
9144
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9165
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Config_n__6762_1212_oneDayAgo($0, $1, csegen_94()), $9);
|
|
9145
9166
|
}
|
|
9146
9167
|
|
|
9147
9168
|
/* Config.syncConfig : Config => Octokit => Bool -> Promise Config */
|
|
@@ -9153,7 +9174,7 @@ function Config_syncConfig($0, $1, $2) {
|
|
|
9153
9174
|
const $1e = {a1: updatedAt, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: $0.a8, a9: teamSlugs, a10: labelNames, a11: orgMembers, a12: $0.a12, a13: $0.a13};
|
|
9154
9175
|
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_56()(Config_writeConfig($1e)), $35 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_when(csegen_86(), $2, () => Data_Promise_x3ex3ex3d_Monad_Promise($3f => $40 => $41 => Data_Promise_liftIO_HasIO_Promise($44 => Prelude_IO_prim__putStr('Your updated configuration is:\n', $44), $3f, $40, $41), $4c => $4d => $4e => $4f => Data_Promise_liftIO_HasIO_Promise($52 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($1e)+'\n'), $52), $4d, $4e, $4f))), $5e => $5f => $60 => Data_Promise_pure_Applicative_Promise($1e, $5f, $60)));
|
|
9155
9176
|
};
|
|
9156
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9177
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_505(), $1d);
|
|
9157
9178
|
};
|
|
9158
9179
|
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listOrgMembers($1, $0.a2), $19);
|
|
9159
9180
|
};
|
|
@@ -9164,7 +9185,7 @@ function Config_syncConfig($0, $1, $2) {
|
|
|
9164
9185
|
|
|
9165
9186
|
/* Config.settablePropsWithHelp : Config => String */
|
|
9166
9187
|
function Config_settablePropsWithHelp($0) {
|
|
9167
|
-
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(csegen_116()($a =>
|
|
9188
|
+
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(csegen_116()($a => Config_n__7655_2109_help($0, $a))(Data_Config_settablePropNamesAndHelp())));
|
|
9168
9189
|
}
|
|
9169
9190
|
|
|
9170
9191
|
/* Config.setConfig : Config => String -> String -> Promise Config */
|
|
@@ -9207,7 +9228,7 @@ function Config_preferOriginRemote($0) {
|
|
|
9207
9228
|
|
|
9208
9229
|
/* Config.parseGitHubURI : String -> Maybe GitRemote */
|
|
9209
9230
|
function Config_parseGitHubURI($0) {
|
|
9210
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
9231
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(Config_n__7008_1450_parseHTTPS($0, $0), () => Config_n__7008_1451_parseSSH($0, $0));
|
|
9211
9232
|
}
|
|
9212
9233
|
|
|
9213
9234
|
/* Config.parseBool : String -> Maybe Bool */
|
|
@@ -9225,10 +9246,10 @@ function Config_loadOrCreateConfig($0, $1, $2, $3) {
|
|
|
9225
9246
|
case 0: /* File */ {
|
|
9226
9247
|
switch($c.a1.a1.h) {
|
|
9227
9248
|
case 3: /* FileNotFound */ return Config_createConfig($0, $1, $2, $3);
|
|
9228
|
-
default: return $1b => $1c => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_70(), $23 => $23, {a1:
|
|
9249
|
+
default: return $1b => $1c => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_70(), $23 => $23, {a1: csegen_511(), a2: {a1: csegen_512(), a2: {a1: csegen_502(), a2: {a1: csegen_62()(Config_show_Show_ConfigError($c.a1)), a2: csegen_446()}}}}), $1b, $1c);
|
|
9229
9250
|
}
|
|
9230
9251
|
}
|
|
9231
|
-
default: return $38 => $39 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_70(), $40 => $40, {a1:
|
|
9252
|
+
default: return $38 => $39 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_70(), $40 => $40, {a1: csegen_511(), a2: {a1: csegen_512(), a2: {a1: csegen_502(), a2: {a1: csegen_62()(Config_show_Show_ConfigError($c.a1)), a2: csegen_446()}}}}), $38, $39);
|
|
9232
9253
|
}
|
|
9233
9254
|
}
|
|
9234
9255
|
}
|
|
@@ -9257,14 +9278,14 @@ function Config_loadConfig($0, $1, $2) {
|
|
|
9257
9278
|
}
|
|
9258
9279
|
};
|
|
9259
9280
|
const $a = {a1: $b, a2: a => $13 => ({h: 1 /* Right */, a1: $13}), a3: $15};
|
|
9260
|
-
const $9 = {a1: $a, a2:
|
|
9281
|
+
const $9 = {a1: $a, a2: csegen_200(), a3: csegen_201()};
|
|
9261
9282
|
const $24 = b => a => func => $25 => {
|
|
9262
9283
|
switch($25.h) {
|
|
9263
9284
|
case 0: /* Left */ return {h: 0 /* Left */, a1: $25.a1};
|
|
9264
9285
|
case 1: /* Right */ return {h: 1 /* Right */, a1: func($25.a1)};
|
|
9265
9286
|
}
|
|
9266
9287
|
};
|
|
9267
|
-
const $23 = {a1: $24, a2:
|
|
9288
|
+
const $23 = {a1: $24, a2: csegen_217(), a3: csegen_221()};
|
|
9268
9289
|
return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, $9, $23, $4, $5);
|
|
9269
9290
|
};
|
|
9270
9291
|
const $36 = $0.a1.a1.a1;
|
|
@@ -9335,14 +9356,14 @@ function Config_findConfig($0, $1, $2) {
|
|
|
9335
9356
|
|
|
9336
9357
|
/* Config.dropPrefix' : String -> String -> Maybe String */
|
|
9337
9358
|
function Config_dropPrefixx27($0, $1) {
|
|
9338
|
-
return csegen_60()($6 => Prelude_Types_fastPack($6))(
|
|
9359
|
+
return csegen_60()($6 => Prelude_Types_fastPack($6))(Config_n__6961_1402_dropx27($0, Prelude_Types_fastUnpack($1)));
|
|
9339
9360
|
}
|
|
9340
9361
|
|
|
9341
9362
|
/* Config.createConfig : Git => Maybe String -> Bool -> Maybe String -> Promise Config */
|
|
9342
9363
|
function Config_createConfig($0, $1, $2, $3) {
|
|
9343
9364
|
const $21 = $22 => {
|
|
9344
9365
|
const $31 = $32 => {
|
|
9345
|
-
const $34 =
|
|
9366
|
+
const $34 = Config_n__7751_2219_enterForDefaultStr($0, $3, $2, $1, 'unset');
|
|
9346
9367
|
const $33 = () => {
|
|
9347
9368
|
const $63 = $64 => {
|
|
9348
9369
|
const $6a = $6b => {
|
|
@@ -9352,20 +9373,20 @@ function Config_createConfig($0, $1, $2, $3) {
|
|
|
9352
9373
|
}
|
|
9353
9374
|
};
|
|
9354
9375
|
const $67 = csegen_55()($6a);
|
|
9355
|
-
const $66 = $67(
|
|
9376
|
+
const $66 = $67(csegen_528());
|
|
9356
9377
|
const $74 = configPAT => {
|
|
9357
9378
|
const $80 = $81 => {
|
|
9358
9379
|
switch($81.h) {
|
|
9359
9380
|
case undefined: /* just */ {
|
|
9360
9381
|
const $8f = remoteGuess => {
|
|
9361
9382
|
const $a5 = defaultOrgAndRepo => {
|
|
9362
|
-
const $a6 =
|
|
9383
|
+
const $a6 = Config_n__7751_2220_defaultStr($0, $3, $2, $1, csegen_489(), defaultOrgAndRepo);
|
|
9363
9384
|
const $d0 = $d1 => {
|
|
9364
9385
|
const $eb = org => {
|
|
9365
|
-
const $ec =
|
|
9386
|
+
const $ec = Config_n__7751_2220_defaultStr($0, $3, $2, $1, csegen_484(), defaultOrgAndRepo);
|
|
9366
9387
|
const $116 = $117 => {
|
|
9367
9388
|
const $131 = repo => {
|
|
9368
|
-
const $132 =
|
|
9389
|
+
const $132 = Config_n__7751_2219_enterForDefaultStr($0, $3, $2, $1, remoteGuess);
|
|
9369
9390
|
const $15a = $15b => {
|
|
9370
9391
|
const $170 = defaultRemote => {
|
|
9371
9392
|
const $182 = $183 => {
|
|
@@ -9378,12 +9399,12 @@ function Config_createConfig($0, $1, $2, $3) {
|
|
|
9378
9399
|
const $200 = $201 => {
|
|
9379
9400
|
const $208 = mainBranch => {
|
|
9380
9401
|
const $20c = updatedAt => {
|
|
9381
|
-
const $20d = {a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $213 => $213, {a1: csegen_62()('./'), a2: {a1:
|
|
9402
|
+
const $20d = {a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $213 => $213, {a1: csegen_62()('./'), a2: {a1: csegen_512(), a2: {h: 0}}}), a2: $2, a3: $3};
|
|
9382
9403
|
const $224 = teamSlugs => {
|
|
9383
9404
|
const $22b = repoLabels => {
|
|
9384
9405
|
const $231 = orgMembers => {
|
|
9385
|
-
const $232 = {a1: updatedAt, a2: org, a3: repo, a4: defaultRemote, a5: mainBranch, a6: assignTeams, a7: assignUsers, a8: commentOnAssign, a9: teamSlugs, a10: repoLabels, a11: orgMembers, a12:
|
|
9386
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_56()(Config_writeConfig($232)), $24b => Data_Promise_x3ex3ex3d_Monad_Promise($24e => $24f => $250 => Data_Promise_liftIO_HasIO_Promise($253 => Prelude_IO_prim__putStr((csegen_62()('Your new configuration is:')+'\n'), $253), $24e, $24f, $250), $260 => Data_Promise_x3ex3ex3d_Monad_Promise($263 => $264 => $265 => Data_Promise_liftIO_HasIO_Promise($268 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($232)+'\n'), $268), $263, $264, $265), $274 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $279 => Util_renderIO($232, csegen_94(), $279), () =>
|
|
9406
|
+
const $232 = {a1: updatedAt, a2: org, a3: repo, a4: defaultRemote, a5: mainBranch, a6: assignTeams, a7: assignUsers, a8: commentOnAssign, a9: teamSlugs, a10: repoLabels, a11: orgMembers, a12: csegen_412()(configPAT), a13: $20d};
|
|
9407
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_56()(Config_writeConfig($232)), $24b => Data_Promise_x3ex3ex3d_Monad_Promise($24e => $24f => $250 => Data_Promise_liftIO_HasIO_Promise($253 => Prelude_IO_prim__putStr((csegen_62()('Your new configuration is:')+'\n'), $253), $24e, $24f, $250), $260 => Data_Promise_x3ex3ex3d_Monad_Promise($263 => $264 => $265 => Data_Promise_liftIO_HasIO_Promise($268 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($232)+'\n'), $268), $263, $264, $265), $274 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $279 => Util_renderIO($232, csegen_94(), $279), () => csegen_482(), Config_checkConfigConsistency($232)), $285 => $286 => $287 => Data_Promise_pure_Applicative_Promise($232, $286, $287)))));
|
|
9387
9408
|
};
|
|
9388
9409
|
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listOrgMembers(_, org), $231);
|
|
9389
9410
|
};
|
|
@@ -9391,7 +9412,7 @@ function Config_createConfig($0, $1, $2, $3) {
|
|
|
9391
9412
|
};
|
|
9392
9413
|
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listTeams(_, org), $224);
|
|
9393
9414
|
};
|
|
9394
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9415
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_505(), $20c);
|
|
9395
9416
|
};
|
|
9396
9417
|
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_getRepoDefaultBranch(_, org, repo), $208);
|
|
9397
9418
|
};
|
|
@@ -9399,31 +9420,31 @@ function Config_createConfig($0, $1, $2, $3) {
|
|
|
9399
9420
|
};
|
|
9400
9421
|
return Data_Promise_x3ex3ex3d_Monad_Promise($1e2 => $1e3 => $1e4 => Data_Promise_liftIO_HasIO_Promise(FFI_GitHub_octokit($81.a1), $1e2, $1e3, $1e4), $1ec);
|
|
9401
9422
|
};
|
|
9402
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($1d4 =>
|
|
9423
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($1d4 => Config_n__7751_2216_yesUnlessNo($0, $3, $2, $1, Data_String_trim($1d4)))(csegen_528()), $1df);
|
|
9403
9424
|
};
|
|
9404
9425
|
return Data_Promise_x3ex3ex3d_Monad_Promise($1bd => $1be => $1bf => Data_Promise_liftIO_HasIO_Promise($1c2 => Prelude_IO_prim__putStr(csegen_62()('Would you like harmony to assign individual users when it assigns reviewers? [Y/n] '), $1c2), $1bd, $1be, $1bf), $1cc);
|
|
9405
9426
|
};
|
|
9406
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($1af =>
|
|
9427
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($1af => Config_n__7751_2216_yesUnlessNo($0, $3, $2, $1, Data_String_trim($1af)))(csegen_528()), $1ba);
|
|
9407
9428
|
};
|
|
9408
9429
|
return Data_Promise_x3ex3ex3d_Monad_Promise($198 => $199 => $19a => Data_Promise_liftIO_HasIO_Promise($19d => Prelude_IO_prim__putStr(csegen_62()('Would you like harmony to assign teams when it assigns reviewers? [Y/n] '), $19d), $198, $199, $19a), $1a7);
|
|
9409
9430
|
};
|
|
9410
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($18a =>
|
|
9431
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($18a => Config_n__7751_2216_yesUnlessNo($0, $3, $2, $1, Data_String_trim($18a)))(csegen_528()), $195);
|
|
9411
9432
|
};
|
|
9412
9433
|
return Data_Promise_x3ex3ex3d_Monad_Promise($173 => $174 => $175 => Data_Promise_liftIO_HasIO_Promise($178 => Prelude_IO_prim__putStr(csegen_62()('Would you like harmony to comment when it assigns reviewers? [Y/n] '), $178), $173, $174, $175), $182);
|
|
9413
9434
|
};
|
|
9414
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($162 => ({a1:
|
|
9435
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($162 => ({a1: Config_n__7751_2215_orIfEmpty($0, $3, $2, $1, {a1: remoteGuess}, Data_String_trim($162))}))(csegen_528()), $170);
|
|
9415
9436
|
};
|
|
9416
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($13b => $13c => $13d => Data_Promise_liftIO_HasIO_Promise($140 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_70(), $148 => $148, {a1: csegen_62()('What GitHub remote repo would you like to use harmony for'), a2: {a1: csegen_62()($132), a2:
|
|
9437
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($13b => $13c => $13d => Data_Promise_liftIO_HasIO_Promise($140 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_70(), $148 => $148, {a1: csegen_62()('What GitHub remote repo would you like to use harmony for'), a2: {a1: csegen_62()($132), a2: csegen_535()}})+'\n'), $140), $13b, $13c, $13d), $15a);
|
|
9417
9438
|
};
|
|
9418
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($11e =>
|
|
9439
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($11e => Config_n__7751_2215_orIfEmpty($0, $3, $2, $1, Config_n__7751_2218_repo($0, $3, $2, $1)(defaultOrgAndRepo), Data_String_trim($11e)))(csegen_528()), $131);
|
|
9419
9440
|
};
|
|
9420
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($f7 => $f8 => $f9 => Data_Promise_liftIO_HasIO_Promise($fc => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_70(), $104 => $104, {a1: csegen_62()('What repository would you like to use harmony for'), a2: {a1: csegen_62()($ec), a2:
|
|
9441
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($f7 => $f8 => $f9 => Data_Promise_liftIO_HasIO_Promise($fc => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_70(), $104 => $104, {a1: csegen_62()('What repository would you like to use harmony for'), a2: {a1: csegen_62()($ec), a2: csegen_535()}})+'\n'), $fc), $f7, $f8, $f9), $116);
|
|
9421
9442
|
};
|
|
9422
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($d8 =>
|
|
9443
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($d8 => Config_n__7751_2215_orIfEmpty($0, $3, $2, $1, Config_n__7751_2217_org($0, $3, $2, $1)(defaultOrgAndRepo), Data_String_trim($d8)))(csegen_528()), $eb);
|
|
9423
9444
|
};
|
|
9424
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($b1 => $b2 => $b3 => Data_Promise_liftIO_HasIO_Promise($b6 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_70(), $be => $be, {a1: csegen_62()('What GitHub org would you like to use harmony for'), a2: {a1: csegen_62()($a6), a2:
|
|
9445
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($b1 => $b2 => $b3 => Data_Promise_liftIO_HasIO_Promise($b6 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_70(), $be => $be, {a1: csegen_62()('What GitHub org would you like to use harmony for'), a2: {a1: csegen_62()($a6), a2: csegen_535()}})+'\n'), $b6), $b1, $b2, $b3), $d0);
|
|
9425
9446
|
};
|
|
9426
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($92 => $93 => Data_Promise_x3cx7cx3e_Alternative_Promise(csegen_55()($9a => Config_parseGitHubURI($9a))(FFI_Git_remoteURI($0, remoteGuess)), () =>
|
|
9447
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($92 => $93 => Data_Promise_x3cx7cx3e_Alternative_Promise(csegen_55()($9a => Config_parseGitHubURI($9a))(FFI_Git_remoteURI($0, remoteGuess)), () => csegen_532(), $92, $93), $a5);
|
|
9427
9448
|
};
|
|
9428
9449
|
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($89 => Config_preferOriginRemote($89))(FFI_Git_listRemotes($0)), $8f);
|
|
9429
9450
|
}
|
|
@@ -9445,16 +9466,16 @@ function Config_createConfig($0, $1, $2, $3) {
|
|
|
9445
9466
|
|
|
9446
9467
|
/* Config.checkConfigConsistency : Config -> Either (Doc AnsiStyle) () */
|
|
9447
9468
|
function Config_checkConfigConsistency($0) {
|
|
9448
|
-
return
|
|
9469
|
+
return Config_n__6850_1295_checkAssignSettings($0, $0);
|
|
9449
9470
|
}
|
|
9450
9471
|
|
|
9451
|
-
/* Util.
|
|
9452
|
-
const
|
|
9472
|
+
/* Util.4982:1271:startOver */
|
|
9473
|
+
const Util_n__4982_1271_startOver = __lazy(function () {
|
|
9453
9474
|
return {a1: 0, a2: {h: 0}};
|
|
9454
9475
|
});
|
|
9455
9476
|
|
|
9456
|
-
/* Util.
|
|
9457
|
-
function
|
|
9477
|
+
/* Util.4982:1272:guardSuccess */
|
|
9478
|
+
function Util_n__4982_1272_guardSuccess($0) {
|
|
9458
9479
|
switch($0.h) {
|
|
9459
9480
|
case undefined: /* cons */ {
|
|
9460
9481
|
switch($0.a1) {
|
|
@@ -9467,13 +9488,13 @@ function Util_n__4980_1272_guardSuccess($0) {
|
|
|
9467
9488
|
}
|
|
9468
9489
|
}
|
|
9469
9490
|
|
|
9470
|
-
/* Util.
|
|
9471
|
-
function
|
|
9491
|
+
/* Util.4982:1273:go */
|
|
9492
|
+
function Util_n__4982_1273_go($0, $1) {
|
|
9472
9493
|
switch($0.a1) {
|
|
9473
9494
|
case 0: {
|
|
9474
9495
|
switch(Prelude_Types_isAlpha($1)) {
|
|
9475
9496
|
case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
|
|
9476
|
-
case 0: return
|
|
9497
|
+
case 0: return Util_n__4982_1271_startOver();
|
|
9477
9498
|
}
|
|
9478
9499
|
}
|
|
9479
9500
|
case 1: {
|
|
@@ -9482,7 +9503,7 @@ function Util_n__4980_1273_go($0, $1) {
|
|
|
9482
9503
|
default: {
|
|
9483
9504
|
switch(Prelude_Types_isAlpha($1)) {
|
|
9484
9505
|
case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
|
|
9485
|
-
case 0: return
|
|
9506
|
+
case 0: return Util_n__4982_1271_startOver();
|
|
9486
9507
|
}
|
|
9487
9508
|
}
|
|
9488
9509
|
}
|
|
@@ -9490,7 +9511,7 @@ function Util_n__4980_1273_go($0, $1) {
|
|
|
9490
9511
|
case 2: {
|
|
9491
9512
|
switch(Prelude_Types_isDigit($1)) {
|
|
9492
9513
|
case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
|
|
9493
|
-
case 0: return
|
|
9514
|
+
case 0: return Util_n__4982_1271_startOver();
|
|
9494
9515
|
}
|
|
9495
9516
|
}
|
|
9496
9517
|
case 3: {
|
|
@@ -9503,8 +9524,8 @@ function Util_n__4980_1273_go($0, $1) {
|
|
|
9503
9524
|
}
|
|
9504
9525
|
}
|
|
9505
9526
|
|
|
9506
|
-
/* Util.
|
|
9507
|
-
function
|
|
9527
|
+
/* Util.4836:1128:getMoreLines */
|
|
9528
|
+
function Util_n__4836_1128_getMoreLines($0, $1, $2) {
|
|
9508
9529
|
switch($2.h) {
|
|
9509
9530
|
case 0: /* nothing */ return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1));
|
|
9510
9531
|
case undefined: /* just */ {
|
|
@@ -9520,13 +9541,13 @@ function Util_n__4834_1128_getMoreLines($0, $1, $2) {
|
|
|
9520
9541
|
case '': {
|
|
9521
9542
|
switch(line) {
|
|
9522
9543
|
case '': return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1.a2));
|
|
9523
|
-
default: return
|
|
9544
|
+
default: return Util_n__4836_1128_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
9524
9545
|
}
|
|
9525
9546
|
}
|
|
9526
|
-
default: return
|
|
9547
|
+
default: return Util_n__4836_1128_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
9527
9548
|
}
|
|
9528
9549
|
}
|
|
9529
|
-
default: return
|
|
9550
|
+
default: return Util_n__4836_1128_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
9530
9551
|
}
|
|
9531
9552
|
};
|
|
9532
9553
|
return $f($33);
|
|
@@ -9577,12 +9598,12 @@ function Util_relativeToRoot($0, $1) {
|
|
|
9577
9598
|
|
|
9578
9599
|
/* Util.parseJiraPrefix : String -> Maybe String */
|
|
9579
9600
|
function Util_parseJiraPrefix($0) {
|
|
9580
|
-
return csegen_60()($5 => Prelude_Types_fastPack(Prelude_Types_List_reverse($5)))(
|
|
9601
|
+
return csegen_60()($5 => Prelude_Types_fastPack(Prelude_Types_List_reverse($5)))(Util_n__4982_1272_guardSuccess(Prelude_Types_foldl_Foldable_List($f => $10 => Util_n__4982_1273_go($f, $10), Util_n__4982_1271_startOver(), Prelude_Types_fastUnpack($0))));
|
|
9581
9602
|
}
|
|
9582
9603
|
|
|
9583
9604
|
/* Util.getManyLines : HasIO io => Fuel -> io (List String) */
|
|
9584
9605
|
function Util_getManyLines($0, $1) {
|
|
9585
|
-
return
|
|
9606
|
+
return Util_n__4836_1128_getMoreLines($0, {h: 0}, $1);
|
|
9586
9607
|
}
|
|
9587
9608
|
|
|
9588
9609
|
/* Data.List.PrefixSuffix.with block in with block in dropPrefix */
|
|
@@ -9639,7 +9660,7 @@ function Data_List_PrefixSuffix_dropPrefix($0, $1, $2) {
|
|
|
9639
9660
|
}
|
|
9640
9661
|
|
|
9641
9662
|
/* Commands.case block in contribute */
|
|
9642
|
-
function
|
|
9663
|
+
function Commands_case__contribute_2594($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a) {
|
|
9643
9664
|
const $c = Data_List_headx27(Data_List_drop($6, Prelude_Types_List_tailRecAppend($a.a1, $a.a2)));
|
|
9644
9665
|
switch($c.h) {
|
|
9645
9666
|
case 0: /* nothing */ return $16 => $17 => Data_Promise_reject(csegen_62()('No open PRs to review!'), $16, $17);
|
|
@@ -9662,7 +9683,7 @@ function Commands_case__contribute_2366($0, $1, $2, $3, $4, $5, $6, $7, $8, $9,
|
|
|
9662
9683
|
}
|
|
9663
9684
|
|
|
9664
9685
|
/* Commands.case block in case block in graph */
|
|
9665
|
-
function
|
|
9686
|
+
function Commands_case__casex20blockx20inx20graph_2168($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
9666
9687
|
let $a;
|
|
9667
9688
|
switch(Data_Maybe_isJust($3)) {
|
|
9668
9689
|
case 1: {
|
|
@@ -9670,23 +9691,23 @@ function Commands_case__casex20blockx20inx20graph_1940($0, $1, $2, $3, $4, $5, $
|
|
|
9670
9691
|
break;
|
|
9671
9692
|
}
|
|
9672
9693
|
case 0: {
|
|
9673
|
-
$a = $15 => $16 => Data_Promise_pure_Applicative_Promise(Data_SortedMap_empty(
|
|
9694
|
+
$a = $15 => $16 => Data_Promise_pure_Applicative_Promise(Data_SortedMap_empty(csegen_442()), $15, $16);
|
|
9674
9695
|
break;
|
|
9675
9696
|
}
|
|
9676
9697
|
}
|
|
9677
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($a, completedReviews => Util_renderIO($2, csegen_94(), Graph_reviewsGraph(
|
|
9698
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($a, completedReviews => Util_renderIO($2, csegen_94(), Graph_reviewsGraph(csegen_442(), {a1: ann => $29 => Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($29), a2: ann => $2d => $2e => Text_PrettyPrint_Prettyprinter_Doc_prettyPrec_Pretty_String($2d, $2e)}, $7.a2, $7.a1, $5, {a1: completedReviews})));
|
|
9678
9699
|
}
|
|
9679
9700
|
|
|
9680
9701
|
/* Commands.case block in graph */
|
|
9681
|
-
function
|
|
9702
|
+
function Commands_case__graph_2126($0, $1, $2, $3, $4) {
|
|
9682
9703
|
switch($4.h) {
|
|
9683
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listTeamMembers($0, $2.a2, $4.a1), teamMemberLogins => Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_listPartitionedPRs($2, $0, 4n, 100n), prs =>
|
|
9704
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listTeamMembers($0, $2.a2, $4.a1), teamMemberLogins => Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_listPartitionedPRs($2, $0, 4n, 100n), prs => Commands_case__casex20blockx20inx20graph_2168($0, $1, $2, $3, $4.a1, teamMemberLogins, prs, PullRequest_rf__allReviewers(prs))));
|
|
9684
9705
|
case 0: /* nothing */ return $21 => $22 => Data_Promise_reject('The graph command expects the name of a GitHub Team as an argument.', $21, $22);
|
|
9685
9706
|
}
|
|
9686
9707
|
}
|
|
9687
9708
|
|
|
9688
9709
|
/* Commands.case block in assign */
|
|
9689
|
-
function
|
|
9710
|
+
function Commands_case__assign_1766($0, $1, $2, $3, $4, $5) {
|
|
9690
9711
|
let $8;
|
|
9691
9712
|
switch(Prelude_Types_null_Foldable_List($5.a1)) {
|
|
9692
9713
|
case 1: {
|
|
@@ -9735,52 +9756,43 @@ function Commands_case__assign_1538($0, $1, $2, $3, $4, $5) {
|
|
|
9735
9756
|
}
|
|
9736
9757
|
|
|
9737
9758
|
/* Commands.case block in case block in assign,partitionedArgs */
|
|
9738
|
-
function
|
|
9759
|
+
function Commands_case__casex20blockx20inx20assignx2cpartitionedArgs_1686($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
9739
9760
|
const $9 = Prelude_Interfaces_mapHom({a1: d => b => c => a => $d => $e => $f => ({a1: $d($f.a1), a2: $e($f.a2)}), a2: b => c => a => $18 => $19 => ({a1: $18($19.a1), a2: $19.a2}), a3: a => d => b => $20 => $21 => ({a1: $21.a1, a2: $20($21.a2)})}, csegen_116()($2b => Data_String_Extra_drop(1n, $2b)), {a1: $5, a2: $7.a1});
|
|
9740
9761
|
return {a1: $9.a1, a2: {a1: $7.a2, a2: $9.a2}};
|
|
9741
9762
|
}
|
|
9742
9763
|
|
|
9743
9764
|
/* Commands.case block in assign,partitionedArgs */
|
|
9744
|
-
function
|
|
9745
|
-
return
|
|
9746
|
-
}
|
|
9747
|
-
|
|
9748
|
-
/* Commands.6581:1175:unslugify */
|
|
9749
|
-
function Commands_n__6581_1175_unslugify($0, $1, $2, $3, $4, $5) {
|
|
9750
|
-
const $6 = Data_List_find($9 => Prelude_EqOrd_x3dx3d_Eq_String($9, $5), $4);
|
|
9751
|
-
switch($6.h) {
|
|
9752
|
-
case undefined: /* just */ return $6.a1;
|
|
9753
|
-
case 0: /* nothing */ return BashCompletion_unslugify($5);
|
|
9754
|
-
}
|
|
9765
|
+
function Commands_case__assignx2cpartitionedArgs_1663($0, $1, $2, $3, $4, $5) {
|
|
9766
|
+
return Commands_case__casex20blockx20inx20assignx2cpartitionedArgs_1686($0, $1, $2, $3, $4, $5.a1, $5.a2, Data_List_partition($12 => BashCompletion_isHashPrefix($12), $5.a2));
|
|
9755
9767
|
}
|
|
9756
9768
|
|
|
9757
|
-
/* Commands.
|
|
9758
|
-
function
|
|
9769
|
+
/* Commands.7860:1922:putNameLn */
|
|
9770
|
+
function Commands_n__7860_1922_putNameLn($0, $1, $2, $3) {
|
|
9759
9771
|
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}}}});
|
|
9760
9772
|
}
|
|
9761
9773
|
|
|
9762
|
-
/* Commands.
|
|
9763
|
-
function
|
|
9764
|
-
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(
|
|
9774
|
+
/* Commands.7181:1299:putLabels */
|
|
9775
|
+
function Commands_n__7181_1299_putLabels($0, $1, $2, $3, $4) {
|
|
9776
|
+
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(csegen_578(), csegen_116()($f => Commands_n__7181_1298_putLabel($0, $1, $2, $3, $f))($4)));
|
|
9765
9777
|
}
|
|
9766
9778
|
|
|
9767
|
-
/* Commands.
|
|
9768
|
-
function
|
|
9779
|
+
/* Commands.7181:1298:putLabel */
|
|
9780
|
+
function Commands_n__7181_1298_putLabel($0, $1, $2, $3, $4) {
|
|
9769
9781
|
return Text_PrettyPrint_Prettyprinter_Doc_enclose(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\"'), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\"'), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4)));
|
|
9770
9782
|
}
|
|
9771
9783
|
|
|
9772
|
-
/* Commands.
|
|
9773
|
-
function
|
|
9774
|
-
return
|
|
9784
|
+
/* Commands.7536:1651:partitionedArgs */
|
|
9785
|
+
function Commands_n__7536_1651_partitionedArgs($0, $1, $2, $3, $4) {
|
|
9786
|
+
return Commands_case__assignx2cpartitionedArgs_1663($0, $1, $2, $3, $4, Data_List_partition($e => Data_String_isPrefixOf('+', $e), $4));
|
|
9775
9787
|
}
|
|
9776
9788
|
|
|
9777
|
-
/* Commands.
|
|
9778
|
-
function
|
|
9789
|
+
/* Commands.8310:2373:parseTeamArg */
|
|
9790
|
+
function Commands_n__8310_2373_parseTeamArg($0, $1) {
|
|
9779
9791
|
return {a1: {a1: $1}};
|
|
9780
9792
|
}
|
|
9781
9793
|
|
|
9782
|
-
/* Commands.
|
|
9783
|
-
function
|
|
9794
|
+
/* Commands.8701:2749:parseSkipArg */
|
|
9795
|
+
function Commands_n__8701_2749_parseSkipArg($0, $1) {
|
|
9784
9796
|
const $2 = Prelude_Types_fastUnpack($1);
|
|
9785
9797
|
switch($2.h) {
|
|
9786
9798
|
case undefined: /* cons */ {
|
|
@@ -9802,8 +9814,8 @@ function Commands_n__7987_2521_parseSkipArg($0, $1) {
|
|
|
9802
9814
|
}
|
|
9803
9815
|
}
|
|
9804
9816
|
|
|
9805
|
-
/* Commands.
|
|
9806
|
-
function
|
|
9817
|
+
/* Commands.8310:2372:parseCompletedFlag */
|
|
9818
|
+
function Commands_n__8310_2372_parseCompletedFlag($0, $1) {
|
|
9807
9819
|
switch($1) {
|
|
9808
9820
|
case '-c': return {a1: {h: 0}};
|
|
9809
9821
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -9811,8 +9823,8 @@ function Commands_n__7596_2144_parseCompletedFlag($0, $1) {
|
|
|
9811
9823
|
}
|
|
9812
9824
|
}
|
|
9813
9825
|
|
|
9814
|
-
/* Commands.
|
|
9815
|
-
function
|
|
9826
|
+
/* Commands.8701:2748:parseCheckoutFlag */
|
|
9827
|
+
function Commands_n__8701_2748_parseCheckoutFlag($0, $1) {
|
|
9816
9828
|
switch($1) {
|
|
9817
9829
|
case '-c': return {a1: {h: 0}};
|
|
9818
9830
|
case '--checkout': return {a1: {h: 0}};
|
|
@@ -9820,8 +9832,8 @@ function Commands_n__7987_2520_parseCheckoutFlag($0, $1) {
|
|
|
9820
9832
|
}
|
|
9821
9833
|
}
|
|
9822
9834
|
|
|
9823
|
-
/* Commands.
|
|
9824
|
-
function
|
|
9835
|
+
/* Commands.7860:1921:forkedUser */
|
|
9836
|
+
function Commands_n__7860_1921_forkedUser($0, $1, $2, $3) {
|
|
9825
9837
|
return FFI_Concurrency_fork(csegen_94(), ('user --json '+$3));
|
|
9826
9838
|
}
|
|
9827
9839
|
|
|
@@ -9830,6 +9842,15 @@ function Commands_whoami($0, $1, $2) {
|
|
|
9830
9842
|
return User_Me_printInfoOnSelf($0, $2, $1);
|
|
9831
9843
|
}
|
|
9832
9844
|
|
|
9845
|
+
/* Commands.unslugifyLabel : List String -> String -> String */
|
|
9846
|
+
function Commands_unslugifyLabel($0, $1) {
|
|
9847
|
+
const $2 = Data_List_find($5 => Prelude_EqOrd_x3dx3d_Eq_String($5, $1), $0);
|
|
9848
|
+
switch($2.h) {
|
|
9849
|
+
case undefined: /* just */ return $2.a1;
|
|
9850
|
+
case 0: /* nothing */ return BashCompletion_unslugify(BashCompletion_unhashify($1));
|
|
9851
|
+
}
|
|
9852
|
+
}
|
|
9853
|
+
|
|
9833
9854
|
/* Commands.teamNameArg : GraphArg -> Maybe String */
|
|
9834
9855
|
function Commands_teamNameArg($0) {
|
|
9835
9856
|
switch($0.h) {
|
|
@@ -9856,22 +9877,38 @@ function Commands_reflect($0, $1) {
|
|
|
9856
9877
|
return User_Reflect_reflectOnSelf($0, $1);
|
|
9857
9878
|
}
|
|
9858
9879
|
|
|
9859
|
-
/* Commands.pr : Config => Git => Octokit => {default False _ : Bool} ->
|
|
9860
|
-
|
|
9861
|
-
|
|
9862
|
-
|
|
9863
|
-
|
|
9864
|
-
|
|
9865
|
-
|
|
9866
|
-
|
|
9867
|
-
|
|
9880
|
+
/* Commands.pr : Config => Git => Octokit => {default False _ : Bool} ->
|
|
9881
|
+
List String -> Promise () */
|
|
9882
|
+
function Commands_pr($0, $1, $2, $3, $4) {
|
|
9883
|
+
switch(Prelude_Types_foldMap_Foldable_List({a1: $9 => $a => Prelude_Interfaces_Bool_Semigroup_x3cx2bx3e_Semigroup_AllBool($9, $a), a2: 1}, $10 => BashCompletion_isHashPrefix($10), $4)) {
|
|
9884
|
+
case 1: {
|
|
9885
|
+
const $22 = $23 => {
|
|
9886
|
+
const $26 = $27 => $28 => {
|
|
9887
|
+
switch($23.a1) {
|
|
9888
|
+
case 0: return $2a => Data_Promise_liftIO_HasIO_Promise($2d => Prelude_IO_prim__putStr((Data_PullRequest_rf__webURI($0, $23.a2)+'\n'), $2d), $27, $28, $2a);
|
|
9889
|
+
case 1: return Data_Promise_pure_Applicative_Promise(undefined, $27, $28);
|
|
9868
9890
|
}
|
|
9869
9891
|
};
|
|
9870
|
-
|
|
9871
|
-
|
|
9892
|
+
const $3d = $3e => {
|
|
9893
|
+
let $42;
|
|
9894
|
+
switch(Prelude_Types_null_Foldable_List($4)) {
|
|
9895
|
+
case 1: {
|
|
9896
|
+
$42 = 0;
|
|
9897
|
+
break;
|
|
9898
|
+
}
|
|
9899
|
+
case 0: {
|
|
9900
|
+
$42 = 1;
|
|
9901
|
+
break;
|
|
9902
|
+
}
|
|
9903
|
+
}
|
|
9904
|
+
return Prelude_Interfaces_when(csegen_86(), $42, () => Commands_label($0, $1, $2, $4));
|
|
9905
|
+
};
|
|
9906
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($26, $3d);
|
|
9907
|
+
};
|
|
9908
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Data_Promise_x3ex3ex3d_Monad_Promise(FFI_Git_currentBranch($1), $1b => PullRequest_identifyOrCreatePR($0, $1, $2, $3, $1b)), $22);
|
|
9872
9909
|
}
|
|
9873
|
-
|
|
9874
|
-
|
|
9910
|
+
case 0: return $4c => $4d => Data_Promise_reject('The pr command only accepts labels prefixed with \'#\' and the --draft flag.', $4c, $4d);
|
|
9911
|
+
}
|
|
9875
9912
|
}
|
|
9876
9913
|
|
|
9877
9914
|
/* Commands.parseGraphArgs : List String -> Either String (List GraphArg) */
|
|
@@ -9884,7 +9921,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
9884
9921
|
switch($0.a2.a2.h) {
|
|
9885
9922
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
9886
9923
|
default: {
|
|
9887
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(
|
|
9924
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_588(), $10 => Commands_n__8310_2372_parseCompletedFlag($0, $10), $15 => Commands_n__8310_2373_parseTeamArg($0, $15), $b), $0);
|
|
9888
9925
|
switch($6.h) {
|
|
9889
9926
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
9890
9927
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -9893,7 +9930,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
9893
9930
|
}
|
|
9894
9931
|
}
|
|
9895
9932
|
default: {
|
|
9896
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(
|
|
9933
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_588(), $27 => Commands_n__8310_2372_parseCompletedFlag($0, $27), $2c => Commands_n__8310_2373_parseTeamArg($0, $2c), $22), $0);
|
|
9897
9934
|
switch($1d.h) {
|
|
9898
9935
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
9899
9936
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -9902,7 +9939,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
9902
9939
|
}
|
|
9903
9940
|
}
|
|
9904
9941
|
default: {
|
|
9905
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(
|
|
9942
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_588(), $3e => Commands_n__8310_2372_parseCompletedFlag($0, $3e), $43 => Commands_n__8310_2373_parseTeamArg($0, $43), $39), $0);
|
|
9906
9943
|
switch($34.h) {
|
|
9907
9944
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
9908
9945
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -9921,7 +9958,7 @@ function Commands_parseContributeArgs($0) {
|
|
|
9921
9958
|
switch($0.a2.a2.h) {
|
|
9922
9959
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'contribute\'s arguments must be either -<num> to skip num PRs or --checkout (-c) to checkout the branch needing review.'};
|
|
9923
9960
|
default: {
|
|
9924
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(
|
|
9961
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_588(), $10 => Commands_n__8701_2749_parseSkipArg($0, $10), $15 => Commands_n__8701_2748_parseCheckoutFlag($0, $15), $b), $0);
|
|
9925
9962
|
switch($6.h) {
|
|
9926
9963
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
9927
9964
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'contribute\'s arguments must be either -<num> to skip num PRs or --checkout (-c) to checkout the branch needing review.'};
|
|
@@ -9930,7 +9967,7 @@ function Commands_parseContributeArgs($0) {
|
|
|
9930
9967
|
}
|
|
9931
9968
|
}
|
|
9932
9969
|
default: {
|
|
9933
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(
|
|
9970
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_588(), $27 => Commands_n__8701_2749_parseSkipArg($0, $27), $2c => Commands_n__8701_2748_parseCheckoutFlag($0, $2c), $22), $0);
|
|
9934
9971
|
switch($1d.h) {
|
|
9935
9972
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
9936
9973
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'contribute\'s arguments must be either -<num> to skip num PRs or --checkout (-c) to checkout the branch needing review.'};
|
|
@@ -9939,7 +9976,7 @@ function Commands_parseContributeArgs($0) {
|
|
|
9939
9976
|
}
|
|
9940
9977
|
}
|
|
9941
9978
|
default: {
|
|
9942
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(
|
|
9979
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_588(), $3e => Commands_n__8701_2749_parseSkipArg($0, $3e), $43 => Commands_n__8701_2748_parseCheckoutFlag($0, $43), $39), $0);
|
|
9943
9980
|
switch($34.h) {
|
|
9944
9981
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
9945
9982
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'contribute\'s arguments must be either -<num> to skip num PRs or --checkout (-c) to checkout the branch needing review.'};
|
|
@@ -9950,14 +9987,14 @@ function Commands_parseContributeArgs($0) {
|
|
|
9950
9987
|
|
|
9951
9988
|
/* Commands.list : Config => Octokit => String -> Promise () */
|
|
9952
9989
|
function Commands_list($0, $1, $2) {
|
|
9953
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9990
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_590()(FFI_GitHub_listTeamMembers($1, $0.a2, $2)), teamMemberLogins => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_449(), csegen_591(), Prelude_Types_traverse_Traversable_List(csegen_86(), $1a => Commands_n__7860_1921_forkedUser($1, $2, $0, $1a), teamMemberLogins)), teamMembersJson => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_traverse_Traversable_List(csegen_86(), $28 => $29 => Data_Promise_either(csegen_72(), Data_User_parseUser($28), $29), teamMembersJson), teamMembers => Util_renderIO($0, csegen_94(), Text_PrettyPrint_Prettyprinter_Doc_vsep(csegen_116()($3e => Commands_n__7860_1922_putNameLn($1, $2, $0, $3e))(teamMembers))))));
|
|
9954
9991
|
}
|
|
9955
9992
|
|
|
9956
9993
|
/* Commands.label : Config => Git => Octokit => List String -> Promise () */
|
|
9957
9994
|
function Commands_label($0, $1, $2, $3) {
|
|
9958
9995
|
const $12 = $13 => {
|
|
9959
|
-
const $15 = csegen_116()($1a =>
|
|
9960
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Label_addLabels($0, $2, $13.a2, $15), allLabels => Util_renderIO($0, csegen_94(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
9996
|
+
const $15 = csegen_116()($1a => Commands_unslugifyLabel($0.a10, $1a))($3);
|
|
9997
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Label_addLabels($0, $2, $13.a2, $15), allLabels => Util_renderIO($0, csegen_94(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(csegen_593()('Added'), csegen_491()(Commands_n__7181_1299_putLabels($1, $2, $3, $0, $15))(Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(' to PR.'), a2: {h: 0}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_70(), $51 => $51, {a1: csegen_62()('All labels for PR of '), a2: {a1: csegen_62()($13.a2.a7), a2: {a1: csegen_62()(':'), a2: {h: 0}}}})), csegen_491()(Commands_n__7181_1299_putLabels($1, $2, $3, $0, allLabels))(Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('.'), a2: {h: 0}}))), a2: {h: 0}}})));
|
|
9961
9998
|
};
|
|
9962
9999
|
return Data_Promise_x3ex3ex3d_Monad_Promise(Data_Promise_x3ex3ex3d_Monad_Promise(FFI_Git_currentBranch($1), $b => PullRequest_identifyOrCreatePR($0, $1, $2, 0, $b)), $12);
|
|
9963
10000
|
}
|
|
@@ -9976,7 +10013,7 @@ function Commands_graph($0, $1, $2) {
|
|
|
9976
10013
|
}
|
|
9977
10014
|
};
|
|
9978
10015
|
const $3 = Data_List_find($5, $2);
|
|
9979
|
-
return
|
|
10016
|
+
return Commands_case__graph_2126($1, $2, $0, $3, Data_List_headx27(Prelude_Types_List_mapMaybeAppend({h: 0}, $14 => Commands_teamNameArg($14), $2)));
|
|
9980
10017
|
}
|
|
9981
10018
|
|
|
9982
10019
|
/* Commands.contribute : Config => Git => Octokit => List ContributeArg -> Promise () */
|
|
@@ -9999,9 +10036,9 @@ function Commands_contribute($0, $1, $2, $3) {
|
|
|
9999
10036
|
};
|
|
10000
10037
|
const $2c = Prelude_Types_List_filterAppend({h: 0}, $2f, openPrs);
|
|
10001
10038
|
const $36 = Data_List_partition($39 => Data_PullRequest_isRequestedReviewer(myLogin, $39), $2c);
|
|
10002
|
-
return
|
|
10039
|
+
return Commands_case__contribute_2594($1, $2, $3, $0, openPrs, myLogin, $19, $26, $2c, $36, Prelude_Interfaces_mapHom({a1: d => b => c => a => $4d => $4e => $4f => ({a1: $4d($4f.a1), a2: $4e($4f.a2)}), a2: b => c => a => $58 => $59 => ({a1: $58($59.a1), a2: $59.a2}), a3: a => d => b => $60 => $61 => ({a1: $61.a1, a2: $60($61.a2)})}, $68 => Data_List_sortBy(csegen_608(), $68), $36));
|
|
10003
10040
|
};
|
|
10004
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
10041
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_604()(FFI_GitHub_getSelf($2)), $18);
|
|
10005
10042
|
};
|
|
10006
10043
|
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequests($2, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $10);
|
|
10007
10044
|
}
|
|
@@ -10020,7 +10057,7 @@ function Commands_branch($0, $1) {
|
|
|
10020
10057
|
/* Commands.assign : Config => Git => Octokit => List String -> {default False _ : Bool} ->
|
|
10021
10058
|
Promise () */
|
|
10022
10059
|
function Commands_assign($0, $1, $2, $3, $4) {
|
|
10023
|
-
return
|
|
10060
|
+
return Commands_case__assign_1766($0, $1, $2, $4, $3, Commands_n__7536_1651_partitionedArgs($0, $1, $2, $4, $3));
|
|
10024
10061
|
}
|
|
10025
10062
|
|
|
10026
10063
|
/* Commands.<||> : Alternative t => (a -> t b) -> (a -> t b) -> a -> t b */
|
|
@@ -10030,67 +10067,67 @@ function Commands_x3cx7cx7cx3e($0, $1, $2, $3) {
|
|
|
10030
10067
|
|
|
10031
10068
|
/* User.Reflect.case block in case block in reflectOnSelf */
|
|
10032
10069
|
function User_Reflect_case__casex20blockx20inx20reflectOnSelf_1862($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
10033
|
-
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)}, csegen_116()(
|
|
10070
|
+
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)}, csegen_116()(csegen_621())($2a))), {a1: $7, a2: $9.a1});
|
|
10034
10071
|
return Util_renderIO($0, csegen_94(), 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));
|
|
10035
10072
|
}
|
|
10036
10073
|
|
|
10037
|
-
/* User.Me.
|
|
10038
|
-
function
|
|
10074
|
+
/* User.Me.7184:1979:ul */
|
|
10075
|
+
function User_Me_n__7184_1979_ul($0, $1, $2, $3) {
|
|
10039
10076
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3));
|
|
10040
10077
|
}
|
|
10041
10078
|
|
|
10042
|
-
/* User.Me.
|
|
10043
|
-
function
|
|
10044
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
10079
|
+
/* User.Me.7184:1985:teams */
|
|
10080
|
+
function User_Me_n__7184_1985_teams($0, $1, $2) {
|
|
10081
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: User_Me_n__7184_1979_ul($0, $1, $2, 'GitHub Teams:'), a2: csegen_116()($10 => User_Me_n__7184_1980_it($0, $1, $2, $10))($0)});
|
|
10045
10082
|
}
|
|
10046
10083
|
|
|
10047
|
-
/* User.Me.
|
|
10048
|
-
function
|
|
10049
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
10084
|
+
/* User.Me.7184:1984:login */
|
|
10085
|
+
function User_Me_n__7184_1984_login($0, $1, $2) {
|
|
10086
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(csegen_593()('GitHub Login:'), User_Me_n__7184_1981_green($0, $1, $2, $1.a1));
|
|
10050
10087
|
}
|
|
10051
10088
|
|
|
10052
|
-
/* User.Reflect.
|
|
10053
|
-
function
|
|
10089
|
+
/* User.Reflect.6277:1056:ital */
|
|
10090
|
+
function User_Reflect_n__6277_1056_ital($0, $1) {
|
|
10054
10091
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
10055
10092
|
}
|
|
10056
10093
|
|
|
10057
|
-
/* User.Me.
|
|
10058
|
-
function
|
|
10094
|
+
/* User.Me.7184:1980:it */
|
|
10095
|
+
function User_Me_n__7184_1980_it($0, $1, $2, $3) {
|
|
10059
10096
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3));
|
|
10060
10097
|
}
|
|
10061
10098
|
|
|
10062
|
-
/* User.Me.
|
|
10063
|
-
function
|
|
10099
|
+
/* User.Me.7324:2135:handleUnsetEmail */
|
|
10100
|
+
function User_Me_n__7324_2135_handleUnsetEmail($0, $1, $2, $3) {
|
|
10064
10101
|
switch($3) {
|
|
10065
10102
|
case '': return {h: 0};
|
|
10066
10103
|
default: return {a1: $3};
|
|
10067
10104
|
}
|
|
10068
10105
|
}
|
|
10069
10106
|
|
|
10070
|
-
/* User.Me.
|
|
10071
|
-
function
|
|
10107
|
+
/* User.Me.7184:1981:green */
|
|
10108
|
+
function User_Me_n__7184_1981_green($0, $1, $2, $3) {
|
|
10072
10109
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3));
|
|
10073
10110
|
}
|
|
10074
10111
|
|
|
10075
|
-
/* User.Me.
|
|
10076
|
-
function
|
|
10077
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
10112
|
+
/* User.Me.7184:1983:fullName */
|
|
10113
|
+
function User_Me_n__7184_1983_fullName($0, $1, $2) {
|
|
10114
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(csegen_593()('GitHub Name:'), User_Me_n__7184_1981_green($0, $1, $2, $1.a2));
|
|
10078
10115
|
}
|
|
10079
10116
|
|
|
10080
|
-
/* User.Me.
|
|
10081
|
-
function
|
|
10117
|
+
/* User.Me.7184:1982:email */
|
|
10118
|
+
function User_Me_n__7184_1982_email($0, $1, $2) {
|
|
10082
10119
|
let $8;
|
|
10083
10120
|
switch($2.h) {
|
|
10084
10121
|
case undefined: /* just */ {
|
|
10085
|
-
$8 =
|
|
10122
|
+
$8 = User_Me_n__7184_1981_green($0, $1, $2, $2.a1);
|
|
10086
10123
|
break;
|
|
10087
10124
|
}
|
|
10088
10125
|
case 0: /* nothing */ {
|
|
10089
|
-
$8 =
|
|
10126
|
+
$8 = User_Me_n__7184_1980_it($0, $1, $2, 'Not set');
|
|
10090
10127
|
break;
|
|
10091
10128
|
}
|
|
10092
10129
|
}
|
|
10093
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
10130
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(csegen_593()('Git Email:'), $8);
|
|
10094
10131
|
}
|
|
10095
10132
|
|
|
10096
10133
|
/* User.Reflect.rightTitle : String */
|
|
@@ -10113,21 +10150,21 @@ function User_Reflect_reflectOnSelf($0, $1) {
|
|
|
10113
10150
|
const $a = prs => {
|
|
10114
10151
|
const $12 = myLogin => {
|
|
10115
10152
|
const $2e = reviews => {
|
|
10116
|
-
const $2f = csegen_60()(
|
|
10153
|
+
const $2f = csegen_60()(csegen_628())(Data_List_headx27(Data_List_sortBy($3a => $3b => Prelude_Basics_on(csegen_606(), csegen_628(), $3a, $3b), reviews)));
|
|
10117
10154
|
const $44 = PullRequest_tuple(prs);
|
|
10118
10155
|
const $47 = Prelude_Interfaces_mapHom({a1: d => b => c => a => $4b => $4c => $4d => ({a1: $4b($4d.a1), a2: $4c($4d.a2)}), a2: b => c => a => $56 => $57 => ({a1: $56($57.a1), a2: $57.a2}), a3: a => d => b => $5e => $5f => ({a1: $5f.a1, a2: $5e($5f.a2)})}, $66 => Prelude_Types_List_filterAppend({h: 0}, $6a => Prelude_EqOrd_x3dx3d_Eq_String($6a.a4, myLogin), $66), $44);
|
|
10119
10156
|
return User_Reflect_case__casex20blockx20inx20reflectOnSelf_1862($0, $1, prs, myLogin, reviews, $2f, $44, $47.a1, $47.a2, Prelude_Interfaces_mapHom({a1: d => b => c => a => $7f => $80 => $81 => ({a1: $7f($81.a1), a2: $80($81.a2)}), a2: b => c => a => $8a => $8b => ({a1: $8a($8b.a1), a2: $8b.a2}), a3: a => d => b => $92 => $93 => ({a1: $93.a1, a2: $92($93.a2)})}, $9a => Prelude_Types_List_filterAppend({h: 0}, $9e => Prelude_Types_foldMap_Foldable_List(csegen_136(), $a3 => Prelude_EqOrd_x3dx3d_Eq_String($a3, myLogin), $9e.a6), $9a), $44));
|
|
10120
10157
|
};
|
|
10121
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($22 => $23 => Prelude_Basics_on(
|
|
10158
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($22 => $23 => Prelude_Basics_on(csegen_606(), csegen_621(), $22, $23), PullRequest_combined(prs))))), $2e);
|
|
10122
10159
|
};
|
|
10123
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
10160
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_604()(FFI_GitHub_getSelf($1)), $12);
|
|
10124
10161
|
};
|
|
10125
10162
|
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_listPartitionedPRs($0, $1, 4n, User_Reflect_prCount()), $a);
|
|
10126
10163
|
}
|
|
10127
10164
|
|
|
10128
10165
|
/* User.Me.printInfoOnSelf : Config => Octokit => Git => Promise () */
|
|
10129
10166
|
function User_Me_printInfoOnSelf($0, $1, $2) {
|
|
10130
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($9 =>
|
|
10167
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($9 => User_Me_n__7324_2135_handleUnsetEmail($0, $1, $2, $9))(FFI_Git_userEmail($2)), gitEmail => Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_getSelf($1), githubUser => Data_Promise_x3ex3ex3d_Monad_Promise(csegen_590()(FFI_GitHub_listMyTeams($1)), githubTeams => Util_renderIO($0, csegen_94(), User_Me_print(gitEmail, githubUser, githubTeams)))));
|
|
10131
10168
|
}
|
|
10132
10169
|
|
|
10133
10170
|
/* User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
@@ -10137,7 +10174,7 @@ function User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
10137
10174
|
|
|
10138
10175
|
/* User.Me.print : Maybe String -> User -> List String -> Doc AnsiStyle */
|
|
10139
10176
|
function User_Me_print($0, $1, $2) {
|
|
10140
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
10177
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: User_Me_n__7184_1982_email($2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: User_Me_n__7184_1983_fullName($2, $1, $0), a2: {a1: User_Me_n__7184_1984_login($2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: User_Me_n__7184_1985_teams($2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}}}}});
|
|
10141
10178
|
}
|
|
10142
10179
|
|
|
10143
10180
|
/* User.Reflect.prCount : Fin 101 */
|
|
@@ -10157,15 +10194,15 @@ const User_Reflect_intro = __lazy(function () {
|
|
|
10157
10194
|
|
|
10158
10195
|
/* User.Reflect.header : Nat -> Doc AnsiStyle */
|
|
10159
10196
|
function User_Reflect_header($0) {
|
|
10160
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1:
|
|
10197
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: User_Reflect_n__6277_1056_ital($0, User_Reflect_leftTitle()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()(' ')), a2: {a1: User_Reflect_n__6277_1056_ital($0, User_Reflect_rightTitle()), a2: {h: 0}}}}));
|
|
10161
10198
|
}
|
|
10162
10199
|
|
|
10163
10200
|
/* User.Reflect.graph : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
10164
10201
|
function User_Reflect_graph($0, $1, $2, $3, $4, $5) {
|
|
10165
10202
|
const $6 = ($2+$3);
|
|
10166
10203
|
const $9 = ($5+$4);
|
|
10167
|
-
const $c = Prelude_Types_foldr_Foldable_List(
|
|
10168
|
-
const $1b = Prelude_Types_foldr_Foldable_List(
|
|
10204
|
+
const $c = Prelude_Types_foldr_Foldable_List(csegen_429(), Prelude_Types_String_length(User_Reflect_leftTitle()), {a1: ($6+$1), a2: {a1: $9, a2: {h: 0}}});
|
|
10205
|
+
const $1b = Prelude_Types_foldr_Foldable_List(csegen_429(), Prelude_Types_String_length(User_Reflect_rightTitle()), {a1: $6, a2: {a1: $9, a2: {h: 0}}});
|
|
10169
10206
|
const $28 = (($c+$1b)+3n);
|
|
10170
10207
|
const $2d = ((Number($0)/2.0)-(Number($28)/2.0));
|
|
10171
10208
|
const $36 = (Prelude_Types_prim__integerToNat(BigInt(Math.trunc($2d)))+Prelude_Types_prim__integerToNat(($c-Prelude_Types_String_length(User_Reflect_leftTitle()))));
|
|
@@ -10175,7 +10212,7 @@ function User_Reflect_graph($0, $1, $2, $3, $4, $5) {
|
|
|
10175
10212
|
|
|
10176
10213
|
/* User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
10177
10214
|
function User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10178
|
-
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(csegen_62()('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(csegen_62()('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:
|
|
10215
|
+
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(csegen_62()('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(csegen_62()('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: csegen_643(), 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: csegen_647()($8), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: csegen_649(), 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(csegen_62()('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: csegen_60()(date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('most recent:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date(date)), a2: {h: 0}}})))($6), a2: {h: 0}}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('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: csegen_643(), 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: csegen_647()($7), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: csegen_649(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($4)), a2: {h: 0}}})}, a2: {h: 0}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_70(), $da => $da, {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}}}}}}}}}});
|
|
10179
10216
|
}
|
|
10180
10217
|
|
|
10181
10218
|
/* User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
@@ -10233,35 +10270,35 @@ function PullRequest_case__identifyOrCreatePRx2ccreatePR_2973($0, $1, $2, $3, $4
|
|
|
10233
10270
|
}
|
|
10234
10271
|
}
|
|
10235
10272
|
|
|
10236
|
-
/* PullRequest.
|
|
10237
|
-
function
|
|
10273
|
+
/* PullRequest.8323:1961:userNotice */
|
|
10274
|
+
function PullRequest_n__8323_1961_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
10238
10275
|
switch($6.h) {
|
|
10239
10276
|
case 0: /* nothing */ {
|
|
10240
10277
|
switch($2.h) {
|
|
10241
10278
|
case 0: /* nil */ return 'no users';
|
|
10242
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_70(), $d => $d, {a1: csegen_62()(
|
|
10279
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_70(), $d => $d, {a1: csegen_62()(PullRequest_n__8323_1960_csv($0, $1, $2, $3, $4, $5, $2)), a2: {h: 0}});
|
|
10243
10280
|
}
|
|
10244
10281
|
}
|
|
10245
|
-
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_70(), $20 => $20, {a1:
|
|
10282
|
+
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_70(), $20 => $20, {a1: PullRequest_n__8323_1960_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: $2}), a2: {h: 0}});
|
|
10246
10283
|
}
|
|
10247
10284
|
}
|
|
10248
10285
|
|
|
10249
|
-
/* PullRequest.
|
|
10250
|
-
function
|
|
10286
|
+
/* PullRequest.8323:1962:teamNotice */
|
|
10287
|
+
function PullRequest_n__8323_1962_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
10251
10288
|
switch($6.h) {
|
|
10252
10289
|
case 0: /* nil */ return '';
|
|
10253
10290
|
case undefined: /* cons */ {
|
|
10254
10291
|
switch($6.a2.h) {
|
|
10255
|
-
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_70(), $d => $d, {a1: ' and team ', a2: {a1:
|
|
10256
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_70(), $21 => $21, {a1: ' and teams ', a2: {a1:
|
|
10292
|
+
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_70(), $d => $d, {a1: ' and team ', a2: {a1: PullRequest_n__8323_1960_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: {h: 0}}), a2: {h: 0}}});
|
|
10293
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_70(), $21 => $21, {a1: ' and teams ', a2: {a1: PullRequest_n__8323_1960_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
10257
10294
|
}
|
|
10258
10295
|
}
|
|
10259
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_70(), $33 => $33, {a1: ' and teams ', a2: {a1:
|
|
10296
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_70(), $33 => $33, {a1: ' and teams ', a2: {a1: PullRequest_n__8323_1960_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
10260
10297
|
}
|
|
10261
10298
|
}
|
|
10262
10299
|
|
|
10263
|
-
/* PullRequest.
|
|
10264
|
-
function
|
|
10300
|
+
/* PullRequest.9013:2623:prepareDescriptionFile */
|
|
10301
|
+
function PullRequest_n__9013_2623_prepareDescriptionFile($0, $1, $2, $3, $4, $5, $6) {
|
|
10265
10302
|
const $13 = $14 => {
|
|
10266
10303
|
const $1a = () => {
|
|
10267
10304
|
const $1d = $5.a1.a1.a1;
|
|
@@ -10274,13 +10311,13 @@ function PullRequest_n__8548_2623_prepareDescriptionFile($0, $1, $2, $3, $4, $5,
|
|
|
10274
10311
|
return $5.a1.a2(undefined)(undefined)(System_File_Meta_exists($5, $6))($13);
|
|
10275
10312
|
}
|
|
10276
10313
|
|
|
10277
|
-
/* PullRequest.
|
|
10278
|
-
function
|
|
10314
|
+
/* PullRequest.8323:1963:prComment */
|
|
10315
|
+
function PullRequest_n__8323_1963_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
10279
10316
|
return Prelude_Types_foldMap_Foldable_List(csegen_70(), $b => $b, {a1: ':musical_note: Harmoniously assigned @', a2: {a1: $6, a2: {a1: ' to review this PR.', a2: {h: 0}}}});
|
|
10280
10317
|
}
|
|
10281
10318
|
|
|
10282
|
-
/* PullRequest.
|
|
10283
|
-
function
|
|
10319
|
+
/* PullRequest.9013:2622:inlineDescription */
|
|
10320
|
+
function PullRequest_n__9013_2622_inlineDescription($0, $1, $2, $3, $4, $5) {
|
|
10284
10321
|
const $18 = $19 => {
|
|
10285
10322
|
const $1c = $5.a1.a1.a1;
|
|
10286
10323
|
const $1b = $20 => $21 => $1c(undefined)(undefined)($20)($21);
|
|
@@ -10290,13 +10327,13 @@ function PullRequest_n__8548_2622_inlineDescription($0, $1, $2, $3, $4, $5) {
|
|
|
10290
10327
|
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($14 => Prelude_IO_prim__putStr('What would you like the description to be (two blank lines to finish)?\n', $14)))($18);
|
|
10291
10328
|
}
|
|
10292
10329
|
|
|
10293
|
-
/* PullRequest.
|
|
10294
|
-
function
|
|
10330
|
+
/* PullRequest.8098:1704:forkedReviews */
|
|
10331
|
+
function PullRequest_n__8098_1704_forkedReviews($0, $1, $2, $3) {
|
|
10295
10332
|
return FFI_Concurrency_fork(csegen_94(), ('reviews --json '+Prelude_Show_show_Show_Integer($3.a1)));
|
|
10296
10333
|
}
|
|
10297
10334
|
|
|
10298
|
-
/* PullRequest.
|
|
10299
|
-
function
|
|
10335
|
+
/* PullRequest.7531:1169:filterString */
|
|
10336
|
+
function PullRequest_n__7531_1169_filterString($0, $1, $2, $3, $4) {
|
|
10300
10337
|
switch($4.h) {
|
|
10301
10338
|
case 0: /* nothing */ return 'none';
|
|
10302
10339
|
case undefined: /* just */ {
|
|
@@ -10308,8 +10345,8 @@ function PullRequest_n__7066_1169_filterString($0, $1, $2, $3, $4) {
|
|
|
10308
10345
|
}
|
|
10309
10346
|
}
|
|
10310
10347
|
|
|
10311
|
-
/* PullRequest.
|
|
10312
|
-
function
|
|
10348
|
+
/* PullRequest.9013:2624:editorDescription */
|
|
10349
|
+
function PullRequest_n__9013_2624_editorDescription($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10313
10350
|
const $19 = $1a => {
|
|
10314
10351
|
const $31 = $32 => {
|
|
10315
10352
|
switch($32) {
|
|
@@ -10320,31 +10357,31 @@ function PullRequest_n__8548_2624_editorDescription($0, $1, $2, $3, $4, $5, $6,
|
|
|
10320
10357
|
const $62 = $5.a1.a1.a1;
|
|
10321
10358
|
const $61 = $66 => $67 => $62(undefined)(undefined)($66)($67);
|
|
10322
10359
|
const $60 = $61($71 => (undefined));
|
|
10323
|
-
return $60(System_File_ReadWrite_removeFile($5,
|
|
10360
|
+
return $60(System_File_ReadWrite_removeFile($5, csegen_672()));
|
|
10324
10361
|
};
|
|
10325
10362
|
return Prelude_Interfaces_when($5.a1.a1, $59, $5f);
|
|
10326
10363
|
};
|
|
10327
|
-
const $4a = $5.a1.a2(undefined)(undefined)(System_File_Meta_exists($5,
|
|
10364
|
+
const $4a = $5.a1.a2(undefined)(undefined)(System_File_Meta_exists($5, csegen_672()))($58);
|
|
10328
10365
|
const $44 = $5.a1.a2(undefined)(undefined)($4a);
|
|
10329
10366
|
return $44($78 => $5.a1.a1.a2(undefined)(description));
|
|
10330
10367
|
};
|
|
10331
|
-
return $5.a1.a2(undefined)(undefined)(System_File_ReadWrite_readFile($5,
|
|
10368
|
+
return $5.a1.a2(undefined)(undefined)(System_File_ReadWrite_readFile($5, csegen_672()))($41);
|
|
10332
10369
|
}
|
|
10333
10370
|
default: return $5.a1.a1.a2(undefined)({h: 0 /* Left */, a1: {h: 0 /* GenericFileError */, a1: $32}});
|
|
10334
10371
|
}
|
|
10335
10372
|
};
|
|
10336
10373
|
return $5.a1.a2(undefined)(undefined)(System_system($5, Prelude_Types_foldMap_Foldable_List(csegen_70(), $2b => $2b, {a1: $6, a2: {a1: ' pr_description.tmp.md', a2: {h: 0}}})))($31);
|
|
10337
10374
|
};
|
|
10338
|
-
return $5.a1.a2(undefined)(undefined)(
|
|
10375
|
+
return $5.a1.a2(undefined)(undefined)(PullRequest_n__9013_2623_prepareDescriptionFile($0, $1, $2, $3, $4, $5, $7))($19);
|
|
10339
10376
|
}
|
|
10340
10377
|
|
|
10341
|
-
/* PullRequest.
|
|
10342
|
-
function
|
|
10343
|
-
return Util_renderString($5, Text_PrettyPrint_Prettyprinter_Doc_encloseSep(Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(),
|
|
10378
|
+
/* PullRequest.8323:1960:csv */
|
|
10379
|
+
function PullRequest_n__8323_1960_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
10380
|
+
return Util_renderString($5, Text_PrettyPrint_Prettyprinter_Doc_encloseSep(Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), csegen_578(), csegen_116()(csegen_398())($6)));
|
|
10344
10381
|
}
|
|
10345
10382
|
|
|
10346
|
-
/* PullRequest.
|
|
10347
|
-
function
|
|
10383
|
+
/* PullRequest.9013:2625:createPR */
|
|
10384
|
+
function PullRequest_n__9013_2625_createPR($0, $1, $2, $3, $4) {
|
|
10348
10385
|
const $2f = $30 => {
|
|
10349
10386
|
const $4d = $4e => {
|
|
10350
10387
|
const $6c = $6d => {
|
|
@@ -10360,11 +10397,11 @@ function PullRequest_n__8548_2625_createPR($0, $1, $2, $3, $4) {
|
|
|
10360
10397
|
let $c9;
|
|
10361
10398
|
switch($ca.h) {
|
|
10362
10399
|
case 0: /* nothing */ {
|
|
10363
|
-
$c9 =
|
|
10400
|
+
$c9 = PullRequest_n__9013_2622_inlineDescription($0, $1, $2, $3, $4, csegen_94());
|
|
10364
10401
|
break;
|
|
10365
10402
|
}
|
|
10366
10403
|
case undefined: /* just */ {
|
|
10367
|
-
$c9 = csegen_55()($d9 => Prelude_Types_either(() => $dc => '', () => $de => $de, $d9))(
|
|
10404
|
+
$c9 = csegen_55()($d9 => Prelude_Types_either(() => $dc => '', () => $de => $de, $d9))(PullRequest_n__9013_2624_editorDescription($0, $1, $2, $3, $4, csegen_94(), $ca.a1, templateFilePath));
|
|
10368
10405
|
break;
|
|
10369
10406
|
}
|
|
10370
10407
|
}
|
|
@@ -10372,7 +10409,7 @@ function PullRequest_n__8548_2625_createPR($0, $1, $2, $3, $4) {
|
|
|
10372
10409
|
};
|
|
10373
10410
|
return Data_Promise_x3ex3ex3d_Monad_Promise(Util_relativeToRoot($0, '.github/PULL_REQUEST_TEMPLATE.md'), $c7);
|
|
10374
10411
|
};
|
|
10375
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($ba => ($96+Data_String_trim($ba)))(
|
|
10412
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($ba => ($96+Data_String_trim($ba)))(csegen_528()), $c1);
|
|
10376
10413
|
};
|
|
10377
10414
|
return Data_Promise_x3ex3ex3d_Monad_Promise($a6 => $a7 => $a8 => Data_Promise_liftIO_HasIO_Promise($ab => Prelude_IO_prim__putStr($96, $ab), $a6, $a7, $a8), $b2);
|
|
10378
10415
|
};
|
|
@@ -10380,7 +10417,7 @@ function PullRequest_n__8548_2625_createPR($0, $1, $2, $3, $4) {
|
|
|
10380
10417
|
};
|
|
10381
10418
|
return Data_Promise_x3ex3ex3d_Monad_Promise($87 => $88 => $89 => Data_Promise_liftIO_HasIO_Promise($8c => Prelude_IO_prim__putStr('What would you like the title to be?\n', $8c), $87, $88, $89), $93);
|
|
10382
10419
|
};
|
|
10383
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($74 => Data_String_trim($74))(
|
|
10420
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($74 => Data_String_trim($74))(csegen_528()), $79);
|
|
10384
10421
|
};
|
|
10385
10422
|
return Data_Promise_x3ex3ex3d_Monad_Promise($51 => $52 => $53 => Data_Promise_liftIO_HasIO_Promise($56 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_70(), $5e => $5e, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $4.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $56), $51, $52, $53), $6c);
|
|
10386
10423
|
};
|
|
@@ -10426,7 +10463,7 @@ function PullRequest_reviewsForPrs($0, $1, $2) {
|
|
|
10426
10463
|
};
|
|
10427
10464
|
return Data_Promise_x3ex3ex3d_Monad_Promise($18, reviews => $3f => $40 => Data_Promise_pure_Applicative_Promise(Prelude_Types_join_Monad_List(reviews), $3f, $40));
|
|
10428
10465
|
};
|
|
10429
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(
|
|
10466
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_449(), csegen_591(), Prelude_Types_traverse_Traversable_List(csegen_86(), $f => PullRequest_n__8098_1704_forkedReviews($0, $1, $2, $f), $2)), $16);
|
|
10430
10467
|
}
|
|
10431
10468
|
|
|
10432
10469
|
/* PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise (List Review) */
|
|
@@ -10456,9 +10493,9 @@ function PullRequest_reviewsByUser($0, $1, $2, $3) {
|
|
|
10456
10493
|
List PullRequest -> Promise (SortedMap String (List Review)) */
|
|
10457
10494
|
function PullRequest_reviewsByEachUser($0, $1, $2) {
|
|
10458
10495
|
const $9 = reviews => {
|
|
10459
|
-
const $a = Data_List_groupAllWith(
|
|
10496
|
+
const $a = Data_List_groupAllWith(csegen_442(), $f => $f.a2, reviews);
|
|
10460
10497
|
const $12 = csegen_116()(rs => ({a1: rs.a1.a2, a2: Data_List1_forget(rs)}))($a);
|
|
10461
|
-
return $1e => $1f => Data_Promise_pure_Applicative_Promise(Data_SortedMap_fromList(
|
|
10498
|
+
return $1e => $1f => Data_Promise_pure_Applicative_Promise(Data_SortedMap_fromList(csegen_442(), $12), $1e, $1f);
|
|
10462
10499
|
};
|
|
10463
10500
|
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_reviewsForPrs($0, $1, $2), $9);
|
|
10464
10501
|
}
|
|
@@ -10472,12 +10509,12 @@ function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5) {
|
|
|
10472
10509
|
let $27;
|
|
10473
10510
|
switch($0.a7) {
|
|
10474
10511
|
case 1: {
|
|
10475
|
-
const $2a = Reviewer_chooseReviewers(
|
|
10512
|
+
const $2a = Reviewer_chooseReviewers(csegen_442(), $e.a2, $e.a1, teamMembers, {h: 0}, $2.a4);
|
|
10476
10513
|
$27 = Reviewer_randomReviewer(csegen_94(), $2a);
|
|
10477
10514
|
break;
|
|
10478
10515
|
}
|
|
10479
10516
|
case 0: {
|
|
10480
|
-
$27 =
|
|
10517
|
+
$27 = csegen_532();
|
|
10481
10518
|
break;
|
|
10482
10519
|
}
|
|
10483
10520
|
}
|
|
@@ -10509,7 +10546,7 @@ function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5) {
|
|
|
10509
10546
|
const $5a = $5b => {
|
|
10510
10547
|
const $61 = () => {
|
|
10511
10548
|
switch(chosenUser.h) {
|
|
10512
|
-
case undefined: /* just */ return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
10549
|
+
case undefined: /* just */ return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, PullRequest_n__8323_1963_prComment($1, $5, $4, $3, $2, $0, chosenUser.a1));
|
|
10513
10550
|
case 0: /* nothing */ return csegen_68();
|
|
10514
10551
|
}
|
|
10515
10552
|
};
|
|
@@ -10533,11 +10570,11 @@ function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5) {
|
|
|
10533
10570
|
let $77;
|
|
10534
10571
|
switch($78) {
|
|
10535
10572
|
case 1: {
|
|
10536
|
-
$77 = () => $7d => $7e => $7f => Data_Promise_liftIO_HasIO_Promise($82 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('Could not pick a user from the given Team '))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('(perhaps the only option was the author of the pull request?).')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_70(), $a5 => $a5, {a1: 'Assigned ', a2: {a1:
|
|
10573
|
+
$77 = () => $7d => $7e => $7f => Data_Promise_liftIO_HasIO_Promise($82 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('Could not pick a user from the given Team '))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('(perhaps the only option was the author of the pull request?).')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_70(), $a5 => $a5, {a1: 'Assigned ', a2: {a1: PullRequest_n__8323_1962_teamNotice($1, $5, $4, $3, $2, $0, $40), a2: {a1: ' to the open PR ', a2: {h: 0}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_70(), $bd => $bd, {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}}}}))+'\n'), $82), $7d, $7e, $7f);
|
|
10537
10574
|
break;
|
|
10538
10575
|
}
|
|
10539
10576
|
case 0: {
|
|
10540
|
-
$77 = () => $ce => $cf => $d0 => Data_Promise_liftIO_HasIO_Promise($d3 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_70(), $e3 => $e3, {a1: 'Assigned ', a2: {a1:
|
|
10577
|
+
$77 = () => $ce => $cf => $d0 => Data_Promise_liftIO_HasIO_Promise($d3 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_70(), $e3 => $e3, {a1: 'Assigned ', a2: {a1: PullRequest_n__8323_1961_userNotice($1, $5, $4, $3, $2, $0, chosenUser), a2: {a1: PullRequest_n__8323_1962_teamNotice($1, $5, $4, $3, $2, $0, $40), a2: {a1: ' to the open PR ', a2: {h: 0}}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_70(), $105 => $105, {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}}))+'\n'), $d3), $ce, $cf, $d0);
|
|
10541
10578
|
break;
|
|
10542
10579
|
}
|
|
10543
10580
|
}
|
|
@@ -10601,12 +10638,12 @@ function PullRequest_listx27($0, $1) {
|
|
|
10601
10638
|
}
|
|
10602
10639
|
};
|
|
10603
10640
|
const $45 = {a1: $46, a2: a => $4e => ({h: 1 /* Right */, a1: $4e}), a3: $50};
|
|
10604
|
-
const $43 = Prelude_Types_traverse_Traversable_List($45,
|
|
10641
|
+
const $43 = Prelude_Types_traverse_Traversable_List($45, csegen_474(), prJsons);
|
|
10605
10642
|
return Data_Promise_either(csegen_72(), $43, $3f);
|
|
10606
10643
|
};
|
|
10607
10644
|
return Data_Promise_x3ex3ex3d_Monad_Promise($3e, pulls => $5f => $60 => Data_Promise_pure_Applicative_Promise(Prelude_Types_join_Monad_List(pulls), $5f, $60));
|
|
10608
10645
|
};
|
|
10609
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(
|
|
10646
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_449(), $8 => 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 => $16 => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($16), a4: elem => acc => m => $1a => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1a, funcM, init, input), a5: elem => $21 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($21), a6: a => m => $25 => f => $26 => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($25, f, $26)}, $8), Data_Pagination_traversex27(csegen_86(), $31 => $32 => $33 => $34 => PullRequest_forkedPRs($0, $31, $32, $33, $34), $1)), $3c);
|
|
10610
10647
|
}
|
|
10611
10648
|
|
|
10612
10649
|
/* PullRequest.identifyOrCreatePR : Config => Git => Octokit => {default False _ : Bool} ->
|
|
@@ -10640,11 +10677,11 @@ function PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4) {
|
|
|
10640
10677
|
const $13 = Prelude_Interfaces_when(csegen_86(), $17, () => $1c => $1d => Data_Promise_reject(csegen_62()('There is already a PR for the current branch and Harmony does not currently support converting existing PRs to drafts.'), $1c, $1d));
|
|
10641
10678
|
return Data_Promise_x3ex3ex3d_Monad_Promise($13, $26 => $27 => $28 => Data_Promise_pure_Applicative_Promise({a1: 0, a2: $f.a1}, $27, $28));
|
|
10642
10679
|
}
|
|
10643
|
-
default: return
|
|
10680
|
+
default: return csegen_722();
|
|
10644
10681
|
}
|
|
10645
10682
|
}
|
|
10646
|
-
case 0: /* nil */ return csegen_55()($34 => ({a1: 1, a2: $34}))(
|
|
10647
|
-
default: return
|
|
10683
|
+
case 0: /* nil */ return csegen_55()($34 => ({a1: 1, a2: $34}))(PullRequest_n__9013_2625_createPR($1, $2, $4, $3, $0));
|
|
10684
|
+
default: return csegen_722();
|
|
10648
10685
|
}
|
|
10649
10686
|
};
|
|
10650
10687
|
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPRsForBranch($2, $0.a2, $0.a3, $4), $e);
|
|
@@ -10652,7 +10689,7 @@ function PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4) {
|
|
|
10652
10689
|
|
|
10653
10690
|
/* PullRequest.forkedPRs : Maybe GitHubPRState -> Nat -> Nat -> Nat -> () -> Promise Future */
|
|
10654
10691
|
function PullRequest_forkedPRs($0, $1, $2, $3, $4) {
|
|
10655
|
-
return FFI_Concurrency_fork(csegen_94(), Prelude_Types_foldMap_Foldable_List(csegen_70(), $d => $d, {a1: 'pulls --json ', a2: {a1:
|
|
10692
|
+
return FFI_Concurrency_fork(csegen_94(), Prelude_Types_foldMap_Foldable_List(csegen_70(), $d => $d, {a1: 'pulls --json ', a2: {a1: PullRequest_n__7531_1169_filterString($3, $4, $2, $1, $0), a2: {a1: ' ', a2: {a1: Prelude_Show_show_Show_Nat($1), a2: {a1: ' ', a2: {a1: Prelude_Show_show_Show_Nat($2), a2: {h: 0}}}}}}}));
|
|
10656
10693
|
}
|
|
10657
10694
|
|
|
10658
10695
|
/* PullRequest.empty : PRHistory */
|
|
@@ -10735,13 +10772,13 @@ function System_Random_randomBits32($0, $1) {
|
|
|
10735
10772
|
/* Data.ReviewScore.with block in scoredReviewers,zipReviews,calc */
|
|
10736
10773
|
function Data_ReviewScore_with__scoredReviewersx2czipReviewsx2ccalc_1211($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a, $b, $c, $d, $e) {
|
|
10737
10774
|
switch($c.h) {
|
|
10738
|
-
case 0: /*
|
|
10739
|
-
case 1: /*
|
|
10775
|
+
case 0: /* 3350:1047:Add */ return ($e+$d);
|
|
10776
|
+
case 1: /* 3350:1048:Subtract */ return Prelude_Types_prim__integerToNat(($e-$d));
|
|
10740
10777
|
}
|
|
10741
10778
|
}
|
|
10742
10779
|
|
|
10743
|
-
/* Data.ReviewScore.
|
|
10744
|
-
function
|
|
10780
|
+
/* Data.ReviewScore.3350:1044:weightReviews */
|
|
10781
|
+
function Data_ReviewScore_n__3350_1044_weightReviews($0, $1, $2, $3, $4, $5) {
|
|
10745
10782
|
const $6 = Data_List_groupAllWith($0, $a => $a, $5);
|
|
10746
10783
|
const $f = xs => {
|
|
10747
10784
|
const $10 = (Prelude_Types_List_lengthTR(Data_List1_forget(xs))*$4);
|
|
@@ -10751,22 +10788,22 @@ function Data_ReviewScore_n__3348_1044_weightReviews($0, $1, $2, $3, $4, $5) {
|
|
|
10751
10788
|
return $c($6);
|
|
10752
10789
|
}
|
|
10753
10790
|
|
|
10754
|
-
/* Data.ReviewScore.
|
|
10755
|
-
function
|
|
10791
|
+
/* Data.ReviewScore.3350:1045:sort' */
|
|
10792
|
+
function Data_ReviewScore_n__3350_1045_sortx27($0, $1, $2, $3, $4) {
|
|
10756
10793
|
return Data_List_sortBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_EqOrd_compare_Ord_Integer($b, $c), $11 => $11.a3, $7, $8), $4);
|
|
10757
10794
|
}
|
|
10758
10795
|
|
|
10759
|
-
/* Data.ReviewScore.
|
|
10760
|
-
function
|
|
10796
|
+
/* Data.ReviewScore.3377:1201:calc */
|
|
10797
|
+
function Data_ReviewScore_n__3377_1201_calc($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a, $b, $c, $d) {
|
|
10761
10798
|
return Data_ReviewScore_with__scoredReviewersx2czipReviewsx2ccalc_1211(undefined, $0, $1, $2, $3, $4, $5, $6, $8, $9, $a, $b, $a, $d, $c);
|
|
10762
10799
|
}
|
|
10763
10800
|
|
|
10764
10801
|
/* Data.ReviewScore.scoredReviewers : Ord login => List login -> List login -> List login -> List (ReviewScore login) */
|
|
10765
10802
|
function Data_ReviewScore_scoredReviewers($0, $1, $2, $3) {
|
|
10766
|
-
const $4 =
|
|
10767
|
-
const $c =
|
|
10768
|
-
const $14 =
|
|
10769
|
-
return
|
|
10803
|
+
const $4 = Data_ReviewScore_n__3350_1044_weightReviews($0, $3, $2, $1, 1n, $1);
|
|
10804
|
+
const $c = Data_ReviewScore_n__3350_1044_weightReviews($0, $3, $2, $1, 4n, $2);
|
|
10805
|
+
const $14 = Data_ReviewScore_n__3350_1049_zipReviews($0, $3, $2, $1, $c, $4, {h: 1 /* 3350:1048:Subtract */, a1: $0, a2: $3, a3: $2, a4: $1}, 0);
|
|
10806
|
+
return Data_ReviewScore_n__3350_1045_sortx27($0, $3, $2, $1, Data_ReviewScore_n__3350_1049_zipReviews($0, $3, $2, $1, $14, Data_ReviewScore_n__3350_1044_weightReviews($0, $3, $2, $1, 0n, $3), {h: 0 /* 3350:1047:Add */, a1: $0, a2: $3, a3: $2, a4: $1}, 1));
|
|
10770
10807
|
}
|
|
10771
10808
|
|
|
10772
10809
|
/* Data.ReviewScore.loginScore : ReviewScore login -> (login, Nat) */
|
|
@@ -10790,8 +10827,8 @@ function Data_List_DeleteBy_deleteByx27($0, $1, $2) {
|
|
|
10790
10827
|
}
|
|
10791
10828
|
}
|
|
10792
10829
|
|
|
10793
|
-
/* FFI.Concurrency.
|
|
10794
|
-
function
|
|
10830
|
+
/* FFI.Concurrency.4431:8551:both */
|
|
10831
|
+
function FFI_Concurrency_n__4431_8551_both($0, $1, $2, $3, $4) {
|
|
10795
10832
|
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))));
|
|
10796
10833
|
}
|
|
10797
10834
|
|
|
@@ -10816,7 +10853,7 @@ function FFI_Concurrency_promiseAll($0, $1) {
|
|
|
10816
10853
|
const $36 = $37 => $38 => $39 => {
|
|
10817
10854
|
switch($37.h) {
|
|
10818
10855
|
case 4: /* JArray */ return Data_Promise_pure_Applicative_Promise($37.a1, $38, $39);
|
|
10819
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_70(), $45 => $45, {a1: csegen_62()('Expected a JSON array from futures but got '), a2: {a1: csegen_62()(Language_JSON_Data_show_Show_JSON($37)), a2:
|
|
10856
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_70(), $45 => $45, {a1: csegen_62()('Expected a JSON array from futures but got '), a2: {a1: csegen_62()(Language_JSON_Data_show_Show_JSON($37)), a2: csegen_446()}}), $38, $39);
|
|
10820
10857
|
}
|
|
10821
10858
|
};
|
|
10822
10859
|
return Data_Promise_x3ex3ex3d_Monad_Promise($21 => Data_Promise_either(csegen_72(), Data_Either_maybeToEither(() => Prelude_Types_foldMap_Foldable_List(csegen_70(), $2c => $2c, {a1: 'Failed to parse JSON from ', a2: {a1: str, a2: {h: 0}}}), Language_JSON_parse(str)), $21), $36);
|
|
@@ -10833,7 +10870,7 @@ function FFI_Concurrency_fork($0, $1) {
|
|
|
10833
10870
|
|
|
10834
10871
|
/* FFI.Concurrency.all : HasIO io => Foldable t => t Future -> io Future */
|
|
10835
10872
|
function FFI_Concurrency_all($0, $1, $2) {
|
|
10836
|
-
return $1.a1(undefined)(undefined)($c => $d =>
|
|
10873
|
+
return $1.a1(undefined)(undefined)($c => $d => FFI_Concurrency_n__4431_8551_both($0, $1, $2, $c, $d))($0.a2(undefined)($1a => FFI_Concurrency_prim__neutral($1a)))($2);
|
|
10837
10874
|
}
|
|
10838
10875
|
|
|
10839
10876
|
/* Data.SortedMap.map */
|
|
@@ -10878,7 +10915,7 @@ function Data_SortedMap_insert($0, $1, $2) {
|
|
|
10878
10915
|
|
|
10879
10916
|
/* Data.SortedMap.fromList : Ord k => List (k, v) -> SortedMap k v */
|
|
10880
10917
|
function Data_SortedMap_fromList($0, $1) {
|
|
10881
|
-
return Prelude_Basics_flip($4 => $5 => Data_SortedMap_insertFrom(
|
|
10918
|
+
return Prelude_Basics_flip($4 => $5 => Data_SortedMap_insertFrom(csegen_193(), $4, $5), Data_SortedMap_empty($0), $1);
|
|
10882
10919
|
}
|
|
10883
10920
|
|
|
10884
10921
|
/* Data.SortedMap.empty : Ord k => SortedMap k v */
|
|
@@ -10888,7 +10925,7 @@ function Data_SortedMap_empty($0) {
|
|
|
10888
10925
|
|
|
10889
10926
|
/* Data.SortedMap.Dependent.treeToList : Tree n k v o -> List (x : k ** v x) */
|
|
10890
10927
|
function Data_SortedMap_Dependent_treeToList($0) {
|
|
10891
|
-
return
|
|
10928
|
+
return Data_SortedMap_Dependent_n__6750_6807_treeToListx27($3 => ({a1: $3, a2: {h: 0}}), $0);
|
|
10892
10929
|
}
|
|
10893
10930
|
|
|
10894
10931
|
/* Data.SortedMap.Dependent.treeMap : (a x -> b x) -> Tree n k a o -> Tree n k b o */
|
|
@@ -11188,26 +11225,26 @@ function Label_addLabels($0, $1, $2, $3) {
|
|
|
11188
11225
|
return FFI_GitHub_addPullLabels($1, $0.a2, $0.a3, $2.a1, $3);
|
|
11189
11226
|
}
|
|
11190
11227
|
|
|
11191
|
-
/* Graph.
|
|
11192
|
-
function
|
|
11228
|
+
/* Graph.6229:2260:yellowDot */
|
|
11229
|
+
function Graph_n__6229_2260_yellowDot($0, $1, $2, $3, $4, $5) {
|
|
11193
11230
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
|
|
11194
11231
|
}
|
|
11195
11232
|
|
|
11196
|
-
/* Graph.
|
|
11197
|
-
function
|
|
11233
|
+
/* Graph.6229:2261:redDot */
|
|
11234
|
+
function Graph_n__6229_2261_redDot($0, $1, $2, $3, $4, $5) {
|
|
11198
11235
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(1), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
|
|
11199
11236
|
}
|
|
11200
11237
|
|
|
11201
|
-
/* Graph.
|
|
11202
|
-
function
|
|
11238
|
+
/* Graph.6229:2265:maxValue */
|
|
11239
|
+
function Graph_n__6229_2265_maxValue($0, $1, $2, $3, $4, $5, $6) {
|
|
11203
11240
|
switch($6.h) {
|
|
11204
11241
|
case 0: /* nil */ return 0n;
|
|
11205
|
-
case undefined: /* cons */ return Prelude_Types_max_Ord_Nat($6.a1.a2,
|
|
11242
|
+
case undefined: /* cons */ return Prelude_Types_max_Ord_Nat($6.a1.a2, Graph_n__6229_2265_maxValue($0, $1, $2, $3, $4, $5, $6.a2));
|
|
11206
11243
|
}
|
|
11207
11244
|
}
|
|
11208
11245
|
|
|
11209
|
-
/* Graph.
|
|
11210
|
-
function
|
|
11246
|
+
/* Graph.6229:2263:header */
|
|
11247
|
+
function Graph_n__6229_2263_header($0, $1, $2, $3, $4, $5) {
|
|
11211
11248
|
let $3e;
|
|
11212
11249
|
switch(Prelude_Types_null_Foldable_Maybe($2)) {
|
|
11213
11250
|
case 1: {
|
|
@@ -11215,44 +11252,44 @@ function Graph_n__5778_2263_header($0, $1, $2, $3, $4, $5) {
|
|
|
11215
11252
|
break;
|
|
11216
11253
|
}
|
|
11217
11254
|
case 0: {
|
|
11218
|
-
$3e = {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('1x the number of completed reviews')), Text_PrettyPrint_Prettyprinter_Symbols_parens(
|
|
11255
|
+
$3e = {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('1x the number of completed reviews')), Text_PrettyPrint_Prettyprinter_Symbols_parens(Graph_n__6229_2262_greenBox($0, $1, $2, $3, $4, $5)))};
|
|
11219
11256
|
break;
|
|
11220
11257
|
}
|
|
11221
11258
|
}
|
|
11222
|
-
const $3d = {a1: $3e, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
11223
|
-
const $29 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('1x the number of closed PRs with unanswered review requests')), Text_PrettyPrint_Prettyprinter_Symbols_parens(
|
|
11224
|
-
const $15 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('4x the number of open review requests')), Text_PrettyPrint_Prettyprinter_Symbols_parens(
|
|
11259
|
+
const $3d = {a1: $3e, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Graph_n__6229_2261_redDot($0, $1, $2, $3, $4, $5), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('overlayed on')), Graph_n__6229_2260_yellowDot($0, $1, $2, $3, $4, $5))))}, a2: csegen_755()}};
|
|
11260
|
+
const $29 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('1x the number of closed PRs with unanswered review requests')), Text_PrettyPrint_Prettyprinter_Symbols_parens(Graph_n__6229_2261_redDot($0, $1, $2, $3, $4, $5)))}, a2: $3d};
|
|
11261
|
+
const $15 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('4x the number of open review requests')), Text_PrettyPrint_Prettyprinter_Symbols_parens(Graph_n__6229_2260_yellowDot($0, $1, $2, $3, $4, $5)))}, a2: $29};
|
|
11225
11262
|
const $d = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('Weighted review workload.'))}, a2: $15};
|
|
11226
11263
|
const $9 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: $d};
|
|
11227
11264
|
const $7 = Data_List_catMaybes($9);
|
|
11228
11265
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep($7);
|
|
11229
11266
|
}
|
|
11230
11267
|
|
|
11231
|
-
/* Graph.
|
|
11232
|
-
function
|
|
11233
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('Open Pull Requests grouped by month craetaed.'))}, a2:
|
|
11268
|
+
/* Graph.5908:1932:header */
|
|
11269
|
+
function Graph_n__5908_1932_header($0) {
|
|
11270
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('Open Pull Requests grouped by month craetaed.'))}, a2: csegen_755()}}));
|
|
11234
11271
|
}
|
|
11235
11272
|
|
|
11236
|
-
/* Graph.
|
|
11237
|
-
function
|
|
11273
|
+
/* Graph.6229:2262:greenBox */
|
|
11274
|
+
function Graph_n__6229_2262_greenBox($0, $1, $2, $3, $4, $5) {
|
|
11238
11275
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25aa}'));
|
|
11239
11276
|
}
|
|
11240
11277
|
|
|
11241
|
-
/* Graph.
|
|
11242
|
-
function
|
|
11278
|
+
/* Graph.5908:1929:graphable */
|
|
11279
|
+
function Graph_n__5908_1929_graphable($0, $1) {
|
|
11243
11280
|
return {a1: $1.a1.a2, a2: (Prelude_Types_List_lengthTR($1.a2)+1n)};
|
|
11244
11281
|
}
|
|
11245
11282
|
|
|
11246
|
-
/* Graph.
|
|
11247
|
-
function
|
|
11283
|
+
/* Graph.5416:1524:countInParens */
|
|
11284
|
+
function Graph_n__5416_1524_countInParens($0, $1) {
|
|
11248
11285
|
switch(Prelude_Types_x3e_Ord_Nat($1.a2, 4n)) {
|
|
11249
11286
|
case 1: return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_70(), $11 => $11, {a1: '(', a2: {a1: Prelude_Show_show_Show_Nat($1.a2), a2: {a1: ')', a2: {h: 0}}}})));
|
|
11250
11287
|
case 0: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_112());
|
|
11251
11288
|
}
|
|
11252
11289
|
}
|
|
11253
11290
|
|
|
11254
|
-
/* Graph.
|
|
11255
|
-
function
|
|
11291
|
+
/* Graph.5416:1523:coloredLabel */
|
|
11292
|
+
function Graph_n__5416_1523_coloredLabel($0, $1) {
|
|
11256
11293
|
switch((($1.a2===0n)?1:0)) {
|
|
11257
11294
|
case 1: return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), $0.a1(undefined)($1.a1));
|
|
11258
11295
|
case 0: {
|
|
@@ -11269,8 +11306,8 @@ function Graph_n__4965_1523_coloredLabel($0, $1) {
|
|
|
11269
11306
|
}
|
|
11270
11307
|
}
|
|
11271
11308
|
|
|
11272
|
-
/* Graph.
|
|
11273
|
-
function
|
|
11309
|
+
/* Graph.6229:2264:augment */
|
|
11310
|
+
function Graph_n__6229_2264_augment($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11274
11311
|
return {a1: $7, a2: Prelude_Types_maybe(() => 0n, () => $d => $d, Data_SortedMap_lookup($7.a1, $6))};
|
|
11275
11312
|
}
|
|
11276
11313
|
|
|
@@ -11306,7 +11343,7 @@ function Graph_prettyPrec_Pretty_Date($0, $1) {
|
|
|
11306
11343
|
|
|
11307
11344
|
/* Graph.label */
|
|
11308
11345
|
function Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $1) {
|
|
11309
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
11346
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Graph_n__5416_1523_coloredLabel($0, $1), Graph_n__5416_1524_countInParens($0, $1));
|
|
11310
11347
|
}
|
|
11311
11348
|
|
|
11312
11349
|
/* Graph.label */
|
|
@@ -11345,11 +11382,11 @@ function Graph_reviewsGraph($0, $1, $2, $3, $4, $5) {
|
|
|
11345
11382
|
break;
|
|
11346
11383
|
}
|
|
11347
11384
|
case undefined: /* just */ {
|
|
11348
|
-
$15 = csegen_116()($29 =>
|
|
11385
|
+
$15 = csegen_116()($29 => Graph_n__6229_2264_augment($0, $1, $5, $4, $3, $2, $5.a1, $29))($6);
|
|
11349
11386
|
break;
|
|
11350
11387
|
}
|
|
11351
11388
|
}
|
|
11352
|
-
const $34 = Prelude_Types_maybe(() => 0n, () => $38 => $38, csegen_60()($3e =>
|
|
11389
|
+
const $34 = Prelude_Types_maybe(() => 0n, () => $38 => $38, csegen_60()($3e => Graph_n__6229_2265_maxValue($0, $1, $5, $4, $3, $2, Data_SortedMap_toList($3e)))($5));
|
|
11353
11390
|
switch($6.h) {
|
|
11354
11391
|
case 0: /* nil */ return Text_PrettyPrint_Prettyprinter_Doc_emptyDoc();
|
|
11355
11392
|
case undefined: /* cons */ {
|
|
@@ -11366,8 +11403,8 @@ function Graph_reviewsGraph($0, $1, $2, $3, $4, $5) {
|
|
|
11366
11403
|
}
|
|
11367
11404
|
}
|
|
11368
11405
|
const $65 = Graph_graph({a1: $69 => Graph_totalWidth_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $69), a2: $6e => Graph_label_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $6e), a3: $73 => Graph_score_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $73), a4: $78 => Graph_detractor_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $78), a5: $7d => Graph_bonus_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $7d)}, $81, $15);
|
|
11369
|
-
const $59 =
|
|
11370
|
-
const $56 =
|
|
11406
|
+
const $59 = csegen_491()(Graph_n__6229_2263_header($0, $1, $5, $4, $3, $2))($65);
|
|
11407
|
+
const $56 = csegen_491()($59);
|
|
11371
11408
|
return $56(Text_PrettyPrint_Prettyprinter_Doc_line());
|
|
11372
11409
|
}
|
|
11373
11410
|
}
|
|
@@ -11375,9 +11412,9 @@ function Graph_reviewsGraph($0, $1, $2, $3, $4, $5) {
|
|
|
11375
11412
|
|
|
11376
11413
|
/* Graph.healthGraph : List PullRequest -> Doc AnsiStyle */
|
|
11377
11414
|
function Graph_healthGraph($0) {
|
|
11378
|
-
const $1 = Data_List_groupBy($4 => $5 => Prelude_Basics_on($8 => $9 => Prelude_Basics_on($c => $d => (($c===$d)?1:0), $11 => $11.a2, $8, $9),
|
|
11415
|
+
const $1 = Data_List_groupBy($4 => $5 => Prelude_Basics_on($8 => $9 => Prelude_Basics_on($c => $d => (($c===$d)?1:0), $11 => $11.a2, $8, $9), csegen_607(), $4, $5), Data_List_sortBy(csegen_608(), $0));
|
|
11379
11416
|
const $1e = Prelude_Types_foldr_Foldable_List(xs => m => Prelude_Types_max_Ord_Nat(Data_List1_length(xs), m), 1n, $1);
|
|
11380
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
11417
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Graph_n__5908_1932_header($0), a2: {a1: Graph_graph({a1: $32 => Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_776(), $32), a2: $38 => Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_776(), $38), a3: $3e => Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_776(), $3e), a4: $44 => Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_776(), $44), a5: $4a => Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_776(), $4a)}, $1e, Graph_n__5908_1930_unfoldGraph($0, Data_Fuel_limit(48n), $1, {h: 0})), a2: {h: 0}}});
|
|
11381
11418
|
}
|
|
11382
11419
|
|
|
11383
11420
|
/* Graph.graphOne : Graphable g => Nat -> g -> Doc AnsiStyle */
|
|
@@ -11397,13 +11434,67 @@ function Graph_bar($0, $1, $2, $3) {
|
|
|
11397
11434
|
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(1), Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $2, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char(csegen_62()('\u{25e6}'))))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $1, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char(csegen_62()('\u{b7}'))))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $3, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char(csegen_62()('\u{25aa}'))))), a2: {h: 0}}}}));
|
|
11398
11435
|
}
|
|
11399
11436
|
|
|
11400
|
-
/* BashCompletion.
|
|
11401
|
-
function
|
|
11437
|
+
/* BashCompletion.case block in case block in unhashify */
|
|
11438
|
+
function BashCompletion_case__casex20blockx20inx20unhashify_7794($0, $1, $2) {
|
|
11439
|
+
switch($0) {
|
|
11440
|
+
case '': {
|
|
11441
|
+
switch($2.h) {
|
|
11442
|
+
case 0: /* nil */ return $1;
|
|
11443
|
+
default: {
|
|
11444
|
+
switch($2.a1) {
|
|
11445
|
+
case '#': return $2.a2;
|
|
11446
|
+
default: return $1;
|
|
11447
|
+
}
|
|
11448
|
+
}
|
|
11449
|
+
}
|
|
11450
|
+
}
|
|
11451
|
+
default: {
|
|
11452
|
+
switch($2.a1) {
|
|
11453
|
+
case '#': return $2.a2;
|
|
11454
|
+
default: return $1;
|
|
11455
|
+
}
|
|
11456
|
+
}
|
|
11457
|
+
}
|
|
11458
|
+
}
|
|
11459
|
+
|
|
11460
|
+
/* BashCompletion.case block in unhashify */
|
|
11461
|
+
function BashCompletion_case__unhashify_7774($0, $1) {
|
|
11462
|
+
switch($0) {
|
|
11463
|
+
case '': {
|
|
11464
|
+
switch($1.h) {
|
|
11465
|
+
case 0: /* nil */ return '';
|
|
11466
|
+
default: {
|
|
11467
|
+
switch($1.a1) {
|
|
11468
|
+
case '#': return $1.a2;
|
|
11469
|
+
case '\u{5c}': {
|
|
11470
|
+
const $6 = ('\u{5c}'+$1.a2);
|
|
11471
|
+
return BashCompletion_case__casex20blockx20inx20unhashify_7794($1.a2, $6, Data_String_strM($1.a2));
|
|
11472
|
+
}
|
|
11473
|
+
default: return $0;
|
|
11474
|
+
}
|
|
11475
|
+
}
|
|
11476
|
+
}
|
|
11477
|
+
}
|
|
11478
|
+
default: {
|
|
11479
|
+
switch($1.a1) {
|
|
11480
|
+
case '#': return $1.a2;
|
|
11481
|
+
case '\u{5c}': {
|
|
11482
|
+
const $11 = ('\u{5c}'+$1.a2);
|
|
11483
|
+
return BashCompletion_case__casex20blockx20inx20unhashify_7794($1.a2, $11, Data_String_strM($1.a2));
|
|
11484
|
+
}
|
|
11485
|
+
default: return $0;
|
|
11486
|
+
}
|
|
11487
|
+
}
|
|
11488
|
+
}
|
|
11489
|
+
}
|
|
11490
|
+
|
|
11491
|
+
/* BashCompletion.4506:8427:slugsOrLoginsOrLabels */
|
|
11492
|
+
function BashCompletion_n__4506_8427_slugsOrLoginsOrLabels($0, $1, $2) {
|
|
11402
11493
|
switch(Data_String_isPrefixOf('+', $1)) {
|
|
11403
11494
|
case 1: return csegen_116()($b => ('+'+$b))($2.a11);
|
|
11404
11495
|
case 0: {
|
|
11405
|
-
switch(
|
|
11406
|
-
case 1: return
|
|
11496
|
+
switch(BashCompletion_isHashPrefix($1)) {
|
|
11497
|
+
case 1: return csegen_791()($2.a10);
|
|
11407
11498
|
case 0: return $2.a9;
|
|
11408
11499
|
}
|
|
11409
11500
|
}
|
|
@@ -11415,6 +11506,11 @@ function BashCompletion_unslugify($0) {
|
|
|
11415
11506
|
return Prelude_Types_fastPack(Data_List_replaceOn(csegen_132(), '\u{25cc}', ' ', Prelude_Types_fastUnpack($0)));
|
|
11416
11507
|
}
|
|
11417
11508
|
|
|
11509
|
+
/* BashCompletion.unhashify : String -> String */
|
|
11510
|
+
function BashCompletion_unhashify($0) {
|
|
11511
|
+
return BashCompletion_case__unhashify_7774($0, Data_String_strM($0));
|
|
11512
|
+
}
|
|
11513
|
+
|
|
11418
11514
|
/* BashCompletion.slugify : String -> String */
|
|
11419
11515
|
function BashCompletion_slugify($0) {
|
|
11420
11516
|
return Prelude_Types_fastPack(Data_List_replaceOn(csegen_132(), ' ', '\u{25cc}', Prelude_Types_fastUnpack($0)));
|
|
@@ -11451,8 +11547,8 @@ function BashCompletion_opts($0, $1, $2, $3) {
|
|
|
11451
11547
|
}
|
|
11452
11548
|
case 'label': {
|
|
11453
11549
|
switch($2) {
|
|
11454
|
-
case '--': return
|
|
11455
|
-
default: return Prelude_Types_List_filterAppend({h: 0}, $24 => Data_String_isPrefixOf($2, $24),
|
|
11550
|
+
case '--': return csegen_793()($0.a10);
|
|
11551
|
+
default: return Prelude_Types_List_filterAppend({h: 0}, $24 => Data_String_isPrefixOf($2, $24), csegen_793()($0.a10));
|
|
11456
11552
|
}
|
|
11457
11553
|
}
|
|
11458
11554
|
case 'list': {
|
|
@@ -11493,7 +11589,7 @@ function BashCompletion_opts($0, $1, $2, $3) {
|
|
|
11493
11589
|
case 'graph': return {a1: '--completed', a2: $0.a9};
|
|
11494
11590
|
case '--completed': return $0.a9;
|
|
11495
11591
|
default: {
|
|
11496
|
-
switch(Data_Maybe_isJust(Data_List_find($51 => Prelude_EqOrd_x3dx3d_Eq_String($51, $3),
|
|
11592
|
+
switch(Data_Maybe_isJust(Data_List_find($51 => Prelude_EqOrd_x3dx3d_Eq_String($51, $3), csegen_794()))) {
|
|
11497
11593
|
case 1: return Prelude_Types_List_filterAppend({h: 0}, $5a => Data_String_isPrefixOf($2, $5a), $0.a9);
|
|
11498
11594
|
case 0: return {h: 0};
|
|
11499
11595
|
}
|
|
@@ -11501,13 +11597,19 @@ function BashCompletion_opts($0, $1, $2, $3) {
|
|
|
11501
11597
|
}
|
|
11502
11598
|
}
|
|
11503
11599
|
default: {
|
|
11504
|
-
switch(Data_Maybe_isJust(Data_List_find($65 => Prelude_EqOrd_x3dx3d_Eq_String($65, $3),
|
|
11600
|
+
switch(Data_Maybe_isJust(Data_List_find($65 => Prelude_EqOrd_x3dx3d_Eq_String($65, $3), csegen_794()))) {
|
|
11505
11601
|
case 1: return Prelude_Types_List_filterAppend({h: 0}, $6e => Data_String_isPrefixOf($2, $6e), $0.a9);
|
|
11506
11602
|
case 0: return {h: 0};
|
|
11507
11603
|
}
|
|
11508
11604
|
}
|
|
11509
11605
|
}
|
|
11510
11606
|
}
|
|
11607
|
+
case 'pr': {
|
|
11608
|
+
switch(BashCompletion_isHashPrefix($2)) {
|
|
11609
|
+
case 1: return csegen_791()($0.a10);
|
|
11610
|
+
case 0: return {h: 0};
|
|
11611
|
+
}
|
|
11612
|
+
}
|
|
11511
11613
|
case 'assign': {
|
|
11512
11614
|
switch($2) {
|
|
11513
11615
|
case '--': {
|
|
@@ -11519,7 +11621,7 @@ function BashCompletion_opts($0, $1, $2, $3) {
|
|
|
11519
11621
|
default: {
|
|
11520
11622
|
switch(Data_String_isPrefixOf($2, '--dry')) {
|
|
11521
11623
|
case 1: return {a1: '--dry', a2: {h: 0}};
|
|
11522
|
-
case 0: return
|
|
11624
|
+
case 0: return BashCompletion_n__4506_8427_slugsOrLoginsOrLabels($3, $2, $0);
|
|
11523
11625
|
}
|
|
11524
11626
|
}
|
|
11525
11627
|
}
|
|
@@ -11528,6 +11630,19 @@ function BashCompletion_opts($0, $1, $2, $3) {
|
|
|
11528
11630
|
}
|
|
11529
11631
|
}
|
|
11530
11632
|
|
|
11633
|
+
/* BashCompletion.isHashPrefix : String -> Bool */
|
|
11634
|
+
function BashCompletion_isHashPrefix($0) {
|
|
11635
|
+
switch(Data_String_isPrefixOf('#', $0)) {
|
|
11636
|
+
case 1: return 1;
|
|
11637
|
+
case 0: return Data_String_isPrefixOf('\u{5c}#', $0);
|
|
11638
|
+
}
|
|
11639
|
+
}
|
|
11640
|
+
|
|
11641
|
+
/* BashCompletion.hashify : String -> String */
|
|
11642
|
+
function BashCompletion_hashify($0) {
|
|
11643
|
+
return ('#'+$0);
|
|
11644
|
+
}
|
|
11645
|
+
|
|
11531
11646
|
/* BashCompletion.cmdOpts : String -> String -> String -> Maybe (List String) */
|
|
11532
11647
|
function BashCompletion_cmdOpts($0, $1, $2) {
|
|
11533
11648
|
switch($1) {
|
|
@@ -11555,7 +11670,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
11555
11670
|
case 'pr': {
|
|
11556
11671
|
switch(Data_String_isPrefixOf($1, '--draft')) {
|
|
11557
11672
|
case 1: return {a1: {a1: '--draft', a2: {h: 0}}};
|
|
11558
|
-
case 0:
|
|
11673
|
+
case 0: {
|
|
11674
|
+
switch(BashCompletion_isHashPrefix($1)) {
|
|
11675
|
+
case 1: return {h: 0};
|
|
11676
|
+
case 0: return {a1: {h: 0}};
|
|
11677
|
+
}
|
|
11678
|
+
}
|
|
11559
11679
|
}
|
|
11560
11680
|
}
|
|
11561
11681
|
default: return {h: 0};
|
|
@@ -11571,7 +11691,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
11571
11691
|
case 'pr': {
|
|
11572
11692
|
switch(Data_String_isPrefixOf($1, '--draft')) {
|
|
11573
11693
|
case 1: return {a1: {a1: '--draft', a2: {h: 0}}};
|
|
11574
|
-
case 0:
|
|
11694
|
+
case 0: {
|
|
11695
|
+
switch(BashCompletion_isHashPrefix($1)) {
|
|
11696
|
+
case 1: return {h: 0};
|
|
11697
|
+
case 0: return {a1: {h: 0}};
|
|
11698
|
+
}
|
|
11699
|
+
}
|
|
11575
11700
|
}
|
|
11576
11701
|
}
|
|
11577
11702
|
default: return {h: 0};
|
|
@@ -11584,7 +11709,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
11584
11709
|
case 'pr': {
|
|
11585
11710
|
switch(Data_String_isPrefixOf($1, '--draft')) {
|
|
11586
11711
|
case 1: return {a1: {a1: '--draft', a2: {h: 0}}};
|
|
11587
|
-
case 0:
|
|
11712
|
+
case 0: {
|
|
11713
|
+
switch(BashCompletion_isHashPrefix($1)) {
|
|
11714
|
+
case 1: return {h: 0};
|
|
11715
|
+
case 0: return {a1: {h: 0}};
|
|
11716
|
+
}
|
|
11717
|
+
}
|
|
11588
11718
|
}
|
|
11589
11719
|
}
|
|
11590
11720
|
default: return {h: 0};
|
|
@@ -11594,8 +11724,8 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
11594
11724
|
}
|
|
11595
11725
|
case 'contribute': {
|
|
11596
11726
|
switch($1) {
|
|
11597
|
-
case '-': return
|
|
11598
|
-
case '--': return
|
|
11727
|
+
case '-': return csegen_796();
|
|
11728
|
+
case '--': return csegen_796();
|
|
11599
11729
|
default: {
|
|
11600
11730
|
switch(Data_String_isPrefixOf($1, '--checkout')) {
|
|
11601
11731
|
case 1: return {a1: {a1: '--checkout', a2: {h: 0}}};
|
|
@@ -11607,7 +11737,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
11607
11737
|
case 'graph': {
|
|
11608
11738
|
switch($1) {
|
|
11609
11739
|
case '--': return {h: 0};
|
|
11610
|
-
case '-': return
|
|
11740
|
+
case '-': return csegen_798();
|
|
11611
11741
|
default: {
|
|
11612
11742
|
switch(Data_String_isPrefixOf($1, '--completed')) {
|
|
11613
11743
|
case 1: return {a1: {a1: '--completed', a2: {h: 0}}};
|
|
@@ -11625,7 +11755,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
11625
11755
|
}
|
|
11626
11756
|
default: {
|
|
11627
11757
|
switch($2) {
|
|
11628
|
-
case 'harmony': return {a1: Prelude_Types_List_filterAppend({h: 0}, $
|
|
11758
|
+
case 'harmony': return {a1: Prelude_Types_List_filterAppend({h: 0}, $5f => Data_String_isPrefixOf($1, $5f), BashCompletion_allRootCmds())};
|
|
11629
11759
|
default: {
|
|
11630
11760
|
switch($0) {
|
|
11631
11761
|
case 'sync': return {a1: {h: 0}};
|
|
@@ -11644,7 +11774,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
11644
11774
|
case 'pr': {
|
|
11645
11775
|
switch(Data_String_isPrefixOf($1, '--draft')) {
|
|
11646
11776
|
case 1: return {a1: {a1: '--draft', a2: {h: 0}}};
|
|
11647
|
-
case 0:
|
|
11777
|
+
case 0: {
|
|
11778
|
+
switch(BashCompletion_isHashPrefix($1)) {
|
|
11779
|
+
case 1: return {h: 0};
|
|
11780
|
+
case 0: return {a1: {h: 0}};
|
|
11781
|
+
}
|
|
11782
|
+
}
|
|
11648
11783
|
}
|
|
11649
11784
|
}
|
|
11650
11785
|
default: return {h: 0};
|
|
@@ -11660,7 +11795,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
11660
11795
|
case 'pr': {
|
|
11661
11796
|
switch(Data_String_isPrefixOf($1, '--draft')) {
|
|
11662
11797
|
case 1: return {a1: {a1: '--draft', a2: {h: 0}}};
|
|
11663
|
-
case 0:
|
|
11798
|
+
case 0: {
|
|
11799
|
+
switch(BashCompletion_isHashPrefix($1)) {
|
|
11800
|
+
case 1: return {h: 0};
|
|
11801
|
+
case 0: return {a1: {h: 0}};
|
|
11802
|
+
}
|
|
11803
|
+
}
|
|
11664
11804
|
}
|
|
11665
11805
|
}
|
|
11666
11806
|
default: return {h: 0};
|
|
@@ -11673,7 +11813,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
11673
11813
|
case 'pr': {
|
|
11674
11814
|
switch(Data_String_isPrefixOf($1, '--draft')) {
|
|
11675
11815
|
case 1: return {a1: {a1: '--draft', a2: {h: 0}}};
|
|
11676
|
-
case 0:
|
|
11816
|
+
case 0: {
|
|
11817
|
+
switch(BashCompletion_isHashPrefix($1)) {
|
|
11818
|
+
case 1: return {h: 0};
|
|
11819
|
+
case 0: return {a1: {h: 0}};
|
|
11820
|
+
}
|
|
11821
|
+
}
|
|
11677
11822
|
}
|
|
11678
11823
|
}
|
|
11679
11824
|
default: return {h: 0};
|
|
@@ -11683,8 +11828,8 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
11683
11828
|
}
|
|
11684
11829
|
case 'contribute': {
|
|
11685
11830
|
switch($1) {
|
|
11686
|
-
case '-': return
|
|
11687
|
-
case '--': return
|
|
11831
|
+
case '-': return csegen_796();
|
|
11832
|
+
case '--': return csegen_796();
|
|
11688
11833
|
default: {
|
|
11689
11834
|
switch(Data_String_isPrefixOf($1, '--checkout')) {
|
|
11690
11835
|
case 1: return {a1: {a1: '--checkout', a2: {h: 0}}};
|
|
@@ -11696,7 +11841,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
11696
11841
|
case 'graph': {
|
|
11697
11842
|
switch($1) {
|
|
11698
11843
|
case '--': return {h: 0};
|
|
11699
|
-
case '-': return
|
|
11844
|
+
case '-': return csegen_798();
|
|
11700
11845
|
default: {
|
|
11701
11846
|
switch(Data_String_isPrefixOf($1, '--completed')) {
|
|
11702
11847
|
case 1: return {a1: {a1: '--completed', a2: {h: 0}}};
|
|
@@ -11725,7 +11870,7 @@ function AppVersion_printVersion($0) {
|
|
|
11725
11870
|
|
|
11726
11871
|
/* AppVersion.appVersion : String */
|
|
11727
11872
|
const AppVersion_appVersion = __lazy(function () {
|
|
11728
|
-
return '2.
|
|
11873
|
+
return '2.4.1';
|
|
11729
11874
|
});
|
|
11730
11875
|
|
|
11731
11876
|
|