@mattpolzin/harmony 6.4.0 → 6.5.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 -33
- package/harmony +733 -711
- package/man/harmony.1 +7 -1
- 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_848(), $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_848(), $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_848(), $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_848(), $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__7436_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__7436_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__7436_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__7436_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__7436_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__7436_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__7436_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__7436_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__7436_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__7436_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.7457:6732:insertNext */
|
|
1332
|
+
function Commands_Graph_n__7457_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.7436:6606:unfoldGraph */
|
|
1337
|
+
function Commands_Graph_n__7436_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.7457:6733:insertPlaceholder */
|
|
1342
|
+
function Commands_Graph_n__7457_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
|
|
|
@@ -2825,18 +2825,18 @@ const csegen_340 = __lazy(function () {
|
|
|
2825
2825
|
return () => $0 => Language_JSON_Accessors_optional($3 => Language_JSON_Accessors_string($3), $0);
|
|
2826
2826
|
});
|
|
2827
2827
|
|
|
2828
|
-
/* {csegen:
|
|
2829
|
-
const
|
|
2828
|
+
/* {csegen:376} */
|
|
2829
|
+
const csegen_376 = __lazy(function () {
|
|
2830
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)};
|
|
2831
2831
|
});
|
|
2832
2832
|
|
|
2833
|
-
/* {csegen:
|
|
2834
|
-
const
|
|
2833
|
+
/* {csegen:379} */
|
|
2834
|
+
const csegen_379 = __lazy(function () {
|
|
2835
2835
|
return {a1: $1 => $2 => Prelude_EqOrd_x3dx3d_Eq_Integer($1, $2), a2: $7 => $8 => Prelude_EqOrd_x2fx3d_Eq_Integer($7, $8)};
|
|
2836
2836
|
});
|
|
2837
2837
|
|
|
2838
|
-
/* {csegen:
|
|
2839
|
-
const
|
|
2838
|
+
/* {csegen:387} */
|
|
2839
|
+
const csegen_387 = __lazy(function () {
|
|
2840
2840
|
return $0 => {
|
|
2841
2841
|
const $1 = Language_JSON_Accessors_string($0);
|
|
2842
2842
|
switch($1.h) {
|
|
@@ -2846,93 +2846,93 @@ const csegen_385 = __lazy(function () {
|
|
|
2846
2846
|
};
|
|
2847
2847
|
});
|
|
2848
2848
|
|
|
2849
|
-
/* {csegen:
|
|
2850
|
-
const
|
|
2849
|
+
/* {csegen:394} */
|
|
2850
|
+
const csegen_394 = __lazy(function () {
|
|
2851
2851
|
return {a1: $1 => $2 => _add32s($1, $2), a2: $6 => $7 => _mul32s($6, $7), a3: $b => Number(_truncBigInt32($b))};
|
|
2852
2852
|
});
|
|
2853
2853
|
|
|
2854
|
-
/* {csegen:
|
|
2855
|
-
const
|
|
2854
|
+
/* {csegen:414} */
|
|
2855
|
+
const csegen_414 = __lazy(function () {
|
|
2856
2856
|
return $0 => Prelude_EqOrd_x3dx3d_Eq_Char($0, '/');
|
|
2857
2857
|
});
|
|
2858
2858
|
|
|
2859
|
-
/* {csegen:
|
|
2860
|
-
const
|
|
2859
|
+
/* {csegen:420} */
|
|
2860
|
+
const csegen_420 = __lazy(function () {
|
|
2861
2861
|
return () => $0 => $0.a1;
|
|
2862
2862
|
});
|
|
2863
2863
|
|
|
2864
|
-
/* {csegen:
|
|
2865
|
-
const
|
|
2864
|
+
/* {csegen:433} */
|
|
2865
|
+
const csegen_433 = __lazy(function () {
|
|
2866
2866
|
return () => $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Number(_truncUBigInt32($4)), System_time(csegen_48()()), $0, $1);
|
|
2867
2867
|
});
|
|
2868
2868
|
|
|
2869
|
-
/* {csegen:
|
|
2870
|
-
const
|
|
2869
|
+
/* {csegen:438} */
|
|
2870
|
+
const csegen_438 = __lazy(function () {
|
|
2871
2871
|
return $0 => $1 => $2 => $3 => Prelude_Types_map_Functor_Maybe($2, $3);
|
|
2872
2872
|
});
|
|
2873
2873
|
|
|
2874
|
-
/* {csegen:
|
|
2875
|
-
const
|
|
2874
|
+
/* {csegen:461} */
|
|
2875
|
+
const csegen_461 = __lazy(function () {
|
|
2876
2876
|
return () => $0 => $1 => $2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($5 => Prelude_IO_prim__putStr('\n', $5), $0, $1, $2);
|
|
2877
2877
|
});
|
|
2878
2878
|
|
|
2879
|
-
/* {csegen:
|
|
2880
|
-
const
|
|
2879
|
+
/* {csegen:463} */
|
|
2880
|
+
const csegen_463 = __lazy(function () {
|
|
2881
2881
|
return () => $0 => $1 => $2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($5 => Prelude_IO_prim__getStr($5), $0, $1, $2);
|
|
2882
2882
|
});
|
|
2883
2883
|
|
|
2884
|
-
/* {csegen:
|
|
2885
|
-
const
|
|
2884
|
+
/* {csegen:467} */
|
|
2885
|
+
const csegen_467 = __lazy(function () {
|
|
2886
2886
|
return () => $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 0}, $0, $1);
|
|
2887
2887
|
});
|
|
2888
2888
|
|
|
2889
|
-
/* {csegen:
|
|
2890
|
-
const
|
|
2889
|
+
/* {csegen:481} */
|
|
2890
|
+
const csegen_481 = __lazy(function () {
|
|
2891
2891
|
return {a1: Commands_Help_argument(0, '...'), a2: {h: 0}};
|
|
2892
2892
|
});
|
|
2893
2893
|
|
|
2894
|
-
/* {csegen:
|
|
2895
|
-
const
|
|
2896
|
-
return {a1: Commands_Help_argument(0, '#<label>'), a2:
|
|
2894
|
+
/* {csegen:486} */
|
|
2895
|
+
const csegen_486 = __lazy(function () {
|
|
2896
|
+
return {a1: Commands_Help_argument(0, '#<label>'), a2: csegen_481()};
|
|
2897
2897
|
});
|
|
2898
2898
|
|
|
2899
|
-
/* {csegen:
|
|
2900
|
-
const
|
|
2899
|
+
/* {csegen:658} */
|
|
2900
|
+
const csegen_658 = __lazy(function () {
|
|
2901
2901
|
return $0 => $1 => System_Git_currentBranch($0, $1);
|
|
2902
2902
|
});
|
|
2903
2903
|
|
|
2904
|
-
/* {csegen:
|
|
2905
|
-
const
|
|
2904
|
+
/* {csegen:672} */
|
|
2905
|
+
const csegen_672 = __lazy(function () {
|
|
2906
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)})};
|
|
2907
2907
|
});
|
|
2908
2908
|
|
|
2909
|
-
/* {csegen:
|
|
2910
|
-
const
|
|
2909
|
+
/* {csegen:676} */
|
|
2910
|
+
const csegen_676 = __lazy(function () {
|
|
2911
2911
|
return {a1: {h: 0}, a2: {a1: '-i', a2: {h: 0}}};
|
|
2912
2912
|
});
|
|
2913
2913
|
|
|
2914
|
-
/* {csegen:
|
|
2915
|
-
const
|
|
2914
|
+
/* {csegen:682} */
|
|
2915
|
+
const csegen_682 = __lazy(function () {
|
|
2916
2916
|
return $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $0, $1);
|
|
2917
2917
|
});
|
|
2918
2918
|
|
|
2919
|
-
/* {csegen:
|
|
2920
|
-
const
|
|
2919
|
+
/* {csegen:706} */
|
|
2920
|
+
const csegen_706 = __lazy(function () {
|
|
2921
2921
|
return {a1: csegen_9(), a2: a => ({h: 0}), a3: a => $4 => $5 => Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, $5)};
|
|
2922
2922
|
});
|
|
2923
2923
|
|
|
2924
|
-
/* {csegen:
|
|
2925
|
-
const
|
|
2926
|
-
return $0 => Data_List_sort(
|
|
2924
|
+
/* {csegen:707} */
|
|
2925
|
+
const csegen_707 = __lazy(function () {
|
|
2926
|
+
return $0 => Data_List_sort(csegen_376(), $0);
|
|
2927
2927
|
});
|
|
2928
2928
|
|
|
2929
|
-
/* {csegen:
|
|
2930
|
-
const
|
|
2929
|
+
/* {csegen:709} */
|
|
2930
|
+
const csegen_709 = __lazy(function () {
|
|
2931
2931
|
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_66(), $0, $1, $2);
|
|
2932
2932
|
});
|
|
2933
2933
|
|
|
2934
|
-
/* {csegen:
|
|
2935
|
-
const
|
|
2934
|
+
/* {csegen:716} */
|
|
2935
|
+
const csegen_716 = __lazy(function () {
|
|
2936
2936
|
return $0 => {
|
|
2937
2937
|
switch($0.h) {
|
|
2938
2938
|
case 0: /* nothing */ return 1;
|
|
@@ -2941,58 +2941,58 @@ const csegen_713 = __lazy(function () {
|
|
|
2941
2941
|
};
|
|
2942
2942
|
});
|
|
2943
2943
|
|
|
2944
|
-
/* {csegen:
|
|
2945
|
-
const
|
|
2944
|
+
/* {csegen:721} */
|
|
2945
|
+
const csegen_721 = __lazy(function () {
|
|
2946
2946
|
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2947
2947
|
});
|
|
2948
2948
|
|
|
2949
|
-
/* {csegen:
|
|
2950
|
-
const
|
|
2949
|
+
/* {csegen:722} */
|
|
2950
|
+
const csegen_722 = __lazy(function () {
|
|
2951
2951
|
return $0 => $0.a3;
|
|
2952
2952
|
});
|
|
2953
2953
|
|
|
2954
|
-
/* {csegen:
|
|
2955
|
-
const
|
|
2956
|
-
return $0 => $1 => Prelude_Basics_on(
|
|
2954
|
+
/* {csegen:723} */
|
|
2955
|
+
const csegen_723 = __lazy(function () {
|
|
2956
|
+
return $0 => $1 => Prelude_Basics_on(csegen_721(), csegen_722(), $0, $1);
|
|
2957
2957
|
});
|
|
2958
2958
|
|
|
2959
|
-
/* {csegen:
|
|
2960
|
-
const
|
|
2959
|
+
/* {csegen:745} */
|
|
2960
|
+
const csegen_745 = __lazy(function () {
|
|
2961
2961
|
return $0 => $0.a3;
|
|
2962
2962
|
});
|
|
2963
2963
|
|
|
2964
|
-
/* {csegen:
|
|
2965
|
-
const
|
|
2964
|
+
/* {csegen:748} */
|
|
2965
|
+
const csegen_748 = __lazy(function () {
|
|
2966
2966
|
return Theme_cs({a1: 2, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2967
2967
|
});
|
|
2968
2968
|
|
|
2969
|
-
/* {csegen:
|
|
2970
|
-
const
|
|
2969
|
+
/* {csegen:749} */
|
|
2970
|
+
const csegen_749 = __lazy(function () {
|
|
2971
2971
|
return Theme_cs({a1: 4, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2972
2972
|
});
|
|
2973
2973
|
|
|
2974
|
-
/* {csegen:
|
|
2975
|
-
const
|
|
2974
|
+
/* {csegen:751} */
|
|
2975
|
+
const csegen_751 = __lazy(function () {
|
|
2976
2976
|
return $0 => $0.a1;
|
|
2977
2977
|
});
|
|
2978
2978
|
|
|
2979
|
-
/* {csegen:
|
|
2980
|
-
const
|
|
2979
|
+
/* {csegen:758} */
|
|
2980
|
+
const csegen_758 = __lazy(function () {
|
|
2981
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}}}));
|
|
2982
2982
|
});
|
|
2983
2983
|
|
|
2984
|
-
/* {csegen:
|
|
2985
|
-
const
|
|
2984
|
+
/* {csegen:768} */
|
|
2985
|
+
const csegen_768 = __lazy(function () {
|
|
2986
2986
|
return Theme_cs({a1: 0, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2987
2987
|
});
|
|
2988
2988
|
|
|
2989
|
-
/* {csegen:
|
|
2990
|
-
const
|
|
2989
|
+
/* {csegen:769} */
|
|
2990
|
+
const csegen_769 = __lazy(function () {
|
|
2991
2991
|
return Theme_cs({a1: 1, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2992
2992
|
});
|
|
2993
2993
|
|
|
2994
|
-
/* {csegen:
|
|
2995
|
-
const
|
|
2994
|
+
/* {csegen:770} */
|
|
2995
|
+
const csegen_770 = __lazy(function () {
|
|
2996
2996
|
return Theme_cs({a1: 3, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2997
2997
|
});
|
|
2998
2998
|
|
|
@@ -3001,33 +3001,33 @@ const csegen_772 = __lazy(function () {
|
|
|
3001
3001
|
return Theme_cs({a1: 5, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
3002
3002
|
});
|
|
3003
3003
|
|
|
3004
|
-
/* {csegen:
|
|
3005
|
-
const
|
|
3004
|
+
/* {csegen:797} */
|
|
3005
|
+
const csegen_797 = __lazy(function () {
|
|
3006
3006
|
return $0 => Prelude_Types_either(() => $3 => '', () => $5 => $5, $0);
|
|
3007
3007
|
});
|
|
3008
3008
|
|
|
3009
|
-
/* {csegen:
|
|
3010
|
-
const
|
|
3009
|
+
/* {csegen:804} */
|
|
3010
|
+
const csegen_804 = __lazy(function () {
|
|
3011
3011
|
return $0 => Util_Prompting_yesNoPrompt(csegen_48()(), 1, 'Would you like to continue creating a Pull Request anyway?');
|
|
3012
3012
|
});
|
|
3013
3013
|
|
|
3014
|
-
/* {csegen:
|
|
3015
|
-
const
|
|
3014
|
+
/* {csegen:843} */
|
|
3015
|
+
const csegen_843 = __lazy(function () {
|
|
3016
3016
|
return $0 => Prelude_Types_fastPack(Prelude_Types_List_reverse($0));
|
|
3017
3017
|
});
|
|
3018
3018
|
|
|
3019
|
-
/* {csegen:
|
|
3020
|
-
const
|
|
3019
|
+
/* {csegen:848} */
|
|
3020
|
+
const csegen_848 = __lazy(function () {
|
|
3021
3021
|
return $0 => $0.a1;
|
|
3022
3022
|
});
|
|
3023
3023
|
|
|
3024
|
-
/* {csegen:
|
|
3025
|
-
const
|
|
3024
|
+
/* {csegen:858} */
|
|
3025
|
+
const csegen_858 = __lazy(function () {
|
|
3026
3026
|
return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}};
|
|
3027
3027
|
});
|
|
3028
3028
|
|
|
3029
|
-
/* {csegen:
|
|
3030
|
-
const
|
|
3029
|
+
/* {csegen:874} */
|
|
3030
|
+
const csegen_874 = __lazy(function () {
|
|
3031
3031
|
return {a1: ann => $1 => Commands_Graph_pretty_Pretty_Date($1), a2: ann => $5 => $6 => Commands_Graph_prettyPrec_Pretty_Date($5, $6)};
|
|
3032
3032
|
});
|
|
3033
3033
|
|
|
@@ -3043,46 +3043,46 @@ function Main_case__casex20blockx20inx20casex20blockx20inx20casex20blockx20inx20
|
|
|
3043
3043
|
case 0: /* nil */ {
|
|
3044
3044
|
const $1c = $1d => $1e => $1f => {
|
|
3045
3045
|
switch($1d.h) {
|
|
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 =>
|
|
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__9063_1301_gitCompletions($0, $1, $2, $3, $4, $6, () => $30, $31), $1e, $1f);
|
|
3047
3047
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 0}, $1e, $1f);
|
|
3048
3048
|
}
|
|
3049
3049
|
};
|
|
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.
|
|
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.a16)), $e, $f), $1c, $9, $a);
|
|
3051
3051
|
}
|
|
3052
3052
|
default: return Data_Promise_pure_Applicative_x28Promisex20x24ex29($8, $9, $a);
|
|
3053
3053
|
}
|
|
3054
3054
|
};
|
|
3055
3055
|
}
|
|
3056
3056
|
|
|
3057
|
-
/* Main.
|
|
3058
|
-
function
|
|
3057
|
+
/* Main.9063:1302:trivialCompletions */
|
|
3058
|
+
function Main_n__9063_1302_trivialCompletions($0, $1, $2, $3, $4) {
|
|
3059
3059
|
return ShellCompletion_Common_cmdOpts($3, $2, $1, $0);
|
|
3060
3060
|
}
|
|
3061
3061
|
|
|
3062
|
-
/* Main.
|
|
3063
|
-
function
|
|
3062
|
+
/* Main.9474:1728:parsePg */
|
|
3063
|
+
function Main_n__9474_1728_parsePg($0, $1, $2, $3, $4, $5) {
|
|
3064
3064
|
return Data_String_parsePositive(csegen_2(), $5);
|
|
3065
3065
|
}
|
|
3066
3066
|
|
|
3067
|
-
/* Main.
|
|
3068
|
-
function
|
|
3067
|
+
/* Main.9474:1727:parseLim */
|
|
3068
|
+
function Main_n__9474_1727_parseLim($0, $1, $2, $3, $4) {
|
|
3069
3069
|
return Prelude_Interfaces_x3cx3dx3c(csegen_14(), x => Data_Fin_natToFin(x, 101n), $d => Data_String_parsePositive(csegen_2(), $d));
|
|
3070
3070
|
}
|
|
3071
3071
|
|
|
3072
|
-
/* Main.
|
|
3073
|
-
function
|
|
3072
|
+
/* Main.9063:1301:gitCompletions */
|
|
3073
|
+
function Main_n__9063_1301_gitCompletions($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
3074
3074
|
return ShellCompletion_Common_githubOpts($5, $6, $3, $2, $1, $0, $7);
|
|
3075
3075
|
}
|
|
3076
3076
|
|
|
3077
|
-
/* Main.
|
|
3078
|
-
function
|
|
3077
|
+
/* Main.9063:1300:ffiCompletions */
|
|
3078
|
+
function Main_n__9063_1300_ffiCompletions($0, $1, $2, $3, $4) {
|
|
3079
3079
|
return ShellCompletion_Common_ffiOpts(csegen_31()(), $3, $2, $1, $0);
|
|
3080
3080
|
}
|
|
3081
3081
|
|
|
3082
|
-
/* Main.
|
|
3083
|
-
function
|
|
3082
|
+
/* Main.9063:1299:completions */
|
|
3083
|
+
function Main_n__9063_1299_completions($0, $1, $2, $3, $4, $5) {
|
|
3084
3084
|
return $6 => {
|
|
3085
|
-
const $7 =
|
|
3085
|
+
const $7 = Main_n__9063_1302_trivialCompletions($0, $1, $2, $3, $4);
|
|
3086
3086
|
switch($7.h) {
|
|
3087
3087
|
case 0: /* nothing */ {
|
|
3088
3088
|
const $1e = $1f => $20 => $21 => {
|
|
@@ -3103,7 +3103,7 @@ function Main_n__9012_1299_completions($0, $1, $2, $3, $4, $5) {
|
|
|
3103
3103
|
case undefined: /* just */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29($1f.a1, $20, $21);
|
|
3104
3104
|
}
|
|
3105
3105
|
};
|
|
3106
|
-
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__9063_1300_ffiCompletions($0, $1, $2, $3, $4), $10, $11, $12), $1e, $5, $6);
|
|
3107
3107
|
}
|
|
3108
3108
|
case undefined: /* just */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29($7.a1, $5, $6);
|
|
3109
3109
|
}
|
|
@@ -3136,8 +3136,8 @@ function Main_shouldUseColors($0) {
|
|
|
3136
3136
|
function Main_shellCompletion($0, $1, $2, $3, $4) {
|
|
3137
3137
|
const $6 = $7 => $8 => {
|
|
3138
3138
|
switch($1) {
|
|
3139
|
-
case 0: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c =>
|
|
3140
|
-
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($28 =>
|
|
3139
|
+
case 0: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c => Main_n__9063_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__9063_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);
|
|
3141
3141
|
}
|
|
3142
3142
|
};
|
|
3143
3143
|
return Main_resolvex27x27($6);
|
|
@@ -3228,7 +3228,7 @@ function Main_handleConfiguredArgs($0, $1, $2) {
|
|
|
3228
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);
|
|
3229
3229
|
}
|
|
3230
3230
|
};
|
|
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.
|
|
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.a16)), $3b, $3c), $49, $14, $2d);
|
|
3232
3232
|
}
|
|
3233
3233
|
}
|
|
3234
3234
|
};
|
|
@@ -3241,7 +3241,7 @@ function Main_handleConfiguredArgs($0, $1, $2) {
|
|
|
3241
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);
|
|
3242
3242
|
}
|
|
3243
3243
|
};
|
|
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.
|
|
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.a16)), $7a, $7b), $88, $14, $77);
|
|
3245
3245
|
};
|
|
3246
3246
|
}
|
|
3247
3247
|
}
|
|
@@ -3255,7 +3255,7 @@ function Main_handleConfiguredArgs($0, $1, $2) {
|
|
|
3255
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);
|
|
3256
3256
|
}
|
|
3257
3257
|
};
|
|
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.
|
|
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.a16)), $ba, $bb), $c8, $b6, $b7);
|
|
3259
3259
|
};
|
|
3260
3260
|
}
|
|
3261
3261
|
}
|
|
@@ -3268,7 +3268,7 @@ function Main_handleConfiguredArgs($0, $1, $2) {
|
|
|
3268
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);
|
|
3269
3269
|
}
|
|
3270
3270
|
};
|
|
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.
|
|
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.a16)), $fa, $fb), $108, $f6, $f7);
|
|
3272
3272
|
};
|
|
3273
3273
|
}
|
|
3274
3274
|
}
|
|
@@ -3281,7 +3281,7 @@ function Main_handleConfiguredArgs($0, $1, $2) {
|
|
|
3281
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);
|
|
3282
3282
|
}
|
|
3283
3283
|
};
|
|
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.
|
|
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.a16)), $13a, $13b), $148, $136, $137);
|
|
3285
3285
|
};
|
|
3286
3286
|
}
|
|
3287
3287
|
}
|
|
@@ -3355,7 +3355,7 @@ function Main_handleAuthenticatedArgs($0, $1, $2) {
|
|
|
3355
3355
|
}
|
|
3356
3356
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe($b2, filter => ({a1: {a1: filter, a2: {a1: $af.a1, a2: $af.a2}}}));
|
|
3357
3357
|
};
|
|
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})},
|
|
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__9474_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__9474_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);
|
|
3359
3359
|
return $bf => {
|
|
3360
3360
|
switch($91.h) {
|
|
3361
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);
|
|
@@ -6427,36 +6427,36 @@ function ShellCompletion_Common_case__optsForRequestCmdx2cslugsOrLoginsOrLabels_
|
|
|
6427
6427
|
switch($3.h) {
|
|
6428
6428
|
case 1: /* :: */ {
|
|
6429
6429
|
switch($3.a1) {
|
|
6430
|
-
case '+': return Prelude_Types_List_mapAppend({h: 0}, $9 => ('+'+$9), $2.
|
|
6430
|
+
case '+': return Prelude_Types_List_mapAppend({h: 0}, $9 => ('+'+$9), $2.a14);
|
|
6431
6431
|
default: {
|
|
6432
6432
|
switch(Util_String_isHashPrefix($0)) {
|
|
6433
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_155(), $2.
|
|
6434
|
-
case 0: return $2.
|
|
6433
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_155(), $2.a13);
|
|
6434
|
+
case 0: return $2.a12;
|
|
6435
6435
|
}
|
|
6436
6436
|
}
|
|
6437
6437
|
}
|
|
6438
6438
|
}
|
|
6439
6439
|
default: {
|
|
6440
6440
|
switch(Util_String_isHashPrefix($0)) {
|
|
6441
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_155(), $2.
|
|
6442
|
-
case 0: return $2.
|
|
6441
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_155(), $2.a13);
|
|
6442
|
+
case 0: return $2.a12;
|
|
6443
6443
|
}
|
|
6444
6444
|
}
|
|
6445
6445
|
}
|
|
6446
6446
|
}
|
|
6447
6447
|
|
|
6448
|
-
/* ShellCompletion.Common.
|
|
6449
|
-
function
|
|
6448
|
+
/* ShellCompletion.Common.6662:14167:slugsOrLoginsOrLabels */
|
|
6449
|
+
function ShellCompletion_Common_n__6662_14167_slugsOrLoginsOrLabels($0, $1, $2) {
|
|
6450
6450
|
return ShellCompletion_Common_case__optsForRequestCmdx2cslugsOrLoginsOrLabels_14173($0, $1, $2, Data_String_asList($0));
|
|
6451
6451
|
}
|
|
6452
6452
|
|
|
6453
|
-
/* ShellCompletion.Common.
|
|
6454
|
-
function
|
|
6453
|
+
/* ShellCompletion.Common.7218:14727:openPrs */
|
|
6454
|
+
function ShellCompletion_Common_n__7218_14727_openPrs($0, $1) {
|
|
6455
6455
|
return ShellCompletion_Common_case__describex2copenPrs_14733($0, $1, $0.a7);
|
|
6456
6456
|
}
|
|
6457
6457
|
|
|
6458
|
-
/* ShellCompletion.Common.
|
|
6459
|
-
function
|
|
6458
|
+
/* ShellCompletion.Common.7218:14726:assigned */
|
|
6459
|
+
function ShellCompletion_Common_n__7218_14726_assigned($0, $1, $2) {
|
|
6460
6460
|
switch($2.h) {
|
|
6461
6461
|
case 0: /* nothing */ return '';
|
|
6462
6462
|
case undefined: /* just */ return ShellCompletion_Common_case__describex2cassigned_14811($0, $1, $2.a1, $0.a6);
|
|
@@ -6465,7 +6465,7 @@ function ShellCompletion_Common_n__7167_14726_assigned($0, $1, $2) {
|
|
|
6465
6465
|
|
|
6466
6466
|
/* ShellCompletion.Common.optsForRequestCmd : Config => CompletionStyle -> String -> List String */
|
|
6467
6467
|
function ShellCompletion_Common_optsForRequestCmd($0, $1, $2) {
|
|
6468
|
-
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__6662_14167_slugsOrLoginsOrLabels($2, $1, $0));
|
|
6469
6469
|
}
|
|
6470
6470
|
|
|
6471
6471
|
/* ShellCompletion.Common.optsForPrIntoOption : HasIO io => String -> io (Maybe (List String)) */
|
|
@@ -6502,8 +6502,8 @@ function ShellCompletion_Common_githubOpts($0, $1, $2, $3, $4, $5, $6) {
|
|
|
6502
6502
|
const $12 = issues => {
|
|
6503
6503
|
const $13 = ShellCompletion_Util_unhashify($4);
|
|
6504
6504
|
const $16 = $17 => ShellCompletion_Util_stringify($2, Data_CompletionStyle_completionResult($2, $17));
|
|
6505
|
-
const $1e = $1f => $20 => Prelude_Basics_on($23 => $24 => ShellCompletion_Common_compareIssues($0.
|
|
6506
|
-
const $30 = $31 => ShellCompletion_Common_describe($0.
|
|
6505
|
+
const $1e = $1f => $20 => Prelude_Basics_on($23 => $24 => ShellCompletion_Common_compareIssues($0.a17, $23, $24), $2b => Builtin_snd($2b), $1f, $20);
|
|
6506
|
+
const $30 = $31 => ShellCompletion_Common_describe($0.a17, $31);
|
|
6507
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);
|
|
6508
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);
|
|
6509
6509
|
};
|
|
@@ -6531,7 +6531,7 @@ function ShellCompletion_Common_ffiOpts($0, $1, $2, $3, $4) {
|
|
|
6531
6531
|
|
|
6532
6532
|
/* ShellCompletion.Common.describe : Maybe String -> Issue -> String */
|
|
6533
6533
|
function ShellCompletion_Common_describe($0, $1) {
|
|
6534
|
-
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__7218_14726_assigned($1, $0, $0), a2: {a1: ShellCompletion_Common_n__7218_14727_openPrs($1, $0), a2: {a1: $1.a2, a2: {h: 0}}}});
|
|
6535
6535
|
}
|
|
6536
6536
|
|
|
6537
6537
|
/* ShellCompletion.Common.configuredOpts : Config => CompletionStyle -> String -> String -> String -> List String */
|
|
@@ -6540,11 +6540,11 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6540
6540
|
case 'label': {
|
|
6541
6541
|
switch($3) {
|
|
6542
6542
|
case '--': {
|
|
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.
|
|
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.a13);
|
|
6544
6544
|
return Prelude_Types_List_mapAppend({h: 0}, $23 => Data_CompletionStyle_name($1, $23), $7);
|
|
6545
6545
|
}
|
|
6546
6546
|
default: {
|
|
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.
|
|
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.a13);
|
|
6548
6548
|
const $41 = Prelude_Types_List_filterAppend({h: 0}, $45 => ShellCompletion_Util_isPrefixOf($1, $3, $45), $28);
|
|
6549
6549
|
return Prelude_Types_List_mapAppend({h: 0}, $4e => Data_CompletionStyle_name($1, $4e), $41);
|
|
6550
6550
|
}
|
|
@@ -6555,13 +6555,13 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6555
6555
|
case '--': {
|
|
6556
6556
|
switch($4) {
|
|
6557
6557
|
case 'list': {
|
|
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.
|
|
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.a12);
|
|
6559
6559
|
return Prelude_Types_List_mapAppend({h: 0}, $6f => Data_CompletionStyle_name($1, $6f), $55);
|
|
6560
6560
|
}
|
|
6561
6561
|
default: {
|
|
6562
6562
|
switch($4) {
|
|
6563
6563
|
case 'list': {
|
|
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.
|
|
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.a12);
|
|
6565
6565
|
const $8c = Prelude_Types_List_filterAppend({h: 0}, $90 => ShellCompletion_Util_isPrefixOf($1, $3, $90), $75);
|
|
6566
6566
|
return Prelude_Types_List_mapAppend({h: 0}, $99 => Data_CompletionStyle_name($1, $99), $8c);
|
|
6567
6567
|
}
|
|
@@ -6578,7 +6578,7 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6578
6578
|
default: {
|
|
6579
6579
|
switch($4) {
|
|
6580
6580
|
case 'list': {
|
|
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.
|
|
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.a12);
|
|
6582
6582
|
const $b7 = Prelude_Types_List_filterAppend({h: 0}, $bb => ShellCompletion_Util_isPrefixOf($1, $3, $bb), $a0);
|
|
6583
6583
|
return Prelude_Types_List_mapAppend({h: 0}, $c4 => Data_CompletionStyle_name($1, $c4), $b7);
|
|
6584
6584
|
}
|
|
@@ -6596,11 +6596,11 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6596
6596
|
switch($3) {
|
|
6597
6597
|
case '--': {
|
|
6598
6598
|
switch($4) {
|
|
6599
|
-
case 'graph': return {a1: '--completed', a2: $0.
|
|
6600
|
-
case '--completed': return $0.
|
|
6599
|
+
case 'graph': return {a1: '--completed', a2: $0.a12};
|
|
6600
|
+
case '--completed': return $0.a12;
|
|
6601
6601
|
default: {
|
|
6602
6602
|
switch(Data_Maybe_isJust(Data_List_find($d5 => Prelude_EqOrd_x3dx3d_Eq_String($d5, $4), csegen_156()))) {
|
|
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.
|
|
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.a12)));
|
|
6604
6604
|
case 0: return {h: 0};
|
|
6605
6605
|
}
|
|
6606
6606
|
}
|
|
@@ -6608,7 +6608,7 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6608
6608
|
}
|
|
6609
6609
|
default: {
|
|
6610
6610
|
switch(Data_Maybe_isJust(Data_List_find($107 => Prelude_EqOrd_x3dx3d_Eq_String($107, $4), csegen_156()))) {
|
|
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.
|
|
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.a12)));
|
|
6612
6612
|
case 0: return {h: 0};
|
|
6613
6613
|
}
|
|
6614
6614
|
}
|
|
@@ -6616,7 +6616,7 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6616
6616
|
}
|
|
6617
6617
|
case 'pr': {
|
|
6618
6618
|
switch(Util_String_isHashPrefix($3)) {
|
|
6619
|
-
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.a13);
|
|
6620
6620
|
case 0: return {h: 0};
|
|
6621
6621
|
}
|
|
6622
6622
|
}
|
|
@@ -6624,8 +6624,8 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6624
6624
|
switch($3) {
|
|
6625
6625
|
case '--': {
|
|
6626
6626
|
switch($4) {
|
|
6627
|
-
case 'rq': return {a1: '--dry', a2: $0.
|
|
6628
|
-
default: return $0.
|
|
6627
|
+
case 'rq': return {a1: '--dry', a2: $0.a12};
|
|
6628
|
+
default: return $0.a12;
|
|
6629
6629
|
}
|
|
6630
6630
|
}
|
|
6631
6631
|
default: return ShellCompletion_Common_optsForRequestCmd($0, $1, $3);
|
|
@@ -6635,8 +6635,8 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6635
6635
|
switch($3) {
|
|
6636
6636
|
case '--': {
|
|
6637
6637
|
switch($4) {
|
|
6638
|
-
case 'request': return {a1: '--dry', a2: $0.
|
|
6639
|
-
default: return $0.
|
|
6638
|
+
case 'request': return {a1: '--dry', a2: $0.a12};
|
|
6639
|
+
default: return $0.a12;
|
|
6640
6640
|
}
|
|
6641
6641
|
}
|
|
6642
6642
|
default: return ShellCompletion_Common_optsForRequestCmd($0, $1, $3);
|
|
@@ -9709,13 +9709,13 @@ function Data_PullRequest_isAuthor($0, $1) {
|
|
|
9709
9709
|
return Prelude_EqOrd_x3dx3d_Eq_String($1.a5, $0);
|
|
9710
9710
|
}
|
|
9711
9711
|
|
|
9712
|
-
/* Data.Config.
|
|
9713
|
-
function
|
|
9714
|
-
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.10092:7463:personalAccessToken */
|
|
9713
|
+
function Data_Config_n__10092_7463_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.a16);
|
|
9715
9715
|
}
|
|
9716
9716
|
|
|
9717
|
-
/* Data.Config.
|
|
9718
|
-
function
|
|
9717
|
+
/* Data.Config.10746:8109:parseConfigJson */
|
|
9718
|
+
function Data_Config_n__10746_8109_parseConfigJson($0, $1) {
|
|
9719
9719
|
switch($1.h) {
|
|
9720
9720
|
case 6: /* JObject */ {
|
|
9721
9721
|
const $22 = $23 => {
|
|
@@ -9723,19 +9723,20 @@ function Data_Config_n__10530_7894_parseConfigJson($0, $1) {
|
|
|
9723
9723
|
const $38 = Data_List_lookup(csegen_76(), 'githubUser', $1.a1);
|
|
9724
9724
|
const $3e = Data_List_lookup(csegen_76(), 'branchParsing', $1.a1);
|
|
9725
9725
|
const $44 = Data_List_lookup(csegen_76(), 'addPrTreeDescription', $1.a1);
|
|
9726
|
-
const $
|
|
9727
|
-
|
|
9728
|
-
|
|
9726
|
+
const $4a = Data_List_lookup(csegen_76(), 'bugfixPRTitlePrefix', $1.a1);
|
|
9727
|
+
const $52 = Language_JSON_Accessors_integer($23.a1);
|
|
9728
|
+
let $51;
|
|
9729
|
+
switch($52.h) {
|
|
9729
9730
|
case 0: /* Left */ {
|
|
9730
|
-
$
|
|
9731
|
+
$51 = {h: 0 /* Left */, a1: $52.a1};
|
|
9731
9732
|
break;
|
|
9732
9733
|
}
|
|
9733
9734
|
case 1: /* Right */ {
|
|
9734
|
-
$
|
|
9735
|
+
$51 = {h: 1 /* Right */, a1: Number(_truncUBigInt32($52.a1))};
|
|
9735
9736
|
break;
|
|
9736
9737
|
}
|
|
9737
9738
|
}
|
|
9738
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($
|
|
9739
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($51, 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}), () => $82 => Data_Config_branchConfig($82), $3e), bp => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Types_maybe(() => ({h: 1 /* Right */, a1: 0}), () => $8d => Language_JSON_Accessors_bool($8d), $44), prt => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($96 => Language_JSON_Accessors_string($96), $23.a2.a2.a2.a2.a1), ts => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($9f => Language_JSON_Accessors_string($9f), $23.a2.a2.a2.a2.a2.a2.a2.a1), rl => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($a8 => Language_JSON_Accessors_string($a8), $23.a2.a2.a2.a2.a2.a1), om => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($b1 => Language_JSON_Accessors_integer($b1), $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(Prelude_Types_maybe(() => ({h: 1 /* Right */, a1: {h: 0}}), () => csegen_340()(), $4a), bf => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_stringy('dark or light', $d9 => Data_Theme_parseString($d9), $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: bf, a11: prt, a12: ts, a13: rl, a14: om, a15: ip, a16: Prelude_Types_map_Functor_Maybe($f1 => $f1, gp), a17: gu, a18: th, a19: $0}})))))))))))))))))));
|
|
9739
9740
|
};
|
|
9740
9741
|
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);
|
|
9741
9742
|
}
|
|
@@ -9755,7 +9756,7 @@ function Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($0) {
|
|
|
9755
9756
|
|
|
9756
9757
|
/* Data.Config.show */
|
|
9757
9758
|
function Data_Config_show_Show_Config($0) {
|
|
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.
|
|
9759
|
+
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.a18), 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: ' bugfixPRTitlePrefix: ', a2: {a1: Prelude_Show_show_Show_x28Maybex20x24ax29(csegen_88(), $0.a10), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $bb => $bb, {a1: 'addPrTreeDescription: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a11), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $cb => $cb, {a1: ' teamSlugs: ', 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: ' repoLabels: ', 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: ' orgMembers: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_88(), $0.a14), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $101 => $101, {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.a15), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $119 => $119, {a1: ' githubPAT: ', a2: {a1: Data_Config_n__10092_7463_personalAccessToken($0), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $128 => $128, {a1: ' githubUser: ', a2: {a1: Prelude_Show_show_Show_x28Maybex20x24ax29(csegen_88(), $0.a17), a2: {h: 0}}}), a2: {h: 0}}}}}}}}}}}}}}}}}}});
|
|
9759
9760
|
}
|
|
9760
9761
|
|
|
9761
9762
|
/* Data.Config.CommentStrategy.show */
|
|
@@ -9774,27 +9775,27 @@ function Data_Config_show_Show_x28Hiddenx20x24ax29($0) {
|
|
|
9774
9775
|
|
|
9775
9776
|
/* Data.Config.(.filepath) : Config -> String */
|
|
9776
9777
|
function Data_Config_rf__filepath($0) {
|
|
9777
|
-
return $0.
|
|
9778
|
+
return $0.a19.a1;
|
|
9778
9779
|
}
|
|
9779
9780
|
|
|
9780
9781
|
/* Data.Config.(.editor) : Config -> Maybe String */
|
|
9781
9782
|
function Data_Config_rf__editor($0) {
|
|
9782
|
-
return $0.
|
|
9783
|
+
return $0.a19.a4;
|
|
9783
9784
|
}
|
|
9784
9785
|
|
|
9785
9786
|
/* Data.Config.(.columns) : Config -> Nat */
|
|
9786
9787
|
function Data_Config_rf__columns($0) {
|
|
9787
|
-
return $0.
|
|
9788
|
+
return $0.a19.a3;
|
|
9788
9789
|
}
|
|
9789
9790
|
|
|
9790
9791
|
/* Data.Config.(.colors) : Config -> Bool */
|
|
9791
9792
|
function Data_Config_rf__colors($0) {
|
|
9792
|
-
return $0.
|
|
9793
|
+
return $0.a19.a2;
|
|
9793
9794
|
}
|
|
9794
9795
|
|
|
9795
9796
|
/* Data.Config.settableProps : List SomeSettableProp */
|
|
9796
9797
|
const Data_Config_settableProps = __lazy(function () {
|
|
9797
|
-
return {a1: {a1: 'requestTeams', a2: {a1: '[true/false]
|
|
9798
|
+
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: 'bugfixPRTitlePrefix', a2: {a1: '[string] A string to prefix default PR titles with when the branch the PR is being created from is determined to be a bugfix branch (branch name starts with \'bugfix\'). For example, a common prefix is \'[fix]\'.', a2: 4}}, 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: 5}}, a2: {a1: {a1: 'defaultRemote', a2: {a1: '[string] The name of the default Git remote to use (e.g. \'origin\').', a2: 6}}, a2: {a1: {a1: 'mainBranch', a2: {a1: '[string] The name of the default Git base branch for new PRs.', a2: 7}}, a2: {a1: {a1: 'theme', a2: {a1: '[dark/light]', a2: 8}}, 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: 9}}, a2: {h: 0}}}}}}}}}}};
|
|
9798
9799
|
});
|
|
9799
9800
|
|
|
9800
9801
|
/* Data.Config.settablePropNamesAndHelp : List (String, String) */
|
|
@@ -9813,11 +9814,12 @@ function Data_Config_settablePropNamed($0) {
|
|
|
9813
9814
|
case 'requestTeams': return {a1: 0};
|
|
9814
9815
|
case 'commentOnRequest': return {a1: 2};
|
|
9815
9816
|
case 'branchParsing': return {a1: 3};
|
|
9816
|
-
case '
|
|
9817
|
-
case '
|
|
9818
|
-
case '
|
|
9819
|
-
case '
|
|
9820
|
-
case '
|
|
9817
|
+
case 'bugfixPRTitlePrefix': return {a1: 4};
|
|
9818
|
+
case 'addPrTreeDescription': return {a1: 5};
|
|
9819
|
+
case 'defaultRemote': return {a1: 6};
|
|
9820
|
+
case 'mainBranch': return {a1: 7};
|
|
9821
|
+
case 'theme': return {a1: 8};
|
|
9822
|
+
case 'githubPAT': return {a1: 9};
|
|
9821
9823
|
case 'requestUsers': return {a1: 1};
|
|
9822
9824
|
default: return {h: 0};
|
|
9823
9825
|
}
|
|
@@ -9835,7 +9837,7 @@ function Data_Config_propHelpx27($0) {
|
|
|
9835
9837
|
|
|
9836
9838
|
/* Data.Config.parseConfig : Ephemeral -> String -> Either String Config */
|
|
9837
9839
|
function Data_Config_parseConfig($0, $1) {
|
|
9838
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_241(), csegen_288(), $8 =>
|
|
9840
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_241(), csegen_288(), $8 => Data_Config_n__10746_8109_parseConfigJson($0, $8), $1);
|
|
9839
9841
|
}
|
|
9840
9842
|
|
|
9841
9843
|
/* Data.Config.CommentStrategy.parseCommentConfig : String -> Maybe CommentStrategy */
|
|
@@ -9866,7 +9868,7 @@ const Data_Config_longestSettablePropName = __lazy(function () {
|
|
|
9866
9868
|
|
|
9867
9869
|
/* Data.Config.json : Config -> JSON */
|
|
9868
9870
|
function Data_Config_json($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.
|
|
9871
|
+
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: 'bugfixPRTitlePrefix', a2: Prelude_Types_maybe(() => ({h: 0 /* JNull */}), () => $21 => ({h: 4 /* JString */, a1: $21}), $0.a10)}, a2: {a1: {a1: 'addPrTreeDescription', a2: {h: 3 /* JBool */, a1: $0.a11}}, 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.a18)}}, a2: {a1: {a1: 'orgMembers', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $4c => ({h: 4 /* JString */, a1: $4c}), Data_List_sort(csegen_376(), $0.a14))}}, a2: {a1: {a1: 'teamSlugs', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $5b => ({h: 4 /* JString */, a1: $5b}), Data_List_sort(csegen_376(), $0.a12))}}, a2: {a1: {a1: 'repoLabels', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $6a => ({h: 4 /* JString */, a1: $6a}), Data_List_sort(csegen_376(), $0.a13))}}, a2: {a1: {a1: 'ignoredPRs', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $79 => ({h: 1 /* JInteger */, a1: $79}), Data_List_sort({a1: csegen_379(), a2: csegen_298(), a3: $83 => $84 => Prelude_EqOrd_x3c_Ord_Integer($83, $84), a4: $89 => $8a => Prelude_EqOrd_x3e_Ord_Integer($89, $8a), a5: $8f => $90 => Prelude_EqOrd_x3cx3d_Ord_Integer($8f, $90), a6: $95 => $96 => Prelude_EqOrd_x3ex3d_Ord_Integer($95, $96), a7: $9b => $9c => Prelude_EqOrd_max_Ord_Integer($9b, $9c), a8: $a1 => $a2 => Prelude_EqOrd_min_Ord_Integer($a1, $a2)}, $0.a15))}}, a2: {a1: {a1: 'githubPAT', a2: Prelude_Types_maybe(() => ({h: 0 /* JNull */}), () => $ae => ({h: 4 /* JString */, a1: $ae}), $0.a16)}, a2: {a1: {a1: 'githubUser', a2: Prelude_Types_maybe(() => ({h: 0 /* JNull */}), () => $b8 => ({h: 4 /* JString */, a1: $b8}), $0.a17)}, a2: {a1: {a1: 'updatedAt', a2: {h: 1 /* JInteger */, a1: BigInt($0.a1)}}, a2: {h: 0}}}}}}}}}}}}}}}}}}}};
|
|
9870
9872
|
}
|
|
9871
9873
|
|
|
9872
9874
|
/* Data.Config.filename : String */
|
|
@@ -9876,12 +9878,12 @@ const Data_Config_filename = __lazy(function () {
|
|
|
9876
9878
|
|
|
9877
9879
|
/* Data.Config.commentConfig : JSON -> Either String CommentStrategy */
|
|
9878
9880
|
function Data_Config_commentConfig($0) {
|
|
9879
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_241(),
|
|
9881
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_241(), csegen_387(), $7 => Data_Either_maybeToEither(() => '', Data_Config_CommentStrategy_parseCommentConfig($7)), $0);
|
|
9880
9882
|
}
|
|
9881
9883
|
|
|
9882
9884
|
/* Data.Config.branchConfig : JSON -> Either String ParseBranchStrategy */
|
|
9883
9885
|
function Data_Config_branchConfig($0) {
|
|
9884
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_241(),
|
|
9886
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_241(), csegen_387(), $7 => Data_Either_maybeToEither(() => '', Data_Config_ParseBranchStrategy_parseBranchConfig($7)), $0);
|
|
9885
9887
|
}
|
|
9886
9888
|
|
|
9887
9889
|
/* Data.Theme.show */
|
|
@@ -9912,13 +9914,13 @@ function Util_Prompting_with__yesNoPromptx2cyesUnlessNo_1370($0, $1, $2, $3, $4,
|
|
|
9912
9914
|
}
|
|
9913
9915
|
}
|
|
9914
9916
|
|
|
9915
|
-
/* Util.Prompting.
|
|
9916
|
-
function
|
|
9917
|
+
/* Util.Prompting.5935:1362:yesUnlessNo */
|
|
9918
|
+
function Util_Prompting_n__5935_1362_yesUnlessNo($0, $1, $2, $3) {
|
|
9917
9919
|
return Util_Prompting_with__yesNoPromptx2cyesUnlessNo_1370(undefined, $0, $1, $2, $3, Data_String_toLower($3));
|
|
9918
9920
|
}
|
|
9919
9921
|
|
|
9920
|
-
/* Util.Prompting.
|
|
9921
|
-
function
|
|
9922
|
+
/* Util.Prompting.6446:1857:readTemplate */
|
|
9923
|
+
function Util_Prompting_n__6446_1857_readTemplate($0, $1, $2, $3, $4) {
|
|
9922
9924
|
const $11 = $12 => {
|
|
9923
9925
|
switch($12) {
|
|
9924
9926
|
case 0: return $0.a1.a1.a2(undefined)('');
|
|
@@ -9936,8 +9938,8 @@ function Util_Prompting_n__6395_1857_readTemplate($0, $1, $2, $3, $4) {
|
|
|
9936
9938
|
return $0.a1.a2(undefined)(undefined)(System_File_Meta_exists($0, $4))($11);
|
|
9937
9939
|
}
|
|
9938
9940
|
|
|
9939
|
-
/* Util.
|
|
9940
|
-
function
|
|
9941
|
+
/* Util.5822:1244:getMoreLines */
|
|
9942
|
+
function Util_n__5822_1244_getMoreLines($0, $1, $2) {
|
|
9941
9943
|
switch($2.h) {
|
|
9942
9944
|
case 0: /* nothing */ return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1));
|
|
9943
9945
|
case undefined: /* just */ {
|
|
@@ -9948,13 +9950,13 @@ function Util_n__5771_1244_getMoreLines($0, $1, $2) {
|
|
|
9948
9950
|
case '': {
|
|
9949
9951
|
switch(line) {
|
|
9950
9952
|
case '': return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1.a2));
|
|
9951
|
-
default: return
|
|
9953
|
+
default: return Util_n__5822_1244_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
9952
9954
|
}
|
|
9953
9955
|
}
|
|
9954
|
-
default: return
|
|
9956
|
+
default: return Util_n__5822_1244_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
9955
9957
|
}
|
|
9956
9958
|
}
|
|
9957
|
-
default: return
|
|
9959
|
+
default: return Util_n__5822_1244_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
9958
9960
|
}
|
|
9959
9961
|
};
|
|
9960
9962
|
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);
|
|
@@ -9962,13 +9964,13 @@ function Util_n__5771_1244_getMoreLines($0, $1, $2) {
|
|
|
9962
9964
|
}
|
|
9963
9965
|
}
|
|
9964
9966
|
|
|
9965
|
-
/* Util.Prompting.
|
|
9966
|
-
function
|
|
9967
|
+
/* Util.Prompting.6103:1516:defaultStr */
|
|
9968
|
+
function Util_Prompting_n__6103_1516_defaultStr($0, $1) {
|
|
9967
9969
|
return Prelude_Types_maybe(() => '', () => $5 => Util_Prompting_enterForDefaultStr($5), $0);
|
|
9968
9970
|
}
|
|
9969
9971
|
|
|
9970
|
-
/* Util.Prompting.
|
|
9971
|
-
function
|
|
9972
|
+
/* Util.Prompting.5935:1361:defaultAnswerStr */
|
|
9973
|
+
function Util_Prompting_n__5935_1361_defaultAnswerStr($0, $1, $2) {
|
|
9972
9974
|
switch($1) {
|
|
9973
9975
|
case 0: return 'y/N';
|
|
9974
9976
|
case 1: return 'Y/n';
|
|
@@ -9977,7 +9979,7 @@ function Util_Prompting_n__5884_1361_defaultAnswerStr($0, $1, $2) {
|
|
|
9977
9979
|
|
|
9978
9980
|
/* Util.Prompting.yesNoPrompt : HasIO io => {default True _ : Bool} -> String -> io Bool */
|
|
9979
9981
|
function Util_Prompting_yesNoPrompt($0, $1, $2) {
|
|
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:
|
|
9982
|
+
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__5935_1361_defaultAnswerStr($0, $1, $2), a2: {a1: '] ', a2: {h: 0}}}}}), $11)))($29 => $0.a1.a1.a1(undefined)(undefined)($34 => Util_Prompting_n__5935_1362_yesUnlessNo($0, $1, $2, Data_String_trim($34)))($0.a2(undefined)($42 => Prelude_IO_prim__getStr($42))));
|
|
9981
9983
|
}
|
|
9982
9984
|
|
|
9983
9985
|
/* Util.whenNothing : Applicative f => Maybe a -> f () -> f () */
|
|
@@ -10014,7 +10016,7 @@ function Util_Prompting_prepareDescriptionFile($0, $1, $2, $3) {
|
|
|
10014
10016
|
const $20 = Prelude_Types_foldMap_Foldable_List(csegen_86()(), $26 => $26, {a1: $2, a2: {a1: '\n', a2: {a1: templateContents, a2: {h: 0}}}});
|
|
10015
10017
|
return $0.a1.a1.a1(undefined)(undefined)($38 => undefined)(System_File_ReadWrite_writeFile($0, $3, $20));
|
|
10016
10018
|
};
|
|
10017
|
-
return $0.a1.a2(undefined)(undefined)(Prelude_Types_maybe(() => $0.a1.a1.a2(undefined)(''), () => $17 =>
|
|
10019
|
+
return $0.a1.a2(undefined)(undefined)(Prelude_Types_maybe(() => $0.a1.a1.a2(undefined)(''), () => $17 => Util_Prompting_n__6446_1857_readTemplate($0, $3, $2, $1, $17), $1))($1f);
|
|
10018
10020
|
}
|
|
10019
10021
|
|
|
10020
10022
|
/* Util.Prompting.orIfEmpty : Maybe String -> String -> String */
|
|
@@ -10097,7 +10099,7 @@ function Util_Prompting_inlineDescription($0, $1, $2) {
|
|
|
10097
10099
|
|
|
10098
10100
|
/* Util.getManyLines : HasIO io => Fuel -> io (List String) */
|
|
10099
10101
|
function Util_getManyLines($0, $1) {
|
|
10100
|
-
return
|
|
10102
|
+
return Util_n__5822_1244_getMoreLines($0, {h: 0}, $1);
|
|
10101
10103
|
}
|
|
10102
10104
|
|
|
10103
10105
|
/* Util.Prompting.getLineEnterForDefault : HasIO io => String -> Maybe String -> io String */
|
|
@@ -10112,7 +10114,7 @@ function Util_Prompting_enterForDefaultStr($0) {
|
|
|
10112
10114
|
|
|
10113
10115
|
/* Util.Prompting.enterForDefaultPrompt : String -> Maybe String -> String */
|
|
10114
10116
|
function Util_Prompting_enterForDefaultPrompt($0, $1) {
|
|
10115
|
-
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $7 => $7, {a1: $0, a2: {a1:
|
|
10117
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $7 => $7, {a1: $0, a2: {a1: Util_Prompting_n__6103_1516_defaultStr($1, $0), a2: {h: 0}}});
|
|
10116
10118
|
}
|
|
10117
10119
|
|
|
10118
10120
|
/* Util.Prompting.editorDescription : HasIO io => String -> Maybe String -> String -> io (Either FileError String) */
|
|
@@ -10170,7 +10172,7 @@ function System_getEnv($0, $1) {
|
|
|
10170
10172
|
function System_getArgs($0) {
|
|
10171
10173
|
const $12 = n => {
|
|
10172
10174
|
switch(Prelude_EqOrd_x3e_Ord_Int(n, Number(_truncBigInt32(0n)))) {
|
|
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:
|
|
10175
|
+
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_394(), 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_394(), 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)));
|
|
10174
10176
|
case 0: return $0.a1.a1.a2(undefined)({h: 0});
|
|
10175
10177
|
}
|
|
10176
10178
|
};
|
|
@@ -10202,7 +10204,7 @@ function FFI_Term_termCols($0) {
|
|
|
10202
10204
|
}
|
|
10203
10205
|
|
|
10204
10206
|
/* Config.with block in getConfig */
|
|
10205
|
-
function
|
|
10207
|
+
function Config_with__getConfig_2550($0, $1, $2, $3) {
|
|
10206
10208
|
return $4 => {
|
|
10207
10209
|
switch($1.h) {
|
|
10208
10210
|
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);
|
|
@@ -10212,7 +10214,7 @@ function Config_with__getConfig_2476($0, $1, $2, $3) {
|
|
|
10212
10214
|
}
|
|
10213
10215
|
|
|
10214
10216
|
/* Config.with block in with block in setConfig */
|
|
10215
|
-
function
|
|
10217
|
+
function Config_with__withx20blockx20inx20setConfig_2356($0, $1, $2, $3, $4, $5, $6) {
|
|
10216
10218
|
return $7 => {
|
|
10217
10219
|
switch($5.h) {
|
|
10218
10220
|
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);
|
|
@@ -10222,15 +10224,15 @@ function Config_with__withx20blockx20inx20setConfig_2295($0, $1, $2, $3, $4, $5,
|
|
|
10222
10224
|
}
|
|
10223
10225
|
|
|
10224
10226
|
/* Config.with block in setConfig */
|
|
10225
|
-
function
|
|
10227
|
+
function Config_with__setConfig_2322($0, $1, $2, $3) {
|
|
10226
10228
|
switch($1.h) {
|
|
10227
10229
|
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);
|
|
10228
|
-
case undefined: /* just */ return $16 =>
|
|
10230
|
+
case undefined: /* just */ return $16 => Config_with__withx20blockx20inx20setConfig_2356(undefined, $0, $1.a1, $3, $2, Config_propSetter($1.a1, $3)($2), $16);
|
|
10229
10231
|
}
|
|
10230
10232
|
}
|
|
10231
10233
|
|
|
10232
10234
|
/* Config.with block in parseBool */
|
|
10233
|
-
function
|
|
10235
|
+
function Config_with__parseBool_1721($0, $1) {
|
|
10234
10236
|
switch($1) {
|
|
10235
10237
|
case 'yes': return {a1: 1};
|
|
10236
10238
|
case 'true': return {a1: 1};
|
|
@@ -10241,7 +10243,7 @@ function Config_with__parseBool_1719($0, $1) {
|
|
|
10241
10243
|
}
|
|
10242
10244
|
|
|
10243
10245
|
/* Config.with block in dropPrefix',drop' */
|
|
10244
|
-
function
|
|
10246
|
+
function Config_with__dropPrefixx27x2cdropx27_1546($0, $1, $2) {
|
|
10245
10247
|
switch($2.h) {
|
|
10246
10248
|
case 0: /* Yes */ return {a1: $2.a1.a1};
|
|
10247
10249
|
case 1: /* No */ return {h: 0};
|
|
@@ -10249,7 +10251,7 @@ function Config_with__dropPrefixx27x2cdropx27_1544($0, $1, $2) {
|
|
|
10249
10251
|
}
|
|
10250
10252
|
|
|
10251
10253
|
/* Config.case block in parseGitHubURI,parseSuffix */
|
|
10252
|
-
function
|
|
10254
|
+
function Config_case__parseGitHubURIx2cparseSuffix_1607($0, $1, $2) {
|
|
10253
10255
|
const $b = $c => {
|
|
10254
10256
|
switch($c.h) {
|
|
10255
10257
|
case undefined: /* cons */ {
|
|
@@ -10266,63 +10268,63 @@ function Config_case__parseGitHubURIx2cparseSuffix_1605($0, $1, $2) {
|
|
|
10266
10268
|
default: return {h: 0};
|
|
10267
10269
|
}
|
|
10268
10270
|
};
|
|
10269
|
-
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(
|
|
10271
|
+
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_414(), $2.a1)}, $b);
|
|
10270
10272
|
}
|
|
10271
10273
|
|
|
10272
|
-
/* Config.
|
|
10273
|
-
function
|
|
10274
|
+
/* Config.9964:2702:themePrompt */
|
|
10275
|
+
function Config_n__9964_2702_themePrompt($0, $1, $2, $3, $4) {
|
|
10274
10276
|
const $5 = Util_Prompting_enterForDefaultStr('dark');
|
|
10275
10277
|
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)))));
|
|
10276
10278
|
}
|
|
10277
10279
|
|
|
10278
|
-
/* Config.
|
|
10279
|
-
function
|
|
10280
|
+
/* Config.9964:2701:repo */
|
|
10281
|
+
function Config_n__9964_2701_repo($0, $1, $2, $3, $4) {
|
|
10280
10282
|
return Prelude_Types_map_Functor_Maybe(csegen_272()(), $4);
|
|
10281
10283
|
}
|
|
10282
10284
|
|
|
10283
|
-
/* Config.
|
|
10284
|
-
function
|
|
10285
|
-
return
|
|
10285
|
+
/* Config.8892:1587:parseSuffix */
|
|
10286
|
+
function Config_n__8892_1587_parseSuffix($0, $1) {
|
|
10287
|
+
return Config_case__parseGitHubURIx2cparseSuffix_1607($0, $1, Data_String_break$($8 => Prelude_EqOrd_x3dx3d_Eq_Char($8, '.'), $1));
|
|
10286
10288
|
}
|
|
10287
10289
|
|
|
10288
|
-
/* Config.
|
|
10289
|
-
function
|
|
10290
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b =>
|
|
10290
|
+
/* Config.8892:1586:parseSSH */
|
|
10291
|
+
function Config_n__8892_1586_parseSSH($0, $1) {
|
|
10292
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b => Config_n__8892_1587_parseSuffix($0, $b), $1);
|
|
10291
10293
|
}
|
|
10292
10294
|
|
|
10293
|
-
/* Config.
|
|
10294
|
-
function
|
|
10295
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b =>
|
|
10295
|
+
/* Config.8892:1585:parseHTTPS */
|
|
10296
|
+
function Config_n__8892_1585_parseHTTPS($0, $1) {
|
|
10297
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b => Config_n__8892_1587_parseSuffix($0, $b), $1);
|
|
10296
10298
|
}
|
|
10297
10299
|
|
|
10298
|
-
/* Config.
|
|
10299
|
-
function
|
|
10300
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
10300
|
+
/* Config.9964:2700:org */
|
|
10301
|
+
function Config_n__9964_2700_org($0, $1, $2, $3, $4) {
|
|
10302
|
+
return Prelude_Types_map_Functor_Maybe(csegen_420()(), $4);
|
|
10301
10303
|
}
|
|
10302
10304
|
|
|
10303
|
-
/* Config.
|
|
10304
|
-
function
|
|
10305
|
+
/* Config.8600:1303:oneDayAgo */
|
|
10306
|
+
function Config_n__8600_1303_oneDayAgo($0, $1, $2) {
|
|
10305
10307
|
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(Number(_truncUBigInt32((now-86400n)))));
|
|
10306
10308
|
}
|
|
10307
10309
|
|
|
10308
|
-
/* Config.
|
|
10309
|
-
function
|
|
10310
|
+
/* Config.9867:2593:help */
|
|
10311
|
+
function Config_n__9867_2593_help($0, $1) {
|
|
10310
10312
|
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}}})));
|
|
10311
10313
|
}
|
|
10312
10314
|
|
|
10313
|
-
/* Config.
|
|
10314
|
-
function
|
|
10315
|
-
return
|
|
10315
|
+
/* Config.8845:1538:drop' */
|
|
10316
|
+
function Config_n__8845_1538_dropx27($0, $1) {
|
|
10317
|
+
return Config_with__dropPrefixx27x2cdropx27_1546($0, $1, Data_List_PrefixSuffix_dropPrefix($8 => $9 => Decidable_Equality_decEq_DecEq_Char($8, $9), Prelude_Types_fastUnpack($0), $1));
|
|
10316
10318
|
}
|
|
10317
10319
|
|
|
10318
|
-
/* Config.
|
|
10319
|
-
function
|
|
10320
|
+
/* Config.9964:2698:commentConfigPrompt */
|
|
10321
|
+
function Config_n__9964_2698_commentConfigPrompt($0, $1, $2, $3, $4) {
|
|
10320
10322
|
const $5 = Util_Prompting_enterForDefaultStr('name');
|
|
10321
10323
|
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)))));
|
|
10322
10324
|
}
|
|
10323
10325
|
|
|
10324
|
-
/* Config.
|
|
10325
|
-
function
|
|
10326
|
+
/* Config.8734:1431:checkRequestSettings */
|
|
10327
|
+
function Config_n__8734_1431_checkRequestSettings($0, $1) {
|
|
10326
10328
|
let $2;
|
|
10327
10329
|
switch($1.a6) {
|
|
10328
10330
|
case 1: {
|
|
@@ -10340,8 +10342,8 @@ function Config_n__8681_1429_checkRequestSettings($0, $1) {
|
|
|
10340
10342
|
}
|
|
10341
10343
|
}
|
|
10342
10344
|
|
|
10343
|
-
/* Config.
|
|
10344
|
-
function
|
|
10345
|
+
/* Config.9964:2697:branchParsingPrompt */
|
|
10346
|
+
function Config_n__9964_2697_branchParsingPrompt($0, $1, $2, $3, $4) {
|
|
10345
10347
|
const $5 = Util_Prompting_enterForDefaultStr('none');
|
|
10346
10348
|
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)))));
|
|
10347
10349
|
}
|
|
@@ -10378,7 +10380,7 @@ function Config_syncIfOld($0, $1, $2, $3) {
|
|
|
10378
10380
|
case 0: return $1b => Data_Promise_pure_Applicative_x28Promisex20x24ex29($1, $e, $1b);
|
|
10379
10381
|
}
|
|
10380
10382
|
};
|
|
10381
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10383
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__8600_1303_oneDayAgo($0, $1, csegen_48()()), $c, $2, $3);
|
|
10382
10384
|
}
|
|
10383
10385
|
|
|
10384
10386
|
/* Config.syncConfig : Config => Octokit => Bool -> Promise' Config */
|
|
@@ -10388,12 +10390,12 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
10388
10390
|
const $39 = labelNames => $3a => $3b => {
|
|
10389
10391
|
const $49 = githubUser => $4a => $4b => {
|
|
10390
10392
|
const $50 = updatedAt => {
|
|
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:
|
|
10392
|
-
return $
|
|
10393
|
+
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: $0.a11, a12: teamSlugs, a13: labelNames, a14: orgMembers, a15: $0.a15, a16: $0.a16, a17: {a1: githubUser}, a18: $0.a18, a19: $0.a19};
|
|
10394
|
+
return $67 => $68 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6b => $6c => Data_Promise_map_Functor_x28Promisex20x24ex29($6f => undefined, $71 => $72 => Config_writeConfig($51, $71, $72), $6b, $6c), $7a => $7b => $7c => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_40()(), $2, () => $85 => $86 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($89 => $8a => $8b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($8e => Prelude_IO_prim__putStr('Your updated configuration is:\n', $8e), $89, $8a, $8b), $96 => $97 => $98 => $99 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($9c => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($51)+'\n'), $9c), $97, $98, $99), $85, $86)), $aa => $ab => $ac => Data_Promise_pure_Applicative_x28Promisex20x24ex29($51, $ab, $ac), $7b, $7c), $67, $68);
|
|
10393
10395
|
};
|
|
10394
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10396
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_433()(), $50, $4a, $4b);
|
|
10395
10397
|
};
|
|
10396
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10398
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_420()(), FFI_GitHub_getSelf($1), $3e, $3f), $49, $3a, $3b);
|
|
10397
10399
|
};
|
|
10398
10400
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2f => $30 => FFI_GitHub_listRepoLabels($1, $0.a2, $0.a3, $2f, $30), $39, $2b, $2c);
|
|
10399
10401
|
};
|
|
@@ -10404,27 +10406,28 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
10404
10406
|
|
|
10405
10407
|
/* Config.settablePropsWithHelp : Config => String */
|
|
10406
10408
|
function Config_settablePropsWithHelp($0) {
|
|
10407
|
-
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 =>
|
|
10409
|
+
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 => Config_n__9867_2593_help($0, $9), Data_Config_settablePropNamesAndHelp())));
|
|
10408
10410
|
}
|
|
10409
10411
|
|
|
10410
10412
|
/* Config.setConfig : Config => String -> String -> Promise' Config */
|
|
10411
10413
|
function Config_setConfig($0, $1, $2) {
|
|
10412
|
-
return
|
|
10414
|
+
return Config_with__setConfig_2322($1, Data_Config_settablePropNamed($1), $2, $0);
|
|
10413
10415
|
}
|
|
10414
10416
|
|
|
10415
10417
|
/* Config.propSetter : SettableProp n h -> Config -> String -> Maybe Config */
|
|
10416
10418
|
function Config_propSetter($0, $1) {
|
|
10417
10419
|
return $2 => {
|
|
10418
10420
|
switch($0) {
|
|
10419
|
-
case 0: return Config_update(
|
|
10420
|
-
case 1: return Config_update(
|
|
10421
|
-
case 2: return Config_update(
|
|
10422
|
-
case 3: return Config_update(
|
|
10423
|
-
case 4: return Config_update(
|
|
10424
|
-
case 5: return Config_update(
|
|
10425
|
-
case 6: return Config_update(
|
|
10426
|
-
case 7: return Config_update(
|
|
10427
|
-
case 8: return Config_update(
|
|
10421
|
+
case 0: return Config_update(csegen_438(), $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, a19: $c.a19}), $1, $2);
|
|
10422
|
+
case 1: return Config_update(csegen_438(), $27 => Config_parseBool($27), b => $2b => ({a1: $2b.a1, a2: $2b.a2, a3: $2b.a3, a4: $2b.a4, a5: $2b.a5, a6: $2b.a6, a7: b, a8: $2b.a8, a9: $2b.a9, a10: $2b.a10, a11: $2b.a11, a12: $2b.a12, a13: $2b.a13, a14: $2b.a14, a15: $2b.a15, a16: $2b.a16, a17: $2b.a17, a18: $2b.a18, a19: $2b.a19}), $1, $2);
|
|
10423
|
+
case 2: return Config_update(csegen_438(), $46 => Data_Config_CommentStrategy_parseCommentConfig(Data_String_toLower($46)), b => $4c => ({a1: $4c.a1, a2: $4c.a2, a3: $4c.a3, a4: $4c.a4, a5: $4c.a5, a6: $4c.a6, a7: $4c.a7, a8: b, a9: $4c.a9, a10: $4c.a10, a11: $4c.a11, a12: $4c.a12, a13: $4c.a13, a14: $4c.a14, a15: $4c.a15, a16: $4c.a16, a17: $4c.a17, a18: $4c.a18, a19: $4c.a19}), $1, $2);
|
|
10424
|
+
case 3: return Config_update(csegen_438(), $67 => Data_Config_ParseBranchStrategy_parseBranchConfig(Data_String_toLower($67)), s => $6d => ({a1: $6d.a1, a2: $6d.a2, a3: $6d.a3, a4: $6d.a4, a5: $6d.a5, a6: $6d.a6, a7: $6d.a7, a8: $6d.a8, a9: s, a10: $6d.a10, a11: $6d.a11, a12: $6d.a12, a13: $6d.a13, a14: $6d.a14, a15: $6d.a15, a16: $6d.a16, a17: $6d.a17, a18: $6d.a18, a19: $6d.a19}), $1, $2);
|
|
10425
|
+
case 4: return Config_update(csegen_438(), $88 => ({a1: $88}), s => $8b => ({a1: $8b.a1, a2: $8b.a2, a3: $8b.a3, a4: $8b.a4, a5: $8b.a5, a6: $8b.a6, a7: $8b.a7, a8: $8b.a8, a9: $8b.a9, a10: {a1: s}, a11: $8b.a11, a12: $8b.a12, a13: $8b.a13, a14: $8b.a14, a15: $8b.a15, a16: $8b.a16, a17: $8b.a17, a18: $8b.a18, a19: $8b.a19}), $1, $2);
|
|
10426
|
+
case 5: return Config_update(csegen_438(), $a7 => Config_parseBool($a7), b => $ab => ({a1: $ab.a1, a2: $ab.a2, a3: $ab.a3, a4: $ab.a4, a5: $ab.a5, a6: $ab.a6, a7: $ab.a7, a8: $ab.a8, a9: $ab.a9, a10: $ab.a10, a11: b, a12: $ab.a12, a13: $ab.a13, a14: $ab.a14, a15: $ab.a15, a16: $ab.a16, a17: $ab.a17, a18: $ab.a18, a19: $ab.a19}), $1, $2);
|
|
10427
|
+
case 6: return Config_update(csegen_438(), $c6 => ({a1: $c6}), s => $c9 => ({a1: $c9.a1, a2: $c9.a2, a3: $c9.a3, a4: s, a5: $c9.a5, a6: $c9.a6, a7: $c9.a7, a8: $c9.a8, a9: $c9.a9, a10: $c9.a10, a11: $c9.a11, a12: $c9.a12, a13: $c9.a13, a14: $c9.a14, a15: $c9.a15, a16: $c9.a16, a17: $c9.a17, a18: $c9.a18, a19: $c9.a19}), $1, $2);
|
|
10428
|
+
case 7: return Config_update(csegen_438(), $e4 => ({a1: $e4}), s => $e7 => ({a1: $e7.a1, a2: $e7.a2, a3: $e7.a3, a4: $e7.a4, a5: s, a6: $e7.a6, a7: $e7.a7, a8: $e7.a8, a9: $e7.a9, a10: $e7.a10, a11: $e7.a11, a12: $e7.a12, a13: $e7.a13, a14: $e7.a14, a15: $e7.a15, a16: $e7.a16, a17: $e7.a17, a18: $e7.a18, a19: $e7.a19}), $1, $2);
|
|
10429
|
+
case 8: return Config_update(csegen_438(), $102 => Data_Theme_parseString($102), t => $106 => ({a1: $106.a1, a2: $106.a2, a3: $106.a3, a4: $106.a4, a5: $106.a5, a6: $106.a6, a7: $106.a7, a8: $106.a8, a9: $106.a9, a10: $106.a10, a11: $106.a11, a12: $106.a12, a13: $106.a13, a14: $106.a14, a15: $106.a15, a16: $106.a16, a17: $106.a17, a18: t, a19: $106.a19}), $1, $2);
|
|
10430
|
+
case 9: return Config_update(csegen_438(), $121 => ({a1: $121}), s => $124 => ({a1: $124.a1, a2: $124.a2, a3: $124.a3, a4: $124.a4, a5: $124.a5, a6: $124.a6, a7: $124.a7, a8: $124.a8, a9: $124.a9, a10: $124.a10, a11: $124.a11, a12: $124.a12, a13: $124.a13, a14: $124.a14, a15: $124.a15, a16: {a1: s}, a17: $124.a17, a18: $124.a18, a19: $124.a19}), $1, $2);
|
|
10428
10431
|
}
|
|
10429
10432
|
};
|
|
10430
10433
|
}
|
|
@@ -10436,11 +10439,12 @@ function Config_propGetter($0, $1) {
|
|
|
10436
10439
|
case 1: return Prelude_Show_show_Show_Bool($1.a7);
|
|
10437
10440
|
case 2: return Data_Config_CommentStrategy_show_Show_CommentStrategy($1.a8);
|
|
10438
10441
|
case 3: return Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($1.a9);
|
|
10439
|
-
case 4: return
|
|
10440
|
-
case 5: return
|
|
10441
|
-
case 6: return Prelude_Show_show_Show_String($1.
|
|
10442
|
-
case 7: return
|
|
10443
|
-
case 8: return
|
|
10442
|
+
case 4: return Prelude_Show_show_Show_x28Maybex20x24ax29(csegen_88(), $1.a10);
|
|
10443
|
+
case 5: return Prelude_Show_show_Show_Bool($1.a11);
|
|
10444
|
+
case 6: return Prelude_Show_show_Show_String($1.a4);
|
|
10445
|
+
case 7: return Prelude_Show_show_Show_String($1.a5);
|
|
10446
|
+
case 8: return Data_Theme_show_Show_Theme($1.a18);
|
|
10447
|
+
case 9: return Prelude_Types_maybe(() => 'Not set (will use $GITHUB_PAT or $GH_TOKEN environment variable)', () => x => Data_Config_show_Show_x28Hiddenx20x24ax29(x), $1.a16);
|
|
10444
10448
|
}
|
|
10445
10449
|
}
|
|
10446
10450
|
|
|
@@ -10455,12 +10459,12 @@ function Config_preferOriginRemote($0) {
|
|
|
10455
10459
|
|
|
10456
10460
|
/* Config.parseGitHubURI : String -> Maybe GitRemote */
|
|
10457
10461
|
function Config_parseGitHubURI($0) {
|
|
10458
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
10462
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(Config_n__8892_1585_parseHTTPS($0, $0), () => Config_n__8892_1586_parseSSH($0, $0));
|
|
10459
10463
|
}
|
|
10460
10464
|
|
|
10461
10465
|
/* Config.parseBool : String -> Maybe Bool */
|
|
10462
10466
|
function Config_parseBool($0) {
|
|
10463
|
-
return
|
|
10467
|
+
return Config_with__parseBool_1721($0, Data_String_toLower($0));
|
|
10464
10468
|
}
|
|
10465
10469
|
|
|
10466
10470
|
/* Config.nonOrgFallback : Lazy a -> Promise OrgError a -> Promise String a */
|
|
@@ -10544,7 +10548,7 @@ function Config_loadConfig($0, $1, $2, $3) {
|
|
|
10544
10548
|
|
|
10545
10549
|
/* Config.getConfig : Config => String -> Promise' String */
|
|
10546
10550
|
function Config_getConfig($0, $1) {
|
|
10547
|
-
return $2 =>
|
|
10551
|
+
return $2 => Config_with__getConfig_2550($1, Data_Config_settablePropNamed($1), $0, $2);
|
|
10548
10552
|
}
|
|
10549
10553
|
|
|
10550
10554
|
/* Config.findConfig : HasIO io => String -> Fuel -> io (Maybe String) */
|
|
@@ -10566,7 +10570,7 @@ function Config_findConfig($0, $1, $2) {
|
|
|
10566
10570
|
|
|
10567
10571
|
/* Config.dropPrefix' : String -> String -> Maybe String */
|
|
10568
10572
|
function Config_dropPrefixx27($0, $1) {
|
|
10569
|
-
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4),
|
|
10573
|
+
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4), Config_n__8845_1538_dropx27($0, Prelude_Types_fastUnpack($1)));
|
|
10570
10574
|
}
|
|
10571
10575
|
|
|
10572
10576
|
/* Config.createConfig : Maybe String -> Bool -> Nat -> Maybe String -> Promise' Config */
|
|
@@ -10583,7 +10587,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10583
10587
|
default: return {a1: Data_String_trim($65)};
|
|
10584
10588
|
}
|
|
10585
10589
|
};
|
|
10586
|
-
return Data_Promise_map_Functor_x28Promisex20x24ex29($64,
|
|
10590
|
+
return Data_Promise_map_Functor_x28Promisex20x24ex29($64, csegen_463()(), $61, $62);
|
|
10587
10591
|
};
|
|
10588
10592
|
const $71 = configPAT => $72 => $73 => {
|
|
10589
10593
|
const $7f = $80 => $81 => $82 => {
|
|
@@ -10618,10 +10622,14 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10618
10622
|
const $1d4 = orgMembers => $1d5 => $1d6 => {
|
|
10619
10623
|
const $1e1 = repoLabels => $1e2 => $1e3 => {
|
|
10620
10624
|
const $1f1 = githubUser => {
|
|
10621
|
-
const $1f2 =
|
|
10622
|
-
|
|
10625
|
+
const $1f2 = $1f3 => ({h: 0});
|
|
10626
|
+
const $1f4 = {h: 0};
|
|
10627
|
+
const $1f5 = Prelude_Types_map_Functor_Maybe($1f8 => $1f8, configPAT);
|
|
10628
|
+
const $1fa = {a1: githubUser};
|
|
10629
|
+
const $1fc = {a1: updatedAt, a2: org, a3: repo, a4: defaultRemote, a5: mainBranch, a6: requestTeams, a7: requestUsers, a8: commentOnRequest, a9: branchParsing, a10: $1f2(undefined), a11: 0, a12: teamSlugs, a13: repoLabels, a14: orgMembers, a15: $1f4, a16: $1f5, a17: $1fa, a18: theme, a19: $19e};
|
|
10630
|
+
return $212 => $213 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($216 => $217 => Data_Promise_map_Functor_x28Promisex20x24ex29($21a => undefined, $21c => $21d => Config_writeConfig($1fc, $21c, $21d), $216, $217), $225 => $226 => $227 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($22a => $22b => $22c => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($22f => Prelude_IO_prim__putStr('Your new configuration is:\n', $22f), $22a, $22b, $22c), $237 => $238 => $239 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($23c => $23d => $23e => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($241 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($1fc)+'\n'), $241), $23c, $23d, $23e), $24d => $24e => $24f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Types_either(() => $254 => Util_renderIO($1fc, csegen_48()(), $254), () => csegen_35()(), Config_checkConfigConsistency($1fc)), $262 => $263 => $264 => Data_Promise_pure_Applicative_x28Promisex20x24ex29($1fc, $263, $264), $24e, $24f), $238, $239), $226, $227), $212, $213);
|
|
10623
10631
|
};
|
|
10624
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e6 => $1e7 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10632
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e6 => $1e7 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_420()(), FFI_GitHub_getSelf(_), $1e6, $1e7), $1f1, $1e2, $1e3);
|
|
10625
10633
|
};
|
|
10626
10634
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d9 => $1da => FFI_GitHub_listRepoLabels(_, org, repo, $1d9, $1da), $1e1, $1d5, $1d6);
|
|
10627
10635
|
};
|
|
@@ -10630,7 +10638,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10630
10638
|
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);
|
|
10631
10639
|
};
|
|
10632
10640
|
};
|
|
10633
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10641
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_433()(), $19d, $197, $198);
|
|
10634
10642
|
};
|
|
10635
10643
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($18e => $18f => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $18e, $18f), $196, $18a, $18b);
|
|
10636
10644
|
};
|
|
@@ -10638,41 +10646,41 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10638
10646
|
};
|
|
10639
10647
|
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);
|
|
10640
10648
|
};
|
|
10641
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10649
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_461()(), $165, $15f, $160);
|
|
10642
10650
|
};
|
|
10643
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10651
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9964_2702_themePrompt($3, $2, $1, $0, csegen_48()()), $15e, $152, $153);
|
|
10644
10652
|
};
|
|
10645
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10653
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_461()(), $150, $14a, $14b);
|
|
10646
10654
|
};
|
|
10647
10655
|
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);
|
|
10648
10656
|
};
|
|
10649
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10657
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_461()(), $13d, $137, $138);
|
|
10650
10658
|
};
|
|
10651
10659
|
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);
|
|
10652
10660
|
};
|
|
10653
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10661
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_461()(), $12a, $124, $125);
|
|
10654
10662
|
};
|
|
10655
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10663
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9964_2697_branchParsingPrompt($3, $2, $1, $0, csegen_48()()), $123, $117, $118);
|
|
10656
10664
|
};
|
|
10657
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10665
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_461()(), $115, $10f, $110);
|
|
10658
10666
|
};
|
|
10659
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10667
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9964_2698_commentConfigPrompt($3, $2, $1, $0, csegen_48()()), $10e, $102, $103);
|
|
10660
10668
|
};
|
|
10661
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10669
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_461()(), $100, $fa, $fb);
|
|
10662
10670
|
};
|
|
10663
10671
|
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);
|
|
10664
10672
|
};
|
|
10665
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10673
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_461()(), $ec, $e6, $e7);
|
|
10666
10674
|
};
|
|
10667
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What repository would you like to use harmony for?',
|
|
10675
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What repository would you like to use harmony for?', Config_n__9964_2701_repo($3, $2, $1, $0, defaultOrgAndRepo)), $e5, $d5, $d6);
|
|
10668
10676
|
};
|
|
10669
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10677
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_461()(), $d3, $cd, $ce);
|
|
10670
10678
|
};
|
|
10671
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What GitHub org would you like to use harmony for?',
|
|
10679
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What GitHub org would you like to use harmony for?', Config_n__9964_2700_org($3, $2, $1, $0, defaultOrgAndRepo)), $cc, $bc, $bd);
|
|
10672
10680
|
};
|
|
10673
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10681
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_461()(), $ba, $b4, $b5);
|
|
10674
10682
|
};
|
|
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), () =>
|
|
10683
|
+
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_467()(), $9a, $9b), $b3, $96, $97);
|
|
10676
10684
|
};
|
|
10677
10685
|
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);
|
|
10678
10686
|
}
|
|
@@ -10687,19 +10695,19 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10687
10695
|
};
|
|
10688
10696
|
return $2e();
|
|
10689
10697
|
};
|
|
10690
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10698
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_461()(), $2c, $26, $27);
|
|
10691
10699
|
};
|
|
10692
10700
|
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);
|
|
10693
10701
|
}
|
|
10694
10702
|
|
|
10695
10703
|
/* Config.checkConfigConsistency : Config -> Either (Doc AnsiStyle) () */
|
|
10696
10704
|
function Config_checkConfigConsistency($0) {
|
|
10697
|
-
return
|
|
10705
|
+
return Config_n__8734_1431_checkRequestSettings($0, $0);
|
|
10698
10706
|
}
|
|
10699
10707
|
|
|
10700
10708
|
/* Config.addIgnoredPRs : Config -> List Integer -> Promise' Config */
|
|
10701
10709
|
function Config_addIgnoredPRs($0, $1, $2, $3) {
|
|
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(
|
|
10710
|
+
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: $0.a14, a15: Data_List_nub(csegen_379(), Prelude_Types_List_tailRecAppend($0.a15, $1)), a16: $0.a16, a17: $0.a17, a18: $0.a18, a19: $0.a19}, $2, $3);
|
|
10703
10711
|
}
|
|
10704
10712
|
|
|
10705
10713
|
/* Data.List.PrefixSuffix.with block in with block in dropPrefix */
|
|
@@ -10751,21 +10759,21 @@ function AppVersion_printVersion($0) {
|
|
|
10751
10759
|
|
|
10752
10760
|
/* AppVersion.appVersion : String */
|
|
10753
10761
|
const AppVersion_appVersion = __lazy(function () {
|
|
10754
|
-
return '6.
|
|
10762
|
+
return '6.5.0';
|
|
10755
10763
|
});
|
|
10756
10764
|
|
|
10757
10765
|
/* Commands.Help.subcommandHelp' : String -> Doc AnsiStyle */
|
|
10758
10766
|
function Commands_Help_subcommandHelpx27($0) {
|
|
10759
10767
|
switch($0) {
|
|
10760
|
-
case 'label': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<label>'), a2:
|
|
10761
|
-
case 'request': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<team-slug> | +<user-login>'), a2:
|
|
10768
|
+
case 'label': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<label>'), a2: csegen_481()}, {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}});
|
|
10769
|
+
case 'request': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<team-slug> | +<user-login>'), a2: csegen_486()}, {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}}}});
|
|
10762
10770
|
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}});
|
|
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:
|
|
10771
|
+
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_486()}}}}, {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
10772
|
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}}}}});
|
|
10765
10773
|
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}});
|
|
10766
10774
|
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}});
|
|
10767
10775
|
case 'version': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print version'), a2: {h: 0}});
|
|
10768
|
-
case 'quick': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--bugfix'), a2: {a1: Commands_Help_argument(0, '<title> | #<issue-number>'), a2:
|
|
10776
|
+
case 'quick': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--bugfix'), a2: {a1: Commands_Help_argument(0, '<title> | #<issue-number>'), a2: csegen_481()}}, {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}}}});
|
|
10769
10777
|
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}});
|
|
10770
10778
|
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}});
|
|
10771
10779
|
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}});
|
|
@@ -10879,7 +10887,7 @@ function Text_PrettyPrint_Prettyprinter_Util_reflow($0) {
|
|
|
10879
10887
|
}
|
|
10880
10888
|
|
|
10881
10889
|
/* Commands.case block in parseContributeArgs,parseSkipArg */
|
|
10882
|
-
function
|
|
10890
|
+
function Commands_case__parseContributeArgsx2cparseSkipArg_22405($0, $1, $2) {
|
|
10883
10891
|
switch($2.h) {
|
|
10884
10892
|
case undefined: /* cons */ {
|
|
10885
10893
|
switch($2.a1) {
|
|
@@ -10892,7 +10900,7 @@ function Commands_case__parseContributeArgsx2cparseSkipArg_22440($0, $1, $2) {
|
|
|
10892
10900
|
}
|
|
10893
10901
|
|
|
10894
10902
|
/* Commands.case block in case block in graph */
|
|
10895
|
-
function
|
|
10903
|
+
function Commands_case__casex20blockx20inx20graph_22139($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10896
10904
|
return $9 => {
|
|
10897
10905
|
const $c = $d => $e => {
|
|
10898
10906
|
switch(Data_Maybe_isJust($3)) {
|
|
@@ -10900,22 +10908,22 @@ function Commands_case__casex20blockx20inx20graph_22174($0, $1, $2, $3, $4, $5,
|
|
|
10900
10908
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 0}, $d, $e);
|
|
10901
10909
|
}
|
|
10902
10910
|
};
|
|
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),
|
|
10911
|
+
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_376(), {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);
|
|
10904
10912
|
};
|
|
10905
10913
|
}
|
|
10906
10914
|
|
|
10907
10915
|
/* Commands.case block in graph */
|
|
10908
|
-
function
|
|
10916
|
+
function Commands_case__graph_22095($0, $1, $2, $3, $4, $5) {
|
|
10909
10917
|
return $6 => {
|
|
10910
10918
|
switch($4.h) {
|
|
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 =>
|
|
10919
|
+
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_22139($0, $1, $2, $3, $4.a1, teamMemberLogins, prs, Commands_PullRequest_rf__allReviewers(prs), $1e), $14, $15), $5, $6);
|
|
10912
10920
|
case 0: /* nothing */ return Data_Promise_reject('The graph command expects the name of a GitHub Team as an argument.', $5, $6);
|
|
10913
10921
|
}
|
|
10914
10922
|
};
|
|
10915
10923
|
}
|
|
10916
10924
|
|
|
10917
10925
|
/* Commands.case block in request */
|
|
10918
|
-
function
|
|
10926
|
+
function Commands_case__request_21563($0, $1, $2, $3, $4) {
|
|
10919
10927
|
return $6 => $8 => {
|
|
10920
10928
|
let $9;
|
|
10921
10929
|
switch(Prelude_Types_null_Foldable_List($4.a1)) {
|
|
@@ -10964,47 +10972,47 @@ function Commands_case__request_21598($0, $1, $2, $3, $4) {
|
|
|
10964
10972
|
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);
|
|
10965
10973
|
}
|
|
10966
10974
|
};
|
|
10967
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10975
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_658(), $1b => $1c => $1d => Commands_PullRequest_identifyOrCreatePR($0, $1, 0, {h: 0}, $1b, $1c, $1d), $15, $16), $28, $6, $8);
|
|
10968
10976
|
}
|
|
10969
10977
|
}
|
|
10970
10978
|
};
|
|
10971
10979
|
}
|
|
10972
10980
|
|
|
10973
10981
|
/* Commands.case block in case block in request,partitionedArgs */
|
|
10974
|
-
function
|
|
10975
|
-
const $8 = Prelude_Interfaces_mapHom(
|
|
10982
|
+
function Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_21487($0, $1, $2, $3, $4, $5, $6) {
|
|
10983
|
+
const $8 = Prelude_Interfaces_mapHom(csegen_672(), $e => Prelude_Types_List_mapAppend({h: 0}, $12 => Data_String_Extra_drop(1n, $12), $e))({a1: $4, a2: $6.a1});
|
|
10976
10984
|
return {a1: $8.a1, a2: {a1: $6.a2, a2: $8.a2}};
|
|
10977
10985
|
}
|
|
10978
10986
|
|
|
10979
10987
|
/* Commands.case block in request,partitionedArgs */
|
|
10980
|
-
function
|
|
10981
|
-
return
|
|
10988
|
+
function Commands_case__requestx2cpartitionedArgs_21466($0, $1, $2, $3, $4) {
|
|
10989
|
+
return Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_21487($0, $1, $2, $3, $4.a1, $4.a2, Data_List_partition($10 => Util_String_isHashPrefix($10), $4.a2));
|
|
10982
10990
|
}
|
|
10983
10991
|
|
|
10984
|
-
/* Commands.
|
|
10985
|
-
function
|
|
10992
|
+
/* Commands.9168:20480:recombineIntoArgs */
|
|
10993
|
+
function Commands_n__9168_20480_recombineIntoArgs($0, $1) {
|
|
10986
10994
|
switch($1.h) {
|
|
10987
10995
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
10988
10996
|
case undefined: /* cons */ {
|
|
10989
10997
|
switch($1.a1) {
|
|
10990
10998
|
case '-i': {
|
|
10991
10999
|
switch($1.a2.h) {
|
|
10992
|
-
case 0: /* nil */ return
|
|
11000
|
+
case 0: /* nil */ return csegen_676();
|
|
10993
11001
|
case undefined: /* cons */ {
|
|
10994
|
-
const $8 =
|
|
11002
|
+
const $8 = Commands_n__9168_20476_parseIntoOpt($0, $1.a2.a1);
|
|
10995
11003
|
switch($8.h) {
|
|
10996
11004
|
case undefined: /* just */ {
|
|
10997
|
-
const $c =
|
|
11005
|
+
const $c = Commands_n__9168_20480_recombineIntoArgs($0, $1.a2.a2);
|
|
10998
11006
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
10999
11007
|
}
|
|
11000
11008
|
case 0: /* nothing */ {
|
|
11001
|
-
const $14 =
|
|
11009
|
+
const $14 = Commands_n__9168_20480_recombineIntoArgs($0, $1.a2.a2);
|
|
11002
11010
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
11003
11011
|
}
|
|
11004
11012
|
}
|
|
11005
11013
|
}
|
|
11006
11014
|
default: {
|
|
11007
|
-
const $1e =
|
|
11015
|
+
const $1e = Commands_n__9168_20480_recombineIntoArgs($0, $1.a2);
|
|
11008
11016
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
11009
11017
|
}
|
|
11010
11018
|
}
|
|
@@ -11013,26 +11021,26 @@ function Commands_n__9120_20480_recombineIntoArgs($0, $1) {
|
|
|
11013
11021
|
switch($1.a2.h) {
|
|
11014
11022
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--into', a2: {h: 0}}};
|
|
11015
11023
|
case undefined: /* cons */ {
|
|
11016
|
-
const $2b =
|
|
11024
|
+
const $2b = Commands_n__9168_20476_parseIntoOpt($0, $1.a2.a1);
|
|
11017
11025
|
switch($2b.h) {
|
|
11018
11026
|
case undefined: /* just */ {
|
|
11019
|
-
const $2f =
|
|
11027
|
+
const $2f = Commands_n__9168_20480_recombineIntoArgs($0, $1.a2.a2);
|
|
11020
11028
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
11021
11029
|
}
|
|
11022
11030
|
case 0: /* nothing */ {
|
|
11023
|
-
const $37 =
|
|
11031
|
+
const $37 = Commands_n__9168_20480_recombineIntoArgs($0, $1.a2.a2);
|
|
11024
11032
|
return {a1: $37.a1, a2: {a1: '--into', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
11025
11033
|
}
|
|
11026
11034
|
}
|
|
11027
11035
|
}
|
|
11028
11036
|
default: {
|
|
11029
|
-
const $41 =
|
|
11037
|
+
const $41 = Commands_n__9168_20480_recombineIntoArgs($0, $1.a2);
|
|
11030
11038
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
11031
11039
|
}
|
|
11032
11040
|
}
|
|
11033
11041
|
}
|
|
11034
11042
|
default: {
|
|
11035
|
-
const $49 =
|
|
11043
|
+
const $49 = Commands_n__9168_20480_recombineIntoArgs($0, $1.a2);
|
|
11036
11044
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
11037
11045
|
}
|
|
11038
11046
|
}
|
|
@@ -11040,30 +11048,30 @@ function Commands_n__9120_20480_recombineIntoArgs($0, $1) {
|
|
|
11040
11048
|
}
|
|
11041
11049
|
}
|
|
11042
11050
|
|
|
11043
|
-
/* Commands.
|
|
11044
|
-
function
|
|
11051
|
+
/* Commands.11160:22359:recombineIgnoreArgs */
|
|
11052
|
+
function Commands_n__11160_22359_recombineIgnoreArgs($0, $1) {
|
|
11045
11053
|
switch($1.h) {
|
|
11046
11054
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
11047
11055
|
case undefined: /* cons */ {
|
|
11048
11056
|
switch($1.a1) {
|
|
11049
11057
|
case '-i': {
|
|
11050
11058
|
switch($1.a2.h) {
|
|
11051
|
-
case 0: /* nil */ return
|
|
11059
|
+
case 0: /* nil */ return csegen_676();
|
|
11052
11060
|
case undefined: /* cons */ {
|
|
11053
|
-
const $8 =
|
|
11061
|
+
const $8 = Commands_n__11160_22356_parseIgnoreOpt($0, $1.a2.a1);
|
|
11054
11062
|
switch($8.h) {
|
|
11055
11063
|
case undefined: /* just */ {
|
|
11056
|
-
const $c =
|
|
11064
|
+
const $c = Commands_n__11160_22359_recombineIgnoreArgs($0, $1.a2.a2);
|
|
11057
11065
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
11058
11066
|
}
|
|
11059
11067
|
case 0: /* nothing */ {
|
|
11060
|
-
const $14 =
|
|
11068
|
+
const $14 = Commands_n__11160_22359_recombineIgnoreArgs($0, $1.a2.a2);
|
|
11061
11069
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
11062
11070
|
}
|
|
11063
11071
|
}
|
|
11064
11072
|
}
|
|
11065
11073
|
default: {
|
|
11066
|
-
const $1e =
|
|
11074
|
+
const $1e = Commands_n__11160_22359_recombineIgnoreArgs($0, $1.a2);
|
|
11067
11075
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
11068
11076
|
}
|
|
11069
11077
|
}
|
|
@@ -11072,26 +11080,26 @@ function Commands_n__11153_22394_recombineIgnoreArgs($0, $1) {
|
|
|
11072
11080
|
switch($1.a2.h) {
|
|
11073
11081
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
|
|
11074
11082
|
case undefined: /* cons */ {
|
|
11075
|
-
const $2b =
|
|
11083
|
+
const $2b = Commands_n__11160_22356_parseIgnoreOpt($0, $1.a2.a1);
|
|
11076
11084
|
switch($2b.h) {
|
|
11077
11085
|
case undefined: /* just */ {
|
|
11078
|
-
const $2f =
|
|
11086
|
+
const $2f = Commands_n__11160_22359_recombineIgnoreArgs($0, $1.a2.a2);
|
|
11079
11087
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
11080
11088
|
}
|
|
11081
11089
|
case 0: /* nothing */ {
|
|
11082
|
-
const $37 =
|
|
11090
|
+
const $37 = Commands_n__11160_22359_recombineIgnoreArgs($0, $1.a2.a2);
|
|
11083
11091
|
return {a1: $37.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
11084
11092
|
}
|
|
11085
11093
|
}
|
|
11086
11094
|
}
|
|
11087
11095
|
default: {
|
|
11088
|
-
const $41 =
|
|
11096
|
+
const $41 = Commands_n__11160_22359_recombineIgnoreArgs($0, $1.a2);
|
|
11089
11097
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
11090
11098
|
}
|
|
11091
11099
|
}
|
|
11092
11100
|
}
|
|
11093
11101
|
default: {
|
|
11094
|
-
const $49 =
|
|
11102
|
+
const $49 = Commands_n__11160_22359_recombineIgnoreArgs($0, $1.a2);
|
|
11095
11103
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
11096
11104
|
}
|
|
11097
11105
|
}
|
|
@@ -11099,23 +11107,23 @@ function Commands_n__11153_22394_recombineIgnoreArgs($0, $1) {
|
|
|
11099
11107
|
}
|
|
11100
11108
|
}
|
|
11101
11109
|
|
|
11102
|
-
/* Commands.
|
|
11103
|
-
function
|
|
11110
|
+
/* Commands.10567:21788:putNameLn */
|
|
11111
|
+
function Commands_n__10567_21788_putNameLn($0, $1, $2, $3) {
|
|
11104
11112
|
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}}}});
|
|
11105
11113
|
}
|
|
11106
11114
|
|
|
11107
|
-
/* Commands.
|
|
11108
|
-
function
|
|
11109
|
-
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $e =>
|
|
11115
|
+
/* Commands.8914:20218:putLabels */
|
|
11116
|
+
function Commands_n__8914_20218_putLabels($0, $1, $2, $3) {
|
|
11117
|
+
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__8914_20217_putLabel($0, $1, $2, $e), $3)));
|
|
11110
11118
|
}
|
|
11111
11119
|
|
|
11112
|
-
/* Commands.
|
|
11113
|
-
function
|
|
11120
|
+
/* Commands.8914:20217:putLabel */
|
|
11121
|
+
function Commands_n__8914_20217_putLabel($0, $1, $2, $3) {
|
|
11114
11122
|
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)));
|
|
11115
11123
|
}
|
|
11116
11124
|
|
|
11117
|
-
/* Commands.
|
|
11118
|
-
function
|
|
11125
|
+
/* Commands.9509:20828:printTree */
|
|
11126
|
+
function Commands_n__9509_20828_printTree($0, $1, $2) {
|
|
11119
11127
|
const $6 = $7 => {
|
|
11120
11128
|
switch($7.h) {
|
|
11121
11129
|
case 2: /* PrintTree */ return 1;
|
|
@@ -11126,27 +11134,17 @@ function Commands_n__9461_20828_printTree($0, $1, $2) {
|
|
|
11126
11134
|
return Data_Maybe_isJust($4);
|
|
11127
11135
|
}
|
|
11128
11136
|
|
|
11129
|
-
/* Commands.
|
|
11130
|
-
function
|
|
11137
|
+
/* Commands.9509:20827:printPrTree */
|
|
11138
|
+
function Commands_n__9509_20827_printPrTree($0, $1, $2, $3, $4, $5) {
|
|
11131
11139
|
const $10 = $11 => {
|
|
11132
|
-
|
|
11133
|
-
|
|
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);
|
|
11140
|
+
const $13 = Commands_PullRequest_prTree({h: 0}, {h: 0}, {a1: $3, a2: $11.a1}, $11.a2);
|
|
11141
|
+
return $1b => $1c => $1d => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($20 => Prelude_IO_prim__putStr((Commands_PullRequest_renderPrTree($2, 1, $13)+'\n'), $20), $1b, $1c, $1d);
|
|
11144
11142
|
};
|
|
11145
11143
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_prChain($2, $0, Data_Fuel_limit(10n), $3.a9), $10, $4, $5);
|
|
11146
11144
|
}
|
|
11147
11145
|
|
|
11148
|
-
/* Commands.
|
|
11149
|
-
function
|
|
11146
|
+
/* Commands.11512:22714:printDetails */
|
|
11147
|
+
function Commands_n__11512_22714_printDetails($0, $1, $2, $3) {
|
|
11150
11148
|
const $4 = Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a8));
|
|
11151
11149
|
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));
|
|
11152
11150
|
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)));
|
|
@@ -11155,8 +11153,8 @@ function Commands_n__11505_22749_printDetails($0, $1, $2, $3) {
|
|
|
11155
11153
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: $4, a2: {a1: $c, a2: {a1: $15, a2: {a1: $20, a2: {a1: $2e, a2: {h: 0}}}}}});
|
|
11156
11154
|
}
|
|
11157
11155
|
|
|
11158
|
-
/* Commands.
|
|
11159
|
-
function
|
|
11156
|
+
/* Commands.11512:22713:pickOne */
|
|
11157
|
+
function Commands_n__11512_22713_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11160
11158
|
const $8 = Data_List_headx27(Data_List_drop($4, Prelude_Types_List_tailRecAppend($6, $7)));
|
|
11161
11159
|
return $11 => $12 => {
|
|
11162
11160
|
switch($8.h) {
|
|
@@ -11170,7 +11168,7 @@ function Commands_n__11505_22748_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11170
11168
|
break;
|
|
11171
11169
|
}
|
|
11172
11170
|
case 0: /* nothing */ {
|
|
11173
|
-
$19 =
|
|
11171
|
+
$19 = csegen_682();
|
|
11174
11172
|
break;
|
|
11175
11173
|
}
|
|
11176
11174
|
}
|
|
@@ -11180,39 +11178,39 @@ function Commands_n__11505_22748_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11180
11178
|
};
|
|
11181
11179
|
}
|
|
11182
11180
|
|
|
11183
|
-
/* Commands.
|
|
11184
|
-
function
|
|
11185
|
-
return
|
|
11181
|
+
/* Commands.10197:21454:partitionedArgs */
|
|
11182
|
+
function Commands_n__10197_21454_partitionedArgs($0, $1, $2, $3) {
|
|
11183
|
+
return Commands_case__requestx2cpartitionedArgs_21466($0, $1, $2, $3, Data_List_partition($c => Data_String_isPrefixOf('+', $c), $3));
|
|
11186
11184
|
}
|
|
11187
11185
|
|
|
11188
|
-
/* Commands.
|
|
11189
|
-
function
|
|
11186
|
+
/* Commands.10735:21976:parseTeamArg */
|
|
11187
|
+
function Commands_n__10735_21976_parseTeamArg($0, $1) {
|
|
11190
11188
|
return {a1: {a1: $1}};
|
|
11191
11189
|
}
|
|
11192
11190
|
|
|
11193
|
-
/* Commands.
|
|
11194
|
-
function
|
|
11195
|
-
return
|
|
11191
|
+
/* Commands.11160:22358:parseSkipArg */
|
|
11192
|
+
function Commands_n__11160_22358_parseSkipArg($0, $1) {
|
|
11193
|
+
return Commands_case__parseContributeArgsx2cparseSkipArg_22405($0, $1, Data_String_strM($1));
|
|
11196
11194
|
}
|
|
11197
11195
|
|
|
11198
|
-
/* Commands.
|
|
11199
|
-
function
|
|
11196
|
+
/* Commands.9168:20479:parseReadyFlag */
|
|
11197
|
+
function Commands_n__9168_20479_parseReadyFlag($0, $1) {
|
|
11200
11198
|
switch($1) {
|
|
11201
11199
|
case '--ready': return {a1: {h: 1 /* Ready */}};
|
|
11202
11200
|
default: return {h: 0};
|
|
11203
11201
|
}
|
|
11204
11202
|
}
|
|
11205
11203
|
|
|
11206
|
-
/* Commands.
|
|
11207
|
-
function
|
|
11204
|
+
/* Commands.9168:20478:parsePrintTreeFlag */
|
|
11205
|
+
function Commands_n__9168_20478_parsePrintTreeFlag($0, $1) {
|
|
11208
11206
|
switch($1) {
|
|
11209
11207
|
case '--print-tree': return {a1: {h: 2 /* PrintTree */}};
|
|
11210
11208
|
default: return {h: 0};
|
|
11211
11209
|
}
|
|
11212
11210
|
}
|
|
11213
11211
|
|
|
11214
|
-
/* Commands.
|
|
11215
|
-
function
|
|
11212
|
+
/* Commands.11160:22357:parseListFlag */
|
|
11213
|
+
function Commands_n__11160_22357_parseListFlag($0, $1) {
|
|
11216
11214
|
switch($1) {
|
|
11217
11215
|
case '-l': return {a1: {h: 0 /* List */}};
|
|
11218
11216
|
case '--list': return {a1: {h: 0 /* List */}};
|
|
@@ -11220,8 +11218,8 @@ function Commands_n__11153_22392_parseListFlag($0, $1) {
|
|
|
11220
11218
|
}
|
|
11221
11219
|
}
|
|
11222
11220
|
|
|
11223
|
-
/* Commands.
|
|
11224
|
-
function
|
|
11221
|
+
/* Commands.9168:20477:parseLabelArg */
|
|
11222
|
+
function Commands_n__9168_20477_parseLabelArg($0, $1) {
|
|
11225
11223
|
const $2 = Data_String_strM($1);
|
|
11226
11224
|
switch($2.h) {
|
|
11227
11225
|
case undefined: /* cons */ {
|
|
@@ -11234,29 +11232,29 @@ function Commands_n__9120_20477_parseLabelArg($0, $1) {
|
|
|
11234
11232
|
}
|
|
11235
11233
|
}
|
|
11236
11234
|
|
|
11237
|
-
/* Commands.
|
|
11238
|
-
function
|
|
11235
|
+
/* Commands.9168:20476:parseIntoOpt */
|
|
11236
|
+
function Commands_n__9168_20476_parseIntoOpt($0, $1) {
|
|
11239
11237
|
const $2 = Util_String_nonEmpty($1);
|
|
11240
11238
|
return Prelude_Types_map_Functor_Maybe($7 => $7, $2);
|
|
11241
11239
|
}
|
|
11242
11240
|
|
|
11243
|
-
/* Commands.
|
|
11244
|
-
function
|
|
11245
|
-
const $2 = Data_String_split(
|
|
11241
|
+
/* Commands.11160:22356:parseIgnoreOpt */
|
|
11242
|
+
function Commands_n__11160_22356_parseIgnoreOpt($0, $1) {
|
|
11243
|
+
const $2 = Data_String_split(csegen_414(), $1);
|
|
11246
11244
|
const $7 = Data_List1_last($2);
|
|
11247
11245
|
return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
|
|
11248
11246
|
}
|
|
11249
11247
|
|
|
11250
|
-
/* Commands.
|
|
11251
|
-
function
|
|
11248
|
+
/* Commands.9168:20475:parseDraftFlag */
|
|
11249
|
+
function Commands_n__9168_20475_parseDraftFlag($0, $1) {
|
|
11252
11250
|
switch($1) {
|
|
11253
11251
|
case '--draft': return {a1: {h: 0 /* Draft */}};
|
|
11254
11252
|
default: return {h: 0};
|
|
11255
11253
|
}
|
|
11256
11254
|
}
|
|
11257
11255
|
|
|
11258
|
-
/* Commands.
|
|
11259
|
-
function
|
|
11256
|
+
/* Commands.10735:21975:parseCompletedFlag */
|
|
11257
|
+
function Commands_n__10735_21975_parseCompletedFlag($0, $1) {
|
|
11260
11258
|
switch($1) {
|
|
11261
11259
|
case '-c': return {a1: {h: 0}};
|
|
11262
11260
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -11264,8 +11262,8 @@ function Commands_n__10728_22010_parseCompletedFlag($0, $1) {
|
|
|
11264
11262
|
}
|
|
11265
11263
|
}
|
|
11266
11264
|
|
|
11267
|
-
/* Commands.
|
|
11268
|
-
function
|
|
11265
|
+
/* Commands.11160:22355:parseCheckoutFlag */
|
|
11266
|
+
function Commands_n__11160_22355_parseCheckoutFlag($0, $1) {
|
|
11269
11267
|
switch($1) {
|
|
11270
11268
|
case '-c': return {a1: {h: 1 /* Checkout */}};
|
|
11271
11269
|
case '--checkout': return {a1: {h: 1 /* Checkout */}};
|
|
@@ -11273,8 +11271,8 @@ function Commands_n__11153_22390_parseCheckoutFlag($0, $1) {
|
|
|
11273
11271
|
}
|
|
11274
11272
|
}
|
|
11275
11273
|
|
|
11276
|
-
/* Commands.
|
|
11277
|
-
function
|
|
11274
|
+
/* Commands.9509:20826:markAsReady */
|
|
11275
|
+
function Commands_n__9509_20826_markAsReady($0, $1, $2) {
|
|
11278
11276
|
const $6 = $7 => {
|
|
11279
11277
|
switch($7.h) {
|
|
11280
11278
|
case 1: /* Ready */ return 1;
|
|
@@ -11285,8 +11283,8 @@ function Commands_n__9461_20826_markAsReady($0, $1, $2) {
|
|
|
11285
11283
|
return Data_Maybe_isJust($4);
|
|
11286
11284
|
}
|
|
11287
11285
|
|
|
11288
|
-
/* Commands.
|
|
11289
|
-
function
|
|
11286
|
+
/* Commands.9509:20825:markAsDraft */
|
|
11287
|
+
function Commands_n__9509_20825_markAsDraft($0, $1, $2) {
|
|
11290
11288
|
const $6 = $7 => {
|
|
11291
11289
|
switch($7.h) {
|
|
11292
11290
|
case 0: /* Draft */ return 1;
|
|
@@ -11297,8 +11295,8 @@ function Commands_n__9461_20825_markAsDraft($0, $1, $2) {
|
|
|
11297
11295
|
return Data_Maybe_isJust($4);
|
|
11298
11296
|
}
|
|
11299
11297
|
|
|
11300
|
-
/* Commands.
|
|
11301
|
-
function
|
|
11298
|
+
/* Commands.11512:22712:listSome */
|
|
11299
|
+
function Commands_n__11512_22712_listSome($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11302
11300
|
const $13 = $14 => {
|
|
11303
11301
|
let $19;
|
|
11304
11302
|
switch(Prelude_Types_null_Foldable_List($5)) {
|
|
@@ -11311,13 +11309,13 @@ function Commands_n__11505_22747_listSome($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11311
11309
|
break;
|
|
11312
11310
|
}
|
|
11313
11311
|
}
|
|
11314
|
-
return Prelude_Interfaces_when(csegen_40()(), $19, () => $1e => $1f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11312
|
+
return Prelude_Interfaces_when(csegen_40()(), $19, () => $1e => $1f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_461()(), $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__11512_22710_goListSome($0, $1, $2, 0, Data_List_take(5n, $5)), $26, $27), $1e, $1f));
|
|
11315
11313
|
};
|
|
11316
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11314
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_n__11512_22710_goListSome($0, $1, $2, 1, Data_List_drop($3, $4)), $13, $6, $7);
|
|
11317
11315
|
}
|
|
11318
11316
|
|
|
11319
|
-
/* Commands.
|
|
11320
|
-
function
|
|
11317
|
+
/* Commands.9509:20824:labelSlugs */
|
|
11318
|
+
function Commands_n__9509_20824_labelSlugs($0, $1, $2) {
|
|
11321
11319
|
const $4 = $5 => $6 => {
|
|
11322
11320
|
switch($5.h) {
|
|
11323
11321
|
case 4: /* Label */ return {a1: $5.a1, a2: $6};
|
|
@@ -11327,13 +11325,13 @@ function Commands_n__9461_20824_labelSlugs($0, $1, $2) {
|
|
|
11327
11325
|
return Prelude_Types_foldr_Foldable_List($4, {h: 0}, $1);
|
|
11328
11326
|
}
|
|
11329
11327
|
|
|
11330
|
-
/* Commands.
|
|
11331
|
-
function
|
|
11332
|
-
return Data_Maybe_isNothing(Data_List_find($9 => Prelude_EqOrd_x3dx3d_Eq_Integer($9, $4.a1), $3.
|
|
11328
|
+
/* Commands.11512:22711:isNotIgnored */
|
|
11329
|
+
function Commands_n__11512_22711_isNotIgnored($0, $1, $2, $3, $4) {
|
|
11330
|
+
return Data_Maybe_isNothing(Data_List_find($9 => Prelude_EqOrd_x3dx3d_Eq_Integer($9, $4.a1), $3.a15));
|
|
11333
11331
|
}
|
|
11334
11332
|
|
|
11335
|
-
/* Commands.
|
|
11336
|
-
function
|
|
11333
|
+
/* Commands.9509:20823:intoBranch */
|
|
11334
|
+
function Commands_n__9509_20823_intoBranch($0, $1, $2) {
|
|
11337
11335
|
const $c = $d => {
|
|
11338
11336
|
switch($d.h) {
|
|
11339
11337
|
case 3: /* Into */ return {a1: Util_String_value($d.a1)};
|
|
@@ -11343,11 +11341,11 @@ function Commands_n__9461_20823_intoBranch($0, $1, $2) {
|
|
|
11343
11341
|
return Prelude_Types_foldMap_Foldable_List({a1: $6 => $7 => Prelude_Types_x3cx2bx3e_Semigroup_x28Maybex20x24ax29($6, $7), a2: {h: 0}}, $c, $1);
|
|
11344
11342
|
}
|
|
11345
11343
|
|
|
11346
|
-
/* Commands.
|
|
11347
|
-
function
|
|
11344
|
+
/* Commands.11512:22710:goListSome */
|
|
11345
|
+
function Commands_n__11512_22710_goListSome($0, $1, $2, $3, $4) {
|
|
11348
11346
|
switch($4.h) {
|
|
11349
11347
|
case undefined: /* cons */ {
|
|
11350
|
-
const $6 =
|
|
11348
|
+
const $6 = Commands_n__11512_22714_printDetails($0, $1, $2, $4.a1);
|
|
11351
11349
|
let $13;
|
|
11352
11350
|
switch($3) {
|
|
11353
11351
|
case 1: {
|
|
@@ -11359,15 +11357,15 @@ function Commands_n__11505_22745_goListSome($0, $1, $2, $3, $4) {
|
|
|
11359
11357
|
break;
|
|
11360
11358
|
}
|
|
11361
11359
|
}
|
|
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:
|
|
11360
|
+
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__11512_22714_printDetails($0, $1, $2, next), a2: {h: 0}}}}), $6, $4.a2));
|
|
11363
11361
|
return Util_renderIO($2, csegen_48()(), $11);
|
|
11364
11362
|
}
|
|
11365
|
-
case 0: /* nil */ return
|
|
11363
|
+
case 0: /* nil */ return csegen_682();
|
|
11366
11364
|
}
|
|
11367
11365
|
}
|
|
11368
11366
|
|
|
11369
|
-
/* Commands.
|
|
11370
|
-
function
|
|
11367
|
+
/* Commands.12496:23622:go */
|
|
11368
|
+
function Commands_n__12496_23622_go($0, $1) {
|
|
11371
11369
|
switch($1.h) {
|
|
11372
11370
|
case undefined: /* cons */ {
|
|
11373
11371
|
switch($1.a1.h) {
|
|
@@ -11389,8 +11387,8 @@ function Commands_n__12489_23657_go($0, $1) {
|
|
|
11389
11387
|
}
|
|
11390
11388
|
}
|
|
11391
11389
|
|
|
11392
|
-
/* Commands.
|
|
11393
|
-
function
|
|
11390
|
+
/* Commands.12444:23567:go */
|
|
11391
|
+
function Commands_n__12444_23567_go($0, $1) {
|
|
11394
11392
|
switch($1.h) {
|
|
11395
11393
|
case 0: /* nothing */ return $0;
|
|
11396
11394
|
default: {
|
|
@@ -11402,15 +11400,15 @@ function Commands_n__12437_23602_go($0, $1) {
|
|
|
11402
11400
|
}
|
|
11403
11401
|
}
|
|
11404
11402
|
|
|
11405
|
-
/* Commands.
|
|
11406
|
-
function
|
|
11403
|
+
/* Commands.10567:21787:forkedUser */
|
|
11404
|
+
function Commands_n__10567_21787_forkedUser($0, $1, $2, $3) {
|
|
11407
11405
|
return FFI_Concurrency_fork(csegen_48()(), ('user --json '+$3));
|
|
11408
11406
|
}
|
|
11409
11407
|
|
|
11410
|
-
/* Commands.
|
|
11411
|
-
function
|
|
11412
|
-
switch(
|
|
11413
|
-
case 1: return
|
|
11408
|
+
/* Commands.9509:20822:conflictingDraftReadyArgs */
|
|
11409
|
+
function Commands_n__9509_20822_conflictingDraftReadyArgs($0, $1, $2) {
|
|
11410
|
+
switch(Commands_n__9509_20825_markAsDraft($0, $1, $2)) {
|
|
11411
|
+
case 1: return Commands_n__9509_20826_markAsReady($0, $1, $2);
|
|
11414
11412
|
case 0: return 0;
|
|
11415
11413
|
}
|
|
11416
11414
|
}
|
|
@@ -11429,12 +11427,12 @@ function Commands_titleOrNumberArg($0) {
|
|
|
11429
11427
|
}
|
|
11430
11428
|
};
|
|
11431
11429
|
const $3 = Prelude_Types_List_filterAppend({h: 0}, $6, $0);
|
|
11432
|
-
return
|
|
11430
|
+
return Commands_n__12496_23622_go($0, $3);
|
|
11433
11431
|
}
|
|
11434
11432
|
|
|
11435
11433
|
/* Commands.titleArg : List QuickArg -> Maybe String */
|
|
11436
11434
|
function Commands_titleArg($0) {
|
|
11437
|
-
return Prelude_Types_foldl_Foldable_List($3 => $4 =>
|
|
11435
|
+
return Prelude_Types_foldl_Foldable_List($3 => $4 => Commands_n__12444_23567_go($3, $4), {h: 0}, $0);
|
|
11438
11436
|
}
|
|
11439
11437
|
|
|
11440
11438
|
/* Commands.teamNameArg : GraphArg -> Maybe String */
|
|
@@ -11460,7 +11458,7 @@ function Commands_skipArg($0) {
|
|
|
11460
11458
|
|
|
11461
11459
|
/* Commands.request : Config => Octokit => List String -> {default False _ : Bool} -> Promise' () */
|
|
11462
11460
|
function Commands_request($0, $1, $2, $3) {
|
|
11463
|
-
return
|
|
11461
|
+
return Commands_case__request_21563($0, $1, $3, $2, Commands_n__10197_21454_partitionedArgs($0, $1, $3, $2));
|
|
11464
11462
|
}
|
|
11465
11463
|
|
|
11466
11464
|
/* Commands.reflect : Config => Octokit => Promise' () */
|
|
@@ -11488,8 +11486,8 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11488
11486
|
switch($39.a1) {
|
|
11489
11487
|
case 0: {
|
|
11490
11488
|
$3e = $40 => {
|
|
11491
|
-
switch(
|
|
11492
|
-
case 1: return $46 =>
|
|
11489
|
+
switch(Commands_n__9509_20828_printTree($1, $2, $0)) {
|
|
11490
|
+
case 1: return $46 => Commands_n__9509_20827_printPrTree($1, $2, $0, $39.a2, $40, $46);
|
|
11493
11491
|
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
11492
|
}
|
|
11495
11493
|
};
|
|
@@ -11497,8 +11495,8 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11497
11495
|
}
|
|
11498
11496
|
case 1: {
|
|
11499
11497
|
$3e = $5e => {
|
|
11500
|
-
switch(
|
|
11501
|
-
case 1: return $64 =>
|
|
11498
|
+
switch(Commands_n__9509_20828_printTree($1, $2, $0)) {
|
|
11499
|
+
case 1: return $64 => Commands_n__9509_20827_printPrTree($1, $2, $0, $39.a2, $5e, $64);
|
|
11502
11500
|
case 0: return $6c => Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $5e, $6c);
|
|
11503
11501
|
}
|
|
11504
11502
|
};
|
|
@@ -11507,7 +11505,7 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11507
11505
|
}
|
|
11508
11506
|
const $71 = $72 => $73 => $74 => {
|
|
11509
11507
|
let $7b;
|
|
11510
|
-
switch(Prelude_Types_null_Foldable_List(
|
|
11508
|
+
switch(Prelude_Types_null_Foldable_List(Commands_n__9509_20824_labelSlugs($1, $2, $0))) {
|
|
11511
11509
|
case 1: {
|
|
11512
11510
|
$7b = 0;
|
|
11513
11511
|
break;
|
|
@@ -11517,10 +11515,10 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11517
11515
|
break;
|
|
11518
11516
|
}
|
|
11519
11517
|
}
|
|
11520
|
-
const $76 = Prelude_Interfaces_when(csegen_40()(), $7b, () => $84 => $85 => Commands_label($0, $1,
|
|
11518
|
+
const $76 = Prelude_Interfaces_when(csegen_40()(), $7b, () => $84 => $85 => Commands_label($0, $1, Commands_n__9509_20824_labelSlugs($1, $2, $0), $84, $85));
|
|
11521
11519
|
const $90 = $91 => $92 => $93 => {
|
|
11522
11520
|
const $95 = $96 => {
|
|
11523
|
-
const $97 =
|
|
11521
|
+
const $97 = Commands_n__9509_20823_intoBranch($1, $2, $0);
|
|
11524
11522
|
switch($97.h) {
|
|
11525
11523
|
case undefined: /* just */ {
|
|
11526
11524
|
return $9c => {
|
|
@@ -11535,7 +11533,7 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11535
11533
|
};
|
|
11536
11534
|
const $bb = $bc => $bd => $be => {
|
|
11537
11535
|
let $c5;
|
|
11538
|
-
switch(
|
|
11536
|
+
switch(Commands_n__9509_20825_markAsDraft($1, $2, $0)) {
|
|
11539
11537
|
case 1: {
|
|
11540
11538
|
switch($39.a2.a4) {
|
|
11541
11539
|
case 1: {
|
|
@@ -11564,11 +11562,11 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11564
11562
|
};
|
|
11565
11563
|
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);
|
|
11566
11564
|
};
|
|
11567
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11565
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_461()(), $d4, $ce, $cf);
|
|
11568
11566
|
});
|
|
11569
11567
|
const $115 = $116 => {
|
|
11570
11568
|
let $11b;
|
|
11571
|
-
switch(
|
|
11569
|
+
switch(Commands_n__9509_20826_markAsReady($1, $2, $0)) {
|
|
11572
11570
|
case 1: {
|
|
11573
11571
|
$11b = $39.a2.a4;
|
|
11574
11572
|
break;
|
|
@@ -11588,7 +11586,7 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11588
11586
|
};
|
|
11589
11587
|
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);
|
|
11590
11588
|
};
|
|
11591
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11589
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_461()(), $129, $123, $124);
|
|
11592
11590
|
});
|
|
11593
11591
|
};
|
|
11594
11592
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c0, $115, $bd, $be);
|
|
@@ -11602,9 +11600,9 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11602
11600
|
case 1: /* Hypothetical */ return $172 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($175 => Prelude_IO_prim__putStr(($39.a1+'\n'), $175), $3a, $3b, $172);
|
|
11603
11601
|
}
|
|
11604
11602
|
};
|
|
11605
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d => $1e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11603
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d => $1e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_658(), $23 => $24 => $25 => Commands_PullRequest_identifyOrCreatePR($0, $1, Commands_n__9509_20825_markAsDraft($1, $2, $0), Commands_n__9509_20823_intoBranch($1, $2, $0), $23, $24, $25), $1d, $1e), $38, $19, $1a);
|
|
11606
11604
|
};
|
|
11607
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_40()(),
|
|
11605
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_40()(), Commands_n__9509_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);
|
|
11608
11606
|
}
|
|
11609
11607
|
|
|
11610
11608
|
/* Commands.parseQuickArgs : List String -> List QuickArg */
|
|
@@ -11625,9 +11623,9 @@ function Commands_parsePrArgs($0) {
|
|
|
11625
11623
|
switch($0.h) {
|
|
11626
11624
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
11627
11625
|
default: {
|
|
11628
|
-
const $3 =
|
|
11626
|
+
const $3 = Commands_n__9168_20480_recombineIntoArgs($0, $0);
|
|
11629
11627
|
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(
|
|
11628
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_706(), $18 => Commands_n__9168_20479_parseReadyFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_706(), $22 => Commands_n__9168_20475_parseDraftFlag($0, $22), $27 => Commands_x3cx7cx7cx3e(csegen_706(), $2c => Commands_n__9168_20478_parsePrintTreeFlag($0, $2c), $31 => Commands_n__9168_20477_parseLabelArg($0, $31), $27), $1d), $13), $3.a2);
|
|
11631
11629
|
return Data_Either_maybeToEither(() => Commands_prUsageError(), Prelude_Types_map_Functor_Maybe($3f => Prelude_Types_List_tailRecAppend($7, $3f), $e));
|
|
11632
11630
|
}
|
|
11633
11631
|
}
|
|
@@ -11643,7 +11641,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11643
11641
|
switch($0.a2.a2.h) {
|
|
11644
11642
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
11645
11643
|
default: {
|
|
11646
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(
|
|
11644
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_706(), $10 => Commands_n__10735_21975_parseCompletedFlag($0, $10), $15 => Commands_n__10735_21976_parseTeamArg($0, $15), $b), $0);
|
|
11647
11645
|
switch($6.h) {
|
|
11648
11646
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
11649
11647
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -11652,7 +11650,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11652
11650
|
}
|
|
11653
11651
|
}
|
|
11654
11652
|
default: {
|
|
11655
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(
|
|
11653
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_706(), $27 => Commands_n__10735_21975_parseCompletedFlag($0, $27), $2c => Commands_n__10735_21976_parseTeamArg($0, $2c), $22), $0);
|
|
11656
11654
|
switch($1d.h) {
|
|
11657
11655
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
11658
11656
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -11661,7 +11659,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11661
11659
|
}
|
|
11662
11660
|
}
|
|
11663
11661
|
default: {
|
|
11664
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(
|
|
11662
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_706(), $3e => Commands_n__10735_21975_parseCompletedFlag($0, $3e), $43 => Commands_n__10735_21976_parseTeamArg($0, $43), $39), $0);
|
|
11665
11663
|
switch($34.h) {
|
|
11666
11664
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
11667
11665
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -11675,9 +11673,9 @@ function Commands_parseContributeArgs($0) {
|
|
|
11675
11673
|
switch($0.h) {
|
|
11676
11674
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
11677
11675
|
default: {
|
|
11678
|
-
const $3 =
|
|
11676
|
+
const $3 = Commands_n__11160_22359_recombineIgnoreArgs($0, $0);
|
|
11679
11677
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 2 /* Ignore */, a1: $b}), $3.a1);
|
|
11680
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
11678
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_706(), $18 => Commands_n__11160_22357_parseListFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_706(), $22 => Commands_n__11160_22358_parseSkipArg($0, $22), $27 => Commands_n__11160_22355_parseCheckoutFlag($0, $27), $1d), $13), $3.a2);
|
|
11681
11679
|
return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($34 => Prelude_Types_List_tailRecAppend($7, $34), $e));
|
|
11682
11680
|
}
|
|
11683
11681
|
}
|
|
@@ -11685,12 +11683,12 @@ function Commands_parseContributeArgs($0) {
|
|
|
11685
11683
|
|
|
11686
11684
|
/* Commands.listOrgTeams : Config => Octokit => Promise' () */
|
|
11687
11685
|
function Commands_listOrgTeams($0, $1, $2, $3) {
|
|
11688
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11686
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_707(), $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);
|
|
11689
11687
|
}
|
|
11690
11688
|
|
|
11691
11689
|
/* Commands.list : Config => Octokit => String -> Promise' () */
|
|
11692
11690
|
function Commands_list($0, $1, $2, $3, $4) {
|
|
11693
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11691
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_707(), $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_709(), Prelude_Types_traverse_Traversable_List(csegen_40()(), $29 => Commands_n__10567_21787_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__10567_21788_putNameLn($1, $2, $0, $4e), teamMembers))), $31, $32), $19, $1a), $3, $4);
|
|
11694
11692
|
}
|
|
11695
11693
|
|
|
11696
11694
|
/* Commands.label : Config => Octokit => List String -> Promise' () */
|
|
@@ -11698,18 +11696,18 @@ function Commands_label($0, $1, $2, $3, $4) {
|
|
|
11698
11696
|
const $1a = $1b => {
|
|
11699
11697
|
switch($1b.h) {
|
|
11700
11698
|
case 0: /* Actual */ {
|
|
11701
|
-
const $1d = Prelude_Types_List_mapAppend({h: 0}, $21 => Commands_Label_unslugifyLabel($0.
|
|
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(
|
|
11699
|
+
const $1d = Prelude_Types_List_mapAppend({h: 0}, $21 => Commands_Label_unslugifyLabel($0.a13, $21), $2);
|
|
11700
|
+
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__8914_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__8914_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);
|
|
11703
11701
|
}
|
|
11704
11702
|
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);
|
|
11705
11703
|
}
|
|
11706
11704
|
};
|
|
11707
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11705
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_658(), $d => $e => $f => Commands_PullRequest_identifyOrCreatePR($0, $1, 0, {h: 0}, $d, $e, $f), $7, $8), $1a, $3, $4);
|
|
11708
11706
|
}
|
|
11709
11707
|
|
|
11710
11708
|
/* Commands.issueCategory : List QuickArg -> IssueCategory */
|
|
11711
11709
|
function Commands_issueCategory($0) {
|
|
11712
|
-
return Prelude_Types_maybe(() => 1, () => $4 => 0, Data_List_find(
|
|
11710
|
+
return Prelude_Types_maybe(() => 1, () => $4 => 0, Data_List_find(csegen_716(), $0));
|
|
11713
11711
|
}
|
|
11714
11712
|
|
|
11715
11713
|
/* Commands.health : Config => Octokit => Promise' () */
|
|
@@ -11719,8 +11717,8 @@ function Commands_health($0, $1, $2, $3) {
|
|
|
11719
11717
|
|
|
11720
11718
|
/* Commands.graph : Config => Octokit => List GraphArg -> Promise' () */
|
|
11721
11719
|
function Commands_graph($0, $1, $2) {
|
|
11722
|
-
const $3 = Data_List_find(
|
|
11723
|
-
return $8 =>
|
|
11720
|
+
const $3 = Data_List_find(csegen_716(), $2);
|
|
11721
|
+
return $8 => Commands_case__graph_22095($1, $2, $0, $3, Data_List_headx27(Prelude_Types_List_mapMaybeAppend({h: 0}, $14 => Commands_teamNameArg($14), $2)), $8);
|
|
11724
11722
|
}
|
|
11725
11723
|
|
|
11726
11724
|
/* Commands.contributeUsageError : String */
|
|
@@ -11785,17 +11783,17 @@ function Commands_contribute($0, $1, $2, $3, $4) {
|
|
|
11785
11783
|
}
|
|
11786
11784
|
};
|
|
11787
11785
|
const $71 = Prelude_Types_List_filterAppend({h: 0}, $74, $12);
|
|
11788
|
-
const $7b = Prelude_Types_List_filterAppend({h: 0}, $7f =>
|
|
11786
|
+
const $7b = Prelude_Types_List_filterAppend({h: 0}, $7f => Commands_n__11512_22711_isNotIgnored($1, $2, $0, configx27, $7f), $71);
|
|
11789
11787
|
const $87 = Data_List_partition($8a => Data_PullRequest_isRequestedReviewer(myLogin, $8a), $7b);
|
|
11790
|
-
const $8f = Prelude_Interfaces_mapHom(
|
|
11788
|
+
const $8f = Prelude_Interfaces_mapHom(csegen_672(), $95 => Data_List_sortBy(csegen_723(), $95))($87);
|
|
11791
11789
|
let $70;
|
|
11792
11790
|
switch($53.h) {
|
|
11793
11791
|
case 0: /* nothing */ {
|
|
11794
|
-
$70 = () =>
|
|
11792
|
+
$70 = () => Commands_n__11512_22713_pickOne($1, $2, $0, configx27, $40, $4d, $8f.a1, $8f.a2);
|
|
11795
11793
|
break;
|
|
11796
11794
|
}
|
|
11797
11795
|
case undefined: /* just */ {
|
|
11798
|
-
$70 = () => $a5 => $a6 =>
|
|
11796
|
+
$70 = () => $a5 => $a6 => Commands_n__11512_22712_listSome($1, $2, $0, $40, $8f.a1, $8f.a2, $a5, $a6);
|
|
11799
11797
|
break;
|
|
11800
11798
|
}
|
|
11801
11799
|
}
|
|
@@ -11807,7 +11805,7 @@ function Commands_contribute($0, $1, $2, $3, $4) {
|
|
|
11807
11805
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($30, $3f, $2d, $2e);
|
|
11808
11806
|
};
|
|
11809
11807
|
};
|
|
11810
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => $1f => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11808
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => $1f => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_420()(), FFI_GitHub_getSelf($1), $1e, $1f), $29, $1a, $1b);
|
|
11811
11809
|
};
|
|
11812
11810
|
};
|
|
11813
11811
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequests($1, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $11, $3, $4);
|
|
@@ -11821,7 +11819,7 @@ function Commands_branch($0, $1, $2) {
|
|
|
11821
11819
|
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}}}}}}});
|
|
11822
11820
|
return $1f => $20 => $21 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($24 => Prelude_IO_prim__putStr(($b+'\n'), $24), $1f, $20, $21);
|
|
11823
11821
|
};
|
|
11824
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11822
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_658(), $6, $1, $2);
|
|
11825
11823
|
}
|
|
11826
11824
|
|
|
11827
11825
|
/* Commands.(<||>) : Alternative t => (a -> t b) -> (a -> t b) -> a -> t b */
|
|
@@ -12041,67 +12039,67 @@ function Data_SortedMap_Dependent_empty($0) {
|
|
|
12041
12039
|
|
|
12042
12040
|
/* Commands.User.Reflect.case block in case block in reflectOnSelf */
|
|
12043
12041
|
function Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
12044
|
-
const $b = Prelude_Interfaces_mapHom(
|
|
12042
|
+
const $b = Prelude_Interfaces_mapHom(csegen_672(), $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_745(), $11))))({a1: $7, a2: $9.a1});
|
|
12045
12043
|
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));
|
|
12046
12044
|
}
|
|
12047
12045
|
|
|
12048
|
-
/* Commands.User.Me.
|
|
12049
|
-
function
|
|
12046
|
+
/* Commands.User.Me.7774:2049:ul */
|
|
12047
|
+
function Commands_User_Me_n__7774_2049_ul($0, $1, $2, $3, $4) {
|
|
12050
12048
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
12051
12049
|
}
|
|
12052
12050
|
|
|
12053
|
-
/* Commands.User.Me.
|
|
12054
|
-
function
|
|
12055
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
12051
|
+
/* Commands.User.Me.7774:2048:teams */
|
|
12052
|
+
function Commands_User_Me_n__7774_2048_teams($0, $1, $2, $3) {
|
|
12053
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_User_Me_n__7774_2049_ul($0, $1, $2, $3, 'GitHub Teams:'), a2: Prelude_Types_List_mapAppend({h: 0}, $11 => Commands_User_Me_n__7774_2046_it($0, $1, $2, $3, $11), $0)});
|
|
12056
12054
|
}
|
|
12057
12055
|
|
|
12058
|
-
/* Commands.User.Me.
|
|
12059
|
-
function
|
|
12060
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'),
|
|
12056
|
+
/* Commands.User.Me.7774:2047:login */
|
|
12057
|
+
function Commands_User_Me_n__7774_2047_login($0, $1, $2, $3) {
|
|
12058
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'), Commands_User_Me_n__7774_2043_dataVal($0, $1, $2, $3, $1.a1));
|
|
12061
12059
|
}
|
|
12062
12060
|
|
|
12063
|
-
/* Commands.User.Reflect.
|
|
12064
|
-
function
|
|
12061
|
+
/* Commands.User.Reflect.6829:1075:ital */
|
|
12062
|
+
function Commands_User_Reflect_n__6829_1075_ital($0, $1) {
|
|
12065
12063
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
12066
12064
|
}
|
|
12067
12065
|
|
|
12068
|
-
/* Commands.User.Me.
|
|
12069
|
-
function
|
|
12066
|
+
/* Commands.User.Me.7774:2046:it */
|
|
12067
|
+
function Commands_User_Me_n__7774_2046_it($0, $1, $2, $3, $4) {
|
|
12070
12068
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
12071
12069
|
}
|
|
12072
12070
|
|
|
12073
|
-
/* Commands.User.Me.
|
|
12074
|
-
function
|
|
12071
|
+
/* Commands.User.Me.7924:2196:handleUnsetEmail */
|
|
12072
|
+
function Commands_User_Me_n__7924_2196_handleUnsetEmail($0, $1, $2) {
|
|
12075
12073
|
switch($2) {
|
|
12076
12074
|
case '': return {h: 0};
|
|
12077
12075
|
default: return {a1: $2};
|
|
12078
12076
|
}
|
|
12079
12077
|
}
|
|
12080
12078
|
|
|
12081
|
-
/* Commands.User.Me.
|
|
12082
|
-
function
|
|
12083
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'),
|
|
12079
|
+
/* Commands.User.Me.7774:2045:fullName */
|
|
12080
|
+
function Commands_User_Me_n__7774_2045_fullName($0, $1, $2, $3) {
|
|
12081
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'), Commands_User_Me_n__7774_2043_dataVal($0, $1, $2, $3, $1.a2));
|
|
12084
12082
|
}
|
|
12085
12083
|
|
|
12086
|
-
/* Commands.User.Me.
|
|
12087
|
-
function
|
|
12084
|
+
/* Commands.User.Me.7774:2044:email */
|
|
12085
|
+
function Commands_User_Me_n__7774_2044_email($0, $1, $2, $3) {
|
|
12088
12086
|
let $8;
|
|
12089
12087
|
switch($2.h) {
|
|
12090
12088
|
case undefined: /* just */ {
|
|
12091
|
-
$8 =
|
|
12089
|
+
$8 = Commands_User_Me_n__7774_2043_dataVal($0, $1, $2, $3, $2.a1);
|
|
12092
12090
|
break;
|
|
12093
12091
|
}
|
|
12094
12092
|
case 0: /* nothing */ {
|
|
12095
|
-
$8 =
|
|
12093
|
+
$8 = Commands_User_Me_n__7774_2046_it($0, $1, $2, $3, 'Not set');
|
|
12096
12094
|
break;
|
|
12097
12095
|
}
|
|
12098
12096
|
}
|
|
12099
12097
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Git Email:'), $8);
|
|
12100
12098
|
}
|
|
12101
12099
|
|
|
12102
|
-
/* Commands.User.Me.
|
|
12103
|
-
function
|
|
12104
|
-
return Theme_theme($3,
|
|
12100
|
+
/* Commands.User.Me.7774:2043:dataVal */
|
|
12101
|
+
function Commands_User_Me_n__7774_2043_dataVal($0, $1, $2, $3, $4) {
|
|
12102
|
+
return Theme_theme($3, csegen_748(), csegen_749(), 8)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
12105
12103
|
}
|
|
12106
12104
|
|
|
12107
12105
|
/* Commands.User.Reflect.rightTitle : String */
|
|
@@ -12124,20 +12122,20 @@ function Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
|
12124
12122
|
const $c = prs => $d => $e => {
|
|
12125
12123
|
const $1c = myLogin => $1d => $1e => {
|
|
12126
12124
|
const $3a = reviews => {
|
|
12127
|
-
const $3b = Prelude_Types_map_Functor_Maybe(
|
|
12128
|
-
const $4e = Prelude_Interfaces_mapHom(
|
|
12129
|
-
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(
|
|
12125
|
+
const $3b = Prelude_Types_map_Functor_Maybe(csegen_751(), Data_List_headx27(Data_List_sortBy($44 => $45 => Prelude_Basics_on(csegen_721(), csegen_751(), $44, $45), reviews)));
|
|
12126
|
+
const $4e = Prelude_Interfaces_mapHom(csegen_672(), $54 => Prelude_Types_List_filterAppend({h: 0}, $58 => Prelude_EqOrd_x3dx3d_Eq_String($58.a5, myLogin), $54))(prs);
|
|
12127
|
+
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(csegen_672(), $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));
|
|
12130
12128
|
};
|
|
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(
|
|
12129
|
+
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_721(), csegen_745(), $2e, $2f), Commands_PullRequest_combined(prs))))), $3a, $1d, $1e);
|
|
12132
12130
|
};
|
|
12133
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
12131
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_420()(), FFI_GitHub_getSelf($1), $11, $12), $1c, $d, $e);
|
|
12134
12132
|
};
|
|
12135
12133
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_listPartitionedPRs($0, $1, 4n, Commands_User_Reflect_prCount()), $c, $2, $3);
|
|
12136
12134
|
}
|
|
12137
12135
|
|
|
12138
12136
|
/* Commands.User.Me.printInfoOnSelf : Config => Octokit => Promise' () */
|
|
12139
12137
|
function Commands_User_Me_printInfoOnSelf($0, $1, $2, $3) {
|
|
12140
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29($a =>
|
|
12138
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29($a => Commands_User_Me_n__7924_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_707(), $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);
|
|
12141
12139
|
}
|
|
12142
12140
|
|
|
12143
12141
|
/* Commands.User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Config =>
|
|
@@ -12148,7 +12146,7 @@ function Commands_User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
|
12148
12146
|
|
|
12149
12147
|
/* Commands.User.Me.print : Config -> Maybe String -> User -> List String -> Doc AnsiStyle */
|
|
12150
12148
|
function Commands_User_Me_print($0, $1, $2, $3) {
|
|
12151
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
12149
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7774_2044_email($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7774_2045_fullName($3, $2, $1, $0), a2: {a1: Commands_User_Me_n__7774_2047_login($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7774_2048_teams($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}}}}});
|
|
12152
12150
|
}
|
|
12153
12151
|
|
|
12154
12152
|
/* Commands.User.Reflect.prCount : Fin 101 */
|
|
@@ -12168,7 +12166,7 @@ const Commands_User_Reflect_intro = __lazy(function () {
|
|
|
12168
12166
|
|
|
12169
12167
|
/* Commands.User.Reflect.header : Nat -> Doc AnsiStyle */
|
|
12170
12168
|
function Commands_User_Reflect_header($0) {
|
|
12171
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1:
|
|
12169
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Commands_User_Reflect_n__6829_1075_ital($0, Commands_User_Reflect_leftTitle()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' '), a2: {a1: Commands_User_Reflect_n__6829_1075_ital($0, Commands_User_Reflect_rightTitle()), a2: {h: 0}}}}));
|
|
12172
12170
|
}
|
|
12173
12171
|
|
|
12174
12172
|
/* Commands.User.Reflect.graph : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Doc AnsiStyle */
|
|
@@ -12186,35 +12184,35 @@ function Commands_User_Reflect_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
|
12186
12184
|
|
|
12187
12185
|
/* Commands.User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
12188
12186
|
function Commands_User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
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(
|
|
12187
|
+
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_758(), $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_758(), $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}}}}}}}}}});
|
|
12190
12188
|
}
|
|
12191
12189
|
|
|
12192
12190
|
/* Commands.User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Nat -> Doc AnsiStyle */
|
|
12193
12191
|
function Commands_User_Reflect_chart($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
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,
|
|
12192
|
+
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_748(), csegen_768(), 4, $1, '\u{b7}'), Commands_User_replicatex27($6, csegen_769(), csegen_769(), 7, $3, '\u{25e6}')), Commands_User_replicatex27($6, csegen_770(), csegen_770(), 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_770(), csegen_770(), 5, $5, '>'), Commands_User_replicatex27($6, csegen_748(), csegen_768(), 4, $4, '\u{b7}')))));
|
|
12195
12193
|
}
|
|
12196
12194
|
|
|
12197
|
-
/* Theme.
|
|
12198
|
-
function
|
|
12195
|
+
/* Theme.4535:1352:maybeAnnotate */
|
|
12196
|
+
function Theme_n__4535_1352_maybeAnnotate($0, $1, $2, $3, $4) {
|
|
12199
12197
|
return Prelude_Types_maybe(() => $7 => $7, () => $9 => $a => Text_PrettyPrint_Prettyprinter_Doc_annotate($3($9), $a), $4);
|
|
12200
12198
|
}
|
|
12201
12199
|
|
|
12202
|
-
/* Theme.
|
|
12203
|
-
function
|
|
12200
|
+
/* Theme.4535:1351:go */
|
|
12201
|
+
function Theme_n__4535_1351_go($0, $1, $2, $3, $4, $5, $6) {
|
|
12204
12202
|
switch($3) {
|
|
12205
|
-
case 1: return $8 =>
|
|
12206
|
-
case 0: return $f =>
|
|
12203
|
+
case 1: return $8 => Theme_n__4535_1350_colorsAnn($0, $1, $2, $4, $8);
|
|
12204
|
+
case 0: return $f => Theme_n__4535_1350_colorsAnn($0, $1, $2, $5, $f);
|
|
12207
12205
|
}
|
|
12208
12206
|
}
|
|
12209
12207
|
|
|
12210
|
-
/* Theme.
|
|
12211
|
-
function
|
|
12212
|
-
return
|
|
12208
|
+
/* Theme.4535:1350:colorsAnn */
|
|
12209
|
+
function Theme_n__4535_1350_colorsAnn($0, $1, $2, $3, $4) {
|
|
12210
|
+
return Theme_n__4535_1352_maybeAnnotate($0, $1, $2, $c => Text_PrettyPrint_Prettyprinter_Render_Terminal_color($c), $3.a1)(Theme_n__4535_1352_maybeAnnotate($0, $1, $2, $17 => Text_PrettyPrint_Prettyprinter_Render_Terminal_bgColor($17), $3.a2)($4));
|
|
12213
12211
|
}
|
|
12214
12212
|
|
|
12215
12213
|
/* Theme.theme : Config => SemanticColor d l -> Doc AnsiStyle -> Doc AnsiStyle */
|
|
12216
12214
|
function Theme_theme($0, $1, $2, $3) {
|
|
12217
|
-
return
|
|
12215
|
+
return Theme_n__4535_1351_go($1, $2, $0.a18, $0.a18, $1, $2, $3);
|
|
12218
12216
|
}
|
|
12219
12217
|
|
|
12220
12218
|
/* Theme.cs : (colors : List Color) -> Either (length colors = 1) (length colors = 2) =>
|
|
@@ -12273,106 +12271,141 @@ function Commands_PullRequest_with__listOpenPRs_1391($0, $1, $2, $3, $4) {
|
|
|
12273
12271
|
}
|
|
12274
12272
|
|
|
12275
12273
|
/* Commands.PullRequest.case block in githubInferredBranchInfo */
|
|
12276
|
-
function
|
|
12274
|
+
function Commands_PullRequest_case__githubInferredBranchInfo_3775($0, $1, $2, $3, $4, $5) {
|
|
12277
12275
|
return $6 => {
|
|
12278
12276
|
switch($4.h) {
|
|
12279
12277
|
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 =>
|
|
12278
|
+
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__11906_3543_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__11906_3546_relatedToPrefix($0, $1, $2, $3, $4.a1)))}, a3: {a1: (Commands_PullRequest_n__11906_3547_titlePrefix($0, $1, $2, $3)+issue.a2)}}, $27, $28), $17, $18), $5, $6);
|
|
12281
12279
|
}
|
|
12282
12280
|
};
|
|
12283
12281
|
}
|
|
12284
12282
|
|
|
12285
|
-
/* Commands.PullRequest.
|
|
12286
|
-
function
|
|
12283
|
+
/* Commands.PullRequest.10277:1999:userNotice */
|
|
12284
|
+
function Commands_PullRequest_n__10277_1999_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
12287
12285
|
switch($6.h) {
|
|
12288
12286
|
case 0: /* nothing */ {
|
|
12289
12287
|
switch($2.h) {
|
|
12290
12288
|
case 0: /* nil */ return 'no users';
|
|
12291
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1:
|
|
12289
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1: Commands_PullRequest_n__10277_1994_csv($0, $1, $2, $3, $4, $5, $2), a2: {h: 0}});
|
|
12292
12290
|
}
|
|
12293
12291
|
}
|
|
12294
|
-
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1f => $1f, {a1:
|
|
12292
|
+
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1f => $1f, {a1: Commands_PullRequest_n__10277_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: $2}), a2: {h: 0}});
|
|
12293
|
+
}
|
|
12294
|
+
}
|
|
12295
|
+
|
|
12296
|
+
/* Commands.PullRequest.11906:3547:titlePrefix */
|
|
12297
|
+
function Commands_PullRequest_n__11906_3547_titlePrefix($0, $1, $2, $3) {
|
|
12298
|
+
switch(Util_Github_isBugfixBranch($2)) {
|
|
12299
|
+
case 1: return Prelude_Types_maybe(() => '', () => $a => ($a+' '), $3.a10);
|
|
12300
|
+
case 0: return '';
|
|
12295
12301
|
}
|
|
12296
12302
|
}
|
|
12297
12303
|
|
|
12298
|
-
/* Commands.PullRequest.
|
|
12299
|
-
function
|
|
12304
|
+
/* Commands.PullRequest.11435:3083:terminus */
|
|
12305
|
+
function Commands_PullRequest_n__11435_3083_terminus($0, $1, $2, $3) {
|
|
12300
12306
|
return '\u{2a00}';
|
|
12301
12307
|
}
|
|
12302
12308
|
|
|
12303
|
-
/* Commands.PullRequest.
|
|
12304
|
-
function
|
|
12309
|
+
/* Commands.PullRequest.10277:1998:teamNotice */
|
|
12310
|
+
function Commands_PullRequest_n__10277_1998_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
12305
12311
|
switch($6.h) {
|
|
12306
12312
|
case 0: /* nil */ return '';
|
|
12307
12313
|
case undefined: /* cons */ {
|
|
12308
12314
|
switch($6.a2.h) {
|
|
12309
|
-
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1: ' and team ', a2: {a1:
|
|
12310
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $23 => $23, {a1: ' and teams ', a2: {a1:
|
|
12315
|
+
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1: ' and team ', a2: {a1: Commands_PullRequest_n__10277_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: {h: 0}}), a2: {h: 0}}});
|
|
12316
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $23 => $23, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10277_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
12311
12317
|
}
|
|
12312
12318
|
}
|
|
12313
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $36 => $36, {a1: ' and teams ', a2: {a1:
|
|
12319
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $36 => $36, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10277_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
12314
12320
|
}
|
|
12315
12321
|
}
|
|
12316
12322
|
|
|
12317
|
-
/* Commands.PullRequest.
|
|
12318
|
-
function
|
|
12319
|
-
|
|
12320
|
-
|
|
12321
|
-
|
|
12322
|
-
|
|
12323
|
-
|
|
12324
|
-
|
|
12323
|
+
/* Commands.PullRequest.11513:3151:shellIndent */
|
|
12324
|
+
function Commands_PullRequest_n__11513_3151_shellIndent($0, $1, $2, $3) {
|
|
12325
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32((($2*4n)+1n))), $3);
|
|
12326
|
+
}
|
|
12327
|
+
|
|
12328
|
+
/* Commands.PullRequest.11513:3150:renderNode */
|
|
12329
|
+
function Commands_PullRequest_n__11513_3150_renderNode($0, $1, $2, $3) {
|
|
12330
|
+
switch($3.h) {
|
|
12331
|
+
case 0: /* Branch */ {
|
|
12332
|
+
const $6 = Prelude_Types_maybe(() => '', () => t => ('\n'+Commands_PullRequest_n__11513_3149_mdIndent($0, $1, $2.a1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $16 => $16, {a1: '**', a2: {a1: t, a2: {a1: '**', a2: {h: 0}}}}))), $3.a3);
|
|
12333
|
+
const $1f = str => ({a1: ($2.a1+1n), a2: ($2.a2+(str+'\n'))});
|
|
12334
|
+
let $29;
|
|
12335
|
+
switch($0) {
|
|
12336
|
+
case 0: {
|
|
12337
|
+
$29 = Commands_PullRequest_n__11513_3149_mdIndent($0, $1, $2.a1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $35 => $35, {a1: $3.a1, a2: {a1: ' `', a2: {a1: $3.a2, a2: {a1: '`', a2: {a1: $6, a2: {h: 0}}}}}}));
|
|
12338
|
+
break;
|
|
12339
|
+
}
|
|
12340
|
+
case 1: {
|
|
12341
|
+
$29 = Util_renderString($1, Commands_PullRequest_n__11513_3151_shellIndent($0, $1, $2.a1, Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a1), Theme_n__4535_1351_go(csegen_772(), csegen_772(), 0, 0, csegen_772(), csegen_772(), 9)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Maybe_fromMaybe(() => $3.a2, $3.a3))))));
|
|
12342
|
+
break;
|
|
12325
12343
|
}
|
|
12326
12344
|
}
|
|
12327
|
-
|
|
12345
|
+
return $1f($29);
|
|
12328
12346
|
}
|
|
12329
|
-
|
|
12330
|
-
|
|
12347
|
+
case 1: /* PR */ {
|
|
12348
|
+
const $61 = str => ({a1: ($2.a1+1n), a2: ($2.a2+(str+'\n'))});
|
|
12349
|
+
const $6a = Data_PullRequest_webURIx27($1.a2, $1.a3, $3.a2);
|
|
12350
|
+
let $72;
|
|
12351
|
+
switch($0) {
|
|
12352
|
+
case 0: {
|
|
12353
|
+
$72 = (Commands_PullRequest_n__11513_3149_mdIndent($0, $1, $2.a1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $7f => $7f, {a1: $3.a1, a2: {a1: ' `', a2: {a1: $3.a2.a8, a2: {a1: '` (', a2: {a1: $6a, a2: {a1: ')', a2: {h: 0}}}}}}}))+('\n'+Commands_PullRequest_n__11513_3149_mdIndent($0, $1, $2.a1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9b => $9b, {a1: '**', a2: {a1: $3.a2.a2, a2: {a1: '**', a2: {h: 0}}}}))));
|
|
12354
|
+
break;
|
|
12355
|
+
}
|
|
12356
|
+
case 1: {
|
|
12357
|
+
$72 = Util_renderString($1, Commands_PullRequest_n__11513_3151_shellIndent($0, $1, $2.a1, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a1), Theme_n__4535_1351_go(csegen_748(), csegen_749(), 0, 0, csegen_748(), csegen_749(), 8)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a2.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($6a)))), a2: {h: 0}}})));
|
|
12358
|
+
break;
|
|
12359
|
+
}
|
|
12360
|
+
}
|
|
12361
|
+
return $61($72);
|
|
12362
|
+
}
|
|
12363
|
+
}
|
|
12331
12364
|
}
|
|
12332
12365
|
|
|
12333
|
-
/* Commands.PullRequest.
|
|
12334
|
-
function
|
|
12366
|
+
/* Commands.PullRequest.11906:3546:relatedToPrefix */
|
|
12367
|
+
function Commands_PullRequest_n__11906_3546_relatedToPrefix($0, $1, $2, $3, $4) {
|
|
12335
12368
|
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $a => $a, {a1: 'Related to #', a2: {a1: $4, a2: {h: 0}}});
|
|
12336
12369
|
}
|
|
12337
12370
|
|
|
12338
|
-
/* Commands.PullRequest.
|
|
12339
|
-
function
|
|
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 =>
|
|
12371
|
+
/* Commands.PullRequest.12411:4029:prTitlePrompt */
|
|
12372
|
+
function Commands_PullRequest_n__12411_4029_prTitlePrompt($0, $1, $2, $3, $4, $5) {
|
|
12373
|
+
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__12411_4028_notEmptyString($0, $1, $2, $3, $4, $1f), Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What would you like the title to be?', $5), $1b, $1c));
|
|
12341
12374
|
}
|
|
12342
12375
|
|
|
12343
|
-
/* Commands.PullRequest.
|
|
12344
|
-
function
|
|
12376
|
+
/* Commands.PullRequest.10277:1997:prComment */
|
|
12377
|
+
function Commands_PullRequest_n__10277_1997_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
12345
12378
|
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}}}});
|
|
12346
12379
|
}
|
|
12347
12380
|
|
|
12348
|
-
/* Commands.PullRequest.
|
|
12349
|
-
function
|
|
12381
|
+
/* Commands.PullRequest.12411:4028:notEmptyString */
|
|
12382
|
+
function Commands_PullRequest_n__12411_4028_notEmptyString($0, $1, $2, $3, $4, $5) {
|
|
12350
12383
|
switch($5) {
|
|
12351
12384
|
case '': return {h: 0};
|
|
12352
12385
|
default: return {a1: $5};
|
|
12353
12386
|
}
|
|
12354
12387
|
}
|
|
12355
12388
|
|
|
12356
|
-
/* Commands.PullRequest.
|
|
12357
|
-
function
|
|
12358
|
-
return
|
|
12389
|
+
/* Commands.PullRequest.10277:1996:namePrComment */
|
|
12390
|
+
function Commands_PullRequest_n__10277_1996_namePrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
12391
|
+
return Commands_PullRequest_n__10277_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $14 => $14, {a1: $6.a2, a2: {h: 0}}));
|
|
12359
12392
|
}
|
|
12360
12393
|
|
|
12361
|
-
/* Commands.PullRequest.
|
|
12362
|
-
function
|
|
12363
|
-
return
|
|
12394
|
+
/* Commands.PullRequest.10277:1995:mentionPrComment */
|
|
12395
|
+
function Commands_PullRequest_n__10277_1995_mentionPrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
12396
|
+
return Commands_PullRequest_n__10277_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $14 => $14, {a1: '@', a2: {a1: $6, a2: {h: 0}}}));
|
|
12364
12397
|
}
|
|
12365
12398
|
|
|
12366
|
-
/* Commands.PullRequest.
|
|
12367
|
-
function
|
|
12368
|
-
return ((Data_String_replicate(($
|
|
12399
|
+
/* Commands.PullRequest.11513:3149:mdIndent */
|
|
12400
|
+
function Commands_PullRequest_n__11513_3149_mdIndent($0, $1, $2, $3) {
|
|
12401
|
+
return ((Data_String_replicate(($2+1n), '>')+' ')+$3);
|
|
12369
12402
|
}
|
|
12370
12403
|
|
|
12371
|
-
/* Commands.PullRequest.
|
|
12372
|
-
function
|
|
12404
|
+
/* Commands.PullRequest.11906:3545:maybePrTree */
|
|
12405
|
+
function Commands_PullRequest_n__11906_3545_maybePrTree($0, $1, $2, $3, $4, $5) {
|
|
12373
12406
|
return $6 => {
|
|
12374
12407
|
let $7;
|
|
12375
|
-
switch($3.
|
|
12408
|
+
switch($3.a11) {
|
|
12376
12409
|
case 1: {
|
|
12377
12410
|
$7 = Prelude_EqOrd_x2fx3d_Eq_String($1, $3.a5);
|
|
12378
12411
|
break;
|
|
@@ -12385,8 +12418,9 @@ function Commands_PullRequest_n__11942_3600_maybePrTree($0, $1, $2, $3, $4, $5)
|
|
|
12385
12418
|
switch($7) {
|
|
12386
12419
|
case 1: {
|
|
12387
12420
|
const $17 = $18 => {
|
|
12388
|
-
const $1a =
|
|
12389
|
-
|
|
12421
|
+
const $1a = Commands_PullRequest_prTree({a1: $2}, {a1: $4.a2}, $18.a1, $18.a2);
|
|
12422
|
+
const $23 = Commands_PullRequest_renderPrTree($3, 0, $1a);
|
|
12423
|
+
return $28 => $29 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $31 => $31, {a1: '## PR Tree\n', a2: {a1: $23, a2: {h: 0}}}), $28, $29);
|
|
12390
12424
|
};
|
|
12391
12425
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_prChain($3, $0, Data_Fuel_limit(10n), $1), $17, $5, $6);
|
|
12392
12426
|
}
|
|
@@ -12395,79 +12429,57 @@ function Commands_PullRequest_n__11942_3600_maybePrTree($0, $1, $2, $3, $4, $5)
|
|
|
12395
12429
|
};
|
|
12396
12430
|
}
|
|
12397
12431
|
|
|
12398
|
-
/* Commands.PullRequest.
|
|
12399
|
-
function
|
|
12432
|
+
/* Commands.PullRequest.11906:3544:issueNumber */
|
|
12433
|
+
function Commands_PullRequest_n__11906_3544_issueNumber($0, $1, $2, $3) {
|
|
12400
12434
|
return Util_Github_parseGithubIssueNumber($2);
|
|
12401
12435
|
}
|
|
12402
12436
|
|
|
12403
|
-
/* Commands.PullRequest.
|
|
12404
|
-
function
|
|
12405
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 =>
|
|
12437
|
+
/* Commands.PullRequest.11906:3543:issueDescriptionPrefix */
|
|
12438
|
+
function Commands_PullRequest_n__11906_3543_issueDescriptionPrefix($0, $1, $2, $3, $4, $5, $6) {
|
|
12439
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => Commands_PullRequest_n__11906_3545_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);
|
|
12406
12440
|
}
|
|
12407
12441
|
|
|
12408
|
-
/* Commands.PullRequest.
|
|
12409
|
-
function
|
|
12442
|
+
/* Commands.PullRequest.12304:3915:into */
|
|
12443
|
+
function Commands_PullRequest_n__12304_3915_into($0, $1, $2, $3) {
|
|
12410
12444
|
switch($0.h) {
|
|
12411
12445
|
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $a => $a, {a1: $0.a1, a2: {a1: '...', a2: {h: 0}}});
|
|
12412
12446
|
case 0: /* nothing */ return '';
|
|
12413
12447
|
}
|
|
12414
12448
|
}
|
|
12415
12449
|
|
|
12416
|
-
/* Commands.PullRequest.
|
|
12417
|
-
function
|
|
12450
|
+
/* Commands.PullRequest.12411:4027:inlineDescriptionPrompt */
|
|
12451
|
+
function Commands_PullRequest_n__12411_4027_inlineDescriptionPrompt($0, $1, $2, $3, $4) {
|
|
12418
12452
|
return 'What would you like the description to be (two blank lines to finish)?';
|
|
12419
12453
|
}
|
|
12420
12454
|
|
|
12421
|
-
/* Commands.PullRequest.
|
|
12422
|
-
function
|
|
12423
|
-
|
|
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) {
|
|
12455
|
+
/* Commands.PullRequest.11435:3082:go */
|
|
12456
|
+
function Commands_PullRequest_n__11435_3082_go($0, $1, $2, $3, $4) {
|
|
12457
|
+
switch($4.h) {
|
|
12429
12458
|
case 0: /* nil */ {
|
|
12430
|
-
switch($
|
|
12431
|
-
case undefined: /* just */ return
|
|
12432
|
-
case 0: /* nothing */ return
|
|
12459
|
+
switch($3.h) {
|
|
12460
|
+
case undefined: /* just */ return {a1: {h: 0 /* Branch */, a1: Commands_PullRequest_n__11435_3081_arrow($0, $1, $2, $3), a2: $3.a1, a3: $2}, a2: {h: 0}};
|
|
12461
|
+
case 0: /* nothing */ return {h: 0};
|
|
12433
12462
|
}
|
|
12434
12463
|
}
|
|
12435
|
-
case undefined: /* cons */ return (
|
|
12464
|
+
case undefined: /* cons */ return {a1: {h: 1 /* PR */, a1: Commands_PullRequest_n__11435_3081_arrow($0, $1, $2, $3), a2: $4.a1}, a2: Commands_PullRequest_n__11435_3082_go($0, $1, $2, $3, $4.a2)};
|
|
12436
12465
|
}
|
|
12437
12466
|
}
|
|
12438
12467
|
|
|
12439
|
-
/* Commands.PullRequest.
|
|
12440
|
-
function
|
|
12468
|
+
/* Commands.PullRequest.12411:4026:getBaseBranch */
|
|
12469
|
+
function Commands_PullRequest_n__12411_4026_getBaseBranch($0, $1, $2, $3, $4, $5, $6) {
|
|
12441
12470
|
switch($2.h) {
|
|
12442
12471
|
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);
|
|
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)),
|
|
12444
|
-
}
|
|
12445
|
-
}
|
|
12446
|
-
|
|
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}}})));
|
|
12472
|
+
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_463()(), $4f, $50), $5, $6);
|
|
12452
12473
|
}
|
|
12453
12474
|
}
|
|
12454
12475
|
|
|
12455
|
-
/* Commands.PullRequest.
|
|
12456
|
-
function
|
|
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) {
|
|
12476
|
+
/* Commands.PullRequest.10039:1725:forkedReviews */
|
|
12477
|
+
function Commands_PullRequest_n__10039_1725_forkedReviews($0, $1, $2, $3) {
|
|
12466
12478
|
return FFI_Concurrency_fork(csegen_48()(), ('reviews --json '+Prelude_Show_show_Show_Integer($3.a1)));
|
|
12467
12479
|
}
|
|
12468
12480
|
|
|
12469
|
-
/* Commands.PullRequest.
|
|
12470
|
-
function
|
|
12481
|
+
/* Commands.PullRequest.9462:1180:filterString */
|
|
12482
|
+
function Commands_PullRequest_n__9462_1180_filterString($0, $1, $2, $3, $4) {
|
|
12471
12483
|
switch($4.h) {
|
|
12472
12484
|
case 0: /* nothing */ return 'none';
|
|
12473
12485
|
case undefined: /* just */ {
|
|
@@ -12479,13 +12491,13 @@ function Commands_PullRequest_n__9410_1180_filterString($0, $1, $2, $3, $4) {
|
|
|
12479
12491
|
}
|
|
12480
12492
|
}
|
|
12481
12493
|
|
|
12482
|
-
/* Commands.PullRequest.
|
|
12483
|
-
function
|
|
12494
|
+
/* Commands.PullRequest.10277:1994:csv */
|
|
12495
|
+
function Commands_PullRequest_n__10277_1994_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
12484
12496
|
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)));
|
|
12485
12497
|
}
|
|
12486
12498
|
|
|
12487
|
-
/* Commands.PullRequest.
|
|
12488
|
-
function
|
|
12499
|
+
/* Commands.PullRequest.12411:4025:createPR */
|
|
12500
|
+
function Commands_PullRequest_n__12411_4025_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
12489
12501
|
const $38 = $39 => $3a => $3b => {
|
|
12490
12502
|
const $48 = $49 => $4a => $4b => {
|
|
12491
12503
|
switch($49) {
|
|
@@ -12515,11 +12527,11 @@ function Commands_PullRequest_n__12407_4042_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
12515
12527
|
let $133;
|
|
12516
12528
|
switch($134.h) {
|
|
12517
12529
|
case 0: /* nothing */ {
|
|
12518
|
-
$133 = Util_Prompting_inlineDescription(csegen_48()(),
|
|
12530
|
+
$133 = Util_Prompting_inlineDescription(csegen_48()(), Commands_PullRequest_n__12411_4027_inlineDescriptionPrompt($0, $1, $2, $3, $4), $109);
|
|
12519
12531
|
break;
|
|
12520
12532
|
}
|
|
12521
12533
|
case undefined: /* just */ {
|
|
12522
|
-
$133 = $143 => $144 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
12534
|
+
$133 = $143 => $144 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_797(), Util_Prompting_editorDescription(csegen_48()(), $134.a1, {a1: templateFilePath}, $109), $143, $144);
|
|
12523
12535
|
break;
|
|
12524
12536
|
}
|
|
12525
12537
|
}
|
|
@@ -12527,12 +12539,12 @@ function Commands_PullRequest_n__12407_4042_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
12527
12539
|
};
|
|
12528
12540
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($129 => $12a => Util_relativeToRoot('.github/PULL_REQUEST_TEMPLATE.md', $129, $12a), $12f, $125, $126);
|
|
12529
12541
|
};
|
|
12530
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($112 => $113 => Data_Promise_map_Functor_x28Promisex20x24ex29($116 => ($104+$116),
|
|
12542
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($112 => $113 => Data_Promise_map_Functor_x28Promisex20x24ex29($116 => ($104+$116), Commands_PullRequest_n__12411_4029_prTitlePrompt($0, $1, $2, $3, $4, inferredBranchInfo.a3), $112, $113), $124, $10e, $10f);
|
|
12531
12543
|
};
|
|
12532
12544
|
};
|
|
12533
12545
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_getInferredBranchInfo($4, $0, $1, baseBranch), $103, $fa, $fb);
|
|
12534
12546
|
};
|
|
12535
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ef => $f0 =>
|
|
12547
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ef => $f0 => Commands_PullRequest_n__12411_4026_getBaseBranch($0, $1, $2, $3, $4, $ef, $f0), $f9, $eb, $ec);
|
|
12536
12548
|
};
|
|
12537
12549
|
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);
|
|
12538
12550
|
};
|
|
@@ -12541,51 +12553,51 @@ function Commands_PullRequest_n__12407_4042_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
12541
12553
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $5b, $5c);
|
|
12542
12554
|
}
|
|
12543
12555
|
};
|
|
12544
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4f => $50 =>
|
|
12556
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4f => $50 => Commands_PullRequest_n__12411_4023_continueGivenStagedChanges($0, $1, $2, $3, $4, $4f, $50), $59, $4a, $4b);
|
|
12545
12557
|
}
|
|
12546
12558
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $4a, $4b);
|
|
12547
12559
|
}
|
|
12548
12560
|
};
|
|
12549
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f =>
|
|
12561
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f => Commands_PullRequest_n__12411_4024_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $3e, $3f), $48, $3a, $3b);
|
|
12550
12562
|
};
|
|
12551
12563
|
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);
|
|
12552
12564
|
}
|
|
12553
12565
|
|
|
12554
|
-
/* Commands.PullRequest.
|
|
12555
|
-
function
|
|
12566
|
+
/* Commands.PullRequest.12411:4024:continueGivenUncommittedChanges */
|
|
12567
|
+
function Commands_PullRequest_n__12411_4024_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
12556
12568
|
const $e = $f => $10 => $11 => {
|
|
12557
12569
|
switch($f.h) {
|
|
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),
|
|
12570
|
+
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_804(), $23, $24), $10, $11);
|
|
12559
12571
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $10, $11);
|
|
12560
12572
|
}
|
|
12561
12573
|
};
|
|
12562
12574
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => $a => System_Git_uncommittedChanges($9, $a), $e, $5, $6);
|
|
12563
12575
|
}
|
|
12564
12576
|
|
|
12565
|
-
/* Commands.PullRequest.
|
|
12566
|
-
function
|
|
12577
|
+
/* Commands.PullRequest.12411:4023:continueGivenStagedChanges */
|
|
12578
|
+
function Commands_PullRequest_n__12411_4023_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
12567
12579
|
const $e = $f => $10 => $11 => {
|
|
12568
12580
|
switch($f.h) {
|
|
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),
|
|
12581
|
+
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_804(), $23, $24), $10, $11);
|
|
12570
12582
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $10, $11);
|
|
12571
12583
|
}
|
|
12572
12584
|
};
|
|
12573
12585
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => $a => System_Git_stagedChanges($9, $a), $e, $5, $6);
|
|
12574
12586
|
}
|
|
12575
12587
|
|
|
12576
|
-
/* Commands.PullRequest.
|
|
12577
|
-
function
|
|
12588
|
+
/* Commands.PullRequest.11435:3081:arrow */
|
|
12589
|
+
function Commands_PullRequest_n__11435_3081_arrow($0, $1, $2, $3) {
|
|
12578
12590
|
return '\u{2196}';
|
|
12579
12591
|
}
|
|
12580
12592
|
|
|
12581
12593
|
/* Commands.PullRequest.(.allReviewers) : PRHistory -> (List String, List String) */
|
|
12582
12594
|
function Commands_PullRequest_rf__allReviewers($0) {
|
|
12583
|
-
return Prelude_Interfaces_mapHom(
|
|
12595
|
+
return Prelude_Interfaces_mapHom(csegen_672(), $6 => Prelude_Types_join_Monad_List(Prelude_Types_List_mapAppend({h: 0}, $c => $c.a7, $6)))($0);
|
|
12584
12596
|
}
|
|
12585
12597
|
|
|
12586
12598
|
/* Commands.PullRequest.reviewsForPrs : Config => Octokit => List PullRequest -> Promise' (List Review) */
|
|
12587
12599
|
function Commands_PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
|
|
12588
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_41()(),
|
|
12600
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_41()(), csegen_709(), Prelude_Types_traverse_Traversable_List(csegen_40()(), $13 => Commands_PullRequest_n__10039_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);
|
|
12589
12601
|
}
|
|
12590
12602
|
|
|
12591
12603
|
/* Commands.PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise' (List Review) */
|
|
@@ -12615,9 +12627,9 @@ function Commands_PullRequest_reviewsByUser($0, $1, $2, $3) {
|
|
|
12615
12627
|
List PullRequest -> Promise' (SortedMap String (List Review)) */
|
|
12616
12628
|
function Commands_PullRequest_reviewsByEachUser($0, $1, $2, $3, $4) {
|
|
12617
12629
|
const $f = reviews => {
|
|
12618
|
-
const $10 = Data_List_groupAllWith(
|
|
12630
|
+
const $10 = Data_List_groupAllWith(csegen_376(), $15 => $15.a2, reviews);
|
|
12619
12631
|
const $18 = Prelude_Types_List_mapAppend({h: 0}, rs => ({a1: rs.a1.a2, a2: rs}), $10);
|
|
12620
|
-
return $21 => $22 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Data_SortedMap_fromList(
|
|
12632
|
+
return $21 => $22 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Data_SortedMap_fromList(csegen_376(), $18), $21, $22);
|
|
12621
12633
|
};
|
|
12622
12634
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Commands_PullRequest_reviewsForPrs($0, $1, $2, $7, $8), $f, $3, $4);
|
|
12623
12635
|
}
|
|
@@ -12631,12 +12643,12 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12631
12643
|
let $38;
|
|
12632
12644
|
switch($0.a7) {
|
|
12633
12645
|
case 1: {
|
|
12634
|
-
const $3b = Commands_Reviewer_chooseReviewers(
|
|
12646
|
+
const $3b = Commands_Reviewer_chooseReviewers(csegen_376(), $14.a2, $14.a1, teamMembers, {h: 0}, $2.a5);
|
|
12635
12647
|
$38 = Commands_Reviewer_randomReviewer(csegen_48()(), $3b);
|
|
12636
12648
|
break;
|
|
12637
12649
|
}
|
|
12638
12650
|
case 0: {
|
|
12639
|
-
$38 =
|
|
12651
|
+
$38 = csegen_467()();
|
|
12640
12652
|
break;
|
|
12641
12653
|
}
|
|
12642
12654
|
}
|
|
@@ -12672,8 +12684,8 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12672
12684
|
return $7f => {
|
|
12673
12685
|
switch($0.a8) {
|
|
12674
12686
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $7d, $7f);
|
|
12675
|
-
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
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,
|
|
12687
|
+
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, Commands_PullRequest_n__10277_1995_mentionPrComment($1, $5, $4, $3, $2, $0, chosenUser.a1), $7d, $7f);
|
|
12688
|
+
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__10277_1996_namePrComment($1, $5, $4, $3, $2, $0, user), $9f, $a0), $7d, $7f);
|
|
12677
12689
|
}
|
|
12678
12690
|
};
|
|
12679
12691
|
}
|
|
@@ -12697,11 +12709,11 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12697
12709
|
let $bf;
|
|
12698
12710
|
switch($c0) {
|
|
12699
12711
|
case 1: {
|
|
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:
|
|
12712
|
+
$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__10277_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);
|
|
12701
12713
|
break;
|
|
12702
12714
|
}
|
|
12703
12715
|
case 0: {
|
|
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:
|
|
12716
|
+
$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__10277_1999_userNotice($1, $5, $4, $3, $2, $0, chosenUser), a2: {a1: Commands_PullRequest_n__10277_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);
|
|
12705
12717
|
break;
|
|
12706
12718
|
}
|
|
12707
12719
|
}
|
|
@@ -12717,14 +12729,19 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12717
12729
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => Commands_PullRequest_listReviewers($0, $1, 4n, 100n, $a, $b), $13, $6, $7);
|
|
12718
12730
|
}
|
|
12719
12731
|
|
|
12720
|
-
/* Commands.PullRequest.renderPrTree :
|
|
12721
|
-
function Commands_PullRequest_renderPrTree($0, $1, $2
|
|
12722
|
-
return (
|
|
12732
|
+
/* Commands.PullRequest.renderPrTree : Config => RenderFormat -> List PrTreeNode -> String */
|
|
12733
|
+
function Commands_PullRequest_renderPrTree($0, $1, $2) {
|
|
12734
|
+
return Builtin_snd(Prelude_Types_foldl_Foldable_List($7 => $8 => Commands_PullRequest_n__11513_3150_renderNode($1, $0, $7, $8), {a1: 0n, a2: ''}, $2));
|
|
12735
|
+
}
|
|
12736
|
+
|
|
12737
|
+
/* Commands.PullRequest.prTree : Maybe String -> Maybe String -> List PullRequest -> String -> List PrTreeNode */
|
|
12738
|
+
function Commands_PullRequest_prTree($0, $1, $2, $3) {
|
|
12739
|
+
return {a1: {h: 0 /* Branch */, a1: Commands_PullRequest_n__11435_3083_terminus($3, $2, $1, $0), a2: $3, a3: {h: 0}}, a2: Commands_PullRequest_n__11435_3082_go($3, $2, $1, $0, Prelude_Types_List_reverse($2))};
|
|
12723
12740
|
}
|
|
12724
12741
|
|
|
12725
12742
|
/* Commands.PullRequest.prCreationUrl : String -> String -> String -> Maybe String -> String */
|
|
12726
12743
|
function Commands_PullRequest_prCreationUrl($0, $1, $2, $3) {
|
|
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:
|
|
12744
|
+
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__12304_3915_into($3, $2, $1, $0), a2: {a1: $2, a2: {a1: '?expand=1', a2: {h: 0}}}}}}}}});
|
|
12728
12745
|
}
|
|
12729
12746
|
|
|
12730
12747
|
/* Commands.PullRequest.prChain : Config => Octokit => Fuel -> String -> Promise' (List PullRequest, String) */
|
|
@@ -12806,7 +12823,7 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
12806
12823
|
return $20 => {
|
|
12807
12824
|
const $29 = $2a => $2b => $2c => {
|
|
12808
12825
|
switch($2a) {
|
|
12809
|
-
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($30 => ({h: 0 /* Actual */, a1: 1, a2: $30}), $34 => $35 =>
|
|
12826
|
+
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($30 => ({h: 0 /* Actual */, a1: 1, a2: $30}), $34 => $35 => Commands_PullRequest_n__12411_4025_createPR($1, $4, $3, $2, $0, $34, $35), $2b, $2c);
|
|
12810
12827
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1: Commands_PullRequest_prCreationUrl($0.a2, $0.a3, $4, $3)}, $2b, $2c);
|
|
12811
12828
|
}
|
|
12812
12829
|
};
|
|
@@ -12821,7 +12838,7 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
12821
12838
|
|
|
12822
12839
|
/* Commands.PullRequest.githubInferredBranchInfo : Config => Octokit => String -> String -> Promise' BranchInferredData */
|
|
12823
12840
|
function Commands_PullRequest_githubInferredBranchInfo($0, $1, $2, $3) {
|
|
12824
|
-
return $4 =>
|
|
12841
|
+
return $4 => Commands_PullRequest_case__githubInferredBranchInfo_3775($1, $3, $2, $0, Commands_PullRequest_n__11906_3544_issueNumber($1, $3, $2, $0), $4);
|
|
12825
12842
|
}
|
|
12826
12843
|
|
|
12827
12844
|
/* Commands.PullRequest.getInferredBranchInfo : Config => Octokit => String -> String -> Promise' BranchInferredData */
|
|
@@ -12835,7 +12852,7 @@ function Commands_PullRequest_getInferredBranchInfo($0, $1, $2, $3) {
|
|
|
12835
12852
|
|
|
12836
12853
|
/* Commands.PullRequest.forkedPRs : Maybe GitHubPRState -> Nat -> Nat -> Nat -> () -> Promise' Future */
|
|
12837
12854
|
function Commands_PullRequest_forkedPRs($0, $1, $2, $3, $4) {
|
|
12838
|
-
return FFI_Concurrency_fork(csegen_48()(), Prelude_Types_foldMap_Foldable_List(csegen_86()(), $f => $f, {a1: 'pulls --json ', a2: {a1:
|
|
12855
|
+
return FFI_Concurrency_fork(csegen_48()(), Prelude_Types_foldMap_Foldable_List(csegen_86()(), $f => $f, {a1: 'pulls --json ', a2: {a1: Commands_PullRequest_n__9462_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}}}}}}}));
|
|
12839
12856
|
}
|
|
12840
12857
|
|
|
12841
12858
|
/* Commands.PullRequest.empty : PRHistory */
|
|
@@ -12920,21 +12937,21 @@ function Util_Jira_n__2629_818_go($0, $1) {
|
|
|
12920
12937
|
|
|
12921
12938
|
/* Util.Jira.parseJiraSlug : String -> Maybe String */
|
|
12922
12939
|
function Util_Jira_parseJiraSlug($0) {
|
|
12923
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
12940
|
+
return Prelude_Types_map_Functor_Maybe(csegen_843(), 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
12941
|
}
|
|
12925
12942
|
|
|
12926
|
-
/* Util.Github.
|
|
12927
|
-
const
|
|
12928
|
-
return {a1: {h: 1 /*
|
|
12943
|
+
/* Util.Github.3729:2547:startOver */
|
|
12944
|
+
const Util_Github_n__3729_2547_startOver = __lazy(function () {
|
|
12945
|
+
return {a1: {h: 1 /* 3729:2543:StartOver */}, a2: {h: 0}};
|
|
12929
12946
|
});
|
|
12930
12947
|
|
|
12931
|
-
/* Util.Github.
|
|
12932
|
-
function
|
|
12948
|
+
/* Util.Github.3729:2546:guardSuccess */
|
|
12949
|
+
function Util_Github_n__3729_2546_guardSuccess($0) {
|
|
12933
12950
|
switch($0.h) {
|
|
12934
12951
|
case undefined: /* cons */ {
|
|
12935
12952
|
switch($0.a1.h) {
|
|
12936
|
-
case 5: /*
|
|
12937
|
-
case 4: /*
|
|
12953
|
+
case 5: /* 3729:2539:PostSlash */ return {a1: $0.a2};
|
|
12954
|
+
case 4: /* 3729:2537:Number */ return {a1: $0.a2};
|
|
12938
12955
|
default: return {h: 0};
|
|
12939
12956
|
}
|
|
12940
12957
|
}
|
|
@@ -12942,87 +12959,92 @@ function Util_Github_n__2629_825_guardSuccess($0) {
|
|
|
12942
12959
|
}
|
|
12943
12960
|
}
|
|
12944
12961
|
|
|
12945
|
-
/* Util.Github.
|
|
12946
|
-
function
|
|
12962
|
+
/* Util.Github.3729:2545:goPrefix */
|
|
12963
|
+
function Util_Github_n__3729_2545_goPrefix($0, $1) {
|
|
12947
12964
|
switch($0.h) {
|
|
12948
12965
|
case undefined: /* cons */ {
|
|
12949
12966
|
switch($0.a1) {
|
|
12950
12967
|
case 0: {
|
|
12951
12968
|
switch($1) {
|
|
12952
|
-
case 'H': return {a1: {h: 3 /*
|
|
12953
|
-
default: return
|
|
12969
|
+
case 'H': return {a1: {h: 3 /* 3729:2541:Prefix */, a1: 1}, a2: $0.a2};
|
|
12970
|
+
default: return Util_Github_n__3729_2547_startOver();
|
|
12954
12971
|
}
|
|
12955
12972
|
}
|
|
12956
12973
|
case 1: {
|
|
12957
12974
|
switch($1) {
|
|
12958
|
-
case '-': return {a1: {h: 3 /*
|
|
12959
|
-
default: return
|
|
12975
|
+
case '-': return {a1: {h: 3 /* 3729:2541:Prefix */, a1: 2}, a2: $0.a2};
|
|
12976
|
+
default: return Util_Github_n__3729_2547_startOver();
|
|
12960
12977
|
}
|
|
12961
12978
|
}
|
|
12962
12979
|
case 2: {
|
|
12963
12980
|
switch(Prelude_Types_isDigit($1)) {
|
|
12964
|
-
case 1: return {a1: {h: 4 /*
|
|
12965
|
-
case 0: return
|
|
12981
|
+
case 1: return {a1: {h: 4 /* 3729:2537:Number */}, a2: {a1: $1, a2: $0.a2}};
|
|
12982
|
+
case 0: return Util_Github_n__3729_2547_startOver();
|
|
12966
12983
|
}
|
|
12967
12984
|
}
|
|
12968
|
-
default: return
|
|
12985
|
+
default: return Util_Github_n__3729_2547_startOver();
|
|
12969
12986
|
}
|
|
12970
12987
|
}
|
|
12971
|
-
default: return
|
|
12988
|
+
default: return Util_Github_n__3729_2547_startOver();
|
|
12972
12989
|
}
|
|
12973
12990
|
}
|
|
12974
12991
|
|
|
12975
|
-
/* Util.Github.
|
|
12976
|
-
function
|
|
12992
|
+
/* Util.Github.3729:2544:go */
|
|
12993
|
+
function Util_Github_n__3729_2544_go($0, $1) {
|
|
12977
12994
|
switch($0.a1.h) {
|
|
12978
|
-
case 0: /*
|
|
12995
|
+
case 0: /* 3729:2542:Start */ {
|
|
12979
12996
|
switch($1) {
|
|
12980
|
-
case '/': return {a1: {h: 2 /*
|
|
12981
|
-
case 'G': return {a1: {h: 3 /*
|
|
12997
|
+
case '/': return {a1: {h: 2 /* 3729:2540:PreSlash */}, a2: $0.a2};
|
|
12998
|
+
case 'G': return {a1: {h: 3 /* 3729:2541:Prefix */, a1: 0}, a2: $0.a2};
|
|
12982
12999
|
default: {
|
|
12983
13000
|
switch(Prelude_Types_isDigit($1)) {
|
|
12984
|
-
case 1: return {a1: {h: 4 /*
|
|
12985
|
-
case 0: return
|
|
13001
|
+
case 1: return {a1: {h: 4 /* 3729:2537:Number */}, a2: {a1: $1, a2: $0.a2}};
|
|
13002
|
+
case 0: return Util_Github_n__3729_2547_startOver();
|
|
12986
13003
|
}
|
|
12987
13004
|
}
|
|
12988
13005
|
}
|
|
12989
13006
|
}
|
|
12990
|
-
case 3: /*
|
|
12991
|
-
case 2: /*
|
|
13007
|
+
case 3: /* 3729:2541:Prefix */ return Util_Github_n__3729_2545_goPrefix({a1: $0.a1.a1, a2: $0.a2}, $1);
|
|
13008
|
+
case 2: /* 3729:2540:PreSlash */ {
|
|
12992
13009
|
switch($1) {
|
|
12993
|
-
case 'G': return {a1: {h: 3 /*
|
|
13010
|
+
case 'G': return {a1: {h: 3 /* 3729:2541:Prefix */, a1: 0}, a2: $0.a2};
|
|
12994
13011
|
default: {
|
|
12995
13012
|
switch(Prelude_Types_isDigit($1)) {
|
|
12996
|
-
case 1: return {a1: {h: 4 /*
|
|
12997
|
-
case 0: return
|
|
13013
|
+
case 1: return {a1: {h: 4 /* 3729:2537:Number */}, a2: {a1: $1, a2: $0.a2}};
|
|
13014
|
+
case 0: return Util_Github_n__3729_2547_startOver();
|
|
12998
13015
|
}
|
|
12999
13016
|
}
|
|
13000
13017
|
}
|
|
13001
13018
|
}
|
|
13002
|
-
case 1: /*
|
|
13019
|
+
case 1: /* 3729:2543:StartOver */ {
|
|
13003
13020
|
switch($1) {
|
|
13004
|
-
case '/': return {a1: {h: 2 /*
|
|
13005
|
-
default: return
|
|
13021
|
+
case '/': return {a1: {h: 2 /* 3729:2540:PreSlash */}, a2: $0.a2};
|
|
13022
|
+
default: return Util_Github_n__3729_2547_startOver();
|
|
13006
13023
|
}
|
|
13007
13024
|
}
|
|
13008
|
-
case 4: /*
|
|
13025
|
+
case 4: /* 3729:2537:Number */ {
|
|
13009
13026
|
switch($1) {
|
|
13010
|
-
case '/': return {a1: {h: 5 /*
|
|
13027
|
+
case '/': return {a1: {h: 5 /* 3729:2539:PostSlash */}, a2: $0.a2};
|
|
13011
13028
|
default: {
|
|
13012
13029
|
switch(Prelude_Types_isDigit($1)) {
|
|
13013
|
-
case 1: return {a1: {h: 4 /*
|
|
13014
|
-
case 0: return
|
|
13030
|
+
case 1: return {a1: {h: 4 /* 3729:2537:Number */}, a2: {a1: $1, a2: $0.a2}};
|
|
13031
|
+
case 0: return Util_Github_n__3729_2547_startOver();
|
|
13015
13032
|
}
|
|
13016
13033
|
}
|
|
13017
13034
|
}
|
|
13018
13035
|
}
|
|
13019
|
-
case 5: /*
|
|
13036
|
+
case 5: /* 3729:2539:PostSlash */ return {a1: {h: 5 /* 3729:2539:PostSlash */}, a2: $0.a2};
|
|
13020
13037
|
}
|
|
13021
13038
|
}
|
|
13022
13039
|
|
|
13023
13040
|
/* Util.Github.parseGithubIssueNumber : String -> Maybe String */
|
|
13024
13041
|
function Util_Github_parseGithubIssueNumber($0) {
|
|
13025
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
13042
|
+
return Prelude_Types_map_Functor_Maybe(csegen_843(), Util_Github_n__3729_2546_guardSuccess(Prelude_Types_foldl_Foldable_List($9 => $a => Util_Github_n__3729_2544_go($9, $a), {a1: {h: 0 /* 3729:2542:Start */}, a2: {h: 0}}, Prelude_Types_fastUnpack($0))));
|
|
13043
|
+
}
|
|
13044
|
+
|
|
13045
|
+
/* Util.Github.isBugfixBranch : String -> Bool */
|
|
13046
|
+
function Util_Github_isBugfixBranch($0) {
|
|
13047
|
+
return Data_String_isPrefixOf('bugfix', $0);
|
|
13026
13048
|
}
|
|
13027
13049
|
|
|
13028
13050
|
/* Data.Pagination.with block in metaPages' */
|
|
@@ -13291,13 +13313,13 @@ function Data_List_DeleteBy_deleteByx27($0, $1, $2) {
|
|
|
13291
13313
|
}
|
|
13292
13314
|
}
|
|
13293
13315
|
|
|
13294
|
-
/* Commands.Quick.
|
|
13295
|
-
function
|
|
13316
|
+
/* Commands.Quick.6007:5655:issuePrompt */
|
|
13317
|
+
function Commands_Quick_n__6007_5655_issuePrompt($0, $1, $2) {
|
|
13296
13318
|
return 'What would you like the issue description to be (two blank lines to finish)?';
|
|
13297
13319
|
}
|
|
13298
13320
|
|
|
13299
|
-
/* Commands.Quick.
|
|
13300
|
-
function
|
|
13321
|
+
/* Commands.Quick.6173:5820:branchPrefix */
|
|
13322
|
+
function Commands_Quick_n__6173_5820_branchPrefix($0, $1, $2, $3) {
|
|
13301
13323
|
return Data_String_toLower(Commands_Quick_show_Show_IssueCategory($2));
|
|
13302
13324
|
}
|
|
13303
13325
|
|
|
@@ -13327,10 +13349,10 @@ function Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5) {
|
|
|
13327
13349
|
}
|
|
13328
13350
|
}
|
|
13329
13351
|
const $21 = issue => {
|
|
13330
|
-
const $22 = Prelude_Types_foldMap_Foldable_List(csegen_86()(), $28 => $28, {a1:
|
|
13352
|
+
const $22 = Prelude_Types_foldMap_Foldable_List(csegen_86()(), $28 => $28, {a1: Commands_Quick_n__6173_5820_branchPrefix($1, $3, $2, $0), a2: {a1: '/', a2: {a1: Prelude_Show_show_Show_Integer(issue.a1), a2: {a1: '/', a2: {h: 0}}}}});
|
|
13331
13353
|
const $3a = Commands_Quick_branchNameSuggestion(issue.a2);
|
|
13332
13354
|
const $3e = ($22+$3a);
|
|
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)),
|
|
13355
|
+
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_463()(), $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);
|
|
13334
13356
|
};
|
|
13335
13357
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7, $21, $4, $5);
|
|
13336
13358
|
}
|
|
@@ -13347,7 +13369,7 @@ function Commands_Quick_createNewIssue($0, $1, $2, $3, $4) {
|
|
|
13347
13369
|
const $20 = $21 => $22 => {
|
|
13348
13370
|
switch($2.h) {
|
|
13349
13371
|
case undefined: /* just */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29($2.a1, $21, $22);
|
|
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),
|
|
13372
|
+
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_463()(), $38, $39), $21, $22);
|
|
13351
13373
|
}
|
|
13352
13374
|
};
|
|
13353
13375
|
const $46 = issueTitle => $47 => $48 => {
|
|
@@ -13355,11 +13377,11 @@ function Commands_Quick_createNewIssue($0, $1, $2, $3, $4) {
|
|
|
13355
13377
|
let $4a;
|
|
13356
13378
|
switch($4b.h) {
|
|
13357
13379
|
case 0: /* nothing */ {
|
|
13358
|
-
$4a = Util_Prompting_inlineDescription(csegen_48()(),
|
|
13380
|
+
$4a = Util_Prompting_inlineDescription(csegen_48()(), Commands_Quick_n__6007_5655_issuePrompt($1, $2, $0), '');
|
|
13359
13381
|
break;
|
|
13360
13382
|
}
|
|
13361
13383
|
case undefined: /* just */ {
|
|
13362
|
-
$4a = $58 => $59 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
13384
|
+
$4a = $58 => $59 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_797(), Util_Prompting_editorDescription(csegen_48()(), $4b.a1, {h: 0}, ''), $58, $59);
|
|
13363
13385
|
break;
|
|
13364
13386
|
}
|
|
13365
13387
|
}
|
|
@@ -13367,7 +13389,7 @@ function Commands_Quick_createNewIssue($0, $1, $2, $3, $4) {
|
|
|
13367
13389
|
};
|
|
13368
13390
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($20, $46, $1d, $1e);
|
|
13369
13391
|
};
|
|
13370
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
13392
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_461()(), $1b, $15, $16);
|
|
13371
13393
|
};
|
|
13372
13394
|
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);
|
|
13373
13395
|
}
|
|
@@ -13391,36 +13413,36 @@ function Commands_Label_addLabels($0, $1, $2, $3, $4, $5) {
|
|
|
13391
13413
|
return FFI_GitHub_addPullLabels($1, $0.a2, $0.a3, $2.a1, $3, $4, $5);
|
|
13392
13414
|
}
|
|
13393
13415
|
|
|
13394
|
-
/* Commands.Graph.
|
|
13395
|
-
function
|
|
13396
|
-
return Theme_theme($7,
|
|
13416
|
+
/* Commands.Graph.7839:7016:pendingDot */
|
|
13417
|
+
function Commands_Graph_n__7839_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13418
|
+
return Theme_theme($7, csegen_770(), csegen_768(), 6)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
|
|
13397
13419
|
}
|
|
13398
13420
|
|
|
13399
|
-
/* Commands.Graph.
|
|
13400
|
-
function
|
|
13421
|
+
/* Commands.Graph.7839:7015:note */
|
|
13422
|
+
function Commands_Graph_n__7839_7015_note($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
13401
13423
|
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);
|
|
13402
13424
|
}
|
|
13403
13425
|
|
|
13404
|
-
/* Commands.Graph.
|
|
13405
|
-
function
|
|
13406
|
-
return Theme_theme($7,
|
|
13426
|
+
/* Commands.Graph.7839:7014:missedDot */
|
|
13427
|
+
function Commands_Graph_n__7839_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13428
|
+
return Theme_theme($7, csegen_769(), csegen_769(), 7)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
|
|
13407
13429
|
}
|
|
13408
13430
|
|
|
13409
|
-
/* Commands.Graph.
|
|
13410
|
-
function
|
|
13431
|
+
/* Commands.Graph.7839:7013:maxValue */
|
|
13432
|
+
function Commands_Graph_n__7839_7013_maxValue($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
13411
13433
|
switch($8.h) {
|
|
13412
13434
|
case 0: /* nil */ return 0n;
|
|
13413
|
-
case undefined: /* cons */ return Prelude_Types_max_Ord_Nat($8.a1.a2,
|
|
13435
|
+
case undefined: /* cons */ return Prelude_Types_max_Ord_Nat($8.a1.a2, Commands_Graph_n__7839_7013_maxValue($0, $1, $2, $3, $4, $5, $6, $7, $8.a2));
|
|
13414
13436
|
}
|
|
13415
13437
|
}
|
|
13416
13438
|
|
|
13417
|
-
/* Commands.Graph.
|
|
13418
|
-
function
|
|
13439
|
+
/* Commands.Graph.7436:6605:link */
|
|
13440
|
+
function Commands_Graph_n__7436_6605_link($0, $1, $2, $3) {
|
|
13419
13441
|
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}}}}}});
|
|
13420
13442
|
}
|
|
13421
13443
|
|
|
13422
|
-
/* Commands.Graph.
|
|
13423
|
-
function
|
|
13444
|
+
/* Commands.Graph.7839:7012:header */
|
|
13445
|
+
function Commands_Graph_n__7839_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13424
13446
|
let $3b;
|
|
13425
13447
|
switch(Prelude_Types_null_Foldable_Maybe($3)) {
|
|
13426
13448
|
case 1: {
|
|
@@ -13428,58 +13450,58 @@ function Commands_Graph_n__7788_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
13428
13450
|
break;
|
|
13429
13451
|
}
|
|
13430
13452
|
case 0: {
|
|
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(
|
|
13453
|
+
$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__7839_7010_completedBox($0, $1, $2, $3, $4, $5, $6, $7)))};
|
|
13432
13454
|
break;
|
|
13433
13455
|
}
|
|
13434
13456
|
}
|
|
13435
|
-
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
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(
|
|
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(
|
|
13457
|
+
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__7839_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__7839_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7))))}, a2: csegen_858()}};
|
|
13458
|
+
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__7839_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $3a};
|
|
13459
|
+
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__7839_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $27};
|
|
13438
13460
|
const $f = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $14};
|
|
13439
13461
|
const $b = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: $f};
|
|
13440
13462
|
const $9 = Data_List_catMaybes($b);
|
|
13441
13463
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep($9);
|
|
13442
13464
|
}
|
|
13443
13465
|
|
|
13444
|
-
/* Commands.Graph.
|
|
13445
|
-
function
|
|
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:
|
|
13466
|
+
/* Commands.Graph.7436:6604:header */
|
|
13467
|
+
function Commands_Graph_n__7436_6604_header($0, $1, $2, $3) {
|
|
13468
|
+
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_858()}}}));
|
|
13447
13469
|
}
|
|
13448
13470
|
|
|
13449
|
-
/* Commands.Graph.
|
|
13450
|
-
function
|
|
13471
|
+
/* Commands.Graph.7436:6603:graphable */
|
|
13472
|
+
function Commands_Graph_n__7436_6603_graphable($0, $1, $2, $3, $4) {
|
|
13451
13473
|
return {a1: $4.a1.a3, a2: (Prelude_Types_List_lengthTR($4.a2)+1n)};
|
|
13452
13474
|
}
|
|
13453
13475
|
|
|
13454
|
-
/* Commands.Graph.
|
|
13455
|
-
function
|
|
13456
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
13476
|
+
/* Commands.Graph.7839:7011:footer */
|
|
13477
|
+
function Commands_Graph_n__7839_7011_footer($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13478
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_Graph_n__7839_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}}}});
|
|
13457
13479
|
}
|
|
13458
13480
|
|
|
13459
|
-
/* Commands.Graph.
|
|
13460
|
-
function
|
|
13481
|
+
/* Commands.Graph.6869:6183:countInParens */
|
|
13482
|
+
function Commands_Graph_n__6869_6183_countInParens($0, $1, $2, $3, $4) {
|
|
13461
13483
|
switch(Prelude_Types_x3e_Ord_Nat($4.a2, 4n)) {
|
|
13462
13484
|
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)));
|
|
13463
13485
|
case 0: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('');
|
|
13464
13486
|
}
|
|
13465
13487
|
}
|
|
13466
13488
|
|
|
13467
|
-
/* Commands.Graph.
|
|
13468
|
-
function
|
|
13469
|
-
return Theme_theme($7,
|
|
13489
|
+
/* Commands.Graph.7839:7010:completedBox */
|
|
13490
|
+
function Commands_Graph_n__7839_7010_completedBox($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13491
|
+
return Theme_theme($7, csegen_748(), csegen_748(), 3)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25aa}'));
|
|
13470
13492
|
}
|
|
13471
13493
|
|
|
13472
|
-
/* Commands.Graph.
|
|
13473
|
-
function
|
|
13494
|
+
/* Commands.Graph.6869:6182:coloredLabel */
|
|
13495
|
+
function Commands_Graph_n__6869_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
13474
13496
|
switch((($4.a2===0n)?1:0)) {
|
|
13475
|
-
case 1: return Theme_theme($0,
|
|
13497
|
+
case 1: return Theme_theme($0, csegen_748(), csegen_748(), 0)($2.a1(undefined)($4.a1));
|
|
13476
13498
|
case 0: {
|
|
13477
13499
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 2n)) {
|
|
13478
13500
|
case 1: return $2.a1(undefined)($4.a1);
|
|
13479
13501
|
case 0: {
|
|
13480
13502
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 6n)) {
|
|
13481
|
-
case 1: return Theme_theme($0,
|
|
13482
|
-
case 0: return Theme_theme($0,
|
|
13503
|
+
case 1: return Theme_theme($0, csegen_770(), csegen_768(), 1)($2.a1(undefined)($4.a1));
|
|
13504
|
+
case 0: return Theme_theme($0, csegen_769(), csegen_769(), 2)($2.a1(undefined)($4.a1));
|
|
13483
13505
|
}
|
|
13484
13506
|
}
|
|
13485
13507
|
}
|
|
@@ -13487,8 +13509,8 @@ function Commands_Graph_n__6818_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
|
13487
13509
|
}
|
|
13488
13510
|
}
|
|
13489
13511
|
|
|
13490
|
-
/* Commands.Graph.
|
|
13491
|
-
function
|
|
13512
|
+
/* Commands.Graph.7839:7009:augment */
|
|
13513
|
+
function Commands_Graph_n__7839_7009_augment($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
13492
13514
|
return {a1: $9, a2: Prelude_Types_maybe(() => 0n, () => $f => $f, Data_SortedMap_lookup($9.a1, $8))};
|
|
13493
13515
|
}
|
|
13494
13516
|
|
|
@@ -13534,7 +13556,7 @@ function Commands_Graph_length_HasLength_Date($0) {
|
|
|
13534
13556
|
|
|
13535
13557
|
/* Commands.Graph.label */
|
|
13536
13558
|
function Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $1, $2, $3, $4) {
|
|
13537
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
13559
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__6869_6182_coloredLabel($0, $1, $2, $4, $3), Commands_Graph_n__6869_6183_countInParens($0, $1, $2, $4, $3));
|
|
13538
13560
|
}
|
|
13539
13561
|
|
|
13540
13562
|
/* Commands.Graph.label */
|
|
@@ -13588,11 +13610,11 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
13588
13610
|
break;
|
|
13589
13611
|
}
|
|
13590
13612
|
case undefined: /* just */ {
|
|
13591
|
-
$17 = Prelude_Types_List_mapAppend({h: 0}, $26 =>
|
|
13613
|
+
$17 = Prelude_Types_List_mapAppend({h: 0}, $26 => Commands_Graph_n__7839_7009_augment($1, $2, $3, $7, $6, $5, $4, $0, $7.a1, $26), $8);
|
|
13592
13614
|
break;
|
|
13593
13615
|
}
|
|
13594
13616
|
}
|
|
13595
|
-
const $33 = Prelude_Types_maybe(() => 0n, () => $37 => $37, Prelude_Types_map_Functor_Maybe($3b =>
|
|
13617
|
+
const $33 = Prelude_Types_maybe(() => 0n, () => $37 => $37, Prelude_Types_map_Functor_Maybe($3b => Commands_Graph_n__7839_7013_maxValue($1, $2, $3, $7, $6, $5, $4, $0, Data_SortedMap_toList($3b)), $7));
|
|
13596
13618
|
const $49 = Prelude_Types_foldr_Foldable_List($4c => $4d => Data_Nat_maximum(Commands_Graph_labelLength_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $3, $4c), $4d), 0n, $17);
|
|
13597
13619
|
switch($8.h) {
|
|
13598
13620
|
case 0: /* nil */ return Text_PrettyPrint_Prettyprinter_Doc_emptyDoc();
|
|
@@ -13610,8 +13632,8 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
13610
13632
|
}
|
|
13611
13633
|
}
|
|
13612
13634
|
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);
|
|
13613
|
-
const $6d = {a1: $6e, a2: {a1:
|
|
13614
|
-
const $62 = {a1:
|
|
13635
|
+
const $6d = {a1: $6e, a2: {a1: Commands_Graph_n__7839_7011_footer($1, $2, $3, $7, $6, $5, $4, $0), a2: {h: 0}}};
|
|
13636
|
+
const $62 = {a1: Commands_Graph_n__7839_7012_header($1, $2, $3, $7, $6, $5, $4, $0), a2: $6d};
|
|
13615
13637
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep($62);
|
|
13616
13638
|
}
|
|
13617
13639
|
}
|
|
@@ -13619,9 +13641,9 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
13619
13641
|
|
|
13620
13642
|
/* Commands.Graph.healthGraph : Config => List PullRequest -> String -> String -> Doc AnsiStyle */
|
|
13621
13643
|
function Commands_Graph_healthGraph($0, $1, $2, $3) {
|
|
13622
|
-
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(csegen_295(), $11 => $11.a2, $b, $c),
|
|
13644
|
+
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(csegen_295(), $11 => $11.a2, $b, $c), csegen_722(), $7, $8), Data_List_sortBy(csegen_723(), $1));
|
|
13623
13645
|
const $1e = Prelude_Types_foldr_Foldable_List(xs => m => Prelude_Types_max_Ord_Nat(Data_List1_length(xs), m), 1n, $4);
|
|
13624
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
13646
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_Graph_n__7436_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_874(), $36), a2: $41 => maxLabelLength => Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $45 => Commands_Graph_length_HasLength_Date($45), csegen_874(), $41, maxLabelLength), a3: $4d => Commands_Graph_labelLength_Graphable_x28PRsOnDatex20x24dateTyx29($0, $51 => Commands_Graph_length_HasLength_Date($51), csegen_874(), $4d), a4: $58 => Commands_Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29($0, $5c => Commands_Graph_length_HasLength_Date($5c), csegen_874(), $58), a5: $63 => Commands_Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29($0, $67 => Commands_Graph_length_HasLength_Date($67), csegen_874(), $63), a6: $6e => Commands_Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29($0, $72 => Commands_Graph_length_HasLength_Date($72), csegen_874(), $6e)}, $1e, 0n, 0n, Commands_Graph_n__7436_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__7436_6605_link($3, $2, $1, $0)), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}});
|
|
13625
13647
|
}
|
|
13626
13648
|
|
|
13627
13649
|
/* Commands.Graph.graphOne : Config -> Graphable g => Nat -> Nat -> Nat -> g -> Doc AnsiStyle */
|
|
@@ -13644,7 +13666,7 @@ function Commands_Graph_countPadRight($0, $1, $2) {
|
|
|
13644
13666
|
|
|
13645
13667
|
/* Commands.Graph.bar : Config -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
13646
13668
|
function Commands_Graph_bar($0, $1, $2, $3, $4) {
|
|
13647
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0,
|
|
13669
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0, csegen_769(), csegen_769(), 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_770(), csegen_768(), 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_748(), csegen_748(), 3)(Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $4, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{25aa}')))), a2: {h: 0}}}}));
|
|
13648
13670
|
}
|
|
13649
13671
|
|
|
13650
13672
|
|