@mattpolzin/harmony 3.1.0 → 3.2.0
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- package/harmony +456 -390
- package/package.json +1 -1
package/harmony
CHANGED
|
@@ -734,7 +734,8 @@ function support_system_file_popen (cmd, m) {
|
|
|
734
734
|
case "r":
|
|
735
735
|
io_setting = ['ignore', write_fd, 2]
|
|
736
736
|
break
|
|
737
|
-
case "w"
|
|
737
|
+
case "w":
|
|
738
|
+
case "a":
|
|
738
739
|
io_setting = [write_fd, 'ignore', 2]
|
|
739
740
|
break
|
|
740
741
|
default:
|
|
@@ -870,7 +871,7 @@ function x24tcOpt_1($0) {
|
|
|
870
871
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
871
872
|
default: {
|
|
872
873
|
const $17 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
873
|
-
const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($22 => $23 => $0.a1.a1.a1($22)($23),
|
|
874
|
+
const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($22 => $23 => $0.a1.a1.a1($22)($23), csegen_492(), $1e, $1f), $17, $0.a6);
|
|
874
875
|
switch($1b.a1.h) {
|
|
875
876
|
case 0: /* nothing */ {
|
|
876
877
|
switch($0.a8) {
|
|
@@ -885,7 +886,7 @@ function x24tcOpt_1($0) {
|
|
|
885
886
|
}
|
|
886
887
|
default: {
|
|
887
888
|
const $6a = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
888
|
-
const $6e = Data_List_DeleteBy_deleteByx27($71 => $72 => Prelude_Basics_on($75 => $76 => $0.a1.a1.a1($75)($76),
|
|
889
|
+
const $6e = Data_List_DeleteBy_deleteByx27($71 => $72 => Prelude_Basics_on($75 => $76 => $0.a1.a1.a1($75)($76), csegen_492(), $71, $72), $6a, $0.a6);
|
|
889
890
|
switch($6e.a1.h) {
|
|
890
891
|
case 0: /* nothing */ {
|
|
891
892
|
switch($0.a8) {
|
|
@@ -910,7 +911,7 @@ function x24tcOpt_1($0) {
|
|
|
910
911
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
911
912
|
default: {
|
|
912
913
|
const $c1 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
913
|
-
const $c5 = Data_List_DeleteBy_deleteByx27($c8 => $c9 => Prelude_Basics_on($cc => $cd => $0.a1.a1.a1($cc)($cd),
|
|
914
|
+
const $c5 = Data_List_DeleteBy_deleteByx27($c8 => $c9 => Prelude_Basics_on($cc => $cd => $0.a1.a1.a1($cc)($cd), csegen_492(), $c8, $c9), $c1, $0.a6);
|
|
914
915
|
switch($c5.a1.h) {
|
|
915
916
|
case 0: /* nothing */ {
|
|
916
917
|
switch($0.a8) {
|
|
@@ -925,7 +926,7 @@ function x24tcOpt_1($0) {
|
|
|
925
926
|
}
|
|
926
927
|
default: {
|
|
927
928
|
const $114 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
928
|
-
const $118 = Data_List_DeleteBy_deleteByx27($11b => $11c => Prelude_Basics_on($11f => $120 => $0.a1.a1.a1($11f)($120),
|
|
929
|
+
const $118 = Data_List_DeleteBy_deleteByx27($11b => $11c => Prelude_Basics_on($11f => $120 => $0.a1.a1.a1($11f)($120), csegen_492(), $11b, $11c), $114, $0.a6);
|
|
929
930
|
switch($118.a1.h) {
|
|
930
931
|
case 0: /* nothing */ {
|
|
931
932
|
switch($0.a8) {
|
|
@@ -990,7 +991,7 @@ function Prelude_Show_n__3221_12652_showx27($0, $1, $2, $3) {
|
|
|
990
991
|
/* {$tcOpt:4} */
|
|
991
992
|
function x24tcOpt_4($0) {
|
|
992
993
|
switch($0.h) {
|
|
993
|
-
case 1: /* {TcContinue4:1} */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4(), a5: $0.a8, a6: {a1: {a1: $0.a5.a2, a2: {a1:
|
|
994
|
+
case 1: /* {TcContinue4:1} */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4(), a5: $0.a8, a6: {a1: {a1: $0.a5.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a7), a2: Data_List1_forget($0.a10)}}}};
|
|
994
995
|
case 2: /* {TcContinue4:2} */ {
|
|
995
996
|
switch($0.a4.h) {
|
|
996
997
|
case 0: /* nothing */ {
|
|
@@ -1009,7 +1010,7 @@ function x24tcOpt_4($0) {
|
|
|
1009
1010
|
case undefined: /* cons */ return {h: 0 /* {TcDone:4} */, a1: Data_List1_forget($0.a6.a1.a2)};
|
|
1010
1011
|
default: {
|
|
1011
1012
|
switch($0.a6.h) {
|
|
1012
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1:
|
|
1013
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
|
|
1013
1014
|
case undefined: /* just */ {
|
|
1014
1015
|
const $3b = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2};
|
|
1015
1016
|
switch(((Data_Date_nextMonth($0.a6.a1.a1.a2)===$0.a5.a1.a1.a2.a2)?1:0)) {
|
|
@@ -1023,7 +1024,7 @@ function x24tcOpt_4($0) {
|
|
|
1023
1024
|
}
|
|
1024
1025
|
default: {
|
|
1025
1026
|
switch($0.a6.h) {
|
|
1026
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1:
|
|
1027
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
|
|
1027
1028
|
case undefined: /* just */ {
|
|
1028
1029
|
const $71 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2};
|
|
1029
1030
|
switch(((Data_Date_nextMonth($0.a6.a1.a1.a2)===$0.a5.a1.a1.a2.a2)?1:0)) {
|
|
@@ -1037,7 +1038,7 @@ function x24tcOpt_4($0) {
|
|
|
1037
1038
|
}
|
|
1038
1039
|
default: {
|
|
1039
1040
|
switch($0.a6.h) {
|
|
1040
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1:
|
|
1041
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
|
|
1041
1042
|
case undefined: /* just */ {
|
|
1042
1043
|
const $a7 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2};
|
|
1043
1044
|
switch(((Data_Date_nextMonth($0.a6.a1.a1.a2)===$0.a5.a1.a1.a2.a2)?1:0)) {
|
|
@@ -1061,7 +1062,7 @@ function x24tcOpt_4($0) {
|
|
|
1061
1062
|
case undefined: /* cons */ return {h: 0 /* {TcDone:4} */, a1: Data_List1_forget($0.a6.a1.a2)};
|
|
1062
1063
|
default: {
|
|
1063
1064
|
switch($0.a6.h) {
|
|
1064
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1:
|
|
1065
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
|
|
1065
1066
|
case undefined: /* just */ {
|
|
1066
1067
|
const $e4 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2};
|
|
1067
1068
|
switch(((Data_Date_nextMonth($0.a6.a1.a1.a2)===$0.a5.a1.a1.a2.a2)?1:0)) {
|
|
@@ -1075,7 +1076,7 @@ function x24tcOpt_4($0) {
|
|
|
1075
1076
|
}
|
|
1076
1077
|
default: {
|
|
1077
1078
|
switch($0.a6.h) {
|
|
1078
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1:
|
|
1079
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
|
|
1079
1080
|
case undefined: /* just */ {
|
|
1080
1081
|
const $11a = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2};
|
|
1081
1082
|
switch(((Data_Date_nextMonth($0.a6.a1.a1.a2)===$0.a5.a1.a1.a2.a2)?1:0)) {
|
|
@@ -1089,7 +1090,7 @@ function x24tcOpt_4($0) {
|
|
|
1089
1090
|
}
|
|
1090
1091
|
default: {
|
|
1091
1092
|
switch($0.a6.h) {
|
|
1092
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1:
|
|
1093
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
|
|
1093
1094
|
case undefined: /* just */ {
|
|
1094
1095
|
const $150 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2};
|
|
1095
1096
|
switch(((Data_Date_nextMonth($0.a6.a1.a1.a2)===$0.a5.a1.a1.a2.a2)?1:0)) {
|
|
@@ -1113,7 +1114,7 @@ function x24tcOpt_4($0) {
|
|
|
1113
1114
|
case undefined: /* cons */ return {h: 0 /* {TcDone:4} */, a1: Data_List1_forget($0.a6.a1.a2)};
|
|
1114
1115
|
default: {
|
|
1115
1116
|
switch($0.a6.h) {
|
|
1116
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1:
|
|
1117
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
|
|
1117
1118
|
case undefined: /* just */ {
|
|
1118
1119
|
const $18d = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2};
|
|
1119
1120
|
switch(((Data_Date_nextMonth($0.a6.a1.a1.a2)===$0.a5.a1.a1.a2.a2)?1:0)) {
|
|
@@ -1127,7 +1128,7 @@ function x24tcOpt_4($0) {
|
|
|
1127
1128
|
}
|
|
1128
1129
|
default: {
|
|
1129
1130
|
switch($0.a6.h) {
|
|
1130
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1:
|
|
1131
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
|
|
1131
1132
|
case undefined: /* just */ {
|
|
1132
1133
|
const $1c3 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2};
|
|
1133
1134
|
switch(((Data_Date_nextMonth($0.a6.a1.a1.a2)===$0.a5.a1.a1.a2.a2)?1:0)) {
|
|
@@ -1141,7 +1142,7 @@ function x24tcOpt_4($0) {
|
|
|
1141
1142
|
}
|
|
1142
1143
|
default: {
|
|
1143
1144
|
switch($0.a6.h) {
|
|
1144
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1:
|
|
1145
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
|
|
1145
1146
|
case undefined: /* just */ {
|
|
1146
1147
|
const $1f9 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2};
|
|
1147
1148
|
switch(((Data_Date_nextMonth($0.a6.a1.a1.a2)===$0.a5.a1.a1.a2.a2)?1:0)) {
|
|
@@ -1163,18 +1164,18 @@ function x24tcOpt_4($0) {
|
|
|
1163
1164
|
}
|
|
1164
1165
|
}
|
|
1165
1166
|
|
|
1166
|
-
/* Graph.
|
|
1167
|
-
function
|
|
1167
|
+
/* Graph.5969:6357:insertNext */
|
|
1168
|
+
function Graph_n__5969_6357_insertNext($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
1168
1169
|
return __tailRec(x24tcOpt_4, {h: 1 /* {TcContinue4:1} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6, a8: $7, a9: $8, a10: $9});
|
|
1169
1170
|
}
|
|
1170
1171
|
|
|
1171
|
-
/* Graph.
|
|
1172
|
-
function
|
|
1172
|
+
/* Graph.5952:6231:unfoldGraph */
|
|
1173
|
+
function Graph_n__5952_6231_unfoldGraph($0, $1, $2, $3, $4, $5) {
|
|
1173
1174
|
return __tailRec(x24tcOpt_4, {h: 2 /* {TcContinue4:2} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5});
|
|
1174
1175
|
}
|
|
1175
1176
|
|
|
1176
|
-
/* Graph.
|
|
1177
|
-
function
|
|
1177
|
+
/* Graph.5969:6358:insertPlaceholder */
|
|
1178
|
+
function Graph_n__5969_6358_insertPlaceholder($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
1178
1179
|
return __tailRec(x24tcOpt_4, {h: 3 /* {TcContinue4:3} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6, a8: $7, a9: $8, a10: $9});
|
|
1179
1180
|
}
|
|
1180
1181
|
|
|
@@ -1498,19 +1499,19 @@ function x24tcOpt_14($0) {
|
|
|
1498
1499
|
switch($0.a7.a2.a1.a1.a1) {
|
|
1499
1500
|
case ',': return {h: 1 /* {TcContinue14:1} */, a1: $0.a6, a2: {a1: $0.a5, a2: {a1: $0.a3, a2: $0.a7.a1}}, a3: $0.a7.a2.a2};
|
|
1500
1501
|
case '}': return {h: 0 /* {TcDone:14} */, a1: {h: 0 /* Succ0 */, a1: {h: 6 /* JObject */, a1: Prelude_Types_SnocList_x3cx3ex3e($0.a5, {a1: {a1: $0.a3, a2: $0.a7.a1}, a2: {h: 0}})}, a2: $0.a7.a2.a2}};
|
|
1501
|
-
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'},
|
|
1502
|
+
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_224(), $0.a7)};
|
|
1502
1503
|
}
|
|
1503
1504
|
}
|
|
1504
|
-
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'},
|
|
1505
|
+
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_224(), $0.a7)};
|
|
1505
1506
|
}
|
|
1506
1507
|
}
|
|
1507
|
-
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'},
|
|
1508
|
+
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_224(), $0.a7)};
|
|
1508
1509
|
}
|
|
1509
1510
|
}
|
|
1510
|
-
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'},
|
|
1511
|
+
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_224(), $0.a7)};
|
|
1511
1512
|
}
|
|
1512
1513
|
}
|
|
1513
|
-
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'},
|
|
1514
|
+
default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_224(), $0.a7)};
|
|
1514
1515
|
}
|
|
1515
1516
|
}
|
|
1516
1517
|
}
|
|
@@ -1531,7 +1532,7 @@ function x24tcOpt_15($0) {
|
|
|
1531
1532
|
switch($0.a3.h) {
|
|
1532
1533
|
case 0: /* nil */ return {h: 0 /* {TcDone:15} */, a1: {h: 0}};
|
|
1533
1534
|
case undefined: /* cons */ {
|
|
1534
|
-
switch(Prelude_Types_elemBy(
|
|
1535
|
+
switch(Prelude_Types_elemBy(csegen_144(), $0.a2, $0.a3.a1, $0.a1)) {
|
|
1535
1536
|
case 1: return {h: 1 /* {TcContinue15:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3.a2};
|
|
1536
1537
|
case 0: return {h: 0 /* {TcDone:15} */, a1: {a1: $0.a3.a1, a2: Data_List_n__4927_5480_nubByx27({a1: $0.a3.a1, a2: $0.a1}, $0.a2, $0.a3.a2)}};
|
|
1537
1538
|
}
|
|
@@ -2107,39 +2108,39 @@ function Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29($0, $1, $2) {
|
|
|
2107
2108
|
|
|
2108
2109
|
/* {$tcOpt:40} */
|
|
2109
2110
|
function x24tcOpt_40($0) {
|
|
2110
|
-
switch($0.
|
|
2111
|
-
case
|
|
2112
|
-
|
|
2113
|
-
|
|
2114
|
-
|
|
2115
|
-
case 0:
|
|
2116
|
-
case undefined: /* cons */ return {h: 1 /* {TcContinue40:1} */, a1: $4, a2: $0.a2.a2};
|
|
2111
|
+
switch($0.a2.h) {
|
|
2112
|
+
case 0: /* nil */ return {h: 0 /* {TcDone:40} */, a1: {h: 0}};
|
|
2113
|
+
case undefined: /* cons */ {
|
|
2114
|
+
switch($0.a1($0.a2.a1)) {
|
|
2115
|
+
case 1: return {h: 1 /* {TcContinue40:1} */, a1: $0.a1, a2: $0.a2.a2};
|
|
2116
|
+
case 0: return {h: 0 /* {TcDone:40} */, a1: {a1: $0.a2.a1, a2: $0.a2.a2}};
|
|
2117
2117
|
}
|
|
2118
2118
|
}
|
|
2119
2119
|
}
|
|
2120
2120
|
}
|
|
2121
2121
|
|
|
2122
|
-
/* Data.List.
|
|
2123
|
-
function
|
|
2122
|
+
/* Data.List.dropWhile : (a -> Bool) -> List a -> List a */
|
|
2123
|
+
function Data_List_dropWhile($0, $1) {
|
|
2124
2124
|
return __tailRec(x24tcOpt_40, {h: 1 /* {TcContinue40:1} */, a1: $0, a2: $1});
|
|
2125
2125
|
}
|
|
2126
2126
|
|
|
2127
2127
|
/* {$tcOpt:41} */
|
|
2128
2128
|
function x24tcOpt_41($0) {
|
|
2129
|
-
switch($0.
|
|
2130
|
-
case
|
|
2131
|
-
|
|
2132
|
-
|
|
2133
|
-
|
|
2129
|
+
switch($0.a1) {
|
|
2130
|
+
case 0n: return {h: 0 /* {TcDone:41} */, a1: $0.a2};
|
|
2131
|
+
default: {
|
|
2132
|
+
const $4 = ($0.a1-1n);
|
|
2133
|
+
switch($0.a2.h) {
|
|
2134
|
+
case 0: /* nil */ return {h: 0 /* {TcDone:41} */, a1: {h: 0}};
|
|
2135
|
+
case undefined: /* cons */ return {h: 1 /* {TcContinue41:1} */, a1: $4, a2: $0.a2.a2};
|
|
2134
2136
|
}
|
|
2135
2137
|
}
|
|
2136
|
-
case 0: /* nil */ return {h: 0 /* {TcDone:41} */, a1: {h: 0 /* Succ */, a1: $0.a2, a2: {h: 0}, a3: $0.a4}};
|
|
2137
2138
|
}
|
|
2138
2139
|
}
|
|
2139
2140
|
|
|
2140
|
-
/*
|
|
2141
|
-
function
|
|
2142
|
-
return __tailRec(x24tcOpt_41, {h: 1 /* {TcContinue41:1} */, a1: $0, a2: $1
|
|
2141
|
+
/* Data.List.drop : Nat -> List a -> List a */
|
|
2142
|
+
function Data_List_drop($0, $1) {
|
|
2143
|
+
return __tailRec(x24tcOpt_41, {h: 1 /* {TcContinue41:1} */, a1: $0, a2: $1});
|
|
2143
2144
|
}
|
|
2144
2145
|
|
|
2145
2146
|
/* {$tcOpt:42} */
|
|
@@ -2148,15 +2149,15 @@ function x24tcOpt_42($0) {
|
|
|
2148
2149
|
case undefined: /* cons */ {
|
|
2149
2150
|
switch(Prelude_Types_isDigit($0.a3.a1)) {
|
|
2150
2151
|
case 1: return {h: 1 /* {TcContinue42:1} */, a1: $0.a1, a2: {a1: $0.a2, a2: $0.a3.a1}, a3: $0.a3.a2, a4: ($0.a4+1n)};
|
|
2151
|
-
case 0: return {h: 0 /* {TcDone:42} */, a1:
|
|
2152
|
+
case 0: return {h: 0 /* {TcDone:42} */, a1: Text_Lex_Shift_rest($0.a1, $0.a2, {a1: $0.a3.a1, a2: $0.a3.a2}, $0.a4)};
|
|
2152
2153
|
}
|
|
2153
2154
|
}
|
|
2154
2155
|
case 0: /* nil */ return {h: 0 /* {TcDone:42} */, a1: {h: 0 /* Succ */, a1: $0.a2, a2: {h: 0}, a3: $0.a4}};
|
|
2155
2156
|
}
|
|
2156
2157
|
}
|
|
2157
2158
|
|
|
2158
|
-
/* Text.Lex.Shift.
|
|
2159
|
-
function
|
|
2159
|
+
/* Text.Lex.Shift.digs : AutoShift False */
|
|
2160
|
+
function Text_Lex_Shift_digs($0, $1, $2, $3) {
|
|
2160
2161
|
return __tailRec(x24tcOpt_42, {h: 1 /* {TcContinue42:1} */, a1: $0, a2: $1, a3: $2, a4: $3});
|
|
2161
2162
|
}
|
|
2162
2163
|
|
|
@@ -2166,54 +2167,72 @@ function x24tcOpt_43($0) {
|
|
|
2166
2167
|
case undefined: /* cons */ {
|
|
2167
2168
|
switch(Prelude_Types_isDigit($0.a3.a1)) {
|
|
2168
2169
|
case 1: return {h: 1 /* {TcContinue43:1} */, a1: $0.a1, a2: {a1: $0.a2, a2: $0.a3.a1}, a3: $0.a3.a2, a4: ($0.a4+1n)};
|
|
2169
|
-
case 0: return {h: 0 /* {TcDone:43} */, a1:
|
|
2170
|
+
case 0: return {h: 0 /* {TcDone:43} */, a1: Text_Lex_Shift_exp($0.a1, $0.a2, {a1: $0.a3.a1, a2: $0.a3.a2}, $0.a4)};
|
|
2170
2171
|
}
|
|
2171
2172
|
}
|
|
2172
2173
|
case 0: /* nil */ return {h: 0 /* {TcDone:43} */, a1: {h: 0 /* Succ */, a1: $0.a2, a2: {h: 0}, a3: $0.a4}};
|
|
2173
2174
|
}
|
|
2174
2175
|
}
|
|
2175
2176
|
|
|
2176
|
-
/* Text.Lex.Shift.
|
|
2177
|
-
function
|
|
2177
|
+
/* Text.Lex.Shift.dot : AutoShift False */
|
|
2178
|
+
function Text_Lex_Shift_dot($0, $1, $2, $3) {
|
|
2178
2179
|
return __tailRec(x24tcOpt_43, {h: 1 /* {TcContinue43:1} */, a1: $0, a2: $1, a3: $2, a4: $3});
|
|
2179
2180
|
}
|
|
2180
2181
|
|
|
2181
2182
|
/* {$tcOpt:44} */
|
|
2182
2183
|
function x24tcOpt_44($0) {
|
|
2184
|
+
switch($0.a3.h) {
|
|
2185
|
+
case undefined: /* cons */ {
|
|
2186
|
+
switch(Prelude_Types_isDigit($0.a3.a1)) {
|
|
2187
|
+
case 1: return {h: 1 /* {TcContinue44:1} */, a1: $0.a1, a2: {a1: $0.a2, a2: $0.a3.a1}, a3: $0.a3.a2, a4: ($0.a4+1n)};
|
|
2188
|
+
case 0: return {h: 0 /* {TcDone:44} */, a1: {h: 0 /* Succ */, a1: $0.a2, a2: {a1: $0.a3.a1, a2: $0.a3.a2}, a3: $0.a4}};
|
|
2189
|
+
}
|
|
2190
|
+
}
|
|
2191
|
+
case 0: /* nil */ return {h: 0 /* {TcDone:44} */, a1: {h: 0 /* Succ */, a1: $0.a2, a2: {h: 0}, a3: $0.a4}};
|
|
2192
|
+
}
|
|
2193
|
+
}
|
|
2194
|
+
|
|
2195
|
+
/* Text.Lex.Shift.digits : AutoShift False */
|
|
2196
|
+
function Text_Lex_Shift_digits($0, $1, $2, $3) {
|
|
2197
|
+
return __tailRec(x24tcOpt_44, {h: 1 /* {TcContinue44:1} */, a1: $0, a2: $1, a3: $2, a4: $3});
|
|
2198
|
+
}
|
|
2199
|
+
|
|
2200
|
+
/* {$tcOpt:45} */
|
|
2201
|
+
function x24tcOpt_45($0) {
|
|
2183
2202
|
switch($0.a2.h) {
|
|
2184
|
-
case 0: /* nil */ return {h: 0 /* {TcDone:
|
|
2185
|
-
case undefined: /* cons */ return {h: 1 /* {
|
|
2203
|
+
case 0: /* nil */ return {h: 0 /* {TcDone:45} */, a1: $0.a1};
|
|
2204
|
+
case undefined: /* cons */ return {h: 1 /* {TcContinue45:1} */, a1: {a1: $0.a2.a1, a2: $0.a1}, a2: $0.a2.a2};
|
|
2186
2205
|
}
|
|
2187
2206
|
}
|
|
2188
2207
|
|
|
2189
2208
|
/* Prelude.Types.List.reverseOnto : List a -> List a -> List a */
|
|
2190
2209
|
function Prelude_Types_List_reverseOnto($0, $1) {
|
|
2191
|
-
return __tailRec(
|
|
2210
|
+
return __tailRec(x24tcOpt_45, {h: 1 /* {TcContinue45:1} */, a1: $0, a2: $1});
|
|
2192
2211
|
}
|
|
2193
2212
|
|
|
2194
|
-
/* {$tcOpt:
|
|
2195
|
-
function
|
|
2213
|
+
/* {$tcOpt:46} */
|
|
2214
|
+
function x24tcOpt_46($0) {
|
|
2196
2215
|
switch($0.a3.h) {
|
|
2197
2216
|
case undefined: /* cons */ {
|
|
2198
2217
|
const $3 = $0.a2($0.a3.a1);
|
|
2199
2218
|
switch($3.h) {
|
|
2200
|
-
case undefined: /* just */ return {h: 1 /* {
|
|
2201
|
-
case 0: /* nothing */ return {h: 1 /* {
|
|
2219
|
+
case undefined: /* just */ return {h: 1 /* {TcContinue46:1} */, a1: {a1: $0.a1, a2: $3.a1}, a2: $0.a2, a3: $0.a3.a2};
|
|
2220
|
+
case 0: /* nothing */ return {h: 1 /* {TcContinue46:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3.a2};
|
|
2202
2221
|
}
|
|
2203
2222
|
}
|
|
2204
|
-
case 0: /* nil */ return {h: 0 /* {TcDone:
|
|
2223
|
+
case 0: /* nil */ return {h: 0 /* {TcDone:46} */, a1: Prelude_Types_SnocList_x3cx3ex3e($0.a1, {h: 0})};
|
|
2205
2224
|
}
|
|
2206
2225
|
}
|
|
2207
2226
|
|
|
2208
2227
|
/* Prelude.Types.List.mapMaybeAppend : SnocList b -> (a -> Maybe b) -> List a -> List b */
|
|
2209
2228
|
function Prelude_Types_List_mapMaybeAppend($0, $1, $2) {
|
|
2210
|
-
return __tailRec(
|
|
2229
|
+
return __tailRec(x24tcOpt_46, {h: 1 /* {TcContinue46:1} */, a1: $0, a2: $1, a3: $2});
|
|
2211
2230
|
}
|
|
2212
2231
|
|
|
2213
|
-
/* {$tcOpt:
|
|
2214
|
-
function
|
|
2232
|
+
/* {$tcOpt:47} */
|
|
2233
|
+
function x24tcOpt_47($0) {
|
|
2215
2234
|
switch($0.a4) {
|
|
2216
|
-
case 0n: return {h: 0 /* {TcDone:
|
|
2235
|
+
case 0n: return {h: 0 /* {TcDone:47} */, a1: {a1: $0.a1, a2: $0.a2}};
|
|
2217
2236
|
default: {
|
|
2218
2237
|
switch($0.a3.h) {
|
|
2219
2238
|
case undefined: /* cons */ {
|
|
@@ -2225,13 +2244,13 @@ function x24tcOpt_46($0) {
|
|
|
2225
2244
|
case 0n: _crashExp('Nat case not covered');
|
|
2226
2245
|
default: {
|
|
2227
2246
|
const $a = ($0.a4-1n);
|
|
2228
|
-
return {h: 1 /* {
|
|
2247
|
+
return {h: 1 /* {TcContinue47:1} */, a1: $0.a1, a2: ($0.a2+1n), a3: $0.a3.a2, a4: $a};
|
|
2229
2248
|
}
|
|
2230
2249
|
}
|
|
2231
2250
|
}
|
|
2232
2251
|
default: {
|
|
2233
2252
|
const $13 = ($0.a4-1n);
|
|
2234
|
-
return {h: 1 /* {
|
|
2253
|
+
return {h: 1 /* {TcContinue47:1} */, a1: ($0.a1+1n), a2: 0n, a3: $0.a3.a2, a4: $13};
|
|
2235
2254
|
}
|
|
2236
2255
|
}
|
|
2237
2256
|
}
|
|
@@ -2240,7 +2259,7 @@ function x24tcOpt_46($0) {
|
|
|
2240
2259
|
case 0n: _crashExp('Nat case not covered');
|
|
2241
2260
|
default: {
|
|
2242
2261
|
const $1d = ($0.a4-1n);
|
|
2243
|
-
return {h: 1 /* {
|
|
2262
|
+
return {h: 1 /* {TcContinue47:1} */, a1: $0.a1, a2: ($0.a2+1n), a3: $0.a3.a2, a4: $1d};
|
|
2244
2263
|
}
|
|
2245
2264
|
}
|
|
2246
2265
|
}
|
|
@@ -2251,7 +2270,7 @@ function x24tcOpt_46($0) {
|
|
|
2251
2270
|
case 0n: _crashExp('Nat case not covered');
|
|
2252
2271
|
default: {
|
|
2253
2272
|
const $27 = ($0.a4-1n);
|
|
2254
|
-
return {h: 0 /* {TcDone:
|
|
2273
|
+
return {h: 0 /* {TcDone:47} */, a1: Prelude_Uninhabited_absurd($2d => Data_List_Suffix_uninhabited_Uninhabited_x28x28x28Suffixx20x24bx29x20x28x28x3ax3ax20x24hx29x20x24tx29x29x20Nilx29($2d), $27)};
|
|
2255
2274
|
}
|
|
2256
2275
|
}
|
|
2257
2276
|
}
|
|
@@ -2262,14 +2281,14 @@ function x24tcOpt_46($0) {
|
|
|
2262
2281
|
|
|
2263
2282
|
/* Text.Bounds.calcEnd : Nat -> Nat -> (cs : List Char) -> Suffix b ys cs -> Position */
|
|
2264
2283
|
function Text_Bounds_calcEnd($0, $1, $2, $3) {
|
|
2265
|
-
return __tailRec(
|
|
2284
|
+
return __tailRec(x24tcOpt_47, {h: 1 /* {TcContinue47:1} */, a1: $0, a2: $1, a3: $2, a4: $3});
|
|
2266
2285
|
}
|
|
2267
2286
|
|
|
2268
|
-
/* {$tcOpt:
|
|
2269
|
-
function
|
|
2287
|
+
/* {$tcOpt:48} */
|
|
2288
|
+
function x24tcOpt_48($0) {
|
|
2270
2289
|
switch($0.h) {
|
|
2271
|
-
case 1: /* {
|
|
2272
|
-
case 2: /* {
|
|
2290
|
+
case 1: /* {TcContinue48:1} */ return {h: 2 /* {TcContinue48:2} */, a1: $0.a3, a2: $0.a2, a3: $0.a1, a4: JSON_Parser_value($0.a3)};
|
|
2291
|
+
case 2: /* {TcContinue48:2} */ {
|
|
2273
2292
|
switch($0.a4.h) {
|
|
2274
2293
|
case 0: /* Succ0 */ {
|
|
2275
2294
|
switch($0.a4.a2.h) {
|
|
@@ -2279,21 +2298,21 @@ function x24tcOpt_47($0) {
|
|
|
2279
2298
|
switch($0.a4.a2.a1.a1.h) {
|
|
2280
2299
|
case 0: /* Symbol */ {
|
|
2281
2300
|
switch($0.a4.a2.a1.a1.a1) {
|
|
2282
|
-
case ',': return {h: 1 /* {
|
|
2283
|
-
case ']': return {h: 0 /* {TcDone:
|
|
2284
|
-
default: return {h: 0 /* {TcDone:
|
|
2301
|
+
case ',': return {h: 1 /* {TcContinue48:1} */, a1: $0.a3, a2: {a1: $0.a2, a2: $0.a4.a1}, a3: $0.a4.a2.a2};
|
|
2302
|
+
case ']': return {h: 0 /* {TcDone:48} */, a1: {h: 0 /* Succ0 */, a1: {h: 5 /* JArray */, a1: Prelude_Types_SnocList_x3cx3ex3e($0.a2, {a1: $0.a4.a1, a2: {h: 0}})}, a2: $0.a4.a2.a2}};
|
|
2303
|
+
default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_224(), $0.a4)};
|
|
2285
2304
|
}
|
|
2286
2305
|
}
|
|
2287
|
-
default: return {h: 0 /* {TcDone:
|
|
2306
|
+
default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_224(), $0.a4)};
|
|
2288
2307
|
}
|
|
2289
2308
|
}
|
|
2290
|
-
default: return {h: 0 /* {TcDone:
|
|
2309
|
+
default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_224(), $0.a4)};
|
|
2291
2310
|
}
|
|
2292
2311
|
}
|
|
2293
|
-
default: return {h: 0 /* {TcDone:
|
|
2312
|
+
default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_224(), $0.a4)};
|
|
2294
2313
|
}
|
|
2295
2314
|
}
|
|
2296
|
-
default: return {h: 0 /* {TcDone:
|
|
2315
|
+
default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_224(), $0.a4)};
|
|
2297
2316
|
}
|
|
2298
2317
|
}
|
|
2299
2318
|
}
|
|
@@ -2301,38 +2320,38 @@ function x24tcOpt_47($0) {
|
|
|
2301
2320
|
|
|
2302
2321
|
/* JSON.Parser.array : Bounds -> SnocList JSON -> Rule True JSON */
|
|
2303
2322
|
function JSON_Parser_array($0, $1, $2) {
|
|
2304
|
-
return __tailRec(
|
|
2323
|
+
return __tailRec(x24tcOpt_48, {h: 1 /* {TcContinue48:1} */, a1: $0, a2: $1, a3: $2});
|
|
2305
2324
|
}
|
|
2306
2325
|
|
|
2307
2326
|
/* JSON.Parser.case block in array */
|
|
2308
2327
|
function JSON_Parser_case__array_6680($0, $1, $2, $3) {
|
|
2309
|
-
return __tailRec(
|
|
2328
|
+
return __tailRec(x24tcOpt_48, {h: 2 /* {TcContinue48:2} */, a1: $0, a2: $1, a3: $2, a4: $3});
|
|
2310
2329
|
}
|
|
2311
2330
|
|
|
2312
|
-
/* {$tcOpt:
|
|
2313
|
-
function
|
|
2331
|
+
/* {$tcOpt:49} */
|
|
2332
|
+
function x24tcOpt_49($0) {
|
|
2314
2333
|
switch($0.a3.h) {
|
|
2315
|
-
case 0: /* nil */ return {h: 0 /* {TcDone:
|
|
2316
|
-
case undefined: /* cons */ return {h: 1 /* {
|
|
2334
|
+
case 0: /* nil */ return {h: 0 /* {TcDone:49} */, a1: $0.a2};
|
|
2335
|
+
case undefined: /* cons */ return {h: 1 /* {TcContinue49:1} */, a1: $0.a1, a2: $0.a1($0.a2)($0.a3.a1), a3: $0.a3.a2};
|
|
2317
2336
|
}
|
|
2318
2337
|
}
|
|
2319
2338
|
|
|
2320
2339
|
/* Prelude.Types.foldl */
|
|
2321
2340
|
function Prelude_Types_foldl_Foldable_List($0, $1, $2) {
|
|
2322
|
-
return __tailRec(
|
|
2341
|
+
return __tailRec(x24tcOpt_49, {h: 1 /* {TcContinue49:1} */, a1: $0, a2: $1, a3: $2});
|
|
2323
2342
|
}
|
|
2324
2343
|
|
|
2325
|
-
/* {$tcOpt:
|
|
2326
|
-
function
|
|
2344
|
+
/* {$tcOpt:50} */
|
|
2345
|
+
function x24tcOpt_50($0) {
|
|
2327
2346
|
switch($0.a1) {
|
|
2328
|
-
case 0n: return {h: 0 /* {TcDone:
|
|
2347
|
+
case 0n: return {h: 0 /* {TcDone:50} */, a1: Prelude_Uninhabited_absurd($6 => Data_Nat_uninhabited_Uninhabited_x28x28LTEx20x28Sx20x24nx29x29x20Zx29($6), $0.a2)};
|
|
2329
2348
|
default: {
|
|
2330
2349
|
const $a = ($0.a1-1n);
|
|
2331
2350
|
switch($0.a2) {
|
|
2332
2351
|
case 0n: _crashExp('Nat case not covered');
|
|
2333
2352
|
default: {
|
|
2334
2353
|
const $e = ($0.a2-1n);
|
|
2335
|
-
return {h: 1 /* {
|
|
2354
|
+
return {h: 1 /* {TcContinue50:1} */, a1: $a, a2: $e};
|
|
2336
2355
|
}
|
|
2337
2356
|
}
|
|
2338
2357
|
}
|
|
@@ -2341,20 +2360,20 @@ function x24tcOpt_49($0) {
|
|
|
2341
2360
|
|
|
2342
2361
|
/* Data.Nat.LTEImpliesNotGT : LTE a b -> Not (GT a b) */
|
|
2343
2362
|
function Data_Nat_LTEImpliesNotGT($0, $1) {
|
|
2344
|
-
return __tailRec(
|
|
2363
|
+
return __tailRec(x24tcOpt_50, {h: 1 /* {TcContinue50:1} */, a1: $0, a2: $1});
|
|
2345
2364
|
}
|
|
2346
2365
|
|
|
2347
|
-
/* {$tcOpt:
|
|
2348
|
-
function
|
|
2366
|
+
/* {$tcOpt:51} */
|
|
2367
|
+
function x24tcOpt_51($0) {
|
|
2349
2368
|
switch($0.a1.h) {
|
|
2350
|
-
case 0: /* nil */ return {h: 0 /* {TcDone:
|
|
2351
|
-
case undefined: /* cons */ return {h: 1 /* {
|
|
2369
|
+
case 0: /* nil */ return {h: 0 /* {TcDone:51} */, a1: $0.a2};
|
|
2370
|
+
case undefined: /* cons */ return {h: 1 /* {TcContinue51:1} */, a1: $0.a1.a1, a2: {a1: $0.a1.a2, a2: $0.a2}};
|
|
2352
2371
|
}
|
|
2353
2372
|
}
|
|
2354
2373
|
|
|
2355
2374
|
/* Prelude.Types.SnocList.(<>>) : SnocList a -> List a -> List a */
|
|
2356
2375
|
function Prelude_Types_SnocList_x3cx3ex3e($0, $1) {
|
|
2357
|
-
return __tailRec(
|
|
2376
|
+
return __tailRec(x24tcOpt_51, {h: 1 /* {TcContinue51:1} */, a1: $0, a2: $1});
|
|
2358
2377
|
}
|
|
2359
2378
|
|
|
2360
2379
|
/* {__mainExpression:0} */
|
|
@@ -2451,68 +2470,68 @@ const csegen_72 = __lazy(function () {
|
|
|
2451
2470
|
return {a1: csegen_69(), a2: a => $3 => $4 => $5 => $6 => Data_Promise_liftIO_HasIO_Promise($3, $4, $5, $6)};
|
|
2452
2471
|
});
|
|
2453
2472
|
|
|
2454
|
-
/* {csegen:
|
|
2455
|
-
const
|
|
2473
|
+
/* {csegen:85} */
|
|
2474
|
+
const csegen_85 = __lazy(function () {
|
|
2456
2475
|
return $0 => $1 => Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29($0, $1);
|
|
2457
2476
|
});
|
|
2458
2477
|
|
|
2459
|
-
/* {csegen:
|
|
2460
|
-
const
|
|
2478
|
+
/* {csegen:90} */
|
|
2479
|
+
const csegen_90 = __lazy(function () {
|
|
2461
2480
|
return {a1: $1 => $2 => Prelude_EqOrd_x3dx3d_Eq_Char($1, $2), a2: $7 => $8 => Prelude_EqOrd_x2fx3d_Eq_Char($7, $8)};
|
|
2462
2481
|
});
|
|
2463
2482
|
|
|
2464
|
-
/* {csegen:
|
|
2465
|
-
const
|
|
2483
|
+
/* {csegen:91} */
|
|
2484
|
+
const csegen_91 = __lazy(function () {
|
|
2466
2485
|
return $0 => $1 => ({a1: $0, a2: $1});
|
|
2467
2486
|
});
|
|
2468
2487
|
|
|
2469
|
-
/* {csegen:
|
|
2470
|
-
const
|
|
2488
|
+
/* {csegen:92} */
|
|
2489
|
+
const csegen_92 = __lazy(function () {
|
|
2471
2490
|
return $0 => $1 => $2 => $0($1($2));
|
|
2472
2491
|
});
|
|
2473
2492
|
|
|
2474
|
-
/* {csegen:
|
|
2475
|
-
const
|
|
2493
|
+
/* {csegen:94} */
|
|
2494
|
+
const csegen_94 = __lazy(function () {
|
|
2476
2495
|
return {a1: $1 => $2 => Prelude_Interfaces_Bool_Semigroup_x3cx2bx3e_Semigroup_AnyBool($1, $2), a2: 0};
|
|
2477
2496
|
});
|
|
2478
2497
|
|
|
2479
|
-
/* {csegen:
|
|
2480
|
-
const
|
|
2498
|
+
/* {csegen:144} */
|
|
2499
|
+
const csegen_144 = __lazy(function () {
|
|
2481
2500
|
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)};
|
|
2482
2501
|
});
|
|
2483
2502
|
|
|
2484
|
-
/* {csegen:
|
|
2485
|
-
const
|
|
2503
|
+
/* {csegen:147} */
|
|
2504
|
+
const csegen_147 = __lazy(function () {
|
|
2486
2505
|
return $0 => BashCompletion_hashify(BashCompletion_slugify($0));
|
|
2487
2506
|
});
|
|
2488
2507
|
|
|
2489
|
-
/* {csegen:
|
|
2490
|
-
const
|
|
2508
|
+
/* {csegen:149} */
|
|
2509
|
+
const csegen_149 = __lazy(function () {
|
|
2491
2510
|
return {a1: '--completed', a2: {a1: 'graph', a2: {h: 0}}};
|
|
2492
2511
|
});
|
|
2493
2512
|
|
|
2494
|
-
/* {csegen:
|
|
2495
|
-
const
|
|
2513
|
+
/* {csegen:153} */
|
|
2514
|
+
const csegen_153 = __lazy(function () {
|
|
2496
2515
|
return {a1: {a1: '--checkout', a2: {a1: '-c', a2: {a1: '--ignore', a2: {a1: '-i', a2: {h: 0}}}}}};
|
|
2497
2516
|
});
|
|
2498
2517
|
|
|
2499
|
-
/* {csegen:
|
|
2500
|
-
const
|
|
2518
|
+
/* {csegen:155} */
|
|
2519
|
+
const csegen_155 = __lazy(function () {
|
|
2501
2520
|
return {a1: {a1: '--completed', a2: {a1: '-c', a2: {h: 0}}}};
|
|
2502
2521
|
});
|
|
2503
2522
|
|
|
2504
|
-
/* {csegen:
|
|
2505
|
-
const
|
|
2523
|
+
/* {csegen:198} */
|
|
2524
|
+
const csegen_198 = __lazy(function () {
|
|
2506
2525
|
return b => a => $0 => $1 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($0, $1);
|
|
2507
2526
|
});
|
|
2508
2527
|
|
|
2509
|
-
/* {csegen:
|
|
2510
|
-
const
|
|
2528
|
+
/* {csegen:199} */
|
|
2529
|
+
const csegen_199 = __lazy(function () {
|
|
2511
2530
|
return a => $0 => Prelude_Types_join_Monad_x28Eitherx20x24ex29($0);
|
|
2512
2531
|
});
|
|
2513
2532
|
|
|
2514
|
-
/* {csegen:
|
|
2515
|
-
const
|
|
2533
|
+
/* {csegen:200} */
|
|
2534
|
+
const csegen_200 = __lazy(function () {
|
|
2516
2535
|
return $0 => {
|
|
2517
2536
|
const $1 = JSON_Parser_parseJSON({h: 0}, $0);
|
|
2518
2537
|
switch($1.h) {
|
|
@@ -2522,33 +2541,33 @@ const csegen_198 = __lazy(function () {
|
|
|
2522
2541
|
};
|
|
2523
2542
|
});
|
|
2524
2543
|
|
|
2525
|
-
/* {csegen:
|
|
2526
|
-
const
|
|
2544
|
+
/* {csegen:201} */
|
|
2545
|
+
const csegen_201 = __lazy(function () {
|
|
2527
2546
|
return $0 => $1 => Prelude_Types_max_Ord_Nat($0, $1);
|
|
2528
2547
|
});
|
|
2529
2548
|
|
|
2530
|
-
/* {csegen:
|
|
2531
|
-
const
|
|
2549
|
+
/* {csegen:212} */
|
|
2550
|
+
const csegen_212 = __lazy(function () {
|
|
2532
2551
|
return {a1: csegen_39(), 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)};
|
|
2533
2552
|
});
|
|
2534
2553
|
|
|
2535
|
-
/* {csegen:
|
|
2536
|
-
const
|
|
2554
|
+
/* {csegen:215} */
|
|
2555
|
+
const csegen_215 = __lazy(function () {
|
|
2537
2556
|
return {a1: $1 => $2 => Prelude_EqOrd_x3dx3d_Eq_Integer($1, $2), a2: $7 => $8 => Prelude_EqOrd_x2fx3d_Eq_Integer($7, $8)};
|
|
2538
2557
|
});
|
|
2539
2558
|
|
|
2540
|
-
/* {csegen:
|
|
2541
|
-
const
|
|
2559
|
+
/* {csegen:216} */
|
|
2560
|
+
const csegen_216 = __lazy(function () {
|
|
2542
2561
|
return $0 => $1 => Prelude_EqOrd_compare_Ord_Integer($0, $1);
|
|
2543
2562
|
});
|
|
2544
2563
|
|
|
2545
|
-
/* {csegen:
|
|
2546
|
-
const
|
|
2564
|
+
/* {csegen:224} */
|
|
2565
|
+
const csegen_224 = __lazy(function () {
|
|
2547
2566
|
return $0 => JSON_Parser_eqJSToken({h: 2 /* EOI */}, $0);
|
|
2548
2567
|
});
|
|
2549
2568
|
|
|
2550
|
-
/* {csegen:
|
|
2551
|
-
const
|
|
2569
|
+
/* {csegen:229} */
|
|
2570
|
+
const csegen_229 = __lazy(function () {
|
|
2552
2571
|
const $6 = a => b => {
|
|
2553
2572
|
switch(JSON_Parser_eqJSON(a, b)) {
|
|
2554
2573
|
case 1: return 0;
|
|
@@ -2558,164 +2577,164 @@ const csegen_227 = __lazy(function () {
|
|
|
2558
2577
|
return {a1: $1 => $2 => JSON_Parser_eqJSON($1, $2), a2: $6};
|
|
2559
2578
|
});
|
|
2560
2579
|
|
|
2561
|
-
/* {csegen:
|
|
2562
|
-
const
|
|
2580
|
+
/* {csegen:236} */
|
|
2581
|
+
const csegen_236 = __lazy(function () {
|
|
2563
2582
|
const $0 = a => $1 => $2 => ({h: 1 /* Fail0 */, a1: {a1: $2, a2: $1}});
|
|
2564
2583
|
return $6 => $7 => $0(undefined)($6)($7);
|
|
2565
2584
|
});
|
|
2566
2585
|
|
|
2567
|
-
/* {csegen:
|
|
2568
|
-
const
|
|
2586
|
+
/* {csegen:254} */
|
|
2587
|
+
const csegen_254 = __lazy(function () {
|
|
2569
2588
|
return {a1: acc => elem => func => init => input => Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29(func, init, input), a2: elem => acc => func => init => input => Prelude_Types_foldl_Foldable_x28Eitherx20x24ex29(func, init, input), a3: elem => $b => Prelude_Types_null_Foldable_x28Eitherx20x24ex29($b), a4: elem => acc => m => $f => funcM => init => input => Prelude_Types_foldlM_Foldable_x28Eitherx20x24ex29($f, funcM, init, input), a5: elem => $16 => Prelude_Types_toList_Foldable_x28Eitherx20x24ex29($16), a6: a => m => $1a => f => $1b => Prelude_Types_foldMap_Foldable_x28Eitherx20x24ex29($1a, f, $1b)};
|
|
2570
2589
|
});
|
|
2571
2590
|
|
|
2572
|
-
/* {csegen:
|
|
2573
|
-
const
|
|
2591
|
+
/* {csegen:258} */
|
|
2592
|
+
const csegen_258 = __lazy(function () {
|
|
2574
2593
|
return b => a => f => $0 => $1 => $2 => Prelude_Types_traverse_Traversable_x28Eitherx20x24ex29($0, $1, $2);
|
|
2575
2594
|
});
|
|
2576
2595
|
|
|
2577
|
-
/* {csegen:
|
|
2578
|
-
const
|
|
2596
|
+
/* {csegen:272} */
|
|
2597
|
+
const csegen_272 = __lazy(function () {
|
|
2579
2598
|
return {a1: $1 => $2 => _add32s($1, $2), a2: $6 => $7 => _mul32s($6, $7), a3: $b => Number(_truncBigInt32($b))};
|
|
2580
2599
|
});
|
|
2581
2600
|
|
|
2582
|
-
/* {csegen:
|
|
2583
|
-
const
|
|
2601
|
+
/* {csegen:296} */
|
|
2602
|
+
const csegen_296 = __lazy(function () {
|
|
2584
2603
|
return $0 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($0));
|
|
2585
2604
|
});
|
|
2586
2605
|
|
|
2587
|
-
/* {csegen:
|
|
2588
|
-
const
|
|
2606
|
+
/* {csegen:297} */
|
|
2607
|
+
const csegen_297 = __lazy(function () {
|
|
2589
2608
|
return $0 => $1 => $2 => $3 => Data_Promise_x3ex3ex3d_Monad_Promise($0, $1, $2, $3);
|
|
2590
2609
|
});
|
|
2591
2610
|
|
|
2592
|
-
/* {csegen:
|
|
2593
|
-
const
|
|
2611
|
+
/* {csegen:298} */
|
|
2612
|
+
const csegen_298 = __lazy(function () {
|
|
2594
2613
|
return $0 => $1 => Data_Promise_either(csegen_51(), Data_PullRequest_parsePullRequestsString($0), $1);
|
|
2595
2614
|
});
|
|
2596
2615
|
|
|
2597
|
-
/* {csegen:
|
|
2598
|
-
const
|
|
2616
|
+
/* {csegen:299} */
|
|
2617
|
+
const csegen_299 = __lazy(function () {
|
|
2599
2618
|
return $0 => $1 => Data_Promise_either(csegen_51(), Data_User_parseUserString($0), $1);
|
|
2600
2619
|
});
|
|
2601
2620
|
|
|
2602
|
-
/* {csegen:
|
|
2603
|
-
const
|
|
2621
|
+
/* {csegen:304} */
|
|
2622
|
+
const csegen_304 = __lazy(function () {
|
|
2604
2623
|
return $0 => $1 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($0, $1);
|
|
2605
2624
|
});
|
|
2606
2625
|
|
|
2607
|
-
/* {csegen:
|
|
2608
|
-
const
|
|
2626
|
+
/* {csegen:317} */
|
|
2627
|
+
const csegen_317 = __lazy(function () {
|
|
2609
2628
|
return $0 => Language_JSON_Accessors_array($3 => Data_PullRequest_parsePR($3), $0);
|
|
2610
2629
|
});
|
|
2611
2630
|
|
|
2612
|
-
/* {csegen:
|
|
2613
|
-
const
|
|
2631
|
+
/* {csegen:325} */
|
|
2632
|
+
const csegen_325 = __lazy(function () {
|
|
2614
2633
|
return $0 => $1 => $2 => Data_Promise_pure_Applicative_Promise($0, $1, $2);
|
|
2615
2634
|
});
|
|
2616
2635
|
|
|
2617
|
-
/* {csegen:
|
|
2618
|
-
const
|
|
2636
|
+
/* {csegen:326} */
|
|
2637
|
+
const csegen_326 = __lazy(function () {
|
|
2619
2638
|
return $0 => Prelude_EqOrd_x3dx3d_Eq_Char($0, '/');
|
|
2620
2639
|
});
|
|
2621
2640
|
|
|
2622
|
-
/* {csegen:
|
|
2623
|
-
const
|
|
2641
|
+
/* {csegen:327} */
|
|
2642
|
+
const csegen_327 = __lazy(function () {
|
|
2624
2643
|
return $0 => $0.a2;
|
|
2625
2644
|
});
|
|
2626
2645
|
|
|
2627
|
-
/* {csegen:
|
|
2628
|
-
const
|
|
2646
|
+
/* {csegen:331} */
|
|
2647
|
+
const csegen_331 = __lazy(function () {
|
|
2629
2648
|
return $0 => $0.a1;
|
|
2630
2649
|
});
|
|
2631
2650
|
|
|
2632
|
-
/* {csegen:
|
|
2633
|
-
const
|
|
2651
|
+
/* {csegen:342} */
|
|
2652
|
+
const csegen_342 = __lazy(function () {
|
|
2634
2653
|
return $0 => $1 => Data_Promise_map_Functor_Promise($4 => Number(_truncUBigInt32($4)), System_time(csegen_72()), $0, $1);
|
|
2635
2654
|
});
|
|
2636
2655
|
|
|
2637
|
-
/* {csegen:
|
|
2638
|
-
const
|
|
2656
|
+
/* {csegen:347} */
|
|
2657
|
+
const csegen_347 = __lazy(function () {
|
|
2639
2658
|
return $0 => $1 => $2 => $3 => Prelude_Types_map_Functor_Maybe($2, $3);
|
|
2640
2659
|
});
|
|
2641
2660
|
|
|
2642
|
-
/* {csegen:
|
|
2643
|
-
const
|
|
2661
|
+
/* {csegen:360} */
|
|
2662
|
+
const csegen_360 = __lazy(function () {
|
|
2644
2663
|
return $0 => $1 => $2 => Data_Promise_liftIO_HasIO_Promise($5 => Prelude_IO_prim__getStr($5), $0, $1, $2);
|
|
2645
2664
|
});
|
|
2646
2665
|
|
|
2647
|
-
/* {csegen:
|
|
2648
|
-
const
|
|
2666
|
+
/* {csegen:362} */
|
|
2667
|
+
const csegen_362 = __lazy(function () {
|
|
2649
2668
|
return $0 => $1 => Data_Promise_pure_Applicative_Promise({h: 0}, $0, $1);
|
|
2650
2669
|
});
|
|
2651
2670
|
|
|
2652
|
-
/* {csegen:
|
|
2653
|
-
const
|
|
2671
|
+
/* {csegen:392} */
|
|
2672
|
+
const csegen_392 = __lazy(function () {
|
|
2654
2673
|
return {a1: csegen_9(), a2: a => ({h: 0}), a3: a => $4 => $5 => Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, $5)};
|
|
2655
2674
|
});
|
|
2656
2675
|
|
|
2657
|
-
/* {csegen:
|
|
2658
|
-
const
|
|
2659
|
-
return $0 => Data_List_sort(
|
|
2676
|
+
/* {csegen:393} */
|
|
2677
|
+
const csegen_393 = __lazy(function () {
|
|
2678
|
+
return $0 => Data_List_sort(csegen_212(), $0);
|
|
2660
2679
|
});
|
|
2661
2680
|
|
|
2662
|
-
/* {csegen:
|
|
2663
|
-
const
|
|
2664
|
-
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(
|
|
2681
|
+
/* {csegen:394} */
|
|
2682
|
+
const csegen_394 = __lazy(function () {
|
|
2683
|
+
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_144(), $0, $1, $2);
|
|
2665
2684
|
});
|
|
2666
2685
|
|
|
2667
|
-
/* {csegen:
|
|
2668
|
-
const
|
|
2686
|
+
/* {csegen:402} */
|
|
2687
|
+
const csegen_402 = __lazy(function () {
|
|
2669
2688
|
return $0 => $0.a1;
|
|
2670
2689
|
});
|
|
2671
2690
|
|
|
2672
|
-
/* {csegen:
|
|
2673
|
-
const
|
|
2691
|
+
/* {csegen:404} */
|
|
2692
|
+
const csegen_404 = __lazy(function () {
|
|
2674
2693
|
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2675
2694
|
});
|
|
2676
2695
|
|
|
2677
|
-
/* {csegen:
|
|
2678
|
-
const
|
|
2696
|
+
/* {csegen:405} */
|
|
2697
|
+
const csegen_405 = __lazy(function () {
|
|
2679
2698
|
return $0 => $0.a2;
|
|
2680
2699
|
});
|
|
2681
2700
|
|
|
2682
|
-
/* {csegen:
|
|
2683
|
-
const
|
|
2684
|
-
return $0 => $1 => Prelude_Basics_on(
|
|
2701
|
+
/* {csegen:406} */
|
|
2702
|
+
const csegen_406 = __lazy(function () {
|
|
2703
|
+
return $0 => $1 => Prelude_Basics_on(csegen_404(), csegen_405(), $0, $1);
|
|
2685
2704
|
});
|
|
2686
2705
|
|
|
2687
|
-
/* {csegen:
|
|
2688
|
-
const
|
|
2706
|
+
/* {csegen:419} */
|
|
2707
|
+
const csegen_419 = __lazy(function () {
|
|
2689
2708
|
return $0 => $0.a2;
|
|
2690
2709
|
});
|
|
2691
2710
|
|
|
2692
|
-
/* {csegen:
|
|
2693
|
-
const
|
|
2711
|
+
/* {csegen:422} */
|
|
2712
|
+
const csegen_422 = __lazy(function () {
|
|
2694
2713
|
return $0 => $0.a1;
|
|
2695
2714
|
});
|
|
2696
2715
|
|
|
2697
|
-
/* {csegen:
|
|
2698
|
-
const
|
|
2716
|
+
/* {csegen:428} */
|
|
2717
|
+
const csegen_428 = __lazy(function () {
|
|
2699
2718
|
return date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('earliest:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date(date)), a2: {h: 0}}}));
|
|
2700
2719
|
});
|
|
2701
2720
|
|
|
2702
|
-
/* {csegen:
|
|
2703
|
-
const
|
|
2721
|
+
/* {csegen:457} */
|
|
2722
|
+
const csegen_457 = __lazy(function () {
|
|
2704
2723
|
return $0 => Util_yesNoPrompt(csegen_72(), 'Would you like to continue creating a Pull Request anyway?');
|
|
2705
2724
|
});
|
|
2706
2725
|
|
|
2707
|
-
/* {csegen:
|
|
2708
|
-
const
|
|
2726
|
+
/* {csegen:492} */
|
|
2727
|
+
const csegen_492 = __lazy(function () {
|
|
2709
2728
|
return $0 => $0.a1;
|
|
2710
2729
|
});
|
|
2711
2730
|
|
|
2712
|
-
/* {csegen:
|
|
2713
|
-
const
|
|
2714
|
-
return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {
|
|
2731
|
+
/* {csegen:504} */
|
|
2732
|
+
const csegen_504 = __lazy(function () {
|
|
2733
|
+
return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}};
|
|
2715
2734
|
});
|
|
2716
2735
|
|
|
2717
|
-
/* {csegen:
|
|
2718
|
-
const
|
|
2736
|
+
/* {csegen:523} */
|
|
2737
|
+
const csegen_523 = __lazy(function () {
|
|
2719
2738
|
return {a1: ann => $1 => Graph_pretty_Pretty_Date($1), a2: ann => $5 => $6 => Graph_prettyPrec_Pretty_Date($5, $6)};
|
|
2720
2739
|
});
|
|
2721
2740
|
|
|
@@ -3489,6 +3508,11 @@ function Text_PrettyPrint_Prettyprinter_Doc_spaces($0) {
|
|
|
3489
3508
|
}
|
|
3490
3509
|
}
|
|
3491
3510
|
|
|
3511
|
+
/* Text.PrettyPrint.Prettyprinter.Doc.softline : Doc ann */
|
|
3512
|
+
const Text_PrettyPrint_Prettyprinter_Doc_softline = __lazy(function () {
|
|
3513
|
+
return {h: 7 /* Union */, a1: () => ({h: 1 /* Chara */, a1: ' '}), a2: () => ({h: 3 /* Line */})};
|
|
3514
|
+
});
|
|
3515
|
+
|
|
3492
3516
|
/* Text.PrettyPrint.Prettyprinter.Doc.round : Double -> Int */
|
|
3493
3517
|
function Text_PrettyPrint_Prettyprinter_Doc_round($0) {
|
|
3494
3518
|
switch(Prelude_EqOrd_x3e_Ord_Double($0, Number(0n))) {
|
|
@@ -3568,7 +3592,7 @@ function Text_PrettyPrint_Prettyprinter_Doc_hsep($0) {
|
|
|
3568
3592
|
|
|
3569
3593
|
/* Text.PrettyPrint.Prettyprinter.Doc.hcat : List (Doc ann) -> Doc ann */
|
|
3570
3594
|
function Text_PrettyPrint_Prettyprinter_Doc_hcat($0) {
|
|
3571
|
-
return Text_PrettyPrint_Prettyprinter_Doc_concatWith(
|
|
3595
|
+
return Text_PrettyPrint_Prettyprinter_Doc_concatWith(csegen_85(), $0);
|
|
3572
3596
|
}
|
|
3573
3597
|
|
|
3574
3598
|
/* Text.PrettyPrint.Prettyprinter.Doc.hardline : Doc ann */
|
|
@@ -3604,6 +3628,11 @@ function Text_PrettyPrint_Prettyprinter_Doc_group($0) {
|
|
|
3604
3628
|
}
|
|
3605
3629
|
}
|
|
3606
3630
|
|
|
3631
|
+
/* Text.PrettyPrint.Prettyprinter.Doc.fillSep : List (Doc ann) -> Doc ann */
|
|
3632
|
+
function Text_PrettyPrint_Prettyprinter_Doc_fillSep($0) {
|
|
3633
|
+
return Text_PrettyPrint_Prettyprinter_Doc_concatWith(x => y => Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(x, Text_PrettyPrint_Prettyprinter_Doc_softline()), y), $0);
|
|
3634
|
+
}
|
|
3635
|
+
|
|
3607
3636
|
/* Text.PrettyPrint.Prettyprinter.Doc.fillBreak : Int -> Doc ann -> Doc ann */
|
|
3608
3637
|
function Text_PrettyPrint_Prettyprinter_Doc_fillBreak($0, $1) {
|
|
3609
3638
|
const $4 = w => {
|
|
@@ -3622,10 +3651,10 @@ function Text_PrettyPrint_Prettyprinter_Doc_encloseSep($0, $1, $2, $3) {
|
|
|
3622
3651
|
case undefined: /* cons */ {
|
|
3623
3652
|
switch($3.a2.h) {
|
|
3624
3653
|
case 0: /* nil */ return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29($0, $3.a1), $1);
|
|
3625
|
-
default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(
|
|
3654
|
+
default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(csegen_85(), {a1: $0, a2: Data_List_replicateTR({h: 0}, Prelude_Types_prim__integerToNat((Prelude_Types_List_lengthTR($3)-1n)), $2)}, $3)), $1);
|
|
3626
3655
|
}
|
|
3627
3656
|
}
|
|
3628
|
-
default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(
|
|
3657
|
+
default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(csegen_85(), {a1: $0, a2: Data_List_replicateTR({h: 0}, Prelude_Types_prim__integerToNat((Prelude_Types_List_lengthTR($3)-1n)), $2)}, $3)), $1);
|
|
3629
3658
|
}
|
|
3630
3659
|
}
|
|
3631
3660
|
|
|
@@ -3875,12 +3904,12 @@ function Data_String_lines($0) {
|
|
|
3875
3904
|
|
|
3876
3905
|
/* Data.String.isSuffixOf : String -> String -> Bool */
|
|
3877
3906
|
function Data_String_isSuffixOf($0, $1) {
|
|
3878
|
-
return Data_List_isSuffixOf(
|
|
3907
|
+
return Data_List_isSuffixOf(csegen_90(), Prelude_Types_fastUnpack($0), Prelude_Types_fastUnpack($1));
|
|
3879
3908
|
}
|
|
3880
3909
|
|
|
3881
3910
|
/* Data.String.isPrefixOf : String -> String -> Bool */
|
|
3882
3911
|
function Data_String_isPrefixOf($0, $1) {
|
|
3883
|
-
return Data_List_isPrefixOf(
|
|
3912
|
+
return Data_List_isPrefixOf(csegen_90(), Prelude_Types_fastUnpack($0), Prelude_Types_fastUnpack($1));
|
|
3884
3913
|
}
|
|
3885
3914
|
|
|
3886
3915
|
/* Data.String.fastUnlines : List String -> String */
|
|
@@ -3968,7 +3997,7 @@ function Builtin_fst($0) {
|
|
|
3968
3997
|
function Prelude_Types_traverse_Traversable_List($0, $1, $2) {
|
|
3969
3998
|
switch($2.h) {
|
|
3970
3999
|
case 0: /* nil */ return $0.a2(undefined)({h: 0});
|
|
3971
|
-
case undefined: /* cons */ return $0.a3(undefined)(undefined)($0.a3(undefined)(undefined)($0.a2(undefined)(
|
|
4000
|
+
case undefined: /* cons */ return $0.a3(undefined)(undefined)($0.a3(undefined)(undefined)($0.a2(undefined)(csegen_91()))($1($2.a1)))(Prelude_Types_traverse_Traversable_List($0, $1, $2.a2));
|
|
3972
4001
|
}
|
|
3973
4002
|
}
|
|
3974
4003
|
|
|
@@ -3982,12 +4011,12 @@ function Prelude_Types_traverse_Traversable_x28Eitherx20x24ex29($0, $1, $2) {
|
|
|
3982
4011
|
|
|
3983
4012
|
/* Prelude.Types.toList */
|
|
3984
4013
|
function Prelude_Types_toList_Foldable_Maybe($0) {
|
|
3985
|
-
return Prelude_Types_foldr_Foldable_Maybe(
|
|
4014
|
+
return Prelude_Types_foldr_Foldable_Maybe(csegen_91(), {h: 0}, $0);
|
|
3986
4015
|
}
|
|
3987
4016
|
|
|
3988
4017
|
/* Prelude.Types.toList */
|
|
3989
4018
|
function Prelude_Types_toList_Foldable_x28Eitherx20x24ex29($0) {
|
|
3990
|
-
return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29(
|
|
4019
|
+
return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29(csegen_91(), {h: 0}, $0);
|
|
3991
4020
|
}
|
|
3992
4021
|
|
|
3993
4022
|
/* Prelude.Types.rangeFromTo */
|
|
@@ -4121,7 +4150,7 @@ function Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29($0, $1, $2) {
|
|
|
4121
4150
|
|
|
4122
4151
|
/* Prelude.Types.foldl */
|
|
4123
4152
|
function Prelude_Types_foldl_Foldable_x28Eitherx20x24ex29($0, $1, $2) {
|
|
4124
|
-
return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29($6 => $7 => Prelude_Basics_flip(
|
|
4153
|
+
return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29($6 => $7 => Prelude_Basics_flip(csegen_92(), $c => Prelude_Basics_flip($0, $6, $c), $7), $13 => $13, $2)($1);
|
|
4125
4154
|
}
|
|
4126
4155
|
|
|
4127
4156
|
/* Prelude.Types.foldlM */
|
|
@@ -4375,7 +4404,7 @@ function Prelude_Types_isAlpha($0) {
|
|
|
4375
4404
|
|
|
4376
4405
|
/* Prelude.Types.elemBy : Foldable t => (a -> a -> Bool) -> a -> t a -> Bool */
|
|
4377
4406
|
function Prelude_Types_elemBy($0, $1, $2, $3) {
|
|
4378
|
-
return $0.a6(undefined)(undefined)(
|
|
4407
|
+
return $0.a6(undefined)(undefined)(csegen_94())($1($2))($3);
|
|
4379
4408
|
}
|
|
4380
4409
|
|
|
4381
4410
|
/* Prelude.Types.elem : Foldable t => Eq a => a -> t a -> Bool */
|
|
@@ -5747,7 +5776,7 @@ function BashCompletion_n__4630_10022_slugsOrLoginsOrLabels($0, $1, $2) {
|
|
|
5747
5776
|
case 1: return Prelude_Types_List_mapAppend({h: 0}, $a => ('+'+$a), $2.a11);
|
|
5748
5777
|
case 0: {
|
|
5749
5778
|
switch(BashCompletion_isHashPrefix($1)) {
|
|
5750
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0},
|
|
5779
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_147(), $2.a10);
|
|
5751
5780
|
case 0: return $2.a9;
|
|
5752
5781
|
}
|
|
5753
5782
|
}
|
|
@@ -5756,7 +5785,7 @@ function BashCompletion_n__4630_10022_slugsOrLoginsOrLabels($0, $1, $2) {
|
|
|
5756
5785
|
|
|
5757
5786
|
/* BashCompletion.unslugify : String -> String */
|
|
5758
5787
|
function BashCompletion_unslugify($0) {
|
|
5759
|
-
return Prelude_Types_fastPack(Data_List_replaceOn(
|
|
5788
|
+
return Prelude_Types_fastPack(Data_List_replaceOn(csegen_90(), '\u{25cc}', ' ', Prelude_Types_fastUnpack($0)));
|
|
5760
5789
|
}
|
|
5761
5790
|
|
|
5762
5791
|
/* BashCompletion.unhashify : String -> String */
|
|
@@ -5766,7 +5795,7 @@ function BashCompletion_unhashify($0) {
|
|
|
5766
5795
|
|
|
5767
5796
|
/* BashCompletion.slugify : String -> String */
|
|
5768
5797
|
function BashCompletion_slugify($0) {
|
|
5769
|
-
return Prelude_Types_fastPack(Data_List_replaceOn(
|
|
5798
|
+
return Prelude_Types_fastPack(Data_List_replaceOn(csegen_90(), ' ', '\u{25cc}', Prelude_Types_fastUnpack($0)));
|
|
5770
5799
|
}
|
|
5771
5800
|
|
|
5772
5801
|
/* BashCompletion.script : String */
|
|
@@ -5842,7 +5871,7 @@ function BashCompletion_opts($0, $1, $2, $3) {
|
|
|
5842
5871
|
case 'graph': return {a1: '--completed', a2: $0.a9};
|
|
5843
5872
|
case '--completed': return $0.a9;
|
|
5844
5873
|
default: {
|
|
5845
|
-
switch(Data_Maybe_isJust(Data_List_find($59 => Prelude_EqOrd_x3dx3d_Eq_String($59, $3),
|
|
5874
|
+
switch(Data_Maybe_isJust(Data_List_find($59 => Prelude_EqOrd_x3dx3d_Eq_String($59, $3), csegen_149()))) {
|
|
5846
5875
|
case 1: return Prelude_Types_List_filterAppend({h: 0}, $62 => Data_String_isPrefixOf($2, $62), $0.a9);
|
|
5847
5876
|
case 0: return {h: 0};
|
|
5848
5877
|
}
|
|
@@ -5850,7 +5879,7 @@ function BashCompletion_opts($0, $1, $2, $3) {
|
|
|
5850
5879
|
}
|
|
5851
5880
|
}
|
|
5852
5881
|
default: {
|
|
5853
|
-
switch(Data_Maybe_isJust(Data_List_find($6d => Prelude_EqOrd_x3dx3d_Eq_String($6d, $3),
|
|
5882
|
+
switch(Data_Maybe_isJust(Data_List_find($6d => Prelude_EqOrd_x3dx3d_Eq_String($6d, $3), csegen_149()))) {
|
|
5854
5883
|
case 1: return Prelude_Types_List_filterAppend({h: 0}, $76 => Data_String_isPrefixOf($2, $76), $0.a9);
|
|
5855
5884
|
case 0: return {h: 0};
|
|
5856
5885
|
}
|
|
@@ -5859,7 +5888,7 @@ function BashCompletion_opts($0, $1, $2, $3) {
|
|
|
5859
5888
|
}
|
|
5860
5889
|
case 'pr': {
|
|
5861
5890
|
switch(BashCompletion_isHashPrefix($2)) {
|
|
5862
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0},
|
|
5891
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_147(), $0.a10);
|
|
5863
5892
|
case 0: return {h: 0};
|
|
5864
5893
|
}
|
|
5865
5894
|
}
|
|
@@ -5977,8 +6006,8 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
5977
6006
|
}
|
|
5978
6007
|
case 'contribute': {
|
|
5979
6008
|
switch($1) {
|
|
5980
|
-
case '-': return
|
|
5981
|
-
case '--': return
|
|
6009
|
+
case '-': return csegen_153();
|
|
6010
|
+
case '--': return csegen_153();
|
|
5982
6011
|
default: {
|
|
5983
6012
|
switch(Data_String_isPrefixOf($1, '--checkout')) {
|
|
5984
6013
|
case 1: return {a1: {a1: '--checkout', a2: {h: 0}}};
|
|
@@ -5995,7 +6024,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
5995
6024
|
case 'graph': {
|
|
5996
6025
|
switch($1) {
|
|
5997
6026
|
case '--': return {h: 0};
|
|
5998
|
-
case '-': return
|
|
6027
|
+
case '-': return csegen_155();
|
|
5999
6028
|
default: {
|
|
6000
6029
|
switch(Data_String_isPrefixOf($1, '--completed')) {
|
|
6001
6030
|
case 1: return {a1: {a1: '--completed', a2: {h: 0}}};
|
|
@@ -6086,8 +6115,8 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6086
6115
|
}
|
|
6087
6116
|
case 'contribute': {
|
|
6088
6117
|
switch($1) {
|
|
6089
|
-
case '-': return
|
|
6090
|
-
case '--': return
|
|
6118
|
+
case '-': return csegen_153();
|
|
6119
|
+
case '--': return csegen_153();
|
|
6091
6120
|
default: {
|
|
6092
6121
|
switch(Data_String_isPrefixOf($1, '--checkout')) {
|
|
6093
6122
|
case 1: return {a1: {a1: '--checkout', a2: {h: 0}}};
|
|
@@ -6104,7 +6133,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6104
6133
|
case 'graph': {
|
|
6105
6134
|
switch($1) {
|
|
6106
6135
|
case '--': return {h: 0};
|
|
6107
|
-
case '-': return
|
|
6136
|
+
case '-': return csegen_155();
|
|
6108
6137
|
default: {
|
|
6109
6138
|
switch(Data_String_isPrefixOf($1, '--completed')) {
|
|
6110
6139
|
case 1: return {a1: {a1: '--completed', a2: {h: 0}}};
|
|
@@ -6240,18 +6269,18 @@ function Data_Config_parseConfig($0, $1) {
|
|
|
6240
6269
|
}
|
|
6241
6270
|
};
|
|
6242
6271
|
const $4 = {a1: $5, a2: a => $d => ({h: 1 /* Right */, a1: $d}), a3: $f};
|
|
6243
|
-
const $3 = {a1: $4, a2:
|
|
6244
|
-
return Prelude_Interfaces_x3ex3dx3e($3,
|
|
6272
|
+
const $3 = {a1: $4, a2: csegen_198(), a3: csegen_199()};
|
|
6273
|
+
return Prelude_Interfaces_x3ex3dx3e($3, csegen_200(), $20 => Data_Config_n__8195_6496_parseConfigJson($0, $20), $1);
|
|
6245
6274
|
}
|
|
6246
6275
|
|
|
6247
6276
|
/* Data.Config.longestSettablePropName : Nat */
|
|
6248
6277
|
const Data_Config_longestSettablePropName = __lazy(function () {
|
|
6249
|
-
return Prelude_Types_foldr_Foldable_List(
|
|
6278
|
+
return Prelude_Types_foldr_Foldable_List(csegen_201(), 0n, Prelude_Types_List_mapAppend({h: 0}, $8 => Prelude_Types_String_length(Data_Config_propNamex27($8)), Data_Config_settableProps()));
|
|
6250
6279
|
});
|
|
6251
6280
|
|
|
6252
6281
|
/* Data.Config.json : Config -> JSON */
|
|
6253
6282
|
function Data_Config_json($0) {
|
|
6254
|
-
return {h: 6 /* JObject */, a1: {a1: {a1: 'assignTeams', a2: {h: 3 /* JBool */, a1: $0.a6}}, a2: {a1: {a1: 'assignUsers', a2: {h: 3 /* JBool */, a1: $0.a7}}, a2: {a1: {a1: 'commentOnAssign', a2: {h: 3 /* JBool */, a1: $0.a8}}, a2: {a1: {a1: 'org', a2: {h: 4 /* JString */, a1: $0.a2}}, a2: {a1: {a1: 'repo', a2: {h: 4 /* JString */, a1: $0.a3}}, a2: {a1: {a1: 'defaultRemote', a2: {h: 4 /* JString */, a1: $0.a4}}, a2: {a1: {a1: 'mainBranch', a2: {h: 4 /* JString */, a1: $0.a5}}, a2: {a1: {a1: 'orgMembers', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $2d => ({h: 4 /* JString */, a1: $2d}), Data_List_sort(
|
|
6283
|
+
return {h: 6 /* JObject */, a1: {a1: {a1: 'assignTeams', a2: {h: 3 /* JBool */, a1: $0.a6}}, a2: {a1: {a1: 'assignUsers', a2: {h: 3 /* JBool */, a1: $0.a7}}, a2: {a1: {a1: 'commentOnAssign', a2: {h: 3 /* JBool */, a1: $0.a8}}, a2: {a1: {a1: 'org', a2: {h: 4 /* JString */, a1: $0.a2}}, a2: {a1: {a1: 'repo', a2: {h: 4 /* JString */, a1: $0.a3}}, a2: {a1: {a1: 'defaultRemote', a2: {h: 4 /* JString */, a1: $0.a4}}, a2: {a1: {a1: 'mainBranch', a2: {h: 4 /* JString */, a1: $0.a5}}, a2: {a1: {a1: 'orgMembers', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $2d => ({h: 4 /* JString */, a1: $2d}), Data_List_sort(csegen_212(), $0.a11))}}, a2: {a1: {a1: 'teamSlugs', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $3c => ({h: 4 /* JString */, a1: $3c}), Data_List_sort(csegen_212(), $0.a9))}}, a2: {a1: {a1: 'repoLabels', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $4b => ({h: 4 /* JString */, a1: $4b}), Data_List_sort(csegen_212(), $0.a10))}}, a2: {a1: {a1: 'ignoredPRs', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $5a => ({h: 1 /* JInteger */, a1: $5a}), Data_List_sort({a1: csegen_215(), a2: csegen_216(), a3: $64 => $65 => Prelude_EqOrd_x3c_Ord_Integer($64, $65), a4: $6a => $6b => Prelude_EqOrd_x3e_Ord_Integer($6a, $6b), a5: $70 => $71 => Prelude_EqOrd_x3cx3d_Ord_Integer($70, $71), a6: $76 => $77 => Prelude_EqOrd_x3ex3d_Ord_Integer($76, $77), a7: $7c => $7d => Prelude_EqOrd_max_Ord_Integer($7c, $7d), a8: $82 => $83 => Prelude_EqOrd_min_Ord_Integer($82, $83)}, $0.a12))}}, a2: {a1: {a1: 'githubPAT', a2: Prelude_Types_maybe(() => ({h: 0 /* JNull */}), () => $8f => ({h: 4 /* JString */, a1: $8f}), $0.a13)}, a2: {a1: {a1: 'updatedAt', a2: {h: 1 /* JInteger */, a1: BigInt($0.a1)}}, a2: {h: 0}}}}}}}}}}}}}}};
|
|
6255
6284
|
}
|
|
6256
6285
|
|
|
6257
6286
|
/* Data.Config.filename : String */
|
|
@@ -6269,7 +6298,7 @@ function Decidable_Equality_decEq_DecEq_FromEqx24a($0, $1, $2) {
|
|
|
6269
6298
|
|
|
6270
6299
|
/* Decidable.Equality.decEq */
|
|
6271
6300
|
function Decidable_Equality_decEq_DecEq_Char($0, $1) {
|
|
6272
|
-
return Decidable_Equality_decEq_DecEq_FromEqx24a(
|
|
6301
|
+
return Decidable_Equality_decEq_DecEq_FromEqx24a(csegen_90(), $0, $1);
|
|
6273
6302
|
}
|
|
6274
6303
|
|
|
6275
6304
|
/* Data.Either.maybeToEither : Lazy e -> Maybe a -> Either e a */
|
|
@@ -6813,13 +6842,13 @@ function JSON_Parser_eqJSON($0, $1) {
|
|
|
6813
6842
|
}
|
|
6814
6843
|
case 5: /* JArray */ {
|
|
6815
6844
|
switch($1.h) {
|
|
6816
|
-
case 5: /* JArray */ return Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(
|
|
6845
|
+
case 5: /* JArray */ return Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_229(), $0.a1, $1.a1);
|
|
6817
6846
|
default: return 0;
|
|
6818
6847
|
}
|
|
6819
6848
|
}
|
|
6820
6849
|
case 6: /* JObject */ {
|
|
6821
6850
|
switch($1.h) {
|
|
6822
|
-
case 6: /* JObject */ return Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29({a1: $1e => $1f => Prelude_EqOrd_x3dx3d_Eq_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_39(),
|
|
6851
|
+
case 6: /* JObject */ return Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29({a1: $1e => $1f => Prelude_EqOrd_x3dx3d_Eq_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_39(), csegen_229(), $1e, $1f), a2: $28 => $29 => Prelude_EqOrd_x2fx3d_Eq_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_39(), csegen_229(), $28, $29)}, $0.a1, $1.a1);
|
|
6823
6852
|
default: return 0;
|
|
6824
6853
|
}
|
|
6825
6854
|
}
|
|
@@ -7059,7 +7088,7 @@ function Text_ParseError_failInParenEOI($0, $1, $2, $3) {
|
|
|
7059
7088
|
case 1: /* Right */ {
|
|
7060
7089
|
const $8 = {h: 1 /* Fail0 */, a1: {a1: {h: 9 /* Unexpected */, a1: {h: 1 /* Right */, a1: $3.a1.a1.a1.a1}}, a2: $3.a1.a2}};
|
|
7061
7090
|
switch($2($3.a1.a1.a1.a1)) {
|
|
7062
|
-
case 1: return
|
|
7091
|
+
case 1: return csegen_236()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
|
|
7063
7092
|
case 0: return Text_ParseError_failInParen($0, $1, $8);
|
|
7064
7093
|
}
|
|
7065
7094
|
}
|
|
@@ -7079,7 +7108,7 @@ function Text_ParseError_failInParenEOI($0, $1, $2, $3) {
|
|
|
7079
7108
|
case undefined: /* cons */ {
|
|
7080
7109
|
const $2a = {h: 0 /* Succ0 */, a1: $3.a1, a2: {a1: {a1: $3.a2.a1.a1, a2: $3.a2.a1.a2}, a2: $3.a2.a2}};
|
|
7081
7110
|
switch($2($3.a2.a1.a1)) {
|
|
7082
|
-
case 1: return
|
|
7111
|
+
case 1: return csegen_236()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
|
|
7083
7112
|
case 0: return Text_ParseError_failInParen($0, $1, $2a);
|
|
7084
7113
|
}
|
|
7085
7114
|
}
|
|
@@ -7100,7 +7129,7 @@ function Text_ParseError_failInParen($0, $1, $2) {
|
|
|
7100
7129
|
switch($2.a1.h) {
|
|
7101
7130
|
case undefined: /* cons */ {
|
|
7102
7131
|
switch($2.a1.a1.h) {
|
|
7103
|
-
case 1: /* EOI */ return
|
|
7132
|
+
case 1: /* EOI */ return csegen_236()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
|
|
7104
7133
|
default: return {h: 1 /* Fail0 */, a1: $2.a1};
|
|
7105
7134
|
}
|
|
7106
7135
|
}
|
|
@@ -7109,8 +7138,8 @@ function Text_ParseError_failInParen($0, $1, $2) {
|
|
|
7109
7138
|
}
|
|
7110
7139
|
case 0: /* Succ0 */ {
|
|
7111
7140
|
switch($2.a2.h) {
|
|
7112
|
-
case 0: /* nil */ return
|
|
7113
|
-
case undefined: /* cons */ return
|
|
7141
|
+
case 0: /* nil */ return csegen_236()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
|
|
7142
|
+
case undefined: /* cons */ return csegen_236()($2.a2.a1.a2)({h: 9 /* Unexpected */, a1: {h: 1 /* Right */, a1: $2.a2.a1.a1}});
|
|
7114
7143
|
}
|
|
7115
7144
|
}
|
|
7116
7145
|
}
|
|
@@ -7119,8 +7148,8 @@ function Text_ParseError_failInParen($0, $1, $2) {
|
|
|
7119
7148
|
/* Text.ParseError.fail : List (Bounded t) -> Result0 b (Bounded t) ts (Bounded (ParseError t y)) a */
|
|
7120
7149
|
function Text_ParseError_fail($0) {
|
|
7121
7150
|
switch($0.h) {
|
|
7122
|
-
case undefined: /* cons */ return
|
|
7123
|
-
case 0: /* nil */ return
|
|
7151
|
+
case undefined: /* cons */ return csegen_236()($0.a1.a2)({h: 9 /* Unexpected */, a1: {h: 1 /* Right */, a1: $0.a1.a1}});
|
|
7152
|
+
case 0: /* nil */ return csegen_236()({h: 0})({h: 1 /* EOI */});
|
|
7124
7153
|
}
|
|
7125
7154
|
}
|
|
7126
7155
|
|
|
@@ -7228,14 +7257,14 @@ function System_File_ReadWrite_readLinesOnto($0, $1, $2, $3, $4) {
|
|
|
7228
7257
|
}
|
|
7229
7258
|
};
|
|
7230
7259
|
const $26 = {a1: $27, a2: a => $2f => ({h: 1 /* Right */, a1: $2f}), a3: $31};
|
|
7231
|
-
const $25 = {a1: $26, a2:
|
|
7260
|
+
const $25 = {a1: $26, a2: csegen_198(), a3: csegen_199()};
|
|
7232
7261
|
const $40 = b => a => func => $41 => {
|
|
7233
7262
|
switch($41.h) {
|
|
7234
7263
|
case 0: /* Left */ return {h: 0 /* Left */, a1: $41.a1};
|
|
7235
7264
|
case 1: /* Right */ return {h: 1 /* Right */, a1: func($41.a1)};
|
|
7236
7265
|
}
|
|
7237
7266
|
};
|
|
7238
|
-
const $3f = {a1: $40, a2:
|
|
7267
|
+
const $3f = {a1: $40, a2: csegen_254(), a3: csegen_258()};
|
|
7239
7268
|
return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, $25, $3f, System_File_ReadWrite_fGetLine($0, $4), str => System_File_ReadWrite_readLinesOnto($0, {a1: str, a2: $1}, 0n, $3.a1(), $4));
|
|
7240
7269
|
}
|
|
7241
7270
|
default: {
|
|
@@ -7534,7 +7563,7 @@ const System_Info_os = __lazy(function () {
|
|
|
7534
7563
|
|
|
7535
7564
|
/* System.Info.isWindows : Bool */
|
|
7536
7565
|
const System_Info_isWindows = __lazy(function () {
|
|
7537
|
-
return Prelude_Types_elem(
|
|
7566
|
+
return Prelude_Types_elem(csegen_144(), csegen_39(), System_Info_os(), {a1: 'windows', a2: {a1: 'mingw32', a2: {a1: 'cygwin32', a2: {h: 0}}}});
|
|
7538
7567
|
});
|
|
7539
7568
|
|
|
7540
7569
|
/* Data.Fuel.limit : Nat -> Fuel */
|
|
@@ -7689,7 +7718,7 @@ function System_getEnv($0, $1) {
|
|
|
7689
7718
|
function System_getArgs($0) {
|
|
7690
7719
|
const $12 = n => {
|
|
7691
7720
|
switch(Prelude_EqOrd_x3e_Ord_Int(n, Number(_truncBigInt32(0n)))) {
|
|
7692
|
-
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:
|
|
7721
|
+
case 1: return Prelude_Basics_flip($1a => $1b => Prelude_Types_traverse_Traversable_List($0.a1.a1, $1a, $1b), Prelude_Types_rangeFromTo_Range_x24a({a1: {a1: csegen_272(), a2: $29 => $2a => Prelude_Num_div_Integral_Int($29, $2a), a3: $2f => $30 => Prelude_Num_mod_Integral_Int($2f, $30)}, a2: {a1: {a1: {a1: $38 => $39 => Prelude_EqOrd_x3dx3d_Eq_Int($38, $39), a2: $3e => $3f => Prelude_EqOrd_x2fx3d_Eq_Int($3e, $3f)}, a2: $44 => $45 => Prelude_EqOrd_compare_Ord_Int($44, $45), a3: $4a => $4b => Prelude_EqOrd_x3c_Ord_Int($4a, $4b), a4: $50 => $51 => Prelude_EqOrd_x3e_Ord_Int($50, $51), a5: $56 => $57 => Prelude_EqOrd_x3cx3d_Ord_Int($56, $57), a6: $5c => $5d => Prelude_EqOrd_x3ex3d_Ord_Int($5c, $5d), a7: $62 => $63 => Prelude_EqOrd_max_Ord_Int($62, $63), a8: $68 => $69 => Prelude_EqOrd_min_Ord_Int($68, $69)}, a2: {a1: csegen_272(), a2: $71 => _sub32s(0, $71), a3: $75 => $76 => _sub32s($75, $76)}}}, 0, _sub32s(n, 1)), $7e => $0.a2(undefined)($84 => System_prim__getArg($7e, $84)));
|
|
7693
7722
|
case 0: return $0.a1.a1.a2(undefined)({h: 0});
|
|
7694
7723
|
}
|
|
7695
7724
|
};
|
|
@@ -7744,12 +7773,12 @@ function Help_n__4720_1020_heading($0, $1) {
|
|
|
7744
7773
|
|
|
7745
7774
|
/* Help.4720:1019:argument */
|
|
7746
7775
|
function Help_n__4720_1019_argument($0, $1) {
|
|
7747
|
-
return Help_n__4720_1021_maybeDecorate($0,
|
|
7776
|
+
return Help_n__4720_1021_maybeDecorate($0, csegen_296(), $1);
|
|
7748
7777
|
}
|
|
7749
7778
|
|
|
7750
7779
|
/* Help.help : Bool -> String */
|
|
7751
7780
|
function Help_help($0) {
|
|
7752
|
-
return Prelude_Types_foldMap_Foldable_List(csegen_49(), $5 => $5, {a1: 'harmony ', a2: {a1: Help_n__4720_1024_subcommand($0, '<subcommand>'), a2: {a1: '\n\n', a2: {a1: Help_n__4720_1020_heading($0, 'Subcommands'), a2: {a1: ':\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'help'), a2: {a1: '\n - Print help\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'version'), a2: {a1: '\n - Print version\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'config'), a2: {a1: ' {', a2: {a1: Help_n__4720_1019_argument($0, '<property>'), a2: {a1: '} [', a2: {a1: Help_n__4720_1019_argument($0, '<value>'), a2: {a1: ']\n - Get or set the value of a configuration property. Not all properties\n can be set and read via this subcommand.\n ', a2: {a1: Help_n__4720_1019_argument($0, 'properties'), a2: {a1: ': ', a2: {a1: Data_String_Extra_join(', ',
|
|
7781
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_49(), $5 => $5, {a1: 'harmony ', a2: {a1: Help_n__4720_1024_subcommand($0, '<subcommand>'), a2: {a1: '\n\n', a2: {a1: Help_n__4720_1020_heading($0, 'Subcommands'), a2: {a1: ':\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'help'), a2: {a1: '\n - Print help\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'version'), a2: {a1: '\n - Print version\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'config'), a2: {a1: ' {', a2: {a1: Help_n__4720_1019_argument($0, '<property>'), a2: {a1: '} [', a2: {a1: Help_n__4720_1019_argument($0, '<value>'), a2: {a1: ']\n - Get or set the value of a configuration property. Not all properties\n can be set and read via this subcommand.\n ', a2: {a1: Help_n__4720_1019_argument($0, 'properties'), a2: {a1: ': ', a2: {a1: Data_String_Extra_join(', ', csegen_144(), Prelude_Types_List_mapAppend({h: 0}, $4a => Help_n__4720_1022_option($0, $4a), Data_Config_settablePropNames())), a2: {a1: '.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'sync'), a2: {a1: '\n - Synchronize local config with information from GitHub.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'branch'), a2: {a1: '\n - Print the GitHub URI for the currently checked out branch.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'pr'), a2: {a1: ' [', a2: {a1: Help_n__4720_1019_argument($0, '--draft'), a2: {a1: '] [', a2: {a1: Help_n__4720_1019_argument($0, '#<label>'), a2: {a1: '] [...]\n - Identify an existing PR or create a new one for the current branch.\n \n Optionally apply any number of labels by prefixing them with \'#\'.\n\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'contribute'), a2: {a1: ' [', a2: {a1: Help_n__4720_1019_argument($0, '-c/--checkout'), a2: {a1: '] [', a2: {a1: Help_n__4720_1019_argument($0, '-<num>'), a2: {a1: '] [', a2: {a1: Help_n__4720_1019_argument($0, '-i/--ignore'), a2: {a1: ' {', a2: {a1: Help_n__4720_1019_argument($0, '<uri>/<pr-number>'), a2: {a1: '}]\n - Contribute to an open PR. Prints a URL. Prioritizes PRs you are\n requested to review but will also return other PRs.\n\n Use dash followed by a number (e.g. \'-3\') to skip that number of\n potential PRs and return the next.\n\n Specify a PR to ignore (only affects the local Harmony config on\n this machine) if you would like to more permanently skip a potential\n PR. Do this with the \'--ignore\' option followed by a GitHub URI or\n Pull Request number.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'whoami'), a2: {a1: '\n - Print information about the configured and authenticated user.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'reflect'), a2: {a1: '\n - Reflect on the current state of ones own PRs and review requests.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'list'), a2: {a1: ' {', a2: {a1: Help_n__4720_1019_argument($0, '<team-slug>'), a2: {a1: '}\n - List the members of the given GitHub Team.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'graph'), a2: {a1: ' [', a2: {a1: Help_n__4720_1019_argument($0, '-c/--completed'), a2: {a1: '] {', a2: {a1: Help_n__4720_1019_argument($0, '<team-slug>'), a2: {a1: '}\n - Graph the relative review workload of the members of the given GitHub Team.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'health'), a2: {a1: '\n - Graph all open PRs grouped by the month they were created.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'label'), a2: {a1: ' {', a2: {a1: Help_n__4720_1019_argument($0, '<label>'), a2: {a1: '} [...]\n - Add one or more labels to a PR, creating a new PR if one does not exist.\n Labels that do not exist yet will be created automatically.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'assign'), a2: {a1: ' {', a2: {a1: Help_n__4720_1019_argument($0, '<team-slug>'), a2: {a1: ' | ', a2: {a1: Help_n__4720_1019_argument($0, '+<user-login>'), a2: {a1: '} [', a2: {a1: Help_n__4720_1019_argument($0, '#<label>'), a2: {a1: '] [...]\n - Assign the given team(s) and one lucky member from one of those teams\n to review the PR for the current branch.\n \n Also assign any users with logins specified. You specify these\n additional users by prefixing their logins with \'+\'.\n\n Optionally apply any number of labels by prefixing them with \'#\'.\n \n', a2: {a1: Help_n__4720_1020_heading($0, 'Bash Completion'), a2: {a1: ':\n You can set up bash completion by adding the following to your resource\n or bash profile:\n \n ', a2: {a1: Help_n__4720_1023_shell($0, 'eval \"$(harmony --bash-completion-script)\"'), a2: {a1: '\n \n Zsh users will also need to have the following in their resource or\n zsh profile before the above eval:\n \n ', a2: {a1: Help_n__4720_1023_shell($0, 'autoload -U +X compinit && compinit'), a2: {a1: '\n ', a2: {a1: Help_n__4720_1023_shell($0, 'autoload -U +X bashcompinit && bashcompinit'), a2: {a1: '\n ', a2: {h: 0}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}});
|
|
7753
7782
|
}
|
|
7754
7783
|
|
|
7755
7784
|
/* FFI.GitHub.show */
|
|
@@ -7807,12 +7836,12 @@ function FFI_GitHub_listPullRequestsJsonStr($0, $1, $2, $3, $4, $5) {
|
|
|
7807
7836
|
String -> String -> Maybe GitHubPRState -> Fin 101 -> {default 0 _ : Nat} ->
|
|
7808
7837
|
Promise (List PullRequest) */
|
|
7809
7838
|
function FFI_GitHub_listPullRequests($0, $1, $2, $3, $4, $5) {
|
|
7810
|
-
return Prelude_Basics_flip(
|
|
7839
|
+
return Prelude_Basics_flip(csegen_297(), csegen_298(), FFI_GitHub_listPullRequestsJsonStr($0, $1, $2, $3, $4, $5));
|
|
7811
7840
|
}
|
|
7812
7841
|
|
|
7813
7842
|
/* FFI.GitHub.listPRsForBranch : Octokit => String -> String -> String -> Promise (List PullRequest) */
|
|
7814
7843
|
function FFI_GitHub_listPRsForBranch($0, $1, $2, $3) {
|
|
7815
|
-
return Prelude_Basics_flip(
|
|
7844
|
+
return Prelude_Basics_flip(csegen_297(), csegen_298(), $a => $b => FFI_promiseIO($e => $f => $10 => FFI_GitHub_prim__listPRsForBranch($0, $1, $2, $3, $e, $f, $10), $a, $b));
|
|
7816
7845
|
}
|
|
7817
7846
|
|
|
7818
7847
|
/* FFI.GitHub.listOrgMembers : Octokit => String -> Promise (List String) */
|
|
@@ -7827,12 +7856,12 @@ function FFI_GitHub_listMyTeams($0, $1, $2) {
|
|
|
7827
7856
|
|
|
7828
7857
|
/* FFI.GitHub.getUser : Octokit => String -> Promise User */
|
|
7829
7858
|
function FFI_GitHub_getUser($0) {
|
|
7830
|
-
return Prelude_Interfaces_x3cx3dx3c(csegen_69(),
|
|
7859
|
+
return Prelude_Interfaces_x3cx3dx3c(csegen_69(), csegen_299(), $7 => $8 => $9 => FFI_promiseIO($c => $d => $e => FFI_GitHub_prim__getUser($0, $7, $c, $d, $e), $8, $9));
|
|
7831
7860
|
}
|
|
7832
7861
|
|
|
7833
7862
|
/* FFI.GitHub.getSelf : Octokit => Promise User */
|
|
7834
7863
|
function FFI_GitHub_getSelf($0) {
|
|
7835
|
-
return Prelude_Basics_flip(
|
|
7864
|
+
return Prelude_Basics_flip(csegen_297(), csegen_299(), $7 => $8 => FFI_promiseIO($b => $c => $d => FFI_GitHub_prim__getSelf($0, $b, $c, $d), $7, $8));
|
|
7836
7865
|
}
|
|
7837
7866
|
|
|
7838
7867
|
/* FFI.GitHub.getRepoDefaultBranch : Octokit => String -> String -> Promise String */
|
|
@@ -7843,7 +7872,7 @@ function FFI_GitHub_getRepoDefaultBranch($0, $1, $2, $3, $4) {
|
|
|
7843
7872
|
/* FFI.GitHub.createPR : Octokit => {default False _ : Bool} ->
|
|
7844
7873
|
String -> String -> String -> String -> String -> String -> Promise PullRequest */
|
|
7845
7874
|
function FFI_GitHub_createPR($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
7846
|
-
return Prelude_Basics_flip(
|
|
7875
|
+
return Prelude_Basics_flip(csegen_297(), $c => $d => Data_Promise_either(csegen_51(), Data_PullRequest_parsePullRequestString($c), $d), $16 => $17 => FFI_promiseIO($1a => $1b => $1c => FFI_GitHub_prim__createPR($0, $2, $3, $4, $5, $6, $7, $1, $1a, $1b, $1c), $16, $17));
|
|
7847
7876
|
}
|
|
7848
7877
|
|
|
7849
7878
|
/* FFI.GitHub.createComment : Octokit => String -> String -> Integer -> String -> Promise () */
|
|
@@ -7854,12 +7883,12 @@ function FFI_GitHub_createComment($0, $1, $2, $3, $4, $5, $6) {
|
|
|
7854
7883
|
/* FFI.GitHub.addPullReviewers : Octokit =>
|
|
7855
7884
|
String -> String -> Integer -> List String -> List String -> Promise (List String) */
|
|
7856
7885
|
function FFI_GitHub_addPullReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
7857
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($a => $b => Data_Promise_map_Functor_Promise($e => Data_String_lines($e), $12 => $13 => FFI_promiseIO($16 => $17 => $18 => FFI_GitHub_prim__addPullReviewers($0, $1, $2, $3, '', Data_String_Extra_join(',',
|
|
7886
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($a => $b => Data_Promise_map_Functor_Promise($e => Data_String_lines($e), $12 => $13 => FFI_promiseIO($16 => $17 => $18 => FFI_GitHub_prim__addPullReviewers($0, $1, $2, $3, '', Data_String_Extra_join(',', csegen_144(), $5), $16, $17, $18), $12, $13), $a, $b), teamReviewers => $2d => $2e => Data_Promise_x3ex3ex3d_Monad_Promise($31 => $32 => Data_Promise_map_Functor_Promise($35 => Data_String_lines($35), $39 => $3a => FFI_promiseIO($3d => $3e => $3f => FFI_GitHub_prim__addPullReviewers($0, $1, $2, $3, Data_String_Extra_join(',', csegen_144(), $4), '', $3d, $3e, $3f), $39, $3a), $31, $32), individualReviewers => $54 => $55 => Data_Promise_pure_Applicative_Promise(Prelude_Types_List_tailRecAppend(teamReviewers, individualReviewers), $54, $55), $2d, $2e), $6, $7);
|
|
7858
7887
|
}
|
|
7859
7888
|
|
|
7860
7889
|
/* FFI.GitHub.addPullLabels : Octokit => String -> String -> Integer -> List String -> Promise (List String) */
|
|
7861
7890
|
function FFI_GitHub_addPullLabels($0, $1, $2, $3, $4, $5, $6) {
|
|
7862
|
-
return Data_Promise_map_Functor_Promise($9 => Data_String_lines($9), $d => $e => FFI_promiseIO($11 => $12 => $13 => FFI_GitHub_prim__addLabels($0, $1, $2, $3, Data_String_Extra_join(',',
|
|
7891
|
+
return Data_Promise_map_Functor_Promise($9 => Data_String_lines($9), $d => $e => FFI_promiseIO($11 => $12 => $13 => FFI_GitHub_prim__addLabels($0, $1, $2, $3, Data_String_Extra_join(',', csegen_144(), $4), $11, $12, $13), $d, $e), $5, $6);
|
|
7863
7892
|
}
|
|
7864
7893
|
|
|
7865
7894
|
/* FFI.promiseIO : ((String -> PrimIO ()) -> (String -> PrimIO ()) -> PrimIO ()) -> Promise String */
|
|
@@ -7964,8 +7993,8 @@ function Data_User_parseUserString($0) {
|
|
|
7964
7993
|
}
|
|
7965
7994
|
};
|
|
7966
7995
|
const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
|
|
7967
|
-
const $2 = {a1: $3, a2:
|
|
7968
|
-
return Prelude_Interfaces_x3ex3dx3e($2,
|
|
7996
|
+
const $2 = {a1: $3, a2: csegen_198(), a3: csegen_199()};
|
|
7997
|
+
return Prelude_Interfaces_x3ex3dx3e($2, csegen_200(), $1f => Data_User_parseUser($1f), $0);
|
|
7969
7998
|
}
|
|
7970
7999
|
|
|
7971
8000
|
/* Data.User.parseUser : JSON -> Either String User */
|
|
@@ -7995,7 +8024,7 @@ function Data_Review_parseState($0) {
|
|
|
7995
8024
|
|
|
7996
8025
|
/* Data.Review.parseReview : JSON -> Either String Review */
|
|
7997
8026
|
function Data_Review_parseReview($0) {
|
|
7998
|
-
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(
|
|
8027
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), review => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'author', a2: {a1: 'state', a2: {a1: 'submitted_at', a2: {h: 0}}}}, review), $12 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($12.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_304(), $22 => Data_Review_parseState($22), Language_JSON_Accessors_string($12.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_304(), $2f => Data_Review_parseDateTime($2f), Language_JSON_Accessors_string($12.a2.a2.a1)), submittedAt => ({h: 1 /* Right */, a1: {a1: submittedAt, a2: author, a3: state}}))))));
|
|
7999
8028
|
}
|
|
8000
8029
|
|
|
8001
8030
|
/* Data.Review.parseDateTime : String -> Either String Date */
|
|
@@ -8129,7 +8158,7 @@ function Data_Date_max_Ord_Date($0, $1) {
|
|
|
8129
8158
|
|
|
8130
8159
|
/* Data.Date.compare */
|
|
8131
8160
|
function Data_Date_compare_Ord_Date($0, $1) {
|
|
8132
|
-
return Prelude_Types_compare_Ord_x28Listx20x24ax29({a1: {a1: $8 => $9 => (($8===$9)?1:0), a2: $d => $e => Prelude_Types_x2fx3d_Eq_Nat($d, $e)}, a2:
|
|
8161
|
+
return Prelude_Types_compare_Ord_x28Listx20x24ax29({a1: {a1: $8 => $9 => (($8===$9)?1:0), a2: $d => $e => Prelude_Types_x2fx3d_Eq_Nat($d, $e)}, a2: csegen_216(), a3: $15 => $16 => Prelude_Types_x3c_Ord_Nat($15, $16), a4: $1b => $1c => Prelude_Types_x3e_Ord_Nat($1b, $1c), a5: $21 => $22 => Prelude_Types_x3cx3d_Ord_Nat($21, $22), a6: $27 => $28 => Prelude_Types_x3ex3d_Ord_Nat($27, $28), a7: $2d => $2e => Prelude_Types_max_Ord_Nat($2d, $2e), a8: $33 => $34 => Prelude_Types_min_Ord_Nat($33, $34)}, {a1: $0.a1, a2: {a1: $0.a2, a2: {a1: $0.a3, a2: {h: 0}}}}, {a1: $1.a1, a2: {a1: $1.a2, a2: {a1: $1.a3, a2: {h: 0}}}});
|
|
8133
8162
|
}
|
|
8134
8163
|
|
|
8135
8164
|
/* Data.Date.> */
|
|
@@ -8285,8 +8314,8 @@ function Data_PullRequest_parsePullRequestsString($0) {
|
|
|
8285
8314
|
}
|
|
8286
8315
|
};
|
|
8287
8316
|
const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
|
|
8288
|
-
const $2 = {a1: $3, a2:
|
|
8289
|
-
return Prelude_Interfaces_x3ex3dx3e($2,
|
|
8317
|
+
const $2 = {a1: $3, a2: csegen_198(), a3: csegen_199()};
|
|
8318
|
+
return Prelude_Interfaces_x3ex3dx3e($2, csegen_200(), csegen_317(), $0);
|
|
8290
8319
|
}
|
|
8291
8320
|
|
|
8292
8321
|
/* Data.PullRequest.parsePullRequestString : String -> Either String PullRequest */
|
|
@@ -8309,13 +8338,13 @@ function Data_PullRequest_parsePullRequestString($0) {
|
|
|
8309
8338
|
}
|
|
8310
8339
|
};
|
|
8311
8340
|
const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
|
|
8312
|
-
const $2 = {a1: $3, a2:
|
|
8313
|
-
return Prelude_Interfaces_x3ex3dx3e($2,
|
|
8341
|
+
const $2 = {a1: $3, a2: csegen_198(), a3: csegen_199()};
|
|
8342
|
+
return Prelude_Interfaces_x3ex3dx3e($2, csegen_200(), $1f => Data_PullRequest_parsePR($1f), $0);
|
|
8314
8343
|
}
|
|
8315
8344
|
|
|
8316
8345
|
/* Data.PullRequest.parsePR : JSON -> Either String PullRequest */
|
|
8317
8346
|
function Data_PullRequest_parsePR($0) {
|
|
8318
|
-
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(
|
|
8347
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), pr => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'pull_number', a2: {a1: 'author', a2: {a1: 'state', a2: {a1: 'created_at', a2: {a1: 'merged', a2: {a1: 'draft', a2: {a1: 'reviewers', a2: {a1: 'head_ref', a2: {h: 0}}}}}}}}}, pr), $1c => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($1c.a1), number => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1c.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($1c.a2.a2.a2.a2.a1), merged => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($1c.a2.a2.a2.a2.a2.a1), isDraft => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_304(), $40 => Data_PullRequest_parseState(merged, $40), Language_JSON_Accessors_string($1c.a2.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_304(), $4e => Data_PullRequest_parseDateTime($4e), Language_JSON_Accessors_string($1c.a2.a2.a2.a1)), createdAt => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($59 => Language_JSON_Accessors_string($59), $1c.a2.a2.a2.a2.a2.a2.a1), reviewers => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1c.a2.a2.a2.a2.a2.a2.a2.a1), headRef => ({h: 1 /* Right */, a1: {a1: number, a2: createdAt, a3: isDraft, a4: author, a5: state, a6: reviewers, a7: headRef}})))))))))));
|
|
8319
8348
|
}
|
|
8320
8349
|
|
|
8321
8350
|
/* Data.PullRequest.parseDateTime : String -> Either String Date */
|
|
@@ -8325,7 +8354,7 @@ function Data_PullRequest_parseDateTime($0) {
|
|
|
8325
8354
|
|
|
8326
8355
|
/* Data.PullRequest.isRequestedReviewer : String -> PullRequest -> Bool */
|
|
8327
8356
|
function Data_PullRequest_isRequestedReviewer($0, $1) {
|
|
8328
|
-
return Prelude_Types_foldMap_Foldable_List(
|
|
8357
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_94(), $6 => Prelude_EqOrd_x3dx3d_Eq_String($6, $0), $1.a6);
|
|
8329
8358
|
}
|
|
8330
8359
|
|
|
8331
8360
|
/* Data.PullRequest.isAuthor : String -> PullRequest -> Bool */
|
|
@@ -8465,7 +8494,7 @@ function Config_with__withx20blockx20inx20setConfig_1978($0, $1, $2, $3, $4, $5,
|
|
|
8465
8494
|
return $7 => {
|
|
8466
8495
|
switch($5.h) {
|
|
8467
8496
|
case 0: /* nothing */ return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_49(), $f => $f, {a1: $4, a2: {a1: ' is not a valid value for ', a2: {a1: $1, a2: {a1: '.', a2: {h: 0}}}}}), $6, $7);
|
|
8468
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $1f => Util_renderIO($5.a1, csegen_72(), $1f), () =>
|
|
8497
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $1f => Util_renderIO($5.a1, csegen_72(), $1f), () => csegen_325(), Config_checkConfigConsistency($5.a1)), $2b => $2c => $2d => Config_writeConfig($5.a1, $2c, $2d), $6, $7);
|
|
8469
8498
|
}
|
|
8470
8499
|
};
|
|
8471
8500
|
}
|
|
@@ -8515,12 +8544,12 @@ function Config_case__parseGitHubURIx2cparseSuffix_1509($0, $1, $2) {
|
|
|
8515
8544
|
default: return {h: 0};
|
|
8516
8545
|
}
|
|
8517
8546
|
};
|
|
8518
|
-
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(
|
|
8547
|
+
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_326(), $2.a1)}, $b);
|
|
8519
8548
|
}
|
|
8520
8549
|
|
|
8521
8550
|
/* Config.8973:2259:repo */
|
|
8522
8551
|
function Config_n__8973_2259_repo($0, $1, $2, $3, $4) {
|
|
8523
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
8552
|
+
return Prelude_Types_map_Functor_Maybe(csegen_327(), $4);
|
|
8524
8553
|
}
|
|
8525
8554
|
|
|
8526
8555
|
/* Config.8227:1489:parseSuffix */
|
|
@@ -8540,7 +8569,7 @@ function Config_n__8227_1487_parseHTTPS($0, $1) {
|
|
|
8540
8569
|
|
|
8541
8570
|
/* Config.8973:2258:org */
|
|
8542
8571
|
function Config_n__8973_2258_org($0, $1, $2, $3, $4) {
|
|
8543
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
8572
|
+
return Prelude_Types_map_Functor_Maybe(csegen_331(), $4);
|
|
8544
8573
|
}
|
|
8545
8574
|
|
|
8546
8575
|
/* Config.8973:2257:orIfEmpty */
|
|
@@ -8644,7 +8673,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
8644
8673
|
const $32 = {a1: updatedAt, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: $0.a8, a9: teamSlugs, a10: labelNames, a11: orgMembers, a12: $0.a12, a13: $0.a13, a14: $0.a14};
|
|
8645
8674
|
return $42 => $43 => Data_Promise_x3ex3ex3d_Monad_Promise($46 => $47 => Data_Promise_map_Functor_Promise($4a => (undefined), $4c => $4d => Config_writeConfig($32, $4c, $4d), $46, $47), $55 => $56 => $57 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_when(csegen_64(), $2, () => $5f => $60 => Data_Promise_x3ex3ex3d_Monad_Promise($63 => $64 => $65 => Data_Promise_liftIO_HasIO_Promise($68 => Prelude_IO_prim__putStr('Your updated configuration is:\n', $68), $63, $64, $65), $70 => $71 => $72 => $73 => Data_Promise_liftIO_HasIO_Promise($76 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($32)+'\n'), $76), $71, $72, $73), $5f, $60)), $84 => $85 => $86 => Data_Promise_pure_Applicative_Promise($32, $85, $86), $56, $57), $42, $43);
|
|
8646
8675
|
};
|
|
8647
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
8676
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_342(), $31, $2c, $2d);
|
|
8648
8677
|
};
|
|
8649
8678
|
return Data_Promise_x3ex3ex3d_Monad_Promise($23 => $24 => FFI_GitHub_listOrgMembers($1, $0.a2, $23, $24), $2b, $1f, $20);
|
|
8650
8679
|
};
|
|
@@ -8667,11 +8696,11 @@ function Config_setConfig($0, $1, $2) {
|
|
|
8667
8696
|
function Config_propSetter($0, $1) {
|
|
8668
8697
|
return $2 => {
|
|
8669
8698
|
switch($0) {
|
|
8670
|
-
case 0: return Config_update(
|
|
8671
|
-
case 1: return Config_update(
|
|
8672
|
-
case 2: return Config_update(
|
|
8673
|
-
case 3: return Config_update(
|
|
8674
|
-
case 4: return Config_update(
|
|
8699
|
+
case 0: return Config_update(csegen_347(), $8 => Config_parseBool($8), b => $c => ({a1: $c.a1, a2: $c.a2, a3: $c.a3, a4: $c.a4, a5: $c.a5, a6: b, a7: $c.a7, a8: $c.a8, a9: $c.a9, a10: $c.a10, a11: $c.a11, a12: $c.a12, a13: $c.a13, a14: $c.a14}), $1, $2);
|
|
8700
|
+
case 1: return Config_update(csegen_347(), $22 => Config_parseBool($22), b => $26 => ({a1: $26.a1, a2: $26.a2, a3: $26.a3, a4: $26.a4, a5: $26.a5, a6: $26.a6, a7: b, a8: $26.a8, a9: $26.a9, a10: $26.a10, a11: $26.a11, a12: $26.a12, a13: $26.a13, a14: $26.a14}), $1, $2);
|
|
8701
|
+
case 2: return Config_update(csegen_347(), $3c => Config_parseBool($3c), b => $40 => ({a1: $40.a1, a2: $40.a2, a3: $40.a3, a4: $40.a4, a5: $40.a5, a6: $40.a6, a7: $40.a7, a8: b, a9: $40.a9, a10: $40.a10, a11: $40.a11, a12: $40.a12, a13: $40.a13, a14: $40.a14}), $1, $2);
|
|
8702
|
+
case 3: return Config_update(csegen_347(), $56 => ({a1: $56}), s => $59 => ({a1: $59.a1, a2: $59.a2, a3: $59.a3, a4: s, a5: $59.a5, a6: $59.a6, a7: $59.a7, a8: $59.a8, a9: $59.a9, a10: $59.a10, a11: $59.a11, a12: $59.a12, a13: $59.a13, a14: $59.a14}), $1, $2);
|
|
8703
|
+
case 4: return Config_update(csegen_347(), $6f => ({a1: $6f}), s => $72 => ({a1: $72.a1, a2: $72.a2, a3: $72.a3, a4: $72.a4, a5: $72.a5, a6: $72.a6, a7: $72.a7, a8: $72.a8, a9: $72.a9, a10: $72.a10, a11: $72.a11, a12: $72.a12, a13: {a1: s}, a14: $72.a14}), $1, $2);
|
|
8675
8704
|
}
|
|
8676
8705
|
};
|
|
8677
8706
|
}
|
|
@@ -8752,14 +8781,14 @@ function Config_loadConfig($0, $1, $2) {
|
|
|
8752
8781
|
}
|
|
8753
8782
|
};
|
|
8754
8783
|
const $a = {a1: $b, a2: a => $13 => ({h: 1 /* Right */, a1: $13}), a3: $15};
|
|
8755
|
-
const $9 = {a1: $a, a2:
|
|
8784
|
+
const $9 = {a1: $a, a2: csegen_198(), a3: csegen_199()};
|
|
8756
8785
|
const $24 = b => a => func => $25 => {
|
|
8757
8786
|
switch($25.h) {
|
|
8758
8787
|
case 0: /* Left */ return {h: 0 /* Left */, a1: $25.a1};
|
|
8759
8788
|
case 1: /* Right */ return {h: 1 /* Right */, a1: func($25.a1)};
|
|
8760
8789
|
}
|
|
8761
8790
|
};
|
|
8762
|
-
const $23 = {a1: $24, a2:
|
|
8791
|
+
const $23 = {a1: $24, a2: csegen_254(), a3: csegen_258()};
|
|
8763
8792
|
return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, $9, $23, $4, $5);
|
|
8764
8793
|
};
|
|
8765
8794
|
const $3d = $3e => {
|
|
@@ -8843,7 +8872,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
8843
8872
|
default: return {a1: Data_String_trim($73)};
|
|
8844
8873
|
}
|
|
8845
8874
|
};
|
|
8846
|
-
return Data_Promise_map_Functor_Promise($72,
|
|
8875
|
+
return Data_Promise_map_Functor_Promise($72, csegen_360(), $6f, $70);
|
|
8847
8876
|
};
|
|
8848
8877
|
const $7e = configPAT => $7f => $80 => {
|
|
8849
8878
|
const $8c = $8d => $8e => $8f => {
|
|
@@ -8851,11 +8880,11 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
8851
8880
|
case undefined: /* just */ {
|
|
8852
8881
|
const $a3 = remoteGuess => $a4 => $a5 => {
|
|
8853
8882
|
const $c1 = defaultOrgAndRepo => {
|
|
8854
|
-
const $c2 = Config_n__8973_2255_defaultStr($0, $3, $2, $1,
|
|
8883
|
+
const $c2 = Config_n__8973_2255_defaultStr($0, $3, $2, $1, csegen_331(), defaultOrgAndRepo);
|
|
8855
8884
|
return $cb => $cc => {
|
|
8856
8885
|
const $e9 = $ea => $eb => $ec => {
|
|
8857
8886
|
const $107 = org => {
|
|
8858
|
-
const $108 = Config_n__8973_2255_defaultStr($0, $3, $2, $1,
|
|
8887
|
+
const $108 = Config_n__8973_2255_defaultStr($0, $3, $2, $1, csegen_327(), defaultOrgAndRepo);
|
|
8859
8888
|
return $111 => $112 => {
|
|
8860
8889
|
const $12f = $130 => $131 => $132 => {
|
|
8861
8890
|
const $14d = repo => {
|
|
@@ -8876,7 +8905,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
8876
8905
|
const $205 = repoLabels => $206 => $207 => {
|
|
8877
8906
|
const $211 = orgMembers => {
|
|
8878
8907
|
const $212 = {a1: updatedAt, a2: org, a3: repo, a4: defaultRemote, a5: mainBranch, a6: assignTeams, a7: assignUsers, a8: commentOnAssign, a9: teamSlugs, a10: repoLabels, a11: orgMembers, a12: {h: 0}, a13: Prelude_Types_map_Functor_Maybe($222 => $222, configPAT), a14: $1de};
|
|
8879
|
-
return $225 => $226 => Data_Promise_x3ex3ex3d_Monad_Promise($229 => $22a => Data_Promise_map_Functor_Promise($22d => (undefined), $22f => $230 => Config_writeConfig($212, $22f, $230), $229, $22a), $238 => $239 => $23a => Data_Promise_x3ex3ex3d_Monad_Promise($23d => $23e => $23f => Data_Promise_liftIO_HasIO_Promise($242 => Prelude_IO_prim__putStr('Your new configuration is:\n', $242), $23d, $23e, $23f), $24a => $24b => $24c => Data_Promise_x3ex3ex3d_Monad_Promise($24f => $250 => $251 => Data_Promise_liftIO_HasIO_Promise($254 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($212)+'\n'), $254), $24f, $250, $251), $260 => $261 => $262 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $267 => Util_renderIO($212, csegen_72(), $267), () =>
|
|
8908
|
+
return $225 => $226 => Data_Promise_x3ex3ex3d_Monad_Promise($229 => $22a => Data_Promise_map_Functor_Promise($22d => (undefined), $22f => $230 => Config_writeConfig($212, $22f, $230), $229, $22a), $238 => $239 => $23a => Data_Promise_x3ex3ex3d_Monad_Promise($23d => $23e => $23f => Data_Promise_liftIO_HasIO_Promise($242 => Prelude_IO_prim__putStr('Your new configuration is:\n', $242), $23d, $23e, $23f), $24a => $24b => $24c => Data_Promise_x3ex3ex3d_Monad_Promise($24f => $250 => $251 => Data_Promise_liftIO_HasIO_Promise($254 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($212)+'\n'), $254), $24f, $250, $251), $260 => $261 => $262 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $267 => Util_renderIO($212, csegen_72(), $267), () => csegen_325(), Config_checkConfigConsistency($212)), $273 => $274 => $275 => Data_Promise_pure_Applicative_Promise($212, $274, $275), $261, $262), $24b, $24c), $239, $23a), $225, $226);
|
|
8880
8909
|
};
|
|
8881
8910
|
return Data_Promise_x3ex3ex3d_Monad_Promise($20a => $20b => FFI_GitHub_listOrgMembers(_, org, $20a, $20b), $211, $206, $207);
|
|
8882
8911
|
};
|
|
@@ -8885,7 +8914,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
8885
8914
|
return Data_Promise_x3ex3ex3d_Monad_Promise($1f1 => $1f2 => FFI_GitHub_listTeams(_, org, $1f1, $1f2), $1f8, $1ed, $1ee);
|
|
8886
8915
|
};
|
|
8887
8916
|
};
|
|
8888
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
8917
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_342(), $1dd, $1d8, $1d9);
|
|
8889
8918
|
};
|
|
8890
8919
|
return Data_Promise_x3ex3ex3d_Monad_Promise($1cf => $1d0 => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $1cf, $1d0), $1d7, $1cb, $1cc);
|
|
8891
8920
|
};
|
|
@@ -8899,22 +8928,22 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
8899
8928
|
};
|
|
8900
8929
|
return Data_Promise_x3ex3ex3d_Monad_Promise(Util_yesNoPrompt(csegen_72(), 'Would you like harmony to comment when it assigns reviewers?'), $195, $18d, $18e);
|
|
8901
8930
|
};
|
|
8902
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($179 => $17a => Data_Promise_map_Functor_Promise($17d => Config_n__8973_2257_orIfEmpty($0, $3, $2, $1, {a1: remoteGuess}, Data_String_trim($17d)),
|
|
8931
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($179 => $17a => Data_Promise_map_Functor_Promise($17d => Config_n__8973_2257_orIfEmpty($0, $3, $2, $1, {a1: remoteGuess}, Data_String_trim($17d)), csegen_360(), $179, $17a), $18c, $175, $176);
|
|
8903
8932
|
};
|
|
8904
8933
|
return Data_Promise_x3ex3ex3d_Monad_Promise($159 => $15a => $15b => Data_Promise_liftIO_HasIO_Promise($15e => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_49(), $166 => $166, {a1: 'What GitHub remote repo would you like to use harmony for', a2: {a1: $14e, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $15e), $159, $15a, $15b), $173, $155, $156);
|
|
8905
8934
|
};
|
|
8906
8935
|
};
|
|
8907
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($135 => $136 => Data_Promise_map_Functor_Promise($139 => Config_n__8973_2257_orIfEmpty($0, $3, $2, $1, Config_n__8973_2259_repo($0, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($139)),
|
|
8936
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($135 => $136 => Data_Promise_map_Functor_Promise($139 => Config_n__8973_2257_orIfEmpty($0, $3, $2, $1, Config_n__8973_2259_repo($0, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($139)), csegen_360(), $135, $136), $14d, $131, $132);
|
|
8908
8937
|
};
|
|
8909
8938
|
return Data_Promise_x3ex3ex3d_Monad_Promise($115 => $116 => $117 => Data_Promise_liftIO_HasIO_Promise($11a => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_49(), $122 => $122, {a1: 'What repository would you like to use harmony for', a2: {a1: $108, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $11a), $115, $116, $117), $12f, $111, $112);
|
|
8910
8939
|
};
|
|
8911
8940
|
};
|
|
8912
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($ef => $f0 => Data_Promise_map_Functor_Promise($f3 => Config_n__8973_2257_orIfEmpty($0, $3, $2, $1, Config_n__8973_2258_org($0, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($f3)),
|
|
8941
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($ef => $f0 => Data_Promise_map_Functor_Promise($f3 => Config_n__8973_2257_orIfEmpty($0, $3, $2, $1, Config_n__8973_2258_org($0, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($f3)), csegen_360(), $ef, $f0), $107, $eb, $ec);
|
|
8913
8942
|
};
|
|
8914
8943
|
return Data_Promise_x3ex3ex3d_Monad_Promise($cf => $d0 => $d1 => Data_Promise_liftIO_HasIO_Promise($d4 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_49(), $dc => $dc, {a1: 'What GitHub org would you like to use harmony for', a2: {a1: $c2, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $d4), $cf, $d0, $d1), $e9, $cb, $cc);
|
|
8915
8944
|
};
|
|
8916
8945
|
};
|
|
8917
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($a8 => $a9 => Data_Promise_x3cx7cx3e_Alternative_Promise($ac => $ad => Data_Promise_map_Functor_Promise($b0 => Config_parseGitHubURI($b0), $b4 => $b5 => FFI_Git_remoteURI($0, remoteGuess, $b4, $b5), $ac, $ad), () =>
|
|
8946
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($a8 => $a9 => Data_Promise_x3cx7cx3e_Alternative_Promise($ac => $ad => Data_Promise_map_Functor_Promise($b0 => Config_parseGitHubURI($b0), $b4 => $b5 => FFI_Git_remoteURI($0, remoteGuess, $b4, $b5), $ac, $ad), () => csegen_362(), $a8, $a9), $c1, $a4, $a5);
|
|
8918
8947
|
};
|
|
8919
8948
|
return Data_Promise_x3ex3ex3d_Monad_Promise($93 => $94 => Data_Promise_map_Functor_Promise($97 => Config_preferOriginRemote($97), $9b => $9c => FFI_Git_listRemotes($0, $9b, $9c), $93, $94), $a3, $8e, $8f);
|
|
8920
8949
|
}
|
|
@@ -8941,7 +8970,7 @@ function Config_checkConfigConsistency($0) {
|
|
|
8941
8970
|
|
|
8942
8971
|
/* Config.addIgnoredPRs : Config -> List Integer -> Promise Config */
|
|
8943
8972
|
function Config_addIgnoredPRs($0, $1, $2, $3) {
|
|
8944
|
-
return Config_writeConfig({a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: $0.a8, a9: $0.a9, a10: $0.a10, a11: $0.a11, a12: Data_List_nub(
|
|
8973
|
+
return Config_writeConfig({a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: $0.a8, a9: $0.a9, a10: $0.a10, a11: $0.a11, a12: Data_List_nub(csegen_215(), Prelude_Types_List_tailRecAppend($0.a12, $1)), a13: $0.a13, a14: $0.a14}, $2, $3);
|
|
8945
8974
|
}
|
|
8946
8975
|
|
|
8947
8976
|
/* Util.with block in yesNoPrompt,yesUnlessNo */
|
|
@@ -9179,7 +9208,7 @@ function Commands_case__casex20blockx20inx20graph_2168($0, $1, $2, $3, $4, $5, $
|
|
|
9179
9208
|
case 0: return Data_Promise_pure_Applicative_Promise({h: 0}, $d, $e);
|
|
9180
9209
|
}
|
|
9181
9210
|
};
|
|
9182
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($c, completedReviews => Util_renderIO($2, csegen_72(), Graph_reviewsGraph(
|
|
9211
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($c, completedReviews => Util_renderIO($2, csegen_72(), Graph_reviewsGraph(csegen_212(), {a1: ann => $2f => Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($2f), a2: ann => $33 => $34 => Text_PrettyPrint_Prettyprinter_Doc_prettyPrec_Pretty_String($33, $34)}, $7.a2, $7.a1, $5, completedReviews)), $8, $9);
|
|
9183
9212
|
};
|
|
9184
9213
|
}
|
|
9185
9214
|
|
|
@@ -9255,8 +9284,8 @@ function Commands_case__assignx2cpartitionedArgs_1663($0, $1, $2, $3, $4, $5) {
|
|
|
9255
9284
|
return Commands_case__casex20blockx20inx20assignx2cpartitionedArgs_1686($0, $1, $2, $3, $4, $5.a1, $5.a2, Data_List_partition($12 => BashCompletion_isHashPrefix($12), $5.a2));
|
|
9256
9285
|
}
|
|
9257
9286
|
|
|
9258
|
-
/* Commands.
|
|
9259
|
-
function
|
|
9287
|
+
/* Commands.9677:2511:recombineIgnoreArgs */
|
|
9288
|
+
function Commands_n__9677_2511_recombineIgnoreArgs($0, $1) {
|
|
9260
9289
|
switch($1.h) {
|
|
9261
9290
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
9262
9291
|
case undefined: /* cons */ {
|
|
@@ -9265,20 +9294,20 @@ function Commands_n__9675_2511_recombineIgnoreArgs($0, $1) {
|
|
|
9265
9294
|
switch($1.a2.h) {
|
|
9266
9295
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '-i', a2: {h: 0}}};
|
|
9267
9296
|
case undefined: /* cons */ {
|
|
9268
|
-
const $b =
|
|
9297
|
+
const $b = Commands_n__9677_2509_parseIgnoreOpt($0, $1.a2.a1);
|
|
9269
9298
|
switch($b.h) {
|
|
9270
9299
|
case undefined: /* just */ {
|
|
9271
|
-
const $f =
|
|
9300
|
+
const $f = Commands_n__9677_2511_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9272
9301
|
return {a1: {a1: $b.a1, a2: $f.a1}, a2: $f.a2};
|
|
9273
9302
|
}
|
|
9274
9303
|
case 0: /* nothing */ {
|
|
9275
|
-
const $17 =
|
|
9304
|
+
const $17 = Commands_n__9677_2511_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9276
9305
|
return {a1: $17.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $17.a2}}};
|
|
9277
9306
|
}
|
|
9278
9307
|
}
|
|
9279
9308
|
}
|
|
9280
9309
|
default: {
|
|
9281
|
-
const $21 =
|
|
9310
|
+
const $21 = Commands_n__9677_2511_recombineIgnoreArgs($0, $1.a2);
|
|
9282
9311
|
return {a1: $21.a1, a2: {a1: $1.a1, a2: $21.a2}};
|
|
9283
9312
|
}
|
|
9284
9313
|
}
|
|
@@ -9287,26 +9316,26 @@ function Commands_n__9675_2511_recombineIgnoreArgs($0, $1) {
|
|
|
9287
9316
|
switch($1.a2.h) {
|
|
9288
9317
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
|
|
9289
9318
|
case undefined: /* cons */ {
|
|
9290
|
-
const $2e =
|
|
9319
|
+
const $2e = Commands_n__9677_2509_parseIgnoreOpt($0, $1.a2.a1);
|
|
9291
9320
|
switch($2e.h) {
|
|
9292
9321
|
case undefined: /* just */ {
|
|
9293
|
-
const $32 =
|
|
9322
|
+
const $32 = Commands_n__9677_2511_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9294
9323
|
return {a1: {a1: $2e.a1, a2: $32.a1}, a2: $32.a2};
|
|
9295
9324
|
}
|
|
9296
9325
|
case 0: /* nothing */ {
|
|
9297
|
-
const $3a =
|
|
9326
|
+
const $3a = Commands_n__9677_2511_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9298
9327
|
return {a1: $3a.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $3a.a2}}};
|
|
9299
9328
|
}
|
|
9300
9329
|
}
|
|
9301
9330
|
}
|
|
9302
9331
|
default: {
|
|
9303
|
-
const $44 =
|
|
9332
|
+
const $44 = Commands_n__9677_2511_recombineIgnoreArgs($0, $1.a2);
|
|
9304
9333
|
return {a1: $44.a1, a2: {a1: $1.a1, a2: $44.a2}};
|
|
9305
9334
|
}
|
|
9306
9335
|
}
|
|
9307
9336
|
}
|
|
9308
9337
|
default: {
|
|
9309
|
-
const $4c =
|
|
9338
|
+
const $4c = Commands_n__9677_2511_recombineIgnoreArgs($0, $1.a2);
|
|
9310
9339
|
return {a1: $4c.a1, a2: {a1: $1.a1, a2: $4c.a2}};
|
|
9311
9340
|
}
|
|
9312
9341
|
}
|
|
@@ -9314,33 +9343,33 @@ function Commands_n__9675_2511_recombineIgnoreArgs($0, $1) {
|
|
|
9314
9343
|
}
|
|
9315
9344
|
}
|
|
9316
9345
|
|
|
9317
|
-
/* Commands.
|
|
9318
|
-
function
|
|
9346
|
+
/* Commands.9068:1922:putNameLn */
|
|
9347
|
+
function Commands_n__9068_1922_putNameLn($0, $1, $2, $3) {
|
|
9319
9348
|
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}}}});
|
|
9320
9349
|
}
|
|
9321
9350
|
|
|
9322
|
-
/* Commands.
|
|
9323
|
-
function
|
|
9324
|
-
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $f =>
|
|
9351
|
+
/* Commands.8389:1299:putLabels */
|
|
9352
|
+
function Commands_n__8389_1299_putLabels($0, $1, $2, $3, $4) {
|
|
9353
|
+
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $f => Commands_n__8389_1298_putLabel($0, $1, $2, $3, $f), $4)));
|
|
9325
9354
|
}
|
|
9326
9355
|
|
|
9327
|
-
/* Commands.
|
|
9328
|
-
function
|
|
9356
|
+
/* Commands.8389:1298:putLabel */
|
|
9357
|
+
function Commands_n__8389_1298_putLabel($0, $1, $2, $3, $4) {
|
|
9329
9358
|
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)));
|
|
9330
9359
|
}
|
|
9331
9360
|
|
|
9332
|
-
/* Commands.
|
|
9333
|
-
function
|
|
9361
|
+
/* Commands.8744:1651:partitionedArgs */
|
|
9362
|
+
function Commands_n__8744_1651_partitionedArgs($0, $1, $2, $3, $4) {
|
|
9334
9363
|
return Commands_case__assignx2cpartitionedArgs_1663($0, $1, $2, $3, $4, Data_List_partition($e => Data_String_isPrefixOf('+', $e), $4));
|
|
9335
9364
|
}
|
|
9336
9365
|
|
|
9337
|
-
/* Commands.
|
|
9338
|
-
function
|
|
9366
|
+
/* Commands.9518:2373:parseTeamArg */
|
|
9367
|
+
function Commands_n__9518_2373_parseTeamArg($0, $1) {
|
|
9339
9368
|
return {a1: {a1: $1}};
|
|
9340
9369
|
}
|
|
9341
9370
|
|
|
9342
|
-
/* Commands.
|
|
9343
|
-
function
|
|
9371
|
+
/* Commands.9677:2510:parseSkipArg */
|
|
9372
|
+
function Commands_n__9677_2510_parseSkipArg($0, $1) {
|
|
9344
9373
|
const $2 = Prelude_Types_fastUnpack($1);
|
|
9345
9374
|
switch($2.h) {
|
|
9346
9375
|
case undefined: /* cons */ {
|
|
@@ -9353,15 +9382,15 @@ function Commands_n__9675_2510_parseSkipArg($0, $1) {
|
|
|
9353
9382
|
}
|
|
9354
9383
|
}
|
|
9355
9384
|
|
|
9356
|
-
/* Commands.
|
|
9357
|
-
function
|
|
9358
|
-
const $2 = Data_String_split(
|
|
9385
|
+
/* Commands.9677:2509:parseIgnoreOpt */
|
|
9386
|
+
function Commands_n__9677_2509_parseIgnoreOpt($0, $1) {
|
|
9387
|
+
const $2 = Data_String_split(csegen_326(), $1);
|
|
9359
9388
|
const $7 = Data_List1_last($2);
|
|
9360
9389
|
return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
|
|
9361
9390
|
}
|
|
9362
9391
|
|
|
9363
|
-
/* Commands.
|
|
9364
|
-
function
|
|
9392
|
+
/* Commands.9518:2372:parseCompletedFlag */
|
|
9393
|
+
function Commands_n__9518_2372_parseCompletedFlag($0, $1) {
|
|
9365
9394
|
switch($1) {
|
|
9366
9395
|
case '-c': return {a1: {h: 0}};
|
|
9367
9396
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -9369,8 +9398,8 @@ function Commands_n__9516_2372_parseCompletedFlag($0, $1) {
|
|
|
9369
9398
|
}
|
|
9370
9399
|
}
|
|
9371
9400
|
|
|
9372
|
-
/* Commands.
|
|
9373
|
-
function
|
|
9401
|
+
/* Commands.9677:2508:parseCheckoutFlag */
|
|
9402
|
+
function Commands_n__9677_2508_parseCheckoutFlag($0, $1) {
|
|
9374
9403
|
switch($1) {
|
|
9375
9404
|
case '-c': return {a1: {h: 0 /* Checkout */}};
|
|
9376
9405
|
case '--checkout': return {a1: {h: 0 /* Checkout */}};
|
|
@@ -9378,13 +9407,13 @@ function Commands_n__9675_2508_parseCheckoutFlag($0, $1) {
|
|
|
9378
9407
|
}
|
|
9379
9408
|
}
|
|
9380
9409
|
|
|
9381
|
-
/* Commands.
|
|
9382
|
-
function
|
|
9410
|
+
/* Commands.10007:2847:isNotIgnored */
|
|
9411
|
+
function Commands_n__10007_2847_isNotIgnored($0, $1, $2, $3, $4, $5) {
|
|
9383
9412
|
return Data_Maybe_isNothing(Data_List_find($a => Prelude_EqOrd_x3dx3d_Eq_Integer($a, $5.a1), $4.a12));
|
|
9384
9413
|
}
|
|
9385
9414
|
|
|
9386
|
-
/* Commands.
|
|
9387
|
-
function
|
|
9415
|
+
/* Commands.9068:1921:forkedUser */
|
|
9416
|
+
function Commands_n__9068_1921_forkedUser($0, $1, $2, $3) {
|
|
9388
9417
|
return FFI_Concurrency_fork(csegen_72(), ('user --json '+$3));
|
|
9389
9418
|
}
|
|
9390
9419
|
|
|
@@ -9474,7 +9503,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
9474
9503
|
switch($0.a2.a2.h) {
|
|
9475
9504
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
9476
9505
|
default: {
|
|
9477
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(
|
|
9506
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_392(), $10 => Commands_n__9518_2372_parseCompletedFlag($0, $10), $15 => Commands_n__9518_2373_parseTeamArg($0, $15), $b), $0);
|
|
9478
9507
|
switch($6.h) {
|
|
9479
9508
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
9480
9509
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -9483,7 +9512,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
9483
9512
|
}
|
|
9484
9513
|
}
|
|
9485
9514
|
default: {
|
|
9486
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(
|
|
9515
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_392(), $27 => Commands_n__9518_2372_parseCompletedFlag($0, $27), $2c => Commands_n__9518_2373_parseTeamArg($0, $2c), $22), $0);
|
|
9487
9516
|
switch($1d.h) {
|
|
9488
9517
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
9489
9518
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -9492,7 +9521,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
9492
9521
|
}
|
|
9493
9522
|
}
|
|
9494
9523
|
default: {
|
|
9495
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(
|
|
9524
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_392(), $3e => Commands_n__9518_2372_parseCompletedFlag($0, $3e), $43 => Commands_n__9518_2373_parseTeamArg($0, $43), $39), $0);
|
|
9496
9525
|
switch($34.h) {
|
|
9497
9526
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
9498
9527
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -9506,9 +9535,9 @@ function Commands_parseContributeArgs($0) {
|
|
|
9506
9535
|
switch($0.h) {
|
|
9507
9536
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
9508
9537
|
default: {
|
|
9509
|
-
const $3 =
|
|
9538
|
+
const $3 = Commands_n__9677_2511_recombineIgnoreArgs($0, $0);
|
|
9510
9539
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 1 /* Ignore */, a1: $b}), $3.a1);
|
|
9511
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
9540
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_392(), $18 => Commands_n__9677_2510_parseSkipArg($0, $18), $1d => Commands_n__9677_2508_parseCheckoutFlag($0, $1d), $13), $3.a2);
|
|
9512
9541
|
return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($29 => Prelude_Types_List_tailRecAppend($7, $29), $e));
|
|
9513
9542
|
}
|
|
9514
9543
|
}
|
|
@@ -9516,14 +9545,14 @@ function Commands_parseContributeArgs($0) {
|
|
|
9516
9545
|
|
|
9517
9546
|
/* Commands.list : Config => Octokit => String -> Promise () */
|
|
9518
9547
|
function Commands_list($0, $1, $2, $3, $4) {
|
|
9519
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => Data_Promise_map_Functor_Promise(
|
|
9548
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => Data_Promise_map_Functor_Promise(csegen_393(), $d => $e => FFI_GitHub_listTeamMembers($1, $0.a2, $2, $d, $e), $7, $8), teamMemberLogins => $19 => $1a => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_297(), csegen_394(), Prelude_Types_traverse_Traversable_List(csegen_64(), $27 => Commands_n__9068_1921_forkedUser($1, $2, $0, $27), teamMemberLogins)), teamMembersJson => $2f => $30 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_traverse_Traversable_List(csegen_64(), $37 => $38 => Data_Promise_either(csegen_51(), Data_User_parseUser($37), $38), teamMembersJson), teamMembers => Util_renderIO($0, csegen_72(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $4c => Commands_n__9068_1922_putNameLn($1, $2, $0, $4c), teamMembers))), $2f, $30), $19, $1a), $3, $4);
|
|
9520
9549
|
}
|
|
9521
9550
|
|
|
9522
9551
|
/* Commands.label : Config => Git => Octokit => List String -> Promise () */
|
|
9523
9552
|
function Commands_label($0, $1, $2, $3, $4, $5) {
|
|
9524
9553
|
const $20 = $21 => {
|
|
9525
9554
|
const $23 = Prelude_Types_List_mapAppend({h: 0}, $27 => Commands_unslugifyLabel($0.a10, $27), $3);
|
|
9526
|
-
return $2d => $2e => Data_Promise_x3ex3ex3d_Monad_Promise($31 => $32 => Label_addLabels($0, $2, $21.a2, $23, $31, $32), allLabels => Util_renderIO($0, csegen_72(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Added'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(
|
|
9555
|
+
return $2d => $2e => Data_Promise_x3ex3ex3d_Monad_Promise($31 => $32 => Label_addLabels($0, $2, $21.a2, $23, $31, $32), allLabels => Util_renderIO($0, csegen_72(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Added'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8389_1299_putLabels($1, $2, $3, $0, $23), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(' to PR.'), a2: {h: 0}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $61 => $61, {a1: 'All labels for PR of ', a2: {a1: $21.a2.a7, a2: {a1: ':', a2: {h: 0}}}})), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8389_1299_putLabels($1, $2, $3, $0, allLabels), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('.'), a2: {h: 0}}))), a2: {h: 0}}})), $2d, $2e);
|
|
9527
9556
|
};
|
|
9528
9557
|
return Data_Promise_x3ex3ex3d_Monad_Promise($8 => $9 => Data_Promise_x3ex3ex3d_Monad_Promise($c => $d => FFI_Git_currentBranch($1, $c, $d), $13 => $14 => $15 => PullRequest_identifyOrCreatePR($0, $1, $2, 0, $13, $14, $15), $8, $9), $20, $4, $5);
|
|
9529
9558
|
}
|
|
@@ -9586,14 +9615,14 @@ function Commands_contribute($0, $1, $2, $3, $4, $5) {
|
|
|
9586
9615
|
}
|
|
9587
9616
|
};
|
|
9588
9617
|
const $53 = Prelude_Types_List_filterAppend({h: 0}, $56, $13);
|
|
9589
|
-
const $5d = Prelude_Types_List_filterAppend({h: 0}, $61 =>
|
|
9618
|
+
const $5d = Prelude_Types_List_filterAppend({h: 0}, $61 => Commands_n__10007_2847_isNotIgnored($1, $2, $3, $0, configx27, $61), $53);
|
|
9590
9619
|
const $6a = Data_List_partition($6d => Data_PullRequest_isRequestedReviewer(myLogin, $6d), $5d);
|
|
9591
|
-
return Commands_case__contribute_3017($1, $2, $3, $0, openPrs, $13, myLogin, $2a, configx27, $40, $4d, $53, $5d, $6a, Prelude_Interfaces_mapHom({a1: d => b => c => a => $85 => $86 => $87 => ({a1: $85($87.a1), a2: $86($87.a2)}), a2: b => c => a => $90 => $91 => ({a1: $90($91.a1), a2: $91.a2}), a3: a => d => b => $98 => $99 => ({a1: $99.a1, a2: $98($99.a2)})}, $a0 => Data_List_sortBy(
|
|
9620
|
+
return Commands_case__contribute_3017($1, $2, $3, $0, openPrs, $13, myLogin, $2a, configx27, $40, $4d, $53, $5d, $6a, Prelude_Interfaces_mapHom({a1: d => b => c => a => $85 => $86 => $87 => ({a1: $85($87.a1), a2: $86($87.a2)}), a2: b => c => a => $90 => $91 => ({a1: $90($91.a1), a2: $91.a2}), a3: a => d => b => $98 => $99 => ({a1: $99.a1, a2: $98($99.a2)})}, $a0 => Data_List_sortBy(csegen_406(), $a0), $6a));
|
|
9592
9621
|
};
|
|
9593
9622
|
return Data_Promise_x3ex3ex3d_Monad_Promise($30, $3f, $2d, $2e);
|
|
9594
9623
|
};
|
|
9595
9624
|
};
|
|
9596
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($1f => $20 => Data_Promise_map_Functor_Promise(
|
|
9625
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($1f => $20 => Data_Promise_map_Functor_Promise(csegen_402(), FFI_GitHub_getSelf($2), $1f, $20), $29, $1b, $1c);
|
|
9597
9626
|
};
|
|
9598
9627
|
};
|
|
9599
9628
|
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequests($2, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $12, $4, $5);
|
|
@@ -9613,7 +9642,7 @@ function Commands_branch($0, $1, $2, $3) {
|
|
|
9613
9642
|
/* Commands.assign : Config => Git => Octokit => List String -> {default False _ : Bool} ->
|
|
9614
9643
|
Promise () */
|
|
9615
9644
|
function Commands_assign($0, $1, $2, $3, $4) {
|
|
9616
|
-
return Commands_case__assign_1766($0, $1, $2, $4, $3,
|
|
9645
|
+
return Commands_case__assign_1766($0, $1, $2, $4, $3, Commands_n__8744_1651_partitionedArgs($0, $1, $2, $4, $3));
|
|
9617
9646
|
}
|
|
9618
9647
|
|
|
9619
9648
|
/* Commands.(<||>) : Alternative t => (a -> t b) -> (a -> t b) -> a -> t b */
|
|
@@ -9623,7 +9652,7 @@ function Commands_x3cx7cx7cx3e($0, $1, $2, $3) {
|
|
|
9623
9652
|
|
|
9624
9653
|
/* User.Reflect.case block in case block in reflectOnSelf */
|
|
9625
9654
|
function User_Reflect_case__casex20blockx20inx20reflectOnSelf_1862($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
9626
|
-
const $b = Prelude_Interfaces_mapHom({a1: d => b => c => a => $f => $10 => $11 => ({a1: $f($11.a1), a2: $10($11.a2)}), a2: b => c => a => $1a => $1b => ({a1: $1a($1b.a1), a2: $1b.a2}), a3: a => d => b => $22 => $23 => ({a1: $23.a1, a2: $22($23.a2)})}, $2a => Data_List_headx27(Data_List_sort({a1: {a1: $31 => $32 => Data_Date_x3dx3d_Eq_Date($31, $32), a2: $37 => $38 => Data_Date_x2fx3d_Eq_Date($37, $38)}, a2: $3d => $3e => Data_Date_compare_Ord_Date($3d, $3e), a3: $43 => $44 => Data_Date_x3c_Ord_Date($43, $44), a4: $49 => $4a => Data_Date_x3e_Ord_Date($49, $4a), a5: $4f => $50 => Data_Date_x3cx3d_Ord_Date($4f, $50), a6: $55 => $56 => Data_Date_x3ex3d_Ord_Date($55, $56), a7: $5b => $5c => Data_Date_max_Ord_Date($5b, $5c), a8: $61 => $62 => Data_Date_min_Ord_Date($61, $62)}, Prelude_Types_List_mapAppend({h: 0},
|
|
9655
|
+
const $b = Prelude_Interfaces_mapHom({a1: d => b => c => a => $f => $10 => $11 => ({a1: $f($11.a1), a2: $10($11.a2)}), a2: b => c => a => $1a => $1b => ({a1: $1a($1b.a1), a2: $1b.a2}), a3: a => d => b => $22 => $23 => ({a1: $23.a1, a2: $22($23.a2)})}, $2a => Data_List_headx27(Data_List_sort({a1: {a1: $31 => $32 => Data_Date_x3dx3d_Eq_Date($31, $32), a2: $37 => $38 => Data_Date_x2fx3d_Eq_Date($37, $38)}, a2: $3d => $3e => Data_Date_compare_Ord_Date($3d, $3e), a3: $43 => $44 => Data_Date_x3c_Ord_Date($43, $44), a4: $49 => $4a => Data_Date_x3e_Ord_Date($49, $4a), a5: $4f => $50 => Data_Date_x3cx3d_Ord_Date($4f, $50), a6: $55 => $56 => Data_Date_x3ex3d_Ord_Date($55, $56), a7: $5b => $5c => Data_Date_max_Ord_Date($5b, $5c), a8: $61 => $62 => Data_Date_min_Ord_Date($61, $62)}, Prelude_Types_List_mapAppend({h: 0}, csegen_419(), $2a))), {a1: $7, a2: $9.a1});
|
|
9627
9656
|
return Util_renderIO($0, csegen_72(), User_Reflect_print(Prelude_Types_String_length(User_Reflect_intro()), Prelude_Types_List_lengthTR($4), Prelude_Types_List_lengthTR($9.a1), Prelude_Types_List_lengthTR($9.a2), Prelude_Types_List_lengthTR($8), Prelude_Types_List_lengthTR($7), $5, $b.a1, $b.a2));
|
|
9628
9657
|
}
|
|
9629
9658
|
|
|
@@ -9706,21 +9735,21 @@ function User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
|
9706
9735
|
const $c = prs => $d => $e => {
|
|
9707
9736
|
const $1b = myLogin => $1c => $1d => {
|
|
9708
9737
|
const $39 = reviews => {
|
|
9709
|
-
const $3a = Prelude_Types_map_Functor_Maybe(
|
|
9738
|
+
const $3a = Prelude_Types_map_Functor_Maybe(csegen_422(), Data_List_headx27(Data_List_sortBy($43 => $44 => Prelude_Basics_on(csegen_404(), csegen_422(), $43, $44), reviews)));
|
|
9710
9739
|
const $4d = PullRequest_tuple(prs);
|
|
9711
9740
|
const $50 = Prelude_Interfaces_mapHom({a1: d => b => c => a => $54 => $55 => $56 => ({a1: $54($56.a1), a2: $55($56.a2)}), a2: b => c => a => $5f => $60 => ({a1: $5f($60.a1), a2: $60.a2}), a3: a => d => b => $67 => $68 => ({a1: $68.a1, a2: $67($68.a2)})}, $6f => Prelude_Types_List_filterAppend({h: 0}, $73 => Prelude_EqOrd_x3dx3d_Eq_String($73.a4, myLogin), $6f), $4d);
|
|
9712
|
-
return User_Reflect_case__casex20blockx20inx20reflectOnSelf_1862($0, $1, prs, myLogin, reviews, $3a, $4d, $50.a1, $50.a2, Prelude_Interfaces_mapHom({a1: d => b => c => a => $88 => $89 => $8a => ({a1: $88($8a.a1), a2: $89($8a.a2)}), a2: b => c => a => $93 => $94 => ({a1: $93($94.a1), a2: $94.a2}), a3: a => d => b => $9b => $9c => ({a1: $9c.a1, a2: $9b($9c.a2)})}, $a3 => Prelude_Types_List_filterAppend({h: 0}, $a7 => Prelude_Types_foldMap_Foldable_List(
|
|
9741
|
+
return User_Reflect_case__casex20blockx20inx20reflectOnSelf_1862($0, $1, prs, myLogin, reviews, $3a, $4d, $50.a1, $50.a2, Prelude_Interfaces_mapHom({a1: d => b => c => a => $88 => $89 => $8a => ({a1: $88($8a.a1), a2: $89($8a.a2)}), a2: b => c => a => $93 => $94 => ({a1: $93($94.a1), a2: $94.a2}), a3: a => d => b => $9b => $9c => ({a1: $9c.a1, a2: $9b($9c.a2)})}, $a3 => Prelude_Types_List_filterAppend({h: 0}, $a7 => Prelude_Types_foldMap_Foldable_List(csegen_94(), $ac => Prelude_EqOrd_x3dx3d_Eq_String($ac, myLogin), $a7.a6), $a3), $4d));
|
|
9713
9742
|
};
|
|
9714
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2d => $2e => Prelude_Basics_on(
|
|
9743
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2d => $2e => Prelude_Basics_on(csegen_404(), csegen_419(), $2d, $2e), PullRequest_combined(prs))))), $39, $1c, $1d);
|
|
9715
9744
|
};
|
|
9716
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($11 => $12 => Data_Promise_map_Functor_Promise(
|
|
9745
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($11 => $12 => Data_Promise_map_Functor_Promise(csegen_402(), FFI_GitHub_getSelf($1), $11, $12), $1b, $d, $e);
|
|
9717
9746
|
};
|
|
9718
9747
|
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_listPartitionedPRs($0, $1, 4n, User_Reflect_prCount()), $c, $2, $3);
|
|
9719
9748
|
}
|
|
9720
9749
|
|
|
9721
9750
|
/* User.Me.printInfoOnSelf : Config => Octokit => Git => Promise () */
|
|
9722
9751
|
function User_Me_printInfoOnSelf($0, $1, $2, $3, $4) {
|
|
9723
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => Data_Promise_map_Functor_Promise($b => User_Me_n__7256_2135_handleUnsetEmail($0, $1, $2, $b), $12 => $13 => FFI_Git_userEmail($2, $12, $13), $7, $8), gitEmail => $1b => $1c => Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_getSelf($1), githubUser => $22 => $23 => Data_Promise_x3ex3ex3d_Monad_Promise($26 => $27 => Data_Promise_map_Functor_Promise(
|
|
9752
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => Data_Promise_map_Functor_Promise($b => User_Me_n__7256_2135_handleUnsetEmail($0, $1, $2, $b), $12 => $13 => FFI_Git_userEmail($2, $12, $13), $7, $8), gitEmail => $1b => $1c => Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_getSelf($1), githubUser => $22 => $23 => Data_Promise_x3ex3ex3d_Monad_Promise($26 => $27 => Data_Promise_map_Functor_Promise(csegen_393(), $2c => $2d => FFI_GitHub_listMyTeams($1, $2c, $2d), $26, $27), githubTeams => Util_renderIO($0, csegen_72(), User_Me_print(gitEmail, githubUser, githubTeams)), $22, $23), $1b, $1c), $3, $4);
|
|
9724
9753
|
}
|
|
9725
9754
|
|
|
9726
9755
|
/* User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
@@ -9757,8 +9786,8 @@ function User_Reflect_header($0) {
|
|
|
9757
9786
|
function User_Reflect_graph($0, $1, $2, $3, $4, $5) {
|
|
9758
9787
|
const $6 = ($2+$3);
|
|
9759
9788
|
const $9 = ($5+$4);
|
|
9760
|
-
const $c = Prelude_Types_foldr_Foldable_List(
|
|
9761
|
-
const $1b = Prelude_Types_foldr_Foldable_List(
|
|
9789
|
+
const $c = Prelude_Types_foldr_Foldable_List(csegen_201(), Prelude_Types_String_length(User_Reflect_leftTitle()), {a1: ($6+$1), a2: {a1: $9, a2: {h: 0}}});
|
|
9790
|
+
const $1b = Prelude_Types_foldr_Foldable_List(csegen_201(), Prelude_Types_String_length(User_Reflect_rightTitle()), {a1: $6, a2: {a1: $9, a2: {h: 0}}});
|
|
9762
9791
|
const $28 = (($c+$1b)+3n);
|
|
9763
9792
|
const $2d = ((Number($0)/2.0)-(Number($28)/2.0));
|
|
9764
9793
|
const $36 = (Prelude_Types_prim__integerToNat(BigInt(Math.trunc($2d)))+Prelude_Types_prim__integerToNat(($c-Prelude_Types_String_length(User_Reflect_leftTitle()))));
|
|
@@ -9768,7 +9797,7 @@ function User_Reflect_graph($0, $1, $2, $3, $4, $5) {
|
|
|
9768
9797
|
|
|
9769
9798
|
/* User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
9770
9799
|
function User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
9771
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(User_Reflect_intro()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Requested Reviews:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('unreviewed:')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($2)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(
|
|
9800
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(User_Reflect_intro()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Requested Reviews:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('unreviewed:')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($2)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(csegen_428(), $8), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('closed:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(1), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($3)), a2: {h: 0}}})}, a2: {h: 0}}}})))}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('reviews*:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($1)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('most recent:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date(date)), a2: {h: 0}}})), $6), a2: {h: 0}}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Authored Pulls:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($5)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(csegen_428(), $7), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('closed:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($4)), a2: {h: 0}}})}, a2: {h: 0}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $cf => $cf, {a1: '*review count (not PR count) of most recent ', a2: {a1: Data_Fin_show_Show_x28Finx20x24nx29(User_Reflect_reviewDetailsCount()), a2: {a1: ' PRs.', a2: {h: 0}}}}))), a2: {h: 0}}}}}}}}}});
|
|
9772
9801
|
}
|
|
9773
9802
|
|
|
9774
9803
|
/* User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
@@ -9906,7 +9935,7 @@ function PullRequest_n__10180_2627_editorDescription($0, $1, $2, $3, $4, $5, $6,
|
|
|
9906
9935
|
|
|
9907
9936
|
/* PullRequest.9490:1962:csv */
|
|
9908
9937
|
function PullRequest_n__9490_1962_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
9909
|
-
return Util_renderString($5, Text_PrettyPrint_Prettyprinter_Doc_encloseSep(Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0},
|
|
9938
|
+
return Util_renderString($5, Text_PrettyPrint_Prettyprinter_Doc_encloseSep(Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, csegen_296(), $6)));
|
|
9910
9939
|
}
|
|
9911
9940
|
|
|
9912
9941
|
/* PullRequest.10180:2626:createPR */
|
|
@@ -9955,7 +9984,7 @@ function PullRequest_n__10180_2626_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9955
9984
|
};
|
|
9956
9985
|
return Data_Promise_x3ex3ex3d_Monad_Promise($16f => $170 => Util_relativeToRoot($0, '.github/PULL_REQUEST_TEMPLATE.md', $16f, $170), $176, $16b, $16c);
|
|
9957
9986
|
};
|
|
9958
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($15d => $15e => Data_Promise_map_Functor_Promise($161 => ($13b+Data_String_trim($161)),
|
|
9987
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($15d => $15e => Data_Promise_map_Functor_Promise($161 => ($13b+Data_String_trim($161)), csegen_360(), $15d, $15e), $16a, $159, $15a);
|
|
9959
9988
|
};
|
|
9960
9989
|
return Data_Promise_x3ex3ex3d_Monad_Promise($14b => $14c => $14d => Data_Promise_liftIO_HasIO_Promise($150 => Prelude_IO_prim__putStr($13b, $150), $14b, $14c, $14d), $157, $147, $148);
|
|
9961
9990
|
};
|
|
@@ -9964,7 +9993,7 @@ function PullRequest_n__10180_2626_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9964
9993
|
return Data_Promise_x3ex3ex3d_Monad_Promise($12c => $12d => $12e => Data_Promise_liftIO_HasIO_Promise($131 => Prelude_IO_prim__putStr('What would you like the title to be?\n', $131), $12c, $12d, $12e), $138, $128, $129);
|
|
9965
9994
|
};
|
|
9966
9995
|
};
|
|
9967
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($10f => $110 => Data_Promise_map_Functor_Promise($113 => Data_String_trim($113),
|
|
9996
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($10f => $110 => Data_Promise_map_Functor_Promise($113 => Data_String_trim($113), csegen_360(), $10f, $110), $11a, $10b, $10c);
|
|
9968
9997
|
};
|
|
9969
9998
|
return Data_Promise_x3ex3ex3d_Monad_Promise($ee => $ef => $f0 => Data_Promise_liftIO_HasIO_Promise($f3 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_49(), $fb => $fb, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $4.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $f3), $ee, $ef, $f0), $109, $ea, $eb);
|
|
9970
9999
|
};
|
|
@@ -9989,7 +10018,7 @@ function PullRequest_n__10180_2626_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9989
10018
|
function PullRequest_n__10180_2625_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
9990
10019
|
const $f = $10 => $11 => $12 => {
|
|
9991
10020
|
switch($10.h) {
|
|
9992
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($16 => $17 => $18 => Data_Promise_liftIO_HasIO_Promise($1b => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1b), $16, $17, $18), $23 => $24 => $25 => Data_Promise_x3ex3ex3d_Monad_Promise($28 => $29 => $2a => Data_Promise_liftIO_HasIO_Promise($2d => Prelude_IO_prim__putStr(($10.a1+'\n'), $2d), $28, $29, $2a),
|
|
10021
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($16 => $17 => $18 => Data_Promise_liftIO_HasIO_Promise($1b => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1b), $16, $17, $18), $23 => $24 => $25 => Data_Promise_x3ex3ex3d_Monad_Promise($28 => $29 => $2a => Data_Promise_liftIO_HasIO_Promise($2d => Prelude_IO_prim__putStr(($10.a1+'\n'), $2d), $28, $29, $2a), csegen_457(), $24, $25), $11, $12);
|
|
9993
10022
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_Promise(1, $11, $12);
|
|
9994
10023
|
}
|
|
9995
10024
|
};
|
|
@@ -10000,7 +10029,7 @@ function PullRequest_n__10180_2625_continueGivenUncommittedChanges($0, $1, $2, $
|
|
|
10000
10029
|
function PullRequest_n__10180_2624_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
10001
10030
|
const $f = $10 => $11 => $12 => {
|
|
10002
10031
|
switch($10.h) {
|
|
10003
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($16 => $17 => $18 => Data_Promise_liftIO_HasIO_Promise($1b => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1b), $16, $17, $18), $23 => $24 => $25 => Data_Promise_x3ex3ex3d_Monad_Promise($28 => $29 => $2a => Data_Promise_liftIO_HasIO_Promise($2d => Prelude_IO_prim__putStr(($10.a1+'\n'), $2d), $28, $29, $2a),
|
|
10032
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($16 => $17 => $18 => Data_Promise_liftIO_HasIO_Promise($1b => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1b), $16, $17, $18), $23 => $24 => $25 => Data_Promise_x3ex3ex3d_Monad_Promise($28 => $29 => $2a => Data_Promise_liftIO_HasIO_Promise($2d => Prelude_IO_prim__putStr(($10.a1+'\n'), $2d), $28, $29, $2a), csegen_457(), $24, $25), $11, $12);
|
|
10004
10033
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_Promise(1, $11, $12);
|
|
10005
10034
|
}
|
|
10006
10035
|
};
|
|
@@ -10044,7 +10073,7 @@ function PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
|
|
|
10044
10073
|
};
|
|
10045
10074
|
return Data_Promise_x3ex3ex3d_Monad_Promise($1c, reviews => $43 => $44 => Data_Promise_pure_Applicative_Promise(Prelude_Types_join_Monad_List(reviews), $43, $44), $19, $1a);
|
|
10046
10075
|
};
|
|
10047
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(
|
|
10076
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_297(), csegen_394(), Prelude_Types_traverse_Traversable_List(csegen_64(), $11 => PullRequest_n__9263_1704_forkedReviews($0, $1, $2, $11), $2)), $18, $3, $4);
|
|
10048
10077
|
}
|
|
10049
10078
|
|
|
10050
10079
|
/* PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise (List Review) */
|
|
@@ -10074,9 +10103,9 @@ function PullRequest_reviewsByUser($0, $1, $2, $3) {
|
|
|
10074
10103
|
List PullRequest -> Promise (SortedMap String (List Review)) */
|
|
10075
10104
|
function PullRequest_reviewsByEachUser($0, $1, $2, $3, $4) {
|
|
10076
10105
|
const $f = reviews => {
|
|
10077
|
-
const $10 = Data_List_groupAllWith(
|
|
10106
|
+
const $10 = Data_List_groupAllWith(csegen_212(), $15 => $15.a2, reviews);
|
|
10078
10107
|
const $18 = Prelude_Types_List_mapAppend({h: 0}, rs => ({a1: rs.a1.a2, a2: Data_List1_forget(rs)}), $10);
|
|
10079
|
-
return $23 => $24 => Data_Promise_pure_Applicative_Promise(Data_SortedMap_fromList(
|
|
10108
|
+
return $23 => $24 => Data_Promise_pure_Applicative_Promise(Data_SortedMap_fromList(csegen_212(), $18), $23, $24);
|
|
10080
10109
|
};
|
|
10081
10110
|
return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => PullRequest_reviewsForPrs($0, $1, $2, $7, $8), $f, $3, $4);
|
|
10082
10111
|
}
|
|
@@ -10090,12 +10119,12 @@ function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
10090
10119
|
let $37;
|
|
10091
10120
|
switch($0.a7) {
|
|
10092
10121
|
case 1: {
|
|
10093
|
-
const $3a = Reviewer_chooseReviewers(
|
|
10122
|
+
const $3a = Reviewer_chooseReviewers(csegen_212(), $14.a2, $14.a1, teamMembers, {h: 0}, $2.a4);
|
|
10094
10123
|
$37 = Reviewer_randomReviewer(csegen_72(), $3a);
|
|
10095
10124
|
break;
|
|
10096
10125
|
}
|
|
10097
10126
|
case 0: {
|
|
10098
|
-
$37 =
|
|
10127
|
+
$37 = csegen_362();
|
|
10099
10128
|
break;
|
|
10100
10129
|
}
|
|
10101
10130
|
}
|
|
@@ -10214,12 +10243,12 @@ function PullRequest_listx27($0, $1, $2, $3) {
|
|
|
10214
10243
|
}
|
|
10215
10244
|
};
|
|
10216
10245
|
const $4d = {a1: $4e, a2: a => $56 => ({h: 1 /* Right */, a1: $56}), a3: $58};
|
|
10217
|
-
const $4b = Prelude_Types_traverse_Traversable_List($4d,
|
|
10246
|
+
const $4b = Prelude_Types_traverse_Traversable_List($4d, csegen_317(), prJsons);
|
|
10218
10247
|
return Data_Promise_either(csegen_51(), $4b, $47);
|
|
10219
10248
|
};
|
|
10220
10249
|
return Data_Promise_x3ex3ex3d_Monad_Promise($46, pulls => $67 => $68 => Data_Promise_pure_Applicative_Promise(Prelude_Types_join_Monad_List(pulls), $67, $68), $43, $44);
|
|
10221
10250
|
};
|
|
10222
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(
|
|
10251
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_297(), $a => $b => $c => FFI_Concurrency_promiseAll({a1: acc => elem => func => init => input => Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a2: elem => acc => func => init => input => Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a3: elem => $1a => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1a), a4: elem => acc => m => $1e => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1e, funcM, init, input), a5: elem => $25 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($25), a6: a => m => $29 => f => $2a => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($29, f, $2a)}, $a, $b, $c), Data_Pagination_traversex27(csegen_64(), $37 => $38 => $39 => $3a => PullRequest_forkedPRs($0, $37, $38, $39, $3a), $1)), $42, $2, $3);
|
|
10223
10252
|
}
|
|
10224
10253
|
|
|
10225
10254
|
/* PullRequest.identifyOrCreatePR : Config => Git => Octokit => {default False _ : Bool} ->
|
|
@@ -10478,7 +10507,7 @@ function Data_SortedMap_insert($0, $1, $2) {
|
|
|
10478
10507
|
|
|
10479
10508
|
/* Data.SortedMap.fromList : Ord k => List (k, v) -> SortedMap k v */
|
|
10480
10509
|
function Data_SortedMap_fromList($0, $1) {
|
|
10481
|
-
return Prelude_Basics_flip($4 => $5 => Data_SortedMap_insertFrom(
|
|
10510
|
+
return Prelude_Basics_flip($4 => $5 => Data_SortedMap_insertFrom(csegen_144(), $4, $5), Data_SortedMap_empty($0), $1);
|
|
10482
10511
|
}
|
|
10483
10512
|
|
|
10484
10513
|
/* Data.SortedMap.empty : Ord k => SortedMap k v */
|
|
@@ -10656,7 +10685,7 @@ function Data_Pagination_with__lemma_7043($0, $1, $2, $3, $4) {
|
|
|
10656
10685
|
|
|
10657
10686
|
/* Data.Pagination.toList */
|
|
10658
10687
|
function Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($0) {
|
|
10659
|
-
return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(
|
|
10688
|
+
return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(csegen_91(), {h: 0}, $0);
|
|
10660
10689
|
}
|
|
10661
10690
|
|
|
10662
10691
|
/* Data.Pagination.null */
|
|
@@ -10674,7 +10703,7 @@ function Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24p
|
|
|
10674
10703
|
|
|
10675
10704
|
/* Data.Pagination.foldl */
|
|
10676
10705
|
function Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($0, $1, $2) {
|
|
10677
|
-
return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($6 => $7 => Prelude_Basics_flip(
|
|
10706
|
+
return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($6 => $7 => Prelude_Basics_flip(csegen_92(), $c => Prelude_Basics_flip($0, $6, $c), $7), $13 => $13, $2)($1);
|
|
10678
10707
|
}
|
|
10679
10708
|
|
|
10680
10709
|
/* Data.Pagination.foldlM */
|
|
@@ -10771,31 +10800,36 @@ function Label_addLabels($0, $1, $2, $3, $4, $5) {
|
|
|
10771
10800
|
return FFI_GitHub_addPullLabels($1, $0.a2, $0.a3, $2.a1, $3, $4, $5);
|
|
10772
10801
|
}
|
|
10773
10802
|
|
|
10774
|
-
/* Graph.
|
|
10775
|
-
function
|
|
10803
|
+
/* Graph.6343:6625:yellowDot */
|
|
10804
|
+
function Graph_n__6343_6625_yellowDot($0, $1, $2, $3, $4, $5) {
|
|
10776
10805
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
|
|
10777
10806
|
}
|
|
10778
10807
|
|
|
10779
|
-
/* Graph.
|
|
10780
|
-
function
|
|
10808
|
+
/* Graph.6343:6624:redDot */
|
|
10809
|
+
function Graph_n__6343_6624_redDot($0, $1, $2, $3, $4, $5) {
|
|
10781
10810
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(1), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
|
|
10782
10811
|
}
|
|
10783
10812
|
|
|
10784
|
-
/* Graph.
|
|
10785
|
-
function
|
|
10813
|
+
/* Graph.6343:6623:note */
|
|
10814
|
+
function Graph_n__6343_6623_note($0, $1, $2, $3, $4, $5, $6) {
|
|
10815
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_bold(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Note:')), $6);
|
|
10816
|
+
}
|
|
10817
|
+
|
|
10818
|
+
/* Graph.6343:6622:maxValue */
|
|
10819
|
+
function Graph_n__6343_6622_maxValue($0, $1, $2, $3, $4, $5, $6) {
|
|
10786
10820
|
switch($6.h) {
|
|
10787
10821
|
case 0: /* nil */ return 0n;
|
|
10788
|
-
case undefined: /* cons */ return Prelude_Types_max_Ord_Nat($6.a1.a2,
|
|
10822
|
+
case undefined: /* cons */ return Prelude_Types_max_Ord_Nat($6.a1.a2, Graph_n__6343_6622_maxValue($0, $1, $2, $3, $4, $5, $6.a2));
|
|
10789
10823
|
}
|
|
10790
10824
|
}
|
|
10791
10825
|
|
|
10792
|
-
/* Graph.
|
|
10793
|
-
function
|
|
10826
|
+
/* Graph.5952:6230:link */
|
|
10827
|
+
function Graph_n__5952_6230_link($0, $1, $2) {
|
|
10794
10828
|
return Prelude_Types_foldMap_Foldable_List(csegen_49(), $7 => $7, {a1: 'https://github.com/', a2: {a1: $1, a2: {a1: '/', a2: {a1: $0, a2: {a1: '/pulls?q=is%3Apr+is%3Aopen+sort%3Acreated-asc', a2: {h: 0}}}}}});
|
|
10795
10829
|
}
|
|
10796
10830
|
|
|
10797
|
-
/* Graph.
|
|
10798
|
-
function
|
|
10831
|
+
/* Graph.6343:6621:header */
|
|
10832
|
+
function Graph_n__6343_6621_header($0, $1, $2, $3, $4, $5) {
|
|
10799
10833
|
let $35;
|
|
10800
10834
|
switch(Prelude_Types_null_Foldable_Maybe($2)) {
|
|
10801
10835
|
case 1: {
|
|
@@ -10803,44 +10837,49 @@ function Graph_n__6327_2327_header($0, $1, $2, $3, $4, $5) {
|
|
|
10803
10837
|
break;
|
|
10804
10838
|
}
|
|
10805
10839
|
case 0: {
|
|
10806
|
-
$35 = {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('1x the number of completed reviews'), Text_PrettyPrint_Prettyprinter_Symbols_parens(
|
|
10840
|
+
$35 = {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('1x the number of completed reviews'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Graph_n__6343_6620_greenBox($0, $1, $2, $3, $4, $5)))};
|
|
10807
10841
|
break;
|
|
10808
10842
|
}
|
|
10809
10843
|
}
|
|
10810
|
-
const $34 = {a1: $35, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
10811
|
-
const $23 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('1x the number of closed PRs with unanswered review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(
|
|
10812
|
-
const $12 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('4x the number of open review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(
|
|
10844
|
+
const $34 = {a1: $35, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Graph_n__6343_6624_redDot($0, $1, $2, $3, $4, $5), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('overlayed on'), Graph_n__6343_6625_yellowDot($0, $1, $2, $3, $4, $5))))}, a2: csegen_504()}};
|
|
10845
|
+
const $23 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('1x the number of closed PRs with unanswered review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Graph_n__6343_6624_redDot($0, $1, $2, $3, $4, $5)))}, a2: $34};
|
|
10846
|
+
const $12 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('4x the number of open review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Graph_n__6343_6625_yellowDot($0, $1, $2, $3, $4, $5)))}, a2: $23};
|
|
10813
10847
|
const $d = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $12};
|
|
10814
10848
|
const $9 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: $d};
|
|
10815
10849
|
const $7 = Data_List_catMaybes($9);
|
|
10816
10850
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep($7);
|
|
10817
10851
|
}
|
|
10818
10852
|
|
|
10819
|
-
/* Graph.
|
|
10820
|
-
function
|
|
10821
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Open Pull Requests grouped by month created.')}, a2:
|
|
10853
|
+
/* Graph.5952:6229:header */
|
|
10854
|
+
function Graph_n__5952_6229_header($0, $1, $2) {
|
|
10855
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Open Pull Requests grouped by month created.')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: csegen_504()}}}));
|
|
10822
10856
|
}
|
|
10823
10857
|
|
|
10824
|
-
/* Graph.
|
|
10825
|
-
function
|
|
10858
|
+
/* Graph.6343:6620:greenBox */
|
|
10859
|
+
function Graph_n__6343_6620_greenBox($0, $1, $2, $3, $4, $5) {
|
|
10826
10860
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25aa}'));
|
|
10827
10861
|
}
|
|
10828
10862
|
|
|
10829
|
-
/* Graph.
|
|
10830
|
-
function
|
|
10863
|
+
/* Graph.5952:6228:graphable */
|
|
10864
|
+
function Graph_n__5952_6228_graphable($0, $1, $2, $3) {
|
|
10831
10865
|
return {a1: $3.a1.a2, a2: (Prelude_Types_List_lengthTR($3.a2)+1n)};
|
|
10832
10866
|
}
|
|
10833
10867
|
|
|
10834
|
-
/* Graph.
|
|
10835
|
-
function
|
|
10868
|
+
/* Graph.6343:6619:footer */
|
|
10869
|
+
function Graph_n__6343_6619_footer($0, $1, $2, $3, $4, $5) {
|
|
10870
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Graph_n__6343_6623_note($0, $1, $2, $3, $4, $5, Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $1a => $1a, {a1: 'It is a strongly held opinion of Harmony that the above graph is not a measure of each developers\' productivity.\nIt is a proxy for each developers\' existing PR review workload that may help to understand how Harmony is\nchoosing reviewers or similarly help one developer decide which other developers have capacity to help review\ntheir work.', a2: {h: 0}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}});
|
|
10871
|
+
}
|
|
10872
|
+
|
|
10873
|
+
/* Graph.5460:5817:countInParens */
|
|
10874
|
+
function Graph_n__5460_5817_countInParens($0, $1) {
|
|
10836
10875
|
switch(Prelude_Types_x3e_Ord_Nat($1.a2, 4n)) {
|
|
10837
10876
|
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_49(), $11 => $11, {a1: '(', a2: {a1: Prelude_Show_show_Show_Nat($1.a2), a2: {a1: ')', a2: {h: 0}}}})));
|
|
10838
10877
|
case 0: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('');
|
|
10839
10878
|
}
|
|
10840
10879
|
}
|
|
10841
10880
|
|
|
10842
|
-
/* Graph.
|
|
10843
|
-
function
|
|
10881
|
+
/* Graph.5460:5816:coloredLabel */
|
|
10882
|
+
function Graph_n__5460_5816_coloredLabel($0, $1) {
|
|
10844
10883
|
switch((($1.a2===0n)?1:0)) {
|
|
10845
10884
|
case 1: return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), $0.a1(undefined)($1.a1));
|
|
10846
10885
|
case 0: {
|
|
@@ -10857,8 +10896,8 @@ function Graph_n__5444_1523_coloredLabel($0, $1) {
|
|
|
10857
10896
|
}
|
|
10858
10897
|
}
|
|
10859
10898
|
|
|
10860
|
-
/* Graph.
|
|
10861
|
-
function
|
|
10899
|
+
/* Graph.6343:6618:augment */
|
|
10900
|
+
function Graph_n__6343_6618_augment($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10862
10901
|
return {a1: $7, a2: Prelude_Types_maybe(() => 0n, () => $d => $d, Data_SortedMap_lookup($7.a1, $6))};
|
|
10863
10902
|
}
|
|
10864
10903
|
|
|
@@ -10894,7 +10933,7 @@ function Graph_prettyPrec_Pretty_Date($0, $1) {
|
|
|
10894
10933
|
|
|
10895
10934
|
/* Graph.label */
|
|
10896
10935
|
function Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $1) {
|
|
10897
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
10936
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Graph_n__5460_5816_coloredLabel($0, $1), Graph_n__5460_5817_countInParens($0, $1));
|
|
10898
10937
|
}
|
|
10899
10938
|
|
|
10900
10939
|
/* Graph.label */
|
|
@@ -10933,11 +10972,11 @@ function Graph_reviewsGraph($0, $1, $2, $3, $4, $5) {
|
|
|
10933
10972
|
break;
|
|
10934
10973
|
}
|
|
10935
10974
|
case undefined: /* just */ {
|
|
10936
|
-
$15 = Prelude_Types_List_mapAppend({h: 0}, $27 =>
|
|
10975
|
+
$15 = Prelude_Types_List_mapAppend({h: 0}, $27 => Graph_n__6343_6618_augment($0, $1, $5, $4, $3, $2, $5.a1, $27), $6);
|
|
10937
10976
|
break;
|
|
10938
10977
|
}
|
|
10939
10978
|
}
|
|
10940
|
-
const $32 = Prelude_Types_maybe(() => 0n, () => $36 => $36, Prelude_Types_map_Functor_Maybe($3a =>
|
|
10979
|
+
const $32 = Prelude_Types_maybe(() => 0n, () => $36 => $36, Prelude_Types_map_Functor_Maybe($3a => Graph_n__6343_6622_maxValue($0, $1, $5, $4, $3, $2, Data_SortedMap_toList($3a)), $5));
|
|
10941
10980
|
switch($6.h) {
|
|
10942
10981
|
case 0: /* nil */ return Text_PrettyPrint_Prettyprinter_Doc_emptyDoc();
|
|
10943
10982
|
case undefined: /* cons */ {
|
|
@@ -10954,17 +10993,18 @@ function Graph_reviewsGraph($0, $1, $2, $3, $4, $5) {
|
|
|
10954
10993
|
}
|
|
10955
10994
|
}
|
|
10956
10995
|
const $5d = Graph_graph({a1: $61 => Graph_totalWidth_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $61), a2: $66 => Graph_label_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $66), a3: $6b => Graph_score_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $6b), a4: $70 => Graph_detractor_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $70), a5: $75 => Graph_bonus_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $75)}, $79, $15);
|
|
10957
|
-
const $
|
|
10958
|
-
|
|
10996
|
+
const $5c = {a1: $5d, a2: {a1: Graph_n__6343_6619_footer($0, $1, $5, $4, $3, $2), a2: {h: 0}}};
|
|
10997
|
+
const $53 = {a1: Graph_n__6343_6621_header($0, $1, $5, $4, $3, $2), a2: $5c};
|
|
10998
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep($53);
|
|
10959
10999
|
}
|
|
10960
11000
|
}
|
|
10961
11001
|
}
|
|
10962
11002
|
|
|
10963
11003
|
/* Graph.healthGraph : List PullRequest -> String -> String -> Doc AnsiStyle */
|
|
10964
11004
|
function Graph_healthGraph($0, $1, $2) {
|
|
10965
|
-
const $3 = Data_List_groupBy($6 => $7 => Prelude_Basics_on($a => $b => Prelude_Basics_on($e => $f => (($e===$f)?1:0), $13 => $13.a2, $a, $b),
|
|
11005
|
+
const $3 = Data_List_groupBy($6 => $7 => Prelude_Basics_on($a => $b => Prelude_Basics_on($e => $f => (($e===$f)?1:0), $13 => $13.a2, $a, $b), csegen_405(), $6, $7), Data_List_sortBy(csegen_406(), $0));
|
|
10966
11006
|
const $20 = Prelude_Types_foldr_Foldable_List(xs => m => Prelude_Types_max_Ord_Nat(Data_List1_length(xs), m), 1n, $3);
|
|
10967
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
11007
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Graph_n__5952_6229_header($2, $1, $0), a2: {a1: Graph_graph({a1: $36 => Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_523(), $36), a2: $3c => Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_523(), $3c), a3: $42 => Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_523(), $42), a4: $48 => Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_523(), $48), a5: $4e => Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_523(), $4e)}, $20, Graph_n__5952_6231_unfoldGraph($2, $1, $0, Data_Fuel_limit(48n), $3, {h: 0})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Graph_n__5952_6230_link($2, $1, $0)), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}});
|
|
10968
11008
|
}
|
|
10969
11009
|
|
|
10970
11010
|
/* Graph.graphOne : Graphable g => Nat -> g -> Doc AnsiStyle */
|
|
@@ -10984,6 +11024,32 @@ function Graph_bar($0, $1, $2, $3) {
|
|
|
10984
11024
|
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(1), Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $2, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{25e6}')))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $1, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{b7}')))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $3, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{25aa}')))), a2: {h: 0}}}}));
|
|
10985
11025
|
}
|
|
10986
11026
|
|
|
11027
|
+
/* Text.PrettyPrint.Prettyprinter.Util.case block in words,helper */
|
|
11028
|
+
function Text_PrettyPrint_Prettyprinter_Util_case__wordsx2chelper_5200($0, $1, $2) {
|
|
11029
|
+
switch($2.h) {
|
|
11030
|
+
case 0: /* nil */ return {h: 0};
|
|
11031
|
+
default: {
|
|
11032
|
+
const $4 = Data_List_break$($7 => Prelude_Types_isSpace($7), $2);
|
|
11033
|
+
return {a1: $4.a1, a2: Text_PrettyPrint_Prettyprinter_Util_n__3825_5188_helper($0, $4.a2)};
|
|
11034
|
+
}
|
|
11035
|
+
}
|
|
11036
|
+
}
|
|
11037
|
+
|
|
11038
|
+
/* Text.PrettyPrint.Prettyprinter.Util.3825:5188:helper */
|
|
11039
|
+
function Text_PrettyPrint_Prettyprinter_Util_n__3825_5188_helper($0, $1) {
|
|
11040
|
+
return Text_PrettyPrint_Prettyprinter_Util_case__wordsx2chelper_5200($0, $1, Data_List_dropWhile($8 => Prelude_Types_isSpace($8), $1));
|
|
11041
|
+
}
|
|
11042
|
+
|
|
11043
|
+
/* Text.PrettyPrint.Prettyprinter.Util.words : String -> List (Doc ann) */
|
|
11044
|
+
function Text_PrettyPrint_Prettyprinter_Util_words($0) {
|
|
11045
|
+
return Prelude_Types_List_mapAppend({h: 0}, $4 => Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4), Prelude_Types_List_mapAppend({h: 0}, $b => Prelude_Types_fastPack($b), Text_PrettyPrint_Prettyprinter_Util_n__3825_5188_helper($0, Prelude_Types_fastUnpack($0))));
|
|
11046
|
+
}
|
|
11047
|
+
|
|
11048
|
+
/* Text.PrettyPrint.Prettyprinter.Util.reflow : String -> Doc ann */
|
|
11049
|
+
function Text_PrettyPrint_Prettyprinter_Util_reflow($0) {
|
|
11050
|
+
return Text_PrettyPrint_Prettyprinter_Doc_fillSep(Text_PrettyPrint_Prettyprinter_Util_words($0));
|
|
11051
|
+
}
|
|
11052
|
+
|
|
10987
11053
|
/* AppVersion.printVersion : HasIO io => io () */
|
|
10988
11054
|
function AppVersion_printVersion($0) {
|
|
10989
11055
|
return $0.a2(undefined)($6 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_49(), $e => $e, {a1: 'Harmony v', a2: {a1: AppVersion_appVersion(), a2: {h: 0}}})+'\n'), $6));
|
|
@@ -10991,7 +11057,7 @@ function AppVersion_printVersion($0) {
|
|
|
10991
11057
|
|
|
10992
11058
|
/* AppVersion.appVersion : String */
|
|
10993
11059
|
const AppVersion_appVersion = __lazy(function () {
|
|
10994
|
-
return '3.
|
|
11060
|
+
return '3.2.0';
|
|
10995
11061
|
});
|
|
10996
11062
|
|
|
10997
11063
|
|