@mattpolzin/harmony 6.3.1 → 6.4.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/README.md +11 -5
- package/harmony +1204 -912
- package/man/harmony.1 +10 -13
- package/package.json +1 -1
package/harmony
CHANGED
|
@@ -1035,7 +1035,7 @@ function x24tcOpt_1($0) {
|
|
|
1035
1035
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
1036
1036
|
default: {
|
|
1037
1037
|
const $17 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1038
|
-
const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($0.a1.a1.a1,
|
|
1038
|
+
const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($0.a1.a1.a1, csegen_843(), $1e, $1f), $17, $0.a6);
|
|
1039
1039
|
switch($1b.a1.h) {
|
|
1040
1040
|
case 0: /* nothing */ {
|
|
1041
1041
|
switch($0.a8) {
|
|
@@ -1050,7 +1050,7 @@ function x24tcOpt_1($0) {
|
|
|
1050
1050
|
}
|
|
1051
1051
|
default: {
|
|
1052
1052
|
const $64 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1053
|
-
const $68 = Data_List_DeleteBy_deleteByx27($6b => $6c => Prelude_Basics_on($0.a1.a1.a1,
|
|
1053
|
+
const $68 = Data_List_DeleteBy_deleteByx27($6b => $6c => Prelude_Basics_on($0.a1.a1.a1, csegen_843(), $6b, $6c), $64, $0.a6);
|
|
1054
1054
|
switch($68.a1.h) {
|
|
1055
1055
|
case 0: /* nothing */ {
|
|
1056
1056
|
switch($0.a8) {
|
|
@@ -1075,7 +1075,7 @@ function x24tcOpt_1($0) {
|
|
|
1075
1075
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
1076
1076
|
default: {
|
|
1077
1077
|
const $b5 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1078
|
-
const $b9 = Data_List_DeleteBy_deleteByx27($bc => $bd => Prelude_Basics_on($0.a1.a1.a1,
|
|
1078
|
+
const $b9 = Data_List_DeleteBy_deleteByx27($bc => $bd => Prelude_Basics_on($0.a1.a1.a1, csegen_843(), $bc, $bd), $b5, $0.a6);
|
|
1079
1079
|
switch($b9.a1.h) {
|
|
1080
1080
|
case 0: /* nothing */ {
|
|
1081
1081
|
switch($0.a8) {
|
|
@@ -1090,7 +1090,7 @@ function x24tcOpt_1($0) {
|
|
|
1090
1090
|
}
|
|
1091
1091
|
default: {
|
|
1092
1092
|
const $102 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1093
|
-
const $106 = Data_List_DeleteBy_deleteByx27($109 => $10a => Prelude_Basics_on($0.a1.a1.a1,
|
|
1093
|
+
const $106 = Data_List_DeleteBy_deleteByx27($109 => $10a => Prelude_Basics_on($0.a1.a1.a1, csegen_843(), $109, $10a), $102, $0.a6);
|
|
1094
1094
|
switch($106.a1.h) {
|
|
1095
1095
|
case 0: /* nothing */ {
|
|
1096
1096
|
switch($0.a8) {
|
|
@@ -1155,7 +1155,7 @@ function Prelude_Show_n__3215_12601_showx27($0, $1, $2, $3) {
|
|
|
1155
1155
|
/* {$tcOpt:4} */
|
|
1156
1156
|
function x24tcOpt_4($0) {
|
|
1157
1157
|
switch($0.h) {
|
|
1158
|
-
case 1: /* {TcContinue4:1} */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5(), a6: $0.a9, a7: {a1: {a1: $0.a6.a3, a2: {a1:
|
|
1158
|
+
case 1: /* {TcContinue4:1} */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5(), a6: $0.a9, a7: {a1: {a1: $0.a6.a3, a2: {a1: Commands_Graph_n__7385_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a8), a2: $0.a11}}}};
|
|
1159
1159
|
case 2: /* {TcContinue4:2} */ {
|
|
1160
1160
|
switch($0.a5.h) {
|
|
1161
1161
|
case 0: /* nothing */ {
|
|
@@ -1174,7 +1174,7 @@ function x24tcOpt_4($0) {
|
|
|
1174
1174
|
case undefined: /* cons */ return {h: 0 /* {TcDone:4} */, a1: $0.a7.a1.a2};
|
|
1175
1175
|
default: {
|
|
1176
1176
|
switch($0.a7.h) {
|
|
1177
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1:
|
|
1177
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1: Commands_Graph_n__7385_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1178
1178
|
case undefined: /* just */ {
|
|
1179
1179
|
const $39 = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1180
1180
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1188,7 +1188,7 @@ function x24tcOpt_4($0) {
|
|
|
1188
1188
|
}
|
|
1189
1189
|
default: {
|
|
1190
1190
|
switch($0.a7.h) {
|
|
1191
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1:
|
|
1191
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1: Commands_Graph_n__7385_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1192
1192
|
case undefined: /* just */ {
|
|
1193
1193
|
const $73 = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1194
1194
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1202,7 +1202,7 @@ function x24tcOpt_4($0) {
|
|
|
1202
1202
|
}
|
|
1203
1203
|
default: {
|
|
1204
1204
|
switch($0.a7.h) {
|
|
1205
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1:
|
|
1205
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1: Commands_Graph_n__7385_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1206
1206
|
case undefined: /* just */ {
|
|
1207
1207
|
const $ad = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1208
1208
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1226,7 +1226,7 @@ function x24tcOpt_4($0) {
|
|
|
1226
1226
|
case undefined: /* cons */ return {h: 0 /* {TcDone:4} */, a1: $0.a7.a1.a2};
|
|
1227
1227
|
default: {
|
|
1228
1228
|
switch($0.a7.h) {
|
|
1229
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1:
|
|
1229
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1: Commands_Graph_n__7385_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1230
1230
|
case undefined: /* just */ {
|
|
1231
1231
|
const $ec = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1232
1232
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1240,7 +1240,7 @@ function x24tcOpt_4($0) {
|
|
|
1240
1240
|
}
|
|
1241
1241
|
default: {
|
|
1242
1242
|
switch($0.a7.h) {
|
|
1243
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1:
|
|
1243
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1: Commands_Graph_n__7385_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1244
1244
|
case undefined: /* just */ {
|
|
1245
1245
|
const $126 = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1246
1246
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1254,7 +1254,7 @@ function x24tcOpt_4($0) {
|
|
|
1254
1254
|
}
|
|
1255
1255
|
default: {
|
|
1256
1256
|
switch($0.a7.h) {
|
|
1257
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1:
|
|
1257
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1: Commands_Graph_n__7385_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1258
1258
|
case undefined: /* just */ {
|
|
1259
1259
|
const $160 = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1260
1260
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1278,7 +1278,7 @@ function x24tcOpt_4($0) {
|
|
|
1278
1278
|
case undefined: /* cons */ return {h: 0 /* {TcDone:4} */, a1: $0.a7.a1.a2};
|
|
1279
1279
|
default: {
|
|
1280
1280
|
switch($0.a7.h) {
|
|
1281
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1:
|
|
1281
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1: Commands_Graph_n__7385_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1282
1282
|
case undefined: /* just */ {
|
|
1283
1283
|
const $19f = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1284
1284
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1292,7 +1292,7 @@ function x24tcOpt_4($0) {
|
|
|
1292
1292
|
}
|
|
1293
1293
|
default: {
|
|
1294
1294
|
switch($0.a7.h) {
|
|
1295
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1:
|
|
1295
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1: Commands_Graph_n__7385_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1296
1296
|
case undefined: /* just */ {
|
|
1297
1297
|
const $1d9 = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1298
1298
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1306,7 +1306,7 @@ function x24tcOpt_4($0) {
|
|
|
1306
1306
|
}
|
|
1307
1307
|
default: {
|
|
1308
1308
|
switch($0.a7.h) {
|
|
1309
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1:
|
|
1309
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1: Commands_Graph_n__7385_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1310
1310
|
case undefined: /* just */ {
|
|
1311
1311
|
const $213 = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1312
1312
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1328,18 +1328,18 @@ function x24tcOpt_4($0) {
|
|
|
1328
1328
|
}
|
|
1329
1329
|
}
|
|
1330
1330
|
|
|
1331
|
-
/* Commands.Graph.
|
|
1332
|
-
function
|
|
1331
|
+
/* Commands.Graph.7406:6732:insertNext */
|
|
1332
|
+
function Commands_Graph_n__7406_6732_insertNext($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a) {
|
|
1333
1333
|
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, a11: $a});
|
|
1334
1334
|
}
|
|
1335
1335
|
|
|
1336
|
-
/* Commands.Graph.
|
|
1337
|
-
function
|
|
1336
|
+
/* Commands.Graph.7385:6606:unfoldGraph */
|
|
1337
|
+
function Commands_Graph_n__7385_6606_unfoldGraph($0, $1, $2, $3, $4, $5, $6) {
|
|
1338
1338
|
return __tailRec(x24tcOpt_4, {h: 2 /* {TcContinue4:2} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6});
|
|
1339
1339
|
}
|
|
1340
1340
|
|
|
1341
|
-
/* Commands.Graph.
|
|
1342
|
-
function
|
|
1341
|
+
/* Commands.Graph.7406:6733:insertPlaceholder */
|
|
1342
|
+
function Commands_Graph_n__7406_6733_insertPlaceholder($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a) {
|
|
1343
1343
|
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, a11: $a});
|
|
1344
1344
|
}
|
|
1345
1345
|
|
|
@@ -1679,7 +1679,7 @@ function x24tcOpt_14($0) {
|
|
|
1679
1679
|
default: return {h: 0 /* {TcDone:14} */, a1: Data_List_Suffix_Result0_failInParen($c4 => JSON_Parser_interpolate_Interpolation_JSToken($c4), $0.a6, {h: 0 /* Symbol */, a1: '{'}, $0.a7)};
|
|
1680
1680
|
}
|
|
1681
1681
|
}
|
|
1682
|
-
case 2: /* EOI */ return {h: 0 /* {TcDone:14} */, a1: {h: 1 /* Fail0 */, a1: {a1:
|
|
1682
|
+
case 2: /* EOI */ return {h: 0 /* {TcDone:14} */, a1: {h: 1 /* Fail0 */, a1: {a1: csegen_282(), a2: $0.a6}}};
|
|
1683
1683
|
default: return {h: 0 /* {TcDone:14} */, a1: Data_List_Suffix_Result0_failInParen($d3 => JSON_Parser_interpolate_Interpolation_JSToken($d3), $0.a6, {h: 0 /* Symbol */, a1: '{'}, $0.a7)};
|
|
1684
1684
|
}
|
|
1685
1685
|
}
|
|
@@ -1697,7 +1697,7 @@ function x24tcOpt_14($0) {
|
|
|
1697
1697
|
switch($0.a7.a1.a1.a1.h) {
|
|
1698
1698
|
case 0: /* nil */ {
|
|
1699
1699
|
switch($0.a7.a1.a1.a2) {
|
|
1700
|
-
case 'end of input': return {h: 0 /* {TcDone:14} */, a1: {h: 1 /* Fail0 */, a1: {a1:
|
|
1700
|
+
case 'end of input': return {h: 0 /* {TcDone:14} */, a1: {h: 1 /* Fail0 */, a1: {a1: csegen_282(), a2: $0.a6}}};
|
|
1701
1701
|
default: return {h: 0 /* {TcDone:14} */, a1: Data_List_Suffix_Result0_failInParen($fa => JSON_Parser_interpolate_Interpolation_JSToken($fa), $0.a6, {h: 0 /* Symbol */, a1: '{'}, $0.a7)};
|
|
1702
1702
|
}
|
|
1703
1703
|
}
|
|
@@ -2457,7 +2457,7 @@ function x24tcOpt_46($0) {
|
|
|
2457
2457
|
default: return {h: 0 /* {TcDone:46} */, a1: Data_List_Suffix_Result0_failInParen($1e => JSON_Parser_interpolate_Interpolation_JSToken($1e), $0.a3, {h: 0 /* Symbol */, a1: '['}, $0.a4)};
|
|
2458
2458
|
}
|
|
2459
2459
|
}
|
|
2460
|
-
case 2: /* EOI */ return {h: 0 /* {TcDone:46} */, a1: {h: 1 /* Fail0 */, a1: {a1:
|
|
2460
|
+
case 2: /* EOI */ return {h: 0 /* {TcDone:46} */, a1: {h: 1 /* Fail0 */, a1: {a1: csegen_283(), a2: $0.a3}}};
|
|
2461
2461
|
default: return {h: 0 /* {TcDone:46} */, a1: Data_List_Suffix_Result0_failInParen($2d => JSON_Parser_interpolate_Interpolation_JSToken($2d), $0.a3, {h: 0 /* Symbol */, a1: '['}, $0.a4)};
|
|
2462
2462
|
}
|
|
2463
2463
|
}
|
|
@@ -2475,7 +2475,7 @@ function x24tcOpt_46($0) {
|
|
|
2475
2475
|
switch($0.a4.a1.a1.a1.h) {
|
|
2476
2476
|
case 0: /* nil */ {
|
|
2477
2477
|
switch($0.a4.a1.a1.a2) {
|
|
2478
|
-
case 'end of input': return {h: 0 /* {TcDone:46} */, a1: {h: 1 /* Fail0 */, a1: {a1:
|
|
2478
|
+
case 'end of input': return {h: 0 /* {TcDone:46} */, a1: {h: 1 /* Fail0 */, a1: {a1: csegen_283(), a2: $0.a3}}};
|
|
2479
2479
|
default: return {h: 0 /* {TcDone:46} */, a1: Data_List_Suffix_Result0_failInParen($54 => JSON_Parser_interpolate_Interpolation_JSToken($54), $0.a3, {h: 0 /* Symbol */, a1: '['}, $0.a4)};
|
|
2480
2480
|
}
|
|
2481
2481
|
}
|
|
@@ -2718,13 +2718,18 @@ const csegen_156 = __lazy(function () {
|
|
|
2718
2718
|
return {a1: '--completed', a2: {a1: 'graph', a2: {h: 0}}};
|
|
2719
2719
|
});
|
|
2720
2720
|
|
|
2721
|
-
/* {csegen:
|
|
2722
|
-
const
|
|
2721
|
+
/* {csegen:157} */
|
|
2722
|
+
const csegen_157 = __lazy(function () {
|
|
2723
|
+
return {a1: '--print-tree', a2: {a1: '--into', a2: {h: 0}}};
|
|
2724
|
+
});
|
|
2725
|
+
|
|
2726
|
+
/* {csegen:229} */
|
|
2727
|
+
const csegen_229 = __lazy(function () {
|
|
2723
2728
|
return {a1: '', a2: {a1: '', a2: 1}};
|
|
2724
2729
|
});
|
|
2725
2730
|
|
|
2726
|
-
/* {csegen:
|
|
2727
|
-
const
|
|
2731
|
+
/* {csegen:232} */
|
|
2732
|
+
const csegen_232 = __lazy(function () {
|
|
2728
2733
|
return b => a => func => $0 => {
|
|
2729
2734
|
switch($0.h) {
|
|
2730
2735
|
case 0: /* Left */ return {h: 0 /* Left */, a1: $0.a1};
|
|
@@ -2733,8 +2738,8 @@ const csegen_230 = __lazy(function () {
|
|
|
2733
2738
|
};
|
|
2734
2739
|
});
|
|
2735
2740
|
|
|
2736
|
-
/* {csegen:
|
|
2737
|
-
const
|
|
2741
|
+
/* {csegen:236} */
|
|
2742
|
+
const csegen_236 = __lazy(function () {
|
|
2738
2743
|
const $5 = b => a => $6 => $7 => {
|
|
2739
2744
|
switch($6.h) {
|
|
2740
2745
|
case 0: /* Left */ return {h: 0 /* Left */, a1: $6.a1};
|
|
@@ -2746,46 +2751,46 @@ const csegen_234 = __lazy(function () {
|
|
|
2746
2751
|
}
|
|
2747
2752
|
}
|
|
2748
2753
|
};
|
|
2749
|
-
return {a1:
|
|
2754
|
+
return {a1: csegen_232(), a2: a => $3 => ({h: 1 /* Right */, a1: $3}), a3: $5};
|
|
2750
2755
|
});
|
|
2751
2756
|
|
|
2752
|
-
/* {csegen:
|
|
2753
|
-
const
|
|
2757
|
+
/* {csegen:237} */
|
|
2758
|
+
const csegen_237 = __lazy(function () {
|
|
2754
2759
|
return $0 => $1 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($0, $1);
|
|
2755
2760
|
});
|
|
2756
2761
|
|
|
2757
|
-
/* {csegen:
|
|
2758
|
-
const
|
|
2759
|
-
return {a1:
|
|
2762
|
+
/* {csegen:241} */
|
|
2763
|
+
const csegen_241 = __lazy(function () {
|
|
2764
|
+
return {a1: csegen_236(), a2: b => a => csegen_237(), a3: a => $5 => Prelude_Types_join_Monad_x28Eitherx20x24ex29($5)};
|
|
2760
2765
|
});
|
|
2761
2766
|
|
|
2762
|
-
/* {csegen:
|
|
2763
|
-
const
|
|
2764
|
-
return {a1:
|
|
2767
|
+
/* {csegen:262} */
|
|
2768
|
+
const csegen_262 = __lazy(function () {
|
|
2769
|
+
return {a1: csegen_232(), a2: {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 => $e => Prelude_Types_null_Foldable_x28Eitherx20x24ex29($e), a4: elem => acc => m => $12 => funcM => init => input => Prelude_Types_foldlM_Foldable_x28Eitherx20x24ex29($12, funcM, init, input), a5: elem => $19 => Prelude_Types_toList_Foldable_x28Eitherx20x24ex29($19), a6: a => m => $1d => f => $1e => Prelude_Types_foldMap_Foldable_x28Eitherx20x24ex29($1d, f, $1e)}, a3: b => a => f => $24 => $25 => $26 => Prelude_Types_traverse_Traversable_x28Eitherx20x24ex29($24, $25, $26)};
|
|
2765
2770
|
});
|
|
2766
2771
|
|
|
2767
|
-
/* {csegen:
|
|
2768
|
-
const
|
|
2772
|
+
/* {csegen:272} */
|
|
2773
|
+
const csegen_272 = __lazy(function () {
|
|
2769
2774
|
return () => $0 => $0.a2;
|
|
2770
2775
|
});
|
|
2771
2776
|
|
|
2772
|
-
/* {csegen:
|
|
2773
|
-
const
|
|
2777
|
+
/* {csegen:277} */
|
|
2778
|
+
const csegen_277 = __lazy(function () {
|
|
2774
2779
|
return {a1: x => JSON_Parser_showImpl(x), a2: d => x => JSON_Parser_showImpl(x)};
|
|
2775
2780
|
});
|
|
2776
2781
|
|
|
2777
|
-
/* {csegen:
|
|
2778
|
-
const
|
|
2782
|
+
/* {csegen:282} */
|
|
2783
|
+
const csegen_282 = __lazy(function () {
|
|
2779
2784
|
return {h: 8 /* Unclosed */, a1: JSON_Parser_interpolate_Interpolation_JSToken({h: 0 /* Symbol */, a1: '{'})};
|
|
2780
2785
|
});
|
|
2781
2786
|
|
|
2782
|
-
/* {csegen:
|
|
2783
|
-
const
|
|
2787
|
+
/* {csegen:283} */
|
|
2788
|
+
const csegen_283 = __lazy(function () {
|
|
2784
2789
|
return {h: 8 /* Unclosed */, a1: JSON_Parser_interpolate_Interpolation_JSToken({h: 0 /* Symbol */, a1: '['})};
|
|
2785
2790
|
});
|
|
2786
2791
|
|
|
2787
|
-
/* {csegen:
|
|
2788
|
-
const
|
|
2792
|
+
/* {csegen:288} */
|
|
2793
|
+
const csegen_288 = __lazy(function () {
|
|
2789
2794
|
return $0 => {
|
|
2790
2795
|
const $1 = JSON_Parser_parseJSON({h: 0}, $0);
|
|
2791
2796
|
switch($1.h) {
|
|
@@ -2795,43 +2800,43 @@ const csegen_286 = __lazy(function () {
|
|
|
2795
2800
|
};
|
|
2796
2801
|
});
|
|
2797
2802
|
|
|
2798
|
-
/* {csegen:
|
|
2799
|
-
const
|
|
2803
|
+
/* {csegen:295} */
|
|
2804
|
+
const csegen_295 = __lazy(function () {
|
|
2800
2805
|
return $0 => $1 => (($0===$1)?1:0);
|
|
2801
2806
|
});
|
|
2802
2807
|
|
|
2803
|
-
/* {csegen:
|
|
2804
|
-
const
|
|
2808
|
+
/* {csegen:298} */
|
|
2809
|
+
const csegen_298 = __lazy(function () {
|
|
2805
2810
|
return $0 => $1 => Prelude_EqOrd_compare_Ord_Integer($0, $1);
|
|
2806
2811
|
});
|
|
2807
2812
|
|
|
2808
|
-
/* {csegen:
|
|
2809
|
-
const
|
|
2813
|
+
/* {csegen:303} */
|
|
2814
|
+
const csegen_303 = __lazy(function () {
|
|
2810
2815
|
return $0 => $1 => Prelude_Types_max_Ord_Nat($0, $1);
|
|
2811
2816
|
});
|
|
2812
2817
|
|
|
2813
|
-
/* {csegen:
|
|
2814
|
-
const
|
|
2818
|
+
/* {csegen:316} */
|
|
2819
|
+
const csegen_316 = __lazy(function () {
|
|
2815
2820
|
return $0 => Language_JSON_Accessors_array($3 => Data_PullRequest_parsePR($3), $0);
|
|
2816
2821
|
});
|
|
2817
2822
|
|
|
2818
|
-
/* {csegen:
|
|
2819
|
-
const
|
|
2823
|
+
/* {csegen:340} */
|
|
2824
|
+
const csegen_340 = __lazy(function () {
|
|
2820
2825
|
return () => $0 => Language_JSON_Accessors_optional($3 => Language_JSON_Accessors_string($3), $0);
|
|
2821
2826
|
});
|
|
2822
2827
|
|
|
2823
|
-
/* {csegen:
|
|
2824
|
-
const
|
|
2828
|
+
/* {csegen:374} */
|
|
2829
|
+
const csegen_374 = __lazy(function () {
|
|
2825
2830
|
return {a1: csegen_76(), 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)};
|
|
2826
2831
|
});
|
|
2827
2832
|
|
|
2828
|
-
/* {csegen:
|
|
2829
|
-
const
|
|
2833
|
+
/* {csegen:377} */
|
|
2834
|
+
const csegen_377 = __lazy(function () {
|
|
2830
2835
|
return {a1: $1 => $2 => Prelude_EqOrd_x3dx3d_Eq_Integer($1, $2), a2: $7 => $8 => Prelude_EqOrd_x2fx3d_Eq_Integer($7, $8)};
|
|
2831
2836
|
});
|
|
2832
2837
|
|
|
2833
|
-
/* {csegen:
|
|
2834
|
-
const
|
|
2838
|
+
/* {csegen:385} */
|
|
2839
|
+
const csegen_385 = __lazy(function () {
|
|
2835
2840
|
return $0 => {
|
|
2836
2841
|
const $1 = Language_JSON_Accessors_string($0);
|
|
2837
2842
|
switch($1.h) {
|
|
@@ -2841,93 +2846,93 @@ const csegen_381 = __lazy(function () {
|
|
|
2841
2846
|
};
|
|
2842
2847
|
});
|
|
2843
2848
|
|
|
2844
|
-
/* {csegen:
|
|
2845
|
-
const
|
|
2849
|
+
/* {csegen:392} */
|
|
2850
|
+
const csegen_392 = __lazy(function () {
|
|
2846
2851
|
return {a1: $1 => $2 => _add32s($1, $2), a2: $6 => $7 => _mul32s($6, $7), a3: $b => Number(_truncBigInt32($b))};
|
|
2847
2852
|
});
|
|
2848
2853
|
|
|
2849
|
-
/* {csegen:
|
|
2850
|
-
const
|
|
2854
|
+
/* {csegen:412} */
|
|
2855
|
+
const csegen_412 = __lazy(function () {
|
|
2851
2856
|
return $0 => Prelude_EqOrd_x3dx3d_Eq_Char($0, '/');
|
|
2852
2857
|
});
|
|
2853
2858
|
|
|
2854
|
-
/* {csegen:
|
|
2855
|
-
const
|
|
2859
|
+
/* {csegen:418} */
|
|
2860
|
+
const csegen_418 = __lazy(function () {
|
|
2856
2861
|
return () => $0 => $0.a1;
|
|
2857
2862
|
});
|
|
2858
2863
|
|
|
2859
|
-
/* {csegen:
|
|
2860
|
-
const
|
|
2864
|
+
/* {csegen:431} */
|
|
2865
|
+
const csegen_431 = __lazy(function () {
|
|
2861
2866
|
return () => $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Number(_truncUBigInt32($4)), System_time(csegen_48()()), $0, $1);
|
|
2862
2867
|
});
|
|
2863
2868
|
|
|
2864
|
-
/* {csegen:
|
|
2865
|
-
const
|
|
2869
|
+
/* {csegen:436} */
|
|
2870
|
+
const csegen_436 = __lazy(function () {
|
|
2866
2871
|
return $0 => $1 => $2 => $3 => Prelude_Types_map_Functor_Maybe($2, $3);
|
|
2867
2872
|
});
|
|
2868
2873
|
|
|
2869
|
-
/* {csegen:
|
|
2870
|
-
const
|
|
2874
|
+
/* {csegen:458} */
|
|
2875
|
+
const csegen_458 = __lazy(function () {
|
|
2871
2876
|
return () => $0 => $1 => $2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($5 => Prelude_IO_prim__putStr('\n', $5), $0, $1, $2);
|
|
2872
2877
|
});
|
|
2873
2878
|
|
|
2874
|
-
/* {csegen:
|
|
2875
|
-
const
|
|
2879
|
+
/* {csegen:460} */
|
|
2880
|
+
const csegen_460 = __lazy(function () {
|
|
2876
2881
|
return () => $0 => $1 => $2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($5 => Prelude_IO_prim__getStr($5), $0, $1, $2);
|
|
2877
2882
|
});
|
|
2878
2883
|
|
|
2879
|
-
/* {csegen:
|
|
2880
|
-
const
|
|
2884
|
+
/* {csegen:464} */
|
|
2885
|
+
const csegen_464 = __lazy(function () {
|
|
2881
2886
|
return () => $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 0}, $0, $1);
|
|
2882
2887
|
});
|
|
2883
2888
|
|
|
2884
|
-
/* {csegen:
|
|
2885
|
-
const
|
|
2889
|
+
/* {csegen:478} */
|
|
2890
|
+
const csegen_478 = __lazy(function () {
|
|
2886
2891
|
return {a1: Commands_Help_argument(0, '...'), a2: {h: 0}};
|
|
2887
2892
|
});
|
|
2888
2893
|
|
|
2889
|
-
/* {csegen:
|
|
2890
|
-
const
|
|
2891
|
-
return {a1: Commands_Help_argument(0, '#<label>'), a2:
|
|
2894
|
+
/* {csegen:483} */
|
|
2895
|
+
const csegen_483 = __lazy(function () {
|
|
2896
|
+
return {a1: Commands_Help_argument(0, '#<label>'), a2: csegen_478()};
|
|
2892
2897
|
});
|
|
2893
2898
|
|
|
2894
|
-
/* {csegen:
|
|
2895
|
-
const
|
|
2899
|
+
/* {csegen:655} */
|
|
2900
|
+
const csegen_655 = __lazy(function () {
|
|
2896
2901
|
return $0 => $1 => System_Git_currentBranch($0, $1);
|
|
2897
2902
|
});
|
|
2898
2903
|
|
|
2899
|
-
/* {csegen:
|
|
2900
|
-
const
|
|
2904
|
+
/* {csegen:669} */
|
|
2905
|
+
const csegen_669 = __lazy(function () {
|
|
2901
2906
|
return {a1: d => b => c => a => $1 => $2 => $3 => ({a1: $1($3.a1), a2: $2($3.a2)}), a2: b => c => a => $c => $d => ({a1: $c($d.a1), a2: $d.a2}), a3: a => d => b => $14 => $15 => ({a1: $15.a1, a2: $14($15.a2)})};
|
|
2902
2907
|
});
|
|
2903
2908
|
|
|
2904
|
-
/* {csegen:
|
|
2905
|
-
const
|
|
2909
|
+
/* {csegen:673} */
|
|
2910
|
+
const csegen_673 = __lazy(function () {
|
|
2906
2911
|
return {a1: {h: 0}, a2: {a1: '-i', a2: {h: 0}}};
|
|
2907
2912
|
});
|
|
2908
2913
|
|
|
2909
|
-
/* {csegen:
|
|
2910
|
-
const
|
|
2914
|
+
/* {csegen:679} */
|
|
2915
|
+
const csegen_679 = __lazy(function () {
|
|
2911
2916
|
return $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $0, $1);
|
|
2912
2917
|
});
|
|
2913
2918
|
|
|
2914
|
-
/* {csegen:
|
|
2915
|
-
const
|
|
2919
|
+
/* {csegen:703} */
|
|
2920
|
+
const csegen_703 = __lazy(function () {
|
|
2916
2921
|
return {a1: csegen_9(), a2: a => ({h: 0}), a3: a => $4 => $5 => Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, $5)};
|
|
2917
2922
|
});
|
|
2918
2923
|
|
|
2919
|
-
/* {csegen:
|
|
2920
|
-
const
|
|
2921
|
-
return $0 => Data_List_sort(
|
|
2924
|
+
/* {csegen:704} */
|
|
2925
|
+
const csegen_704 = __lazy(function () {
|
|
2926
|
+
return $0 => Data_List_sort(csegen_374(), $0);
|
|
2922
2927
|
});
|
|
2923
2928
|
|
|
2924
|
-
/* {csegen:
|
|
2925
|
-
const
|
|
2929
|
+
/* {csegen:706} */
|
|
2930
|
+
const csegen_706 = __lazy(function () {
|
|
2926
2931
|
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_66(), $0, $1, $2);
|
|
2927
2932
|
});
|
|
2928
2933
|
|
|
2929
|
-
/* {csegen:
|
|
2930
|
-
const
|
|
2934
|
+
/* {csegen:713} */
|
|
2935
|
+
const csegen_713 = __lazy(function () {
|
|
2931
2936
|
return $0 => {
|
|
2932
2937
|
switch($0.h) {
|
|
2933
2938
|
case 0: /* nothing */ return 1;
|
|
@@ -2936,83 +2941,93 @@ const csegen_705 = __lazy(function () {
|
|
|
2936
2941
|
};
|
|
2937
2942
|
});
|
|
2938
2943
|
|
|
2939
|
-
/* {csegen:
|
|
2940
|
-
const
|
|
2944
|
+
/* {csegen:718} */
|
|
2945
|
+
const csegen_718 = __lazy(function () {
|
|
2941
2946
|
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2942
2947
|
});
|
|
2943
2948
|
|
|
2944
|
-
/* {csegen:
|
|
2945
|
-
const
|
|
2949
|
+
/* {csegen:719} */
|
|
2950
|
+
const csegen_719 = __lazy(function () {
|
|
2946
2951
|
return $0 => $0.a3;
|
|
2947
2952
|
});
|
|
2948
2953
|
|
|
2949
|
-
/* {csegen:
|
|
2950
|
-
const
|
|
2951
|
-
return $0 => $1 => Prelude_Basics_on(
|
|
2954
|
+
/* {csegen:720} */
|
|
2955
|
+
const csegen_720 = __lazy(function () {
|
|
2956
|
+
return $0 => $1 => Prelude_Basics_on(csegen_718(), csegen_719(), $0, $1);
|
|
2952
2957
|
});
|
|
2953
2958
|
|
|
2954
|
-
/* {csegen:
|
|
2955
|
-
const
|
|
2959
|
+
/* {csegen:742} */
|
|
2960
|
+
const csegen_742 = __lazy(function () {
|
|
2956
2961
|
return $0 => $0.a3;
|
|
2957
2962
|
});
|
|
2958
2963
|
|
|
2959
|
-
/* {csegen:
|
|
2960
|
-
const
|
|
2964
|
+
/* {csegen:745} */
|
|
2965
|
+
const csegen_745 = __lazy(function () {
|
|
2961
2966
|
return Theme_cs({a1: 2, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2962
2967
|
});
|
|
2963
2968
|
|
|
2964
|
-
/* {csegen:
|
|
2965
|
-
const
|
|
2969
|
+
/* {csegen:746} */
|
|
2970
|
+
const csegen_746 = __lazy(function () {
|
|
2971
|
+
return Theme_cs({a1: 4, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2972
|
+
});
|
|
2973
|
+
|
|
2974
|
+
/* {csegen:748} */
|
|
2975
|
+
const csegen_748 = __lazy(function () {
|
|
2966
2976
|
return $0 => $0.a1;
|
|
2967
2977
|
});
|
|
2968
2978
|
|
|
2969
|
-
/* {csegen:
|
|
2970
|
-
const
|
|
2979
|
+
/* {csegen:755} */
|
|
2980
|
+
const csegen_755 = __lazy(function () {
|
|
2971
2981
|
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}}}));
|
|
2972
2982
|
});
|
|
2973
2983
|
|
|
2974
|
-
/* {csegen:
|
|
2975
|
-
const
|
|
2984
|
+
/* {csegen:765} */
|
|
2985
|
+
const csegen_765 = __lazy(function () {
|
|
2976
2986
|
return Theme_cs({a1: 0, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2977
2987
|
});
|
|
2978
2988
|
|
|
2979
|
-
/* {csegen:
|
|
2980
|
-
const
|
|
2989
|
+
/* {csegen:766} */
|
|
2990
|
+
const csegen_766 = __lazy(function () {
|
|
2981
2991
|
return Theme_cs({a1: 1, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2982
2992
|
});
|
|
2983
2993
|
|
|
2984
|
-
/* {csegen:
|
|
2985
|
-
const
|
|
2994
|
+
/* {csegen:767} */
|
|
2995
|
+
const csegen_767 = __lazy(function () {
|
|
2986
2996
|
return Theme_cs({a1: 3, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2987
2997
|
});
|
|
2988
2998
|
|
|
2989
|
-
/* {csegen:
|
|
2990
|
-
const
|
|
2999
|
+
/* {csegen:772} */
|
|
3000
|
+
const csegen_772 = __lazy(function () {
|
|
3001
|
+
return Theme_cs({a1: 5, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
3002
|
+
});
|
|
3003
|
+
|
|
3004
|
+
/* {csegen:792} */
|
|
3005
|
+
const csegen_792 = __lazy(function () {
|
|
2991
3006
|
return $0 => Prelude_Types_either(() => $3 => '', () => $5 => $5, $0);
|
|
2992
3007
|
});
|
|
2993
3008
|
|
|
2994
|
-
/* {csegen:
|
|
2995
|
-
const
|
|
3009
|
+
/* {csegen:799} */
|
|
3010
|
+
const csegen_799 = __lazy(function () {
|
|
2996
3011
|
return $0 => Util_Prompting_yesNoPrompt(csegen_48()(), 1, 'Would you like to continue creating a Pull Request anyway?');
|
|
2997
3012
|
});
|
|
2998
3013
|
|
|
2999
|
-
/* {csegen:
|
|
3000
|
-
const
|
|
3014
|
+
/* {csegen:838} */
|
|
3015
|
+
const csegen_838 = __lazy(function () {
|
|
3001
3016
|
return $0 => Prelude_Types_fastPack(Prelude_Types_List_reverse($0));
|
|
3002
3017
|
});
|
|
3003
3018
|
|
|
3004
|
-
/* {csegen:
|
|
3005
|
-
const
|
|
3019
|
+
/* {csegen:843} */
|
|
3020
|
+
const csegen_843 = __lazy(function () {
|
|
3006
3021
|
return $0 => $0.a1;
|
|
3007
3022
|
});
|
|
3008
3023
|
|
|
3009
|
-
/* {csegen:
|
|
3010
|
-
const
|
|
3024
|
+
/* {csegen:853} */
|
|
3025
|
+
const csegen_853 = __lazy(function () {
|
|
3011
3026
|
return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}};
|
|
3012
3027
|
});
|
|
3013
3028
|
|
|
3014
|
-
/* {csegen:
|
|
3015
|
-
const
|
|
3029
|
+
/* {csegen:869} */
|
|
3030
|
+
const csegen_869 = __lazy(function () {
|
|
3016
3031
|
return {a1: ann => $1 => Commands_Graph_pretty_Pretty_Date($1), a2: ann => $5 => $6 => Commands_Graph_prettyPrec_Pretty_Date($5, $6)};
|
|
3017
3032
|
});
|
|
3018
3033
|
|
|
@@ -3028,46 +3043,46 @@ function Main_case__casex20blockx20inx20casex20blockx20inx20casex20blockx20inx20
|
|
|
3028
3043
|
case 0: /* nil */ {
|
|
3029
3044
|
const $1c = $1d => $1e => $1f => {
|
|
3030
3045
|
switch($1d.h) {
|
|
3031
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($23 => $24 => $25 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($28 => FFI_GitHub_octokit($1d.a1, $28), $23, $24, $25), $30 => $31 =>
|
|
3046
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($23 => $24 => $25 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($28 => FFI_GitHub_octokit($1d.a1, $28), $23, $24, $25), $30 => $31 => Main_n__9012_1301_gitCompletions($0, $1, $2, $3, $4, $6, () => $30, $31), $1e, $1f);
|
|
3032
3047
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 0}, $1e, $1f);
|
|
3033
3048
|
}
|
|
3034
3049
|
};
|
|
3035
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($e => $f => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, () => Prelude_Types_map_Functor_Maybe($17 => $17, $6.
|
|
3050
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($e => $f => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, () => Prelude_Types_map_Functor_Maybe($17 => $17, $6.a15)), $e, $f), $1c, $9, $a);
|
|
3036
3051
|
}
|
|
3037
3052
|
default: return Data_Promise_pure_Applicative_x28Promisex20x24ex29($8, $9, $a);
|
|
3038
3053
|
}
|
|
3039
3054
|
};
|
|
3040
3055
|
}
|
|
3041
3056
|
|
|
3042
|
-
/* Main.
|
|
3043
|
-
function
|
|
3057
|
+
/* Main.9012:1302:trivialCompletions */
|
|
3058
|
+
function Main_n__9012_1302_trivialCompletions($0, $1, $2, $3, $4) {
|
|
3044
3059
|
return ShellCompletion_Common_cmdOpts($3, $2, $1, $0);
|
|
3045
3060
|
}
|
|
3046
3061
|
|
|
3047
|
-
/* Main.
|
|
3048
|
-
function
|
|
3062
|
+
/* Main.9423:1728:parsePg */
|
|
3063
|
+
function Main_n__9423_1728_parsePg($0, $1, $2, $3, $4, $5) {
|
|
3049
3064
|
return Data_String_parsePositive(csegen_2(), $5);
|
|
3050
3065
|
}
|
|
3051
3066
|
|
|
3052
|
-
/* Main.
|
|
3053
|
-
function
|
|
3067
|
+
/* Main.9423:1727:parseLim */
|
|
3068
|
+
function Main_n__9423_1727_parseLim($0, $1, $2, $3, $4) {
|
|
3054
3069
|
return Prelude_Interfaces_x3cx3dx3c(csegen_14(), x => Data_Fin_natToFin(x, 101n), $d => Data_String_parsePositive(csegen_2(), $d));
|
|
3055
3070
|
}
|
|
3056
3071
|
|
|
3057
|
-
/* Main.
|
|
3058
|
-
function
|
|
3072
|
+
/* Main.9012:1301:gitCompletions */
|
|
3073
|
+
function Main_n__9012_1301_gitCompletions($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
3059
3074
|
return ShellCompletion_Common_githubOpts($5, $6, $3, $2, $1, $0, $7);
|
|
3060
3075
|
}
|
|
3061
3076
|
|
|
3062
|
-
/* Main.
|
|
3063
|
-
function
|
|
3077
|
+
/* Main.9012:1300:ffiCompletions */
|
|
3078
|
+
function Main_n__9012_1300_ffiCompletions($0, $1, $2, $3, $4) {
|
|
3064
3079
|
return ShellCompletion_Common_ffiOpts(csegen_31()(), $3, $2, $1, $0);
|
|
3065
3080
|
}
|
|
3066
3081
|
|
|
3067
|
-
/* Main.
|
|
3068
|
-
function
|
|
3082
|
+
/* Main.9012:1299:completions */
|
|
3083
|
+
function Main_n__9012_1299_completions($0, $1, $2, $3, $4, $5) {
|
|
3069
3084
|
return $6 => {
|
|
3070
|
-
const $7 =
|
|
3085
|
+
const $7 = Main_n__9012_1302_trivialCompletions($0, $1, $2, $3, $4);
|
|
3071
3086
|
switch($7.h) {
|
|
3072
3087
|
case 0: /* nothing */ {
|
|
3073
3088
|
const $1e = $1f => $20 => $21 => {
|
|
@@ -3088,7 +3103,7 @@ function Main_n__9025_1299_completions($0, $1, $2, $3, $4, $5) {
|
|
|
3088
3103
|
case undefined: /* just */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29($1f.a1, $20, $21);
|
|
3089
3104
|
}
|
|
3090
3105
|
};
|
|
3091
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($10 => $11 => $12 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29(
|
|
3106
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($10 => $11 => $12 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29(Main_n__9012_1300_ffiCompletions($0, $1, $2, $3, $4), $10, $11, $12), $1e, $5, $6);
|
|
3092
3107
|
}
|
|
3093
3108
|
case undefined: /* just */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29($7.a1, $5, $6);
|
|
3094
3109
|
}
|
|
@@ -3121,8 +3136,8 @@ function Main_shouldUseColors($0) {
|
|
|
3121
3136
|
function Main_shellCompletion($0, $1, $2, $3, $4) {
|
|
3122
3137
|
const $6 = $7 => $8 => {
|
|
3123
3138
|
switch($1) {
|
|
3124
|
-
case 0: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c =>
|
|
3125
|
-
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($28 =>
|
|
3139
|
+
case 0: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c => Main_n__9012_1299_completions($4, $3, $2, $1, $0, $c), $15 => $16 => $17 => $18 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1b => Prelude_IO_prim__putStr(Data_String_fastUnlines($15), $1b), $16, $17, $18), $7, $8);
|
|
3140
|
+
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($28 => Main_n__9012_1299_completions($4, $3, $2, $1, $0, $28), $31 => $32 => $33 => $34 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($37 => Prelude_IO_prim__putStr(Data_String_Extra_join('~', csegen_66(), $31), $37), $32, $33, $34), $7, $8);
|
|
3126
3141
|
}
|
|
3127
3142
|
};
|
|
3128
3143
|
return Main_resolvex27x27($6);
|
|
@@ -3213,7 +3228,7 @@ function Main_handleConfiguredArgs($0, $1, $2) {
|
|
|
3213
3228
|
case 0: /* nothing */ return Data_Promise_reject('Either the GITHUB_PAT or GH_TOKEN environment variable or githubPAT config property must be set to a personal access token.', $4b, $4c);
|
|
3214
3229
|
}
|
|
3215
3230
|
};
|
|
3216
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3b => $3c => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_x3cx7cx3e_Alternative_Maybe($1, () => Prelude_Types_map_Functor_Maybe($44 => $44, $0.
|
|
3231
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3b => $3c => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_x3cx7cx3e_Alternative_Maybe($1, () => Prelude_Types_map_Functor_Maybe($44 => $44, $0.a15)), $3b, $3c), $49, $14, $2d);
|
|
3217
3232
|
}
|
|
3218
3233
|
}
|
|
3219
3234
|
};
|
|
@@ -3226,7 +3241,7 @@ function Main_handleConfiguredArgs($0, $1, $2) {
|
|
|
3226
3241
|
case 0: /* nothing */ return Data_Promise_reject('Either the GITHUB_PAT or GH_TOKEN environment variable or githubPAT config property must be set to a personal access token.', $8a, $8b);
|
|
3227
3242
|
}
|
|
3228
3243
|
};
|
|
3229
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7a => $7b => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_x3cx7cx3e_Alternative_Maybe($1, () => Prelude_Types_map_Functor_Maybe($83 => $83, $0.
|
|
3244
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7a => $7b => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_x3cx7cx3e_Alternative_Maybe($1, () => Prelude_Types_map_Functor_Maybe($83 => $83, $0.a15)), $7a, $7b), $88, $14, $77);
|
|
3230
3245
|
};
|
|
3231
3246
|
}
|
|
3232
3247
|
}
|
|
@@ -3240,7 +3255,7 @@ function Main_handleConfiguredArgs($0, $1, $2) {
|
|
|
3240
3255
|
case 0: /* nothing */ return Data_Promise_reject('Either the GITHUB_PAT or GH_TOKEN environment variable or githubPAT config property must be set to a personal access token.', $ca, $cb);
|
|
3241
3256
|
}
|
|
3242
3257
|
};
|
|
3243
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ba => $bb => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_x3cx7cx3e_Alternative_Maybe($1, () => Prelude_Types_map_Functor_Maybe($c3 => $c3, $0.
|
|
3258
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ba => $bb => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_x3cx7cx3e_Alternative_Maybe($1, () => Prelude_Types_map_Functor_Maybe($c3 => $c3, $0.a15)), $ba, $bb), $c8, $b6, $b7);
|
|
3244
3259
|
};
|
|
3245
3260
|
}
|
|
3246
3261
|
}
|
|
@@ -3253,7 +3268,7 @@ function Main_handleConfiguredArgs($0, $1, $2) {
|
|
|
3253
3268
|
case 0: /* nothing */ return Data_Promise_reject('Either the GITHUB_PAT or GH_TOKEN environment variable or githubPAT config property must be set to a personal access token.', $10a, $10b);
|
|
3254
3269
|
}
|
|
3255
3270
|
};
|
|
3256
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($fa => $fb => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_x3cx7cx3e_Alternative_Maybe($1, () => Prelude_Types_map_Functor_Maybe($103 => $103, $0.
|
|
3271
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($fa => $fb => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_x3cx7cx3e_Alternative_Maybe($1, () => Prelude_Types_map_Functor_Maybe($103 => $103, $0.a15)), $fa, $fb), $108, $f6, $f7);
|
|
3257
3272
|
};
|
|
3258
3273
|
}
|
|
3259
3274
|
}
|
|
@@ -3266,7 +3281,7 @@ function Main_handleConfiguredArgs($0, $1, $2) {
|
|
|
3266
3281
|
case 0: /* nothing */ return Data_Promise_reject('Either the GITHUB_PAT or GH_TOKEN environment variable or githubPAT config property must be set to a personal access token.', $14a, $14b);
|
|
3267
3282
|
}
|
|
3268
3283
|
};
|
|
3269
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($13a => $13b => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_x3cx7cx3e_Alternative_Maybe($1, () => Prelude_Types_map_Functor_Maybe($143 => $143, $0.
|
|
3284
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($13a => $13b => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_x3cx7cx3e_Alternative_Maybe($1, () => Prelude_Types_map_Functor_Maybe($143 => $143, $0.a15)), $13a, $13b), $148, $136, $137);
|
|
3270
3285
|
};
|
|
3271
3286
|
}
|
|
3272
3287
|
}
|
|
@@ -3340,7 +3355,7 @@ function Main_handleAuthenticatedArgs($0, $1, $2) {
|
|
|
3340
3355
|
}
|
|
3341
3356
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe($b2, filter => ({a1: {a1: filter, a2: {a1: $af.a1, a2: $af.a2}}}));
|
|
3342
3357
|
};
|
|
3343
|
-
const $91 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $99 => $9a => ({a1: $99, a2: $9a})},
|
|
3358
|
+
const $91 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $99 => $9a => ({a1: $99, a2: $9a})}, Main_n__9423_1727_parseLim($1, $2.a2.a2.a1, $2.a2.a2.a2.a1, $2.a2.a2.a2.a2.a1, $0)($2.a2.a2.a2.a1)), Main_n__9423_1728_parsePg($1, $2.a2.a2.a1, $2.a2.a2.a2.a1, $2.a2.a2.a2.a2.a1, $0, $2.a2.a2.a2.a2.a1)), $ae);
|
|
3344
3359
|
return $bf => {
|
|
3345
3360
|
switch($91.h) {
|
|
3346
3361
|
case undefined: /* just */ return $c1 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequestsJsonStr($1, $0.a2, $0.a3, $91.a1.a1, $91.a1.a2.a1, $91.a1.a2.a2), pullsJsonStr => $d0 => $d1 => $d2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d5 => Prelude_IO_prim__putStr(pullsJsonStr, $d5), $d0, $d1, $d2), $bf, $c1);
|
|
@@ -6093,7 +6108,7 @@ const Text_PrettyPrint_Prettyprinter_Symbols_lparen = __lazy(function () {
|
|
|
6093
6108
|
});
|
|
6094
6109
|
|
|
6095
6110
|
/* ShellCompletion.Util.case block in someWithPrefixOrNothing */
|
|
6096
|
-
function
|
|
6111
|
+
function ShellCompletion_Util_case__someWithPrefixOrNothing_2848($0, $1, $2, $3) {
|
|
6097
6112
|
switch($3.h) {
|
|
6098
6113
|
case 0: /* nil */ return {h: 0};
|
|
6099
6114
|
default: return {a1: $3};
|
|
@@ -6185,7 +6200,7 @@ function ShellCompletion_Util_stringify($0, $1) {
|
|
|
6185
6200
|
/* ShellCompletion.Util.someWithPrefixOrNothing : {auto s : CompletionStyle} ->
|
|
6186
6201
|
String -> List CompletionResult -> Maybe (List String) */
|
|
6187
6202
|
function ShellCompletion_Util_someWithPrefixOrNothing($0, $1, $2) {
|
|
6188
|
-
return
|
|
6203
|
+
return ShellCompletion_Util_case__someWithPrefixOrNothing_2848($0, $2, $1, ShellCompletion_Util_stringifyx27($0, Prelude_Types_List_filterAppend({h: 0}, $e => ShellCompletion_Util_isPrefixOf($0, $1, $e), $2)));
|
|
6189
6204
|
}
|
|
6190
6205
|
|
|
6191
6206
|
/* ShellCompletion.Util.someWithPrefix : {auto s : CompletionStyle} ->
|
|
@@ -6376,7 +6391,7 @@ function Data_Promise_bind($0, $1, $2, $3) {
|
|
|
6376
6391
|
}
|
|
6377
6392
|
|
|
6378
6393
|
/* ShellCompletion.Common.case block in describe,assigned */
|
|
6379
|
-
function
|
|
6394
|
+
function ShellCompletion_Common_case__describex2cassigned_14811($0, $1, $2, $3) {
|
|
6380
6395
|
switch($3.h) {
|
|
6381
6396
|
case 0: /* nothing */ return '';
|
|
6382
6397
|
case undefined: /* just */ {
|
|
@@ -6389,7 +6404,7 @@ function ShellCompletion_Common_case__describex2cassigned_14860($0, $1, $2, $3)
|
|
|
6389
6404
|
}
|
|
6390
6405
|
|
|
6391
6406
|
/* ShellCompletion.Common.case block in describe,openPrs */
|
|
6392
|
-
function
|
|
6407
|
+
function ShellCompletion_Common_case__describex2copenPrs_14733($0, $1, $2) {
|
|
6393
6408
|
switch($2.h) {
|
|
6394
6409
|
case undefined: /* just */ {
|
|
6395
6410
|
switch($2.a1) {
|
|
@@ -6408,49 +6423,49 @@ function ShellCompletion_Common_case__describex2copenPrs_14782($0, $1, $2) {
|
|
|
6408
6423
|
}
|
|
6409
6424
|
|
|
6410
6425
|
/* ShellCompletion.Common.case block in optsForRequestCmd,slugsOrLoginsOrLabels */
|
|
6411
|
-
function
|
|
6426
|
+
function ShellCompletion_Common_case__optsForRequestCmdx2cslugsOrLoginsOrLabels_14173($0, $1, $2, $3) {
|
|
6412
6427
|
switch($3.h) {
|
|
6413
6428
|
case 1: /* :: */ {
|
|
6414
6429
|
switch($3.a1) {
|
|
6415
|
-
case '+': return Prelude_Types_List_mapAppend({h: 0}, $9 => ('+'+$9), $2.
|
|
6430
|
+
case '+': return Prelude_Types_List_mapAppend({h: 0}, $9 => ('+'+$9), $2.a13);
|
|
6416
6431
|
default: {
|
|
6417
6432
|
switch(Util_String_isHashPrefix($0)) {
|
|
6418
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_155(), $2.
|
|
6419
|
-
case 0: return $2.
|
|
6433
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_155(), $2.a12);
|
|
6434
|
+
case 0: return $2.a11;
|
|
6420
6435
|
}
|
|
6421
6436
|
}
|
|
6422
6437
|
}
|
|
6423
6438
|
}
|
|
6424
6439
|
default: {
|
|
6425
6440
|
switch(Util_String_isHashPrefix($0)) {
|
|
6426
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_155(), $2.
|
|
6427
|
-
case 0: return $2.
|
|
6441
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_155(), $2.a12);
|
|
6442
|
+
case 0: return $2.a11;
|
|
6428
6443
|
}
|
|
6429
6444
|
}
|
|
6430
6445
|
}
|
|
6431
6446
|
}
|
|
6432
6447
|
|
|
6433
|
-
/* ShellCompletion.Common.
|
|
6434
|
-
function
|
|
6435
|
-
return
|
|
6448
|
+
/* ShellCompletion.Common.6611:14167:slugsOrLoginsOrLabels */
|
|
6449
|
+
function ShellCompletion_Common_n__6611_14167_slugsOrLoginsOrLabels($0, $1, $2) {
|
|
6450
|
+
return ShellCompletion_Common_case__optsForRequestCmdx2cslugsOrLoginsOrLabels_14173($0, $1, $2, Data_String_asList($0));
|
|
6436
6451
|
}
|
|
6437
6452
|
|
|
6438
|
-
/* ShellCompletion.Common.
|
|
6439
|
-
function
|
|
6440
|
-
return
|
|
6453
|
+
/* ShellCompletion.Common.7167:14727:openPrs */
|
|
6454
|
+
function ShellCompletion_Common_n__7167_14727_openPrs($0, $1) {
|
|
6455
|
+
return ShellCompletion_Common_case__describex2copenPrs_14733($0, $1, $0.a7);
|
|
6441
6456
|
}
|
|
6442
6457
|
|
|
6443
|
-
/* ShellCompletion.Common.
|
|
6444
|
-
function
|
|
6458
|
+
/* ShellCompletion.Common.7167:14726:assigned */
|
|
6459
|
+
function ShellCompletion_Common_n__7167_14726_assigned($0, $1, $2) {
|
|
6445
6460
|
switch($2.h) {
|
|
6446
6461
|
case 0: /* nothing */ return '';
|
|
6447
|
-
case undefined: /* just */ return
|
|
6462
|
+
case undefined: /* just */ return ShellCompletion_Common_case__describex2cassigned_14811($0, $1, $2.a1, $0.a6);
|
|
6448
6463
|
}
|
|
6449
6464
|
}
|
|
6450
6465
|
|
|
6451
6466
|
/* ShellCompletion.Common.optsForRequestCmd : Config => CompletionStyle -> String -> List String */
|
|
6452
6467
|
function ShellCompletion_Common_optsForRequestCmd($0, $1, $2) {
|
|
6453
|
-
return Prelude_Types_List_tailRecAppend(ShellCompletion_Util_withPrefix($1, $2, ShellCompletion_Common_allRequestCmdOpts($1)),
|
|
6468
|
+
return Prelude_Types_List_tailRecAppend(ShellCompletion_Util_withPrefix($1, $2, ShellCompletion_Common_allRequestCmdOpts($1)), ShellCompletion_Common_n__6611_14167_slugsOrLoginsOrLabels($2, $1, $0));
|
|
6454
6469
|
}
|
|
6455
6470
|
|
|
6456
6471
|
/* ShellCompletion.Common.optsForPrIntoOption : HasIO io => String -> io (Maybe (List String)) */
|
|
@@ -6487,8 +6502,8 @@ function ShellCompletion_Common_githubOpts($0, $1, $2, $3, $4, $5, $6) {
|
|
|
6487
6502
|
const $12 = issues => {
|
|
6488
6503
|
const $13 = ShellCompletion_Util_unhashify($4);
|
|
6489
6504
|
const $16 = $17 => ShellCompletion_Util_stringify($2, Data_CompletionStyle_completionResult($2, $17));
|
|
6490
|
-
const $1e = $1f => $20 => Prelude_Basics_on($23 => $24 => ShellCompletion_Common_compareIssues($0.
|
|
6491
|
-
const $30 = $31 => ShellCompletion_Common_describe($0.
|
|
6505
|
+
const $1e = $1f => $20 => Prelude_Basics_on($23 => $24 => ShellCompletion_Common_compareIssues($0.a16, $23, $24), $2b => Builtin_snd($2b), $1f, $20);
|
|
6506
|
+
const $30 = $31 => ShellCompletion_Common_describe($0.a16, $31);
|
|
6492
6507
|
const $36 = Prelude_Types_List_mapMaybeAppend({h: 0}, i => Prelude_Types_map_Functor_Maybe($3c => ({a1: $3c, a2: i}), ShellCompletion_Common_hashifyIfPrefix($13, i.a1)), issues);
|
|
6493
6508
|
return $45 => $46 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_List_mapAppend({h: 0}, $4c => $16({a1: $4c.a1, a2: $30($4c.a2)}), Data_List_sortBy($1e, $36)), $45, $46);
|
|
6494
6509
|
};
|
|
@@ -6516,7 +6531,7 @@ function ShellCompletion_Common_ffiOpts($0, $1, $2, $3, $4) {
|
|
|
6516
6531
|
|
|
6517
6532
|
/* ShellCompletion.Common.describe : Maybe String -> Issue -> String */
|
|
6518
6533
|
function ShellCompletion_Common_describe($0, $1) {
|
|
6519
|
-
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $7 => $7, {a1:
|
|
6534
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $7 => $7, {a1: ShellCompletion_Common_n__7167_14726_assigned($1, $0, $0), a2: {a1: ShellCompletion_Common_n__7167_14727_openPrs($1, $0), a2: {a1: $1.a2, a2: {h: 0}}}});
|
|
6520
6535
|
}
|
|
6521
6536
|
|
|
6522
6537
|
/* ShellCompletion.Common.configuredOpts : Config => CompletionStyle -> String -> String -> String -> List String */
|
|
@@ -6525,11 +6540,11 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6525
6540
|
case 'label': {
|
|
6526
6541
|
switch($3) {
|
|
6527
6542
|
case '--': {
|
|
6528
|
-
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $14 => $14, {a1: $0.a3, a2: {a1: ' label', a2: {h: 0}}}), ShellCompletion_Util_slugify($b)), $0.
|
|
6543
|
+
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $14 => $14, {a1: $0.a3, a2: {a1: ' label', a2: {h: 0}}}), ShellCompletion_Util_slugify($b)), $0.a12);
|
|
6529
6544
|
return Prelude_Types_List_mapAppend({h: 0}, $23 => Data_CompletionStyle_name($1, $23), $7);
|
|
6530
6545
|
}
|
|
6531
6546
|
default: {
|
|
6532
|
-
const $28 = Prelude_Types_List_mapAppend({h: 0}, $2c => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $35 => $35, {a1: $0.a3, a2: {a1: ' label', a2: {h: 0}}}), ShellCompletion_Util_slugify($2c)), $0.
|
|
6547
|
+
const $28 = Prelude_Types_List_mapAppend({h: 0}, $2c => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $35 => $35, {a1: $0.a3, a2: {a1: ' label', a2: {h: 0}}}), ShellCompletion_Util_slugify($2c)), $0.a12);
|
|
6533
6548
|
const $41 = Prelude_Types_List_filterAppend({h: 0}, $45 => ShellCompletion_Util_isPrefixOf($1, $3, $45), $28);
|
|
6534
6549
|
return Prelude_Types_List_mapAppend({h: 0}, $4e => Data_CompletionStyle_name($1, $4e), $41);
|
|
6535
6550
|
}
|
|
@@ -6540,13 +6555,13 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6540
6555
|
case '--': {
|
|
6541
6556
|
switch($4) {
|
|
6542
6557
|
case 'list': {
|
|
6543
|
-
const $55 = Prelude_Types_List_mapAppend({h: 0}, $59 => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $62 => $62, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $59), $0.
|
|
6558
|
+
const $55 = Prelude_Types_List_mapAppend({h: 0}, $59 => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $62 => $62, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $59), $0.a11);
|
|
6544
6559
|
return Prelude_Types_List_mapAppend({h: 0}, $6f => Data_CompletionStyle_name($1, $6f), $55);
|
|
6545
6560
|
}
|
|
6546
6561
|
default: {
|
|
6547
6562
|
switch($4) {
|
|
6548
6563
|
case 'list': {
|
|
6549
|
-
const $75 = Prelude_Types_List_mapAppend({h: 0}, $79 => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $82 => $82, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $79), $0.
|
|
6564
|
+
const $75 = Prelude_Types_List_mapAppend({h: 0}, $79 => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $82 => $82, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $79), $0.a11);
|
|
6550
6565
|
const $8c = Prelude_Types_List_filterAppend({h: 0}, $90 => ShellCompletion_Util_isPrefixOf($1, $3, $90), $75);
|
|
6551
6566
|
return Prelude_Types_List_mapAppend({h: 0}, $99 => Data_CompletionStyle_name($1, $99), $8c);
|
|
6552
6567
|
}
|
|
@@ -6563,7 +6578,7 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6563
6578
|
default: {
|
|
6564
6579
|
switch($4) {
|
|
6565
6580
|
case 'list': {
|
|
6566
|
-
const $a0 = Prelude_Types_List_mapAppend({h: 0}, $a4 => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $ad => $ad, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $a4), $0.
|
|
6581
|
+
const $a0 = Prelude_Types_List_mapAppend({h: 0}, $a4 => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $ad => $ad, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $a4), $0.a11);
|
|
6567
6582
|
const $b7 = Prelude_Types_List_filterAppend({h: 0}, $bb => ShellCompletion_Util_isPrefixOf($1, $3, $bb), $a0);
|
|
6568
6583
|
return Prelude_Types_List_mapAppend({h: 0}, $c4 => Data_CompletionStyle_name($1, $c4), $b7);
|
|
6569
6584
|
}
|
|
@@ -6581,11 +6596,11 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6581
6596
|
switch($3) {
|
|
6582
6597
|
case '--': {
|
|
6583
6598
|
switch($4) {
|
|
6584
|
-
case 'graph': return {a1: '--completed', a2: $0.
|
|
6585
|
-
case '--completed': return $0.
|
|
6599
|
+
case 'graph': return {a1: '--completed', a2: $0.a11};
|
|
6600
|
+
case '--completed': return $0.a11;
|
|
6586
6601
|
default: {
|
|
6587
6602
|
switch(Data_Maybe_isJust(Data_List_find($d5 => Prelude_EqOrd_x3dx3d_Eq_String($d5, $4), csegen_156()))) {
|
|
6588
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0}, $de => Data_CompletionStyle_name($1, $de), Prelude_Types_List_filterAppend({h: 0}, $e6 => ShellCompletion_Util_isPrefixOf($1, $3, $e6), Prelude_Types_List_mapAppend({h: 0}, $ef => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $f8 => $f8, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $ef), $0.
|
|
6603
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, $de => Data_CompletionStyle_name($1, $de), Prelude_Types_List_filterAppend({h: 0}, $e6 => ShellCompletion_Util_isPrefixOf($1, $3, $e6), Prelude_Types_List_mapAppend({h: 0}, $ef => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $f8 => $f8, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $ef), $0.a11)));
|
|
6589
6604
|
case 0: return {h: 0};
|
|
6590
6605
|
}
|
|
6591
6606
|
}
|
|
@@ -6593,7 +6608,7 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6593
6608
|
}
|
|
6594
6609
|
default: {
|
|
6595
6610
|
switch(Data_Maybe_isJust(Data_List_find($107 => Prelude_EqOrd_x3dx3d_Eq_String($107, $4), csegen_156()))) {
|
|
6596
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0}, $110 => Data_CompletionStyle_name($1, $110), Prelude_Types_List_filterAppend({h: 0}, $118 => ShellCompletion_Util_isPrefixOf($1, $3, $118), Prelude_Types_List_mapAppend({h: 0}, $121 => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $12a => $12a, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $121), $0.
|
|
6611
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, $110 => Data_CompletionStyle_name($1, $110), Prelude_Types_List_filterAppend({h: 0}, $118 => ShellCompletion_Util_isPrefixOf($1, $3, $118), Prelude_Types_List_mapAppend({h: 0}, $121 => Data_CompletionStyle_describe($1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $12a => $12a, {a1: $0.a3, a2: {a1: ' team', a2: {h: 0}}}), $121), $0.a11)));
|
|
6597
6612
|
case 0: return {h: 0};
|
|
6598
6613
|
}
|
|
6599
6614
|
}
|
|
@@ -6601,7 +6616,7 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6601
6616
|
}
|
|
6602
6617
|
case 'pr': {
|
|
6603
6618
|
switch(Util_String_isHashPrefix($3)) {
|
|
6604
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_155(), $0.
|
|
6619
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_155(), $0.a12);
|
|
6605
6620
|
case 0: return {h: 0};
|
|
6606
6621
|
}
|
|
6607
6622
|
}
|
|
@@ -6609,8 +6624,8 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6609
6624
|
switch($3) {
|
|
6610
6625
|
case '--': {
|
|
6611
6626
|
switch($4) {
|
|
6612
|
-
case 'rq': return {a1: '--dry', a2: $0.
|
|
6613
|
-
default: return $0.
|
|
6627
|
+
case 'rq': return {a1: '--dry', a2: $0.a11};
|
|
6628
|
+
default: return $0.a11;
|
|
6614
6629
|
}
|
|
6615
6630
|
}
|
|
6616
6631
|
default: return ShellCompletion_Common_optsForRequestCmd($0, $1, $3);
|
|
@@ -6620,8 +6635,8 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6620
6635
|
switch($3) {
|
|
6621
6636
|
case '--': {
|
|
6622
6637
|
switch($4) {
|
|
6623
|
-
case 'request': return {a1: '--dry', a2: $0.
|
|
6624
|
-
default: return $0.
|
|
6638
|
+
case 'request': return {a1: '--dry', a2: $0.a11};
|
|
6639
|
+
default: return $0.a11;
|
|
6625
6640
|
}
|
|
6626
6641
|
}
|
|
6627
6642
|
default: return ShellCompletion_Common_optsForRequestCmd($0, $1, $3);
|
|
@@ -6835,48 +6850,64 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
6835
6850
|
default: {
|
|
6836
6851
|
switch($3) {
|
|
6837
6852
|
case '--into': return {h: 0};
|
|
6838
|
-
case '--ready': return ShellCompletion_Util_someFrom($0,
|
|
6853
|
+
case '--ready': return ShellCompletion_Util_someFrom($0, csegen_157(), ShellCompletion_Common_allPrCmdOpts($0));
|
|
6839
6854
|
case 'pr': {
|
|
6840
|
-
let $
|
|
6855
|
+
let $70;
|
|
6841
6856
|
switch(Util_String_isHashPrefix($2)) {
|
|
6842
6857
|
case 1: {
|
|
6843
|
-
$
|
|
6858
|
+
$70 = () => ({h: 0});
|
|
6844
6859
|
break;
|
|
6845
6860
|
}
|
|
6846
6861
|
case 0: {
|
|
6847
|
-
$
|
|
6862
|
+
$70 = () => ({a1: {h: 0}});
|
|
6848
6863
|
break;
|
|
6849
6864
|
}
|
|
6850
6865
|
}
|
|
6851
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $
|
|
6866
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $70);
|
|
6852
6867
|
}
|
|
6853
6868
|
case '--draft': {
|
|
6854
|
-
|
|
6869
|
+
const $7d = c => {
|
|
6870
|
+
switch(ShellCompletion_Util_matches($0, '--into', c)) {
|
|
6871
|
+
case 1: return 1;
|
|
6872
|
+
case 0: return ShellCompletion_Util_matches($0, '--print-tree', c);
|
|
6873
|
+
}
|
|
6874
|
+
};
|
|
6875
|
+
const $7a = Prelude_Types_List_filterAppend({h: 0}, $7d, ShellCompletion_Common_allPrCmdOpts($0));
|
|
6876
|
+
const $76 = ShellCompletion_Util_someWithPrefixOrNothing($0, $2, $7a);
|
|
6877
|
+
let $8a;
|
|
6855
6878
|
switch(Util_String_isHashPrefix($2)) {
|
|
6856
6879
|
case 1: {
|
|
6857
|
-
$
|
|
6880
|
+
$8a = () => ({h: 0});
|
|
6858
6881
|
break;
|
|
6859
6882
|
}
|
|
6860
6883
|
case 0: {
|
|
6861
|
-
$
|
|
6884
|
+
$8a = () => ({a1: {h: 0}});
|
|
6862
6885
|
break;
|
|
6863
6886
|
}
|
|
6864
6887
|
}
|
|
6865
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
6888
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($76, $8a);
|
|
6866
6889
|
}
|
|
6867
6890
|
default: {
|
|
6868
|
-
|
|
6891
|
+
const $97 = c => {
|
|
6892
|
+
switch(ShellCompletion_Util_matches($0, '--draft', c)) {
|
|
6893
|
+
case 1: return 1;
|
|
6894
|
+
case 0: return ShellCompletion_Util_matches($0, '--print-tree', c);
|
|
6895
|
+
}
|
|
6896
|
+
};
|
|
6897
|
+
const $94 = Prelude_Types_List_filterAppend({h: 0}, $97, ShellCompletion_Common_allPrCmdOpts($0));
|
|
6898
|
+
const $90 = ShellCompletion_Util_someWithPrefixOrNothing($0, $2, $94);
|
|
6899
|
+
let $a4;
|
|
6869
6900
|
switch(Util_String_isHashPrefix($2)) {
|
|
6870
6901
|
case 1: {
|
|
6871
|
-
$
|
|
6902
|
+
$a4 = () => ({h: 0});
|
|
6872
6903
|
break;
|
|
6873
6904
|
}
|
|
6874
6905
|
case 0: {
|
|
6875
|
-
$
|
|
6906
|
+
$a4 = () => ({a1: {h: 0}});
|
|
6876
6907
|
break;
|
|
6877
6908
|
}
|
|
6878
6909
|
}
|
|
6879
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
6910
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($90, $a4);
|
|
6880
6911
|
}
|
|
6881
6912
|
}
|
|
6882
6913
|
}
|
|
@@ -6888,48 +6919,64 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
6888
6919
|
default: {
|
|
6889
6920
|
switch($3) {
|
|
6890
6921
|
case '--into': return {h: 0};
|
|
6891
|
-
case '--ready': return ShellCompletion_Util_someFrom($0,
|
|
6922
|
+
case '--ready': return ShellCompletion_Util_someFrom($0, csegen_157(), ShellCompletion_Common_allPrCmdOpts($0));
|
|
6892
6923
|
case 'pr': {
|
|
6893
|
-
let $
|
|
6924
|
+
let $c0;
|
|
6894
6925
|
switch(Util_String_isHashPrefix($2)) {
|
|
6895
6926
|
case 1: {
|
|
6896
|
-
$
|
|
6927
|
+
$c0 = () => ({h: 0});
|
|
6897
6928
|
break;
|
|
6898
6929
|
}
|
|
6899
6930
|
case 0: {
|
|
6900
|
-
$
|
|
6931
|
+
$c0 = () => ({a1: {h: 0}});
|
|
6901
6932
|
break;
|
|
6902
6933
|
}
|
|
6903
6934
|
}
|
|
6904
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $
|
|
6935
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $c0);
|
|
6905
6936
|
}
|
|
6906
6937
|
case '--draft': {
|
|
6907
|
-
|
|
6938
|
+
const $cd = c => {
|
|
6939
|
+
switch(ShellCompletion_Util_matches($0, '--into', c)) {
|
|
6940
|
+
case 1: return 1;
|
|
6941
|
+
case 0: return ShellCompletion_Util_matches($0, '--print-tree', c);
|
|
6942
|
+
}
|
|
6943
|
+
};
|
|
6944
|
+
const $ca = Prelude_Types_List_filterAppend({h: 0}, $cd, ShellCompletion_Common_allPrCmdOpts($0));
|
|
6945
|
+
const $c6 = ShellCompletion_Util_someWithPrefixOrNothing($0, $2, $ca);
|
|
6946
|
+
let $da;
|
|
6908
6947
|
switch(Util_String_isHashPrefix($2)) {
|
|
6909
6948
|
case 1: {
|
|
6910
|
-
$
|
|
6949
|
+
$da = () => ({h: 0});
|
|
6911
6950
|
break;
|
|
6912
6951
|
}
|
|
6913
6952
|
case 0: {
|
|
6914
|
-
$
|
|
6953
|
+
$da = () => ({a1: {h: 0}});
|
|
6915
6954
|
break;
|
|
6916
6955
|
}
|
|
6917
6956
|
}
|
|
6918
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
6957
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($c6, $da);
|
|
6919
6958
|
}
|
|
6920
6959
|
default: {
|
|
6921
|
-
|
|
6960
|
+
const $e7 = c => {
|
|
6961
|
+
switch(ShellCompletion_Util_matches($0, '--draft', c)) {
|
|
6962
|
+
case 1: return 1;
|
|
6963
|
+
case 0: return ShellCompletion_Util_matches($0, '--print-tree', c);
|
|
6964
|
+
}
|
|
6965
|
+
};
|
|
6966
|
+
const $e4 = Prelude_Types_List_filterAppend({h: 0}, $e7, ShellCompletion_Common_allPrCmdOpts($0));
|
|
6967
|
+
const $e0 = ShellCompletion_Util_someWithPrefixOrNothing($0, $2, $e4);
|
|
6968
|
+
let $f4;
|
|
6922
6969
|
switch(Util_String_isHashPrefix($2)) {
|
|
6923
6970
|
case 1: {
|
|
6924
|
-
$
|
|
6971
|
+
$f4 = () => ({h: 0});
|
|
6925
6972
|
break;
|
|
6926
6973
|
}
|
|
6927
6974
|
case 0: {
|
|
6928
|
-
$
|
|
6975
|
+
$f4 = () => ({a1: {h: 0}});
|
|
6929
6976
|
break;
|
|
6930
6977
|
}
|
|
6931
6978
|
}
|
|
6932
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
6979
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($e0, $f4);
|
|
6933
6980
|
}
|
|
6934
6981
|
}
|
|
6935
6982
|
}
|
|
@@ -6938,48 +6985,64 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
6938
6985
|
default: {
|
|
6939
6986
|
switch($3) {
|
|
6940
6987
|
case '--into': return {h: 0};
|
|
6941
|
-
case '--ready': return ShellCompletion_Util_someFrom($0,
|
|
6988
|
+
case '--ready': return ShellCompletion_Util_someFrom($0, csegen_157(), ShellCompletion_Common_allPrCmdOpts($0));
|
|
6942
6989
|
case 'pr': {
|
|
6943
|
-
let $
|
|
6990
|
+
let $109;
|
|
6944
6991
|
switch(Util_String_isHashPrefix($2)) {
|
|
6945
6992
|
case 1: {
|
|
6946
|
-
$
|
|
6993
|
+
$109 = () => ({h: 0});
|
|
6947
6994
|
break;
|
|
6948
6995
|
}
|
|
6949
6996
|
case 0: {
|
|
6950
|
-
$
|
|
6997
|
+
$109 = () => ({a1: {h: 0}});
|
|
6951
6998
|
break;
|
|
6952
6999
|
}
|
|
6953
7000
|
}
|
|
6954
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $
|
|
7001
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $109);
|
|
6955
7002
|
}
|
|
6956
7003
|
case '--draft': {
|
|
6957
|
-
|
|
7004
|
+
const $116 = c => {
|
|
7005
|
+
switch(ShellCompletion_Util_matches($0, '--into', c)) {
|
|
7006
|
+
case 1: return 1;
|
|
7007
|
+
case 0: return ShellCompletion_Util_matches($0, '--print-tree', c);
|
|
7008
|
+
}
|
|
7009
|
+
};
|
|
7010
|
+
const $113 = Prelude_Types_List_filterAppend({h: 0}, $116, ShellCompletion_Common_allPrCmdOpts($0));
|
|
7011
|
+
const $10f = ShellCompletion_Util_someWithPrefixOrNothing($0, $2, $113);
|
|
7012
|
+
let $123;
|
|
6958
7013
|
switch(Util_String_isHashPrefix($2)) {
|
|
6959
7014
|
case 1: {
|
|
6960
|
-
$
|
|
7015
|
+
$123 = () => ({h: 0});
|
|
6961
7016
|
break;
|
|
6962
7017
|
}
|
|
6963
7018
|
case 0: {
|
|
6964
|
-
$
|
|
7019
|
+
$123 = () => ({a1: {h: 0}});
|
|
6965
7020
|
break;
|
|
6966
7021
|
}
|
|
6967
7022
|
}
|
|
6968
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
7023
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($10f, $123);
|
|
6969
7024
|
}
|
|
6970
7025
|
default: {
|
|
6971
|
-
|
|
7026
|
+
const $130 = c => {
|
|
7027
|
+
switch(ShellCompletion_Util_matches($0, '--draft', c)) {
|
|
7028
|
+
case 1: return 1;
|
|
7029
|
+
case 0: return ShellCompletion_Util_matches($0, '--print-tree', c);
|
|
7030
|
+
}
|
|
7031
|
+
};
|
|
7032
|
+
const $12d = Prelude_Types_List_filterAppend({h: 0}, $130, ShellCompletion_Common_allPrCmdOpts($0));
|
|
7033
|
+
const $129 = ShellCompletion_Util_someWithPrefixOrNothing($0, $2, $12d);
|
|
7034
|
+
let $13d;
|
|
6972
7035
|
switch(Util_String_isHashPrefix($2)) {
|
|
6973
7036
|
case 1: {
|
|
6974
|
-
$
|
|
7037
|
+
$13d = () => ({h: 0});
|
|
6975
7038
|
break;
|
|
6976
7039
|
}
|
|
6977
7040
|
case 0: {
|
|
6978
|
-
$
|
|
7041
|
+
$13d = () => ({a1: {h: 0}});
|
|
6979
7042
|
break;
|
|
6980
7043
|
}
|
|
6981
7044
|
}
|
|
6982
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
7045
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($129, $13d);
|
|
6983
7046
|
}
|
|
6984
7047
|
}
|
|
6985
7048
|
}
|
|
@@ -7112,48 +7175,64 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
7112
7175
|
default: {
|
|
7113
7176
|
switch($3) {
|
|
7114
7177
|
case '--into': return {h: 0};
|
|
7115
|
-
case '--ready': return ShellCompletion_Util_someFrom($0,
|
|
7178
|
+
case '--ready': return ShellCompletion_Util_someFrom($0, csegen_157(), ShellCompletion_Common_allPrCmdOpts($0));
|
|
7116
7179
|
case 'pr': {
|
|
7117
|
-
let $
|
|
7180
|
+
let $1d6;
|
|
7118
7181
|
switch(Util_String_isHashPrefix($2)) {
|
|
7119
7182
|
case 1: {
|
|
7120
|
-
$
|
|
7183
|
+
$1d6 = () => ({h: 0});
|
|
7121
7184
|
break;
|
|
7122
7185
|
}
|
|
7123
7186
|
case 0: {
|
|
7124
|
-
$
|
|
7187
|
+
$1d6 = () => ({a1: {h: 0}});
|
|
7125
7188
|
break;
|
|
7126
7189
|
}
|
|
7127
7190
|
}
|
|
7128
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $
|
|
7191
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $1d6);
|
|
7129
7192
|
}
|
|
7130
7193
|
case '--draft': {
|
|
7131
|
-
|
|
7194
|
+
const $1e3 = c => {
|
|
7195
|
+
switch(ShellCompletion_Util_matches($0, '--into', c)) {
|
|
7196
|
+
case 1: return 1;
|
|
7197
|
+
case 0: return ShellCompletion_Util_matches($0, '--print-tree', c);
|
|
7198
|
+
}
|
|
7199
|
+
};
|
|
7200
|
+
const $1e0 = Prelude_Types_List_filterAppend({h: 0}, $1e3, ShellCompletion_Common_allPrCmdOpts($0));
|
|
7201
|
+
const $1dc = ShellCompletion_Util_someWithPrefixOrNothing($0, $2, $1e0);
|
|
7202
|
+
let $1f0;
|
|
7132
7203
|
switch(Util_String_isHashPrefix($2)) {
|
|
7133
7204
|
case 1: {
|
|
7134
|
-
$
|
|
7205
|
+
$1f0 = () => ({h: 0});
|
|
7135
7206
|
break;
|
|
7136
7207
|
}
|
|
7137
7208
|
case 0: {
|
|
7138
|
-
$
|
|
7209
|
+
$1f0 = () => ({a1: {h: 0}});
|
|
7139
7210
|
break;
|
|
7140
7211
|
}
|
|
7141
7212
|
}
|
|
7142
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
7213
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($1dc, $1f0);
|
|
7143
7214
|
}
|
|
7144
7215
|
default: {
|
|
7145
|
-
|
|
7216
|
+
const $1fd = c => {
|
|
7217
|
+
switch(ShellCompletion_Util_matches($0, '--draft', c)) {
|
|
7218
|
+
case 1: return 1;
|
|
7219
|
+
case 0: return ShellCompletion_Util_matches($0, '--print-tree', c);
|
|
7220
|
+
}
|
|
7221
|
+
};
|
|
7222
|
+
const $1fa = Prelude_Types_List_filterAppend({h: 0}, $1fd, ShellCompletion_Common_allPrCmdOpts($0));
|
|
7223
|
+
const $1f6 = ShellCompletion_Util_someWithPrefixOrNothing($0, $2, $1fa);
|
|
7224
|
+
let $20a;
|
|
7146
7225
|
switch(Util_String_isHashPrefix($2)) {
|
|
7147
7226
|
case 1: {
|
|
7148
|
-
$
|
|
7227
|
+
$20a = () => ({h: 0});
|
|
7149
7228
|
break;
|
|
7150
7229
|
}
|
|
7151
7230
|
case 0: {
|
|
7152
|
-
$
|
|
7231
|
+
$20a = () => ({a1: {h: 0}});
|
|
7153
7232
|
break;
|
|
7154
7233
|
}
|
|
7155
7234
|
}
|
|
7156
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
7235
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($1f6, $20a);
|
|
7157
7236
|
}
|
|
7158
7237
|
}
|
|
7159
7238
|
}
|
|
@@ -7165,48 +7244,64 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
7165
7244
|
default: {
|
|
7166
7245
|
switch($3) {
|
|
7167
7246
|
case '--into': return {h: 0};
|
|
7168
|
-
case '--ready': return ShellCompletion_Util_someFrom($0,
|
|
7247
|
+
case '--ready': return ShellCompletion_Util_someFrom($0, csegen_157(), ShellCompletion_Common_allPrCmdOpts($0));
|
|
7169
7248
|
case 'pr': {
|
|
7170
|
-
let $
|
|
7249
|
+
let $226;
|
|
7171
7250
|
switch(Util_String_isHashPrefix($2)) {
|
|
7172
7251
|
case 1: {
|
|
7173
|
-
$
|
|
7252
|
+
$226 = () => ({h: 0});
|
|
7174
7253
|
break;
|
|
7175
7254
|
}
|
|
7176
7255
|
case 0: {
|
|
7177
|
-
$
|
|
7256
|
+
$226 = () => ({a1: {h: 0}});
|
|
7178
7257
|
break;
|
|
7179
7258
|
}
|
|
7180
7259
|
}
|
|
7181
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $
|
|
7260
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $226);
|
|
7182
7261
|
}
|
|
7183
7262
|
case '--draft': {
|
|
7184
|
-
|
|
7263
|
+
const $233 = c => {
|
|
7264
|
+
switch(ShellCompletion_Util_matches($0, '--into', c)) {
|
|
7265
|
+
case 1: return 1;
|
|
7266
|
+
case 0: return ShellCompletion_Util_matches($0, '--print-tree', c);
|
|
7267
|
+
}
|
|
7268
|
+
};
|
|
7269
|
+
const $230 = Prelude_Types_List_filterAppend({h: 0}, $233, ShellCompletion_Common_allPrCmdOpts($0));
|
|
7270
|
+
const $22c = ShellCompletion_Util_someWithPrefixOrNothing($0, $2, $230);
|
|
7271
|
+
let $240;
|
|
7185
7272
|
switch(Util_String_isHashPrefix($2)) {
|
|
7186
7273
|
case 1: {
|
|
7187
|
-
$
|
|
7274
|
+
$240 = () => ({h: 0});
|
|
7188
7275
|
break;
|
|
7189
7276
|
}
|
|
7190
7277
|
case 0: {
|
|
7191
|
-
$
|
|
7278
|
+
$240 = () => ({a1: {h: 0}});
|
|
7192
7279
|
break;
|
|
7193
7280
|
}
|
|
7194
7281
|
}
|
|
7195
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
7282
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($22c, $240);
|
|
7196
7283
|
}
|
|
7197
7284
|
default: {
|
|
7198
|
-
|
|
7285
|
+
const $24d = c => {
|
|
7286
|
+
switch(ShellCompletion_Util_matches($0, '--draft', c)) {
|
|
7287
|
+
case 1: return 1;
|
|
7288
|
+
case 0: return ShellCompletion_Util_matches($0, '--print-tree', c);
|
|
7289
|
+
}
|
|
7290
|
+
};
|
|
7291
|
+
const $24a = Prelude_Types_List_filterAppend({h: 0}, $24d, ShellCompletion_Common_allPrCmdOpts($0));
|
|
7292
|
+
const $246 = ShellCompletion_Util_someWithPrefixOrNothing($0, $2, $24a);
|
|
7293
|
+
let $25a;
|
|
7199
7294
|
switch(Util_String_isHashPrefix($2)) {
|
|
7200
7295
|
case 1: {
|
|
7201
|
-
$
|
|
7296
|
+
$25a = () => ({h: 0});
|
|
7202
7297
|
break;
|
|
7203
7298
|
}
|
|
7204
7299
|
case 0: {
|
|
7205
|
-
$
|
|
7300
|
+
$25a = () => ({a1: {h: 0}});
|
|
7206
7301
|
break;
|
|
7207
7302
|
}
|
|
7208
7303
|
}
|
|
7209
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
7304
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($246, $25a);
|
|
7210
7305
|
}
|
|
7211
7306
|
}
|
|
7212
7307
|
}
|
|
@@ -7215,48 +7310,64 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
7215
7310
|
default: {
|
|
7216
7311
|
switch($3) {
|
|
7217
7312
|
case '--into': return {h: 0};
|
|
7218
|
-
case '--ready': return ShellCompletion_Util_someFrom($0,
|
|
7313
|
+
case '--ready': return ShellCompletion_Util_someFrom($0, csegen_157(), ShellCompletion_Common_allPrCmdOpts($0));
|
|
7219
7314
|
case 'pr': {
|
|
7220
|
-
let $
|
|
7315
|
+
let $26f;
|
|
7221
7316
|
switch(Util_String_isHashPrefix($2)) {
|
|
7222
7317
|
case 1: {
|
|
7223
|
-
$
|
|
7318
|
+
$26f = () => ({h: 0});
|
|
7224
7319
|
break;
|
|
7225
7320
|
}
|
|
7226
7321
|
case 0: {
|
|
7227
|
-
$
|
|
7322
|
+
$26f = () => ({a1: {h: 0}});
|
|
7228
7323
|
break;
|
|
7229
7324
|
}
|
|
7230
7325
|
}
|
|
7231
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $
|
|
7326
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $26f);
|
|
7232
7327
|
}
|
|
7233
7328
|
case '--draft': {
|
|
7234
|
-
|
|
7329
|
+
const $27c = c => {
|
|
7330
|
+
switch(ShellCompletion_Util_matches($0, '--into', c)) {
|
|
7331
|
+
case 1: return 1;
|
|
7332
|
+
case 0: return ShellCompletion_Util_matches($0, '--print-tree', c);
|
|
7333
|
+
}
|
|
7334
|
+
};
|
|
7335
|
+
const $279 = Prelude_Types_List_filterAppend({h: 0}, $27c, ShellCompletion_Common_allPrCmdOpts($0));
|
|
7336
|
+
const $275 = ShellCompletion_Util_someWithPrefixOrNothing($0, $2, $279);
|
|
7337
|
+
let $289;
|
|
7235
7338
|
switch(Util_String_isHashPrefix($2)) {
|
|
7236
7339
|
case 1: {
|
|
7237
|
-
$
|
|
7340
|
+
$289 = () => ({h: 0});
|
|
7238
7341
|
break;
|
|
7239
7342
|
}
|
|
7240
7343
|
case 0: {
|
|
7241
|
-
$
|
|
7344
|
+
$289 = () => ({a1: {h: 0}});
|
|
7242
7345
|
break;
|
|
7243
7346
|
}
|
|
7244
7347
|
}
|
|
7245
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
7348
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($275, $289);
|
|
7246
7349
|
}
|
|
7247
7350
|
default: {
|
|
7248
|
-
|
|
7351
|
+
const $296 = c => {
|
|
7352
|
+
switch(ShellCompletion_Util_matches($0, '--draft', c)) {
|
|
7353
|
+
case 1: return 1;
|
|
7354
|
+
case 0: return ShellCompletion_Util_matches($0, '--print-tree', c);
|
|
7355
|
+
}
|
|
7356
|
+
};
|
|
7357
|
+
const $293 = Prelude_Types_List_filterAppend({h: 0}, $296, ShellCompletion_Common_allPrCmdOpts($0));
|
|
7358
|
+
const $28f = ShellCompletion_Util_someWithPrefixOrNothing($0, $2, $293);
|
|
7359
|
+
let $2a3;
|
|
7249
7360
|
switch(Util_String_isHashPrefix($2)) {
|
|
7250
7361
|
case 1: {
|
|
7251
|
-
$
|
|
7362
|
+
$2a3 = () => ({h: 0});
|
|
7252
7363
|
break;
|
|
7253
7364
|
}
|
|
7254
7365
|
case 0: {
|
|
7255
|
-
$
|
|
7366
|
+
$2a3 = () => ({a1: {h: 0}});
|
|
7256
7367
|
break;
|
|
7257
7368
|
}
|
|
7258
7369
|
}
|
|
7259
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
7370
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($28f, $2a3);
|
|
7260
7371
|
}
|
|
7261
7372
|
}
|
|
7262
7373
|
}
|
|
@@ -7341,7 +7452,7 @@ function ShellCompletion_Common_allQuickCmdOpts($0) {
|
|
|
7341
7452
|
|
|
7342
7453
|
/* ShellCompletion.Common.allPrCmdOptsAndDescriptions : List (String, String) */
|
|
7343
7454
|
const ShellCompletion_Common_allPrCmdOptsAndDescriptions = __lazy(function () {
|
|
7344
|
-
return {a1: {a1: '--ready', a2: 'mark the new or existing PR as ready for review'}, a2: {a1: {a1: '--draft', a2: 'mark the new or existing PR as a draft'}, a2: {a1: {a1: '--into', a2: 'set the branch to merge your PR into'}, a2: {h: 0}}}};
|
|
7455
|
+
return {a1: {a1: '--ready', a2: 'mark the new or existing PR as ready for review'}, a2: {a1: {a1: '--draft', a2: 'mark the new or existing PR as a draft'}, a2: {a1: {a1: '--print-tree', a2: 'print a tree of PRs between the current branch and the main branch'}, a2: {a1: {a1: '--into', a2: 'set the branch to merge your PR into'}, a2: {h: 0}}}}};
|
|
7345
7456
|
});
|
|
7346
7457
|
|
|
7347
7458
|
/* ShellCompletion.Common.allPrCmdOpts : (s : CompletionStyle) -> List CompletionResult */
|
|
@@ -7446,8 +7557,8 @@ function System_Git_case__remoteTrackingBranch_12915($0, $1, $2) {
|
|
|
7446
7557
|
}
|
|
7447
7558
|
}
|
|
7448
7559
|
|
|
7449
|
-
/* System.Git.
|
|
7450
|
-
function
|
|
7560
|
+
/* System.Git.7535:12560:specialPrefix */
|
|
7561
|
+
function System_Git_n__7535_12560_specialPrefix($0) {
|
|
7451
7562
|
switch($0) {
|
|
7452
7563
|
case '*': return 1;
|
|
7453
7564
|
case '+': return 1;
|
|
@@ -7455,8 +7566,8 @@ function System_Git_n__7534_12560_specialPrefix($0) {
|
|
|
7455
7566
|
}
|
|
7456
7567
|
}
|
|
7457
7568
|
|
|
7458
|
-
/* System.Git.
|
|
7459
|
-
function
|
|
7569
|
+
/* System.Git.7402:12440:res */
|
|
7570
|
+
function System_Git_n__7402_12440_res($0, $1) {
|
|
7460
7571
|
const $2 = $0($1);
|
|
7461
7572
|
switch($2.a2.a2) {
|
|
7462
7573
|
case 0: return {h: 1 /* Right */, a1: $2.a1};
|
|
@@ -7516,12 +7627,12 @@ function System_Git_push($0, $1) {
|
|
|
7516
7627
|
|
|
7517
7628
|
/* System.Git.promise : IO (a, (String, Int)) -> Promise' a */
|
|
7518
7629
|
function System_Git_promise($0, $1, $2) {
|
|
7519
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($5 => $6 => $7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($a =>
|
|
7630
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($5 => $6 => $7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($a => System_Git_n__7402_12440_res($0, $a), $5, $6, $7), $12 => $13 => Data_Promise_either($12, $13), $1, $2);
|
|
7520
7631
|
}
|
|
7521
7632
|
|
|
7522
7633
|
/* System.Git.parseBranchList : String -> List String */
|
|
7523
7634
|
function System_Git_parseBranchList($0) {
|
|
7524
|
-
return Prelude_Types_List_mapAppend({h: 0}, $4 => Data_String_trim(System_Git_dropFirstIf($9 =>
|
|
7635
|
+
return Prelude_Types_List_mapAppend({h: 0}, $4 => Data_String_trim(System_Git_dropFirstIf($9 => System_Git_n__7535_12560_specialPrefix($9), $4)), Data_String_lines($0));
|
|
7525
7636
|
}
|
|
7526
7637
|
|
|
7527
7638
|
/* System.Git.listRemotes : Promise' (List String) */
|
|
@@ -7589,17 +7700,17 @@ function Util_System_runx27($0, $1) {
|
|
|
7589
7700
|
const $33 = $34 => {
|
|
7590
7701
|
switch($34.h) {
|
|
7591
7702
|
case 1: /* Right */ return $0.a1.a2(undefined)(undefined)(FFI_SystemUtil_pclosex27($0, $10.a1))(exitCode => $0.a1.a1.a2(undefined)({a1: $25.a1, a2: {a1: $34.a1, a2: exitCode}}));
|
|
7592
|
-
case 0: /* Left */ return $0.a1.a1.a2(undefined)(
|
|
7703
|
+
case 0: /* Left */ return $0.a1.a1.a2(undefined)(csegen_229());
|
|
7593
7704
|
}
|
|
7594
7705
|
};
|
|
7595
7706
|
return $0.a1.a2(undefined)(undefined)(System_File_ReadWrite_fRead($0, $15))($33);
|
|
7596
7707
|
}
|
|
7597
|
-
case 0: /* Left */ return $0.a1.a1.a2(undefined)(
|
|
7708
|
+
case 0: /* Left */ return $0.a1.a1.a2(undefined)(csegen_229());
|
|
7598
7709
|
}
|
|
7599
7710
|
};
|
|
7600
7711
|
return $0.a1.a2(undefined)(undefined)(System_File_ReadWrite_fRead($0, $12))($24);
|
|
7601
7712
|
}
|
|
7602
|
-
case 0: /* Left */ return $0.a1.a1.a2(undefined)(
|
|
7713
|
+
case 0: /* Left */ return $0.a1.a1.a2(undefined)(csegen_229());
|
|
7603
7714
|
}
|
|
7604
7715
|
};
|
|
7605
7716
|
return $0.a1.a2(undefined)(undefined)(FFI_SystemUtil_popenx27($0, $1, 0))($f);
|
|
@@ -7655,10 +7766,10 @@ function System_File_ReadWrite_readLinesOnto($0, $1, $2, $3, $4) {
|
|
|
7655
7766
|
switch($1f) {
|
|
7656
7767
|
case 0: {
|
|
7657
7768
|
switch($2) {
|
|
7658
|
-
case 0n: return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1,
|
|
7769
|
+
case 0n: return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, csegen_241(), csegen_262(), System_File_ReadWrite_fGetLine($0, $4), str => System_File_ReadWrite_readLinesOnto($0, {a1: str, a2: $1}, 0n, $3.a1(), $4));
|
|
7659
7770
|
default: {
|
|
7660
7771
|
const $37 = ($2-1n);
|
|
7661
|
-
return Prelude_Interfaces_x2ax3e({a1: b => a => func => $3d => Prelude_Interfaces_Functor_map_Functor_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1.a1,
|
|
7772
|
+
return Prelude_Interfaces_x2ax3e({a1: b => a => func => $3d => Prelude_Interfaces_Functor_map_Functor_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1.a1, csegen_232(), func)($3d), a2: a => $49 => Prelude_Interfaces_Applicative_pure_Applicative_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1, csegen_236(), $49), a3: b => a => $52 => $53 => Prelude_Interfaces_Applicative_x3cx2ax3e_Applicative_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1, csegen_236(), $52, $53)}, System_File_ReadWrite_fSeekLine($0, $4), System_File_ReadWrite_readLinesOnto($0, $1, $37, {a1: $3.a1}, $4));
|
|
7662
7773
|
}
|
|
7663
7774
|
}
|
|
7664
7775
|
}
|
|
@@ -7694,7 +7805,7 @@ function System_File_ReadWrite_getStringAndFree($0, $1, $2) {
|
|
|
7694
7805
|
const $16 = $17 => {
|
|
7695
7806
|
switch($17) {
|
|
7696
7807
|
case 1: return System_File_Error_returnError($0);
|
|
7697
|
-
case 0: return Prelude_Interfaces_Applicative_pure_Applicative_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1,
|
|
7808
|
+
case 0: return Prelude_Interfaces_Applicative_pure_Applicative_Composex28x28x2ex20x24fx29x20x24gx29($0.a1.a1, csegen_236(), '');
|
|
7698
7809
|
}
|
|
7699
7810
|
};
|
|
7700
7811
|
return $0.a1.a2(undefined)(undefined)(System_File_Error_fileError($0, $1))($16);
|
|
@@ -8173,38 +8284,38 @@ function FFI_promiseIO($0, $1, $2) {
|
|
|
8173
8284
|
return Data_Promise_promisify(ok => notOk => $0(res => ok(res))(err => notOk(err)), $1, $2);
|
|
8174
8285
|
}
|
|
8175
8286
|
|
|
8176
|
-
/* FFI.GitHub.
|
|
8177
|
-
function
|
|
8287
|
+
/* FFI.GitHub.6786:10099:unexpectedPayload */
|
|
8288
|
+
function FFI_GitHub_n__6786_10099_unexpectedPayload($0, $1) {
|
|
8178
8289
|
return FFI_GitHub_internalError(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9 => $9, {a1: 'Unexpected error JSON: ', a2: {a1: $0, a2: {h: 0}}}));
|
|
8179
8290
|
}
|
|
8180
8291
|
|
|
8181
|
-
/* FFI.GitHub.
|
|
8182
|
-
function
|
|
8292
|
+
/* FFI.GitHub.6786:10098:parse */
|
|
8293
|
+
function FFI_GitHub_n__6786_10098_parse($0, $1) {
|
|
8183
8294
|
switch($1.h) {
|
|
8184
8295
|
case 6: /* JObject */ return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'status', a2: {a1: 'error', a2: {h: 0}}}, $1.a1), $d => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($d.a1), s => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($d.a2.a1), e => ({h: 1 /* Right */, a1: {a1: FFI_GitHub_statusCode(s), a2: e}}))));
|
|
8185
8296
|
default: return {h: 0 /* Left */, a1: 'Expected an Object containing error and status keys'};
|
|
8186
8297
|
}
|
|
8187
8298
|
}
|
|
8188
8299
|
|
|
8189
|
-
/* FFI.GitHub.
|
|
8190
|
-
function
|
|
8300
|
+
/* FFI.GitHub.8353:11712:errString */
|
|
8301
|
+
function FFI_GitHub_n__8353_11712_errString($0, $1) {
|
|
8191
8302
|
switch($1.h) {
|
|
8192
8303
|
case 0: /* nothing */ return 'You can only use teams with repositories belonging to GitHub organizations';
|
|
8193
8304
|
case undefined: /* just */ return $1.a1;
|
|
8194
8305
|
}
|
|
8195
8306
|
}
|
|
8196
8307
|
|
|
8197
|
-
/* FFI.GitHub.
|
|
8198
|
-
function
|
|
8308
|
+
/* FFI.GitHub.7182:10523:errString */
|
|
8309
|
+
function FFI_GitHub_n__7182_10523_errString($0, $1) {
|
|
8199
8310
|
switch($1.h) {
|
|
8200
8311
|
case 0: /* nothing */ return 'You can only list teams for repositories belonging to GitHub organizations';
|
|
8201
8312
|
case undefined: /* just */ return $1.a1;
|
|
8202
8313
|
}
|
|
8203
8314
|
}
|
|
8204
8315
|
|
|
8205
|
-
/* FFI.GitHub.
|
|
8206
|
-
function
|
|
8207
|
-
return Prelude_Types_either(() =>
|
|
8316
|
+
/* FFI.GitHub.6919:10232:errMsg */
|
|
8317
|
+
function FFI_GitHub_n__6919_10232_errMsg($0) {
|
|
8318
|
+
return Prelude_Types_either(() => csegen_272()(), () => csegen_272()(), $0);
|
|
8208
8319
|
}
|
|
8209
8320
|
|
|
8210
8321
|
/* FFI.GitHub.show */
|
|
@@ -8247,7 +8358,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
8247
8358
|
let $2;
|
|
8248
8359
|
switch($3.h) {
|
|
8249
8360
|
case 0: /* Left */ {
|
|
8250
|
-
$2 = {h: 0 /* Left */, a1:
|
|
8361
|
+
$2 = {h: 0 /* Left */, a1: FFI_GitHub_n__6786_10099_unexpectedPayload($0, $3.a1)};
|
|
8251
8362
|
break;
|
|
8252
8363
|
}
|
|
8253
8364
|
case 1: /* Right */ {
|
|
@@ -8256,7 +8367,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
8256
8367
|
}
|
|
8257
8368
|
}
|
|
8258
8369
|
const $c = json => {
|
|
8259
|
-
const $d =
|
|
8370
|
+
const $d = FFI_GitHub_n__6786_10098_parse($0, json);
|
|
8260
8371
|
switch($d.h) {
|
|
8261
8372
|
case 0: /* Left */ return {h: 0 /* Left */, a1: FFI_GitHub_internalError($d.a1)};
|
|
8262
8373
|
case 1: /* Right */ return {h: 1 /* Right */, a1: $d.a1};
|
|
@@ -8358,7 +8469,7 @@ function FFI_GitHub_internalError($0) {
|
|
|
8358
8469
|
|
|
8359
8470
|
/* FFI.GitHub.ignoreStatus : Promise String a -> Promise String a */
|
|
8360
8471
|
function FFI_GitHub_ignoreStatus($0, $1, $2) {
|
|
8361
|
-
return Data_Promise_mapError($5 =>
|
|
8472
|
+
return Data_Promise_mapError($5 => FFI_GitHub_n__6919_10232_errMsg(FFI_GitHub_parseError($5)), $0, $1, $2);
|
|
8362
8473
|
}
|
|
8363
8474
|
|
|
8364
8475
|
/* FFI.GitHub.getUser : Octokit => String -> Promise String User */
|
|
@@ -8388,12 +8499,12 @@ function FFI_GitHub_getIssue($0, $1, $2, $3) {
|
|
|
8388
8499
|
|
|
8389
8500
|
/* FFI.GitHub.forceListTeams : Octokit => String -> Promise' (List String) */
|
|
8390
8501
|
function FFI_GitHub_forceListTeams($0, $1, $2, $3) {
|
|
8391
|
-
return Data_Promise_mapError($6 =>
|
|
8502
|
+
return Data_Promise_mapError($6 => FFI_GitHub_n__7182_10523_errString($0, $6), $b => $c => FFI_GitHub_listTeams($0, $1, $b, $c), $2, $3);
|
|
8392
8503
|
}
|
|
8393
8504
|
|
|
8394
8505
|
/* FFI.GitHub.forceListTeamMembers : Octokit => String -> String -> Promise' (List String) */
|
|
8395
8506
|
function FFI_GitHub_forceListTeamMembers($0, $1, $2, $3, $4) {
|
|
8396
|
-
return Data_Promise_mapError($7 =>
|
|
8507
|
+
return Data_Promise_mapError($7 => FFI_GitHub_n__8353_11712_errString($0, $7), $c => $d => FFI_GitHub_listTeamMembers($0, $1, $2, $c, $d), $3, $4);
|
|
8397
8508
|
}
|
|
8398
8509
|
|
|
8399
8510
|
/* FFI.GitHub.createPR : Octokit => {default False _ : Bool} ->
|
|
@@ -8451,7 +8562,7 @@ function Language_JSON_Accessors_string($0) {
|
|
|
8451
8562
|
default: return {h: 0};
|
|
8452
8563
|
}
|
|
8453
8564
|
};
|
|
8454
|
-
return Language_JSON_Accessors_access(
|
|
8565
|
+
return Language_JSON_Accessors_access(csegen_277(), 'string', $5, $0);
|
|
8455
8566
|
}
|
|
8456
8567
|
|
|
8457
8568
|
/* Language.JSON.Accessors.optional : (JSON -> Either String a) -> JSON -> Either String (Maybe a) */
|
|
@@ -8489,7 +8600,7 @@ function Language_JSON_Accessors_nat($0) {
|
|
|
8489
8600
|
}
|
|
8490
8601
|
return Prelude_Types_map_Functor_Maybe($9 => Prelude_Types_prim__integerToNat($9), $c);
|
|
8491
8602
|
};
|
|
8492
|
-
return Language_JSON_Accessors_access(
|
|
8603
|
+
return Language_JSON_Accessors_access(csegen_277(), 'natural number', $5, $0);
|
|
8493
8604
|
}
|
|
8494
8605
|
|
|
8495
8606
|
/* Language.JSON.Accessors.lookupAll : Vect n String -> List (String, JSON) -> Either String (Vect n JSON) */
|
|
@@ -8520,7 +8631,7 @@ function Language_JSON_Accessors_integer($0) {
|
|
|
8520
8631
|
default: return {h: 0};
|
|
8521
8632
|
}
|
|
8522
8633
|
};
|
|
8523
|
-
return Language_JSON_Accessors_access(
|
|
8634
|
+
return Language_JSON_Accessors_access(csegen_277(), 'integer', $5, $0);
|
|
8524
8635
|
}
|
|
8525
8636
|
|
|
8526
8637
|
/* Language.JSON.Accessors.bool : JSON -> Either String Bool */
|
|
@@ -8531,13 +8642,13 @@ function Language_JSON_Accessors_bool($0) {
|
|
|
8531
8642
|
default: return {h: 0};
|
|
8532
8643
|
}
|
|
8533
8644
|
};
|
|
8534
|
-
return Language_JSON_Accessors_access(
|
|
8645
|
+
return Language_JSON_Accessors_access(csegen_277(), 'bool', $5, $0);
|
|
8535
8646
|
}
|
|
8536
8647
|
|
|
8537
8648
|
/* Language.JSON.Accessors.array : (JSON -> Either String a) -> JSON -> Either String (List a) */
|
|
8538
8649
|
function Language_JSON_Accessors_array($0, $1) {
|
|
8539
8650
|
switch($1.h) {
|
|
8540
|
-
case 5: /* JArray */ return Prelude_Types_traverse_Traversable_List(
|
|
8651
|
+
case 5: /* JArray */ return Prelude_Types_traverse_Traversable_List(csegen_236(), $0, $1.a1);
|
|
8541
8652
|
default: return {h: 0 /* Left */, a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1: 'Expected an array but found ', a2: {a1: JSON_Parser_showImpl($1), a2: {a1: '.', a2: {h: 0}}}})};
|
|
8542
8653
|
}
|
|
8543
8654
|
}
|
|
@@ -9219,7 +9330,7 @@ function Data_List_Suffix_Result0_fail($0, $1) {
|
|
|
9219
9330
|
|
|
9220
9331
|
/* Data.User.parseUserString : String -> Either String User */
|
|
9221
9332
|
function Data_User_parseUserString($0) {
|
|
9222
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
9333
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_241(), csegen_288(), $7 => Data_User_parseUser($7), $0);
|
|
9223
9334
|
}
|
|
9224
9335
|
|
|
9225
9336
|
/* Data.User.parseUser : JSON -> Either String User */
|
|
@@ -9249,7 +9360,7 @@ function Data_Review_parseState($0) {
|
|
|
9249
9360
|
|
|
9250
9361
|
/* Data.Review.parseReview : JSON -> Either String Review */
|
|
9251
9362
|
function Data_Review_parseReview($0) {
|
|
9252
|
-
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(
|
|
9363
|
+
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_237(), $22 => Data_Review_parseState($22), Language_JSON_Accessors_string($12.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_237(), $2f => Data_Review_parseDateTime($2f), Language_JSON_Accessors_string($12.a2.a2.a1)), submittedAt => ({h: 1 /* Right */, a1: {a1: submittedAt, a2: author, a3: state}}))))));
|
|
9253
9364
|
}
|
|
9254
9365
|
|
|
9255
9366
|
/* Data.Review.parseDateTime : String -> Either String Date */
|
|
@@ -9383,7 +9494,7 @@ function Data_Date_max_Ord_Date($0, $1) {
|
|
|
9383
9494
|
|
|
9384
9495
|
/* Data.Date.compare */
|
|
9385
9496
|
function Data_Date_compare_Ord_Date($0, $1) {
|
|
9386
|
-
return Prelude_Types_compare_Ord_x28Listx20x24ax29({a1: {a1:
|
|
9497
|
+
return Prelude_Types_compare_Ord_x28Listx20x24ax29({a1: {a1: csegen_295(), a2: $a => $b => Prelude_Types_x2fx3d_Eq_Nat($a, $b)}, a2: csegen_298(), a3: $12 => $13 => Prelude_Types_x3c_Ord_Nat($12, $13), a4: $18 => $19 => Prelude_Types_x3e_Ord_Nat($18, $19), a5: $1e => $1f => Prelude_Types_x3cx3d_Ord_Nat($1e, $1f), a6: $24 => $25 => Prelude_Types_x3ex3d_Ord_Nat($24, $25), a7: csegen_303(), a8: $2c => $2d => Prelude_Types_min_Ord_Nat($2c, $2d)}, {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}}}});
|
|
9387
9498
|
}
|
|
9388
9499
|
|
|
9389
9500
|
/* Data.Date.> */
|
|
@@ -9470,12 +9581,12 @@ function Data_Date_nextMonth($0) {
|
|
|
9470
9581
|
|
|
9471
9582
|
/* Data.Issue.parseIssuesString : String -> Either String (List Issue) */
|
|
9472
9583
|
function Data_Issue_parseIssuesString($0) {
|
|
9473
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
9584
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_241(), csegen_288(), $7 => Language_JSON_Accessors_array($a => Data_Issue_parseIssue($a), $7), $0);
|
|
9474
9585
|
}
|
|
9475
9586
|
|
|
9476
9587
|
/* Data.Issue.parseIssueString : String -> Either String Issue */
|
|
9477
9588
|
function Data_Issue_parseIssueString($0) {
|
|
9478
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
9589
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_241(), csegen_288(), $7 => Data_Issue_parseIssue($7), $0);
|
|
9479
9590
|
}
|
|
9480
9591
|
|
|
9481
9592
|
/* Data.Issue.parseIssue : JSON -> Either String Issue */
|
|
@@ -9496,7 +9607,7 @@ function Data_Issue_parseIssue($0) {
|
|
|
9496
9607
|
break;
|
|
9497
9608
|
}
|
|
9498
9609
|
}
|
|
9499
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($2b, body => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($18.a2.a2.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(
|
|
9610
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($2b, body => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($18.a2.a2.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_237(), $46 => Data_Issue_parseDateTime($46), Language_JSON_Accessors_string($18.a2.a2.a2.a2.a1)), createdAt => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_optional($51 => Language_JSON_Accessors_string($51), $18.a2.a2.a2.a2.a2.a1), assignee => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Types_maybe(() => ({h: 1 /* Right */, a1: {h: 0}}), () => $5c => Language_JSON_Accessors_optional($5f => Language_JSON_Accessors_nat($5f), $5c), Data_List_lookup(csegen_76(), 'linked_pr_count', issue)), linkedPRCount => ({h: 1 /* Right */, a1: {a1: number, a2: title, a3: body, a4: createdAt, a5: author, a6: assignee, a7: linkedPRCount}}))))));
|
|
9500
9611
|
};
|
|
9501
9612
|
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($18.a2.a1), $29);
|
|
9502
9613
|
};
|
|
@@ -9539,7 +9650,12 @@ function Data_PullRequest_x3dx3d_Eq_PRState($0, $1) {
|
|
|
9539
9650
|
|
|
9540
9651
|
/* Data.PullRequest.(.webURI) : Config => PullRequest -> String */
|
|
9541
9652
|
function Data_PullRequest_rf__webURI($0, $1) {
|
|
9542
|
-
return
|
|
9653
|
+
return Data_PullRequest_webURIx27($0.a2, $0.a3, $1);
|
|
9654
|
+
}
|
|
9655
|
+
|
|
9656
|
+
/* Data.PullRequest.webURI' : String -> String -> PullRequest -> String */
|
|
9657
|
+
function Data_PullRequest_webURIx27($0, $1, $2) {
|
|
9658
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $8 => $8, {a1: 'https://github.com/', a2: {a1: $0, a2: {a1: '/', a2: {a1: $1, a2: {a1: '/pull/', a2: {a1: Prelude_Show_show_Show_Integer($2.a1), a2: {h: 0}}}}}}});
|
|
9543
9659
|
}
|
|
9544
9660
|
|
|
9545
9661
|
/* Data.PullRequest.parseState : Bool -> String -> Either String PRState */
|
|
@@ -9565,17 +9681,17 @@ function Data_PullRequest_parseState($0, $1) {
|
|
|
9565
9681
|
|
|
9566
9682
|
/* Data.PullRequest.parsePullRequestsString : String -> Either String (List PullRequest) */
|
|
9567
9683
|
function Data_PullRequest_parsePullRequestsString($0) {
|
|
9568
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
9684
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_241(), csegen_288(), csegen_316(), $0);
|
|
9569
9685
|
}
|
|
9570
9686
|
|
|
9571
9687
|
/* Data.PullRequest.parsePullRequestString : String -> Either String PullRequest */
|
|
9572
9688
|
function Data_PullRequest_parsePullRequestString($0) {
|
|
9573
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
9689
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_241(), csegen_288(), $7 => Data_PullRequest_parsePR($7), $0);
|
|
9574
9690
|
}
|
|
9575
9691
|
|
|
9576
9692
|
/* Data.PullRequest.parsePR : JSON -> Either String PullRequest */
|
|
9577
9693
|
function Data_PullRequest_parsePR($0) {
|
|
9578
|
-
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: 'title', a2: {a1: 'author', a2: {a1: 'state', a2: {a1: 'created_at', a2: {a1: 'merged', a2: {a1: 'draft', a2: {a1: 'reviewers', a2: {a1: 'head_ref', a2: {a1: 'base_ref', a2: {h: 0}}}}}}}}}}}, pr), $20 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($20.a1), number => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($20.a2.a1), title => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($20.a2.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($20.a2.a2.a2.a2.a2.a1), merged => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($20.a2.a2.a2.a2.a2.a2.a1), isDraft => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(
|
|
9694
|
+
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: 'title', a2: {a1: 'author', a2: {a1: 'state', a2: {a1: 'created_at', a2: {a1: 'merged', a2: {a1: 'draft', a2: {a1: 'reviewers', a2: {a1: 'head_ref', a2: {a1: 'base_ref', a2: {h: 0}}}}}}}}}}}, pr), $20 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($20.a1), number => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($20.a2.a1), title => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($20.a2.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($20.a2.a2.a2.a2.a2.a1), merged => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($20.a2.a2.a2.a2.a2.a2.a1), isDraft => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_237(), $4b => Data_PullRequest_parseState(merged, $4b), Language_JSON_Accessors_string($20.a2.a2.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_237(), $59 => Data_PullRequest_parseDateTime($59), Language_JSON_Accessors_string($20.a2.a2.a2.a2.a1)), createdAt => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($64 => Language_JSON_Accessors_string($64), $20.a2.a2.a2.a2.a2.a2.a2.a1), reviewers => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($20.a2.a2.a2.a2.a2.a2.a2.a2.a1), headRef => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($20.a2.a2.a2.a2.a2.a2.a2.a2.a2.a1), baseRef => ({h: 1 /* Right */, a1: {a1: number, a2: title, a3: createdAt, a4: isDraft, a5: author, a6: state, a7: reviewers, a8: headRef, a9: baseRef}})))))))))))));
|
|
9579
9695
|
}
|
|
9580
9696
|
|
|
9581
9697
|
/* Data.PullRequest.parseDateTime : String -> Either String Date */
|
|
@@ -9593,32 +9709,33 @@ function Data_PullRequest_isAuthor($0, $1) {
|
|
|
9593
9709
|
return Prelude_EqOrd_x3dx3d_Eq_String($1.a5, $0);
|
|
9594
9710
|
}
|
|
9595
9711
|
|
|
9596
|
-
/* Data.Config.
|
|
9597
|
-
function
|
|
9598
|
-
return Prelude_Types_maybe(() => 'Not set (will use $GITHUB_PAT or $GH_TOKEN environment variable)', () => $4 => Data_Config_show_Show_x28Hiddenx20x24ax29($4), $0.
|
|
9712
|
+
/* Data.Config.9910:7283:personalAccessToken */
|
|
9713
|
+
function Data_Config_n__9910_7283_personalAccessToken($0) {
|
|
9714
|
+
return Prelude_Types_maybe(() => 'Not set (will use $GITHUB_PAT or $GH_TOKEN environment variable)', () => $4 => Data_Config_show_Show_x28Hiddenx20x24ax29($4), $0.a15);
|
|
9599
9715
|
}
|
|
9600
9716
|
|
|
9601
|
-
/* Data.Config.
|
|
9602
|
-
function
|
|
9717
|
+
/* Data.Config.10530:7894:parseConfigJson */
|
|
9718
|
+
function Data_Config_n__10530_7894_parseConfigJson($0, $1) {
|
|
9603
9719
|
switch($1.h) {
|
|
9604
9720
|
case 6: /* JObject */ {
|
|
9605
9721
|
const $22 = $23 => {
|
|
9606
9722
|
const $32 = Data_List_lookup(csegen_76(), 'githubPAT', $1.a1);
|
|
9607
9723
|
const $38 = Data_List_lookup(csegen_76(), 'githubUser', $1.a1);
|
|
9608
9724
|
const $3e = Data_List_lookup(csegen_76(), 'branchParsing', $1.a1);
|
|
9609
|
-
const $
|
|
9610
|
-
|
|
9611
|
-
|
|
9725
|
+
const $44 = Data_List_lookup(csegen_76(), 'addPrTreeDescription', $1.a1);
|
|
9726
|
+
const $4c = Language_JSON_Accessors_integer($23.a1);
|
|
9727
|
+
let $4b;
|
|
9728
|
+
switch($4c.h) {
|
|
9612
9729
|
case 0: /* Left */ {
|
|
9613
|
-
$
|
|
9730
|
+
$4b = {h: 0 /* Left */, a1: $4c.a1};
|
|
9614
9731
|
break;
|
|
9615
9732
|
}
|
|
9616
9733
|
case 1: /* Right */ {
|
|
9617
|
-
$
|
|
9734
|
+
$4b = {h: 1 /* Right */, a1: Number(_truncUBigInt32($4c.a1))};
|
|
9618
9735
|
break;
|
|
9619
9736
|
}
|
|
9620
9737
|
}
|
|
9621
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($
|
|
9738
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($4b, ua => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($23.a2.a1), o => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($23.a2.a2.a1), r => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($23.a2.a2.a2.a2.a2.a2.a1), dr => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($23.a2.a2.a2.a1), mb => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($23.a2.a2.a2.a2.a2.a2.a2.a2.a2.a1), at => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($23.a2.a2.a2.a2.a2.a2.a2.a2.a2.a2.a1), au => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Data_Config_commentConfig($23.a2.a2.a2.a2.a2.a2.a2.a2.a2.a2.a2.a1), ca => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Types_maybe(() => ({h: 1 /* Right */, a1: 1}), () => $7c => Data_Config_branchConfig($7c), $3e), bp => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Types_maybe(() => ({h: 1 /* Right */, a1: 0}), () => $87 => Language_JSON_Accessors_bool($87), $44), prt => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($90 => Language_JSON_Accessors_string($90), $23.a2.a2.a2.a2.a1), ts => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($99 => Language_JSON_Accessors_string($99), $23.a2.a2.a2.a2.a2.a2.a2.a1), rl => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($a2 => Language_JSON_Accessors_string($a2), $23.a2.a2.a2.a2.a2.a1), om => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($ab => Language_JSON_Accessors_integer($ab), $23.a2.a2.a2.a2.a2.a2.a2.a2.a1), ip => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Types_maybe(() => ({h: 1 /* Right */, a1: {h: 0}}), () => csegen_340()(), $32), gp => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Types_maybe(() => ({h: 1 /* Right */, a1: {h: 0}}), () => csegen_340()(), $38), gu => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_stringy('dark or light', $c9 => Data_Theme_parseString($c9), $23.a2.a2.a2.a2.a2.a2.a2.a2.a2.a2.a2.a2.a1), th => ({h: 1 /* Right */, a1: {a1: ua, a2: o, a3: r, a4: dr, a5: mb, a6: at, a7: au, a8: ca, a9: bp, a10: prt, a11: ts, a12: rl, a13: om, a14: ip, a15: Prelude_Types_map_Functor_Maybe($e0 => $e0, gp), a16: gu, a17: th, a18: $0}}))))))))))))))))));
|
|
9622
9739
|
};
|
|
9623
9740
|
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'updatedAt', a2: {a1: 'org', a2: {a1: 'repo', a2: {a1: 'mainBranch', a2: {a1: 'teamSlugs', a2: {a1: 'orgMembers', a2: {a1: 'defaultRemote', a2: {a1: 'repoLabels', a2: {a1: 'ignoredPRs', a2: {a1: 'requestTeams', a2: {a1: 'requestUsers', a2: {a1: 'commentOnRequest', a2: {a1: 'theme', a2: {h: 0}}}}}}}}}}}}}}, $1.a1), $22);
|
|
9624
9741
|
}
|
|
@@ -9638,7 +9755,7 @@ function Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($0) {
|
|
|
9638
9755
|
|
|
9639
9756
|
/* Data.Config.show */
|
|
9640
9757
|
function Data_Config_show_Show_Config($0) {
|
|
9641
|
-
return Data_String_fastUnlines({a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9 => $9, {a1: '
|
|
9758
|
+
return Data_String_fastUnlines({a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9 => $9, {a1: ' updatedAt: ', a2: {a1: Prelude_Show_show_Show_Bits32($0.a1), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $19 => $19, {a1: ' theme: ', a2: {a1: Data_Theme_show_Show_Theme($0.a17), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $29 => $29, {a1: ' org or user: ', a2: {a1: Prelude_Show_show_Show_String($0.a2), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $39 => $39, {a1: ' repo: ', a2: {a1: Prelude_Show_show_Show_String($0.a3), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $49 => $49, {a1: ' defaultRemote: ', a2: {a1: Prelude_Show_show_Show_String($0.a4), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $59 => $59, {a1: ' mainBranch: ', a2: {a1: Prelude_Show_show_Show_String($0.a5), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $69 => $69, {a1: ' requestTeams: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a6), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $79 => $79, {a1: ' requestUsers: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a7), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $89 => $89, {a1: ' commentOnRequest: ', a2: {a1: Data_Config_CommentStrategy_show_Show_CommentStrategy($0.a8), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $99 => $99, {a1: ' branchParsing: ', a2: {a1: Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($0.a9), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $a9 => $a9, {a1: 'addPrTreeDescription: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a10), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $b9 => $b9, {a1: ' teamSlugs: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_88(), $0.a11), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $cb => $cb, {a1: ' repoLabels: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_88(), $0.a12), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $dd => $dd, {a1: ' orgMembers: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_88(), $0.a13), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $ef => $ef, {a1: ' ignoredPRs: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29({a1: x => Prelude_Show_show_Show_Integer(x), a2: d => x => Prelude_Show_showPrec_Show_Integer(d, x)}, $0.a14), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $107 => $107, {a1: ' githubPAT: ', a2: {a1: Data_Config_n__9910_7283_personalAccessToken($0), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $116 => $116, {a1: ' githubUser: ', a2: {a1: Prelude_Show_show_Show_x28Maybex20x24ax29(csegen_88(), $0.a16), a2: {h: 0}}}), a2: {h: 0}}}}}}}}}}}}}}}}}});
|
|
9642
9759
|
}
|
|
9643
9760
|
|
|
9644
9761
|
/* Data.Config.CommentStrategy.show */
|
|
@@ -9657,27 +9774,27 @@ function Data_Config_show_Show_x28Hiddenx20x24ax29($0) {
|
|
|
9657
9774
|
|
|
9658
9775
|
/* Data.Config.(.filepath) : Config -> String */
|
|
9659
9776
|
function Data_Config_rf__filepath($0) {
|
|
9660
|
-
return $0.
|
|
9777
|
+
return $0.a18.a1;
|
|
9661
9778
|
}
|
|
9662
9779
|
|
|
9663
9780
|
/* Data.Config.(.editor) : Config -> Maybe String */
|
|
9664
9781
|
function Data_Config_rf__editor($0) {
|
|
9665
|
-
return $0.
|
|
9782
|
+
return $0.a18.a4;
|
|
9666
9783
|
}
|
|
9667
9784
|
|
|
9668
9785
|
/* Data.Config.(.columns) : Config -> Nat */
|
|
9669
9786
|
function Data_Config_rf__columns($0) {
|
|
9670
|
-
return $0.
|
|
9787
|
+
return $0.a18.a3;
|
|
9671
9788
|
}
|
|
9672
9789
|
|
|
9673
9790
|
/* Data.Config.(.colors) : Config -> Bool */
|
|
9674
9791
|
function Data_Config_rf__colors($0) {
|
|
9675
|
-
return $0.
|
|
9792
|
+
return $0.a18.a2;
|
|
9676
9793
|
}
|
|
9677
9794
|
|
|
9678
9795
|
/* Data.Config.settableProps : List SomeSettableProp */
|
|
9679
9796
|
const Data_Config_settableProps = __lazy(function () {
|
|
9680
|
-
return {a1: {a1: 'requestTeams', a2: {a1: '[true/false] Determines whether or not to request reviews from teams when requesting individual reviewers from a team.', a2: 0}}, a2: {a1: {a1: 'requestUsers', a2: {a1: '[true/false] Determines whether or not to request reviews from an individual user based on Harmony\'s heuristics when requestin review from teams. You might want to disable `requestUsers` to allow GitHub to pick users to request based on the team. This setting does not affect the ability to request reviews from individual users withe Harmony\'s `+<username>` syntax.', a2: 1}}, a2: {a1: {a1: 'commentOnRequest', a2: {a1: '[none/name/at-mention] Determines whether- and how to comment on PR indicating that Harmony chose a reviewer.', a2: 2}}, a2: {a1: {a1: 'branchParsing', a2: {a1: '[none/jira/github] Determines whether- and how to parse branch names for a prefix to automatically add to a new PR\'s title or body to link the PR and issue/ticket.', a2: 3}}, a2: {a1: {a1: 'defaultRemote', a2: {a1: '[string] The name of the default Git remote to use (e.g. \'origin\').', a2:
|
|
9797
|
+
return {a1: {a1: 'requestTeams', a2: {a1: '[true/false] Determines whether or not to request reviews from teams when requesting individual reviewers from a team.', a2: 0}}, a2: {a1: {a1: 'requestUsers', a2: {a1: '[true/false] Determines whether or not to request reviews from an individual user based on Harmony\'s heuristics when requestin review from teams. You might want to disable `requestUsers` to allow GitHub to pick users to request based on the team. This setting does not affect the ability to request reviews from individual users withe Harmony\'s `+<username>` syntax.', a2: 1}}, a2: {a1: {a1: 'commentOnRequest', a2: {a1: '[none/name/at-mention] Determines whether- and how to comment on PR indicating that Harmony chose a reviewer.', a2: 2}}, a2: {a1: {a1: 'branchParsing', a2: {a1: '[none/jira/github] Determines whether- and how to parse branch names for a prefix to automatically add to a new PR\'s title or body to link the PR and issue/ticket.', a2: 3}}, a2: {a1: {a1: 'addPrTreeDescription', a2: {a1: '[true/false] Determines whether to add a tree of PRs to the description for any PR that is into a branch other than the `mainBranch` configured.\n This looks like:\n > \u{2a00} `main`\n >> \u{2196} `feature-1` (https://github.com/org/repo/pull/1234)\n >> **The first feature**\n >>>> \u{2196} `feature-2`', a2: 4}}, a2: {a1: {a1: 'defaultRemote', a2: {a1: '[string] The name of the default Git remote to use (e.g. \'origin\').', a2: 5}}, a2: {a1: {a1: 'mainBranch', a2: {a1: '[string] The name of the default Git base branch for new PRs.', a2: 6}}, a2: {a1: {a1: 'theme', a2: {a1: '[dark/light]', a2: 7}}, a2: {a1: {a1: 'githubPAT', a2: {a1: '[string] The Personal Access Token Harmony should use to authenticate with GitHub. You can leave this unset if you want to set a PAT via the GITHUB_PAT or GH_TOKEN environment variable.', a2: 8}}, a2: {h: 0}}}}}}}}}};
|
|
9681
9798
|
});
|
|
9682
9799
|
|
|
9683
9800
|
/* Data.Config.settablePropNamesAndHelp : List (String, String) */
|
|
@@ -9696,10 +9813,11 @@ function Data_Config_settablePropNamed($0) {
|
|
|
9696
9813
|
case 'requestTeams': return {a1: 0};
|
|
9697
9814
|
case 'commentOnRequest': return {a1: 2};
|
|
9698
9815
|
case 'branchParsing': return {a1: 3};
|
|
9699
|
-
case '
|
|
9700
|
-
case '
|
|
9701
|
-
case '
|
|
9702
|
-
case '
|
|
9816
|
+
case 'addPrTreeDescription': return {a1: 4};
|
|
9817
|
+
case 'defaultRemote': return {a1: 5};
|
|
9818
|
+
case 'mainBranch': return {a1: 6};
|
|
9819
|
+
case 'theme': return {a1: 7};
|
|
9820
|
+
case 'githubPAT': return {a1: 8};
|
|
9703
9821
|
case 'requestUsers': return {a1: 1};
|
|
9704
9822
|
default: return {h: 0};
|
|
9705
9823
|
}
|
|
@@ -9717,7 +9835,7 @@ function Data_Config_propHelpx27($0) {
|
|
|
9717
9835
|
|
|
9718
9836
|
/* Data.Config.parseConfig : Ephemeral -> String -> Either String Config */
|
|
9719
9837
|
function Data_Config_parseConfig($0, $1) {
|
|
9720
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
9838
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_241(), csegen_288(), $8 => Data_Config_n__10530_7894_parseConfigJson($0, $8), $1);
|
|
9721
9839
|
}
|
|
9722
9840
|
|
|
9723
9841
|
/* Data.Config.CommentStrategy.parseCommentConfig : String -> Maybe CommentStrategy */
|
|
@@ -9743,12 +9861,12 @@ function Data_Config_ParseBranchStrategy_parseBranchConfig($0) {
|
|
|
9743
9861
|
|
|
9744
9862
|
/* Data.Config.longestSettablePropName : Nat */
|
|
9745
9863
|
const Data_Config_longestSettablePropName = __lazy(function () {
|
|
9746
|
-
return Prelude_Types_foldr_Foldable_List(
|
|
9864
|
+
return Prelude_Types_foldr_Foldable_List(csegen_303(), 0n, Prelude_Types_List_mapAppend({h: 0}, $8 => Prelude_Types_String_length(Data_Config_propNamex27($8)), Data_Config_settableProps()));
|
|
9747
9865
|
});
|
|
9748
9866
|
|
|
9749
9867
|
/* Data.Config.json : Config -> JSON */
|
|
9750
9868
|
function Data_Config_json($0) {
|
|
9751
|
-
return {h: 6 /* JObject */, a1: {a1: {a1: 'requestTeams', a2: {h: 3 /* JBool */, a1: $0.a6}}, a2: {a1: {a1: 'requestUsers', a2: {h: 3 /* JBool */, a1: $0.a7}}, a2: {a1: {a1: 'commentOnRequest', a2: {h: 4 /* JString */, a1: Data_Config_CommentStrategy_show_Show_CommentStrategy($0.a8)}}, a2: {a1: {a1: 'branchParsing', a2: {h: 4 /* JString */, a1: Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($0.a9)}}, 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: 'theme', a2: {h: 4 /* JString */, a1: Data_Theme_show_Show_Theme($0.
|
|
9869
|
+
return {h: 6 /* JObject */, a1: {a1: {a1: 'requestTeams', a2: {h: 3 /* JBool */, a1: $0.a6}}, a2: {a1: {a1: 'requestUsers', a2: {h: 3 /* JBool */, a1: $0.a7}}, a2: {a1: {a1: 'commentOnRequest', a2: {h: 4 /* JString */, a1: Data_Config_CommentStrategy_show_Show_CommentStrategy($0.a8)}}, a2: {a1: {a1: 'branchParsing', a2: {h: 4 /* JString */, a1: Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($0.a9)}}, a2: {a1: {a1: 'addPrTreeDescription', a2: {h: 3 /* JBool */, a1: $0.a10}}, 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: 'theme', a2: {h: 4 /* JString */, a1: Data_Theme_show_Show_Theme($0.a17)}}, a2: {a1: {a1: 'orgMembers', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $42 => ({h: 4 /* JString */, a1: $42}), Data_List_sort(csegen_374(), $0.a13))}}, a2: {a1: {a1: 'teamSlugs', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $51 => ({h: 4 /* JString */, a1: $51}), Data_List_sort(csegen_374(), $0.a11))}}, a2: {a1: {a1: 'repoLabels', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $60 => ({h: 4 /* JString */, a1: $60}), Data_List_sort(csegen_374(), $0.a12))}}, a2: {a1: {a1: 'ignoredPRs', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $6f => ({h: 1 /* JInteger */, a1: $6f}), Data_List_sort({a1: csegen_377(), a2: csegen_298(), a3: $79 => $7a => Prelude_EqOrd_x3c_Ord_Integer($79, $7a), a4: $7f => $80 => Prelude_EqOrd_x3e_Ord_Integer($7f, $80), a5: $85 => $86 => Prelude_EqOrd_x3cx3d_Ord_Integer($85, $86), a6: $8b => $8c => Prelude_EqOrd_x3ex3d_Ord_Integer($8b, $8c), a7: $91 => $92 => Prelude_EqOrd_max_Ord_Integer($91, $92), a8: $97 => $98 => Prelude_EqOrd_min_Ord_Integer($97, $98)}, $0.a14))}}, a2: {a1: {a1: 'githubPAT', a2: Prelude_Types_maybe(() => ({h: 0 /* JNull */}), () => $a4 => ({h: 4 /* JString */, a1: $a4}), $0.a15)}, a2: {a1: {a1: 'githubUser', a2: Prelude_Types_maybe(() => ({h: 0 /* JNull */}), () => $ae => ({h: 4 /* JString */, a1: $ae}), $0.a16)}, a2: {a1: {a1: 'updatedAt', a2: {h: 1 /* JInteger */, a1: BigInt($0.a1)}}, a2: {h: 0}}}}}}}}}}}}}}}}}}};
|
|
9752
9870
|
}
|
|
9753
9871
|
|
|
9754
9872
|
/* Data.Config.filename : String */
|
|
@@ -9758,12 +9876,12 @@ const Data_Config_filename = __lazy(function () {
|
|
|
9758
9876
|
|
|
9759
9877
|
/* Data.Config.commentConfig : JSON -> Either String CommentStrategy */
|
|
9760
9878
|
function Data_Config_commentConfig($0) {
|
|
9761
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
9879
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_241(), csegen_385(), $7 => Data_Either_maybeToEither(() => '', Data_Config_CommentStrategy_parseCommentConfig($7)), $0);
|
|
9762
9880
|
}
|
|
9763
9881
|
|
|
9764
9882
|
/* Data.Config.branchConfig : JSON -> Either String ParseBranchStrategy */
|
|
9765
9883
|
function Data_Config_branchConfig($0) {
|
|
9766
|
-
return Prelude_Interfaces_x3ex3dx3e(
|
|
9884
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_241(), csegen_385(), $7 => Data_Either_maybeToEither(() => '', Data_Config_ParseBranchStrategy_parseBranchConfig($7)), $0);
|
|
9767
9885
|
}
|
|
9768
9886
|
|
|
9769
9887
|
/* Data.Theme.show */
|
|
@@ -9794,13 +9912,13 @@ function Util_Prompting_with__yesNoPromptx2cyesUnlessNo_1370($0, $1, $2, $3, $4,
|
|
|
9794
9912
|
}
|
|
9795
9913
|
}
|
|
9796
9914
|
|
|
9797
|
-
/* Util.Prompting.
|
|
9798
|
-
function
|
|
9915
|
+
/* Util.Prompting.5884:1362:yesUnlessNo */
|
|
9916
|
+
function Util_Prompting_n__5884_1362_yesUnlessNo($0, $1, $2, $3) {
|
|
9799
9917
|
return Util_Prompting_with__yesNoPromptx2cyesUnlessNo_1370(undefined, $0, $1, $2, $3, Data_String_toLower($3));
|
|
9800
9918
|
}
|
|
9801
9919
|
|
|
9802
|
-
/* Util.Prompting.
|
|
9803
|
-
function
|
|
9920
|
+
/* Util.Prompting.6395:1857:readTemplate */
|
|
9921
|
+
function Util_Prompting_n__6395_1857_readTemplate($0, $1, $2, $3, $4) {
|
|
9804
9922
|
const $11 = $12 => {
|
|
9805
9923
|
switch($12) {
|
|
9806
9924
|
case 0: return $0.a1.a1.a2(undefined)('');
|
|
@@ -9818,8 +9936,8 @@ function Util_Prompting_n__6403_1907_readTemplate($0, $1, $2, $3, $4) {
|
|
|
9818
9936
|
return $0.a1.a2(undefined)(undefined)(System_File_Meta_exists($0, $4))($11);
|
|
9819
9937
|
}
|
|
9820
9938
|
|
|
9821
|
-
/* Util.
|
|
9822
|
-
function
|
|
9939
|
+
/* Util.5771:1244:getMoreLines */
|
|
9940
|
+
function Util_n__5771_1244_getMoreLines($0, $1, $2) {
|
|
9823
9941
|
switch($2.h) {
|
|
9824
9942
|
case 0: /* nothing */ return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1));
|
|
9825
9943
|
case undefined: /* just */ {
|
|
@@ -9830,13 +9948,13 @@ function Util_n__5725_1244_getMoreLines($0, $1, $2) {
|
|
|
9830
9948
|
case '': {
|
|
9831
9949
|
switch(line) {
|
|
9832
9950
|
case '': return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1.a2));
|
|
9833
|
-
default: return
|
|
9951
|
+
default: return Util_n__5771_1244_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
9834
9952
|
}
|
|
9835
9953
|
}
|
|
9836
|
-
default: return
|
|
9954
|
+
default: return Util_n__5771_1244_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
9837
9955
|
}
|
|
9838
9956
|
}
|
|
9839
|
-
default: return
|
|
9957
|
+
default: return Util_n__5771_1244_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
9840
9958
|
}
|
|
9841
9959
|
};
|
|
9842
9960
|
return $0.a1.a2(undefined)(undefined)($0.a1.a1.a1(undefined)(undefined)($20 => Data_String_trim($20))($0.a2(undefined)($29 => Prelude_IO_prim__getStr($29))))($2c);
|
|
@@ -9844,13 +9962,13 @@ function Util_n__5725_1244_getMoreLines($0, $1, $2) {
|
|
|
9844
9962
|
}
|
|
9845
9963
|
}
|
|
9846
9964
|
|
|
9847
|
-
/* Util.Prompting.
|
|
9848
|
-
function
|
|
9965
|
+
/* Util.Prompting.6052:1516:defaultStr */
|
|
9966
|
+
function Util_Prompting_n__6052_1516_defaultStr($0, $1) {
|
|
9849
9967
|
return Prelude_Types_maybe(() => '', () => $5 => Util_Prompting_enterForDefaultStr($5), $0);
|
|
9850
9968
|
}
|
|
9851
9969
|
|
|
9852
|
-
/* Util.Prompting.
|
|
9853
|
-
function
|
|
9970
|
+
/* Util.Prompting.5884:1361:defaultAnswerStr */
|
|
9971
|
+
function Util_Prompting_n__5884_1361_defaultAnswerStr($0, $1, $2) {
|
|
9854
9972
|
switch($1) {
|
|
9855
9973
|
case 0: return 'y/N';
|
|
9856
9974
|
case 1: return 'Y/n';
|
|
@@ -9859,7 +9977,7 @@ function Util_Prompting_n__5838_1361_defaultAnswerStr($0, $1, $2) {
|
|
|
9859
9977
|
|
|
9860
9978
|
/* Util.Prompting.yesNoPrompt : HasIO io => {default True _ : Bool} -> String -> io Bool */
|
|
9861
9979
|
function Util_Prompting_yesNoPrompt($0, $1, $2) {
|
|
9862
|
-
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($11 => Prelude_IO_prim__putStr(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $19 => $19, {a1: $2, a2: {a1: ' [', a2: {a1:
|
|
9980
|
+
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($11 => Prelude_IO_prim__putStr(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $19 => $19, {a1: $2, a2: {a1: ' [', a2: {a1: Util_Prompting_n__5884_1361_defaultAnswerStr($0, $1, $2), a2: {a1: '] ', a2: {h: 0}}}}}), $11)))($29 => $0.a1.a1.a1(undefined)(undefined)($34 => Util_Prompting_n__5884_1362_yesUnlessNo($0, $1, $2, Data_String_trim($34)))($0.a2(undefined)($42 => Prelude_IO_prim__getStr($42))));
|
|
9863
9981
|
}
|
|
9864
9982
|
|
|
9865
9983
|
/* Util.whenNothing : Applicative f => Maybe a -> f () -> f () */
|
|
@@ -9896,7 +10014,7 @@ function Util_Prompting_prepareDescriptionFile($0, $1, $2, $3) {
|
|
|
9896
10014
|
const $20 = Prelude_Types_foldMap_Foldable_List(csegen_86()(), $26 => $26, {a1: $2, a2: {a1: '\n', a2: {a1: templateContents, a2: {h: 0}}}});
|
|
9897
10015
|
return $0.a1.a1.a1(undefined)(undefined)($38 => undefined)(System_File_ReadWrite_writeFile($0, $3, $20));
|
|
9898
10016
|
};
|
|
9899
|
-
return $0.a1.a2(undefined)(undefined)(Prelude_Types_maybe(() => $0.a1.a1.a2(undefined)(''), () => $17 =>
|
|
10017
|
+
return $0.a1.a2(undefined)(undefined)(Prelude_Types_maybe(() => $0.a1.a1.a2(undefined)(''), () => $17 => Util_Prompting_n__6395_1857_readTemplate($0, $3, $2, $1, $17), $1))($1f);
|
|
9900
10018
|
}
|
|
9901
10019
|
|
|
9902
10020
|
/* Util.Prompting.orIfEmpty : Maybe String -> String -> String */
|
|
@@ -9979,7 +10097,7 @@ function Util_Prompting_inlineDescription($0, $1, $2) {
|
|
|
9979
10097
|
|
|
9980
10098
|
/* Util.getManyLines : HasIO io => Fuel -> io (List String) */
|
|
9981
10099
|
function Util_getManyLines($0, $1) {
|
|
9982
|
-
return
|
|
10100
|
+
return Util_n__5771_1244_getMoreLines($0, {h: 0}, $1);
|
|
9983
10101
|
}
|
|
9984
10102
|
|
|
9985
10103
|
/* Util.Prompting.getLineEnterForDefault : HasIO io => String -> Maybe String -> io String */
|
|
@@ -9994,7 +10112,7 @@ function Util_Prompting_enterForDefaultStr($0) {
|
|
|
9994
10112
|
|
|
9995
10113
|
/* Util.Prompting.enterForDefaultPrompt : String -> Maybe String -> String */
|
|
9996
10114
|
function Util_Prompting_enterForDefaultPrompt($0, $1) {
|
|
9997
|
-
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $7 => $7, {a1: $0, a2: {a1:
|
|
10115
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $7 => $7, {a1: $0, a2: {a1: Util_Prompting_n__6052_1516_defaultStr($1, $0), a2: {h: 0}}});
|
|
9998
10116
|
}
|
|
9999
10117
|
|
|
10000
10118
|
/* Util.Prompting.editorDescription : HasIO io => String -> Maybe String -> String -> io (Either FileError String) */
|
|
@@ -10052,7 +10170,7 @@ function System_getEnv($0, $1) {
|
|
|
10052
10170
|
function System_getArgs($0) {
|
|
10053
10171
|
const $12 = n => {
|
|
10054
10172
|
switch(Prelude_EqOrd_x3e_Ord_Int(n, Number(_truncBigInt32(0n)))) {
|
|
10055
|
-
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:
|
|
10173
|
+
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_392(), 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_392(), 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)));
|
|
10056
10174
|
case 0: return $0.a1.a1.a2(undefined)({h: 0});
|
|
10057
10175
|
}
|
|
10058
10176
|
};
|
|
@@ -10084,7 +10202,7 @@ function FFI_Term_termCols($0) {
|
|
|
10084
10202
|
}
|
|
10085
10203
|
|
|
10086
10204
|
/* Config.with block in getConfig */
|
|
10087
|
-
function
|
|
10205
|
+
function Config_with__getConfig_2476($0, $1, $2, $3) {
|
|
10088
10206
|
return $4 => {
|
|
10089
10207
|
switch($1.h) {
|
|
10090
10208
|
case 0: /* nothing */ return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $d => $d, {a1: $0, a2: {a1: ' cannot get read via `config` command.', a2: {h: 0}}}), $3, $4);
|
|
@@ -10094,7 +10212,7 @@ function Config_with__getConfig_2409($0, $1, $2, $3) {
|
|
|
10094
10212
|
}
|
|
10095
10213
|
|
|
10096
10214
|
/* Config.with block in with block in setConfig */
|
|
10097
|
-
function
|
|
10215
|
+
function Config_with__withx20blockx20inx20setConfig_2295($0, $1, $2, $3, $4, $5, $6) {
|
|
10098
10216
|
return $7 => {
|
|
10099
10217
|
switch($5.h) {
|
|
10100
10218
|
case 0: /* nothing */ return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $10 => $10, {a1: $4, a2: {a1: ' is not a valid value for ', a2: {a1: $1, a2: {a1: '.', a2: {h: 0}}}}}), $6, $7);
|
|
@@ -10104,15 +10222,15 @@ function Config_with__withx20blockx20inx20setConfig_2239($0, $1, $2, $3, $4, $5,
|
|
|
10104
10222
|
}
|
|
10105
10223
|
|
|
10106
10224
|
/* Config.with block in setConfig */
|
|
10107
|
-
function
|
|
10225
|
+
function Config_with__setConfig_2261($0, $1, $2, $3) {
|
|
10108
10226
|
switch($1.h) {
|
|
10109
10227
|
case 0: /* nothing */ return $5 => $6 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1: $0, a2: {a1: ' cannot be set via `config` command.', a2: {h: 0}}}), $5, $6);
|
|
10110
|
-
case undefined: /* just */ return $16 =>
|
|
10228
|
+
case undefined: /* just */ return $16 => Config_with__withx20blockx20inx20setConfig_2295(undefined, $0, $1.a1, $3, $2, Config_propSetter($1.a1, $3)($2), $16);
|
|
10111
10229
|
}
|
|
10112
10230
|
}
|
|
10113
10231
|
|
|
10114
10232
|
/* Config.with block in parseBool */
|
|
10115
|
-
function
|
|
10233
|
+
function Config_with__parseBool_1719($0, $1) {
|
|
10116
10234
|
switch($1) {
|
|
10117
10235
|
case 'yes': return {a1: 1};
|
|
10118
10236
|
case 'true': return {a1: 1};
|
|
@@ -10123,7 +10241,7 @@ function Config_with__parseBool_1717($0, $1) {
|
|
|
10123
10241
|
}
|
|
10124
10242
|
|
|
10125
10243
|
/* Config.with block in dropPrefix',drop' */
|
|
10126
|
-
function
|
|
10244
|
+
function Config_with__dropPrefixx27x2cdropx27_1544($0, $1, $2) {
|
|
10127
10245
|
switch($2.h) {
|
|
10128
10246
|
case 0: /* Yes */ return {a1: $2.a1.a1};
|
|
10129
10247
|
case 1: /* No */ return {h: 0};
|
|
@@ -10131,7 +10249,7 @@ function Config_with__dropPrefixx27x2cdropx27_1542($0, $1, $2) {
|
|
|
10131
10249
|
}
|
|
10132
10250
|
|
|
10133
10251
|
/* Config.case block in parseGitHubURI,parseSuffix */
|
|
10134
|
-
function
|
|
10252
|
+
function Config_case__parseGitHubURIx2cparseSuffix_1605($0, $1, $2) {
|
|
10135
10253
|
const $b = $c => {
|
|
10136
10254
|
switch($c.h) {
|
|
10137
10255
|
case undefined: /* cons */ {
|
|
@@ -10148,63 +10266,63 @@ function Config_case__parseGitHubURIx2cparseSuffix_1603($0, $1, $2) {
|
|
|
10148
10266
|
default: return {h: 0};
|
|
10149
10267
|
}
|
|
10150
10268
|
};
|
|
10151
|
-
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(
|
|
10269
|
+
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_412(), $2.a1)}, $b);
|
|
10152
10270
|
}
|
|
10153
10271
|
|
|
10154
|
-
/* Config.
|
|
10155
|
-
function
|
|
10272
|
+
/* Config.9842:2628:themePrompt */
|
|
10273
|
+
function Config_n__9842_2628_themePrompt($0, $1, $2, $3, $4) {
|
|
10156
10274
|
const $5 = Util_Prompting_enterForDefaultStr('dark');
|
|
10157
10275
|
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($16 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1f => $1f, {a1: 'Would you like harmony configured for a \'dark\' or \'light\' terminal background?', a2: {a1: $5, a2: {h: 0}}})+'\n'), $16)))($28 => Util_Prompting_offerRetry($4, 'The theme must be either \'dark\' or \'light\'. Which would you prefer?', 'Could not parse the input as a valid theme; will use \'dark\' for now.', () => 1, $4.a1.a1.a1(undefined)(undefined)($39 => Data_Theme_parseString(Util_Prompting_orIfEmpty({a1: 'dark'}, Data_String_trim($39))))($4.a2(undefined)($48 => Prelude_IO_prim__getStr($48)))));
|
|
10158
10276
|
}
|
|
10159
10277
|
|
|
10160
|
-
/* Config.
|
|
10161
|
-
function
|
|
10162
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
10278
|
+
/* Config.9842:2627:repo */
|
|
10279
|
+
function Config_n__9842_2627_repo($0, $1, $2, $3, $4) {
|
|
10280
|
+
return Prelude_Types_map_Functor_Maybe(csegen_272()(), $4);
|
|
10163
10281
|
}
|
|
10164
10282
|
|
|
10165
|
-
/* Config.
|
|
10166
|
-
function
|
|
10167
|
-
return
|
|
10283
|
+
/* Config.8839:1585:parseSuffix */
|
|
10284
|
+
function Config_n__8839_1585_parseSuffix($0, $1) {
|
|
10285
|
+
return Config_case__parseGitHubURIx2cparseSuffix_1605($0, $1, Data_String_break$($8 => Prelude_EqOrd_x3dx3d_Eq_Char($8, '.'), $1));
|
|
10168
10286
|
}
|
|
10169
10287
|
|
|
10170
|
-
/* Config.
|
|
10171
|
-
function
|
|
10172
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b =>
|
|
10288
|
+
/* Config.8839:1584:parseSSH */
|
|
10289
|
+
function Config_n__8839_1584_parseSSH($0, $1) {
|
|
10290
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b => Config_n__8839_1585_parseSuffix($0, $b), $1);
|
|
10173
10291
|
}
|
|
10174
10292
|
|
|
10175
|
-
/* Config.
|
|
10176
|
-
function
|
|
10177
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b =>
|
|
10293
|
+
/* Config.8839:1583:parseHTTPS */
|
|
10294
|
+
function Config_n__8839_1583_parseHTTPS($0, $1) {
|
|
10295
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b => Config_n__8839_1585_parseSuffix($0, $b), $1);
|
|
10178
10296
|
}
|
|
10179
10297
|
|
|
10180
|
-
/* Config.
|
|
10181
|
-
function
|
|
10182
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
10298
|
+
/* Config.9842:2626:org */
|
|
10299
|
+
function Config_n__9842_2626_org($0, $1, $2, $3, $4) {
|
|
10300
|
+
return Prelude_Types_map_Functor_Maybe(csegen_418()(), $4);
|
|
10183
10301
|
}
|
|
10184
10302
|
|
|
10185
|
-
/* Config.
|
|
10186
|
-
function
|
|
10303
|
+
/* Config.8548:1302:oneDayAgo */
|
|
10304
|
+
function Config_n__8548_1302_oneDayAgo($0, $1, $2) {
|
|
10187
10305
|
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(Number(_truncUBigInt32((now-86400n)))));
|
|
10188
10306
|
}
|
|
10189
10307
|
|
|
10190
|
-
/* Config.
|
|
10191
|
-
function
|
|
10308
|
+
/* Config.9745:2519:help */
|
|
10309
|
+
function Config_n__9745_2519_help($0, $1) {
|
|
10192
10310
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1.a1)), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $14 => $14, {a1: ': ', a2: {a1: (Data_String_replicate(Prelude_Types_prim__integerToNat((Data_Config_longestSettablePropName()-Prelude_Types_String_length($1.a1))), ' ')+$1.a2), a2: {h: 0}}})));
|
|
10193
10311
|
}
|
|
10194
10312
|
|
|
10195
|
-
/* Config.
|
|
10196
|
-
function
|
|
10197
|
-
return
|
|
10313
|
+
/* Config.8792:1536:drop' */
|
|
10314
|
+
function Config_n__8792_1536_dropx27($0, $1) {
|
|
10315
|
+
return Config_with__dropPrefixx27x2cdropx27_1544($0, $1, Data_List_PrefixSuffix_dropPrefix($8 => $9 => Decidable_Equality_decEq_DecEq_Char($8, $9), Prelude_Types_fastUnpack($0), $1));
|
|
10198
10316
|
}
|
|
10199
10317
|
|
|
10200
|
-
/* Config.
|
|
10201
|
-
function
|
|
10318
|
+
/* Config.9842:2624:commentConfigPrompt */
|
|
10319
|
+
function Config_n__9842_2624_commentConfigPrompt($0, $1, $2, $3, $4) {
|
|
10202
10320
|
const $5 = Util_Prompting_enterForDefaultStr('name');
|
|
10203
10321
|
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($16 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1f => $1f, {a1: 'What kind of comment would you like Harmony to leave when it requests reviewers? [none/name/at-mention]', a2: {a1: $5, a2: {h: 0}}})+'\n'), $16)))($28 => Util_Prompting_offerRetry($4, 'The comment strategy must be \'none\', \'name\', or \'at-mention\'. Which would you prefer?', 'Could not parse the input as a valid option; will use \'name\' for now.', () => 1, $4.a1.a1.a1(undefined)(undefined)($39 => Data_Config_CommentStrategy_parseCommentConfig(Util_Prompting_orIfEmpty({a1: 'name'}, Data_String_trim($39))))($4.a2(undefined)($48 => Prelude_IO_prim__getStr($48)))));
|
|
10204
10322
|
}
|
|
10205
10323
|
|
|
10206
|
-
/* Config.
|
|
10207
|
-
function
|
|
10324
|
+
/* Config.8681:1429:checkRequestSettings */
|
|
10325
|
+
function Config_n__8681_1429_checkRequestSettings($0, $1) {
|
|
10208
10326
|
let $2;
|
|
10209
10327
|
switch($1.a6) {
|
|
10210
10328
|
case 1: {
|
|
@@ -10222,8 +10340,8 @@ function Config_n__8637_1427_checkRequestSettings($0, $1) {
|
|
|
10222
10340
|
}
|
|
10223
10341
|
}
|
|
10224
10342
|
|
|
10225
|
-
/* Config.
|
|
10226
|
-
function
|
|
10343
|
+
/* Config.9842:2623:branchParsingPrompt */
|
|
10344
|
+
function Config_n__9842_2623_branchParsingPrompt($0, $1, $2, $3, $4) {
|
|
10227
10345
|
const $5 = Util_Prompting_enterForDefaultStr('none');
|
|
10228
10346
|
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($16 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1f => $1f, {a1: 'Would you like harmony to parse branch names for \'jira\' slugs or \'github\' issue numbers to use as part of new PR title or body?', a2: {a1: $5, a2: {h: 0}}})+'\n'), $16)))($28 => Util_Prompting_offerRetry($4, 'Branch parsing must be \'none\', \'jira\', or \'github\'. Which would you prefer?', 'Could not parse the input as a valid option; will use \'none\' for now.', () => 0, $4.a1.a1.a1(undefined)(undefined)($39 => Data_Config_ParseBranchStrategy_parseBranchConfig(Util_Prompting_orIfEmpty({a1: 'none'}, Data_String_trim($39))))($4.a2(undefined)($48 => Prelude_IO_prim__getStr($48)))));
|
|
10229
10347
|
}
|
|
@@ -10260,7 +10378,7 @@ function Config_syncIfOld($0, $1, $2, $3) {
|
|
|
10260
10378
|
case 0: return $1b => Data_Promise_pure_Applicative_x28Promisex20x24ex29($1, $e, $1b);
|
|
10261
10379
|
}
|
|
10262
10380
|
};
|
|
10263
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10381
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__8548_1302_oneDayAgo($0, $1, csegen_48()()), $c, $2, $3);
|
|
10264
10382
|
}
|
|
10265
10383
|
|
|
10266
10384
|
/* Config.syncConfig : Config => Octokit => Bool -> Promise' Config */
|
|
@@ -10270,12 +10388,12 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
10270
10388
|
const $39 = labelNames => $3a => $3b => {
|
|
10271
10389
|
const $49 = githubUser => $4a => $4b => {
|
|
10272
10390
|
const $50 = updatedAt => {
|
|
10273
|
-
const $51 = {a1: updatedAt, 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:
|
|
10274
|
-
return $
|
|
10391
|
+
const $51 = {a1: updatedAt, 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: teamSlugs, a12: labelNames, a13: orgMembers, a14: $0.a14, a15: $0.a15, a16: {a1: githubUser}, a17: $0.a17, a18: $0.a18};
|
|
10392
|
+
return $66 => $67 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6a => $6b => Data_Promise_map_Functor_x28Promisex20x24ex29($6e => undefined, $70 => $71 => Config_writeConfig($51, $70, $71), $6a, $6b), $79 => $7a => $7b => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_40()(), $2, () => $84 => $85 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($88 => $89 => $8a => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($8d => Prelude_IO_prim__putStr('Your updated configuration is:\n', $8d), $88, $89, $8a), $95 => $96 => $97 => $98 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($9b => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($51)+'\n'), $9b), $96, $97, $98), $84, $85)), $a9 => $aa => $ab => Data_Promise_pure_Applicative_x28Promisex20x24ex29($51, $aa, $ab), $7a, $7b), $66, $67);
|
|
10275
10393
|
};
|
|
10276
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10394
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_431()(), $50, $4a, $4b);
|
|
10277
10395
|
};
|
|
10278
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10396
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_418()(), FFI_GitHub_getSelf($1), $3e, $3f), $49, $3a, $3b);
|
|
10279
10397
|
};
|
|
10280
10398
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2f => $30 => FFI_GitHub_listRepoLabels($1, $0.a2, $0.a3, $2f, $30), $39, $2b, $2c);
|
|
10281
10399
|
};
|
|
@@ -10286,26 +10404,27 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
10286
10404
|
|
|
10287
10405
|
/* Config.settablePropsWithHelp : Config => String */
|
|
10288
10406
|
function Config_settablePropsWithHelp($0) {
|
|
10289
|
-
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 =>
|
|
10407
|
+
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 => Config_n__9745_2519_help($0, $9), Data_Config_settablePropNamesAndHelp())));
|
|
10290
10408
|
}
|
|
10291
10409
|
|
|
10292
10410
|
/* Config.setConfig : Config => String -> String -> Promise' Config */
|
|
10293
10411
|
function Config_setConfig($0, $1, $2) {
|
|
10294
|
-
return
|
|
10412
|
+
return Config_with__setConfig_2261($1, Data_Config_settablePropNamed($1), $2, $0);
|
|
10295
10413
|
}
|
|
10296
10414
|
|
|
10297
10415
|
/* Config.propSetter : SettableProp n h -> Config -> String -> Maybe Config */
|
|
10298
10416
|
function Config_propSetter($0, $1) {
|
|
10299
10417
|
return $2 => {
|
|
10300
10418
|
switch($0) {
|
|
10301
|
-
case 0: return Config_update(
|
|
10302
|
-
case 1: return Config_update(
|
|
10303
|
-
case 2: return Config_update(
|
|
10304
|
-
case 3: return Config_update(
|
|
10305
|
-
case 4: return Config_update(
|
|
10306
|
-
case 5: return Config_update(
|
|
10307
|
-
case 6: return Config_update(
|
|
10308
|
-
case 7: return Config_update(
|
|
10419
|
+
case 0: return Config_update(csegen_436(), $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, a15: $c.a15, a16: $c.a16, a17: $c.a17, a18: $c.a18}), $1, $2);
|
|
10420
|
+
case 1: return Config_update(csegen_436(), $26 => Config_parseBool($26), b => $2a => ({a1: $2a.a1, a2: $2a.a2, a3: $2a.a3, a4: $2a.a4, a5: $2a.a5, a6: $2a.a6, a7: b, a8: $2a.a8, a9: $2a.a9, a10: $2a.a10, a11: $2a.a11, a12: $2a.a12, a13: $2a.a13, a14: $2a.a14, a15: $2a.a15, a16: $2a.a16, a17: $2a.a17, a18: $2a.a18}), $1, $2);
|
|
10421
|
+
case 2: return Config_update(csegen_436(), $44 => Data_Config_CommentStrategy_parseCommentConfig(Data_String_toLower($44)), b => $4a => ({a1: $4a.a1, a2: $4a.a2, a3: $4a.a3, a4: $4a.a4, a5: $4a.a5, a6: $4a.a6, a7: $4a.a7, a8: b, a9: $4a.a9, a10: $4a.a10, a11: $4a.a11, a12: $4a.a12, a13: $4a.a13, a14: $4a.a14, a15: $4a.a15, a16: $4a.a16, a17: $4a.a17, a18: $4a.a18}), $1, $2);
|
|
10422
|
+
case 3: return Config_update(csegen_436(), $64 => Data_Config_ParseBranchStrategy_parseBranchConfig(Data_String_toLower($64)), s => $6a => ({a1: $6a.a1, a2: $6a.a2, a3: $6a.a3, a4: $6a.a4, a5: $6a.a5, a6: $6a.a6, a7: $6a.a7, a8: $6a.a8, a9: s, a10: $6a.a10, a11: $6a.a11, a12: $6a.a12, a13: $6a.a13, a14: $6a.a14, a15: $6a.a15, a16: $6a.a16, a17: $6a.a17, a18: $6a.a18}), $1, $2);
|
|
10423
|
+
case 4: return Config_update(csegen_436(), $84 => Config_parseBool($84), b => $88 => ({a1: $88.a1, a2: $88.a2, a3: $88.a3, a4: $88.a4, a5: $88.a5, a6: $88.a6, a7: $88.a7, a8: $88.a8, a9: $88.a9, a10: b, a11: $88.a11, a12: $88.a12, a13: $88.a13, a14: $88.a14, a15: $88.a15, a16: $88.a16, a17: $88.a17, a18: $88.a18}), $1, $2);
|
|
10424
|
+
case 5: return Config_update(csegen_436(), $a2 => ({a1: $a2}), s => $a5 => ({a1: $a5.a1, a2: $a5.a2, a3: $a5.a3, a4: s, a5: $a5.a5, a6: $a5.a6, a7: $a5.a7, a8: $a5.a8, a9: $a5.a9, a10: $a5.a10, a11: $a5.a11, a12: $a5.a12, a13: $a5.a13, a14: $a5.a14, a15: $a5.a15, a16: $a5.a16, a17: $a5.a17, a18: $a5.a18}), $1, $2);
|
|
10425
|
+
case 6: return Config_update(csegen_436(), $bf => ({a1: $bf}), s => $c2 => ({a1: $c2.a1, a2: $c2.a2, a3: $c2.a3, a4: $c2.a4, a5: s, a6: $c2.a6, a7: $c2.a7, a8: $c2.a8, a9: $c2.a9, a10: $c2.a10, a11: $c2.a11, a12: $c2.a12, a13: $c2.a13, a14: $c2.a14, a15: $c2.a15, a16: $c2.a16, a17: $c2.a17, a18: $c2.a18}), $1, $2);
|
|
10426
|
+
case 7: return Config_update(csegen_436(), $dc => Data_Theme_parseString($dc), t => $e0 => ({a1: $e0.a1, a2: $e0.a2, a3: $e0.a3, a4: $e0.a4, a5: $e0.a5, a6: $e0.a6, a7: $e0.a7, a8: $e0.a8, a9: $e0.a9, a10: $e0.a10, a11: $e0.a11, a12: $e0.a12, a13: $e0.a13, a14: $e0.a14, a15: $e0.a15, a16: $e0.a16, a17: t, a18: $e0.a18}), $1, $2);
|
|
10427
|
+
case 8: return Config_update(csegen_436(), $fa => ({a1: $fa}), s => $fd => ({a1: $fd.a1, a2: $fd.a2, a3: $fd.a3, a4: $fd.a4, a5: $fd.a5, a6: $fd.a6, a7: $fd.a7, a8: $fd.a8, a9: $fd.a9, a10: $fd.a10, a11: $fd.a11, a12: $fd.a12, a13: $fd.a13, a14: $fd.a14, a15: {a1: s}, a16: $fd.a16, a17: $fd.a17, a18: $fd.a18}), $1, $2);
|
|
10309
10428
|
}
|
|
10310
10429
|
};
|
|
10311
10430
|
}
|
|
@@ -10317,10 +10436,11 @@ function Config_propGetter($0, $1) {
|
|
|
10317
10436
|
case 1: return Prelude_Show_show_Show_Bool($1.a7);
|
|
10318
10437
|
case 2: return Data_Config_CommentStrategy_show_Show_CommentStrategy($1.a8);
|
|
10319
10438
|
case 3: return Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($1.a9);
|
|
10320
|
-
case 4: return
|
|
10321
|
-
case 5: return Prelude_Show_show_Show_String($1.
|
|
10322
|
-
case 6: return
|
|
10323
|
-
case 7: return
|
|
10439
|
+
case 4: return Prelude_Show_show_Show_Bool($1.a10);
|
|
10440
|
+
case 5: return Prelude_Show_show_Show_String($1.a4);
|
|
10441
|
+
case 6: return Prelude_Show_show_Show_String($1.a5);
|
|
10442
|
+
case 7: return Data_Theme_show_Show_Theme($1.a17);
|
|
10443
|
+
case 8: return Prelude_Types_maybe(() => 'Not set (will use $GITHUB_PAT or $GH_TOKEN environment variable)', () => x => Data_Config_show_Show_x28Hiddenx20x24ax29(x), $1.a15);
|
|
10324
10444
|
}
|
|
10325
10445
|
}
|
|
10326
10446
|
|
|
@@ -10335,12 +10455,12 @@ function Config_preferOriginRemote($0) {
|
|
|
10335
10455
|
|
|
10336
10456
|
/* Config.parseGitHubURI : String -> Maybe GitRemote */
|
|
10337
10457
|
function Config_parseGitHubURI($0) {
|
|
10338
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
10458
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(Config_n__8839_1583_parseHTTPS($0, $0), () => Config_n__8839_1584_parseSSH($0, $0));
|
|
10339
10459
|
}
|
|
10340
10460
|
|
|
10341
10461
|
/* Config.parseBool : String -> Maybe Bool */
|
|
10342
10462
|
function Config_parseBool($0) {
|
|
10343
|
-
return
|
|
10463
|
+
return Config_with__parseBool_1719($0, Data_String_toLower($0));
|
|
10344
10464
|
}
|
|
10345
10465
|
|
|
10346
10466
|
/* Config.nonOrgFallback : Lazy a -> Promise OrgError a -> Promise String a */
|
|
@@ -10381,7 +10501,7 @@ function Config_loadOrCreateConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10381
10501
|
|
|
10382
10502
|
/* Config.loadConfig : HasIO io => Bool -> Nat -> Maybe String -> io (Either ConfigError Config) */
|
|
10383
10503
|
function Config_loadConfig($0, $1, $2, $3) {
|
|
10384
|
-
const $4 = $5 => $6 => Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1,
|
|
10504
|
+
const $4 = $5 => $6 => Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, csegen_241(), csegen_262(), $5, $6);
|
|
10385
10505
|
const $1c = $1d => {
|
|
10386
10506
|
const $1e = Data_Either_maybeToEither(() => ({h: 3 /* FileNotFound */}), $1d);
|
|
10387
10507
|
switch($1e.h) {
|
|
@@ -10424,7 +10544,7 @@ function Config_loadConfig($0, $1, $2, $3) {
|
|
|
10424
10544
|
|
|
10425
10545
|
/* Config.getConfig : Config => String -> Promise' String */
|
|
10426
10546
|
function Config_getConfig($0, $1) {
|
|
10427
|
-
return $2 =>
|
|
10547
|
+
return $2 => Config_with__getConfig_2476($1, Data_Config_settablePropNamed($1), $0, $2);
|
|
10428
10548
|
}
|
|
10429
10549
|
|
|
10430
10550
|
/* Config.findConfig : HasIO io => String -> Fuel -> io (Maybe String) */
|
|
@@ -10446,7 +10566,7 @@ function Config_findConfig($0, $1, $2) {
|
|
|
10446
10566
|
|
|
10447
10567
|
/* Config.dropPrefix' : String -> String -> Maybe String */
|
|
10448
10568
|
function Config_dropPrefixx27($0, $1) {
|
|
10449
|
-
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4),
|
|
10569
|
+
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4), Config_n__8792_1536_dropx27($0, Prelude_Types_fastUnpack($1)));
|
|
10450
10570
|
}
|
|
10451
10571
|
|
|
10452
10572
|
/* Config.createConfig : Maybe String -> Bool -> Nat -> Maybe String -> Promise' Config */
|
|
@@ -10463,7 +10583,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10463
10583
|
default: return {a1: Data_String_trim($65)};
|
|
10464
10584
|
}
|
|
10465
10585
|
};
|
|
10466
|
-
return Data_Promise_map_Functor_x28Promisex20x24ex29($64,
|
|
10586
|
+
return Data_Promise_map_Functor_x28Promisex20x24ex29($64, csegen_460()(), $61, $62);
|
|
10467
10587
|
};
|
|
10468
10588
|
const $71 = configPAT => $72 => $73 => {
|
|
10469
10589
|
const $7f = $80 => $81 => $82 => {
|
|
@@ -10498,10 +10618,10 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10498
10618
|
const $1d4 = orgMembers => $1d5 => $1d6 => {
|
|
10499
10619
|
const $1e1 = repoLabels => $1e2 => $1e3 => {
|
|
10500
10620
|
const $1f1 = githubUser => {
|
|
10501
|
-
const $1f2 = {a1: updatedAt, a2: org, a3: repo, a4: defaultRemote, a5: mainBranch, a6: requestTeams, a7: requestUsers, a8: commentOnRequest, a9: branchParsing, a10:
|
|
10502
|
-
return $
|
|
10621
|
+
const $1f2 = {a1: updatedAt, a2: org, a3: repo, a4: defaultRemote, a5: mainBranch, a6: requestTeams, a7: requestUsers, a8: commentOnRequest, a9: branchParsing, a10: 0, a11: teamSlugs, a12: repoLabels, a13: orgMembers, a14: {h: 0}, a15: Prelude_Types_map_Functor_Maybe($204 => $204, configPAT), a16: {a1: githubUser}, a17: theme, a18: $19e};
|
|
10622
|
+
return $20a => $20b => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($20e => $20f => Data_Promise_map_Functor_x28Promisex20x24ex29($212 => undefined, $214 => $215 => Config_writeConfig($1f2, $214, $215), $20e, $20f), $21d => $21e => $21f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($222 => $223 => $224 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($227 => Prelude_IO_prim__putStr('Your new configuration is:\n', $227), $222, $223, $224), $22f => $230 => $231 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($234 => $235 => $236 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($239 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($1f2)+'\n'), $239), $234, $235, $236), $245 => $246 => $247 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Types_either(() => $24c => Util_renderIO($1f2, csegen_48()(), $24c), () => csegen_35()(), Config_checkConfigConsistency($1f2)), $25a => $25b => $25c => Data_Promise_pure_Applicative_x28Promisex20x24ex29($1f2, $25b, $25c), $246, $247), $230, $231), $21e, $21f), $20a, $20b);
|
|
10503
10623
|
};
|
|
10504
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e6 => $1e7 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10624
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e6 => $1e7 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_418()(), FFI_GitHub_getSelf(_), $1e6, $1e7), $1f1, $1e2, $1e3);
|
|
10505
10625
|
};
|
|
10506
10626
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d9 => $1da => FFI_GitHub_listRepoLabels(_, org, repo, $1d9, $1da), $1e1, $1d5, $1d6);
|
|
10507
10627
|
};
|
|
@@ -10510,7 +10630,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10510
10630
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1b3 => $1b4 => Config_nonOrgFallback(() => ({h: 0}), $1b8 => $1b9 => FFI_GitHub_listTeams(_, org, $1b8, $1b9), $1b3, $1b4), $1c1, $1af, $1b0);
|
|
10511
10631
|
};
|
|
10512
10632
|
};
|
|
10513
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10633
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_431()(), $19d, $197, $198);
|
|
10514
10634
|
};
|
|
10515
10635
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($18e => $18f => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $18e, $18f), $196, $18a, $18b);
|
|
10516
10636
|
};
|
|
@@ -10518,41 +10638,41 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10518
10638
|
};
|
|
10519
10639
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($16b => $16c => $16d => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($170 => FFI_GitHub_octokit($80.a1, $170), $16b, $16c, $16d), $177, $167, $168);
|
|
10520
10640
|
};
|
|
10521
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10641
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_458()(), $165, $15f, $160);
|
|
10522
10642
|
};
|
|
10523
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10643
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9842_2628_themePrompt($3, $2, $1, $0, csegen_48()()), $15e, $152, $153);
|
|
10524
10644
|
};
|
|
10525
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10645
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_458()(), $150, $14a, $14b);
|
|
10526
10646
|
};
|
|
10527
10647
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_48()(), 1, 'Would you like harmony to request reviews from individual users when it requests a teams review?'), $149, $13f, $140);
|
|
10528
10648
|
};
|
|
10529
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10649
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_458()(), $13d, $137, $138);
|
|
10530
10650
|
};
|
|
10531
10651
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_48()(), 1, 'Would you like harmony to request reviews from teams when it requests reviewers?'), $136, $12c, $12d);
|
|
10532
10652
|
};
|
|
10533
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10653
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_458()(), $12a, $124, $125);
|
|
10534
10654
|
};
|
|
10535
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10655
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9842_2623_branchParsingPrompt($3, $2, $1, $0, csegen_48()()), $123, $117, $118);
|
|
10536
10656
|
};
|
|
10537
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10657
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_458()(), $115, $10f, $110);
|
|
10538
10658
|
};
|
|
10539
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10659
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9842_2624_commentConfigPrompt($3, $2, $1, $0, csegen_48()()), $10e, $102, $103);
|
|
10540
10660
|
};
|
|
10541
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10661
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_458()(), $100, $fa, $fb);
|
|
10542
10662
|
};
|
|
10543
10663
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What GitHub remote repo would you like to use harmony for?', {a1: remoteGuess}), $f9, $ee, $ef);
|
|
10544
10664
|
};
|
|
10545
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10665
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_458()(), $ec, $e6, $e7);
|
|
10546
10666
|
};
|
|
10547
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What repository would you like to use harmony for?',
|
|
10667
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What repository would you like to use harmony for?', Config_n__9842_2627_repo($3, $2, $1, $0, defaultOrgAndRepo)), $e5, $d5, $d6);
|
|
10548
10668
|
};
|
|
10549
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10669
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_458()(), $d3, $cd, $ce);
|
|
10550
10670
|
};
|
|
10551
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What GitHub org would you like to use harmony for?',
|
|
10671
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What GitHub org would you like to use harmony for?', Config_n__9842_2626_org($3, $2, $1, $0, defaultOrgAndRepo)), $cc, $bc, $bd);
|
|
10552
10672
|
};
|
|
10553
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10673
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_458()(), $ba, $b4, $b5);
|
|
10554
10674
|
};
|
|
10555
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9a => $9b => Data_Promise_x3cx7cx3e_Alternative_x28Promisex20Stringx29($9e => $9f => Data_Promise_map_Functor_x28Promisex20x24ex29($a2 => Config_parseGitHubURI($a2), $a6 => $a7 => System_Git_remoteURI(remoteGuess, $a6, $a7), $9e, $9f), () =>
|
|
10675
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9a => $9b => Data_Promise_x3cx7cx3e_Alternative_x28Promisex20Stringx29($9e => $9f => Data_Promise_map_Functor_x28Promisex20x24ex29($a2 => Config_parseGitHubURI($a2), $a6 => $a7 => System_Git_remoteURI(remoteGuess, $a6, $a7), $9e, $9f), () => csegen_464()(), $9a, $9b), $b3, $96, $97);
|
|
10556
10676
|
};
|
|
10557
10677
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($86 => $87 => Data_Promise_map_Functor_x28Promisex20x24ex29($8a => Config_preferOriginRemote($8a), $8e => $8f => System_Git_listRemotes($8e, $8f), $86, $87), $95, $81, $82);
|
|
10558
10678
|
}
|
|
@@ -10567,19 +10687,19 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10567
10687
|
};
|
|
10568
10688
|
return $2e();
|
|
10569
10689
|
};
|
|
10570
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10690
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_458()(), $2c, $26, $27);
|
|
10571
10691
|
};
|
|
10572
10692
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8 => $9 => $a => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $16 => $16, {a1: 'Creating a new configuration (storing in ', a2: {a1: Data_Config_filename(), a2: {a1: ')...', a2: {h: 0}}}})+'\n'), $d), $8, $9, $a), $24, $4, $5);
|
|
10573
10693
|
}
|
|
10574
10694
|
|
|
10575
10695
|
/* Config.checkConfigConsistency : Config -> Either (Doc AnsiStyle) () */
|
|
10576
10696
|
function Config_checkConfigConsistency($0) {
|
|
10577
|
-
return
|
|
10697
|
+
return Config_n__8681_1429_checkRequestSettings($0, $0);
|
|
10578
10698
|
}
|
|
10579
10699
|
|
|
10580
10700
|
/* Config.addIgnoredPRs : Config -> List Integer -> Promise' Config */
|
|
10581
10701
|
function Config_addIgnoredPRs($0, $1, $2, $3) {
|
|
10582
|
-
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: $0.a12, a13: Data_List_nub(
|
|
10702
|
+
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: $0.a12, a13: $0.a13, a14: Data_List_nub(csegen_377(), Prelude_Types_List_tailRecAppend($0.a14, $1)), a15: $0.a15, a16: $0.a16, a17: $0.a17, a18: $0.a18}, $2, $3);
|
|
10583
10703
|
}
|
|
10584
10704
|
|
|
10585
10705
|
/* Data.List.PrefixSuffix.with block in with block in dropPrefix */
|
|
@@ -10631,21 +10751,21 @@ function AppVersion_printVersion($0) {
|
|
|
10631
10751
|
|
|
10632
10752
|
/* AppVersion.appVersion : String */
|
|
10633
10753
|
const AppVersion_appVersion = __lazy(function () {
|
|
10634
|
-
return '6.
|
|
10754
|
+
return '6.4.0';
|
|
10635
10755
|
});
|
|
10636
10756
|
|
|
10637
10757
|
/* Commands.Help.subcommandHelp' : String -> Doc AnsiStyle */
|
|
10638
10758
|
function Commands_Help_subcommandHelpx27($0) {
|
|
10639
10759
|
switch($0) {
|
|
10640
|
-
case 'label': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<label>'), a2:
|
|
10641
|
-
case 'request': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<team-slug> | +<user-login>'), a2:
|
|
10760
|
+
case 'label': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<label>'), a2: csegen_478()}, {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Util_reflow('Add one or more labels to a PR, creating a new PR if one does not exist.'), Text_PrettyPrint_Prettyprinter_Doc_line()), Text_PrettyPrint_Prettyprinter_Util_reflow('Labels that do not exist yet will be created automatically.')), a2: {h: 0}});
|
|
10761
|
+
case 'request': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<team-slug> | +<user-login>'), a2: csegen_483()}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $2b => $2b, {a1: 'Request review from the given team(s) and one lucky member from one\nof those teams to review the PR for the current branch.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $38 => $38, {a1: 'Also request reviews from any users with logins specified. You specify\nthese additional users by prefixing their logins with \'+\'.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally apply any number of labels by prefixing them with \'#\'.'), a2: {h: 0}}}});
|
|
10642
10762
|
case 'config': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<property>'), a2: {a1: Commands_Help_argument(0, '<value>'), a2: {h: 0}}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $5f => $5f, {a1: 'Get or set the value of a configuration property. Not all properties\ncan be set and read via this subcommand.', a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_line()), Commands_Help_argumentx27('properties')), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(':'), a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_align(Text_PrettyPrint_Prettyprinter_Doc_concatWith(a => b => Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(a, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(','), a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_softline()), b), Prelude_Types_List_mapAppend({h: 0}, $88 => Commands_Help_option($88), Data_Config_settablePropNames())))), a2: {h: 0}});
|
|
10643
|
-
case 'pr': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--ready'), a2: {a1: Commands_Help_argument(0, '--draft'), a2: {a1: Commands_Help_argument(0, '-i/--into {<branch-name>}'), a2:
|
|
10644
|
-
case 'contribute': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '-c/--checkout | -l/--list'), a2: {a1: Commands_Help_argument(0, '-<num>'), a2: {a1: Commands_Help_argument(0, '-i/--ignore {<uri>/<pr-number>}'), a2: {h: 0}}}}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $
|
|
10763
|
+
case 'pr': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--ready'), a2: {a1: Commands_Help_argument(0, '--draft'), a2: {a1: Commands_Help_argument(0, '-i/--into {<branch-name>}'), a2: {a1: Commands_Help_argument(0, '--print-result'), a2: csegen_483()}}}}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Identify an existing PR or create a new one for the current branch.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally apply any number of labels by prefixing them with \'#\'.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally mark a new or existing PR as a draft with the --draft flag.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally mark an existing PR as ready for review with the --ready flag.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally specify the branch to merge into with the --into option.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally print a pr tree with the --print-tree flag.'), a2: {h: 0}}}}}}});
|
|
10764
|
+
case 'contribute': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '-c/--checkout | -l/--list'), a2: {a1: Commands_Help_argument(0, '-<num>'), a2: {a1: Commands_Help_argument(0, '-i/--ignore {<uri>/<pr-number>}'), a2: {h: 0}}}}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $da => $da, {a1: 'Contribute to an open PR. Prints a URL. Prioritizes PRs you are\nrequested to review but will also return other PRs.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e7 => $e7, {a1: 'Use dash followed by a number (e.g. \'-3\') to skip that number of\npotential PRs and return the next.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $f4 => $f4, {a1: 'Specify a PR to ignore (only affects the local Harmony config on\nthis machine) if you would like to more permanently skip a potential\nPR. Do this with the \'--ignore\' option followed by a GitHub URI or\nPull Request number.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $101 => $101, {a1: 'Use --list to list multiple PRs instead of just one. This option \nsupports skipping PRs but does not support the checkout option because\nthere is no single PR that should be checked out.', a2: {h: 0}})), a2: {h: 0}}}}});
|
|
10645
10765
|
case 'graph': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '-c/--completed'), a2: {a1: Commands_Help_argument(1, '<team-slug>'), a2: {h: 0}}}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Graph the relative review workload of the members of the given GitHub Team.'), a2: {h: 0}});
|
|
10646
10766
|
case 'help': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '<subcommand>'), a2: {h: 0}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print help'), a2: {h: 0}});
|
|
10647
10767
|
case 'version': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print version'), a2: {h: 0}});
|
|
10648
|
-
case 'quick': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--bugfix'), a2: {a1: Commands_Help_argument(0, '<title> | #<issue-number>'), a2:
|
|
10768
|
+
case 'quick': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--bugfix'), a2: {a1: Commands_Help_argument(0, '<title> | #<issue-number>'), a2: csegen_478()}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Quickly spin up new work with a GitHub issue and associated feature branch. If you have harmony configured to parse GitHub issue numbers ('), a2: {a1: Commands_Help_shell('harmony config branchParsing github'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(') then any PR created from the new branch will automatically link to the new ticket in its description.'), a2: {h: 0}}}}), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $154 => $154, {a1: 'By default the branch will have the \'feature\' prefix. If the\n--bugfix flag is specified, the \'bugfix\' prefix will be used.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $161 => $161, {a1: 'If your only argument (possibly in addition to the bugfix flag) is\n#<issue-number> for an existing GitHub issue then the new branch will\npoint at that existing issue. Otherwise, all additional arguments other\nthan --bugfix will be used as the issue title. If you don\'t give any\narguments then you will be prompted to enter the issue title\ninteractively. You will also be prompted for the issue description.', a2: {h: 0}})), a2: {h: 0}}}});
|
|
10649
10769
|
case 'sync': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Synchronize local config with information from GitHub.'), a2: {h: 0}});
|
|
10650
10770
|
case 'branch': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print the GitHub URI for the currently checked out branch.'), a2: {h: 0}});
|
|
10651
10771
|
case 'whoami': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Print information about the configured and authenticated user.'), a2: {h: 0}});
|
|
@@ -10653,7 +10773,7 @@ function Commands_Help_subcommandHelpx27($0) {
|
|
|
10653
10773
|
case 'list': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '<team-slug>'), a2: {h: 0}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('List all teams or the members of the given GitHub Team.'), a2: {h: 0}});
|
|
10654
10774
|
case 'health': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Graph all open PRs grouped by the month they were created.'), a2: {h: 0}});
|
|
10655
10775
|
case 'rq': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Alias for \'request\' command.'), a2: {h: 0}});
|
|
10656
|
-
default: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $
|
|
10776
|
+
default: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1aa => $1aa, {a1: 'Unreconized command: ', a2: {a1: $0, a2: {h: 0}}}));
|
|
10657
10777
|
}
|
|
10658
10778
|
}
|
|
10659
10779
|
|
|
@@ -10759,7 +10879,7 @@ function Text_PrettyPrint_Prettyprinter_Util_reflow($0) {
|
|
|
10759
10879
|
}
|
|
10760
10880
|
|
|
10761
10881
|
/* Commands.case block in parseContributeArgs,parseSkipArg */
|
|
10762
|
-
function
|
|
10882
|
+
function Commands_case__parseContributeArgsx2cparseSkipArg_22440($0, $1, $2) {
|
|
10763
10883
|
switch($2.h) {
|
|
10764
10884
|
case undefined: /* cons */ {
|
|
10765
10885
|
switch($2.a1) {
|
|
@@ -10772,7 +10892,7 @@ function Commands_case__parseContributeArgsx2cparseSkipArg_22566($0, $1, $2) {
|
|
|
10772
10892
|
}
|
|
10773
10893
|
|
|
10774
10894
|
/* Commands.case block in case block in graph */
|
|
10775
|
-
function
|
|
10895
|
+
function Commands_case__casex20blockx20inx20graph_22174($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10776
10896
|
return $9 => {
|
|
10777
10897
|
const $c = $d => $e => {
|
|
10778
10898
|
switch(Data_Maybe_isJust($3)) {
|
|
@@ -10780,22 +10900,22 @@ function Commands_case__casex20blockx20inx20graph_22300($0, $1, $2, $3, $4, $5,
|
|
|
10780
10900
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 0}, $d, $e);
|
|
10781
10901
|
}
|
|
10782
10902
|
};
|
|
10783
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c, completedReviews => Util_renderIO($2, csegen_48()(), Commands_Graph_reviewsGraph($2, $2e => Commands_Graph_length_HasLength_String($2e),
|
|
10903
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c, completedReviews => Util_renderIO($2, csegen_48()(), Commands_Graph_reviewsGraph($2, $2e => Commands_Graph_length_HasLength_String($2e), csegen_374(), {a1: ann => $35 => Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($35), a2: ann => $39 => $3a => Text_PrettyPrint_Prettyprinter_Doc_prettyPrec_Pretty_String($39, $3a)}, $7.a2, $7.a1, $5, completedReviews)), $8, $9);
|
|
10784
10904
|
};
|
|
10785
10905
|
}
|
|
10786
10906
|
|
|
10787
10907
|
/* Commands.case block in graph */
|
|
10788
|
-
function
|
|
10908
|
+
function Commands_case__graph_22130($0, $1, $2, $3, $4, $5) {
|
|
10789
10909
|
return $6 => {
|
|
10790
10910
|
switch($4.h) {
|
|
10791
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => FFI_GitHub_forceListTeamMembers($0, $2.a2, $4.a1, $a, $b), teamMemberLogins => $14 => $15 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_listPartitionedPRs($2, $0, 4n, 100n), prs => $1e =>
|
|
10911
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => FFI_GitHub_forceListTeamMembers($0, $2.a2, $4.a1, $a, $b), teamMemberLogins => $14 => $15 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_listPartitionedPRs($2, $0, 4n, 100n), prs => $1e => Commands_case__casex20blockx20inx20graph_22174($0, $1, $2, $3, $4.a1, teamMemberLogins, prs, Commands_PullRequest_rf__allReviewers(prs), $1e), $14, $15), $5, $6);
|
|
10792
10912
|
case 0: /* nothing */ return Data_Promise_reject('The graph command expects the name of a GitHub Team as an argument.', $5, $6);
|
|
10793
10913
|
}
|
|
10794
10914
|
};
|
|
10795
10915
|
}
|
|
10796
10916
|
|
|
10797
10917
|
/* Commands.case block in request */
|
|
10798
|
-
function
|
|
10918
|
+
function Commands_case__request_21598($0, $1, $2, $3, $4) {
|
|
10799
10919
|
return $6 => $8 => {
|
|
10800
10920
|
let $9;
|
|
10801
10921
|
switch(Prelude_Types_null_Foldable_List($4.a1)) {
|
|
@@ -10844,47 +10964,47 @@ function Commands_case__request_21539($0, $1, $2, $3, $4) {
|
|
|
10844
10964
|
case 1: /* Hypothetical */ return Data_Promise_reject('You cannot request review on a PR that has not been created yet and you cannot create the PR in this non-TTY shell', $2a, $2b);
|
|
10845
10965
|
}
|
|
10846
10966
|
};
|
|
10847
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10967
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_655(), $1b => $1c => $1d => Commands_PullRequest_identifyOrCreatePR($0, $1, 0, {h: 0}, $1b, $1c, $1d), $15, $16), $28, $6, $8);
|
|
10848
10968
|
}
|
|
10849
10969
|
}
|
|
10850
10970
|
};
|
|
10851
10971
|
}
|
|
10852
10972
|
|
|
10853
10973
|
/* Commands.case block in case block in request,partitionedArgs */
|
|
10854
|
-
function
|
|
10855
|
-
const $8 = Prelude_Interfaces_mapHom(
|
|
10974
|
+
function Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_21522($0, $1, $2, $3, $4, $5, $6) {
|
|
10975
|
+
const $8 = Prelude_Interfaces_mapHom(csegen_669(), $e => Prelude_Types_List_mapAppend({h: 0}, $12 => Data_String_Extra_drop(1n, $12), $e))({a1: $4, a2: $6.a1});
|
|
10856
10976
|
return {a1: $8.a1, a2: {a1: $6.a2, a2: $8.a2}};
|
|
10857
10977
|
}
|
|
10858
10978
|
|
|
10859
10979
|
/* Commands.case block in request,partitionedArgs */
|
|
10860
|
-
function
|
|
10861
|
-
return
|
|
10980
|
+
function Commands_case__requestx2cpartitionedArgs_21501($0, $1, $2, $3, $4) {
|
|
10981
|
+
return Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_21522($0, $1, $2, $3, $4.a1, $4.a2, Data_List_partition($10 => Util_String_isHashPrefix($10), $4.a2));
|
|
10862
10982
|
}
|
|
10863
10983
|
|
|
10864
|
-
/* Commands.
|
|
10865
|
-
function
|
|
10984
|
+
/* Commands.9120:20480:recombineIntoArgs */
|
|
10985
|
+
function Commands_n__9120_20480_recombineIntoArgs($0, $1) {
|
|
10866
10986
|
switch($1.h) {
|
|
10867
10987
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
10868
10988
|
case undefined: /* cons */ {
|
|
10869
10989
|
switch($1.a1) {
|
|
10870
10990
|
case '-i': {
|
|
10871
10991
|
switch($1.a2.h) {
|
|
10872
|
-
case 0: /* nil */ return
|
|
10992
|
+
case 0: /* nil */ return csegen_673();
|
|
10873
10993
|
case undefined: /* cons */ {
|
|
10874
|
-
const $8 =
|
|
10994
|
+
const $8 = Commands_n__9120_20476_parseIntoOpt($0, $1.a2.a1);
|
|
10875
10995
|
switch($8.h) {
|
|
10876
10996
|
case undefined: /* just */ {
|
|
10877
|
-
const $c =
|
|
10997
|
+
const $c = Commands_n__9120_20480_recombineIntoArgs($0, $1.a2.a2);
|
|
10878
10998
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
10879
10999
|
}
|
|
10880
11000
|
case 0: /* nothing */ {
|
|
10881
|
-
const $14 =
|
|
11001
|
+
const $14 = Commands_n__9120_20480_recombineIntoArgs($0, $1.a2.a2);
|
|
10882
11002
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
10883
11003
|
}
|
|
10884
11004
|
}
|
|
10885
11005
|
}
|
|
10886
11006
|
default: {
|
|
10887
|
-
const $1e =
|
|
11007
|
+
const $1e = Commands_n__9120_20480_recombineIntoArgs($0, $1.a2);
|
|
10888
11008
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
10889
11009
|
}
|
|
10890
11010
|
}
|
|
@@ -10893,26 +11013,26 @@ function Commands_n__9040_20478_recombineIntoArgs($0, $1) {
|
|
|
10893
11013
|
switch($1.a2.h) {
|
|
10894
11014
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--into', a2: {h: 0}}};
|
|
10895
11015
|
case undefined: /* cons */ {
|
|
10896
|
-
const $2b =
|
|
11016
|
+
const $2b = Commands_n__9120_20476_parseIntoOpt($0, $1.a2.a1);
|
|
10897
11017
|
switch($2b.h) {
|
|
10898
11018
|
case undefined: /* just */ {
|
|
10899
|
-
const $2f =
|
|
11019
|
+
const $2f = Commands_n__9120_20480_recombineIntoArgs($0, $1.a2.a2);
|
|
10900
11020
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
10901
11021
|
}
|
|
10902
11022
|
case 0: /* nothing */ {
|
|
10903
|
-
const $37 =
|
|
11023
|
+
const $37 = Commands_n__9120_20480_recombineIntoArgs($0, $1.a2.a2);
|
|
10904
11024
|
return {a1: $37.a1, a2: {a1: '--into', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
10905
11025
|
}
|
|
10906
11026
|
}
|
|
10907
11027
|
}
|
|
10908
11028
|
default: {
|
|
10909
|
-
const $41 =
|
|
11029
|
+
const $41 = Commands_n__9120_20480_recombineIntoArgs($0, $1.a2);
|
|
10910
11030
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
10911
11031
|
}
|
|
10912
11032
|
}
|
|
10913
11033
|
}
|
|
10914
11034
|
default: {
|
|
10915
|
-
const $49 =
|
|
11035
|
+
const $49 = Commands_n__9120_20480_recombineIntoArgs($0, $1.a2);
|
|
10916
11036
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
10917
11037
|
}
|
|
10918
11038
|
}
|
|
@@ -10920,30 +11040,30 @@ function Commands_n__9040_20478_recombineIntoArgs($0, $1) {
|
|
|
10920
11040
|
}
|
|
10921
11041
|
}
|
|
10922
11042
|
|
|
10923
|
-
/* Commands.
|
|
10924
|
-
function
|
|
11043
|
+
/* Commands.11153:22394:recombineIgnoreArgs */
|
|
11044
|
+
function Commands_n__11153_22394_recombineIgnoreArgs($0, $1) {
|
|
10925
11045
|
switch($1.h) {
|
|
10926
11046
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
10927
11047
|
case undefined: /* cons */ {
|
|
10928
11048
|
switch($1.a1) {
|
|
10929
11049
|
case '-i': {
|
|
10930
11050
|
switch($1.a2.h) {
|
|
10931
|
-
case 0: /* nil */ return
|
|
11051
|
+
case 0: /* nil */ return csegen_673();
|
|
10932
11052
|
case undefined: /* cons */ {
|
|
10933
|
-
const $8 =
|
|
11053
|
+
const $8 = Commands_n__11153_22391_parseIgnoreOpt($0, $1.a2.a1);
|
|
10934
11054
|
switch($8.h) {
|
|
10935
11055
|
case undefined: /* just */ {
|
|
10936
|
-
const $c =
|
|
11056
|
+
const $c = Commands_n__11153_22394_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10937
11057
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
10938
11058
|
}
|
|
10939
11059
|
case 0: /* nothing */ {
|
|
10940
|
-
const $14 =
|
|
11060
|
+
const $14 = Commands_n__11153_22394_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10941
11061
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
10942
11062
|
}
|
|
10943
11063
|
}
|
|
10944
11064
|
}
|
|
10945
11065
|
default: {
|
|
10946
|
-
const $1e =
|
|
11066
|
+
const $1e = Commands_n__11153_22394_recombineIgnoreArgs($0, $1.a2);
|
|
10947
11067
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
10948
11068
|
}
|
|
10949
11069
|
}
|
|
@@ -10952,26 +11072,26 @@ function Commands_n__11191_22520_recombineIgnoreArgs($0, $1) {
|
|
|
10952
11072
|
switch($1.a2.h) {
|
|
10953
11073
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
|
|
10954
11074
|
case undefined: /* cons */ {
|
|
10955
|
-
const $2b =
|
|
11075
|
+
const $2b = Commands_n__11153_22391_parseIgnoreOpt($0, $1.a2.a1);
|
|
10956
11076
|
switch($2b.h) {
|
|
10957
11077
|
case undefined: /* just */ {
|
|
10958
|
-
const $2f =
|
|
11078
|
+
const $2f = Commands_n__11153_22394_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10959
11079
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
10960
11080
|
}
|
|
10961
11081
|
case 0: /* nothing */ {
|
|
10962
|
-
const $37 =
|
|
11082
|
+
const $37 = Commands_n__11153_22394_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10963
11083
|
return {a1: $37.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
10964
11084
|
}
|
|
10965
11085
|
}
|
|
10966
11086
|
}
|
|
10967
11087
|
default: {
|
|
10968
|
-
const $41 =
|
|
11088
|
+
const $41 = Commands_n__11153_22394_recombineIgnoreArgs($0, $1.a2);
|
|
10969
11089
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
10970
11090
|
}
|
|
10971
11091
|
}
|
|
10972
11092
|
}
|
|
10973
11093
|
default: {
|
|
10974
|
-
const $49 =
|
|
11094
|
+
const $49 = Commands_n__11153_22394_recombineIgnoreArgs($0, $1.a2);
|
|
10975
11095
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
10976
11096
|
}
|
|
10977
11097
|
}
|
|
@@ -10979,23 +11099,54 @@ function Commands_n__11191_22520_recombineIgnoreArgs($0, $1) {
|
|
|
10979
11099
|
}
|
|
10980
11100
|
}
|
|
10981
11101
|
|
|
10982
|
-
/* Commands.
|
|
10983
|
-
function
|
|
11102
|
+
/* Commands.10560:21823:putNameLn */
|
|
11103
|
+
function Commands_n__10560_21823_putNameLn($0, $1, $2, $3) {
|
|
10984
11104
|
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}}}});
|
|
10985
11105
|
}
|
|
10986
11106
|
|
|
10987
|
-
/* Commands.
|
|
10988
|
-
function
|
|
10989
|
-
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $e =>
|
|
11107
|
+
/* Commands.8866:20218:putLabels */
|
|
11108
|
+
function Commands_n__8866_20218_putLabels($0, $1, $2, $3) {
|
|
11109
|
+
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $e => Commands_n__8866_20217_putLabel($0, $1, $2, $e), $3)));
|
|
10990
11110
|
}
|
|
10991
11111
|
|
|
10992
|
-
/* Commands.
|
|
10993
|
-
function
|
|
11112
|
+
/* Commands.8866:20217:putLabel */
|
|
11113
|
+
function Commands_n__8866_20217_putLabel($0, $1, $2, $3) {
|
|
10994
11114
|
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($3)));
|
|
10995
11115
|
}
|
|
10996
11116
|
|
|
10997
|
-
/* Commands.
|
|
10998
|
-
function
|
|
11117
|
+
/* Commands.9461:20828:printTree */
|
|
11118
|
+
function Commands_n__9461_20828_printTree($0, $1, $2) {
|
|
11119
|
+
const $6 = $7 => {
|
|
11120
|
+
switch($7.h) {
|
|
11121
|
+
case 2: /* PrintTree */ return 1;
|
|
11122
|
+
default: return 0;
|
|
11123
|
+
}
|
|
11124
|
+
};
|
|
11125
|
+
const $4 = Data_List_find($6, $1);
|
|
11126
|
+
return Data_Maybe_isJust($4);
|
|
11127
|
+
}
|
|
11128
|
+
|
|
11129
|
+
/* Commands.9461:20827:printPrTree */
|
|
11130
|
+
function Commands_n__9461_20827_printPrTree($0, $1, $2, $3, $4, $5) {
|
|
11131
|
+
const $10 = $11 => {
|
|
11132
|
+
let $13;
|
|
11133
|
+
switch(Data_Config_rf__colors($2)) {
|
|
11134
|
+
case 1: {
|
|
11135
|
+
$13 = 0;
|
|
11136
|
+
break;
|
|
11137
|
+
}
|
|
11138
|
+
case 0: {
|
|
11139
|
+
$13 = 1;
|
|
11140
|
+
break;
|
|
11141
|
+
}
|
|
11142
|
+
}
|
|
11143
|
+
return $17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr((Commands_PullRequest_renderPrTree($2.a17, {a1: $13}, $2.a2, $2.a3, {h: 0}, {h: 0}, {a1: $3, a2: $11.a1}, $11.a2)+'\n'), $1c), $17, $18, $19);
|
|
11144
|
+
};
|
|
11145
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_prChain($2, $0, Data_Fuel_limit(10n), $3.a9), $10, $4, $5);
|
|
11146
|
+
}
|
|
11147
|
+
|
|
11148
|
+
/* Commands.11505:22749:printDetails */
|
|
11149
|
+
function Commands_n__11505_22749_printDetails($0, $1, $2, $3) {
|
|
10999
11150
|
const $4 = Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a8));
|
|
11000
11151
|
const $c = Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' \u{251c} title: '), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a2));
|
|
11001
11152
|
const $15 = Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' \u{251c} created:'), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date($3.a3)));
|
|
@@ -11004,8 +11155,8 @@ function Commands_n__11543_22875_printDetails($0, $1, $2, $3) {
|
|
|
11004
11155
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: $4, a2: {a1: $c, a2: {a1: $15, a2: {a1: $20, a2: {a1: $2e, a2: {h: 0}}}}}});
|
|
11005
11156
|
}
|
|
11006
11157
|
|
|
11007
|
-
/* Commands.
|
|
11008
|
-
function
|
|
11158
|
+
/* Commands.11505:22748:pickOne */
|
|
11159
|
+
function Commands_n__11505_22748_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11009
11160
|
const $8 = Data_List_headx27(Data_List_drop($4, Prelude_Types_List_tailRecAppend($6, $7)));
|
|
11010
11161
|
return $11 => $12 => {
|
|
11011
11162
|
switch($8.h) {
|
|
@@ -11019,7 +11170,7 @@ function Commands_n__11543_22874_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11019
11170
|
break;
|
|
11020
11171
|
}
|
|
11021
11172
|
case 0: /* nothing */ {
|
|
11022
|
-
$19 =
|
|
11173
|
+
$19 = csegen_679();
|
|
11023
11174
|
break;
|
|
11024
11175
|
}
|
|
11025
11176
|
}
|
|
@@ -11029,31 +11180,39 @@ function Commands_n__11543_22874_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11029
11180
|
};
|
|
11030
11181
|
}
|
|
11031
11182
|
|
|
11032
|
-
/* Commands.
|
|
11033
|
-
function
|
|
11034
|
-
return
|
|
11183
|
+
/* Commands.10190:21489:partitionedArgs */
|
|
11184
|
+
function Commands_n__10190_21489_partitionedArgs($0, $1, $2, $3) {
|
|
11185
|
+
return Commands_case__requestx2cpartitionedArgs_21501($0, $1, $2, $3, Data_List_partition($c => Data_String_isPrefixOf('+', $c), $3));
|
|
11035
11186
|
}
|
|
11036
11187
|
|
|
11037
|
-
/* Commands.
|
|
11038
|
-
function
|
|
11188
|
+
/* Commands.10728:22011:parseTeamArg */
|
|
11189
|
+
function Commands_n__10728_22011_parseTeamArg($0, $1) {
|
|
11039
11190
|
return {a1: {a1: $1}};
|
|
11040
11191
|
}
|
|
11041
11192
|
|
|
11042
|
-
/* Commands.
|
|
11043
|
-
function
|
|
11044
|
-
return
|
|
11193
|
+
/* Commands.11153:22393:parseSkipArg */
|
|
11194
|
+
function Commands_n__11153_22393_parseSkipArg($0, $1) {
|
|
11195
|
+
return Commands_case__parseContributeArgsx2cparseSkipArg_22440($0, $1, Data_String_strM($1));
|
|
11045
11196
|
}
|
|
11046
11197
|
|
|
11047
|
-
/* Commands.
|
|
11048
|
-
function
|
|
11198
|
+
/* Commands.9120:20479:parseReadyFlag */
|
|
11199
|
+
function Commands_n__9120_20479_parseReadyFlag($0, $1) {
|
|
11049
11200
|
switch($1) {
|
|
11050
11201
|
case '--ready': return {a1: {h: 1 /* Ready */}};
|
|
11051
11202
|
default: return {h: 0};
|
|
11052
11203
|
}
|
|
11053
11204
|
}
|
|
11054
11205
|
|
|
11055
|
-
/* Commands.
|
|
11056
|
-
function
|
|
11206
|
+
/* Commands.9120:20478:parsePrintTreeFlag */
|
|
11207
|
+
function Commands_n__9120_20478_parsePrintTreeFlag($0, $1) {
|
|
11208
|
+
switch($1) {
|
|
11209
|
+
case '--print-tree': return {a1: {h: 2 /* PrintTree */}};
|
|
11210
|
+
default: return {h: 0};
|
|
11211
|
+
}
|
|
11212
|
+
}
|
|
11213
|
+
|
|
11214
|
+
/* Commands.11153:22392:parseListFlag */
|
|
11215
|
+
function Commands_n__11153_22392_parseListFlag($0, $1) {
|
|
11057
11216
|
switch($1) {
|
|
11058
11217
|
case '-l': return {a1: {h: 0 /* List */}};
|
|
11059
11218
|
case '--list': return {a1: {h: 0 /* List */}};
|
|
@@ -11061,13 +11220,13 @@ function Commands_n__11191_22518_parseListFlag($0, $1) {
|
|
|
11061
11220
|
}
|
|
11062
11221
|
}
|
|
11063
11222
|
|
|
11064
|
-
/* Commands.
|
|
11065
|
-
function
|
|
11223
|
+
/* Commands.9120:20477:parseLabelArg */
|
|
11224
|
+
function Commands_n__9120_20477_parseLabelArg($0, $1) {
|
|
11066
11225
|
const $2 = Data_String_strM($1);
|
|
11067
11226
|
switch($2.h) {
|
|
11068
11227
|
case undefined: /* cons */ {
|
|
11069
11228
|
switch($2.a1) {
|
|
11070
|
-
case '#': return {a1: {h:
|
|
11229
|
+
case '#': return {a1: {h: 4 /* Label */, a1: $2.a2}};
|
|
11071
11230
|
default: return {h: 0};
|
|
11072
11231
|
}
|
|
11073
11232
|
}
|
|
@@ -11075,29 +11234,29 @@ function Commands_n__9040_20476_parseLabelArg($0, $1) {
|
|
|
11075
11234
|
}
|
|
11076
11235
|
}
|
|
11077
11236
|
|
|
11078
|
-
/* Commands.
|
|
11079
|
-
function
|
|
11237
|
+
/* Commands.9120:20476:parseIntoOpt */
|
|
11238
|
+
function Commands_n__9120_20476_parseIntoOpt($0, $1) {
|
|
11080
11239
|
const $2 = Util_String_nonEmpty($1);
|
|
11081
11240
|
return Prelude_Types_map_Functor_Maybe($7 => $7, $2);
|
|
11082
11241
|
}
|
|
11083
11242
|
|
|
11084
|
-
/* Commands.
|
|
11085
|
-
function
|
|
11086
|
-
const $2 = Data_String_split(
|
|
11243
|
+
/* Commands.11153:22391:parseIgnoreOpt */
|
|
11244
|
+
function Commands_n__11153_22391_parseIgnoreOpt($0, $1) {
|
|
11245
|
+
const $2 = Data_String_split(csegen_412(), $1);
|
|
11087
11246
|
const $7 = Data_List1_last($2);
|
|
11088
11247
|
return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
|
|
11089
11248
|
}
|
|
11090
11249
|
|
|
11091
|
-
/* Commands.
|
|
11092
|
-
function
|
|
11250
|
+
/* Commands.9120:20475:parseDraftFlag */
|
|
11251
|
+
function Commands_n__9120_20475_parseDraftFlag($0, $1) {
|
|
11093
11252
|
switch($1) {
|
|
11094
11253
|
case '--draft': return {a1: {h: 0 /* Draft */}};
|
|
11095
11254
|
default: return {h: 0};
|
|
11096
11255
|
}
|
|
11097
11256
|
}
|
|
11098
11257
|
|
|
11099
|
-
/* Commands.
|
|
11100
|
-
function
|
|
11258
|
+
/* Commands.10728:22010:parseCompletedFlag */
|
|
11259
|
+
function Commands_n__10728_22010_parseCompletedFlag($0, $1) {
|
|
11101
11260
|
switch($1) {
|
|
11102
11261
|
case '-c': return {a1: {h: 0}};
|
|
11103
11262
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -11105,8 +11264,8 @@ function Commands_n__10573_21951_parseCompletedFlag($0, $1) {
|
|
|
11105
11264
|
}
|
|
11106
11265
|
}
|
|
11107
11266
|
|
|
11108
|
-
/* Commands.
|
|
11109
|
-
function
|
|
11267
|
+
/* Commands.11153:22390:parseCheckoutFlag */
|
|
11268
|
+
function Commands_n__11153_22390_parseCheckoutFlag($0, $1) {
|
|
11110
11269
|
switch($1) {
|
|
11111
11270
|
case '-c': return {a1: {h: 1 /* Checkout */}};
|
|
11112
11271
|
case '--checkout': return {a1: {h: 1 /* Checkout */}};
|
|
@@ -11114,32 +11273,32 @@ function Commands_n__11191_22516_parseCheckoutFlag($0, $1) {
|
|
|
11114
11273
|
}
|
|
11115
11274
|
}
|
|
11116
11275
|
|
|
11117
|
-
/* Commands.
|
|
11118
|
-
function
|
|
11276
|
+
/* Commands.9461:20826:markAsReady */
|
|
11277
|
+
function Commands_n__9461_20826_markAsReady($0, $1, $2) {
|
|
11119
11278
|
const $6 = $7 => {
|
|
11120
11279
|
switch($7.h) {
|
|
11121
11280
|
case 1: /* Ready */ return 1;
|
|
11122
11281
|
default: return 0;
|
|
11123
11282
|
}
|
|
11124
11283
|
};
|
|
11125
|
-
const $4 = Data_List_find($6, $
|
|
11284
|
+
const $4 = Data_List_find($6, $1);
|
|
11126
11285
|
return Data_Maybe_isJust($4);
|
|
11127
11286
|
}
|
|
11128
11287
|
|
|
11129
|
-
/* Commands.
|
|
11130
|
-
function
|
|
11288
|
+
/* Commands.9461:20825:markAsDraft */
|
|
11289
|
+
function Commands_n__9461_20825_markAsDraft($0, $1, $2) {
|
|
11131
11290
|
const $6 = $7 => {
|
|
11132
11291
|
switch($7.h) {
|
|
11133
11292
|
case 0: /* Draft */ return 1;
|
|
11134
11293
|
default: return 0;
|
|
11135
11294
|
}
|
|
11136
11295
|
};
|
|
11137
|
-
const $4 = Data_List_find($6, $
|
|
11296
|
+
const $4 = Data_List_find($6, $1);
|
|
11138
11297
|
return Data_Maybe_isJust($4);
|
|
11139
11298
|
}
|
|
11140
11299
|
|
|
11141
|
-
/* Commands.
|
|
11142
|
-
function
|
|
11300
|
+
/* Commands.11505:22747:listSome */
|
|
11301
|
+
function Commands_n__11505_22747_listSome($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11143
11302
|
const $13 = $14 => {
|
|
11144
11303
|
let $19;
|
|
11145
11304
|
switch(Prelude_Types_null_Foldable_List($5)) {
|
|
@@ -11152,43 +11311,43 @@ function Commands_n__11543_22873_listSome($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11152
11311
|
break;
|
|
11153
11312
|
}
|
|
11154
11313
|
}
|
|
11155
|
-
return Prelude_Interfaces_when(csegen_40()(), $19, () => $1e => $1f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11314
|
+
return Prelude_Interfaces_when(csegen_40()(), $19, () => $1e => $1f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_458()(), $25 => $26 => $27 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_renderIO($2, csegen_48()(), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_bold(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Your review not requested:'))), $37 => Commands_n__11505_22745_goListSome($0, $1, $2, 0, Data_List_take(5n, $5)), $26, $27), $1e, $1f));
|
|
11156
11315
|
};
|
|
11157
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11316
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_n__11505_22745_goListSome($0, $1, $2, 1, Data_List_drop($3, $4)), $13, $6, $7);
|
|
11158
11317
|
}
|
|
11159
11318
|
|
|
11160
|
-
/* Commands.
|
|
11161
|
-
function
|
|
11319
|
+
/* Commands.9461:20824:labelSlugs */
|
|
11320
|
+
function Commands_n__9461_20824_labelSlugs($0, $1, $2) {
|
|
11162
11321
|
const $4 = $5 => $6 => {
|
|
11163
11322
|
switch($5.h) {
|
|
11164
|
-
case
|
|
11323
|
+
case 4: /* Label */ return {a1: $5.a1, a2: $6};
|
|
11165
11324
|
default: return $6;
|
|
11166
11325
|
}
|
|
11167
11326
|
};
|
|
11168
|
-
return Prelude_Types_foldr_Foldable_List($4, {h: 0}, $
|
|
11327
|
+
return Prelude_Types_foldr_Foldable_List($4, {h: 0}, $1);
|
|
11169
11328
|
}
|
|
11170
11329
|
|
|
11171
|
-
/* Commands.
|
|
11172
|
-
function
|
|
11173
|
-
return Data_Maybe_isNothing(Data_List_find($9 => Prelude_EqOrd_x3dx3d_Eq_Integer($9, $4.a1), $3.
|
|
11330
|
+
/* Commands.11505:22746:isNotIgnored */
|
|
11331
|
+
function Commands_n__11505_22746_isNotIgnored($0, $1, $2, $3, $4) {
|
|
11332
|
+
return Data_Maybe_isNothing(Data_List_find($9 => Prelude_EqOrd_x3dx3d_Eq_Integer($9, $4.a1), $3.a14));
|
|
11174
11333
|
}
|
|
11175
11334
|
|
|
11176
|
-
/* Commands.
|
|
11177
|
-
function
|
|
11335
|
+
/* Commands.9461:20823:intoBranch */
|
|
11336
|
+
function Commands_n__9461_20823_intoBranch($0, $1, $2) {
|
|
11178
11337
|
const $c = $d => {
|
|
11179
11338
|
switch($d.h) {
|
|
11180
|
-
case
|
|
11339
|
+
case 3: /* Into */ return {a1: Util_String_value($d.a1)};
|
|
11181
11340
|
default: return {h: 0};
|
|
11182
11341
|
}
|
|
11183
11342
|
};
|
|
11184
|
-
return Prelude_Types_foldMap_Foldable_List({a1: $6 => $7 => Prelude_Types_x3cx2bx3e_Semigroup_x28Maybex20x24ax29($6, $7), a2: {h: 0}}, $c, $
|
|
11343
|
+
return Prelude_Types_foldMap_Foldable_List({a1: $6 => $7 => Prelude_Types_x3cx2bx3e_Semigroup_x28Maybex20x24ax29($6, $7), a2: {h: 0}}, $c, $1);
|
|
11185
11344
|
}
|
|
11186
11345
|
|
|
11187
|
-
/* Commands.
|
|
11188
|
-
function
|
|
11346
|
+
/* Commands.11505:22745:goListSome */
|
|
11347
|
+
function Commands_n__11505_22745_goListSome($0, $1, $2, $3, $4) {
|
|
11189
11348
|
switch($4.h) {
|
|
11190
11349
|
case undefined: /* cons */ {
|
|
11191
|
-
const $6 =
|
|
11350
|
+
const $6 = Commands_n__11505_22749_printDetails($0, $1, $2, $4.a1);
|
|
11192
11351
|
let $13;
|
|
11193
11352
|
switch($3) {
|
|
11194
11353
|
case 1: {
|
|
@@ -11200,15 +11359,15 @@ function Commands_n__11543_22871_goListSome($0, $1, $2, $3, $4) {
|
|
|
11200
11359
|
break;
|
|
11201
11360
|
}
|
|
11202
11361
|
}
|
|
11203
|
-
const $11 = Text_PrettyPrint_Prettyprinter_Doc_indent($13, Prelude_Types_foldl_Foldable_List(acc => next => Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: acc, a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
11362
|
+
const $11 = Text_PrettyPrint_Prettyprinter_Doc_indent($13, Prelude_Types_foldl_Foldable_List(acc => next => Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: acc, a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_n__11505_22749_printDetails($0, $1, $2, next), a2: {h: 0}}}}), $6, $4.a2));
|
|
11204
11363
|
return Util_renderIO($2, csegen_48()(), $11);
|
|
11205
11364
|
}
|
|
11206
|
-
case 0: /* nil */ return
|
|
11365
|
+
case 0: /* nil */ return csegen_679();
|
|
11207
11366
|
}
|
|
11208
11367
|
}
|
|
11209
11368
|
|
|
11210
|
-
/* Commands.
|
|
11211
|
-
function
|
|
11369
|
+
/* Commands.12489:23657:go */
|
|
11370
|
+
function Commands_n__12489_23657_go($0, $1) {
|
|
11212
11371
|
switch($1.h) {
|
|
11213
11372
|
case undefined: /* cons */ {
|
|
11214
11373
|
switch($1.a1.h) {
|
|
@@ -11230,8 +11389,8 @@ function Commands_n__12716_23965_go($0, $1) {
|
|
|
11230
11389
|
}
|
|
11231
11390
|
}
|
|
11232
11391
|
|
|
11233
|
-
/* Commands.
|
|
11234
|
-
function
|
|
11392
|
+
/* Commands.12437:23602:go */
|
|
11393
|
+
function Commands_n__12437_23602_go($0, $1) {
|
|
11235
11394
|
switch($1.h) {
|
|
11236
11395
|
case 0: /* nothing */ return $0;
|
|
11237
11396
|
default: {
|
|
@@ -11243,15 +11402,15 @@ function Commands_n__12607_23856_go($0, $1) {
|
|
|
11243
11402
|
}
|
|
11244
11403
|
}
|
|
11245
11404
|
|
|
11246
|
-
/* Commands.
|
|
11247
|
-
function
|
|
11405
|
+
/* Commands.10560:21822:forkedUser */
|
|
11406
|
+
function Commands_n__10560_21822_forkedUser($0, $1, $2, $3) {
|
|
11248
11407
|
return FFI_Concurrency_fork(csegen_48()(), ('user --json '+$3));
|
|
11249
11408
|
}
|
|
11250
11409
|
|
|
11251
|
-
/* Commands.
|
|
11252
|
-
function
|
|
11253
|
-
switch(
|
|
11254
|
-
case 1: return
|
|
11410
|
+
/* Commands.9461:20822:conflictingDraftReadyArgs */
|
|
11411
|
+
function Commands_n__9461_20822_conflictingDraftReadyArgs($0, $1, $2) {
|
|
11412
|
+
switch(Commands_n__9461_20825_markAsDraft($0, $1, $2)) {
|
|
11413
|
+
case 1: return Commands_n__9461_20826_markAsReady($0, $1, $2);
|
|
11255
11414
|
case 0: return 0;
|
|
11256
11415
|
}
|
|
11257
11416
|
}
|
|
@@ -11270,12 +11429,12 @@ function Commands_titleOrNumberArg($0) {
|
|
|
11270
11429
|
}
|
|
11271
11430
|
};
|
|
11272
11431
|
const $3 = Prelude_Types_List_filterAppend({h: 0}, $6, $0);
|
|
11273
|
-
return
|
|
11432
|
+
return Commands_n__12489_23657_go($0, $3);
|
|
11274
11433
|
}
|
|
11275
11434
|
|
|
11276
11435
|
/* Commands.titleArg : List QuickArg -> Maybe String */
|
|
11277
11436
|
function Commands_titleArg($0) {
|
|
11278
|
-
return Prelude_Types_foldl_Foldable_List($3 => $4 =>
|
|
11437
|
+
return Prelude_Types_foldl_Foldable_List($3 => $4 => Commands_n__12437_23602_go($3, $4), {h: 0}, $0);
|
|
11279
11438
|
}
|
|
11280
11439
|
|
|
11281
11440
|
/* Commands.teamNameArg : GraphArg -> Maybe String */
|
|
@@ -11301,7 +11460,7 @@ function Commands_skipArg($0) {
|
|
|
11301
11460
|
|
|
11302
11461
|
/* Commands.request : Config => Octokit => List String -> {default False _ : Bool} -> Promise' () */
|
|
11303
11462
|
function Commands_request($0, $1, $2, $3) {
|
|
11304
|
-
return
|
|
11463
|
+
return Commands_case__request_21598($0, $1, $3, $2, Commands_n__10190_21489_partitionedArgs($0, $1, $3, $2));
|
|
11305
11464
|
}
|
|
11306
11465
|
|
|
11307
11466
|
/* Commands.reflect : Config => Octokit => Promise' () */
|
|
@@ -11325,112 +11484,127 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11325
11484
|
const $38 = $39 => $3a => $3b => {
|
|
11326
11485
|
switch($39.h) {
|
|
11327
11486
|
case 0: /* Actual */ {
|
|
11328
|
-
|
|
11329
|
-
|
|
11330
|
-
|
|
11331
|
-
|
|
11487
|
+
let $3e;
|
|
11488
|
+
switch($39.a1) {
|
|
11489
|
+
case 0: {
|
|
11490
|
+
$3e = $40 => {
|
|
11491
|
+
switch(Commands_n__9461_20828_printTree($1, $2, $0)) {
|
|
11492
|
+
case 1: return $46 => Commands_n__9461_20827_printPrTree($1, $2, $0, $39.a2, $40, $46);
|
|
11493
|
+
case 0: return $4e => $4f => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($52 => Prelude_IO_prim__putStr((Data_PullRequest_rf__webURI($0, $39.a2)+'\n'), $52), $40, $4e, $4f);
|
|
11494
|
+
}
|
|
11495
|
+
};
|
|
11496
|
+
break;
|
|
11332
11497
|
}
|
|
11333
|
-
|
|
11334
|
-
|
|
11335
|
-
|
|
11336
|
-
|
|
11498
|
+
case 1: {
|
|
11499
|
+
$3e = $5e => {
|
|
11500
|
+
switch(Commands_n__9461_20828_printTree($1, $2, $0)) {
|
|
11501
|
+
case 1: return $64 => Commands_n__9461_20827_printPrTree($1, $2, $0, $39.a2, $5e, $64);
|
|
11502
|
+
case 0: return $6c => Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $5e, $6c);
|
|
11503
|
+
}
|
|
11504
|
+
};
|
|
11505
|
+
break;
|
|
11506
|
+
}
|
|
11507
|
+
}
|
|
11508
|
+
const $71 = $72 => $73 => $74 => {
|
|
11509
|
+
let $7b;
|
|
11510
|
+
switch(Prelude_Types_null_Foldable_List(Commands_n__9461_20824_labelSlugs($1, $2, $0))) {
|
|
11337
11511
|
case 1: {
|
|
11338
|
-
$
|
|
11512
|
+
$7b = 0;
|
|
11339
11513
|
break;
|
|
11340
11514
|
}
|
|
11341
11515
|
case 0: {
|
|
11342
|
-
$
|
|
11516
|
+
$7b = 1;
|
|
11343
11517
|
break;
|
|
11344
11518
|
}
|
|
11345
11519
|
}
|
|
11346
|
-
const $
|
|
11347
|
-
const $
|
|
11348
|
-
const $
|
|
11349
|
-
const $
|
|
11350
|
-
switch($
|
|
11520
|
+
const $76 = Prelude_Interfaces_when(csegen_40()(), $7b, () => $84 => $85 => Commands_label($0, $1, Commands_n__9461_20824_labelSlugs($1, $2, $0), $84, $85));
|
|
11521
|
+
const $90 = $91 => $92 => $93 => {
|
|
11522
|
+
const $95 = $96 => {
|
|
11523
|
+
const $97 = Commands_n__9461_20823_intoBranch($1, $2, $0);
|
|
11524
|
+
switch($97.h) {
|
|
11351
11525
|
case undefined: /* just */ {
|
|
11352
|
-
return $
|
|
11353
|
-
switch(Data_String_isSuffixOf($
|
|
11354
|
-
case 1: return Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $
|
|
11355
|
-
case 0: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $
|
|
11526
|
+
return $9c => {
|
|
11527
|
+
switch(Data_String_isSuffixOf($97.a1, $39.a2.a9)) {
|
|
11528
|
+
case 1: return Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $96, $9c);
|
|
11529
|
+
case 0: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $ad => $ad, {a1: 'Setting the --into branch (base ref) for an existing PR is not supported (yet). Base ref will remain ', a2: {a1: $39.a2.a9, a2: {h: 0}}}), $96, $9c);
|
|
11356
11530
|
}
|
|
11357
11531
|
};
|
|
11358
11532
|
}
|
|
11359
|
-
case 0: /* nothing */ return $
|
|
11533
|
+
case 0: /* nothing */ return $b6 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $96, $b6);
|
|
11360
11534
|
}
|
|
11361
11535
|
};
|
|
11362
|
-
const $
|
|
11363
|
-
let $
|
|
11364
|
-
switch(
|
|
11536
|
+
const $bb = $bc => $bd => $be => {
|
|
11537
|
+
let $c5;
|
|
11538
|
+
switch(Commands_n__9461_20825_markAsDraft($1, $2, $0)) {
|
|
11365
11539
|
case 1: {
|
|
11366
11540
|
switch($39.a2.a4) {
|
|
11367
11541
|
case 1: {
|
|
11368
|
-
$
|
|
11542
|
+
$c5 = 0;
|
|
11369
11543
|
break;
|
|
11370
11544
|
}
|
|
11371
11545
|
case 0: {
|
|
11372
|
-
$
|
|
11546
|
+
$c5 = 1;
|
|
11373
11547
|
break;
|
|
11374
11548
|
}
|
|
11375
11549
|
}
|
|
11376
11550
|
break;
|
|
11377
11551
|
}
|
|
11378
11552
|
case 0: {
|
|
11379
|
-
$
|
|
11553
|
+
$c5 = 0;
|
|
11380
11554
|
break;
|
|
11381
11555
|
}
|
|
11382
11556
|
}
|
|
11383
|
-
const $
|
|
11384
|
-
const $
|
|
11385
|
-
const $
|
|
11386
|
-
switch($
|
|
11387
|
-
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11388
|
-
case 0: return $
|
|
11557
|
+
const $c0 = Prelude_Interfaces_when(csegen_40()(), $c5, () => $ce => $cf => {
|
|
11558
|
+
const $d4 = $d5 => $d6 => $d7 => {
|
|
11559
|
+
const $e0 = $e1 => $e2 => $e3 => {
|
|
11560
|
+
switch($e1) {
|
|
11561
|
+
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($e7 => $e8 => Data_Promise_map_Functor_x28Promisex20x24ex29($eb => undefined, $ed => $ee => Commands_PullRequest_convertPRToDraft($0, $1, $39.a2, $ed, $ee), $e7, $e8), $f8 => $f9 => $fa => $fb => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($fe => Prelude_IO_prim__putStr('The PR for the current branch has been converted to a draft.\n', $fe), $f9, $fa, $fb), $e2, $e3);
|
|
11562
|
+
case 0: return $107 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($10a => Prelude_IO_prim__putStr('No worries, the PR won\'t be converted to a draft.\n', $10a), $e2, $e3, $107);
|
|
11389
11563
|
}
|
|
11390
11564
|
};
|
|
11391
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_48()(), 0, 'Are you sure you want to convert the existing PR for the current branch to a draft?'), $
|
|
11565
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_48()(), 0, 'Are you sure you want to convert the existing PR for the current branch to a draft?'), $e0, $d6, $d7);
|
|
11392
11566
|
};
|
|
11393
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11567
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_458()(), $d4, $ce, $cf);
|
|
11394
11568
|
});
|
|
11395
|
-
const $
|
|
11396
|
-
let $
|
|
11397
|
-
switch(
|
|
11569
|
+
const $115 = $116 => {
|
|
11570
|
+
let $11b;
|
|
11571
|
+
switch(Commands_n__9461_20826_markAsReady($1, $2, $0)) {
|
|
11398
11572
|
case 1: {
|
|
11399
|
-
$
|
|
11573
|
+
$11b = $39.a2.a4;
|
|
11400
11574
|
break;
|
|
11401
11575
|
}
|
|
11402
11576
|
case 0: {
|
|
11403
|
-
$
|
|
11577
|
+
$11b = 0;
|
|
11404
11578
|
break;
|
|
11405
11579
|
}
|
|
11406
11580
|
}
|
|
11407
|
-
return Prelude_Interfaces_when(csegen_40()(), $
|
|
11408
|
-
const $
|
|
11409
|
-
const $
|
|
11410
|
-
switch($
|
|
11411
|
-
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11412
|
-
case 0: return $
|
|
11581
|
+
return Prelude_Interfaces_when(csegen_40()(), $11b, () => $123 => $124 => {
|
|
11582
|
+
const $129 = $12a => $12b => $12c => {
|
|
11583
|
+
const $135 = $136 => $137 => $138 => {
|
|
11584
|
+
switch($136) {
|
|
11585
|
+
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($13c => $13d => Data_Promise_map_Functor_x28Promisex20x24ex29($140 => undefined, $142 => $143 => Commands_PullRequest_convertPRToReady($0, $1, $39.a2, $142, $143), $13c, $13d), $14d => $14e => $14f => $150 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($153 => Prelude_IO_prim__putStr('The PR for the current branch has been marked ready for review.\n', $153), $14e, $14f, $150), $137, $138);
|
|
11586
|
+
case 0: return $15c => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($15f => Prelude_IO_prim__putStr('No worries, the PR won\'t be marked ready for review.\n', $15f), $137, $138, $15c);
|
|
11413
11587
|
}
|
|
11414
11588
|
};
|
|
11415
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_48()(), 0, 'Are you sure you want to mark the existing PR for the current branch ready for review?'), $
|
|
11589
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_48()(), 0, 'Are you sure you want to mark the existing PR for the current branch ready for review?'), $135, $12b, $12c);
|
|
11416
11590
|
};
|
|
11417
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11591
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_458()(), $129, $123, $124);
|
|
11418
11592
|
});
|
|
11419
11593
|
};
|
|
11420
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11594
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c0, $115, $bd, $be);
|
|
11421
11595
|
};
|
|
11422
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11596
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($95, $bb, $92, $93);
|
|
11423
11597
|
};
|
|
11424
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11598
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($76, $90, $73, $74);
|
|
11425
11599
|
};
|
|
11426
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e, $
|
|
11600
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e, $71, $3a, $3b);
|
|
11427
11601
|
}
|
|
11428
|
-
case 1: /* Hypothetical */ return $
|
|
11602
|
+
case 1: /* Hypothetical */ return $172 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($175 => Prelude_IO_prim__putStr(($39.a1+'\n'), $175), $3a, $3b, $172);
|
|
11429
11603
|
}
|
|
11430
11604
|
};
|
|
11431
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d => $1e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11605
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d => $1e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_655(), $23 => $24 => $25 => Commands_PullRequest_identifyOrCreatePR($0, $1, Commands_n__9461_20825_markAsDraft($1, $2, $0), Commands_n__9461_20823_intoBranch($1, $2, $0), $23, $24, $25), $1d, $1e), $38, $19, $1a);
|
|
11432
11606
|
};
|
|
11433
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_40()(),
|
|
11607
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_40()(), Commands_n__9461_20822_conflictingDraftReadyArgs($1, $2, $0), () => $11 => $12 => Data_Promise_reject('You cannot set a PR as ready for review and mark it as a draft at the same time.', $11, $12)), $17, $3, $4);
|
|
11434
11608
|
}
|
|
11435
11609
|
|
|
11436
11610
|
/* Commands.parseQuickArgs : List String -> List QuickArg */
|
|
@@ -11451,10 +11625,10 @@ function Commands_parsePrArgs($0) {
|
|
|
11451
11625
|
switch($0.h) {
|
|
11452
11626
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
11453
11627
|
default: {
|
|
11454
|
-
const $3 =
|
|
11455
|
-
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h:
|
|
11456
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
11457
|
-
return Data_Either_maybeToEither(() => Commands_prUsageError(), Prelude_Types_map_Functor_Maybe($
|
|
11628
|
+
const $3 = Commands_n__9120_20480_recombineIntoArgs($0, $0);
|
|
11629
|
+
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 3 /* Into */, a1: $b}), $3.a1);
|
|
11630
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_703(), $18 => Commands_n__9120_20479_parseReadyFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_703(), $22 => Commands_n__9120_20475_parseDraftFlag($0, $22), $27 => Commands_x3cx7cx7cx3e(csegen_703(), $2c => Commands_n__9120_20478_parsePrintTreeFlag($0, $2c), $31 => Commands_n__9120_20477_parseLabelArg($0, $31), $27), $1d), $13), $3.a2);
|
|
11631
|
+
return Data_Either_maybeToEither(() => Commands_prUsageError(), Prelude_Types_map_Functor_Maybe($3f => Prelude_Types_List_tailRecAppend($7, $3f), $e));
|
|
11458
11632
|
}
|
|
11459
11633
|
}
|
|
11460
11634
|
}
|
|
@@ -11469,7 +11643,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11469
11643
|
switch($0.a2.a2.h) {
|
|
11470
11644
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
11471
11645
|
default: {
|
|
11472
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(
|
|
11646
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_703(), $10 => Commands_n__10728_22010_parseCompletedFlag($0, $10), $15 => Commands_n__10728_22011_parseTeamArg($0, $15), $b), $0);
|
|
11473
11647
|
switch($6.h) {
|
|
11474
11648
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
11475
11649
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -11478,7 +11652,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11478
11652
|
}
|
|
11479
11653
|
}
|
|
11480
11654
|
default: {
|
|
11481
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(
|
|
11655
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_703(), $27 => Commands_n__10728_22010_parseCompletedFlag($0, $27), $2c => Commands_n__10728_22011_parseTeamArg($0, $2c), $22), $0);
|
|
11482
11656
|
switch($1d.h) {
|
|
11483
11657
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
11484
11658
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -11487,7 +11661,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11487
11661
|
}
|
|
11488
11662
|
}
|
|
11489
11663
|
default: {
|
|
11490
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(
|
|
11664
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_703(), $3e => Commands_n__10728_22010_parseCompletedFlag($0, $3e), $43 => Commands_n__10728_22011_parseTeamArg($0, $43), $39), $0);
|
|
11491
11665
|
switch($34.h) {
|
|
11492
11666
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
11493
11667
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -11501,9 +11675,9 @@ function Commands_parseContributeArgs($0) {
|
|
|
11501
11675
|
switch($0.h) {
|
|
11502
11676
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
11503
11677
|
default: {
|
|
11504
|
-
const $3 =
|
|
11678
|
+
const $3 = Commands_n__11153_22394_recombineIgnoreArgs($0, $0);
|
|
11505
11679
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 2 /* Ignore */, a1: $b}), $3.a1);
|
|
11506
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
11680
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_703(), $18 => Commands_n__11153_22392_parseListFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_703(), $22 => Commands_n__11153_22393_parseSkipArg($0, $22), $27 => Commands_n__11153_22390_parseCheckoutFlag($0, $27), $1d), $13), $3.a2);
|
|
11507
11681
|
return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($34 => Prelude_Types_List_tailRecAppend($7, $34), $e));
|
|
11508
11682
|
}
|
|
11509
11683
|
}
|
|
@@ -11511,12 +11685,12 @@ function Commands_parseContributeArgs($0) {
|
|
|
11511
11685
|
|
|
11512
11686
|
/* Commands.listOrgTeams : Config => Octokit => Promise' () */
|
|
11513
11687
|
function Commands_listOrgTeams($0, $1, $2, $3) {
|
|
11514
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11688
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_704(), $c => $d => FFI_GitHub_forceListTeams($1, $0.a2, $c, $d), $6, $7), teamNames => Util_renderIO($0, csegen_48()(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $22 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($22)), teamNames))), $2, $3);
|
|
11515
11689
|
}
|
|
11516
11690
|
|
|
11517
11691
|
/* Commands.list : Config => Octokit => String -> Promise' () */
|
|
11518
11692
|
function Commands_list($0, $1, $2, $3, $4) {
|
|
11519
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11693
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_704(), $d => $e => FFI_GitHub_forceListTeamMembers($1, $0.a2, $2, $d, $e), $7, $8), teamMemberLogins => $19 => $1a => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_41()(), csegen_706(), Prelude_Types_traverse_Traversable_List(csegen_40()(), $29 => Commands_n__10560_21822_forkedUser($1, $2, $0, $29), teamMemberLogins)), teamMembersJson => $31 => $32 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Types_traverse_Traversable_List(csegen_40()(), $3a => $3b => Data_Promise_either(Data_User_parseUser($3a), $3b), teamMembersJson), teamMembers => Util_renderIO($0, csegen_48()(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $4e => Commands_n__10560_21823_putNameLn($1, $2, $0, $4e), teamMembers))), $31, $32), $19, $1a), $3, $4);
|
|
11520
11694
|
}
|
|
11521
11695
|
|
|
11522
11696
|
/* Commands.label : Config => Octokit => List String -> Promise' () */
|
|
@@ -11524,18 +11698,18 @@ function Commands_label($0, $1, $2, $3, $4) {
|
|
|
11524
11698
|
const $1a = $1b => {
|
|
11525
11699
|
switch($1b.h) {
|
|
11526
11700
|
case 0: /* Actual */ {
|
|
11527
|
-
const $1d = Prelude_Types_List_mapAppend({h: 0}, $21 => Commands_Label_unslugifyLabel($0.
|
|
11528
|
-
return $27 => $28 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2b => $2c => Commands_Label_addLabels($0, $1, $1b.a2, $1d, $2b, $2c), allLabels => Util_renderIO($0, csegen_48()(), 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(
|
|
11701
|
+
const $1d = Prelude_Types_List_mapAppend({h: 0}, $21 => Commands_Label_unslugifyLabel($0.a12, $21), $2);
|
|
11702
|
+
return $27 => $28 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2b => $2c => Commands_Label_addLabels($0, $1, $1b.a2, $1d, $2b, $2c), allLabels => Util_renderIO($0, csegen_48()(), 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__8866_20218_putLabels($1, $2, $0, $1d), 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_86()(), $5c => $5c, {a1: 'All labels for PR of ', a2: {a1: $1b.a2.a8, a2: {a1: ':', a2: {h: 0}}}})), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8866_20218_putLabels($1, $2, $0, allLabels), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('.'), a2: {h: 0}}))), a2: {h: 0}}})), $27, $28);
|
|
11529
11703
|
}
|
|
11530
11704
|
case 1: /* Hypothetical */ return $77 => $78 => Data_Promise_reject('You cannot label a PR that has not been created yet and you cannot create the PR in this non-TTY shell', $77, $78);
|
|
11531
11705
|
}
|
|
11532
11706
|
};
|
|
11533
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11707
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_655(), $d => $e => $f => Commands_PullRequest_identifyOrCreatePR($0, $1, 0, {h: 0}, $d, $e, $f), $7, $8), $1a, $3, $4);
|
|
11534
11708
|
}
|
|
11535
11709
|
|
|
11536
11710
|
/* Commands.issueCategory : List QuickArg -> IssueCategory */
|
|
11537
11711
|
function Commands_issueCategory($0) {
|
|
11538
|
-
return Prelude_Types_maybe(() => 1, () => $4 => 0, Data_List_find(
|
|
11712
|
+
return Prelude_Types_maybe(() => 1, () => $4 => 0, Data_List_find(csegen_713(), $0));
|
|
11539
11713
|
}
|
|
11540
11714
|
|
|
11541
11715
|
/* Commands.health : Config => Octokit => Promise' () */
|
|
@@ -11545,8 +11719,8 @@ function Commands_health($0, $1, $2, $3) {
|
|
|
11545
11719
|
|
|
11546
11720
|
/* Commands.graph : Config => Octokit => List GraphArg -> Promise' () */
|
|
11547
11721
|
function Commands_graph($0, $1, $2) {
|
|
11548
|
-
const $3 = Data_List_find(
|
|
11549
|
-
return $8 =>
|
|
11722
|
+
const $3 = Data_List_find(csegen_713(), $2);
|
|
11723
|
+
return $8 => Commands_case__graph_22130($1, $2, $0, $3, Data_List_headx27(Prelude_Types_List_mapMaybeAppend({h: 0}, $14 => Commands_teamNameArg($14), $2)), $8);
|
|
11550
11724
|
}
|
|
11551
11725
|
|
|
11552
11726
|
/* Commands.contributeUsageError : String */
|
|
@@ -11611,17 +11785,17 @@ function Commands_contribute($0, $1, $2, $3, $4) {
|
|
|
11611
11785
|
}
|
|
11612
11786
|
};
|
|
11613
11787
|
const $71 = Prelude_Types_List_filterAppend({h: 0}, $74, $12);
|
|
11614
|
-
const $7b = Prelude_Types_List_filterAppend({h: 0}, $7f =>
|
|
11788
|
+
const $7b = Prelude_Types_List_filterAppend({h: 0}, $7f => Commands_n__11505_22746_isNotIgnored($1, $2, $0, configx27, $7f), $71);
|
|
11615
11789
|
const $87 = Data_List_partition($8a => Data_PullRequest_isRequestedReviewer(myLogin, $8a), $7b);
|
|
11616
|
-
const $8f = Prelude_Interfaces_mapHom(
|
|
11790
|
+
const $8f = Prelude_Interfaces_mapHom(csegen_669(), $95 => Data_List_sortBy(csegen_720(), $95))($87);
|
|
11617
11791
|
let $70;
|
|
11618
11792
|
switch($53.h) {
|
|
11619
11793
|
case 0: /* nothing */ {
|
|
11620
|
-
$70 = () =>
|
|
11794
|
+
$70 = () => Commands_n__11505_22748_pickOne($1, $2, $0, configx27, $40, $4d, $8f.a1, $8f.a2);
|
|
11621
11795
|
break;
|
|
11622
11796
|
}
|
|
11623
11797
|
case undefined: /* just */ {
|
|
11624
|
-
$70 = () => $a5 => $a6 =>
|
|
11798
|
+
$70 = () => $a5 => $a6 => Commands_n__11505_22747_listSome($1, $2, $0, $40, $8f.a1, $8f.a2, $a5, $a6);
|
|
11625
11799
|
break;
|
|
11626
11800
|
}
|
|
11627
11801
|
}
|
|
@@ -11633,7 +11807,7 @@ function Commands_contribute($0, $1, $2, $3, $4) {
|
|
|
11633
11807
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($30, $3f, $2d, $2e);
|
|
11634
11808
|
};
|
|
11635
11809
|
};
|
|
11636
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => $1f => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11810
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => $1f => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_418()(), FFI_GitHub_getSelf($1), $1e, $1f), $29, $1a, $1b);
|
|
11637
11811
|
};
|
|
11638
11812
|
};
|
|
11639
11813
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequests($1, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $11, $3, $4);
|
|
@@ -11647,7 +11821,7 @@ function Commands_branch($0, $1, $2) {
|
|
|
11647
11821
|
const $b = Prelude_Types_foldMap_Foldable_List(csegen_86()(), $11 => $11, {a1: 'https://github.com/', a2: {a1: $7, a2: {a1: '/', a2: {a1: $9, a2: {a1: '/tree/', a2: {a1: branch, a2: {h: 0}}}}}}});
|
|
11648
11822
|
return $1f => $20 => $21 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($24 => Prelude_IO_prim__putStr(($b+'\n'), $24), $1f, $20, $21);
|
|
11649
11823
|
};
|
|
11650
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11824
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_655(), $6, $1, $2);
|
|
11651
11825
|
}
|
|
11652
11826
|
|
|
11653
11827
|
/* Commands.(<||>) : Alternative t => (a -> t b) -> (a -> t b) -> a -> t b */
|
|
@@ -11867,67 +12041,67 @@ function Data_SortedMap_Dependent_empty($0) {
|
|
|
11867
12041
|
|
|
11868
12042
|
/* Commands.User.Reflect.case block in case block in reflectOnSelf */
|
|
11869
12043
|
function Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
11870
|
-
const $b = Prelude_Interfaces_mapHom(
|
|
12044
|
+
const $b = Prelude_Interfaces_mapHom(csegen_669(), $11 => Data_List_headx27(Data_List_sort({a1: {a1: $18 => $19 => Data_Date_x3dx3d_Eq_Date($18, $19), a2: $1e => $1f => Data_Date_x2fx3d_Eq_Date($1e, $1f)}, a2: $24 => $25 => Data_Date_compare_Ord_Date($24, $25), a3: $2a => $2b => Data_Date_x3c_Ord_Date($2a, $2b), a4: $30 => $31 => Data_Date_x3e_Ord_Date($30, $31), a5: $36 => $37 => Data_Date_x3cx3d_Ord_Date($36, $37), a6: $3c => $3d => Data_Date_x3ex3d_Ord_Date($3c, $3d), a7: $42 => $43 => Data_Date_max_Ord_Date($42, $43), a8: $48 => $49 => Data_Date_min_Ord_Date($48, $49)}, Prelude_Types_List_mapAppend({h: 0}, csegen_742(), $11))))({a1: $7, a2: $9.a1});
|
|
11871
12045
|
return Util_renderIO($0, csegen_48()(), Commands_User_Reflect_print(Prelude_Types_String_length(Commands_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, $0));
|
|
11872
12046
|
}
|
|
11873
12047
|
|
|
11874
|
-
/* Commands.User.Me.
|
|
11875
|
-
function
|
|
12048
|
+
/* Commands.User.Me.7727:2049:ul */
|
|
12049
|
+
function Commands_User_Me_n__7727_2049_ul($0, $1, $2, $3, $4) {
|
|
11876
12050
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
11877
12051
|
}
|
|
11878
12052
|
|
|
11879
|
-
/* Commands.User.Me.
|
|
11880
|
-
function
|
|
11881
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
12053
|
+
/* Commands.User.Me.7727:2048:teams */
|
|
12054
|
+
function Commands_User_Me_n__7727_2048_teams($0, $1, $2, $3) {
|
|
12055
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_User_Me_n__7727_2049_ul($0, $1, $2, $3, 'GitHub Teams:'), a2: Prelude_Types_List_mapAppend({h: 0}, $11 => Commands_User_Me_n__7727_2046_it($0, $1, $2, $3, $11), $0)});
|
|
11882
12056
|
}
|
|
11883
12057
|
|
|
11884
|
-
/* Commands.User.Me.
|
|
11885
|
-
function
|
|
11886
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'),
|
|
12058
|
+
/* Commands.User.Me.7727:2047:login */
|
|
12059
|
+
function Commands_User_Me_n__7727_2047_login($0, $1, $2, $3) {
|
|
12060
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'), Commands_User_Me_n__7727_2043_dataVal($0, $1, $2, $3, $1.a1));
|
|
11887
12061
|
}
|
|
11888
12062
|
|
|
11889
|
-
/* Commands.User.Reflect.
|
|
11890
|
-
function
|
|
12063
|
+
/* Commands.User.Reflect.6782:1075:ital */
|
|
12064
|
+
function Commands_User_Reflect_n__6782_1075_ital($0, $1) {
|
|
11891
12065
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
11892
12066
|
}
|
|
11893
12067
|
|
|
11894
|
-
/* Commands.User.Me.
|
|
11895
|
-
function
|
|
12068
|
+
/* Commands.User.Me.7727:2046:it */
|
|
12069
|
+
function Commands_User_Me_n__7727_2046_it($0, $1, $2, $3, $4) {
|
|
11896
12070
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
11897
12071
|
}
|
|
11898
12072
|
|
|
11899
|
-
/* Commands.User.Me.
|
|
11900
|
-
function
|
|
12073
|
+
/* Commands.User.Me.7877:2196:handleUnsetEmail */
|
|
12074
|
+
function Commands_User_Me_n__7877_2196_handleUnsetEmail($0, $1, $2) {
|
|
11901
12075
|
switch($2) {
|
|
11902
12076
|
case '': return {h: 0};
|
|
11903
12077
|
default: return {a1: $2};
|
|
11904
12078
|
}
|
|
11905
12079
|
}
|
|
11906
12080
|
|
|
11907
|
-
/* Commands.User.Me.
|
|
11908
|
-
function
|
|
11909
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'),
|
|
12081
|
+
/* Commands.User.Me.7727:2045:fullName */
|
|
12082
|
+
function Commands_User_Me_n__7727_2045_fullName($0, $1, $2, $3) {
|
|
12083
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'), Commands_User_Me_n__7727_2043_dataVal($0, $1, $2, $3, $1.a2));
|
|
11910
12084
|
}
|
|
11911
12085
|
|
|
11912
|
-
/* Commands.User.Me.
|
|
11913
|
-
function
|
|
12086
|
+
/* Commands.User.Me.7727:2044:email */
|
|
12087
|
+
function Commands_User_Me_n__7727_2044_email($0, $1, $2, $3) {
|
|
11914
12088
|
let $8;
|
|
11915
12089
|
switch($2.h) {
|
|
11916
12090
|
case undefined: /* just */ {
|
|
11917
|
-
$8 =
|
|
12091
|
+
$8 = Commands_User_Me_n__7727_2043_dataVal($0, $1, $2, $3, $2.a1);
|
|
11918
12092
|
break;
|
|
11919
12093
|
}
|
|
11920
12094
|
case 0: /* nothing */ {
|
|
11921
|
-
$8 =
|
|
12095
|
+
$8 = Commands_User_Me_n__7727_2046_it($0, $1, $2, $3, 'Not set');
|
|
11922
12096
|
break;
|
|
11923
12097
|
}
|
|
11924
12098
|
}
|
|
11925
12099
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Git Email:'), $8);
|
|
11926
12100
|
}
|
|
11927
12101
|
|
|
11928
|
-
/* Commands.User.Me.
|
|
11929
|
-
function
|
|
11930
|
-
return Theme_theme($3,
|
|
12102
|
+
/* Commands.User.Me.7727:2043:dataVal */
|
|
12103
|
+
function Commands_User_Me_n__7727_2043_dataVal($0, $1, $2, $3, $4) {
|
|
12104
|
+
return Theme_theme($3, csegen_745(), csegen_746(), 8)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
11931
12105
|
}
|
|
11932
12106
|
|
|
11933
12107
|
/* Commands.User.Reflect.rightTitle : String */
|
|
@@ -11950,20 +12124,20 @@ function Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
|
11950
12124
|
const $c = prs => $d => $e => {
|
|
11951
12125
|
const $1c = myLogin => $1d => $1e => {
|
|
11952
12126
|
const $3a = reviews => {
|
|
11953
|
-
const $3b = Prelude_Types_map_Functor_Maybe(
|
|
11954
|
-
const $4e = Prelude_Interfaces_mapHom(
|
|
11955
|
-
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(
|
|
12127
|
+
const $3b = Prelude_Types_map_Functor_Maybe(csegen_748(), Data_List_headx27(Data_List_sortBy($44 => $45 => Prelude_Basics_on(csegen_718(), csegen_748(), $44, $45), reviews)));
|
|
12128
|
+
const $4e = Prelude_Interfaces_mapHom(csegen_669(), $54 => Prelude_Types_List_filterAppend({h: 0}, $58 => Prelude_EqOrd_x3dx3d_Eq_String($58.a5, myLogin), $54))(prs);
|
|
12129
|
+
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(csegen_669(), $6f => Prelude_Types_List_filterAppend({h: 0}, $73 => Prelude_Types_foldMap_Foldable_List(csegen_115(), $78 => Prelude_EqOrd_x3dx3d_Eq_String($78, myLogin), $73.a7), $6f))(prs));
|
|
11956
12130
|
};
|
|
11957
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(Commands_User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2e => $2f => Prelude_Basics_on(
|
|
12131
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(Commands_User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2e => $2f => Prelude_Basics_on(csegen_718(), csegen_742(), $2e, $2f), Commands_PullRequest_combined(prs))))), $3a, $1d, $1e);
|
|
11958
12132
|
};
|
|
11959
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
12133
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_418()(), FFI_GitHub_getSelf($1), $11, $12), $1c, $d, $e);
|
|
11960
12134
|
};
|
|
11961
12135
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_listPartitionedPRs($0, $1, 4n, Commands_User_Reflect_prCount()), $c, $2, $3);
|
|
11962
12136
|
}
|
|
11963
12137
|
|
|
11964
12138
|
/* Commands.User.Me.printInfoOnSelf : Config => Octokit => Promise' () */
|
|
11965
12139
|
function Commands_User_Me_printInfoOnSelf($0, $1, $2, $3) {
|
|
11966
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29($a =>
|
|
12140
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29($a => Commands_User_Me_n__7877_2196_handleUnsetEmail($1, $0, $a), $10 => $11 => System_Git_userEmail($10, $11), $6, $7), gitEmail => $18 => $19 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getSelf($1), githubUser => $1f => $20 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($23 => $24 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_704(), $29 => $2a => FFI_GitHub_listMyTeams($1, $29, $2a), $23, $24), githubTeams => Util_renderIO($0, csegen_48()(), Commands_User_Me_print($0, gitEmail, githubUser, githubTeams)), $1f, $20), $18, $19), $2, $3);
|
|
11967
12141
|
}
|
|
11968
12142
|
|
|
11969
12143
|
/* Commands.User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Config =>
|
|
@@ -11974,7 +12148,7 @@ function Commands_User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
|
11974
12148
|
|
|
11975
12149
|
/* Commands.User.Me.print : Config -> Maybe String -> User -> List String -> Doc AnsiStyle */
|
|
11976
12150
|
function Commands_User_Me_print($0, $1, $2, $3) {
|
|
11977
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
12151
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7727_2044_email($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7727_2045_fullName($3, $2, $1, $0), a2: {a1: Commands_User_Me_n__7727_2047_login($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7727_2048_teams($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}}}}});
|
|
11978
12152
|
}
|
|
11979
12153
|
|
|
11980
12154
|
/* Commands.User.Reflect.prCount : Fin 101 */
|
|
@@ -11994,15 +12168,15 @@ const Commands_User_Reflect_intro = __lazy(function () {
|
|
|
11994
12168
|
|
|
11995
12169
|
/* Commands.User.Reflect.header : Nat -> Doc AnsiStyle */
|
|
11996
12170
|
function Commands_User_Reflect_header($0) {
|
|
11997
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1:
|
|
12171
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Commands_User_Reflect_n__6782_1075_ital($0, Commands_User_Reflect_leftTitle()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' '), a2: {a1: Commands_User_Reflect_n__6782_1075_ital($0, Commands_User_Reflect_rightTitle()), a2: {h: 0}}}}));
|
|
11998
12172
|
}
|
|
11999
12173
|
|
|
12000
12174
|
/* Commands.User.Reflect.graph : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Doc AnsiStyle */
|
|
12001
12175
|
function Commands_User_Reflect_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
12002
12176
|
const $7 = ($2+$3);
|
|
12003
12177
|
const $a = ($5+$4);
|
|
12004
|
-
const $d = Prelude_Types_foldr_Foldable_List(
|
|
12005
|
-
const $1c = Prelude_Types_foldr_Foldable_List(
|
|
12178
|
+
const $d = Prelude_Types_foldr_Foldable_List(csegen_303(), Prelude_Types_String_length(Commands_User_Reflect_leftTitle()), {a1: ($7+$1), a2: {a1: $a, a2: {h: 0}}});
|
|
12179
|
+
const $1c = Prelude_Types_foldr_Foldable_List(csegen_303(), Prelude_Types_String_length(Commands_User_Reflect_rightTitle()), {a1: $7, a2: {a1: $a, a2: {h: 0}}});
|
|
12006
12180
|
const $29 = (($d+$1c)+3n);
|
|
12007
12181
|
const $2e = ((Number($0)/2.0)-(Number($29)/2.0));
|
|
12008
12182
|
const $37 = (Prelude_Types_prim__integerToNat(BigInt(Math.trunc($2e)))+Prelude_Types_prim__integerToNat(($d-Prelude_Types_String_length(Commands_User_Reflect_leftTitle()))));
|
|
@@ -12012,40 +12186,35 @@ function Commands_User_Reflect_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
|
12012
12186
|
|
|
12013
12187
|
/* Commands.User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
12014
12188
|
function Commands_User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
12015
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Commands_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(
|
|
12189
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Commands_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_755(), $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_755(), $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_86()(), $d0 => $d0, {a1: '*review count (not PR count) of most recent ', a2: {a1: Data_Fin_show_Show_x28Finx20x24nx29(Commands_User_Reflect_reviewDetailsCount()), a2: {a1: ' PRs.', a2: {h: 0}}}}))), a2: {h: 0}}}}}}}}}});
|
|
12016
12190
|
}
|
|
12017
12191
|
|
|
12018
12192
|
/* Commands.User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Nat -> Doc AnsiStyle */
|
|
12019
12193
|
function Commands_User_Reflect_chart($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
12020
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($7)), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_User_replicatex27($6,
|
|
12194
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($7)), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_User_replicatex27($6, csegen_745(), csegen_765(), 4, $1, '\u{b7}'), Commands_User_replicatex27($6, csegen_766(), csegen_766(), 7, $3, '\u{25e6}')), Commands_User_replicatex27($6, csegen_767(), csegen_767(), 5, $2, '<')), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('|'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_User_replicatex27($6, csegen_767(), csegen_767(), 5, $5, '>'), Commands_User_replicatex27($6, csegen_745(), csegen_765(), 4, $4, '\u{b7}')))));
|
|
12021
12195
|
}
|
|
12022
12196
|
|
|
12023
|
-
/* Theme.
|
|
12024
|
-
function
|
|
12197
|
+
/* Theme.4484:1352:maybeAnnotate */
|
|
12198
|
+
function Theme_n__4484_1352_maybeAnnotate($0, $1, $2, $3, $4) {
|
|
12025
12199
|
return Prelude_Types_maybe(() => $7 => $7, () => $9 => $a => Text_PrettyPrint_Prettyprinter_Doc_annotate($3($9), $a), $4);
|
|
12026
12200
|
}
|
|
12027
12201
|
|
|
12028
|
-
/* Theme.
|
|
12029
|
-
function
|
|
12202
|
+
/* Theme.4484:1351:go */
|
|
12203
|
+
function Theme_n__4484_1351_go($0, $1, $2, $3, $4, $5, $6) {
|
|
12030
12204
|
switch($3) {
|
|
12031
|
-
case 1: return $8 =>
|
|
12032
|
-
case 0: return $f =>
|
|
12205
|
+
case 1: return $8 => Theme_n__4484_1350_colorsAnn($0, $1, $2, $4, $8);
|
|
12206
|
+
case 0: return $f => Theme_n__4484_1350_colorsAnn($0, $1, $2, $5, $f);
|
|
12033
12207
|
}
|
|
12034
12208
|
}
|
|
12035
12209
|
|
|
12036
|
-
/* Theme.
|
|
12037
|
-
function
|
|
12038
|
-
return $2.
|
|
12039
|
-
}
|
|
12040
|
-
|
|
12041
|
-
/* Theme.4414:1329:colorsAnn */
|
|
12042
|
-
function Theme_n__4414_1329_colorsAnn($0, $1, $2, $3, $4) {
|
|
12043
|
-
return Theme_n__4414_1332_maybeAnnotate($0, $1, $2, $c => Text_PrettyPrint_Prettyprinter_Render_Terminal_color($c), $3.a1)(Theme_n__4414_1332_maybeAnnotate($0, $1, $2, $17 => Text_PrettyPrint_Prettyprinter_Render_Terminal_bgColor($17), $3.a2)($4));
|
|
12210
|
+
/* Theme.4484:1350:colorsAnn */
|
|
12211
|
+
function Theme_n__4484_1350_colorsAnn($0, $1, $2, $3, $4) {
|
|
12212
|
+
return Theme_n__4484_1352_maybeAnnotate($0, $1, $2, $c => Text_PrettyPrint_Prettyprinter_Render_Terminal_color($c), $3.a1)(Theme_n__4484_1352_maybeAnnotate($0, $1, $2, $17 => Text_PrettyPrint_Prettyprinter_Render_Terminal_bgColor($17), $3.a2)($4));
|
|
12044
12213
|
}
|
|
12045
12214
|
|
|
12046
12215
|
/* Theme.theme : Config => SemanticColor d l -> Doc AnsiStyle -> Doc AnsiStyle */
|
|
12047
12216
|
function Theme_theme($0, $1, $2, $3) {
|
|
12048
|
-
return
|
|
12217
|
+
return Theme_n__4484_1351_go($1, $2, $0.a17, $0.a17, $1, $2, $3);
|
|
12049
12218
|
}
|
|
12050
12219
|
|
|
12051
12220
|
/* Theme.cs : (colors : List Color) -> Either (length colors = 1) (length colors = 2) =>
|
|
@@ -12104,113 +12273,201 @@ function Commands_PullRequest_with__listOpenPRs_1391($0, $1, $2, $3, $4) {
|
|
|
12104
12273
|
}
|
|
12105
12274
|
|
|
12106
12275
|
/* Commands.PullRequest.case block in githubInferredBranchInfo */
|
|
12107
|
-
function
|
|
12108
|
-
return $
|
|
12109
|
-
switch($
|
|
12110
|
-
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(Commands_PullRequest_noInferredData(), $
|
|
12111
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getIssue($0, $
|
|
12276
|
+
function Commands_PullRequest_case__githubInferredBranchInfo_3793($0, $1, $2, $3, $4, $5) {
|
|
12277
|
+
return $6 => {
|
|
12278
|
+
switch($4.h) {
|
|
12279
|
+
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(Commands_PullRequest_noInferredData(), $5, $6);
|
|
12280
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getIssue($0, $3.a2, $3.a3, $4.a1), issue => $17 => $18 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1b => $1c => Commands_PullRequest_n__11942_3598_issueDescriptionPrefix($0, $1, $2, $3, issue, $1b, $1c), $26 => $27 => $28 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: {h: 0}, a2: {a1: ($26+('\n\n'+Commands_PullRequest_n__11942_3601_relatedToPrefix($0, $1, $2, $3, $4.a1)))}, a3: {a1: issue.a2}}, $27, $28), $17, $18), $5, $6);
|
|
12112
12281
|
}
|
|
12113
12282
|
};
|
|
12114
12283
|
}
|
|
12115
12284
|
|
|
12116
|
-
/* Commands.PullRequest.
|
|
12117
|
-
function
|
|
12285
|
+
/* Commands.PullRequest.10225:1999:userNotice */
|
|
12286
|
+
function Commands_PullRequest_n__10225_1999_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
12118
12287
|
switch($6.h) {
|
|
12119
12288
|
case 0: /* nothing */ {
|
|
12120
12289
|
switch($2.h) {
|
|
12121
12290
|
case 0: /* nil */ return 'no users';
|
|
12122
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1:
|
|
12291
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1: Commands_PullRequest_n__10225_1994_csv($0, $1, $2, $3, $4, $5, $2), a2: {h: 0}});
|
|
12123
12292
|
}
|
|
12124
12293
|
}
|
|
12125
|
-
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1f => $1f, {a1:
|
|
12294
|
+
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1f => $1f, {a1: Commands_PullRequest_n__10225_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: $2}), a2: {h: 0}});
|
|
12126
12295
|
}
|
|
12127
12296
|
}
|
|
12128
12297
|
|
|
12129
|
-
/* Commands.PullRequest.
|
|
12130
|
-
function
|
|
12298
|
+
/* Commands.PullRequest.11371:3090:terminus */
|
|
12299
|
+
function Commands_PullRequest_n__11371_3090_terminus($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
12300
|
+
return '\u{2a00}';
|
|
12301
|
+
}
|
|
12302
|
+
|
|
12303
|
+
/* Commands.PullRequest.10225:1998:teamNotice */
|
|
12304
|
+
function Commands_PullRequest_n__10225_1998_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
12131
12305
|
switch($6.h) {
|
|
12132
12306
|
case 0: /* nil */ return '';
|
|
12133
12307
|
case undefined: /* cons */ {
|
|
12134
12308
|
switch($6.a2.h) {
|
|
12135
|
-
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1: ' and team ', a2: {a1:
|
|
12136
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $23 => $23, {a1: ' and teams ', a2: {a1:
|
|
12309
|
+
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1: ' and team ', a2: {a1: Commands_PullRequest_n__10225_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: {h: 0}}), a2: {h: 0}}});
|
|
12310
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $23 => $23, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10225_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
12137
12311
|
}
|
|
12138
12312
|
}
|
|
12139
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $36 => $36, {a1: ' and teams ', a2: {a1:
|
|
12313
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $36 => $36, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10225_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
12140
12314
|
}
|
|
12141
12315
|
}
|
|
12142
12316
|
|
|
12143
|
-
/* Commands.PullRequest.
|
|
12144
|
-
function
|
|
12145
|
-
|
|
12317
|
+
/* Commands.PullRequest.11371:3089:renderPretty */
|
|
12318
|
+
function Commands_PullRequest_n__11371_3089_renderPretty($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
12319
|
+
const $9 = $a => {
|
|
12320
|
+
switch($6.h) {
|
|
12321
|
+
case undefined: /* just */ {
|
|
12322
|
+
switch($6.a1) {
|
|
12323
|
+
case 0: return $a;
|
|
12324
|
+
default: return Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($a);
|
|
12325
|
+
}
|
|
12326
|
+
}
|
|
12327
|
+
default: return Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($a);
|
|
12328
|
+
}
|
|
12329
|
+
};
|
|
12330
|
+
return Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString(Text_PrettyPrint_Prettyprinter_Doc_layoutUnbounded($9($8)));
|
|
12331
|
+
}
|
|
12332
|
+
|
|
12333
|
+
/* Commands.PullRequest.11942:3601:relatedToPrefix */
|
|
12334
|
+
function Commands_PullRequest_n__11942_3601_relatedToPrefix($0, $1, $2, $3, $4) {
|
|
12335
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $a => $a, {a1: 'Related to #', a2: {a1: $4, a2: {h: 0}}});
|
|
12146
12336
|
}
|
|
12147
12337
|
|
|
12148
|
-
/* Commands.PullRequest.
|
|
12149
|
-
function
|
|
12150
|
-
return Util_Prompting_offerRetry(csegen_48()(), 'PR title cannot be an empty string.', Prelude_Types_foldMap_Foldable_List(csegen_86()(), $11 => $11, {a1: 'Did not find a non-empty value for a PR title. Will use \'', a2: {a1: 'New PR', a2: {a1: '\'', a2: {h: 0}}}}), () => 'New PR', $1b => $1c => Data_Promise_map_Functor_x28Promisex20x24ex29($1f =>
|
|
12338
|
+
/* Commands.PullRequest.12407:4046:prTitlePrompt */
|
|
12339
|
+
function Commands_PullRequest_n__12407_4046_prTitlePrompt($0, $1, $2, $3, $4, $5) {
|
|
12340
|
+
return Util_Prompting_offerRetry(csegen_48()(), 'PR title cannot be an empty string.', Prelude_Types_foldMap_Foldable_List(csegen_86()(), $11 => $11, {a1: 'Did not find a non-empty value for a PR title. Will use \'', a2: {a1: 'New PR', a2: {a1: '\'', a2: {h: 0}}}}), () => 'New PR', $1b => $1c => Data_Promise_map_Functor_x28Promisex20x24ex29($1f => Commands_PullRequest_n__12407_4045_notEmptyString($0, $1, $2, $3, $4, $1f), Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What would you like the title to be?', $5), $1b, $1c));
|
|
12151
12341
|
}
|
|
12152
12342
|
|
|
12153
|
-
/* Commands.PullRequest.
|
|
12154
|
-
function
|
|
12343
|
+
/* Commands.PullRequest.10225:1997:prComment */
|
|
12344
|
+
function Commands_PullRequest_n__10225_1997_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
12155
12345
|
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $c => $c, {a1: ':musical_note: Harmoniously requested review from ', a2: {a1: $6, a2: {a1: '.', a2: {h: 0}}}});
|
|
12156
12346
|
}
|
|
12157
12347
|
|
|
12158
|
-
/* Commands.PullRequest.
|
|
12159
|
-
function
|
|
12348
|
+
/* Commands.PullRequest.12407:4045:notEmptyString */
|
|
12349
|
+
function Commands_PullRequest_n__12407_4045_notEmptyString($0, $1, $2, $3, $4, $5) {
|
|
12160
12350
|
switch($5) {
|
|
12161
12351
|
case '': return {h: 0};
|
|
12162
12352
|
default: return {a1: $5};
|
|
12163
12353
|
}
|
|
12164
12354
|
}
|
|
12165
12355
|
|
|
12166
|
-
/* Commands.PullRequest.
|
|
12167
|
-
function
|
|
12168
|
-
return
|
|
12356
|
+
/* Commands.PullRequest.10225:1996:namePrComment */
|
|
12357
|
+
function Commands_PullRequest_n__10225_1996_namePrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
12358
|
+
return Commands_PullRequest_n__10225_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $14 => $14, {a1: $6.a2, a2: {h: 0}}));
|
|
12169
12359
|
}
|
|
12170
12360
|
|
|
12171
|
-
/* Commands.PullRequest.
|
|
12172
|
-
function
|
|
12173
|
-
return
|
|
12361
|
+
/* Commands.PullRequest.10225:1995:mentionPrComment */
|
|
12362
|
+
function Commands_PullRequest_n__10225_1995_mentionPrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
12363
|
+
return Commands_PullRequest_n__10225_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $14 => $14, {a1: '@', a2: {a1: $6, a2: {h: 0}}}));
|
|
12174
12364
|
}
|
|
12175
12365
|
|
|
12176
|
-
/* Commands.PullRequest.
|
|
12177
|
-
function
|
|
12178
|
-
return
|
|
12366
|
+
/* Commands.PullRequest.11371:3088:mdIndent */
|
|
12367
|
+
function Commands_PullRequest_n__11371_3088_mdIndent($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
12368
|
+
return ((Data_String_replicate(($8+1n), '>')+' ')+$9);
|
|
12179
12369
|
}
|
|
12180
12370
|
|
|
12181
|
-
/* Commands.PullRequest.
|
|
12182
|
-
function
|
|
12183
|
-
return
|
|
12371
|
+
/* Commands.PullRequest.11942:3600:maybePrTree */
|
|
12372
|
+
function Commands_PullRequest_n__11942_3600_maybePrTree($0, $1, $2, $3, $4, $5) {
|
|
12373
|
+
return $6 => {
|
|
12374
|
+
let $7;
|
|
12375
|
+
switch($3.a10) {
|
|
12376
|
+
case 1: {
|
|
12377
|
+
$7 = Prelude_EqOrd_x2fx3d_Eq_String($1, $3.a5);
|
|
12378
|
+
break;
|
|
12379
|
+
}
|
|
12380
|
+
case 0: {
|
|
12381
|
+
$7 = 0;
|
|
12382
|
+
break;
|
|
12383
|
+
}
|
|
12384
|
+
}
|
|
12385
|
+
switch($7) {
|
|
12386
|
+
case 1: {
|
|
12387
|
+
const $17 = $18 => {
|
|
12388
|
+
const $1a = Commands_PullRequest_renderPrTree($3.a17, {h: 0}, $3.a2, $3.a3, {a1: $2}, {a1: $4.a2}, $18.a1, $18.a2);
|
|
12389
|
+
return $2a => $2b => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $33 => $33, {a1: '## PR Tree\n', a2: {a1: $1a, a2: {a1: '\n', a2: {h: 0}}}}), $2a, $2b);
|
|
12390
|
+
};
|
|
12391
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_prChain($3, $0, Data_Fuel_limit(10n), $1), $17, $5, $6);
|
|
12392
|
+
}
|
|
12393
|
+
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29('', $5, $6);
|
|
12394
|
+
}
|
|
12395
|
+
};
|
|
12396
|
+
}
|
|
12397
|
+
|
|
12398
|
+
/* Commands.PullRequest.11942:3599:issueNumber */
|
|
12399
|
+
function Commands_PullRequest_n__11942_3599_issueNumber($0, $1, $2, $3) {
|
|
12400
|
+
return Util_Github_parseGithubIssueNumber($2);
|
|
12401
|
+
}
|
|
12402
|
+
|
|
12403
|
+
/* Commands.PullRequest.11942:3598:issueDescriptionPrefix */
|
|
12404
|
+
function Commands_PullRequest_n__11942_3598_issueDescriptionPrefix($0, $1, $2, $3, $4, $5, $6) {
|
|
12405
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => Commands_PullRequest_n__11942_3600_maybePrTree($0, $1, $2, $3, $4, $9), maybeTree => $12 => $13 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1b => $1b, {a1: '<!--\n', a2: {a1: maybeTree, a2: {a1: '\n## GitHub Issue\n', a2: {a1: $4.a2, a2: {a1: '\n--\n', a2: {a1: $4.a3, a2: {a1: '\n-->', a2: {h: 0}}}}}}}}), $12, $13), $5, $6);
|
|
12184
12406
|
}
|
|
12185
12407
|
|
|
12186
|
-
/* Commands.PullRequest.
|
|
12187
|
-
function
|
|
12408
|
+
/* Commands.PullRequest.12300:3932:into */
|
|
12409
|
+
function Commands_PullRequest_n__12300_3932_into($0, $1, $2, $3) {
|
|
12188
12410
|
switch($0.h) {
|
|
12189
12411
|
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $a => $a, {a1: $0.a1, a2: {a1: '...', a2: {h: 0}}});
|
|
12190
12412
|
case 0: /* nothing */ return '';
|
|
12191
12413
|
}
|
|
12192
12414
|
}
|
|
12193
12415
|
|
|
12194
|
-
/* Commands.PullRequest.
|
|
12195
|
-
function
|
|
12416
|
+
/* Commands.PullRequest.12407:4044:inlineDescriptionPrompt */
|
|
12417
|
+
function Commands_PullRequest_n__12407_4044_inlineDescriptionPrompt($0, $1, $2, $3, $4) {
|
|
12196
12418
|
return 'What would you like the description to be (two blank lines to finish)?';
|
|
12197
12419
|
}
|
|
12198
12420
|
|
|
12199
|
-
/* Commands.PullRequest.
|
|
12200
|
-
function
|
|
12421
|
+
/* Commands.PullRequest.11371:3087:indentIncrement */
|
|
12422
|
+
function Commands_PullRequest_n__11371_3087_indentIncrement($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
12423
|
+
return 4n;
|
|
12424
|
+
}
|
|
12425
|
+
|
|
12426
|
+
/* Commands.PullRequest.11371:3086:go */
|
|
12427
|
+
function Commands_PullRequest_n__11371_3086_go($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a) {
|
|
12428
|
+
switch($9.h) {
|
|
12429
|
+
case 0: /* nil */ {
|
|
12430
|
+
switch($a.h) {
|
|
12431
|
+
case undefined: /* just */ return Commands_PullRequest_n__11371_3084_formattedBranchLine($0, $1, $2, $3, $4, $5, $6, $7, $8, Commands_PullRequest_n__11371_3083_arrow($0, $1, $2, $3, $4, $5, $6, $7), $a.a1, $2);
|
|
12432
|
+
case 0: /* nothing */ return '';
|
|
12433
|
+
}
|
|
12434
|
+
}
|
|
12435
|
+
case undefined: /* cons */ return (Commands_PullRequest_n__11371_3085_formattedPrLines($0, $1, $2, $3, $4, $5, $6, $7, $8, $9.a1)+('\n'+Commands_PullRequest_n__11371_3086_go($0, $1, $2, $3, $4, $5, $6, $7, ($8+1n), $9.a2, $a)));
|
|
12436
|
+
}
|
|
12437
|
+
}
|
|
12438
|
+
|
|
12439
|
+
/* Commands.PullRequest.12407:4043:getBaseBranch */
|
|
12440
|
+
function Commands_PullRequest_n__12407_4043_getBaseBranch($0, $1, $2, $3, $4, $5, $6) {
|
|
12201
12441
|
switch($2.h) {
|
|
12202
12442
|
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => $c => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($f => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $18 => $18, {a1: 'Will merge into ', a2: {a1: $2.a1, a2: {a1: '.', a2: {h: 0}}}})+'\n'), $f), $a, $b, $c), $26 => $27 => $28 => Data_Promise_pure_Applicative_x28Promisex20x24ex29($2.a1, $27, $28), $5, $6);
|
|
12203
|
-
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($31 => $32 => $33 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($36 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $3f => $3f, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $4.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $36), $31, $32, $33), $4e => $4f => $50 => Data_Promise_map_Functor_x28Promisex20x24ex29($53 => Util_Prompting_orIfEmpty({a1: $4.a5}, Data_String_trim($53)),
|
|
12443
|
+
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($31 => $32 => $33 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($36 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $3f => $3f, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $4.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $36), $31, $32, $33), $4e => $4f => $50 => Data_Promise_map_Functor_x28Promisex20x24ex29($53 => Util_Prompting_orIfEmpty({a1: $4.a5}, Data_String_trim($53)), csegen_460()(), $4f, $50), $5, $6);
|
|
12204
12444
|
}
|
|
12205
12445
|
}
|
|
12206
12446
|
|
|
12207
|
-
/* Commands.PullRequest.
|
|
12208
|
-
function
|
|
12447
|
+
/* Commands.PullRequest.11371:3085:formattedPrLines */
|
|
12448
|
+
function Commands_PullRequest_n__11371_3085_formattedPrLines($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
12449
|
+
switch($6.h) {
|
|
12450
|
+
case 0: /* nothing */ return (Commands_PullRequest_n__11371_3088_mdIndent($0, $1, $2, $3, $4, $5, $6, $7, $8, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1c => $1c, {a1: Commands_PullRequest_n__11371_3083_arrow($0, $1, $2, $3, $4, $5, $6, $7), a2: {a1: ' `', a2: {a1: $9.a8, a2: {a1: '` (', a2: {a1: Data_PullRequest_webURIx27($5, $4, $9), a2: {a1: ')', a2: {h: 0}}}}}}}))+('\n'+Commands_PullRequest_n__11371_3088_mdIndent($0, $1, $2, $3, $4, $5, $6, $7, $8, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $4b => $4b, {a1: '**', a2: {a1: $9.a2, a2: {a1: '**', a2: {h: 0}}}}))));
|
|
12451
|
+
case undefined: /* just */ return Commands_PullRequest_n__11371_3089_renderPretty($0, $1, $2, $3, $4, $5, $6, $7, Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32((($8*Commands_PullRequest_n__11371_3087_indentIncrement($0, $1, $2, $3, $4, $5, $6, $7))+1n))), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Commands_PullRequest_n__11371_3083_arrow($0, $1, $2, $3, $4, $5, $6, $7)), Theme_n__4484_1351_go(csegen_745(), csegen_746(), $7, $7, csegen_745(), csegen_746(), 8)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($9.a2))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{2514}'), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_PullRequest_webURIx27($5, $4, $9))))), a2: {h: 0}}})));
|
|
12452
|
+
}
|
|
12453
|
+
}
|
|
12454
|
+
|
|
12455
|
+
/* Commands.PullRequest.11371:3084:formattedBranchLine */
|
|
12456
|
+
function Commands_PullRequest_n__11371_3084_formattedBranchLine($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a, $b) {
|
|
12457
|
+
const $c = Prelude_Types_maybe(() => '', () => t => ('\n'+Commands_PullRequest_n__11371_3088_mdIndent($0, $1, $2, $3, $4, $5, $6, $7, $8, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $22 => $22, {a1: '**', a2: {a1: t, a2: {a1: '**', a2: {h: 0}}}}))), $b);
|
|
12458
|
+
switch($6.h) {
|
|
12459
|
+
case 0: /* nothing */ return Commands_PullRequest_n__11371_3088_mdIndent($0, $1, $2, $3, $4, $5, $6, $7, $8, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $3c => $3c, {a1: $9, a2: {a1: ' `', a2: {a1: $a, a2: {a1: '`', a2: {a1: $c, a2: {h: 0}}}}}}));
|
|
12460
|
+
case undefined: /* just */ return Commands_PullRequest_n__11371_3089_renderPretty($0, $1, $2, $3, $4, $5, $6, $7, Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32((($8*Commands_PullRequest_n__11371_3087_indentIncrement($0, $1, $2, $3, $4, $5, $6, $7))+1n))), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($9), Theme_n__4484_1351_go(csegen_772(), csegen_772(), $7, $7, csegen_772(), csegen_772(), 9)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($a)))));
|
|
12461
|
+
}
|
|
12462
|
+
}
|
|
12463
|
+
|
|
12464
|
+
/* Commands.PullRequest.9987:1725:forkedReviews */
|
|
12465
|
+
function Commands_PullRequest_n__9987_1725_forkedReviews($0, $1, $2, $3) {
|
|
12209
12466
|
return FFI_Concurrency_fork(csegen_48()(), ('reviews --json '+Prelude_Show_show_Show_Integer($3.a1)));
|
|
12210
12467
|
}
|
|
12211
12468
|
|
|
12212
|
-
/* Commands.PullRequest.
|
|
12213
|
-
function
|
|
12469
|
+
/* Commands.PullRequest.9410:1180:filterString */
|
|
12470
|
+
function Commands_PullRequest_n__9410_1180_filterString($0, $1, $2, $3, $4) {
|
|
12214
12471
|
switch($4.h) {
|
|
12215
12472
|
case 0: /* nothing */ return 'none';
|
|
12216
12473
|
case undefined: /* just */ {
|
|
@@ -12222,13 +12479,13 @@ function Commands_PullRequest_n__9335_1180_filterString($0, $1, $2, $3, $4) {
|
|
|
12222
12479
|
}
|
|
12223
12480
|
}
|
|
12224
12481
|
|
|
12225
|
-
/* Commands.PullRequest.
|
|
12226
|
-
function
|
|
12482
|
+
/* Commands.PullRequest.10225:1994:csv */
|
|
12483
|
+
function Commands_PullRequest_n__10225_1994_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
12227
12484
|
return Util_renderString($5, Text_PrettyPrint_Prettyprinter_Doc_encloseSep(Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $16 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($16)), $6)));
|
|
12228
12485
|
}
|
|
12229
12486
|
|
|
12230
|
-
/* Commands.PullRequest.
|
|
12231
|
-
function
|
|
12487
|
+
/* Commands.PullRequest.12407:4042:createPR */
|
|
12488
|
+
function Commands_PullRequest_n__12407_4042_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
12232
12489
|
const $38 = $39 => $3a => $3b => {
|
|
12233
12490
|
const $48 = $49 => $4a => $4b => {
|
|
12234
12491
|
switch($49) {
|
|
@@ -12248,34 +12505,34 @@ function Commands_PullRequest_n__11476_3256_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
12248
12505
|
const $c8 = $c9 => $ca => $cb => {
|
|
12249
12506
|
const $e9 = $ea => $eb => $ec => {
|
|
12250
12507
|
const $f9 = baseBranch => $fa => $fb => {
|
|
12251
|
-
const $
|
|
12252
|
-
const $
|
|
12253
|
-
const $
|
|
12254
|
-
return $
|
|
12255
|
-
const $
|
|
12256
|
-
const $
|
|
12257
|
-
const $
|
|
12258
|
-
let $
|
|
12259
|
-
switch($
|
|
12508
|
+
const $103 = inferredBranchInfo => {
|
|
12509
|
+
const $104 = Data_Maybe_fromMaybe(() => '', inferredBranchInfo.a1);
|
|
12510
|
+
const $109 = Data_Maybe_fromMaybe(() => '', inferredBranchInfo.a2);
|
|
12511
|
+
return $10e => $10f => {
|
|
12512
|
+
const $124 = title => $125 => $126 => {
|
|
12513
|
+
const $12f = templateFilePath => $130 => $131 => {
|
|
12514
|
+
const $134 = Data_Config_rf__editor($4);
|
|
12515
|
+
let $133;
|
|
12516
|
+
switch($134.h) {
|
|
12260
12517
|
case 0: /* nothing */ {
|
|
12261
|
-
$
|
|
12518
|
+
$133 = Util_Prompting_inlineDescription(csegen_48()(), Commands_PullRequest_n__12407_4044_inlineDescriptionPrompt($0, $1, $2, $3, $4), $109);
|
|
12262
12519
|
break;
|
|
12263
12520
|
}
|
|
12264
12521
|
case undefined: /* just */ {
|
|
12265
|
-
$
|
|
12522
|
+
$133 = $143 => $144 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_792(), Util_Prompting_editorDescription(csegen_48()(), $134.a1, {a1: templateFilePath}, $109), $143, $144);
|
|
12266
12523
|
break;
|
|
12267
12524
|
}
|
|
12268
12525
|
}
|
|
12269
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
12526
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($133, description => $154 => $155 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($158 => $159 => $15a => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($15d => Prelude_IO_prim__putStr('Creating PR...\n', $15d), $158, $159, $15a), $165 => $166 => $167 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($16a => $16b => $16c => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($16f => Prelude_IO_prim__putStr(($1+'\n'), $16f), $16a, $16b, $16c), $179 => FFI_GitHub_createPR($0, $3, $4.a2, $4.a3, $1, baseBranch, title, description), $166, $167), $154, $155), $130, $131);
|
|
12270
12527
|
};
|
|
12271
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
12528
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($129 => $12a => Util_relativeToRoot('.github/PULL_REQUEST_TEMPLATE.md', $129, $12a), $12f, $125, $126);
|
|
12272
12529
|
};
|
|
12273
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
12530
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($112 => $113 => Data_Promise_map_Functor_x28Promisex20x24ex29($116 => ($104+$116), Commands_PullRequest_n__12407_4046_prTitlePrompt($0, $1, $2, $3, $4, inferredBranchInfo.a3), $112, $113), $124, $10e, $10f);
|
|
12274
12531
|
};
|
|
12275
12532
|
};
|
|
12276
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_getInferredBranchInfo($4, $0, $1), $
|
|
12533
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_getInferredBranchInfo($4, $0, $1, baseBranch), $103, $fa, $fb);
|
|
12277
12534
|
};
|
|
12278
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ef => $f0 =>
|
|
12535
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ef => $f0 => Commands_PullRequest_n__12407_4043_getBaseBranch($0, $1, $2, $3, $4, $ef, $f0), $f9, $eb, $ec);
|
|
12279
12536
|
};
|
|
12280
12537
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ce => $cf => $d0 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d3 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $dc => $dc, {a1: 'Creating a new PR for the current branch (', a2: {a1: $1, a2: {a1: ').', a2: {h: 0}}}})+'\n'), $d3), $ce, $cf, $d0), $e9, $ca, $cb);
|
|
12281
12538
|
};
|
|
@@ -12284,46 +12541,51 @@ function Commands_PullRequest_n__11476_3256_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
12284
12541
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $5b, $5c);
|
|
12285
12542
|
}
|
|
12286
12543
|
};
|
|
12287
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4f => $50 =>
|
|
12544
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4f => $50 => Commands_PullRequest_n__12407_4040_continueGivenStagedChanges($0, $1, $2, $3, $4, $4f, $50), $59, $4a, $4b);
|
|
12288
12545
|
}
|
|
12289
12546
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $4a, $4b);
|
|
12290
12547
|
}
|
|
12291
12548
|
};
|
|
12292
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f =>
|
|
12549
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f => Commands_PullRequest_n__12407_4041_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $3e, $3f), $48, $3a, $3b);
|
|
12293
12550
|
};
|
|
12294
12551
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => $a => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($d => $e => System_Git_remoteTrackingBranch($d, $e), $13 => Util_whenNothing(csegen_40()(), $13, $1a => $1b => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => $1f => $20 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($23 => Prelude_IO_prim__putStr('Creating a new remote branch...\n', $23), $1e, $1f, $20), $2b => $2c => $2d => System_Git_pushNewBranch($4.a4, $1, $2c, $2d), $1a, $1b)), $9, $a), $38, $5, $6);
|
|
12295
12552
|
}
|
|
12296
12553
|
|
|
12297
|
-
/* Commands.PullRequest.
|
|
12298
|
-
function
|
|
12554
|
+
/* Commands.PullRequest.12407:4041:continueGivenUncommittedChanges */
|
|
12555
|
+
function Commands_PullRequest_n__12407_4041_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
12299
12556
|
const $e = $f => $10 => $11 => {
|
|
12300
12557
|
switch($f.h) {
|
|
12301
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => $17 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1a => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1a), $15, $16, $17), $22 => $23 => $24 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($27 => $28 => $29 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2c => Prelude_IO_prim__putStr(($f.a1+'\n'), $2c), $27, $28, $29),
|
|
12558
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => $17 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1a => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1a), $15, $16, $17), $22 => $23 => $24 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($27 => $28 => $29 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2c => Prelude_IO_prim__putStr(($f.a1+'\n'), $2c), $27, $28, $29), csegen_799(), $23, $24), $10, $11);
|
|
12302
12559
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $10, $11);
|
|
12303
12560
|
}
|
|
12304
12561
|
};
|
|
12305
12562
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => $a => System_Git_uncommittedChanges($9, $a), $e, $5, $6);
|
|
12306
12563
|
}
|
|
12307
12564
|
|
|
12308
|
-
/* Commands.PullRequest.
|
|
12309
|
-
function
|
|
12565
|
+
/* Commands.PullRequest.12407:4040:continueGivenStagedChanges */
|
|
12566
|
+
function Commands_PullRequest_n__12407_4040_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
12310
12567
|
const $e = $f => $10 => $11 => {
|
|
12311
12568
|
switch($f.h) {
|
|
12312
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => $17 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1a => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1a), $15, $16, $17), $22 => $23 => $24 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($27 => $28 => $29 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2c => Prelude_IO_prim__putStr(($f.a1+'\n'), $2c), $27, $28, $29),
|
|
12569
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => $17 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1a => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1a), $15, $16, $17), $22 => $23 => $24 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($27 => $28 => $29 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2c => Prelude_IO_prim__putStr(($f.a1+'\n'), $2c), $27, $28, $29), csegen_799(), $23, $24), $10, $11);
|
|
12313
12570
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $10, $11);
|
|
12314
12571
|
}
|
|
12315
12572
|
};
|
|
12316
12573
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => $a => System_Git_stagedChanges($9, $a), $e, $5, $6);
|
|
12317
12574
|
}
|
|
12318
12575
|
|
|
12576
|
+
/* Commands.PullRequest.11371:3083:arrow */
|
|
12577
|
+
function Commands_PullRequest_n__11371_3083_arrow($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
12578
|
+
return '\u{2196}';
|
|
12579
|
+
}
|
|
12580
|
+
|
|
12319
12581
|
/* Commands.PullRequest.(.allReviewers) : PRHistory -> (List String, List String) */
|
|
12320
12582
|
function Commands_PullRequest_rf__allReviewers($0) {
|
|
12321
|
-
return Prelude_Interfaces_mapHom(
|
|
12583
|
+
return Prelude_Interfaces_mapHom(csegen_669(), $6 => Prelude_Types_join_Monad_List(Prelude_Types_List_mapAppend({h: 0}, $c => $c.a7, $6)))($0);
|
|
12322
12584
|
}
|
|
12323
12585
|
|
|
12324
12586
|
/* Commands.PullRequest.reviewsForPrs : Config => Octokit => List PullRequest -> Promise' (List Review) */
|
|
12325
12587
|
function Commands_PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
|
|
12326
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_41()(),
|
|
12588
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_41()(), csegen_706(), Prelude_Types_traverse_Traversable_List(csegen_40()(), $13 => Commands_PullRequest_n__9987_1725_forkedReviews($0, $1, $2, $13), $2)), reviewsJson => $1b => $1c => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1f => Data_Promise_either(Prelude_Types_traverse_Traversable_List(csegen_236(), $26 => Language_JSON_Accessors_array($29 => Data_Review_parseReview($29), $26), reviewsJson), $1f), reviews => $30 => $31 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_join_Monad_List(reviews), $30, $31), $1b, $1c), $3, $4);
|
|
12327
12589
|
}
|
|
12328
12590
|
|
|
12329
12591
|
/* Commands.PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise' (List Review) */
|
|
@@ -12353,9 +12615,9 @@ function Commands_PullRequest_reviewsByUser($0, $1, $2, $3) {
|
|
|
12353
12615
|
List PullRequest -> Promise' (SortedMap String (List Review)) */
|
|
12354
12616
|
function Commands_PullRequest_reviewsByEachUser($0, $1, $2, $3, $4) {
|
|
12355
12617
|
const $f = reviews => {
|
|
12356
|
-
const $10 = Data_List_groupAllWith(
|
|
12618
|
+
const $10 = Data_List_groupAllWith(csegen_374(), $15 => $15.a2, reviews);
|
|
12357
12619
|
const $18 = Prelude_Types_List_mapAppend({h: 0}, rs => ({a1: rs.a1.a2, a2: rs}), $10);
|
|
12358
|
-
return $21 => $22 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Data_SortedMap_fromList(
|
|
12620
|
+
return $21 => $22 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Data_SortedMap_fromList(csegen_374(), $18), $21, $22);
|
|
12359
12621
|
};
|
|
12360
12622
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Commands_PullRequest_reviewsForPrs($0, $1, $2, $7, $8), $f, $3, $4);
|
|
12361
12623
|
}
|
|
@@ -12369,12 +12631,12 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12369
12631
|
let $38;
|
|
12370
12632
|
switch($0.a7) {
|
|
12371
12633
|
case 1: {
|
|
12372
|
-
const $3b = Commands_Reviewer_chooseReviewers(
|
|
12634
|
+
const $3b = Commands_Reviewer_chooseReviewers(csegen_374(), $14.a2, $14.a1, teamMembers, {h: 0}, $2.a5);
|
|
12373
12635
|
$38 = Commands_Reviewer_randomReviewer(csegen_48()(), $3b);
|
|
12374
12636
|
break;
|
|
12375
12637
|
}
|
|
12376
12638
|
case 0: {
|
|
12377
|
-
$38 =
|
|
12639
|
+
$38 = csegen_464()();
|
|
12378
12640
|
break;
|
|
12379
12641
|
}
|
|
12380
12642
|
}
|
|
@@ -12410,8 +12672,8 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12410
12672
|
return $7f => {
|
|
12411
12673
|
switch($0.a8) {
|
|
12412
12674
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $7d, $7f);
|
|
12413
|
-
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
12414
|
-
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getUser($1, chosenUser.a1), user => $9f => $a0 => FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
12675
|
+
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, Commands_PullRequest_n__10225_1995_mentionPrComment($1, $5, $4, $3, $2, $0, chosenUser.a1), $7d, $7f);
|
|
12676
|
+
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getUser($1, chosenUser.a1), user => $9f => $a0 => FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, Commands_PullRequest_n__10225_1996_namePrComment($1, $5, $4, $3, $2, $0, user), $9f, $a0), $7d, $7f);
|
|
12415
12677
|
}
|
|
12416
12678
|
};
|
|
12417
12679
|
}
|
|
@@ -12435,11 +12697,11 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12435
12697
|
let $bf;
|
|
12436
12698
|
switch($c0) {
|
|
12437
12699
|
case 1: {
|
|
12438
|
-
$bf = () => $c5 => $c6 => $c7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($ca => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Could not pick a user from the given Team ')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('(perhaps the only option was the author of the pull request?).'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e8 => $e8, {a1: 'Requested review from ', a2: {a1:
|
|
12700
|
+
$bf = () => $c5 => $c6 => $c7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($ca => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Could not pick a user from the given Team ')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('(perhaps the only option was the author of the pull request?).'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e8 => $e8, {a1: 'Requested review from ', a2: {a1: Commands_PullRequest_n__10225_1998_teamNotice($1, $5, $4, $3, $2, $0, $53), a2: {a1: ' for the open PR ', a2: {h: 0}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $101 => $101, {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}}}}))+'\n'), $ca), $c5, $c6, $c7);
|
|
12439
12701
|
break;
|
|
12440
12702
|
}
|
|
12441
12703
|
case 0: {
|
|
12442
|
-
$bf = () => $112 => $113 => $114 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($117 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $128 => $128, {a1: 'Requested review from ', a2: {a1:
|
|
12704
|
+
$bf = () => $112 => $113 => $114 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($117 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $128 => $128, {a1: 'Requested review from ', a2: {a1: Commands_PullRequest_n__10225_1999_userNotice($1, $5, $4, $3, $2, $0, chosenUser), a2: {a1: Commands_PullRequest_n__10225_1998_teamNotice($1, $5, $4, $3, $2, $0, $53), a2: {a1: ' for the open PR ', a2: {h: 0}}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $14b => $14b, {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}}))+'\n'), $117), $112, $113, $114);
|
|
12443
12705
|
break;
|
|
12444
12706
|
}
|
|
12445
12707
|
}
|
|
@@ -12455,9 +12717,39 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12455
12717
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => Commands_PullRequest_listReviewers($0, $1, 4n, 100n, $a, $b), $13, $6, $7);
|
|
12456
12718
|
}
|
|
12457
12719
|
|
|
12720
|
+
/* Commands.PullRequest.renderPrTree : Theme -> RenderFormat -> String -> String -> Maybe String -> Maybe String -> List PullRequest -> String -> String */
|
|
12721
|
+
function Commands_PullRequest_renderPrTree($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
12722
|
+
return (Commands_PullRequest_n__11371_3084_formattedBranchLine($7, $6, $5, $4, $3, $2, $1, $0, 0n, Commands_PullRequest_n__11371_3090_terminus($7, $6, $5, $4, $3, $2, $1, $0), $7, {h: 0})+('\n'+Commands_PullRequest_n__11371_3086_go($7, $6, $5, $4, $3, $2, $1, $0, 1n, Prelude_Types_List_reverse($6), $4)));
|
|
12723
|
+
}
|
|
12724
|
+
|
|
12458
12725
|
/* Commands.PullRequest.prCreationUrl : String -> String -> String -> Maybe String -> String */
|
|
12459
12726
|
function Commands_PullRequest_prCreationUrl($0, $1, $2, $3) {
|
|
12460
|
-
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9 => $9, {a1: 'https://github.com/', a2: {a1: $0, a2: {a1: '/', a2: {a1: $1, a2: {a1: '/compare/', a2: {a1:
|
|
12727
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9 => $9, {a1: 'https://github.com/', a2: {a1: $0, a2: {a1: '/', a2: {a1: $1, a2: {a1: '/compare/', a2: {a1: Commands_PullRequest_n__12300_3932_into($3, $2, $1, $0), a2: {a1: $2, a2: {a1: '?expand=1', a2: {h: 0}}}}}}}}});
|
|
12728
|
+
}
|
|
12729
|
+
|
|
12730
|
+
/* Commands.PullRequest.prChain : Config => Octokit => Fuel -> String -> Promise' (List PullRequest, String) */
|
|
12731
|
+
function Commands_PullRequest_prChain($0, $1, $2, $3) {
|
|
12732
|
+
return $4 => {
|
|
12733
|
+
switch($2.h) {
|
|
12734
|
+
case 0: /* nothing */ return $6 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: {h: 0}, a2: $3}, $4, $6);
|
|
12735
|
+
case undefined: /* just */ {
|
|
12736
|
+
return $d => {
|
|
12737
|
+
switch(Prelude_EqOrd_x3dx3d_Eq_String($3, $0.a5)) {
|
|
12738
|
+
case 1: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: {h: 0}, a2: $3}, $4, $d);
|
|
12739
|
+
case 0: {
|
|
12740
|
+
const $22 = $23 => $24 => $25 => {
|
|
12741
|
+
switch($23.h) {
|
|
12742
|
+
case undefined: /* cons */ return Data_Promise_map_Functor_x28Promisex20x24ex29($29 => ({a1: {a1: $23.a1, a2: $29.a1}, a2: $29.a2}), Commands_PullRequest_prChain($0, $1, $2.a1(), $23.a1.a9), $24, $25);
|
|
12743
|
+
case 0: /* nil */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: {h: 0}, a2: $3}, $24, $25);
|
|
12744
|
+
}
|
|
12745
|
+
};
|
|
12746
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPRsForBranch($1, $0.a2, $0.a3, $3), $22, $4, $d);
|
|
12747
|
+
}
|
|
12748
|
+
}
|
|
12749
|
+
};
|
|
12750
|
+
}
|
|
12751
|
+
}
|
|
12752
|
+
};
|
|
12461
12753
|
}
|
|
12462
12754
|
|
|
12463
12755
|
/* Commands.PullRequest.partition' : Pagination _ _ _ () -> Promise' PRHistory */
|
|
@@ -12494,7 +12786,7 @@ function Commands_PullRequest_listOpenPRs($0, $1, $2, $3) {
|
|
|
12494
12786
|
|
|
12495
12787
|
/* Commands.PullRequest.list' : Maybe GitHubPRState -> Pagination _ _ _ () -> Promise' (List PullRequest) */
|
|
12496
12788
|
function Commands_PullRequest_listx27($0, $1, $2, $3) {
|
|
12497
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_41()(), $b => $c => $d => 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 => $1b => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1b), a4: elem => acc => m => $1f => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1f, funcM, init, input), a5: elem => $26 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($26), a6: a => m => $2a => f => $2b => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($2a, f, $2b)}, $b, $c, $d), Data_Pagination_traversex27(csegen_40()(), $39 => $3a => $3b => $3c => Commands_PullRequest_forkedPRs($0, $39, $3a, $3b, $3c), $1)), prJsons => $45 => $46 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($49 => Data_Promise_either(Prelude_Types_traverse_Traversable_List(
|
|
12789
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_41()(), $b => $c => $d => 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 => $1b => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1b), a4: elem => acc => m => $1f => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1f, funcM, init, input), a5: elem => $26 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($26), a6: a => m => $2a => f => $2b => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($2a, f, $2b)}, $b, $c, $d), Data_Pagination_traversex27(csegen_40()(), $39 => $3a => $3b => $3c => Commands_PullRequest_forkedPRs($0, $39, $3a, $3b, $3c), $1)), prJsons => $45 => $46 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($49 => Data_Promise_either(Prelude_Types_traverse_Traversable_List(csegen_236(), csegen_316(), prJsons), $49), pulls => $54 => $55 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_join_Monad_List(pulls), $54, $55), $45, $46), $2, $3);
|
|
12498
12790
|
}
|
|
12499
12791
|
|
|
12500
12792
|
/* Commands.PullRequest.identifyOrCreatePR : Config => Octokit => {default False _ : Bool} ->
|
|
@@ -12514,7 +12806,7 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
12514
12806
|
return $20 => {
|
|
12515
12807
|
const $29 = $2a => $2b => $2c => {
|
|
12516
12808
|
switch($2a) {
|
|
12517
|
-
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($30 => ({h: 0 /* Actual */, a1: 1, a2: $30}), $34 => $35 =>
|
|
12809
|
+
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($30 => ({h: 0 /* Actual */, a1: 1, a2: $30}), $34 => $35 => Commands_PullRequest_n__12407_4042_createPR($1, $4, $3, $2, $0, $34, $35), $2b, $2c);
|
|
12518
12810
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1: Commands_PullRequest_prCreationUrl($0.a2, $0.a3, $4, $3)}, $2b, $2c);
|
|
12519
12811
|
}
|
|
12520
12812
|
};
|
|
@@ -12527,23 +12819,23 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
12527
12819
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPRsForBranch($1, $0.a2, $0.a3, $4), $10, $5, $6);
|
|
12528
12820
|
}
|
|
12529
12821
|
|
|
12530
|
-
/* Commands.PullRequest.githubInferredBranchInfo : Config => Octokit => String -> Promise' BranchInferredData */
|
|
12531
|
-
function Commands_PullRequest_githubInferredBranchInfo($0, $1, $2) {
|
|
12532
|
-
return $
|
|
12822
|
+
/* Commands.PullRequest.githubInferredBranchInfo : Config => Octokit => String -> String -> Promise' BranchInferredData */
|
|
12823
|
+
function Commands_PullRequest_githubInferredBranchInfo($0, $1, $2, $3) {
|
|
12824
|
+
return $4 => Commands_PullRequest_case__githubInferredBranchInfo_3793($1, $3, $2, $0, Commands_PullRequest_n__11942_3599_issueNumber($1, $3, $2, $0), $4);
|
|
12533
12825
|
}
|
|
12534
12826
|
|
|
12535
|
-
/* Commands.PullRequest.getInferredBranchInfo : Config => Octokit => String -> Promise' BranchInferredData */
|
|
12536
|
-
function Commands_PullRequest_getInferredBranchInfo($0, $1, $2) {
|
|
12827
|
+
/* Commands.PullRequest.getInferredBranchInfo : Config => Octokit => String -> String -> Promise' BranchInferredData */
|
|
12828
|
+
function Commands_PullRequest_getInferredBranchInfo($0, $1, $2, $3) {
|
|
12537
12829
|
switch($0.a9) {
|
|
12538
|
-
case 1: return $
|
|
12539
|
-
case 2: return Commands_PullRequest_githubInferredBranchInfo($0, $1, $2);
|
|
12540
|
-
case 0: return $
|
|
12830
|
+
case 1: return $6 => $7 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: Prelude_Types_map_Functor_Maybe($d => ($d+' - '), Util_Jira_parseJiraSlug($2)), a2: {h: 0}, a3: {h: 0}}, $6, $7);
|
|
12831
|
+
case 2: return Commands_PullRequest_githubInferredBranchInfo($0, $1, $2, $3);
|
|
12832
|
+
case 0: return $1c => $1d => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Commands_PullRequest_noInferredData(), $1c, $1d);
|
|
12541
12833
|
}
|
|
12542
12834
|
}
|
|
12543
12835
|
|
|
12544
12836
|
/* Commands.PullRequest.forkedPRs : Maybe GitHubPRState -> Nat -> Nat -> Nat -> () -> Promise' Future */
|
|
12545
12837
|
function Commands_PullRequest_forkedPRs($0, $1, $2, $3, $4) {
|
|
12546
|
-
return FFI_Concurrency_fork(csegen_48()(), Prelude_Types_foldMap_Foldable_List(csegen_86()(), $f => $f, {a1: 'pulls --json ', a2: {a1:
|
|
12838
|
+
return FFI_Concurrency_fork(csegen_48()(), Prelude_Types_foldMap_Foldable_List(csegen_86()(), $f => $f, {a1: 'pulls --json ', a2: {a1: Commands_PullRequest_n__9410_1180_filterString($3, $4, $2, $1, $0), a2: {a1: ' ', a2: {a1: Prelude_Show_show_Show_Nat($1), a2: {a1: ' ', a2: {a1: Prelude_Show_show_Show_Nat($2), a2: {h: 0}}}}}}}));
|
|
12547
12839
|
}
|
|
12548
12840
|
|
|
12549
12841
|
/* Commands.PullRequest.empty : PRHistory */
|
|
@@ -12571,6 +12863,66 @@ function Commands_PullRequest_combined($0) {
|
|
|
12571
12863
|
return Prelude_Types_List_tailRecAppend($0.a1, $0.a2);
|
|
12572
12864
|
}
|
|
12573
12865
|
|
|
12866
|
+
/* Util.Jira.2629:820:startOver */
|
|
12867
|
+
const Util_Jira_n__2629_820_startOver = __lazy(function () {
|
|
12868
|
+
return {a1: 0, a2: {h: 0}};
|
|
12869
|
+
});
|
|
12870
|
+
|
|
12871
|
+
/* Util.Jira.2629:819:guardSuccess */
|
|
12872
|
+
function Util_Jira_n__2629_819_guardSuccess($0) {
|
|
12873
|
+
switch($0.h) {
|
|
12874
|
+
case undefined: /* cons */ {
|
|
12875
|
+
switch($0.a1) {
|
|
12876
|
+
case 3: return {a1: $0.a2};
|
|
12877
|
+
case 4: return {a1: $0.a2};
|
|
12878
|
+
default: return {h: 0};
|
|
12879
|
+
}
|
|
12880
|
+
}
|
|
12881
|
+
default: return {h: 0};
|
|
12882
|
+
}
|
|
12883
|
+
}
|
|
12884
|
+
|
|
12885
|
+
/* Util.Jira.2629:818:go */
|
|
12886
|
+
function Util_Jira_n__2629_818_go($0, $1) {
|
|
12887
|
+
switch($0.a1) {
|
|
12888
|
+
case 0: {
|
|
12889
|
+
switch(Prelude_Types_isAlpha($1)) {
|
|
12890
|
+
case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
|
|
12891
|
+
case 0: return Util_Jira_n__2629_820_startOver();
|
|
12892
|
+
}
|
|
12893
|
+
}
|
|
12894
|
+
case 1: {
|
|
12895
|
+
switch($1) {
|
|
12896
|
+
case '-': return {a1: 2, a2: {a1: '-', a2: $0.a2}};
|
|
12897
|
+
default: {
|
|
12898
|
+
switch(Prelude_Types_isAlpha($1)) {
|
|
12899
|
+
case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
|
|
12900
|
+
case 0: return Util_Jira_n__2629_820_startOver();
|
|
12901
|
+
}
|
|
12902
|
+
}
|
|
12903
|
+
}
|
|
12904
|
+
}
|
|
12905
|
+
case 2: {
|
|
12906
|
+
switch(Prelude_Types_isDigit($1)) {
|
|
12907
|
+
case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
|
|
12908
|
+
case 0: return Util_Jira_n__2629_820_startOver();
|
|
12909
|
+
}
|
|
12910
|
+
}
|
|
12911
|
+
case 3: {
|
|
12912
|
+
switch(Prelude_Types_isDigit($1)) {
|
|
12913
|
+
case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
|
|
12914
|
+
case 0: return {a1: 4, a2: $0.a2};
|
|
12915
|
+
}
|
|
12916
|
+
}
|
|
12917
|
+
case 4: return {a1: 4, a2: $0.a2};
|
|
12918
|
+
}
|
|
12919
|
+
}
|
|
12920
|
+
|
|
12921
|
+
/* Util.Jira.parseJiraSlug : String -> Maybe String */
|
|
12922
|
+
function Util_Jira_parseJiraSlug($0) {
|
|
12923
|
+
return Prelude_Types_map_Functor_Maybe(csegen_838(), Util_Jira_n__2629_819_guardSuccess(Prelude_Types_foldl_Foldable_List($9 => $a => Util_Jira_n__2629_818_go($9, $a), Util_Jira_n__2629_820_startOver(), Prelude_Types_fastUnpack($0))));
|
|
12924
|
+
}
|
|
12925
|
+
|
|
12574
12926
|
/* Util.Github.2629:826:startOver */
|
|
12575
12927
|
const Util_Github_n__2629_826_startOver = __lazy(function () {
|
|
12576
12928
|
return {a1: {h: 1 /* 2629:822:StartOver */}, a2: {h: 0}};
|
|
@@ -12670,67 +13022,7 @@ function Util_Github_n__2629_823_go($0, $1) {
|
|
|
12670
13022
|
|
|
12671
13023
|
/* Util.Github.parseGithubIssueNumber : String -> Maybe String */
|
|
12672
13024
|
function Util_Github_parseGithubIssueNumber($0) {
|
|
12673
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
12674
|
-
}
|
|
12675
|
-
|
|
12676
|
-
/* Util.Jira.2629:820:startOver */
|
|
12677
|
-
const Util_Jira_n__2629_820_startOver = __lazy(function () {
|
|
12678
|
-
return {a1: 0, a2: {h: 0}};
|
|
12679
|
-
});
|
|
12680
|
-
|
|
12681
|
-
/* Util.Jira.2629:819:guardSuccess */
|
|
12682
|
-
function Util_Jira_n__2629_819_guardSuccess($0) {
|
|
12683
|
-
switch($0.h) {
|
|
12684
|
-
case undefined: /* cons */ {
|
|
12685
|
-
switch($0.a1) {
|
|
12686
|
-
case 3: return {a1: $0.a2};
|
|
12687
|
-
case 4: return {a1: $0.a2};
|
|
12688
|
-
default: return {h: 0};
|
|
12689
|
-
}
|
|
12690
|
-
}
|
|
12691
|
-
default: return {h: 0};
|
|
12692
|
-
}
|
|
12693
|
-
}
|
|
12694
|
-
|
|
12695
|
-
/* Util.Jira.2629:818:go */
|
|
12696
|
-
function Util_Jira_n__2629_818_go($0, $1) {
|
|
12697
|
-
switch($0.a1) {
|
|
12698
|
-
case 0: {
|
|
12699
|
-
switch(Prelude_Types_isAlpha($1)) {
|
|
12700
|
-
case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
|
|
12701
|
-
case 0: return Util_Jira_n__2629_820_startOver();
|
|
12702
|
-
}
|
|
12703
|
-
}
|
|
12704
|
-
case 1: {
|
|
12705
|
-
switch($1) {
|
|
12706
|
-
case '-': return {a1: 2, a2: {a1: '-', a2: $0.a2}};
|
|
12707
|
-
default: {
|
|
12708
|
-
switch(Prelude_Types_isAlpha($1)) {
|
|
12709
|
-
case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
|
|
12710
|
-
case 0: return Util_Jira_n__2629_820_startOver();
|
|
12711
|
-
}
|
|
12712
|
-
}
|
|
12713
|
-
}
|
|
12714
|
-
}
|
|
12715
|
-
case 2: {
|
|
12716
|
-
switch(Prelude_Types_isDigit($1)) {
|
|
12717
|
-
case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
|
|
12718
|
-
case 0: return Util_Jira_n__2629_820_startOver();
|
|
12719
|
-
}
|
|
12720
|
-
}
|
|
12721
|
-
case 3: {
|
|
12722
|
-
switch(Prelude_Types_isDigit($1)) {
|
|
12723
|
-
case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
|
|
12724
|
-
case 0: return {a1: 4, a2: $0.a2};
|
|
12725
|
-
}
|
|
12726
|
-
}
|
|
12727
|
-
case 4: return {a1: 4, a2: $0.a2};
|
|
12728
|
-
}
|
|
12729
|
-
}
|
|
12730
|
-
|
|
12731
|
-
/* Util.Jira.parseJiraSlug : String -> Maybe String */
|
|
12732
|
-
function Util_Jira_parseJiraSlug($0) {
|
|
12733
|
-
return Prelude_Types_map_Functor_Maybe(csegen_829(), Util_Jira_n__2629_819_guardSuccess(Prelude_Types_foldl_Foldable_List($9 => $a => Util_Jira_n__2629_818_go($9, $a), Util_Jira_n__2629_820_startOver(), Prelude_Types_fastUnpack($0))));
|
|
13025
|
+
return Prelude_Types_map_Functor_Maybe(csegen_838(), Util_Github_n__2629_825_guardSuccess(Prelude_Types_foldl_Foldable_List($9 => $a => Util_Github_n__2629_823_go($9, $a), {a1: {h: 0 /* 2629:821:Start */}, a2: {h: 0}}, Prelude_Types_fastUnpack($0))));
|
|
12734
13026
|
}
|
|
12735
13027
|
|
|
12736
13028
|
/* Data.Pagination.with block in metaPages' */
|
|
@@ -12962,7 +13254,7 @@ function Data_ReviewScore_n__3521_1043_weightReviews($0, $1, $2, $3, $4, $5) {
|
|
|
12962
13254
|
|
|
12963
13255
|
/* Data.ReviewScore.3521:1042:sort' */
|
|
12964
13256
|
function Data_ReviewScore_n__3521_1042_sortx27($0, $1, $2, $3, $4) {
|
|
12965
|
-
return Data_List_sortBy($7 => $8 => Prelude_Basics_on(
|
|
13257
|
+
return Data_List_sortBy($7 => $8 => Prelude_Basics_on(csegen_298(), $d => $d.a3, $7, $8), $4);
|
|
12966
13258
|
}
|
|
12967
13259
|
|
|
12968
13260
|
/* Data.ReviewScore.3548:1196:calc */
|
|
@@ -12999,13 +13291,13 @@ function Data_List_DeleteBy_deleteByx27($0, $1, $2) {
|
|
|
12999
13291
|
}
|
|
13000
13292
|
}
|
|
13001
13293
|
|
|
13002
|
-
/* Commands.Quick.
|
|
13003
|
-
function
|
|
13294
|
+
/* Commands.Quick.5956:5655:issuePrompt */
|
|
13295
|
+
function Commands_Quick_n__5956_5655_issuePrompt($0, $1, $2) {
|
|
13004
13296
|
return 'What would you like the issue description to be (two blank lines to finish)?';
|
|
13005
13297
|
}
|
|
13006
13298
|
|
|
13007
|
-
/* Commands.Quick.
|
|
13008
|
-
function
|
|
13299
|
+
/* Commands.Quick.6122:5820:branchPrefix */
|
|
13300
|
+
function Commands_Quick_n__6122_5820_branchPrefix($0, $1, $2, $3) {
|
|
13009
13301
|
return Data_String_toLower(Commands_Quick_show_Show_IssueCategory($2));
|
|
13010
13302
|
}
|
|
13011
13303
|
|
|
@@ -13035,10 +13327,10 @@ function Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5) {
|
|
|
13035
13327
|
}
|
|
13036
13328
|
}
|
|
13037
13329
|
const $21 = issue => {
|
|
13038
|
-
const $22 = Prelude_Types_foldMap_Foldable_List(csegen_86()(), $28 => $28, {a1:
|
|
13330
|
+
const $22 = Prelude_Types_foldMap_Foldable_List(csegen_86()(), $28 => $28, {a1: Commands_Quick_n__6122_5820_branchPrefix($1, $3, $2, $0), a2: {a1: '/', a2: {a1: Prelude_Show_show_Show_Integer(issue.a1), a2: {a1: '/', a2: {h: 0}}}}});
|
|
13039
13331
|
const $3a = Commands_Quick_branchNameSuggestion(issue.a2);
|
|
13040
13332
|
const $3e = ($22+$3a);
|
|
13041
|
-
return $41 => $42 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($45 => $46 => $47 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($4a => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $53 => $53, {a1: 'What would you like the branch to be named? ', a2: {a1: Util_Prompting_enterForDefaultStr($3e), a2: {h: 0}}})+'\n'), $4a), $45, $46, $47), $61 => $62 => $63 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($66 => $67 => $68 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($6b => Prelude_IO_prim__putStr($22, $6b), $66, $67, $68), $73 => $74 => $75 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($78 => $79 => Data_Promise_map_Functor_x28Promisex20x24ex29($7c => Util_Prompting_orIfEmpty({a1: $3a}, Data_String_trim($7c)),
|
|
13333
|
+
return $41 => $42 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($45 => $46 => $47 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($4a => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $53 => $53, {a1: 'What would you like the branch to be named? ', a2: {a1: Util_Prompting_enterForDefaultStr($3e), a2: {h: 0}}})+'\n'), $4a), $45, $46, $47), $61 => $62 => $63 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($66 => $67 => $68 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($6b => Prelude_IO_prim__putStr($22, $6b), $66, $67, $68), $73 => $74 => $75 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($78 => $79 => Data_Promise_map_Functor_x28Promisex20x24ex29($7c => Util_Prompting_orIfEmpty({a1: $3a}, Data_String_trim($7c)), csegen_460()(), $78, $79), branchSlug => System_Git_checkoutBranch(1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $91 => $91, {a1: $22, a2: {a1: branchSlug, a2: {h: 0}}})), $74, $75), $62, $63), $41, $42);
|
|
13042
13334
|
};
|
|
13043
13335
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7, $21, $4, $5);
|
|
13044
13336
|
}
|
|
@@ -13055,7 +13347,7 @@ function Commands_Quick_createNewIssue($0, $1, $2, $3, $4) {
|
|
|
13055
13347
|
const $20 = $21 => $22 => {
|
|
13056
13348
|
switch($2.h) {
|
|
13057
13349
|
case undefined: /* just */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29($2.a1, $21, $22);
|
|
13058
|
-
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2a => $2b => $2c => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2f => Prelude_IO_prim__putStr('What would you like the issue title to be?\n', $2f), $2a, $2b, $2c), $37 => $38 => $39 => Data_Promise_map_Functor_x28Promisex20x24ex29($3c => Data_String_trim($3c),
|
|
13350
|
+
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2a => $2b => $2c => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2f => Prelude_IO_prim__putStr('What would you like the issue title to be?\n', $2f), $2a, $2b, $2c), $37 => $38 => $39 => Data_Promise_map_Functor_x28Promisex20x24ex29($3c => Data_String_trim($3c), csegen_460()(), $38, $39), $21, $22);
|
|
13059
13351
|
}
|
|
13060
13352
|
};
|
|
13061
13353
|
const $46 = issueTitle => $47 => $48 => {
|
|
@@ -13063,11 +13355,11 @@ function Commands_Quick_createNewIssue($0, $1, $2, $3, $4) {
|
|
|
13063
13355
|
let $4a;
|
|
13064
13356
|
switch($4b.h) {
|
|
13065
13357
|
case 0: /* nothing */ {
|
|
13066
|
-
$4a = Util_Prompting_inlineDescription(csegen_48()(),
|
|
13358
|
+
$4a = Util_Prompting_inlineDescription(csegen_48()(), Commands_Quick_n__5956_5655_issuePrompt($1, $2, $0), '');
|
|
13067
13359
|
break;
|
|
13068
13360
|
}
|
|
13069
13361
|
case undefined: /* just */ {
|
|
13070
|
-
$4a = $58 => $59 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
13362
|
+
$4a = $58 => $59 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_792(), Util_Prompting_editorDescription(csegen_48()(), $4b.a1, {h: 0}, ''), $58, $59);
|
|
13071
13363
|
break;
|
|
13072
13364
|
}
|
|
13073
13365
|
}
|
|
@@ -13075,7 +13367,7 @@ function Commands_Quick_createNewIssue($0, $1, $2, $3, $4) {
|
|
|
13075
13367
|
};
|
|
13076
13368
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($20, $46, $1d, $1e);
|
|
13077
13369
|
};
|
|
13078
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
13370
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_458()(), $1b, $15, $16);
|
|
13079
13371
|
};
|
|
13080
13372
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => $9 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($c => Prelude_IO_prim__putStr('Creating a new GitHub issue and branch.\n', $c), $7, $8, $9), $13, $3, $4);
|
|
13081
13373
|
}
|
|
@@ -13099,36 +13391,36 @@ function Commands_Label_addLabels($0, $1, $2, $3, $4, $5) {
|
|
|
13099
13391
|
return FFI_GitHub_addPullLabels($1, $0.a2, $0.a3, $2.a1, $3, $4, $5);
|
|
13100
13392
|
}
|
|
13101
13393
|
|
|
13102
|
-
/* Commands.Graph.
|
|
13103
|
-
function
|
|
13104
|
-
return Theme_theme($7,
|
|
13394
|
+
/* Commands.Graph.7788:7016:pendingDot */
|
|
13395
|
+
function Commands_Graph_n__7788_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13396
|
+
return Theme_theme($7, csegen_767(), csegen_765(), 6)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
|
|
13105
13397
|
}
|
|
13106
13398
|
|
|
13107
|
-
/* Commands.Graph.
|
|
13108
|
-
function
|
|
13399
|
+
/* Commands.Graph.7788:7015:note */
|
|
13400
|
+
function Commands_Graph_n__7788_7015_note($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
13109
13401
|
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:')), $8);
|
|
13110
13402
|
}
|
|
13111
13403
|
|
|
13112
|
-
/* Commands.Graph.
|
|
13113
|
-
function
|
|
13114
|
-
return Theme_theme($7,
|
|
13404
|
+
/* Commands.Graph.7788:7014:missedDot */
|
|
13405
|
+
function Commands_Graph_n__7788_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13406
|
+
return Theme_theme($7, csegen_766(), csegen_766(), 7)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
|
|
13115
13407
|
}
|
|
13116
13408
|
|
|
13117
|
-
/* Commands.Graph.
|
|
13118
|
-
function
|
|
13409
|
+
/* Commands.Graph.7788:7013:maxValue */
|
|
13410
|
+
function Commands_Graph_n__7788_7013_maxValue($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
13119
13411
|
switch($8.h) {
|
|
13120
13412
|
case 0: /* nil */ return 0n;
|
|
13121
|
-
case undefined: /* cons */ return Prelude_Types_max_Ord_Nat($8.a1.a2,
|
|
13413
|
+
case undefined: /* cons */ return Prelude_Types_max_Ord_Nat($8.a1.a2, Commands_Graph_n__7788_7013_maxValue($0, $1, $2, $3, $4, $5, $6, $7, $8.a2));
|
|
13122
13414
|
}
|
|
13123
13415
|
}
|
|
13124
13416
|
|
|
13125
|
-
/* Commands.Graph.
|
|
13126
|
-
function
|
|
13417
|
+
/* Commands.Graph.7385:6605:link */
|
|
13418
|
+
function Commands_Graph_n__7385_6605_link($0, $1, $2, $3) {
|
|
13127
13419
|
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9 => $9, {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}}}}}});
|
|
13128
13420
|
}
|
|
13129
13421
|
|
|
13130
|
-
/* Commands.Graph.
|
|
13131
|
-
function
|
|
13422
|
+
/* Commands.Graph.7788:7012:header */
|
|
13423
|
+
function Commands_Graph_n__7788_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13132
13424
|
let $3b;
|
|
13133
13425
|
switch(Prelude_Types_null_Foldable_Maybe($3)) {
|
|
13134
13426
|
case 1: {
|
|
@@ -13136,58 +13428,58 @@ function Commands_Graph_n__7733_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
13136
13428
|
break;
|
|
13137
13429
|
}
|
|
13138
13430
|
case 0: {
|
|
13139
|
-
$3b = {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('1x the number of completed reviews'), Text_PrettyPrint_Prettyprinter_Symbols_parens(
|
|
13431
|
+
$3b = {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('1x the number of completed reviews'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Commands_Graph_n__7788_7010_completedBox($0, $1, $2, $3, $4, $5, $6, $7)))};
|
|
13140
13432
|
break;
|
|
13141
13433
|
}
|
|
13142
13434
|
}
|
|
13143
|
-
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
13144
|
-
const $27 = {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(
|
|
13145
|
-
const $14 = {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(
|
|
13435
|
+
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__7788_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('overlayed on'), Commands_Graph_n__7788_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7))))}, a2: csegen_853()}};
|
|
13436
|
+
const $27 = {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(Commands_Graph_n__7788_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $3a};
|
|
13437
|
+
const $14 = {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(Commands_Graph_n__7788_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $27};
|
|
13146
13438
|
const $f = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $14};
|
|
13147
13439
|
const $b = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: $f};
|
|
13148
13440
|
const $9 = Data_List_catMaybes($b);
|
|
13149
13441
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep($9);
|
|
13150
13442
|
}
|
|
13151
13443
|
|
|
13152
|
-
/* Commands.Graph.
|
|
13153
|
-
function
|
|
13154
|
-
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:
|
|
13444
|
+
/* Commands.Graph.7385:6604:header */
|
|
13445
|
+
function Commands_Graph_n__7385_6604_header($0, $1, $2, $3) {
|
|
13446
|
+
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_853()}}}));
|
|
13155
13447
|
}
|
|
13156
13448
|
|
|
13157
|
-
/* Commands.Graph.
|
|
13158
|
-
function
|
|
13449
|
+
/* Commands.Graph.7385:6603:graphable */
|
|
13450
|
+
function Commands_Graph_n__7385_6603_graphable($0, $1, $2, $3, $4) {
|
|
13159
13451
|
return {a1: $4.a1.a3, a2: (Prelude_Types_List_lengthTR($4.a2)+1n)};
|
|
13160
13452
|
}
|
|
13161
13453
|
|
|
13162
|
-
/* Commands.Graph.
|
|
13163
|
-
function
|
|
13164
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
13454
|
+
/* Commands.Graph.7788:7011:footer */
|
|
13455
|
+
function Commands_Graph_n__7788_7011_footer($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13456
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_Graph_n__7788_7015_note($0, $1, $2, $3, $4, $5, $6, $7, Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1f => $1f, {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}}}});
|
|
13165
13457
|
}
|
|
13166
13458
|
|
|
13167
|
-
/* Commands.Graph.
|
|
13168
|
-
function
|
|
13459
|
+
/* Commands.Graph.6818:6183:countInParens */
|
|
13460
|
+
function Commands_Graph_n__6818_6183_countInParens($0, $1, $2, $3, $4) {
|
|
13169
13461
|
switch(Prelude_Types_x3e_Ord_Nat($4.a2, 4n)) {
|
|
13170
13462
|
case 1: return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Commands_Graph_rf__countStr($4)));
|
|
13171
13463
|
case 0: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('');
|
|
13172
13464
|
}
|
|
13173
13465
|
}
|
|
13174
13466
|
|
|
13175
|
-
/* Commands.Graph.
|
|
13176
|
-
function
|
|
13177
|
-
return Theme_theme($7,
|
|
13467
|
+
/* Commands.Graph.7788:7010:completedBox */
|
|
13468
|
+
function Commands_Graph_n__7788_7010_completedBox($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13469
|
+
return Theme_theme($7, csegen_745(), csegen_745(), 3)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25aa}'));
|
|
13178
13470
|
}
|
|
13179
13471
|
|
|
13180
|
-
/* Commands.Graph.
|
|
13181
|
-
function
|
|
13472
|
+
/* Commands.Graph.6818:6182:coloredLabel */
|
|
13473
|
+
function Commands_Graph_n__6818_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
13182
13474
|
switch((($4.a2===0n)?1:0)) {
|
|
13183
|
-
case 1: return Theme_theme($0,
|
|
13475
|
+
case 1: return Theme_theme($0, csegen_745(), csegen_745(), 0)($2.a1(undefined)($4.a1));
|
|
13184
13476
|
case 0: {
|
|
13185
13477
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 2n)) {
|
|
13186
13478
|
case 1: return $2.a1(undefined)($4.a1);
|
|
13187
13479
|
case 0: {
|
|
13188
13480
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 6n)) {
|
|
13189
|
-
case 1: return Theme_theme($0,
|
|
13190
|
-
case 0: return Theme_theme($0,
|
|
13481
|
+
case 1: return Theme_theme($0, csegen_767(), csegen_765(), 1)($2.a1(undefined)($4.a1));
|
|
13482
|
+
case 0: return Theme_theme($0, csegen_766(), csegen_766(), 2)($2.a1(undefined)($4.a1));
|
|
13191
13483
|
}
|
|
13192
13484
|
}
|
|
13193
13485
|
}
|
|
@@ -13195,8 +13487,8 @@ function Commands_Graph_n__6763_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
|
13195
13487
|
}
|
|
13196
13488
|
}
|
|
13197
13489
|
|
|
13198
|
-
/* Commands.Graph.
|
|
13199
|
-
function
|
|
13490
|
+
/* Commands.Graph.7788:7009:augment */
|
|
13491
|
+
function Commands_Graph_n__7788_7009_augment($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
13200
13492
|
return {a1: $9, a2: Prelude_Types_maybe(() => 0n, () => $f => $f, Data_SortedMap_lookup($9.a1, $8))};
|
|
13201
13493
|
}
|
|
13202
13494
|
|
|
@@ -13242,7 +13534,7 @@ function Commands_Graph_length_HasLength_Date($0) {
|
|
|
13242
13534
|
|
|
13243
13535
|
/* Commands.Graph.label */
|
|
13244
13536
|
function Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $1, $2, $3, $4) {
|
|
13245
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
13537
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__6818_6182_coloredLabel($0, $1, $2, $4, $3), Commands_Graph_n__6818_6183_countInParens($0, $1, $2, $4, $3));
|
|
13246
13538
|
}
|
|
13247
13539
|
|
|
13248
13540
|
/* Commands.Graph.label */
|
|
@@ -13296,11 +13588,11 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
13296
13588
|
break;
|
|
13297
13589
|
}
|
|
13298
13590
|
case undefined: /* just */ {
|
|
13299
|
-
$17 = Prelude_Types_List_mapAppend({h: 0}, $26 =>
|
|
13591
|
+
$17 = Prelude_Types_List_mapAppend({h: 0}, $26 => Commands_Graph_n__7788_7009_augment($1, $2, $3, $7, $6, $5, $4, $0, $7.a1, $26), $8);
|
|
13300
13592
|
break;
|
|
13301
13593
|
}
|
|
13302
13594
|
}
|
|
13303
|
-
const $33 = Prelude_Types_maybe(() => 0n, () => $37 => $37, Prelude_Types_map_Functor_Maybe($3b =>
|
|
13595
|
+
const $33 = Prelude_Types_maybe(() => 0n, () => $37 => $37, Prelude_Types_map_Functor_Maybe($3b => Commands_Graph_n__7788_7013_maxValue($1, $2, $3, $7, $6, $5, $4, $0, Data_SortedMap_toList($3b)), $7));
|
|
13304
13596
|
const $49 = Prelude_Types_foldr_Foldable_List($4c => $4d => Data_Nat_maximum(Commands_Graph_labelLength_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $3, $4c), $4d), 0n, $17);
|
|
13305
13597
|
switch($8.h) {
|
|
13306
13598
|
case 0: /* nil */ return Text_PrettyPrint_Prettyprinter_Doc_emptyDoc();
|
|
@@ -13318,8 +13610,8 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
13318
13610
|
}
|
|
13319
13611
|
}
|
|
13320
13612
|
const $6e = Commands_Graph_graph($0, {a1: $73 => Commands_Graph_totalWidth_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $3, $73), a2: $79 => maxLabelLength => Commands_Graph_label_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $3, $79, maxLabelLength), a3: $80 => Commands_Graph_labelLength_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $3, $80), a4: $86 => Commands_Graph_score_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $3, $86), a5: $8c => Commands_Graph_detractor_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $3, $8c), a6: $92 => Commands_Graph_bonus_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $3, $92)}, $97, $33, $49, $17);
|
|
13321
|
-
const $6d = {a1: $6e, a2: {a1:
|
|
13322
|
-
const $62 = {a1:
|
|
13613
|
+
const $6d = {a1: $6e, a2: {a1: Commands_Graph_n__7788_7011_footer($1, $2, $3, $7, $6, $5, $4, $0), a2: {h: 0}}};
|
|
13614
|
+
const $62 = {a1: Commands_Graph_n__7788_7012_header($1, $2, $3, $7, $6, $5, $4, $0), a2: $6d};
|
|
13323
13615
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep($62);
|
|
13324
13616
|
}
|
|
13325
13617
|
}
|
|
@@ -13327,9 +13619,9 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
13327
13619
|
|
|
13328
13620
|
/* Commands.Graph.healthGraph : Config => List PullRequest -> String -> String -> Doc AnsiStyle */
|
|
13329
13621
|
function Commands_Graph_healthGraph($0, $1, $2, $3) {
|
|
13330
|
-
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(
|
|
13622
|
+
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(csegen_295(), $11 => $11.a2, $b, $c), csegen_719(), $7, $8), Data_List_sortBy(csegen_720(), $1));
|
|
13331
13623
|
const $1e = Prelude_Types_foldr_Foldable_List(xs => m => Prelude_Types_max_Ord_Nat(Data_List1_length(xs), m), 1n, $4);
|
|
13332
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
13624
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_Graph_n__7385_6604_header($3, $2, $1, $0), a2: {a1: Commands_Graph_graph($0, {a1: $36 => Commands_Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29($0, $3a => Commands_Graph_length_HasLength_Date($3a), csegen_869(), $36), a2: $41 => maxLabelLength => Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $45 => Commands_Graph_length_HasLength_Date($45), csegen_869(), $41, maxLabelLength), a3: $4d => Commands_Graph_labelLength_Graphable_x28PRsOnDatex20x24dateTyx29($0, $51 => Commands_Graph_length_HasLength_Date($51), csegen_869(), $4d), a4: $58 => Commands_Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29($0, $5c => Commands_Graph_length_HasLength_Date($5c), csegen_869(), $58), a5: $63 => Commands_Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29($0, $67 => Commands_Graph_length_HasLength_Date($67), csegen_869(), $63), a6: $6e => Commands_Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29($0, $72 => Commands_Graph_length_HasLength_Date($72), csegen_869(), $6e)}, $1e, 0n, 0n, Commands_Graph_n__7385_6606_unfoldGraph($3, $2, $1, $0, Data_Fuel_limit(48n), $4, {h: 0})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Commands_Graph_n__7385_6605_link($3, $2, $1, $0)), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}});
|
|
13333
13625
|
}
|
|
13334
13626
|
|
|
13335
13627
|
/* Commands.Graph.graphOne : Config -> Graphable g => Nat -> Nat -> Nat -> g -> Doc AnsiStyle */
|
|
@@ -13352,7 +13644,7 @@ function Commands_Graph_countPadRight($0, $1, $2) {
|
|
|
13352
13644
|
|
|
13353
13645
|
/* Commands.Graph.bar : Config -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
13354
13646
|
function Commands_Graph_bar($0, $1, $2, $3, $4) {
|
|
13355
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0,
|
|
13647
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0, csegen_766(), csegen_766(), 7)(Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $3, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{25e6}')))), a2: {a1: Theme_theme($0, csegen_767(), csegen_765(), 6)(Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $2, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{b7}')))), a2: {a1: Theme_theme($0, csegen_745(), csegen_745(), 3)(Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $4, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{25aa}')))), a2: {h: 0}}}}));
|
|
13356
13648
|
}
|
|
13357
13649
|
|
|
13358
13650
|
|