@mattpolzin/harmony 6.4.0 → 6.6.0
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- package/README.md +11 -33
- package/harmony +937 -778
- 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_883(), $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_883(), $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_883(), $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_883(), $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__7454_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__7454_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__7454_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__7454_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__7454_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__7454_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__7454_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__7454_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__7454_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__7454_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.7475:6732:insertNext */
|
|
1332
|
+
function Commands_Graph_n__7475_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.7454:6606:unfoldGraph */
|
|
1337
|
+
function Commands_Graph_n__7454_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.7475:6733:insertPlaceholder */
|
|
1342
|
+
function Commands_Graph_n__7475_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,68 @@ 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:345} */
|
|
2829
|
+
const csegen_345 = __lazy(function () {
|
|
2830
|
+
return {a1: {a1: Data_Config_booleanOptions(), a2: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9 => $9, {a1: 'Determines whether or not to request reviews from teams when requesting individual reviewers from a team.', a2: {h: 0}})}, a2: 0};
|
|
2831
|
+
});
|
|
2832
|
+
|
|
2833
|
+
/* {csegen:349} */
|
|
2834
|
+
const csegen_349 = __lazy(function () {
|
|
2835
|
+
return {a1: {a1: Data_Config_booleanOptions(), a2: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9 => $9, {a1: '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: {h: 0}})}, a2: 1};
|
|
2836
|
+
});
|
|
2837
|
+
|
|
2838
|
+
/* {csegen:356} */
|
|
2839
|
+
const csegen_356 = __lazy(function () {
|
|
2840
|
+
return {a1: {a1: {h: 0 /* Enum */, a1: {a1: 'none', a2: {a1: 'name', a2: {a1: 'at-mention', a2: {h: 0}}}}}, a2: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $f => $f, {a1: 'Determines whether- and how to comment on PR indicating that Harmony chose a reviewer.', a2: {h: 0}})}, a2: 2};
|
|
2841
|
+
});
|
|
2842
|
+
|
|
2843
|
+
/* {csegen:363} */
|
|
2844
|
+
const csegen_363 = __lazy(function () {
|
|
2845
|
+
return {a1: {a1: {h: 0 /* Enum */, a1: {a1: 'none', a2: {a1: 'jira', a2: {a1: 'github', a2: {h: 0}}}}}, a2: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $f => $f, {a1: '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: {h: 0}})}, a2: 3};
|
|
2846
|
+
});
|
|
2847
|
+
|
|
2848
|
+
/* {csegen:367} */
|
|
2849
|
+
const csegen_367 = __lazy(function () {
|
|
2850
|
+
return {a1: {a1: {h: 1 /* Any */, a1: 'string'}, a2: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9 => $9, {a1: '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: {h: 0}})}, a2: 4};
|
|
2851
|
+
});
|
|
2852
|
+
|
|
2853
|
+
/* {csegen:371} */
|
|
2854
|
+
const csegen_371 = __lazy(function () {
|
|
2855
|
+
return {a1: {a1: Data_Config_booleanOptions(), a2: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9 => $9, {a1: '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: {h: 0}})}, a2: 5};
|
|
2856
|
+
});
|
|
2857
|
+
|
|
2858
|
+
/* {csegen:373} */
|
|
2859
|
+
const csegen_373 = __lazy(function () {
|
|
2860
|
+
return {a1: {a1: {h: 1 /* Any */, a1: 'string'}, a2: 'The name of the default Git remote to use (e.g. \'origin\').'}, a2: 6};
|
|
2861
|
+
});
|
|
2862
|
+
|
|
2863
|
+
/* {csegen:375} */
|
|
2864
|
+
const csegen_375 = __lazy(function () {
|
|
2865
|
+
return {a1: {a1: {h: 1 /* Any */, a1: 'string'}, a2: 'The name of the default Git base branch for new PRs.'}, a2: 7};
|
|
2866
|
+
});
|
|
2867
|
+
|
|
2868
|
+
/* {csegen:380} */
|
|
2869
|
+
const csegen_380 = __lazy(function () {
|
|
2870
|
+
return {a1: {a1: {h: 0 /* Enum */, a1: {a1: 'dark', a2: {a1: 'light', a2: {h: 0}}}}, a2: ''}, a2: 8};
|
|
2871
|
+
});
|
|
2872
|
+
|
|
2873
|
+
/* {csegen:384} */
|
|
2874
|
+
const csegen_384 = __lazy(function () {
|
|
2875
|
+
return {a1: {a1: {h: 1 /* Any */, a1: 'string'}, a2: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9 => $9, {a1: '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: {h: 0}})}, a2: 9};
|
|
2876
|
+
});
|
|
2877
|
+
|
|
2878
|
+
/* {csegen:409} */
|
|
2879
|
+
const csegen_409 = __lazy(function () {
|
|
2830
2880
|
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
2881
|
});
|
|
2832
2882
|
|
|
2833
|
-
/* {csegen:
|
|
2834
|
-
const
|
|
2883
|
+
/* {csegen:412} */
|
|
2884
|
+
const csegen_412 = __lazy(function () {
|
|
2835
2885
|
return {a1: $1 => $2 => Prelude_EqOrd_x3dx3d_Eq_Integer($1, $2), a2: $7 => $8 => Prelude_EqOrd_x2fx3d_Eq_Integer($7, $8)};
|
|
2836
2886
|
});
|
|
2837
2887
|
|
|
2838
|
-
/* {csegen:
|
|
2839
|
-
const
|
|
2888
|
+
/* {csegen:420} */
|
|
2889
|
+
const csegen_420 = __lazy(function () {
|
|
2840
2890
|
return $0 => {
|
|
2841
2891
|
const $1 = Language_JSON_Accessors_string($0);
|
|
2842
2892
|
switch($1.h) {
|
|
@@ -2846,93 +2896,93 @@ const csegen_385 = __lazy(function () {
|
|
|
2846
2896
|
};
|
|
2847
2897
|
});
|
|
2848
2898
|
|
|
2849
|
-
/* {csegen:
|
|
2850
|
-
const
|
|
2899
|
+
/* {csegen:429} */
|
|
2900
|
+
const csegen_429 = __lazy(function () {
|
|
2851
2901
|
return {a1: $1 => $2 => _add32s($1, $2), a2: $6 => $7 => _mul32s($6, $7), a3: $b => Number(_truncBigInt32($b))};
|
|
2852
2902
|
});
|
|
2853
2903
|
|
|
2854
|
-
/* {csegen:
|
|
2855
|
-
const
|
|
2904
|
+
/* {csegen:449} */
|
|
2905
|
+
const csegen_449 = __lazy(function () {
|
|
2856
2906
|
return $0 => Prelude_EqOrd_x3dx3d_Eq_Char($0, '/');
|
|
2857
2907
|
});
|
|
2858
2908
|
|
|
2859
|
-
/* {csegen:
|
|
2860
|
-
const
|
|
2909
|
+
/* {csegen:455} */
|
|
2910
|
+
const csegen_455 = __lazy(function () {
|
|
2861
2911
|
return () => $0 => $0.a1;
|
|
2862
2912
|
});
|
|
2863
2913
|
|
|
2864
|
-
/* {csegen:
|
|
2865
|
-
const
|
|
2914
|
+
/* {csegen:468} */
|
|
2915
|
+
const csegen_468 = __lazy(function () {
|
|
2866
2916
|
return () => $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Number(_truncUBigInt32($4)), System_time(csegen_48()()), $0, $1);
|
|
2867
2917
|
});
|
|
2868
2918
|
|
|
2869
|
-
/* {csegen:
|
|
2870
|
-
const
|
|
2919
|
+
/* {csegen:473} */
|
|
2920
|
+
const csegen_473 = __lazy(function () {
|
|
2871
2921
|
return $0 => $1 => $2 => $3 => Prelude_Types_map_Functor_Maybe($2, $3);
|
|
2872
2922
|
});
|
|
2873
2923
|
|
|
2874
|
-
/* {csegen:
|
|
2875
|
-
const
|
|
2924
|
+
/* {csegen:496} */
|
|
2925
|
+
const csegen_496 = __lazy(function () {
|
|
2876
2926
|
return () => $0 => $1 => $2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($5 => Prelude_IO_prim__putStr('\n', $5), $0, $1, $2);
|
|
2877
2927
|
});
|
|
2878
2928
|
|
|
2879
|
-
/* {csegen:
|
|
2880
|
-
const
|
|
2929
|
+
/* {csegen:498} */
|
|
2930
|
+
const csegen_498 = __lazy(function () {
|
|
2881
2931
|
return () => $0 => $1 => $2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($5 => Prelude_IO_prim__getStr($5), $0, $1, $2);
|
|
2882
2932
|
});
|
|
2883
2933
|
|
|
2884
|
-
/* {csegen:
|
|
2885
|
-
const
|
|
2934
|
+
/* {csegen:502} */
|
|
2935
|
+
const csegen_502 = __lazy(function () {
|
|
2886
2936
|
return () => $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 0}, $0, $1);
|
|
2887
2937
|
});
|
|
2888
2938
|
|
|
2889
|
-
/* {csegen:
|
|
2890
|
-
const
|
|
2939
|
+
/* {csegen:516} */
|
|
2940
|
+
const csegen_516 = __lazy(function () {
|
|
2891
2941
|
return {a1: Commands_Help_argument(0, '...'), a2: {h: 0}};
|
|
2892
2942
|
});
|
|
2893
2943
|
|
|
2894
|
-
/* {csegen:
|
|
2895
|
-
const
|
|
2896
|
-
return {a1: Commands_Help_argument(0, '#<label>'), a2:
|
|
2944
|
+
/* {csegen:521} */
|
|
2945
|
+
const csegen_521 = __lazy(function () {
|
|
2946
|
+
return {a1: Commands_Help_argument(0, '#<label>'), a2: csegen_516()};
|
|
2897
2947
|
});
|
|
2898
2948
|
|
|
2899
|
-
/* {csegen:
|
|
2900
|
-
const
|
|
2949
|
+
/* {csegen:693} */
|
|
2950
|
+
const csegen_693 = __lazy(function () {
|
|
2901
2951
|
return $0 => $1 => System_Git_currentBranch($0, $1);
|
|
2902
2952
|
});
|
|
2903
2953
|
|
|
2904
|
-
/* {csegen:
|
|
2905
|
-
const
|
|
2954
|
+
/* {csegen:707} */
|
|
2955
|
+
const csegen_707 = __lazy(function () {
|
|
2906
2956
|
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
2957
|
});
|
|
2908
2958
|
|
|
2909
|
-
/* {csegen:
|
|
2910
|
-
const
|
|
2959
|
+
/* {csegen:711} */
|
|
2960
|
+
const csegen_711 = __lazy(function () {
|
|
2911
2961
|
return {a1: {h: 0}, a2: {a1: '-i', a2: {h: 0}}};
|
|
2912
2962
|
});
|
|
2913
2963
|
|
|
2914
|
-
/* {csegen:
|
|
2915
|
-
const
|
|
2964
|
+
/* {csegen:717} */
|
|
2965
|
+
const csegen_717 = __lazy(function () {
|
|
2916
2966
|
return $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $0, $1);
|
|
2917
2967
|
});
|
|
2918
2968
|
|
|
2919
|
-
/* {csegen:
|
|
2920
|
-
const
|
|
2969
|
+
/* {csegen:741} */
|
|
2970
|
+
const csegen_741 = __lazy(function () {
|
|
2921
2971
|
return {a1: csegen_9(), a2: a => ({h: 0}), a3: a => $4 => $5 => Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, $5)};
|
|
2922
2972
|
});
|
|
2923
2973
|
|
|
2924
|
-
/* {csegen:
|
|
2925
|
-
const
|
|
2926
|
-
return $0 => Data_List_sort(
|
|
2974
|
+
/* {csegen:742} */
|
|
2975
|
+
const csegen_742 = __lazy(function () {
|
|
2976
|
+
return $0 => Data_List_sort(csegen_409(), $0);
|
|
2927
2977
|
});
|
|
2928
2978
|
|
|
2929
|
-
/* {csegen:
|
|
2930
|
-
const
|
|
2979
|
+
/* {csegen:744} */
|
|
2980
|
+
const csegen_744 = __lazy(function () {
|
|
2931
2981
|
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_66(), $0, $1, $2);
|
|
2932
2982
|
});
|
|
2933
2983
|
|
|
2934
|
-
/* {csegen:
|
|
2935
|
-
const
|
|
2984
|
+
/* {csegen:751} */
|
|
2985
|
+
const csegen_751 = __lazy(function () {
|
|
2936
2986
|
return $0 => {
|
|
2937
2987
|
switch($0.h) {
|
|
2938
2988
|
case 0: /* nothing */ return 1;
|
|
@@ -2941,93 +2991,93 @@ const csegen_713 = __lazy(function () {
|
|
|
2941
2991
|
};
|
|
2942
2992
|
});
|
|
2943
2993
|
|
|
2944
|
-
/* {csegen:
|
|
2945
|
-
const
|
|
2994
|
+
/* {csegen:756} */
|
|
2995
|
+
const csegen_756 = __lazy(function () {
|
|
2946
2996
|
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2947
2997
|
});
|
|
2948
2998
|
|
|
2949
|
-
/* {csegen:
|
|
2950
|
-
const
|
|
2999
|
+
/* {csegen:757} */
|
|
3000
|
+
const csegen_757 = __lazy(function () {
|
|
2951
3001
|
return $0 => $0.a3;
|
|
2952
3002
|
});
|
|
2953
3003
|
|
|
2954
|
-
/* {csegen:
|
|
2955
|
-
const
|
|
2956
|
-
return $0 => $1 => Prelude_Basics_on(
|
|
3004
|
+
/* {csegen:758} */
|
|
3005
|
+
const csegen_758 = __lazy(function () {
|
|
3006
|
+
return $0 => $1 => Prelude_Basics_on(csegen_756(), csegen_757(), $0, $1);
|
|
2957
3007
|
});
|
|
2958
3008
|
|
|
2959
|
-
/* {csegen:
|
|
2960
|
-
const
|
|
3009
|
+
/* {csegen:780} */
|
|
3010
|
+
const csegen_780 = __lazy(function () {
|
|
2961
3011
|
return $0 => $0.a3;
|
|
2962
3012
|
});
|
|
2963
3013
|
|
|
2964
|
-
/* {csegen:
|
|
2965
|
-
const
|
|
3014
|
+
/* {csegen:783} */
|
|
3015
|
+
const csegen_783 = __lazy(function () {
|
|
2966
3016
|
return Theme_cs({a1: 2, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2967
3017
|
});
|
|
2968
3018
|
|
|
2969
|
-
/* {csegen:
|
|
2970
|
-
const
|
|
3019
|
+
/* {csegen:784} */
|
|
3020
|
+
const csegen_784 = __lazy(function () {
|
|
2971
3021
|
return Theme_cs({a1: 4, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2972
3022
|
});
|
|
2973
3023
|
|
|
2974
|
-
/* {csegen:
|
|
2975
|
-
const
|
|
3024
|
+
/* {csegen:786} */
|
|
3025
|
+
const csegen_786 = __lazy(function () {
|
|
2976
3026
|
return $0 => $0.a1;
|
|
2977
3027
|
});
|
|
2978
3028
|
|
|
2979
|
-
/* {csegen:
|
|
2980
|
-
const
|
|
3029
|
+
/* {csegen:793} */
|
|
3030
|
+
const csegen_793 = __lazy(function () {
|
|
2981
3031
|
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
3032
|
});
|
|
2983
3033
|
|
|
2984
|
-
/* {csegen:
|
|
2985
|
-
const
|
|
3034
|
+
/* {csegen:803} */
|
|
3035
|
+
const csegen_803 = __lazy(function () {
|
|
2986
3036
|
return Theme_cs({a1: 0, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2987
3037
|
});
|
|
2988
3038
|
|
|
2989
|
-
/* {csegen:
|
|
2990
|
-
const
|
|
3039
|
+
/* {csegen:804} */
|
|
3040
|
+
const csegen_804 = __lazy(function () {
|
|
2991
3041
|
return Theme_cs({a1: 1, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2992
3042
|
});
|
|
2993
3043
|
|
|
2994
|
-
/* {csegen:
|
|
2995
|
-
const
|
|
3044
|
+
/* {csegen:805} */
|
|
3045
|
+
const csegen_805 = __lazy(function () {
|
|
2996
3046
|
return Theme_cs({a1: 3, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2997
3047
|
});
|
|
2998
3048
|
|
|
2999
|
-
/* {csegen:
|
|
3000
|
-
const
|
|
3049
|
+
/* {csegen:807} */
|
|
3050
|
+
const csegen_807 = __lazy(function () {
|
|
3001
3051
|
return Theme_cs({a1: 5, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
3002
3052
|
});
|
|
3003
3053
|
|
|
3004
|
-
/* {csegen:
|
|
3005
|
-
const
|
|
3054
|
+
/* {csegen:832} */
|
|
3055
|
+
const csegen_832 = __lazy(function () {
|
|
3006
3056
|
return $0 => Prelude_Types_either(() => $3 => '', () => $5 => $5, $0);
|
|
3007
3057
|
});
|
|
3008
3058
|
|
|
3009
|
-
/* {csegen:
|
|
3010
|
-
const
|
|
3059
|
+
/* {csegen:839} */
|
|
3060
|
+
const csegen_839 = __lazy(function () {
|
|
3011
3061
|
return $0 => Util_Prompting_yesNoPrompt(csegen_48()(), 1, 'Would you like to continue creating a Pull Request anyway?');
|
|
3012
3062
|
});
|
|
3013
3063
|
|
|
3014
|
-
/* {csegen:
|
|
3015
|
-
const
|
|
3064
|
+
/* {csegen:878} */
|
|
3065
|
+
const csegen_878 = __lazy(function () {
|
|
3016
3066
|
return $0 => Prelude_Types_fastPack(Prelude_Types_List_reverse($0));
|
|
3017
3067
|
});
|
|
3018
3068
|
|
|
3019
|
-
/* {csegen:
|
|
3020
|
-
const
|
|
3069
|
+
/* {csegen:883} */
|
|
3070
|
+
const csegen_883 = __lazy(function () {
|
|
3021
3071
|
return $0 => $0.a1;
|
|
3022
3072
|
});
|
|
3023
3073
|
|
|
3024
|
-
/* {csegen:
|
|
3025
|
-
const
|
|
3074
|
+
/* {csegen:893} */
|
|
3075
|
+
const csegen_893 = __lazy(function () {
|
|
3026
3076
|
return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}};
|
|
3027
3077
|
});
|
|
3028
3078
|
|
|
3029
|
-
/* {csegen:
|
|
3030
|
-
const
|
|
3079
|
+
/* {csegen:909} */
|
|
3080
|
+
const csegen_909 = __lazy(function () {
|
|
3031
3081
|
return {a1: ann => $1 => Commands_Graph_pretty_Pretty_Date($1), a2: ann => $5 => $6 => Commands_Graph_prettyPrec_Pretty_Date($5, $6)};
|
|
3032
3082
|
});
|
|
3033
3083
|
|
|
@@ -3043,46 +3093,46 @@ function Main_case__casex20blockx20inx20casex20blockx20inx20casex20blockx20inx20
|
|
|
3043
3093
|
case 0: /* nil */ {
|
|
3044
3094
|
const $1c = $1d => $1e => $1f => {
|
|
3045
3095
|
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 =>
|
|
3096
|
+
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__9085_1301_gitCompletions($0, $1, $2, $3, $4, $6, () => $30, $31), $1e, $1f);
|
|
3047
3097
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 0}, $1e, $1f);
|
|
3048
3098
|
}
|
|
3049
3099
|
};
|
|
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.
|
|
3100
|
+
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
3101
|
}
|
|
3052
3102
|
default: return Data_Promise_pure_Applicative_x28Promisex20x24ex29($8, $9, $a);
|
|
3053
3103
|
}
|
|
3054
3104
|
};
|
|
3055
3105
|
}
|
|
3056
3106
|
|
|
3057
|
-
/* Main.
|
|
3058
|
-
function
|
|
3107
|
+
/* Main.9085:1302:trivialCompletions */
|
|
3108
|
+
function Main_n__9085_1302_trivialCompletions($0, $1, $2, $3, $4) {
|
|
3059
3109
|
return ShellCompletion_Common_cmdOpts($3, $2, $1, $0);
|
|
3060
3110
|
}
|
|
3061
3111
|
|
|
3062
|
-
/* Main.
|
|
3063
|
-
function
|
|
3112
|
+
/* Main.9496:1728:parsePg */
|
|
3113
|
+
function Main_n__9496_1728_parsePg($0, $1, $2, $3, $4, $5) {
|
|
3064
3114
|
return Data_String_parsePositive(csegen_2(), $5);
|
|
3065
3115
|
}
|
|
3066
3116
|
|
|
3067
|
-
/* Main.
|
|
3068
|
-
function
|
|
3117
|
+
/* Main.9496:1727:parseLim */
|
|
3118
|
+
function Main_n__9496_1727_parseLim($0, $1, $2, $3, $4) {
|
|
3069
3119
|
return Prelude_Interfaces_x3cx3dx3c(csegen_14(), x => Data_Fin_natToFin(x, 101n), $d => Data_String_parsePositive(csegen_2(), $d));
|
|
3070
3120
|
}
|
|
3071
3121
|
|
|
3072
|
-
/* Main.
|
|
3073
|
-
function
|
|
3122
|
+
/* Main.9085:1301:gitCompletions */
|
|
3123
|
+
function Main_n__9085_1301_gitCompletions($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
3074
3124
|
return ShellCompletion_Common_githubOpts($5, $6, $3, $2, $1, $0, $7);
|
|
3075
3125
|
}
|
|
3076
3126
|
|
|
3077
|
-
/* Main.
|
|
3078
|
-
function
|
|
3127
|
+
/* Main.9085:1300:ffiCompletions */
|
|
3128
|
+
function Main_n__9085_1300_ffiCompletions($0, $1, $2, $3, $4) {
|
|
3079
3129
|
return ShellCompletion_Common_ffiOpts(csegen_31()(), $3, $2, $1, $0);
|
|
3080
3130
|
}
|
|
3081
3131
|
|
|
3082
|
-
/* Main.
|
|
3083
|
-
function
|
|
3132
|
+
/* Main.9085:1299:completions */
|
|
3133
|
+
function Main_n__9085_1299_completions($0, $1, $2, $3, $4, $5) {
|
|
3084
3134
|
return $6 => {
|
|
3085
|
-
const $7 =
|
|
3135
|
+
const $7 = Main_n__9085_1302_trivialCompletions($0, $1, $2, $3, $4);
|
|
3086
3136
|
switch($7.h) {
|
|
3087
3137
|
case 0: /* nothing */ {
|
|
3088
3138
|
const $1e = $1f => $20 => $21 => {
|
|
@@ -3103,7 +3153,7 @@ function Main_n__9012_1299_completions($0, $1, $2, $3, $4, $5) {
|
|
|
3103
3153
|
case undefined: /* just */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29($1f.a1, $20, $21);
|
|
3104
3154
|
}
|
|
3105
3155
|
};
|
|
3106
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($10 => $11 => $12 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29(
|
|
3156
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($10 => $11 => $12 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29(Main_n__9085_1300_ffiCompletions($0, $1, $2, $3, $4), $10, $11, $12), $1e, $5, $6);
|
|
3107
3157
|
}
|
|
3108
3158
|
case undefined: /* just */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29($7.a1, $5, $6);
|
|
3109
3159
|
}
|
|
@@ -3136,8 +3186,8 @@ function Main_shouldUseColors($0) {
|
|
|
3136
3186
|
function Main_shellCompletion($0, $1, $2, $3, $4) {
|
|
3137
3187
|
const $6 = $7 => $8 => {
|
|
3138
3188
|
switch($1) {
|
|
3139
|
-
case 0: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c =>
|
|
3140
|
-
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($28 =>
|
|
3189
|
+
case 0: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c => Main_n__9085_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);
|
|
3190
|
+
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($28 => Main_n__9085_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
3191
|
}
|
|
3142
3192
|
};
|
|
3143
3193
|
return Main_resolvex27x27($6);
|
|
@@ -3228,7 +3278,7 @@ function Main_handleConfiguredArgs($0, $1, $2) {
|
|
|
3228
3278
|
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
3279
|
}
|
|
3230
3280
|
};
|
|
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.
|
|
3281
|
+
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
3282
|
}
|
|
3233
3283
|
}
|
|
3234
3284
|
};
|
|
@@ -3241,7 +3291,7 @@ function Main_handleConfiguredArgs($0, $1, $2) {
|
|
|
3241
3291
|
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
3292
|
}
|
|
3243
3293
|
};
|
|
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.
|
|
3294
|
+
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
3295
|
};
|
|
3246
3296
|
}
|
|
3247
3297
|
}
|
|
@@ -3255,7 +3305,7 @@ function Main_handleConfiguredArgs($0, $1, $2) {
|
|
|
3255
3305
|
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
3306
|
}
|
|
3257
3307
|
};
|
|
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.
|
|
3308
|
+
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
3309
|
};
|
|
3260
3310
|
}
|
|
3261
3311
|
}
|
|
@@ -3268,7 +3318,7 @@ function Main_handleConfiguredArgs($0, $1, $2) {
|
|
|
3268
3318
|
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
3319
|
}
|
|
3270
3320
|
};
|
|
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.
|
|
3321
|
+
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
3322
|
};
|
|
3273
3323
|
}
|
|
3274
3324
|
}
|
|
@@ -3281,7 +3331,7 @@ function Main_handleConfiguredArgs($0, $1, $2) {
|
|
|
3281
3331
|
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
3332
|
}
|
|
3283
3333
|
};
|
|
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.
|
|
3334
|
+
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
3335
|
};
|
|
3286
3336
|
}
|
|
3287
3337
|
}
|
|
@@ -3355,7 +3405,7 @@ function Main_handleAuthenticatedArgs($0, $1, $2) {
|
|
|
3355
3405
|
}
|
|
3356
3406
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe($b2, filter => ({a1: {a1: filter, a2: {a1: $af.a1, a2: $af.a2}}}));
|
|
3357
3407
|
};
|
|
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})},
|
|
3408
|
+
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__9496_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__9496_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
3409
|
return $bf => {
|
|
3360
3410
|
switch($91.h) {
|
|
3361
3411
|
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);
|
|
@@ -6390,8 +6440,23 @@ function Data_Promise_bind($0, $1, $2, $3) {
|
|
|
6390
6440
|
return $4($3);
|
|
6391
6441
|
}
|
|
6392
6442
|
|
|
6443
|
+
/* ShellCompletion.Common.with block in allSettableValuesForProp */
|
|
6444
|
+
function ShellCompletion_Common_with__allSettableValuesForProp_13607($0, $1, $2) {
|
|
6445
|
+
switch($1.h) {
|
|
6446
|
+
case 0: /* nothing */ return {h: 0};
|
|
6447
|
+
case undefined: /* just */ {
|
|
6448
|
+
const $f = Data_Config_reifyProp($1.a1);
|
|
6449
|
+
const $e = $f.a1;
|
|
6450
|
+
const $13 = Data_Config_reifyProp($1.a1);
|
|
6451
|
+
const $12 = $13.a2;
|
|
6452
|
+
const $c = Data_Config_propOptions($e, $12);
|
|
6453
|
+
return Prelude_Types_List_mapAppend({h: 0}, $7 => Data_CompletionStyle_describe($2, '', $7), $c);
|
|
6454
|
+
}
|
|
6455
|
+
}
|
|
6456
|
+
}
|
|
6457
|
+
|
|
6393
6458
|
/* ShellCompletion.Common.case block in describe,assigned */
|
|
6394
|
-
function
|
|
6459
|
+
function ShellCompletion_Common_case__describex2cassigned_14841($0, $1, $2, $3) {
|
|
6395
6460
|
switch($3.h) {
|
|
6396
6461
|
case 0: /* nothing */ return '';
|
|
6397
6462
|
case undefined: /* just */ {
|
|
@@ -6404,7 +6469,7 @@ function ShellCompletion_Common_case__describex2cassigned_14811($0, $1, $2, $3)
|
|
|
6404
6469
|
}
|
|
6405
6470
|
|
|
6406
6471
|
/* ShellCompletion.Common.case block in describe,openPrs */
|
|
6407
|
-
function
|
|
6472
|
+
function ShellCompletion_Common_case__describex2copenPrs_14763($0, $1, $2) {
|
|
6408
6473
|
switch($2.h) {
|
|
6409
6474
|
case undefined: /* just */ {
|
|
6410
6475
|
switch($2.a1) {
|
|
@@ -6423,49 +6488,49 @@ function ShellCompletion_Common_case__describex2copenPrs_14733($0, $1, $2) {
|
|
|
6423
6488
|
}
|
|
6424
6489
|
|
|
6425
6490
|
/* ShellCompletion.Common.case block in optsForRequestCmd,slugsOrLoginsOrLabels */
|
|
6426
|
-
function
|
|
6491
|
+
function ShellCompletion_Common_case__optsForRequestCmdx2cslugsOrLoginsOrLabels_14203($0, $1, $2, $3) {
|
|
6427
6492
|
switch($3.h) {
|
|
6428
6493
|
case 1: /* :: */ {
|
|
6429
6494
|
switch($3.a1) {
|
|
6430
|
-
case '+': return Prelude_Types_List_mapAppend({h: 0}, $9 => ('+'+$9), $2.
|
|
6495
|
+
case '+': return Prelude_Types_List_mapAppend({h: 0}, $9 => ('+'+$9), $2.a14);
|
|
6431
6496
|
default: {
|
|
6432
6497
|
switch(Util_String_isHashPrefix($0)) {
|
|
6433
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_155(), $2.
|
|
6434
|
-
case 0: return $2.
|
|
6498
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_155(), $2.a13);
|
|
6499
|
+
case 0: return $2.a12;
|
|
6435
6500
|
}
|
|
6436
6501
|
}
|
|
6437
6502
|
}
|
|
6438
6503
|
}
|
|
6439
6504
|
default: {
|
|
6440
6505
|
switch(Util_String_isHashPrefix($0)) {
|
|
6441
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_155(), $2.
|
|
6442
|
-
case 0: return $2.
|
|
6506
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_155(), $2.a13);
|
|
6507
|
+
case 0: return $2.a12;
|
|
6443
6508
|
}
|
|
6444
6509
|
}
|
|
6445
6510
|
}
|
|
6446
6511
|
}
|
|
6447
6512
|
|
|
6448
|
-
/* ShellCompletion.Common.
|
|
6449
|
-
function
|
|
6450
|
-
return
|
|
6513
|
+
/* ShellCompletion.Common.6717:14197:slugsOrLoginsOrLabels */
|
|
6514
|
+
function ShellCompletion_Common_n__6717_14197_slugsOrLoginsOrLabels($0, $1, $2) {
|
|
6515
|
+
return ShellCompletion_Common_case__optsForRequestCmdx2cslugsOrLoginsOrLabels_14203($0, $1, $2, Data_String_asList($0));
|
|
6451
6516
|
}
|
|
6452
6517
|
|
|
6453
|
-
/* ShellCompletion.Common.
|
|
6454
|
-
function
|
|
6455
|
-
return
|
|
6518
|
+
/* ShellCompletion.Common.7273:14757:openPrs */
|
|
6519
|
+
function ShellCompletion_Common_n__7273_14757_openPrs($0, $1) {
|
|
6520
|
+
return ShellCompletion_Common_case__describex2copenPrs_14763($0, $1, $0.a7);
|
|
6456
6521
|
}
|
|
6457
6522
|
|
|
6458
|
-
/* ShellCompletion.Common.
|
|
6459
|
-
function
|
|
6523
|
+
/* ShellCompletion.Common.7273:14756:assigned */
|
|
6524
|
+
function ShellCompletion_Common_n__7273_14756_assigned($0, $1, $2) {
|
|
6460
6525
|
switch($2.h) {
|
|
6461
6526
|
case 0: /* nothing */ return '';
|
|
6462
|
-
case undefined: /* just */ return
|
|
6527
|
+
case undefined: /* just */ return ShellCompletion_Common_case__describex2cassigned_14841($0, $1, $2.a1, $0.a6);
|
|
6463
6528
|
}
|
|
6464
6529
|
}
|
|
6465
6530
|
|
|
6466
6531
|
/* ShellCompletion.Common.optsForRequestCmd : Config => CompletionStyle -> String -> List String */
|
|
6467
6532
|
function ShellCompletion_Common_optsForRequestCmd($0, $1, $2) {
|
|
6468
|
-
return Prelude_Types_List_tailRecAppend(ShellCompletion_Util_withPrefix($1, $2, ShellCompletion_Common_allRequestCmdOpts($1)),
|
|
6533
|
+
return Prelude_Types_List_tailRecAppend(ShellCompletion_Util_withPrefix($1, $2, ShellCompletion_Common_allRequestCmdOpts($1)), ShellCompletion_Common_n__6717_14197_slugsOrLoginsOrLabels($2, $1, $0));
|
|
6469
6534
|
}
|
|
6470
6535
|
|
|
6471
6536
|
/* ShellCompletion.Common.optsForPrIntoOption : HasIO io => String -> io (Maybe (List String)) */
|
|
@@ -6502,8 +6567,8 @@ function ShellCompletion_Common_githubOpts($0, $1, $2, $3, $4, $5, $6) {
|
|
|
6502
6567
|
const $12 = issues => {
|
|
6503
6568
|
const $13 = ShellCompletion_Util_unhashify($4);
|
|
6504
6569
|
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.
|
|
6570
|
+
const $1e = $1f => $20 => Prelude_Basics_on($23 => $24 => ShellCompletion_Common_compareIssues($0.a17, $23, $24), $2b => Builtin_snd($2b), $1f, $20);
|
|
6571
|
+
const $30 = $31 => ShellCompletion_Common_describe($0.a17, $31);
|
|
6507
6572
|
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
6573
|
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
6574
|
};
|
|
@@ -6531,7 +6596,7 @@ function ShellCompletion_Common_ffiOpts($0, $1, $2, $3, $4) {
|
|
|
6531
6596
|
|
|
6532
6597
|
/* ShellCompletion.Common.describe : Maybe String -> Issue -> String */
|
|
6533
6598
|
function ShellCompletion_Common_describe($0, $1) {
|
|
6534
|
-
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $7 => $7, {a1:
|
|
6599
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $7 => $7, {a1: ShellCompletion_Common_n__7273_14756_assigned($1, $0, $0), a2: {a1: ShellCompletion_Common_n__7273_14757_openPrs($1, $0), a2: {a1: $1.a2, a2: {h: 0}}}});
|
|
6535
6600
|
}
|
|
6536
6601
|
|
|
6537
6602
|
/* ShellCompletion.Common.configuredOpts : Config => CompletionStyle -> String -> String -> String -> List String */
|
|
@@ -6540,11 +6605,11 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6540
6605
|
case 'label': {
|
|
6541
6606
|
switch($3) {
|
|
6542
6607
|
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.
|
|
6608
|
+
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
6609
|
return Prelude_Types_List_mapAppend({h: 0}, $23 => Data_CompletionStyle_name($1, $23), $7);
|
|
6545
6610
|
}
|
|
6546
6611
|
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.
|
|
6612
|
+
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
6613
|
const $41 = Prelude_Types_List_filterAppend({h: 0}, $45 => ShellCompletion_Util_isPrefixOf($1, $3, $45), $28);
|
|
6549
6614
|
return Prelude_Types_List_mapAppend({h: 0}, $4e => Data_CompletionStyle_name($1, $4e), $41);
|
|
6550
6615
|
}
|
|
@@ -6555,13 +6620,13 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6555
6620
|
case '--': {
|
|
6556
6621
|
switch($4) {
|
|
6557
6622
|
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.
|
|
6623
|
+
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
6624
|
return Prelude_Types_List_mapAppend({h: 0}, $6f => Data_CompletionStyle_name($1, $6f), $55);
|
|
6560
6625
|
}
|
|
6561
6626
|
default: {
|
|
6562
6627
|
switch($4) {
|
|
6563
6628
|
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.
|
|
6629
|
+
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
6630
|
const $8c = Prelude_Types_List_filterAppend({h: 0}, $90 => ShellCompletion_Util_isPrefixOf($1, $3, $90), $75);
|
|
6566
6631
|
return Prelude_Types_List_mapAppend({h: 0}, $99 => Data_CompletionStyle_name($1, $99), $8c);
|
|
6567
6632
|
}
|
|
@@ -6578,7 +6643,7 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6578
6643
|
default: {
|
|
6579
6644
|
switch($4) {
|
|
6580
6645
|
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.
|
|
6646
|
+
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
6647
|
const $b7 = Prelude_Types_List_filterAppend({h: 0}, $bb => ShellCompletion_Util_isPrefixOf($1, $3, $bb), $a0);
|
|
6583
6648
|
return Prelude_Types_List_mapAppend({h: 0}, $c4 => Data_CompletionStyle_name($1, $c4), $b7);
|
|
6584
6649
|
}
|
|
@@ -6596,11 +6661,11 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6596
6661
|
switch($3) {
|
|
6597
6662
|
case '--': {
|
|
6598
6663
|
switch($4) {
|
|
6599
|
-
case 'graph': return {a1: '--completed', a2: $0.
|
|
6600
|
-
case '--completed': return $0.
|
|
6664
|
+
case 'graph': return {a1: '--completed', a2: $0.a12};
|
|
6665
|
+
case '--completed': return $0.a12;
|
|
6601
6666
|
default: {
|
|
6602
6667
|
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.
|
|
6668
|
+
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
6669
|
case 0: return {h: 0};
|
|
6605
6670
|
}
|
|
6606
6671
|
}
|
|
@@ -6608,7 +6673,7 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6608
6673
|
}
|
|
6609
6674
|
default: {
|
|
6610
6675
|
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.
|
|
6676
|
+
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
6677
|
case 0: return {h: 0};
|
|
6613
6678
|
}
|
|
6614
6679
|
}
|
|
@@ -6616,7 +6681,7 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6616
6681
|
}
|
|
6617
6682
|
case 'pr': {
|
|
6618
6683
|
switch(Util_String_isHashPrefix($3)) {
|
|
6619
|
-
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_155(), $0.
|
|
6684
|
+
case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_155(), $0.a13);
|
|
6620
6685
|
case 0: return {h: 0};
|
|
6621
6686
|
}
|
|
6622
6687
|
}
|
|
@@ -6624,8 +6689,8 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6624
6689
|
switch($3) {
|
|
6625
6690
|
case '--': {
|
|
6626
6691
|
switch($4) {
|
|
6627
|
-
case 'rq': return {a1: '--dry', a2: $0.
|
|
6628
|
-
default: return $0.
|
|
6692
|
+
case 'rq': return {a1: '--dry', a2: $0.a12};
|
|
6693
|
+
default: return $0.a12;
|
|
6629
6694
|
}
|
|
6630
6695
|
}
|
|
6631
6696
|
default: return ShellCompletion_Common_optsForRequestCmd($0, $1, $3);
|
|
@@ -6635,8 +6700,8 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6635
6700
|
switch($3) {
|
|
6636
6701
|
case '--': {
|
|
6637
6702
|
switch($4) {
|
|
6638
|
-
case 'request': return {a1: '--dry', a2: $0.
|
|
6639
|
-
default: return $0.
|
|
6703
|
+
case 'request': return {a1: '--dry', a2: $0.a12};
|
|
6704
|
+
default: return $0.a12;
|
|
6640
6705
|
}
|
|
6641
6706
|
}
|
|
6642
6707
|
default: return ShellCompletion_Common_optsForRequestCmd($0, $1, $3);
|
|
@@ -7069,7 +7134,12 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
7069
7134
|
default: {
|
|
7070
7135
|
switch($3) {
|
|
7071
7136
|
case 'config': return ShellCompletion_Util_someWithPrefix($0, $2, ShellCompletion_Common_allSettableProps($0));
|
|
7072
|
-
default:
|
|
7137
|
+
default: {
|
|
7138
|
+
switch($2) {
|
|
7139
|
+
case '--': return ShellCompletion_Util_all($0, ShellCompletion_Common_allSettableValuesForProp($0, $3));
|
|
7140
|
+
default: return ShellCompletion_Util_someWithPrefix($0, $2, ShellCompletion_Common_allSettableValuesForProp($0, $3));
|
|
7141
|
+
}
|
|
7142
|
+
}
|
|
7073
7143
|
}
|
|
7074
7144
|
}
|
|
7075
7145
|
}
|
|
@@ -7077,7 +7147,12 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
7077
7147
|
default: {
|
|
7078
7148
|
switch($3) {
|
|
7079
7149
|
case 'config': return ShellCompletion_Util_someWithPrefix($0, $2, ShellCompletion_Common_allSettableProps($0));
|
|
7080
|
-
default:
|
|
7150
|
+
default: {
|
|
7151
|
+
switch($2) {
|
|
7152
|
+
case '--': return ShellCompletion_Util_all($0, ShellCompletion_Common_allSettableValuesForProp($0, $3));
|
|
7153
|
+
default: return ShellCompletion_Util_someWithPrefix($0, $2, ShellCompletion_Common_allSettableValuesForProp($0, $3));
|
|
7154
|
+
}
|
|
7155
|
+
}
|
|
7081
7156
|
}
|
|
7082
7157
|
}
|
|
7083
7158
|
}
|
|
@@ -7177,62 +7252,62 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
7177
7252
|
case '--into': return {h: 0};
|
|
7178
7253
|
case '--ready': return ShellCompletion_Util_someFrom($0, csegen_157(), ShellCompletion_Common_allPrCmdOpts($0));
|
|
7179
7254
|
case 'pr': {
|
|
7180
|
-
let $
|
|
7255
|
+
let $1f0;
|
|
7181
7256
|
switch(Util_String_isHashPrefix($2)) {
|
|
7182
7257
|
case 1: {
|
|
7183
|
-
$
|
|
7258
|
+
$1f0 = () => ({h: 0});
|
|
7184
7259
|
break;
|
|
7185
7260
|
}
|
|
7186
7261
|
case 0: {
|
|
7187
|
-
$
|
|
7262
|
+
$1f0 = () => ({a1: {h: 0}});
|
|
7188
7263
|
break;
|
|
7189
7264
|
}
|
|
7190
7265
|
}
|
|
7191
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $
|
|
7266
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $1f0);
|
|
7192
7267
|
}
|
|
7193
7268
|
case '--draft': {
|
|
7194
|
-
const $
|
|
7269
|
+
const $1fd = c => {
|
|
7195
7270
|
switch(ShellCompletion_Util_matches($0, '--into', c)) {
|
|
7196
7271
|
case 1: return 1;
|
|
7197
7272
|
case 0: return ShellCompletion_Util_matches($0, '--print-tree', c);
|
|
7198
7273
|
}
|
|
7199
7274
|
};
|
|
7200
|
-
const $
|
|
7201
|
-
const $
|
|
7202
|
-
let $
|
|
7275
|
+
const $1fa = Prelude_Types_List_filterAppend({h: 0}, $1fd, ShellCompletion_Common_allPrCmdOpts($0));
|
|
7276
|
+
const $1f6 = ShellCompletion_Util_someWithPrefixOrNothing($0, $2, $1fa);
|
|
7277
|
+
let $20a;
|
|
7203
7278
|
switch(Util_String_isHashPrefix($2)) {
|
|
7204
7279
|
case 1: {
|
|
7205
|
-
$
|
|
7280
|
+
$20a = () => ({h: 0});
|
|
7206
7281
|
break;
|
|
7207
7282
|
}
|
|
7208
7283
|
case 0: {
|
|
7209
|
-
$
|
|
7284
|
+
$20a = () => ({a1: {h: 0}});
|
|
7210
7285
|
break;
|
|
7211
7286
|
}
|
|
7212
7287
|
}
|
|
7213
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($
|
|
7288
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($1f6, $20a);
|
|
7214
7289
|
}
|
|
7215
7290
|
default: {
|
|
7216
|
-
const $
|
|
7291
|
+
const $217 = c => {
|
|
7217
7292
|
switch(ShellCompletion_Util_matches($0, '--draft', c)) {
|
|
7218
7293
|
case 1: return 1;
|
|
7219
7294
|
case 0: return ShellCompletion_Util_matches($0, '--print-tree', c);
|
|
7220
7295
|
}
|
|
7221
7296
|
};
|
|
7222
|
-
const $
|
|
7223
|
-
const $
|
|
7224
|
-
let $
|
|
7297
|
+
const $214 = Prelude_Types_List_filterAppend({h: 0}, $217, ShellCompletion_Common_allPrCmdOpts($0));
|
|
7298
|
+
const $210 = ShellCompletion_Util_someWithPrefixOrNothing($0, $2, $214);
|
|
7299
|
+
let $224;
|
|
7225
7300
|
switch(Util_String_isHashPrefix($2)) {
|
|
7226
7301
|
case 1: {
|
|
7227
|
-
$
|
|
7302
|
+
$224 = () => ({h: 0});
|
|
7228
7303
|
break;
|
|
7229
7304
|
}
|
|
7230
7305
|
case 0: {
|
|
7231
|
-
$
|
|
7306
|
+
$224 = () => ({a1: {h: 0}});
|
|
7232
7307
|
break;
|
|
7233
7308
|
}
|
|
7234
7309
|
}
|
|
7235
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($
|
|
7310
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($210, $224);
|
|
7236
7311
|
}
|
|
7237
7312
|
}
|
|
7238
7313
|
}
|
|
@@ -7246,62 +7321,62 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
7246
7321
|
case '--into': return {h: 0};
|
|
7247
7322
|
case '--ready': return ShellCompletion_Util_someFrom($0, csegen_157(), ShellCompletion_Common_allPrCmdOpts($0));
|
|
7248
7323
|
case 'pr': {
|
|
7249
|
-
let $
|
|
7324
|
+
let $240;
|
|
7250
7325
|
switch(Util_String_isHashPrefix($2)) {
|
|
7251
7326
|
case 1: {
|
|
7252
|
-
$
|
|
7327
|
+
$240 = () => ({h: 0});
|
|
7253
7328
|
break;
|
|
7254
7329
|
}
|
|
7255
7330
|
case 0: {
|
|
7256
|
-
$
|
|
7331
|
+
$240 = () => ({a1: {h: 0}});
|
|
7257
7332
|
break;
|
|
7258
7333
|
}
|
|
7259
7334
|
}
|
|
7260
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $
|
|
7335
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $240);
|
|
7261
7336
|
}
|
|
7262
7337
|
case '--draft': {
|
|
7263
|
-
const $
|
|
7338
|
+
const $24d = c => {
|
|
7264
7339
|
switch(ShellCompletion_Util_matches($0, '--into', c)) {
|
|
7265
7340
|
case 1: return 1;
|
|
7266
7341
|
case 0: return ShellCompletion_Util_matches($0, '--print-tree', c);
|
|
7267
7342
|
}
|
|
7268
7343
|
};
|
|
7269
|
-
const $
|
|
7270
|
-
const $
|
|
7271
|
-
let $
|
|
7344
|
+
const $24a = Prelude_Types_List_filterAppend({h: 0}, $24d, ShellCompletion_Common_allPrCmdOpts($0));
|
|
7345
|
+
const $246 = ShellCompletion_Util_someWithPrefixOrNothing($0, $2, $24a);
|
|
7346
|
+
let $25a;
|
|
7272
7347
|
switch(Util_String_isHashPrefix($2)) {
|
|
7273
7348
|
case 1: {
|
|
7274
|
-
$
|
|
7349
|
+
$25a = () => ({h: 0});
|
|
7275
7350
|
break;
|
|
7276
7351
|
}
|
|
7277
7352
|
case 0: {
|
|
7278
|
-
$
|
|
7353
|
+
$25a = () => ({a1: {h: 0}});
|
|
7279
7354
|
break;
|
|
7280
7355
|
}
|
|
7281
7356
|
}
|
|
7282
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($
|
|
7357
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($246, $25a);
|
|
7283
7358
|
}
|
|
7284
7359
|
default: {
|
|
7285
|
-
const $
|
|
7360
|
+
const $267 = c => {
|
|
7286
7361
|
switch(ShellCompletion_Util_matches($0, '--draft', c)) {
|
|
7287
7362
|
case 1: return 1;
|
|
7288
7363
|
case 0: return ShellCompletion_Util_matches($0, '--print-tree', c);
|
|
7289
7364
|
}
|
|
7290
7365
|
};
|
|
7291
|
-
const $
|
|
7292
|
-
const $
|
|
7293
|
-
let $
|
|
7366
|
+
const $264 = Prelude_Types_List_filterAppend({h: 0}, $267, ShellCompletion_Common_allPrCmdOpts($0));
|
|
7367
|
+
const $260 = ShellCompletion_Util_someWithPrefixOrNothing($0, $2, $264);
|
|
7368
|
+
let $274;
|
|
7294
7369
|
switch(Util_String_isHashPrefix($2)) {
|
|
7295
7370
|
case 1: {
|
|
7296
|
-
$
|
|
7371
|
+
$274 = () => ({h: 0});
|
|
7297
7372
|
break;
|
|
7298
7373
|
}
|
|
7299
7374
|
case 0: {
|
|
7300
|
-
$
|
|
7375
|
+
$274 = () => ({a1: {h: 0}});
|
|
7301
7376
|
break;
|
|
7302
7377
|
}
|
|
7303
7378
|
}
|
|
7304
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($
|
|
7379
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($260, $274);
|
|
7305
7380
|
}
|
|
7306
7381
|
}
|
|
7307
7382
|
}
|
|
@@ -7312,62 +7387,62 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
7312
7387
|
case '--into': return {h: 0};
|
|
7313
7388
|
case '--ready': return ShellCompletion_Util_someFrom($0, csegen_157(), ShellCompletion_Common_allPrCmdOpts($0));
|
|
7314
7389
|
case 'pr': {
|
|
7315
|
-
let $
|
|
7390
|
+
let $289;
|
|
7316
7391
|
switch(Util_String_isHashPrefix($2)) {
|
|
7317
7392
|
case 1: {
|
|
7318
|
-
$
|
|
7393
|
+
$289 = () => ({h: 0});
|
|
7319
7394
|
break;
|
|
7320
7395
|
}
|
|
7321
7396
|
case 0: {
|
|
7322
|
-
$
|
|
7397
|
+
$289 = () => ({a1: {h: 0}});
|
|
7323
7398
|
break;
|
|
7324
7399
|
}
|
|
7325
7400
|
}
|
|
7326
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $
|
|
7401
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(ShellCompletion_Util_someWithPrefixOrNothing($0, $2, ShellCompletion_Common_allPrCmdOpts($0)), $289);
|
|
7327
7402
|
}
|
|
7328
7403
|
case '--draft': {
|
|
7329
|
-
const $
|
|
7404
|
+
const $296 = c => {
|
|
7330
7405
|
switch(ShellCompletion_Util_matches($0, '--into', c)) {
|
|
7331
7406
|
case 1: return 1;
|
|
7332
7407
|
case 0: return ShellCompletion_Util_matches($0, '--print-tree', c);
|
|
7333
7408
|
}
|
|
7334
7409
|
};
|
|
7335
|
-
const $
|
|
7336
|
-
const $
|
|
7337
|
-
let $
|
|
7410
|
+
const $293 = Prelude_Types_List_filterAppend({h: 0}, $296, ShellCompletion_Common_allPrCmdOpts($0));
|
|
7411
|
+
const $28f = ShellCompletion_Util_someWithPrefixOrNothing($0, $2, $293);
|
|
7412
|
+
let $2a3;
|
|
7338
7413
|
switch(Util_String_isHashPrefix($2)) {
|
|
7339
7414
|
case 1: {
|
|
7340
|
-
$
|
|
7415
|
+
$2a3 = () => ({h: 0});
|
|
7341
7416
|
break;
|
|
7342
7417
|
}
|
|
7343
7418
|
case 0: {
|
|
7344
|
-
$
|
|
7419
|
+
$2a3 = () => ({a1: {h: 0}});
|
|
7345
7420
|
break;
|
|
7346
7421
|
}
|
|
7347
7422
|
}
|
|
7348
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($
|
|
7423
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($28f, $2a3);
|
|
7349
7424
|
}
|
|
7350
7425
|
default: {
|
|
7351
|
-
const $
|
|
7426
|
+
const $2b0 = c => {
|
|
7352
7427
|
switch(ShellCompletion_Util_matches($0, '--draft', c)) {
|
|
7353
7428
|
case 1: return 1;
|
|
7354
7429
|
case 0: return ShellCompletion_Util_matches($0, '--print-tree', c);
|
|
7355
7430
|
}
|
|
7356
7431
|
};
|
|
7357
|
-
const $
|
|
7358
|
-
const $
|
|
7359
|
-
let $
|
|
7432
|
+
const $2ad = Prelude_Types_List_filterAppend({h: 0}, $2b0, ShellCompletion_Common_allPrCmdOpts($0));
|
|
7433
|
+
const $2a9 = ShellCompletion_Util_someWithPrefixOrNothing($0, $2, $2ad);
|
|
7434
|
+
let $2bd;
|
|
7360
7435
|
switch(Util_String_isHashPrefix($2)) {
|
|
7361
7436
|
case 1: {
|
|
7362
|
-
$
|
|
7437
|
+
$2bd = () => ({h: 0});
|
|
7363
7438
|
break;
|
|
7364
7439
|
}
|
|
7365
7440
|
case 0: {
|
|
7366
|
-
$
|
|
7441
|
+
$2bd = () => ({a1: {h: 0}});
|
|
7367
7442
|
break;
|
|
7368
7443
|
}
|
|
7369
7444
|
}
|
|
7370
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($
|
|
7445
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe($2a9, $2bd);
|
|
7371
7446
|
}
|
|
7372
7447
|
}
|
|
7373
7448
|
}
|
|
@@ -7394,7 +7469,12 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
7394
7469
|
default: {
|
|
7395
7470
|
switch($3) {
|
|
7396
7471
|
case 'config': return ShellCompletion_Util_someWithPrefix($0, $2, ShellCompletion_Common_allSettableProps($0));
|
|
7397
|
-
default:
|
|
7472
|
+
default: {
|
|
7473
|
+
switch($2) {
|
|
7474
|
+
case '--': return ShellCompletion_Util_all($0, ShellCompletion_Common_allSettableValuesForProp($0, $3));
|
|
7475
|
+
default: return ShellCompletion_Util_someWithPrefix($0, $2, ShellCompletion_Common_allSettableValuesForProp($0, $3));
|
|
7476
|
+
}
|
|
7477
|
+
}
|
|
7398
7478
|
}
|
|
7399
7479
|
}
|
|
7400
7480
|
}
|
|
@@ -7402,7 +7482,12 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
7402
7482
|
default: {
|
|
7403
7483
|
switch($3) {
|
|
7404
7484
|
case 'config': return ShellCompletion_Util_someWithPrefix($0, $2, ShellCompletion_Common_allSettableProps($0));
|
|
7405
|
-
default:
|
|
7485
|
+
default: {
|
|
7486
|
+
switch($2) {
|
|
7487
|
+
case '--': return ShellCompletion_Util_all($0, ShellCompletion_Common_allSettableValuesForProp($0, $3));
|
|
7488
|
+
default: return ShellCompletion_Util_someWithPrefix($0, $2, ShellCompletion_Common_allSettableValuesForProp($0, $3));
|
|
7489
|
+
}
|
|
7490
|
+
}
|
|
7406
7491
|
}
|
|
7407
7492
|
}
|
|
7408
7493
|
}
|
|
@@ -7415,6 +7500,11 @@ function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
|
7415
7500
|
}
|
|
7416
7501
|
}
|
|
7417
7502
|
|
|
7503
|
+
/* ShellCompletion.Common.allSettableValuesForProp : (s : CompletionStyle) -> String -> List CompletionResult */
|
|
7504
|
+
function ShellCompletion_Common_allSettableValuesForProp($0, $1) {
|
|
7505
|
+
return ShellCompletion_Common_with__allSettableValuesForProp_13607($1, Data_Config_settablePropNamed($1), $0);
|
|
7506
|
+
}
|
|
7507
|
+
|
|
7418
7508
|
/* ShellCompletion.Common.allSettableProps : (s : CompletionStyle) -> List CompletionResult */
|
|
7419
7509
|
function ShellCompletion_Common_allSettableProps($0) {
|
|
7420
7510
|
return Prelude_Types_List_mapAppend({h: 0}, $4 => Data_CompletionStyle_completionResult($0, $4), Data_Config_settablePropNamesAndHelp());
|
|
@@ -9709,13 +9799,13 @@ function Data_PullRequest_isAuthor($0, $1) {
|
|
|
9709
9799
|
return Prelude_EqOrd_x3dx3d_Eq_String($1.a5, $0);
|
|
9710
9800
|
}
|
|
9711
9801
|
|
|
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.
|
|
9802
|
+
/* Data.Config.10438:7800:personalAccessToken */
|
|
9803
|
+
function Data_Config_n__10438_7800_personalAccessToken($0) {
|
|
9804
|
+
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
9805
|
}
|
|
9716
9806
|
|
|
9717
|
-
/* Data.Config.
|
|
9718
|
-
function
|
|
9807
|
+
/* Data.Config.11092:8446:parseConfigJson */
|
|
9808
|
+
function Data_Config_n__11092_8446_parseConfigJson($0, $1) {
|
|
9719
9809
|
switch($1.h) {
|
|
9720
9810
|
case 6: /* JObject */ {
|
|
9721
9811
|
const $22 = $23 => {
|
|
@@ -9723,19 +9813,20 @@ function Data_Config_n__10530_7894_parseConfigJson($0, $1) {
|
|
|
9723
9813
|
const $38 = Data_List_lookup(csegen_76(), 'githubUser', $1.a1);
|
|
9724
9814
|
const $3e = Data_List_lookup(csegen_76(), 'branchParsing', $1.a1);
|
|
9725
9815
|
const $44 = Data_List_lookup(csegen_76(), 'addPrTreeDescription', $1.a1);
|
|
9726
|
-
const $
|
|
9727
|
-
|
|
9728
|
-
|
|
9816
|
+
const $4a = Data_List_lookup(csegen_76(), 'bugfixPRTitlePrefix', $1.a1);
|
|
9817
|
+
const $52 = Language_JSON_Accessors_integer($23.a1);
|
|
9818
|
+
let $51;
|
|
9819
|
+
switch($52.h) {
|
|
9729
9820
|
case 0: /* Left */ {
|
|
9730
|
-
$
|
|
9821
|
+
$51 = {h: 0 /* Left */, a1: $52.a1};
|
|
9731
9822
|
break;
|
|
9732
9823
|
}
|
|
9733
9824
|
case 1: /* Right */ {
|
|
9734
|
-
$
|
|
9825
|
+
$51 = {h: 1 /* Right */, a1: Number(_truncUBigInt32($52.a1))};
|
|
9735
9826
|
break;
|
|
9736
9827
|
}
|
|
9737
9828
|
}
|
|
9738
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($
|
|
9829
|
+
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
9830
|
};
|
|
9740
9831
|
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
9832
|
}
|
|
@@ -9755,7 +9846,7 @@ function Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($0) {
|
|
|
9755
9846
|
|
|
9756
9847
|
/* Data.Config.show */
|
|
9757
9848
|
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.
|
|
9849
|
+
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__10438_7800_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
9850
|
}
|
|
9760
9851
|
|
|
9761
9852
|
/* Data.Config.CommentStrategy.show */
|
|
@@ -9772,29 +9863,45 @@ function Data_Config_show_Show_x28Hiddenx20x24ax29($0) {
|
|
|
9772
9863
|
return 'xxxxxxxx (hidden)';
|
|
9773
9864
|
}
|
|
9774
9865
|
|
|
9866
|
+
/* Data.Config.(.strValue) : Options -> String */
|
|
9867
|
+
function Data_Config_rf__strValue($0) {
|
|
9868
|
+
switch($0.h) {
|
|
9869
|
+
case 0: /* Enum */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $7 => $7, Data_List_intersperse('/', $0.a1));
|
|
9870
|
+
case 1: /* Any */ return $0.a1;
|
|
9871
|
+
}
|
|
9872
|
+
}
|
|
9873
|
+
|
|
9775
9874
|
/* Data.Config.(.filepath) : Config -> String */
|
|
9776
9875
|
function Data_Config_rf__filepath($0) {
|
|
9777
|
-
return $0.
|
|
9876
|
+
return $0.a19.a1;
|
|
9877
|
+
}
|
|
9878
|
+
|
|
9879
|
+
/* Data.Config.(.enumeratedOptions) : Options -> List String */
|
|
9880
|
+
function Data_Config_rf__enumeratedOptions($0) {
|
|
9881
|
+
switch($0.h) {
|
|
9882
|
+
case 0: /* Enum */ return $0.a1;
|
|
9883
|
+
case 1: /* Any */ return {h: 0};
|
|
9884
|
+
}
|
|
9778
9885
|
}
|
|
9779
9886
|
|
|
9780
9887
|
/* Data.Config.(.editor) : Config -> Maybe String */
|
|
9781
9888
|
function Data_Config_rf__editor($0) {
|
|
9782
|
-
return $0.
|
|
9889
|
+
return $0.a19.a4;
|
|
9783
9890
|
}
|
|
9784
9891
|
|
|
9785
9892
|
/* Data.Config.(.columns) : Config -> Nat */
|
|
9786
9893
|
function Data_Config_rf__columns($0) {
|
|
9787
|
-
return $0.
|
|
9894
|
+
return $0.a19.a3;
|
|
9788
9895
|
}
|
|
9789
9896
|
|
|
9790
9897
|
/* Data.Config.(.colors) : Config -> Bool */
|
|
9791
9898
|
function Data_Config_rf__colors($0) {
|
|
9792
|
-
return $0.
|
|
9899
|
+
return $0.a19.a2;
|
|
9793
9900
|
}
|
|
9794
9901
|
|
|
9795
9902
|
/* Data.Config.settableProps : List SomeSettableProp */
|
|
9796
9903
|
const Data_Config_settableProps = __lazy(function () {
|
|
9797
|
-
return {a1: {a1: 'requestTeams', a2:
|
|
9904
|
+
return {a1: {a1: 'requestTeams', a2: csegen_345()}, a2: {a1: {a1: 'requestUsers', a2: csegen_349()}, a2: {a1: {a1: 'commentOnRequest', a2: csegen_356()}, a2: {a1: {a1: 'branchParsing', a2: csegen_363()}, a2: {a1: {a1: 'bugfixPRTitlePrefix', a2: csegen_367()}, a2: {a1: {a1: 'addPrTreeDescription', a2: csegen_371()}, a2: {a1: {a1: 'defaultRemote', a2: csegen_373()}, a2: {a1: {a1: 'mainBranch', a2: csegen_375()}, a2: {a1: {a1: 'theme', a2: csegen_380()}, a2: {a1: {a1: 'githubPAT', a2: csegen_384()}, a2: {h: 0}}}}}}}}}}};
|
|
9798
9905
|
});
|
|
9799
9906
|
|
|
9800
9907
|
/* Data.Config.settablePropNamesAndHelp : List (String, String) */
|
|
@@ -9813,16 +9920,38 @@ function Data_Config_settablePropNamed($0) {
|
|
|
9813
9920
|
case 'requestTeams': return {a1: 0};
|
|
9814
9921
|
case 'commentOnRequest': return {a1: 2};
|
|
9815
9922
|
case 'branchParsing': return {a1: 3};
|
|
9816
|
-
case '
|
|
9817
|
-
case '
|
|
9818
|
-
case '
|
|
9819
|
-
case '
|
|
9820
|
-
case '
|
|
9923
|
+
case 'bugfixPRTitlePrefix': return {a1: 4};
|
|
9924
|
+
case 'addPrTreeDescription': return {a1: 5};
|
|
9925
|
+
case 'defaultRemote': return {a1: 6};
|
|
9926
|
+
case 'mainBranch': return {a1: 7};
|
|
9927
|
+
case 'theme': return {a1: 8};
|
|
9928
|
+
case 'githubPAT': return {a1: 9};
|
|
9821
9929
|
case 'requestUsers': return {a1: 1};
|
|
9822
9930
|
default: return {h: 0};
|
|
9823
9931
|
}
|
|
9824
9932
|
}
|
|
9825
9933
|
|
|
9934
|
+
/* Data.Config.reifyProp : Exists (SettableProp name) -> (h : (Options, String) ** SettableProp name h) */
|
|
9935
|
+
function Data_Config_reifyProp($0) {
|
|
9936
|
+
switch($0) {
|
|
9937
|
+
case 0: return csegen_345();
|
|
9938
|
+
case 1: return csegen_349();
|
|
9939
|
+
case 2: return csegen_356();
|
|
9940
|
+
case 3: return csegen_363();
|
|
9941
|
+
case 4: return csegen_367();
|
|
9942
|
+
case 5: return csegen_371();
|
|
9943
|
+
case 6: return csegen_373();
|
|
9944
|
+
case 7: return csegen_375();
|
|
9945
|
+
case 8: return csegen_380();
|
|
9946
|
+
case 9: return csegen_384();
|
|
9947
|
+
}
|
|
9948
|
+
}
|
|
9949
|
+
|
|
9950
|
+
/* Data.Config.propOptions : SettableProp n h -> List String */
|
|
9951
|
+
function Data_Config_propOptions($0, $1) {
|
|
9952
|
+
return Data_Config_rf__enumeratedOptions(Builtin_fst($0));
|
|
9953
|
+
}
|
|
9954
|
+
|
|
9826
9955
|
/* Data.Config.propName' : SomeSettableProp -> String */
|
|
9827
9956
|
function Data_Config_propNamex27($0) {
|
|
9828
9957
|
return $0.a1;
|
|
@@ -9830,12 +9959,17 @@ function Data_Config_propNamex27($0) {
|
|
|
9830
9959
|
|
|
9831
9960
|
/* Data.Config.propHelp' : SomeSettableProp -> String */
|
|
9832
9961
|
function Data_Config_propHelpx27($0) {
|
|
9833
|
-
return $0.a2.a1;
|
|
9962
|
+
return Data_Config_propHelp($0.a2.a1, $0.a2.a2);
|
|
9963
|
+
}
|
|
9964
|
+
|
|
9965
|
+
/* Data.Config.propHelp : SettableProp n h -> String */
|
|
9966
|
+
function Data_Config_propHelp($0, $1) {
|
|
9967
|
+
return (Prelude_Types_foldMap_Foldable_List(csegen_86()(), $8 => $8, {a1: '[', a2: {a1: Data_Config_rf__strValue(Builtin_fst($0)), a2: {a1: '] ', a2: {h: 0}}}})+Builtin_snd($0));
|
|
9834
9968
|
}
|
|
9835
9969
|
|
|
9836
9970
|
/* Data.Config.parseConfig : Ephemeral -> String -> Either String Config */
|
|
9837
9971
|
function Data_Config_parseConfig($0, $1) {
|
|
9838
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_241(), csegen_288(), $8 =>
|
|
9972
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_241(), csegen_288(), $8 => Data_Config_n__11092_8446_parseConfigJson($0, $8), $1);
|
|
9839
9973
|
}
|
|
9840
9974
|
|
|
9841
9975
|
/* Data.Config.CommentStrategy.parseCommentConfig : String -> Maybe CommentStrategy */
|
|
@@ -9866,7 +10000,7 @@ const Data_Config_longestSettablePropName = __lazy(function () {
|
|
|
9866
10000
|
|
|
9867
10001
|
/* Data.Config.json : Config -> JSON */
|
|
9868
10002
|
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.
|
|
10003
|
+
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_409(), $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_409(), $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_409(), $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_412(), 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
10004
|
}
|
|
9871
10005
|
|
|
9872
10006
|
/* Data.Config.filename : String */
|
|
@@ -9876,14 +10010,19 @@ const Data_Config_filename = __lazy(function () {
|
|
|
9876
10010
|
|
|
9877
10011
|
/* Data.Config.commentConfig : JSON -> Either String CommentStrategy */
|
|
9878
10012
|
function Data_Config_commentConfig($0) {
|
|
9879
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_241(),
|
|
10013
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_241(), csegen_420(), $7 => Data_Either_maybeToEither(() => '', Data_Config_CommentStrategy_parseCommentConfig($7)), $0);
|
|
9880
10014
|
}
|
|
9881
10015
|
|
|
9882
10016
|
/* Data.Config.branchConfig : JSON -> Either String ParseBranchStrategy */
|
|
9883
10017
|
function Data_Config_branchConfig($0) {
|
|
9884
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_241(),
|
|
10018
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_241(), csegen_420(), $7 => Data_Either_maybeToEither(() => '', Data_Config_ParseBranchStrategy_parseBranchConfig($7)), $0);
|
|
9885
10019
|
}
|
|
9886
10020
|
|
|
10021
|
+
/* Data.Config.booleanOptions : Options */
|
|
10022
|
+
const Data_Config_booleanOptions = __lazy(function () {
|
|
10023
|
+
return {h: 0 /* Enum */, a1: {a1: 'true', a2: {a1: 'false', a2: {h: 0}}}};
|
|
10024
|
+
});
|
|
10025
|
+
|
|
9887
10026
|
/* Data.Theme.show */
|
|
9888
10027
|
function Data_Theme_show_Show_Theme($0) {
|
|
9889
10028
|
switch($0) {
|
|
@@ -9912,13 +10051,13 @@ function Util_Prompting_with__yesNoPromptx2cyesUnlessNo_1370($0, $1, $2, $3, $4,
|
|
|
9912
10051
|
}
|
|
9913
10052
|
}
|
|
9914
10053
|
|
|
9915
|
-
/* Util.Prompting.
|
|
9916
|
-
function
|
|
10054
|
+
/* Util.Prompting.5953:1362:yesUnlessNo */
|
|
10055
|
+
function Util_Prompting_n__5953_1362_yesUnlessNo($0, $1, $2, $3) {
|
|
9917
10056
|
return Util_Prompting_with__yesNoPromptx2cyesUnlessNo_1370(undefined, $0, $1, $2, $3, Data_String_toLower($3));
|
|
9918
10057
|
}
|
|
9919
10058
|
|
|
9920
|
-
/* Util.Prompting.
|
|
9921
|
-
function
|
|
10059
|
+
/* Util.Prompting.6464:1857:readTemplate */
|
|
10060
|
+
function Util_Prompting_n__6464_1857_readTemplate($0, $1, $2, $3, $4) {
|
|
9922
10061
|
const $11 = $12 => {
|
|
9923
10062
|
switch($12) {
|
|
9924
10063
|
case 0: return $0.a1.a1.a2(undefined)('');
|
|
@@ -9936,8 +10075,8 @@ function Util_Prompting_n__6395_1857_readTemplate($0, $1, $2, $3, $4) {
|
|
|
9936
10075
|
return $0.a1.a2(undefined)(undefined)(System_File_Meta_exists($0, $4))($11);
|
|
9937
10076
|
}
|
|
9938
10077
|
|
|
9939
|
-
/* Util.
|
|
9940
|
-
function
|
|
10078
|
+
/* Util.5840:1244:getMoreLines */
|
|
10079
|
+
function Util_n__5840_1244_getMoreLines($0, $1, $2) {
|
|
9941
10080
|
switch($2.h) {
|
|
9942
10081
|
case 0: /* nothing */ return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1));
|
|
9943
10082
|
case undefined: /* just */ {
|
|
@@ -9948,13 +10087,13 @@ function Util_n__5771_1244_getMoreLines($0, $1, $2) {
|
|
|
9948
10087
|
case '': {
|
|
9949
10088
|
switch(line) {
|
|
9950
10089
|
case '': return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1.a2));
|
|
9951
|
-
default: return
|
|
10090
|
+
default: return Util_n__5840_1244_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
9952
10091
|
}
|
|
9953
10092
|
}
|
|
9954
|
-
default: return
|
|
10093
|
+
default: return Util_n__5840_1244_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
9955
10094
|
}
|
|
9956
10095
|
}
|
|
9957
|
-
default: return
|
|
10096
|
+
default: return Util_n__5840_1244_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
9958
10097
|
}
|
|
9959
10098
|
};
|
|
9960
10099
|
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 +10101,13 @@ function Util_n__5771_1244_getMoreLines($0, $1, $2) {
|
|
|
9962
10101
|
}
|
|
9963
10102
|
}
|
|
9964
10103
|
|
|
9965
|
-
/* Util.Prompting.
|
|
9966
|
-
function
|
|
10104
|
+
/* Util.Prompting.6121:1516:defaultStr */
|
|
10105
|
+
function Util_Prompting_n__6121_1516_defaultStr($0, $1) {
|
|
9967
10106
|
return Prelude_Types_maybe(() => '', () => $5 => Util_Prompting_enterForDefaultStr($5), $0);
|
|
9968
10107
|
}
|
|
9969
10108
|
|
|
9970
|
-
/* Util.Prompting.
|
|
9971
|
-
function
|
|
10109
|
+
/* Util.Prompting.5953:1361:defaultAnswerStr */
|
|
10110
|
+
function Util_Prompting_n__5953_1361_defaultAnswerStr($0, $1, $2) {
|
|
9972
10111
|
switch($1) {
|
|
9973
10112
|
case 0: return 'y/N';
|
|
9974
10113
|
case 1: return 'Y/n';
|
|
@@ -9977,7 +10116,7 @@ function Util_Prompting_n__5884_1361_defaultAnswerStr($0, $1, $2) {
|
|
|
9977
10116
|
|
|
9978
10117
|
/* Util.Prompting.yesNoPrompt : HasIO io => {default True _ : Bool} -> String -> io Bool */
|
|
9979
10118
|
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:
|
|
10119
|
+
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__5953_1361_defaultAnswerStr($0, $1, $2), a2: {a1: '] ', a2: {h: 0}}}}}), $11)))($29 => $0.a1.a1.a1(undefined)(undefined)($34 => Util_Prompting_n__5953_1362_yesUnlessNo($0, $1, $2, Data_String_trim($34)))($0.a2(undefined)($42 => Prelude_IO_prim__getStr($42))));
|
|
9981
10120
|
}
|
|
9982
10121
|
|
|
9983
10122
|
/* Util.whenNothing : Applicative f => Maybe a -> f () -> f () */
|
|
@@ -10014,7 +10153,7 @@ function Util_Prompting_prepareDescriptionFile($0, $1, $2, $3) {
|
|
|
10014
10153
|
const $20 = Prelude_Types_foldMap_Foldable_List(csegen_86()(), $26 => $26, {a1: $2, a2: {a1: '\n', a2: {a1: templateContents, a2: {h: 0}}}});
|
|
10015
10154
|
return $0.a1.a1.a1(undefined)(undefined)($38 => undefined)(System_File_ReadWrite_writeFile($0, $3, $20));
|
|
10016
10155
|
};
|
|
10017
|
-
return $0.a1.a2(undefined)(undefined)(Prelude_Types_maybe(() => $0.a1.a1.a2(undefined)(''), () => $17 =>
|
|
10156
|
+
return $0.a1.a2(undefined)(undefined)(Prelude_Types_maybe(() => $0.a1.a1.a2(undefined)(''), () => $17 => Util_Prompting_n__6464_1857_readTemplate($0, $3, $2, $1, $17), $1))($1f);
|
|
10018
10157
|
}
|
|
10019
10158
|
|
|
10020
10159
|
/* Util.Prompting.orIfEmpty : Maybe String -> String -> String */
|
|
@@ -10097,7 +10236,7 @@ function Util_Prompting_inlineDescription($0, $1, $2) {
|
|
|
10097
10236
|
|
|
10098
10237
|
/* Util.getManyLines : HasIO io => Fuel -> io (List String) */
|
|
10099
10238
|
function Util_getManyLines($0, $1) {
|
|
10100
|
-
return
|
|
10239
|
+
return Util_n__5840_1244_getMoreLines($0, {h: 0}, $1);
|
|
10101
10240
|
}
|
|
10102
10241
|
|
|
10103
10242
|
/* Util.Prompting.getLineEnterForDefault : HasIO io => String -> Maybe String -> io String */
|
|
@@ -10112,7 +10251,7 @@ function Util_Prompting_enterForDefaultStr($0) {
|
|
|
10112
10251
|
|
|
10113
10252
|
/* Util.Prompting.enterForDefaultPrompt : String -> Maybe String -> String */
|
|
10114
10253
|
function Util_Prompting_enterForDefaultPrompt($0, $1) {
|
|
10115
|
-
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $7 => $7, {a1: $0, a2: {a1:
|
|
10254
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $7 => $7, {a1: $0, a2: {a1: Util_Prompting_n__6121_1516_defaultStr($1, $0), a2: {h: 0}}});
|
|
10116
10255
|
}
|
|
10117
10256
|
|
|
10118
10257
|
/* Util.Prompting.editorDescription : HasIO io => String -> Maybe String -> String -> io (Either FileError String) */
|
|
@@ -10170,7 +10309,7 @@ function System_getEnv($0, $1) {
|
|
|
10170
10309
|
function System_getArgs($0) {
|
|
10171
10310
|
const $12 = n => {
|
|
10172
10311
|
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:
|
|
10312
|
+
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_429(), 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_429(), 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
10313
|
case 0: return $0.a1.a1.a2(undefined)({h: 0});
|
|
10175
10314
|
}
|
|
10176
10315
|
};
|
|
@@ -10202,7 +10341,7 @@ function FFI_Term_termCols($0) {
|
|
|
10202
10341
|
}
|
|
10203
10342
|
|
|
10204
10343
|
/* Config.with block in getConfig */
|
|
10205
|
-
function
|
|
10344
|
+
function Config_with__getConfig_2550($0, $1, $2, $3) {
|
|
10206
10345
|
return $4 => {
|
|
10207
10346
|
switch($1.h) {
|
|
10208
10347
|
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 +10351,7 @@ function Config_with__getConfig_2476($0, $1, $2, $3) {
|
|
|
10212
10351
|
}
|
|
10213
10352
|
|
|
10214
10353
|
/* Config.with block in with block in setConfig */
|
|
10215
|
-
function
|
|
10354
|
+
function Config_with__withx20blockx20inx20setConfig_2356($0, $1, $2, $3, $4, $5, $6) {
|
|
10216
10355
|
return $7 => {
|
|
10217
10356
|
switch($5.h) {
|
|
10218
10357
|
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 +10361,15 @@ function Config_with__withx20blockx20inx20setConfig_2295($0, $1, $2, $3, $4, $5,
|
|
|
10222
10361
|
}
|
|
10223
10362
|
|
|
10224
10363
|
/* Config.with block in setConfig */
|
|
10225
|
-
function
|
|
10364
|
+
function Config_with__setConfig_2322($0, $1, $2, $3) {
|
|
10226
10365
|
switch($1.h) {
|
|
10227
10366
|
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 =>
|
|
10367
|
+
case undefined: /* just */ return $16 => Config_with__withx20blockx20inx20setConfig_2356(undefined, $0, $1.a1, $3, $2, Config_propSetter($1.a1, $3)($2), $16);
|
|
10229
10368
|
}
|
|
10230
10369
|
}
|
|
10231
10370
|
|
|
10232
10371
|
/* Config.with block in parseBool */
|
|
10233
|
-
function
|
|
10372
|
+
function Config_with__parseBool_1721($0, $1) {
|
|
10234
10373
|
switch($1) {
|
|
10235
10374
|
case 'yes': return {a1: 1};
|
|
10236
10375
|
case 'true': return {a1: 1};
|
|
@@ -10241,7 +10380,7 @@ function Config_with__parseBool_1719($0, $1) {
|
|
|
10241
10380
|
}
|
|
10242
10381
|
|
|
10243
10382
|
/* Config.with block in dropPrefix',drop' */
|
|
10244
|
-
function
|
|
10383
|
+
function Config_with__dropPrefixx27x2cdropx27_1546($0, $1, $2) {
|
|
10245
10384
|
switch($2.h) {
|
|
10246
10385
|
case 0: /* Yes */ return {a1: $2.a1.a1};
|
|
10247
10386
|
case 1: /* No */ return {h: 0};
|
|
@@ -10249,7 +10388,7 @@ function Config_with__dropPrefixx27x2cdropx27_1544($0, $1, $2) {
|
|
|
10249
10388
|
}
|
|
10250
10389
|
|
|
10251
10390
|
/* Config.case block in parseGitHubURI,parseSuffix */
|
|
10252
|
-
function
|
|
10391
|
+
function Config_case__parseGitHubURIx2cparseSuffix_1607($0, $1, $2) {
|
|
10253
10392
|
const $b = $c => {
|
|
10254
10393
|
switch($c.h) {
|
|
10255
10394
|
case undefined: /* cons */ {
|
|
@@ -10266,63 +10405,63 @@ function Config_case__parseGitHubURIx2cparseSuffix_1605($0, $1, $2) {
|
|
|
10266
10405
|
default: return {h: 0};
|
|
10267
10406
|
}
|
|
10268
10407
|
};
|
|
10269
|
-
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(
|
|
10408
|
+
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_449(), $2.a1)}, $b);
|
|
10270
10409
|
}
|
|
10271
10410
|
|
|
10272
|
-
/* Config.
|
|
10273
|
-
function
|
|
10411
|
+
/* Config.9982:2702:themePrompt */
|
|
10412
|
+
function Config_n__9982_2702_themePrompt($0, $1, $2, $3, $4) {
|
|
10274
10413
|
const $5 = Util_Prompting_enterForDefaultStr('dark');
|
|
10275
10414
|
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
10415
|
}
|
|
10277
10416
|
|
|
10278
|
-
/* Config.
|
|
10279
|
-
function
|
|
10417
|
+
/* Config.9982:2701:repo */
|
|
10418
|
+
function Config_n__9982_2701_repo($0, $1, $2, $3, $4) {
|
|
10280
10419
|
return Prelude_Types_map_Functor_Maybe(csegen_272()(), $4);
|
|
10281
10420
|
}
|
|
10282
10421
|
|
|
10283
|
-
/* Config.
|
|
10284
|
-
function
|
|
10285
|
-
return
|
|
10422
|
+
/* Config.8910:1587:parseSuffix */
|
|
10423
|
+
function Config_n__8910_1587_parseSuffix($0, $1) {
|
|
10424
|
+
return Config_case__parseGitHubURIx2cparseSuffix_1607($0, $1, Data_String_break$($8 => Prelude_EqOrd_x3dx3d_Eq_Char($8, '.'), $1));
|
|
10286
10425
|
}
|
|
10287
10426
|
|
|
10288
|
-
/* Config.
|
|
10289
|
-
function
|
|
10290
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b =>
|
|
10427
|
+
/* Config.8910:1586:parseSSH */
|
|
10428
|
+
function Config_n__8910_1586_parseSSH($0, $1) {
|
|
10429
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b => Config_n__8910_1587_parseSuffix($0, $b), $1);
|
|
10291
10430
|
}
|
|
10292
10431
|
|
|
10293
|
-
/* Config.
|
|
10294
|
-
function
|
|
10295
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b =>
|
|
10432
|
+
/* Config.8910:1585:parseHTTPS */
|
|
10433
|
+
function Config_n__8910_1585_parseHTTPS($0, $1) {
|
|
10434
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b => Config_n__8910_1587_parseSuffix($0, $b), $1);
|
|
10296
10435
|
}
|
|
10297
10436
|
|
|
10298
|
-
/* Config.
|
|
10299
|
-
function
|
|
10300
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
10437
|
+
/* Config.9982:2700:org */
|
|
10438
|
+
function Config_n__9982_2700_org($0, $1, $2, $3, $4) {
|
|
10439
|
+
return Prelude_Types_map_Functor_Maybe(csegen_455()(), $4);
|
|
10301
10440
|
}
|
|
10302
10441
|
|
|
10303
|
-
/* Config.
|
|
10304
|
-
function
|
|
10442
|
+
/* Config.8618:1303:oneDayAgo */
|
|
10443
|
+
function Config_n__8618_1303_oneDayAgo($0, $1, $2) {
|
|
10305
10444
|
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(Number(_truncUBigInt32((now-86400n)))));
|
|
10306
10445
|
}
|
|
10307
10446
|
|
|
10308
|
-
/* Config.
|
|
10309
|
-
function
|
|
10447
|
+
/* Config.9885:2593:help */
|
|
10448
|
+
function Config_n__9885_2593_help($0, $1) {
|
|
10310
10449
|
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
10450
|
}
|
|
10312
10451
|
|
|
10313
|
-
/* Config.
|
|
10314
|
-
function
|
|
10315
|
-
return
|
|
10452
|
+
/* Config.8863:1538:drop' */
|
|
10453
|
+
function Config_n__8863_1538_dropx27($0, $1) {
|
|
10454
|
+
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
10455
|
}
|
|
10317
10456
|
|
|
10318
|
-
/* Config.
|
|
10319
|
-
function
|
|
10457
|
+
/* Config.9982:2698:commentConfigPrompt */
|
|
10458
|
+
function Config_n__9982_2698_commentConfigPrompt($0, $1, $2, $3, $4) {
|
|
10320
10459
|
const $5 = Util_Prompting_enterForDefaultStr('name');
|
|
10321
10460
|
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
10461
|
}
|
|
10323
10462
|
|
|
10324
|
-
/* Config.
|
|
10325
|
-
function
|
|
10463
|
+
/* Config.8752:1431:checkRequestSettings */
|
|
10464
|
+
function Config_n__8752_1431_checkRequestSettings($0, $1) {
|
|
10326
10465
|
let $2;
|
|
10327
10466
|
switch($1.a6) {
|
|
10328
10467
|
case 1: {
|
|
@@ -10340,8 +10479,8 @@ function Config_n__8681_1429_checkRequestSettings($0, $1) {
|
|
|
10340
10479
|
}
|
|
10341
10480
|
}
|
|
10342
10481
|
|
|
10343
|
-
/* Config.
|
|
10344
|
-
function
|
|
10482
|
+
/* Config.9982:2697:branchParsingPrompt */
|
|
10483
|
+
function Config_n__9982_2697_branchParsingPrompt($0, $1, $2, $3, $4) {
|
|
10345
10484
|
const $5 = Util_Prompting_enterForDefaultStr('none');
|
|
10346
10485
|
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
10486
|
}
|
|
@@ -10378,7 +10517,7 @@ function Config_syncIfOld($0, $1, $2, $3) {
|
|
|
10378
10517
|
case 0: return $1b => Data_Promise_pure_Applicative_x28Promisex20x24ex29($1, $e, $1b);
|
|
10379
10518
|
}
|
|
10380
10519
|
};
|
|
10381
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10520
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__8618_1303_oneDayAgo($0, $1, csegen_48()()), $c, $2, $3);
|
|
10382
10521
|
}
|
|
10383
10522
|
|
|
10384
10523
|
/* Config.syncConfig : Config => Octokit => Bool -> Promise' Config */
|
|
@@ -10388,12 +10527,12 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
10388
10527
|
const $39 = labelNames => $3a => $3b => {
|
|
10389
10528
|
const $49 = githubUser => $4a => $4b => {
|
|
10390
10529
|
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 $
|
|
10530
|
+
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};
|
|
10531
|
+
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
10532
|
};
|
|
10394
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10533
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_468()(), $50, $4a, $4b);
|
|
10395
10534
|
};
|
|
10396
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10535
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_455()(), FFI_GitHub_getSelf($1), $3e, $3f), $49, $3a, $3b);
|
|
10397
10536
|
};
|
|
10398
10537
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2f => $30 => FFI_GitHub_listRepoLabels($1, $0.a2, $0.a3, $2f, $30), $39, $2b, $2c);
|
|
10399
10538
|
};
|
|
@@ -10404,27 +10543,28 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
10404
10543
|
|
|
10405
10544
|
/* Config.settablePropsWithHelp : Config => String */
|
|
10406
10545
|
function Config_settablePropsWithHelp($0) {
|
|
10407
|
-
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 =>
|
|
10546
|
+
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 => Config_n__9885_2593_help($0, $9), Data_Config_settablePropNamesAndHelp())));
|
|
10408
10547
|
}
|
|
10409
10548
|
|
|
10410
10549
|
/* Config.setConfig : Config => String -> String -> Promise' Config */
|
|
10411
10550
|
function Config_setConfig($0, $1, $2) {
|
|
10412
|
-
return
|
|
10551
|
+
return Config_with__setConfig_2322($1, Data_Config_settablePropNamed($1), $2, $0);
|
|
10413
10552
|
}
|
|
10414
10553
|
|
|
10415
10554
|
/* Config.propSetter : SettableProp n h -> Config -> String -> Maybe Config */
|
|
10416
10555
|
function Config_propSetter($0, $1) {
|
|
10417
10556
|
return $2 => {
|
|
10418
10557
|
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(
|
|
10558
|
+
case 0: return Config_update(csegen_473(), $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);
|
|
10559
|
+
case 1: return Config_update(csegen_473(), $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);
|
|
10560
|
+
case 2: return Config_update(csegen_473(), $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);
|
|
10561
|
+
case 3: return Config_update(csegen_473(), $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);
|
|
10562
|
+
case 4: return Config_update(csegen_473(), $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);
|
|
10563
|
+
case 5: return Config_update(csegen_473(), $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);
|
|
10564
|
+
case 6: return Config_update(csegen_473(), $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);
|
|
10565
|
+
case 7: return Config_update(csegen_473(), $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);
|
|
10566
|
+
case 8: return Config_update(csegen_473(), $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);
|
|
10567
|
+
case 9: return Config_update(csegen_473(), $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
10568
|
}
|
|
10429
10569
|
};
|
|
10430
10570
|
}
|
|
@@ -10436,11 +10576,12 @@ function Config_propGetter($0, $1) {
|
|
|
10436
10576
|
case 1: return Prelude_Show_show_Show_Bool($1.a7);
|
|
10437
10577
|
case 2: return Data_Config_CommentStrategy_show_Show_CommentStrategy($1.a8);
|
|
10438
10578
|
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
|
|
10579
|
+
case 4: return Prelude_Show_show_Show_x28Maybex20x24ax29(csegen_88(), $1.a10);
|
|
10580
|
+
case 5: return Prelude_Show_show_Show_Bool($1.a11);
|
|
10581
|
+
case 6: return Prelude_Show_show_Show_String($1.a4);
|
|
10582
|
+
case 7: return Prelude_Show_show_Show_String($1.a5);
|
|
10583
|
+
case 8: return Data_Theme_show_Show_Theme($1.a18);
|
|
10584
|
+
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
10585
|
}
|
|
10445
10586
|
}
|
|
10446
10587
|
|
|
@@ -10455,12 +10596,12 @@ function Config_preferOriginRemote($0) {
|
|
|
10455
10596
|
|
|
10456
10597
|
/* Config.parseGitHubURI : String -> Maybe GitRemote */
|
|
10457
10598
|
function Config_parseGitHubURI($0) {
|
|
10458
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
10599
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(Config_n__8910_1585_parseHTTPS($0, $0), () => Config_n__8910_1586_parseSSH($0, $0));
|
|
10459
10600
|
}
|
|
10460
10601
|
|
|
10461
10602
|
/* Config.parseBool : String -> Maybe Bool */
|
|
10462
10603
|
function Config_parseBool($0) {
|
|
10463
|
-
return
|
|
10604
|
+
return Config_with__parseBool_1721($0, Data_String_toLower($0));
|
|
10464
10605
|
}
|
|
10465
10606
|
|
|
10466
10607
|
/* Config.nonOrgFallback : Lazy a -> Promise OrgError a -> Promise String a */
|
|
@@ -10544,7 +10685,7 @@ function Config_loadConfig($0, $1, $2, $3) {
|
|
|
10544
10685
|
|
|
10545
10686
|
/* Config.getConfig : Config => String -> Promise' String */
|
|
10546
10687
|
function Config_getConfig($0, $1) {
|
|
10547
|
-
return $2 =>
|
|
10688
|
+
return $2 => Config_with__getConfig_2550($1, Data_Config_settablePropNamed($1), $0, $2);
|
|
10548
10689
|
}
|
|
10549
10690
|
|
|
10550
10691
|
/* Config.findConfig : HasIO io => String -> Fuel -> io (Maybe String) */
|
|
@@ -10566,7 +10707,7 @@ function Config_findConfig($0, $1, $2) {
|
|
|
10566
10707
|
|
|
10567
10708
|
/* Config.dropPrefix' : String -> String -> Maybe String */
|
|
10568
10709
|
function Config_dropPrefixx27($0, $1) {
|
|
10569
|
-
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4),
|
|
10710
|
+
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4), Config_n__8863_1538_dropx27($0, Prelude_Types_fastUnpack($1)));
|
|
10570
10711
|
}
|
|
10571
10712
|
|
|
10572
10713
|
/* Config.createConfig : Maybe String -> Bool -> Nat -> Maybe String -> Promise' Config */
|
|
@@ -10583,7 +10724,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10583
10724
|
default: return {a1: Data_String_trim($65)};
|
|
10584
10725
|
}
|
|
10585
10726
|
};
|
|
10586
|
-
return Data_Promise_map_Functor_x28Promisex20x24ex29($64,
|
|
10727
|
+
return Data_Promise_map_Functor_x28Promisex20x24ex29($64, csegen_498()(), $61, $62);
|
|
10587
10728
|
};
|
|
10588
10729
|
const $71 = configPAT => $72 => $73 => {
|
|
10589
10730
|
const $7f = $80 => $81 => $82 => {
|
|
@@ -10618,10 +10759,14 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10618
10759
|
const $1d4 = orgMembers => $1d5 => $1d6 => {
|
|
10619
10760
|
const $1e1 = repoLabels => $1e2 => $1e3 => {
|
|
10620
10761
|
const $1f1 = githubUser => {
|
|
10621
|
-
const $1f2 =
|
|
10622
|
-
|
|
10762
|
+
const $1f2 = $1f3 => ({h: 0});
|
|
10763
|
+
const $1f4 = {h: 0};
|
|
10764
|
+
const $1f5 = Prelude_Types_map_Functor_Maybe($1f8 => $1f8, configPAT);
|
|
10765
|
+
const $1fa = {a1: githubUser};
|
|
10766
|
+
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};
|
|
10767
|
+
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
10768
|
};
|
|
10624
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e6 => $1e7 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10769
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e6 => $1e7 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_455()(), FFI_GitHub_getSelf(_), $1e6, $1e7), $1f1, $1e2, $1e3);
|
|
10625
10770
|
};
|
|
10626
10771
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d9 => $1da => FFI_GitHub_listRepoLabels(_, org, repo, $1d9, $1da), $1e1, $1d5, $1d6);
|
|
10627
10772
|
};
|
|
@@ -10630,7 +10775,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10630
10775
|
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
10776
|
};
|
|
10632
10777
|
};
|
|
10633
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10778
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_468()(), $19d, $197, $198);
|
|
10634
10779
|
};
|
|
10635
10780
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($18e => $18f => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $18e, $18f), $196, $18a, $18b);
|
|
10636
10781
|
};
|
|
@@ -10638,41 +10783,41 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10638
10783
|
};
|
|
10639
10784
|
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
10785
|
};
|
|
10641
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10786
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_496()(), $165, $15f, $160);
|
|
10642
10787
|
};
|
|
10643
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10788
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9982_2702_themePrompt($3, $2, $1, $0, csegen_48()()), $15e, $152, $153);
|
|
10644
10789
|
};
|
|
10645
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10790
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_496()(), $150, $14a, $14b);
|
|
10646
10791
|
};
|
|
10647
10792
|
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
10793
|
};
|
|
10649
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10794
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_496()(), $13d, $137, $138);
|
|
10650
10795
|
};
|
|
10651
10796
|
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
10797
|
};
|
|
10653
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10798
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_496()(), $12a, $124, $125);
|
|
10654
10799
|
};
|
|
10655
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10800
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9982_2697_branchParsingPrompt($3, $2, $1, $0, csegen_48()()), $123, $117, $118);
|
|
10656
10801
|
};
|
|
10657
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10802
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_496()(), $115, $10f, $110);
|
|
10658
10803
|
};
|
|
10659
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10804
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9982_2698_commentConfigPrompt($3, $2, $1, $0, csegen_48()()), $10e, $102, $103);
|
|
10660
10805
|
};
|
|
10661
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10806
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_496()(), $100, $fa, $fb);
|
|
10662
10807
|
};
|
|
10663
10808
|
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
10809
|
};
|
|
10665
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10810
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_496()(), $ec, $e6, $e7);
|
|
10666
10811
|
};
|
|
10667
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What repository would you like to use harmony for?',
|
|
10812
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What repository would you like to use harmony for?', Config_n__9982_2701_repo($3, $2, $1, $0, defaultOrgAndRepo)), $e5, $d5, $d6);
|
|
10668
10813
|
};
|
|
10669
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10814
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_496()(), $d3, $cd, $ce);
|
|
10670
10815
|
};
|
|
10671
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What GitHub org would you like to use harmony for?',
|
|
10816
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What GitHub org would you like to use harmony for?', Config_n__9982_2700_org($3, $2, $1, $0, defaultOrgAndRepo)), $cc, $bc, $bd);
|
|
10672
10817
|
};
|
|
10673
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10818
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_496()(), $ba, $b4, $b5);
|
|
10674
10819
|
};
|
|
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), () =>
|
|
10820
|
+
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_502()(), $9a, $9b), $b3, $96, $97);
|
|
10676
10821
|
};
|
|
10677
10822
|
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
10823
|
}
|
|
@@ -10687,19 +10832,19 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10687
10832
|
};
|
|
10688
10833
|
return $2e();
|
|
10689
10834
|
};
|
|
10690
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10835
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_496()(), $2c, $26, $27);
|
|
10691
10836
|
};
|
|
10692
10837
|
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
10838
|
}
|
|
10694
10839
|
|
|
10695
10840
|
/* Config.checkConfigConsistency : Config -> Either (Doc AnsiStyle) () */
|
|
10696
10841
|
function Config_checkConfigConsistency($0) {
|
|
10697
|
-
return
|
|
10842
|
+
return Config_n__8752_1431_checkRequestSettings($0, $0);
|
|
10698
10843
|
}
|
|
10699
10844
|
|
|
10700
10845
|
/* Config.addIgnoredPRs : Config -> List Integer -> Promise' Config */
|
|
10701
10846
|
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(
|
|
10847
|
+
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_412(), Prelude_Types_List_tailRecAppend($0.a15, $1)), a16: $0.a16, a17: $0.a17, a18: $0.a18, a19: $0.a19}, $2, $3);
|
|
10703
10848
|
}
|
|
10704
10849
|
|
|
10705
10850
|
/* Data.List.PrefixSuffix.with block in with block in dropPrefix */
|
|
@@ -10751,21 +10896,21 @@ function AppVersion_printVersion($0) {
|
|
|
10751
10896
|
|
|
10752
10897
|
/* AppVersion.appVersion : String */
|
|
10753
10898
|
const AppVersion_appVersion = __lazy(function () {
|
|
10754
|
-
return '6.
|
|
10899
|
+
return '6.6.0';
|
|
10755
10900
|
});
|
|
10756
10901
|
|
|
10757
10902
|
/* Commands.Help.subcommandHelp' : String -> Doc AnsiStyle */
|
|
10758
10903
|
function Commands_Help_subcommandHelpx27($0) {
|
|
10759
10904
|
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:
|
|
10905
|
+
case 'label': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<label>'), a2: csegen_516()}, {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}});
|
|
10906
|
+
case 'request': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<team-slug> | +<user-login>'), a2: csegen_521()}, {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
10907
|
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:
|
|
10908
|
+
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_521()}}}}, {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
10909
|
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
10910
|
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
10911
|
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
10912
|
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:
|
|
10913
|
+
case 'quick': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--bugfix'), a2: {a1: Commands_Help_argument(0, '<title> | #<issue-number>'), a2: csegen_516()}}, {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
10914
|
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
10915
|
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
10916
|
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 +11024,7 @@ function Text_PrettyPrint_Prettyprinter_Util_reflow($0) {
|
|
|
10879
11024
|
}
|
|
10880
11025
|
|
|
10881
11026
|
/* Commands.case block in parseContributeArgs,parseSkipArg */
|
|
10882
|
-
function
|
|
11027
|
+
function Commands_case__parseContributeArgsx2cparseSkipArg_22405($0, $1, $2) {
|
|
10883
11028
|
switch($2.h) {
|
|
10884
11029
|
case undefined: /* cons */ {
|
|
10885
11030
|
switch($2.a1) {
|
|
@@ -10892,7 +11037,7 @@ function Commands_case__parseContributeArgsx2cparseSkipArg_22440($0, $1, $2) {
|
|
|
10892
11037
|
}
|
|
10893
11038
|
|
|
10894
11039
|
/* Commands.case block in case block in graph */
|
|
10895
|
-
function
|
|
11040
|
+
function Commands_case__casex20blockx20inx20graph_22139($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10896
11041
|
return $9 => {
|
|
10897
11042
|
const $c = $d => $e => {
|
|
10898
11043
|
switch(Data_Maybe_isJust($3)) {
|
|
@@ -10900,22 +11045,22 @@ function Commands_case__casex20blockx20inx20graph_22174($0, $1, $2, $3, $4, $5,
|
|
|
10900
11045
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 0}, $d, $e);
|
|
10901
11046
|
}
|
|
10902
11047
|
};
|
|
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),
|
|
11048
|
+
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_409(), {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
11049
|
};
|
|
10905
11050
|
}
|
|
10906
11051
|
|
|
10907
11052
|
/* Commands.case block in graph */
|
|
10908
|
-
function
|
|
11053
|
+
function Commands_case__graph_22095($0, $1, $2, $3, $4, $5) {
|
|
10909
11054
|
return $6 => {
|
|
10910
11055
|
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 =>
|
|
11056
|
+
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
11057
|
case 0: /* nothing */ return Data_Promise_reject('The graph command expects the name of a GitHub Team as an argument.', $5, $6);
|
|
10913
11058
|
}
|
|
10914
11059
|
};
|
|
10915
11060
|
}
|
|
10916
11061
|
|
|
10917
11062
|
/* Commands.case block in request */
|
|
10918
|
-
function
|
|
11063
|
+
function Commands_case__request_21563($0, $1, $2, $3, $4) {
|
|
10919
11064
|
return $6 => $8 => {
|
|
10920
11065
|
let $9;
|
|
10921
11066
|
switch(Prelude_Types_null_Foldable_List($4.a1)) {
|
|
@@ -10964,47 +11109,47 @@ function Commands_case__request_21598($0, $1, $2, $3, $4) {
|
|
|
10964
11109
|
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
11110
|
}
|
|
10966
11111
|
};
|
|
10967
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11112
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_693(), $1b => $1c => $1d => Commands_PullRequest_identifyOrCreatePR($0, $1, 0, {h: 0}, $1b, $1c, $1d), $15, $16), $28, $6, $8);
|
|
10968
11113
|
}
|
|
10969
11114
|
}
|
|
10970
11115
|
};
|
|
10971
11116
|
}
|
|
10972
11117
|
|
|
10973
11118
|
/* Commands.case block in case block in request,partitionedArgs */
|
|
10974
|
-
function
|
|
10975
|
-
const $8 = Prelude_Interfaces_mapHom(
|
|
11119
|
+
function Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_21487($0, $1, $2, $3, $4, $5, $6) {
|
|
11120
|
+
const $8 = Prelude_Interfaces_mapHom(csegen_707(), $e => Prelude_Types_List_mapAppend({h: 0}, $12 => Data_String_Extra_drop(1n, $12), $e))({a1: $4, a2: $6.a1});
|
|
10976
11121
|
return {a1: $8.a1, a2: {a1: $6.a2, a2: $8.a2}};
|
|
10977
11122
|
}
|
|
10978
11123
|
|
|
10979
11124
|
/* Commands.case block in request,partitionedArgs */
|
|
10980
|
-
function
|
|
10981
|
-
return
|
|
11125
|
+
function Commands_case__requestx2cpartitionedArgs_21466($0, $1, $2, $3, $4) {
|
|
11126
|
+
return Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_21487($0, $1, $2, $3, $4.a1, $4.a2, Data_List_partition($10 => Util_String_isHashPrefix($10), $4.a2));
|
|
10982
11127
|
}
|
|
10983
11128
|
|
|
10984
|
-
/* Commands.
|
|
10985
|
-
function
|
|
11129
|
+
/* Commands.9186:20480:recombineIntoArgs */
|
|
11130
|
+
function Commands_n__9186_20480_recombineIntoArgs($0, $1) {
|
|
10986
11131
|
switch($1.h) {
|
|
10987
11132
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
10988
11133
|
case undefined: /* cons */ {
|
|
10989
11134
|
switch($1.a1) {
|
|
10990
11135
|
case '-i': {
|
|
10991
11136
|
switch($1.a2.h) {
|
|
10992
|
-
case 0: /* nil */ return
|
|
11137
|
+
case 0: /* nil */ return csegen_711();
|
|
10993
11138
|
case undefined: /* cons */ {
|
|
10994
|
-
const $8 =
|
|
11139
|
+
const $8 = Commands_n__9186_20476_parseIntoOpt($0, $1.a2.a1);
|
|
10995
11140
|
switch($8.h) {
|
|
10996
11141
|
case undefined: /* just */ {
|
|
10997
|
-
const $c =
|
|
11142
|
+
const $c = Commands_n__9186_20480_recombineIntoArgs($0, $1.a2.a2);
|
|
10998
11143
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
10999
11144
|
}
|
|
11000
11145
|
case 0: /* nothing */ {
|
|
11001
|
-
const $14 =
|
|
11146
|
+
const $14 = Commands_n__9186_20480_recombineIntoArgs($0, $1.a2.a2);
|
|
11002
11147
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
11003
11148
|
}
|
|
11004
11149
|
}
|
|
11005
11150
|
}
|
|
11006
11151
|
default: {
|
|
11007
|
-
const $1e =
|
|
11152
|
+
const $1e = Commands_n__9186_20480_recombineIntoArgs($0, $1.a2);
|
|
11008
11153
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
11009
11154
|
}
|
|
11010
11155
|
}
|
|
@@ -11013,26 +11158,26 @@ function Commands_n__9120_20480_recombineIntoArgs($0, $1) {
|
|
|
11013
11158
|
switch($1.a2.h) {
|
|
11014
11159
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--into', a2: {h: 0}}};
|
|
11015
11160
|
case undefined: /* cons */ {
|
|
11016
|
-
const $2b =
|
|
11161
|
+
const $2b = Commands_n__9186_20476_parseIntoOpt($0, $1.a2.a1);
|
|
11017
11162
|
switch($2b.h) {
|
|
11018
11163
|
case undefined: /* just */ {
|
|
11019
|
-
const $2f =
|
|
11164
|
+
const $2f = Commands_n__9186_20480_recombineIntoArgs($0, $1.a2.a2);
|
|
11020
11165
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
11021
11166
|
}
|
|
11022
11167
|
case 0: /* nothing */ {
|
|
11023
|
-
const $37 =
|
|
11168
|
+
const $37 = Commands_n__9186_20480_recombineIntoArgs($0, $1.a2.a2);
|
|
11024
11169
|
return {a1: $37.a1, a2: {a1: '--into', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
11025
11170
|
}
|
|
11026
11171
|
}
|
|
11027
11172
|
}
|
|
11028
11173
|
default: {
|
|
11029
|
-
const $41 =
|
|
11174
|
+
const $41 = Commands_n__9186_20480_recombineIntoArgs($0, $1.a2);
|
|
11030
11175
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
11031
11176
|
}
|
|
11032
11177
|
}
|
|
11033
11178
|
}
|
|
11034
11179
|
default: {
|
|
11035
|
-
const $49 =
|
|
11180
|
+
const $49 = Commands_n__9186_20480_recombineIntoArgs($0, $1.a2);
|
|
11036
11181
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
11037
11182
|
}
|
|
11038
11183
|
}
|
|
@@ -11040,30 +11185,30 @@ function Commands_n__9120_20480_recombineIntoArgs($0, $1) {
|
|
|
11040
11185
|
}
|
|
11041
11186
|
}
|
|
11042
11187
|
|
|
11043
|
-
/* Commands.
|
|
11044
|
-
function
|
|
11188
|
+
/* Commands.11178:22359:recombineIgnoreArgs */
|
|
11189
|
+
function Commands_n__11178_22359_recombineIgnoreArgs($0, $1) {
|
|
11045
11190
|
switch($1.h) {
|
|
11046
11191
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
11047
11192
|
case undefined: /* cons */ {
|
|
11048
11193
|
switch($1.a1) {
|
|
11049
11194
|
case '-i': {
|
|
11050
11195
|
switch($1.a2.h) {
|
|
11051
|
-
case 0: /* nil */ return
|
|
11196
|
+
case 0: /* nil */ return csegen_711();
|
|
11052
11197
|
case undefined: /* cons */ {
|
|
11053
|
-
const $8 =
|
|
11198
|
+
const $8 = Commands_n__11178_22356_parseIgnoreOpt($0, $1.a2.a1);
|
|
11054
11199
|
switch($8.h) {
|
|
11055
11200
|
case undefined: /* just */ {
|
|
11056
|
-
const $c =
|
|
11201
|
+
const $c = Commands_n__11178_22359_recombineIgnoreArgs($0, $1.a2.a2);
|
|
11057
11202
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
11058
11203
|
}
|
|
11059
11204
|
case 0: /* nothing */ {
|
|
11060
|
-
const $14 =
|
|
11205
|
+
const $14 = Commands_n__11178_22359_recombineIgnoreArgs($0, $1.a2.a2);
|
|
11061
11206
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
11062
11207
|
}
|
|
11063
11208
|
}
|
|
11064
11209
|
}
|
|
11065
11210
|
default: {
|
|
11066
|
-
const $1e =
|
|
11211
|
+
const $1e = Commands_n__11178_22359_recombineIgnoreArgs($0, $1.a2);
|
|
11067
11212
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
11068
11213
|
}
|
|
11069
11214
|
}
|
|
@@ -11072,26 +11217,26 @@ function Commands_n__11153_22394_recombineIgnoreArgs($0, $1) {
|
|
|
11072
11217
|
switch($1.a2.h) {
|
|
11073
11218
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
|
|
11074
11219
|
case undefined: /* cons */ {
|
|
11075
|
-
const $2b =
|
|
11220
|
+
const $2b = Commands_n__11178_22356_parseIgnoreOpt($0, $1.a2.a1);
|
|
11076
11221
|
switch($2b.h) {
|
|
11077
11222
|
case undefined: /* just */ {
|
|
11078
|
-
const $2f =
|
|
11223
|
+
const $2f = Commands_n__11178_22359_recombineIgnoreArgs($0, $1.a2.a2);
|
|
11079
11224
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
11080
11225
|
}
|
|
11081
11226
|
case 0: /* nothing */ {
|
|
11082
|
-
const $37 =
|
|
11227
|
+
const $37 = Commands_n__11178_22359_recombineIgnoreArgs($0, $1.a2.a2);
|
|
11083
11228
|
return {a1: $37.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
11084
11229
|
}
|
|
11085
11230
|
}
|
|
11086
11231
|
}
|
|
11087
11232
|
default: {
|
|
11088
|
-
const $41 =
|
|
11233
|
+
const $41 = Commands_n__11178_22359_recombineIgnoreArgs($0, $1.a2);
|
|
11089
11234
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
11090
11235
|
}
|
|
11091
11236
|
}
|
|
11092
11237
|
}
|
|
11093
11238
|
default: {
|
|
11094
|
-
const $49 =
|
|
11239
|
+
const $49 = Commands_n__11178_22359_recombineIgnoreArgs($0, $1.a2);
|
|
11095
11240
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
11096
11241
|
}
|
|
11097
11242
|
}
|
|
@@ -11099,23 +11244,23 @@ function Commands_n__11153_22394_recombineIgnoreArgs($0, $1) {
|
|
|
11099
11244
|
}
|
|
11100
11245
|
}
|
|
11101
11246
|
|
|
11102
|
-
/* Commands.
|
|
11103
|
-
function
|
|
11247
|
+
/* Commands.10585:21788:putNameLn */
|
|
11248
|
+
function Commands_n__10585_21788_putNameLn($0, $1, $2, $3) {
|
|
11104
11249
|
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
11250
|
}
|
|
11106
11251
|
|
|
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 =>
|
|
11252
|
+
/* Commands.8932:20218:putLabels */
|
|
11253
|
+
function Commands_n__8932_20218_putLabels($0, $1, $2, $3) {
|
|
11254
|
+
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__8932_20217_putLabel($0, $1, $2, $e), $3)));
|
|
11110
11255
|
}
|
|
11111
11256
|
|
|
11112
|
-
/* Commands.
|
|
11113
|
-
function
|
|
11257
|
+
/* Commands.8932:20217:putLabel */
|
|
11258
|
+
function Commands_n__8932_20217_putLabel($0, $1, $2, $3) {
|
|
11114
11259
|
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
11260
|
}
|
|
11116
11261
|
|
|
11117
|
-
/* Commands.
|
|
11118
|
-
function
|
|
11262
|
+
/* Commands.9527:20828:printTree */
|
|
11263
|
+
function Commands_n__9527_20828_printTree($0, $1, $2) {
|
|
11119
11264
|
const $6 = $7 => {
|
|
11120
11265
|
switch($7.h) {
|
|
11121
11266
|
case 2: /* PrintTree */ return 1;
|
|
@@ -11126,27 +11271,17 @@ function Commands_n__9461_20828_printTree($0, $1, $2) {
|
|
|
11126
11271
|
return Data_Maybe_isJust($4);
|
|
11127
11272
|
}
|
|
11128
11273
|
|
|
11129
|
-
/* Commands.
|
|
11130
|
-
function
|
|
11274
|
+
/* Commands.9527:20827:printPrTree */
|
|
11275
|
+
function Commands_n__9527_20827_printPrTree($0, $1, $2, $3, $4, $5) {
|
|
11131
11276
|
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);
|
|
11277
|
+
const $13 = Commands_PullRequest_prTree({h: 0}, {h: 0}, {a1: $3, a2: $11.a1}, $11.a2);
|
|
11278
|
+
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
11279
|
};
|
|
11145
11280
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_prChain($2, $0, Data_Fuel_limit(10n), $3.a9), $10, $4, $5);
|
|
11146
11281
|
}
|
|
11147
11282
|
|
|
11148
|
-
/* Commands.
|
|
11149
|
-
function
|
|
11283
|
+
/* Commands.11530:22714:printDetails */
|
|
11284
|
+
function Commands_n__11530_22714_printDetails($0, $1, $2, $3) {
|
|
11150
11285
|
const $4 = Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a8));
|
|
11151
11286
|
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
11287
|
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 +11290,8 @@ function Commands_n__11505_22749_printDetails($0, $1, $2, $3) {
|
|
|
11155
11290
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: $4, a2: {a1: $c, a2: {a1: $15, a2: {a1: $20, a2: {a1: $2e, a2: {h: 0}}}}}});
|
|
11156
11291
|
}
|
|
11157
11292
|
|
|
11158
|
-
/* Commands.
|
|
11159
|
-
function
|
|
11293
|
+
/* Commands.11530:22713:pickOne */
|
|
11294
|
+
function Commands_n__11530_22713_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11160
11295
|
const $8 = Data_List_headx27(Data_List_drop($4, Prelude_Types_List_tailRecAppend($6, $7)));
|
|
11161
11296
|
return $11 => $12 => {
|
|
11162
11297
|
switch($8.h) {
|
|
@@ -11170,7 +11305,7 @@ function Commands_n__11505_22748_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11170
11305
|
break;
|
|
11171
11306
|
}
|
|
11172
11307
|
case 0: /* nothing */ {
|
|
11173
|
-
$19 =
|
|
11308
|
+
$19 = csegen_717();
|
|
11174
11309
|
break;
|
|
11175
11310
|
}
|
|
11176
11311
|
}
|
|
@@ -11180,39 +11315,39 @@ function Commands_n__11505_22748_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11180
11315
|
};
|
|
11181
11316
|
}
|
|
11182
11317
|
|
|
11183
|
-
/* Commands.
|
|
11184
|
-
function
|
|
11185
|
-
return
|
|
11318
|
+
/* Commands.10215:21454:partitionedArgs */
|
|
11319
|
+
function Commands_n__10215_21454_partitionedArgs($0, $1, $2, $3) {
|
|
11320
|
+
return Commands_case__requestx2cpartitionedArgs_21466($0, $1, $2, $3, Data_List_partition($c => Data_String_isPrefixOf('+', $c), $3));
|
|
11186
11321
|
}
|
|
11187
11322
|
|
|
11188
|
-
/* Commands.
|
|
11189
|
-
function
|
|
11323
|
+
/* Commands.10753:21976:parseTeamArg */
|
|
11324
|
+
function Commands_n__10753_21976_parseTeamArg($0, $1) {
|
|
11190
11325
|
return {a1: {a1: $1}};
|
|
11191
11326
|
}
|
|
11192
11327
|
|
|
11193
|
-
/* Commands.
|
|
11194
|
-
function
|
|
11195
|
-
return
|
|
11328
|
+
/* Commands.11178:22358:parseSkipArg */
|
|
11329
|
+
function Commands_n__11178_22358_parseSkipArg($0, $1) {
|
|
11330
|
+
return Commands_case__parseContributeArgsx2cparseSkipArg_22405($0, $1, Data_String_strM($1));
|
|
11196
11331
|
}
|
|
11197
11332
|
|
|
11198
|
-
/* Commands.
|
|
11199
|
-
function
|
|
11333
|
+
/* Commands.9186:20479:parseReadyFlag */
|
|
11334
|
+
function Commands_n__9186_20479_parseReadyFlag($0, $1) {
|
|
11200
11335
|
switch($1) {
|
|
11201
11336
|
case '--ready': return {a1: {h: 1 /* Ready */}};
|
|
11202
11337
|
default: return {h: 0};
|
|
11203
11338
|
}
|
|
11204
11339
|
}
|
|
11205
11340
|
|
|
11206
|
-
/* Commands.
|
|
11207
|
-
function
|
|
11341
|
+
/* Commands.9186:20478:parsePrintTreeFlag */
|
|
11342
|
+
function Commands_n__9186_20478_parsePrintTreeFlag($0, $1) {
|
|
11208
11343
|
switch($1) {
|
|
11209
11344
|
case '--print-tree': return {a1: {h: 2 /* PrintTree */}};
|
|
11210
11345
|
default: return {h: 0};
|
|
11211
11346
|
}
|
|
11212
11347
|
}
|
|
11213
11348
|
|
|
11214
|
-
/* Commands.
|
|
11215
|
-
function
|
|
11349
|
+
/* Commands.11178:22357:parseListFlag */
|
|
11350
|
+
function Commands_n__11178_22357_parseListFlag($0, $1) {
|
|
11216
11351
|
switch($1) {
|
|
11217
11352
|
case '-l': return {a1: {h: 0 /* List */}};
|
|
11218
11353
|
case '--list': return {a1: {h: 0 /* List */}};
|
|
@@ -11220,8 +11355,8 @@ function Commands_n__11153_22392_parseListFlag($0, $1) {
|
|
|
11220
11355
|
}
|
|
11221
11356
|
}
|
|
11222
11357
|
|
|
11223
|
-
/* Commands.
|
|
11224
|
-
function
|
|
11358
|
+
/* Commands.9186:20477:parseLabelArg */
|
|
11359
|
+
function Commands_n__9186_20477_parseLabelArg($0, $1) {
|
|
11225
11360
|
const $2 = Data_String_strM($1);
|
|
11226
11361
|
switch($2.h) {
|
|
11227
11362
|
case undefined: /* cons */ {
|
|
@@ -11234,29 +11369,29 @@ function Commands_n__9120_20477_parseLabelArg($0, $1) {
|
|
|
11234
11369
|
}
|
|
11235
11370
|
}
|
|
11236
11371
|
|
|
11237
|
-
/* Commands.
|
|
11238
|
-
function
|
|
11372
|
+
/* Commands.9186:20476:parseIntoOpt */
|
|
11373
|
+
function Commands_n__9186_20476_parseIntoOpt($0, $1) {
|
|
11239
11374
|
const $2 = Util_String_nonEmpty($1);
|
|
11240
11375
|
return Prelude_Types_map_Functor_Maybe($7 => $7, $2);
|
|
11241
11376
|
}
|
|
11242
11377
|
|
|
11243
|
-
/* Commands.
|
|
11244
|
-
function
|
|
11245
|
-
const $2 = Data_String_split(
|
|
11378
|
+
/* Commands.11178:22356:parseIgnoreOpt */
|
|
11379
|
+
function Commands_n__11178_22356_parseIgnoreOpt($0, $1) {
|
|
11380
|
+
const $2 = Data_String_split(csegen_449(), $1);
|
|
11246
11381
|
const $7 = Data_List1_last($2);
|
|
11247
11382
|
return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
|
|
11248
11383
|
}
|
|
11249
11384
|
|
|
11250
|
-
/* Commands.
|
|
11251
|
-
function
|
|
11385
|
+
/* Commands.9186:20475:parseDraftFlag */
|
|
11386
|
+
function Commands_n__9186_20475_parseDraftFlag($0, $1) {
|
|
11252
11387
|
switch($1) {
|
|
11253
11388
|
case '--draft': return {a1: {h: 0 /* Draft */}};
|
|
11254
11389
|
default: return {h: 0};
|
|
11255
11390
|
}
|
|
11256
11391
|
}
|
|
11257
11392
|
|
|
11258
|
-
/* Commands.
|
|
11259
|
-
function
|
|
11393
|
+
/* Commands.10753:21975:parseCompletedFlag */
|
|
11394
|
+
function Commands_n__10753_21975_parseCompletedFlag($0, $1) {
|
|
11260
11395
|
switch($1) {
|
|
11261
11396
|
case '-c': return {a1: {h: 0}};
|
|
11262
11397
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -11264,8 +11399,8 @@ function Commands_n__10728_22010_parseCompletedFlag($0, $1) {
|
|
|
11264
11399
|
}
|
|
11265
11400
|
}
|
|
11266
11401
|
|
|
11267
|
-
/* Commands.
|
|
11268
|
-
function
|
|
11402
|
+
/* Commands.11178:22355:parseCheckoutFlag */
|
|
11403
|
+
function Commands_n__11178_22355_parseCheckoutFlag($0, $1) {
|
|
11269
11404
|
switch($1) {
|
|
11270
11405
|
case '-c': return {a1: {h: 1 /* Checkout */}};
|
|
11271
11406
|
case '--checkout': return {a1: {h: 1 /* Checkout */}};
|
|
@@ -11273,8 +11408,8 @@ function Commands_n__11153_22390_parseCheckoutFlag($0, $1) {
|
|
|
11273
11408
|
}
|
|
11274
11409
|
}
|
|
11275
11410
|
|
|
11276
|
-
/* Commands.
|
|
11277
|
-
function
|
|
11411
|
+
/* Commands.9527:20826:markAsReady */
|
|
11412
|
+
function Commands_n__9527_20826_markAsReady($0, $1, $2) {
|
|
11278
11413
|
const $6 = $7 => {
|
|
11279
11414
|
switch($7.h) {
|
|
11280
11415
|
case 1: /* Ready */ return 1;
|
|
@@ -11285,8 +11420,8 @@ function Commands_n__9461_20826_markAsReady($0, $1, $2) {
|
|
|
11285
11420
|
return Data_Maybe_isJust($4);
|
|
11286
11421
|
}
|
|
11287
11422
|
|
|
11288
|
-
/* Commands.
|
|
11289
|
-
function
|
|
11423
|
+
/* Commands.9527:20825:markAsDraft */
|
|
11424
|
+
function Commands_n__9527_20825_markAsDraft($0, $1, $2) {
|
|
11290
11425
|
const $6 = $7 => {
|
|
11291
11426
|
switch($7.h) {
|
|
11292
11427
|
case 0: /* Draft */ return 1;
|
|
@@ -11297,8 +11432,8 @@ function Commands_n__9461_20825_markAsDraft($0, $1, $2) {
|
|
|
11297
11432
|
return Data_Maybe_isJust($4);
|
|
11298
11433
|
}
|
|
11299
11434
|
|
|
11300
|
-
/* Commands.
|
|
11301
|
-
function
|
|
11435
|
+
/* Commands.11530:22712:listSome */
|
|
11436
|
+
function Commands_n__11530_22712_listSome($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11302
11437
|
const $13 = $14 => {
|
|
11303
11438
|
let $19;
|
|
11304
11439
|
switch(Prelude_Types_null_Foldable_List($5)) {
|
|
@@ -11311,13 +11446,13 @@ function Commands_n__11505_22747_listSome($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11311
11446
|
break;
|
|
11312
11447
|
}
|
|
11313
11448
|
}
|
|
11314
|
-
return Prelude_Interfaces_when(csegen_40()(), $19, () => $1e => $1f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11449
|
+
return Prelude_Interfaces_when(csegen_40()(), $19, () => $1e => $1f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_496()(), $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__11530_22710_goListSome($0, $1, $2, 0, Data_List_take(5n, $5)), $26, $27), $1e, $1f));
|
|
11315
11450
|
};
|
|
11316
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11451
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_n__11530_22710_goListSome($0, $1, $2, 1, Data_List_drop($3, $4)), $13, $6, $7);
|
|
11317
11452
|
}
|
|
11318
11453
|
|
|
11319
|
-
/* Commands.
|
|
11320
|
-
function
|
|
11454
|
+
/* Commands.9527:20824:labelSlugs */
|
|
11455
|
+
function Commands_n__9527_20824_labelSlugs($0, $1, $2) {
|
|
11321
11456
|
const $4 = $5 => $6 => {
|
|
11322
11457
|
switch($5.h) {
|
|
11323
11458
|
case 4: /* Label */ return {a1: $5.a1, a2: $6};
|
|
@@ -11327,13 +11462,13 @@ function Commands_n__9461_20824_labelSlugs($0, $1, $2) {
|
|
|
11327
11462
|
return Prelude_Types_foldr_Foldable_List($4, {h: 0}, $1);
|
|
11328
11463
|
}
|
|
11329
11464
|
|
|
11330
|
-
/* Commands.
|
|
11331
|
-
function
|
|
11332
|
-
return Data_Maybe_isNothing(Data_List_find($9 => Prelude_EqOrd_x3dx3d_Eq_Integer($9, $4.a1), $3.
|
|
11465
|
+
/* Commands.11530:22711:isNotIgnored */
|
|
11466
|
+
function Commands_n__11530_22711_isNotIgnored($0, $1, $2, $3, $4) {
|
|
11467
|
+
return Data_Maybe_isNothing(Data_List_find($9 => Prelude_EqOrd_x3dx3d_Eq_Integer($9, $4.a1), $3.a15));
|
|
11333
11468
|
}
|
|
11334
11469
|
|
|
11335
|
-
/* Commands.
|
|
11336
|
-
function
|
|
11470
|
+
/* Commands.9527:20823:intoBranch */
|
|
11471
|
+
function Commands_n__9527_20823_intoBranch($0, $1, $2) {
|
|
11337
11472
|
const $c = $d => {
|
|
11338
11473
|
switch($d.h) {
|
|
11339
11474
|
case 3: /* Into */ return {a1: Util_String_value($d.a1)};
|
|
@@ -11343,11 +11478,11 @@ function Commands_n__9461_20823_intoBranch($0, $1, $2) {
|
|
|
11343
11478
|
return Prelude_Types_foldMap_Foldable_List({a1: $6 => $7 => Prelude_Types_x3cx2bx3e_Semigroup_x28Maybex20x24ax29($6, $7), a2: {h: 0}}, $c, $1);
|
|
11344
11479
|
}
|
|
11345
11480
|
|
|
11346
|
-
/* Commands.
|
|
11347
|
-
function
|
|
11481
|
+
/* Commands.11530:22710:goListSome */
|
|
11482
|
+
function Commands_n__11530_22710_goListSome($0, $1, $2, $3, $4) {
|
|
11348
11483
|
switch($4.h) {
|
|
11349
11484
|
case undefined: /* cons */ {
|
|
11350
|
-
const $6 =
|
|
11485
|
+
const $6 = Commands_n__11530_22714_printDetails($0, $1, $2, $4.a1);
|
|
11351
11486
|
let $13;
|
|
11352
11487
|
switch($3) {
|
|
11353
11488
|
case 1: {
|
|
@@ -11359,15 +11494,15 @@ function Commands_n__11505_22745_goListSome($0, $1, $2, $3, $4) {
|
|
|
11359
11494
|
break;
|
|
11360
11495
|
}
|
|
11361
11496
|
}
|
|
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:
|
|
11497
|
+
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__11530_22714_printDetails($0, $1, $2, next), a2: {h: 0}}}}), $6, $4.a2));
|
|
11363
11498
|
return Util_renderIO($2, csegen_48()(), $11);
|
|
11364
11499
|
}
|
|
11365
|
-
case 0: /* nil */ return
|
|
11500
|
+
case 0: /* nil */ return csegen_717();
|
|
11366
11501
|
}
|
|
11367
11502
|
}
|
|
11368
11503
|
|
|
11369
|
-
/* Commands.
|
|
11370
|
-
function
|
|
11504
|
+
/* Commands.12514:23622:go */
|
|
11505
|
+
function Commands_n__12514_23622_go($0, $1) {
|
|
11371
11506
|
switch($1.h) {
|
|
11372
11507
|
case undefined: /* cons */ {
|
|
11373
11508
|
switch($1.a1.h) {
|
|
@@ -11389,8 +11524,8 @@ function Commands_n__12489_23657_go($0, $1) {
|
|
|
11389
11524
|
}
|
|
11390
11525
|
}
|
|
11391
11526
|
|
|
11392
|
-
/* Commands.
|
|
11393
|
-
function
|
|
11527
|
+
/* Commands.12462:23567:go */
|
|
11528
|
+
function Commands_n__12462_23567_go($0, $1) {
|
|
11394
11529
|
switch($1.h) {
|
|
11395
11530
|
case 0: /* nothing */ return $0;
|
|
11396
11531
|
default: {
|
|
@@ -11402,15 +11537,15 @@ function Commands_n__12437_23602_go($0, $1) {
|
|
|
11402
11537
|
}
|
|
11403
11538
|
}
|
|
11404
11539
|
|
|
11405
|
-
/* Commands.
|
|
11406
|
-
function
|
|
11540
|
+
/* Commands.10585:21787:forkedUser */
|
|
11541
|
+
function Commands_n__10585_21787_forkedUser($0, $1, $2, $3) {
|
|
11407
11542
|
return FFI_Concurrency_fork(csegen_48()(), ('user --json '+$3));
|
|
11408
11543
|
}
|
|
11409
11544
|
|
|
11410
|
-
/* Commands.
|
|
11411
|
-
function
|
|
11412
|
-
switch(
|
|
11413
|
-
case 1: return
|
|
11545
|
+
/* Commands.9527:20822:conflictingDraftReadyArgs */
|
|
11546
|
+
function Commands_n__9527_20822_conflictingDraftReadyArgs($0, $1, $2) {
|
|
11547
|
+
switch(Commands_n__9527_20825_markAsDraft($0, $1, $2)) {
|
|
11548
|
+
case 1: return Commands_n__9527_20826_markAsReady($0, $1, $2);
|
|
11414
11549
|
case 0: return 0;
|
|
11415
11550
|
}
|
|
11416
11551
|
}
|
|
@@ -11429,12 +11564,12 @@ function Commands_titleOrNumberArg($0) {
|
|
|
11429
11564
|
}
|
|
11430
11565
|
};
|
|
11431
11566
|
const $3 = Prelude_Types_List_filterAppend({h: 0}, $6, $0);
|
|
11432
|
-
return
|
|
11567
|
+
return Commands_n__12514_23622_go($0, $3);
|
|
11433
11568
|
}
|
|
11434
11569
|
|
|
11435
11570
|
/* Commands.titleArg : List QuickArg -> Maybe String */
|
|
11436
11571
|
function Commands_titleArg($0) {
|
|
11437
|
-
return Prelude_Types_foldl_Foldable_List($3 => $4 =>
|
|
11572
|
+
return Prelude_Types_foldl_Foldable_List($3 => $4 => Commands_n__12462_23567_go($3, $4), {h: 0}, $0);
|
|
11438
11573
|
}
|
|
11439
11574
|
|
|
11440
11575
|
/* Commands.teamNameArg : GraphArg -> Maybe String */
|
|
@@ -11460,7 +11595,7 @@ function Commands_skipArg($0) {
|
|
|
11460
11595
|
|
|
11461
11596
|
/* Commands.request : Config => Octokit => List String -> {default False _ : Bool} -> Promise' () */
|
|
11462
11597
|
function Commands_request($0, $1, $2, $3) {
|
|
11463
|
-
return
|
|
11598
|
+
return Commands_case__request_21563($0, $1, $3, $2, Commands_n__10215_21454_partitionedArgs($0, $1, $3, $2));
|
|
11464
11599
|
}
|
|
11465
11600
|
|
|
11466
11601
|
/* Commands.reflect : Config => Octokit => Promise' () */
|
|
@@ -11488,8 +11623,8 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11488
11623
|
switch($39.a1) {
|
|
11489
11624
|
case 0: {
|
|
11490
11625
|
$3e = $40 => {
|
|
11491
|
-
switch(
|
|
11492
|
-
case 1: return $46 =>
|
|
11626
|
+
switch(Commands_n__9527_20828_printTree($1, $2, $0)) {
|
|
11627
|
+
case 1: return $46 => Commands_n__9527_20827_printPrTree($1, $2, $0, $39.a2, $40, $46);
|
|
11493
11628
|
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
11629
|
}
|
|
11495
11630
|
};
|
|
@@ -11497,8 +11632,8 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11497
11632
|
}
|
|
11498
11633
|
case 1: {
|
|
11499
11634
|
$3e = $5e => {
|
|
11500
|
-
switch(
|
|
11501
|
-
case 1: return $64 =>
|
|
11635
|
+
switch(Commands_n__9527_20828_printTree($1, $2, $0)) {
|
|
11636
|
+
case 1: return $64 => Commands_n__9527_20827_printPrTree($1, $2, $0, $39.a2, $5e, $64);
|
|
11502
11637
|
case 0: return $6c => Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $5e, $6c);
|
|
11503
11638
|
}
|
|
11504
11639
|
};
|
|
@@ -11507,7 +11642,7 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11507
11642
|
}
|
|
11508
11643
|
const $71 = $72 => $73 => $74 => {
|
|
11509
11644
|
let $7b;
|
|
11510
|
-
switch(Prelude_Types_null_Foldable_List(
|
|
11645
|
+
switch(Prelude_Types_null_Foldable_List(Commands_n__9527_20824_labelSlugs($1, $2, $0))) {
|
|
11511
11646
|
case 1: {
|
|
11512
11647
|
$7b = 0;
|
|
11513
11648
|
break;
|
|
@@ -11517,10 +11652,10 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11517
11652
|
break;
|
|
11518
11653
|
}
|
|
11519
11654
|
}
|
|
11520
|
-
const $76 = Prelude_Interfaces_when(csegen_40()(), $7b, () => $84 => $85 => Commands_label($0, $1,
|
|
11655
|
+
const $76 = Prelude_Interfaces_when(csegen_40()(), $7b, () => $84 => $85 => Commands_label($0, $1, Commands_n__9527_20824_labelSlugs($1, $2, $0), $84, $85));
|
|
11521
11656
|
const $90 = $91 => $92 => $93 => {
|
|
11522
11657
|
const $95 = $96 => {
|
|
11523
|
-
const $97 =
|
|
11658
|
+
const $97 = Commands_n__9527_20823_intoBranch($1, $2, $0);
|
|
11524
11659
|
switch($97.h) {
|
|
11525
11660
|
case undefined: /* just */ {
|
|
11526
11661
|
return $9c => {
|
|
@@ -11535,7 +11670,7 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11535
11670
|
};
|
|
11536
11671
|
const $bb = $bc => $bd => $be => {
|
|
11537
11672
|
let $c5;
|
|
11538
|
-
switch(
|
|
11673
|
+
switch(Commands_n__9527_20825_markAsDraft($1, $2, $0)) {
|
|
11539
11674
|
case 1: {
|
|
11540
11675
|
switch($39.a2.a4) {
|
|
11541
11676
|
case 1: {
|
|
@@ -11564,11 +11699,11 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11564
11699
|
};
|
|
11565
11700
|
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
11701
|
};
|
|
11567
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11702
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_496()(), $d4, $ce, $cf);
|
|
11568
11703
|
});
|
|
11569
11704
|
const $115 = $116 => {
|
|
11570
11705
|
let $11b;
|
|
11571
|
-
switch(
|
|
11706
|
+
switch(Commands_n__9527_20826_markAsReady($1, $2, $0)) {
|
|
11572
11707
|
case 1: {
|
|
11573
11708
|
$11b = $39.a2.a4;
|
|
11574
11709
|
break;
|
|
@@ -11588,7 +11723,7 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11588
11723
|
};
|
|
11589
11724
|
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
11725
|
};
|
|
11591
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11726
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_496()(), $129, $123, $124);
|
|
11592
11727
|
});
|
|
11593
11728
|
};
|
|
11594
11729
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c0, $115, $bd, $be);
|
|
@@ -11602,9 +11737,9 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11602
11737
|
case 1: /* Hypothetical */ return $172 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($175 => Prelude_IO_prim__putStr(($39.a1+'\n'), $175), $3a, $3b, $172);
|
|
11603
11738
|
}
|
|
11604
11739
|
};
|
|
11605
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d => $1e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11740
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d => $1e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_693(), $23 => $24 => $25 => Commands_PullRequest_identifyOrCreatePR($0, $1, Commands_n__9527_20825_markAsDraft($1, $2, $0), Commands_n__9527_20823_intoBranch($1, $2, $0), $23, $24, $25), $1d, $1e), $38, $19, $1a);
|
|
11606
11741
|
};
|
|
11607
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_40()(),
|
|
11742
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_40()(), Commands_n__9527_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
11743
|
}
|
|
11609
11744
|
|
|
11610
11745
|
/* Commands.parseQuickArgs : List String -> List QuickArg */
|
|
@@ -11625,9 +11760,9 @@ function Commands_parsePrArgs($0) {
|
|
|
11625
11760
|
switch($0.h) {
|
|
11626
11761
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
11627
11762
|
default: {
|
|
11628
|
-
const $3 =
|
|
11763
|
+
const $3 = Commands_n__9186_20480_recombineIntoArgs($0, $0);
|
|
11629
11764
|
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(
|
|
11765
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_741(), $18 => Commands_n__9186_20479_parseReadyFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_741(), $22 => Commands_n__9186_20475_parseDraftFlag($0, $22), $27 => Commands_x3cx7cx7cx3e(csegen_741(), $2c => Commands_n__9186_20478_parsePrintTreeFlag($0, $2c), $31 => Commands_n__9186_20477_parseLabelArg($0, $31), $27), $1d), $13), $3.a2);
|
|
11631
11766
|
return Data_Either_maybeToEither(() => Commands_prUsageError(), Prelude_Types_map_Functor_Maybe($3f => Prelude_Types_List_tailRecAppend($7, $3f), $e));
|
|
11632
11767
|
}
|
|
11633
11768
|
}
|
|
@@ -11643,7 +11778,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11643
11778
|
switch($0.a2.a2.h) {
|
|
11644
11779
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
11645
11780
|
default: {
|
|
11646
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(
|
|
11781
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_741(), $10 => Commands_n__10753_21975_parseCompletedFlag($0, $10), $15 => Commands_n__10753_21976_parseTeamArg($0, $15), $b), $0);
|
|
11647
11782
|
switch($6.h) {
|
|
11648
11783
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
11649
11784
|
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 +11787,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11652
11787
|
}
|
|
11653
11788
|
}
|
|
11654
11789
|
default: {
|
|
11655
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(
|
|
11790
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_741(), $27 => Commands_n__10753_21975_parseCompletedFlag($0, $27), $2c => Commands_n__10753_21976_parseTeamArg($0, $2c), $22), $0);
|
|
11656
11791
|
switch($1d.h) {
|
|
11657
11792
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
11658
11793
|
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 +11796,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11661
11796
|
}
|
|
11662
11797
|
}
|
|
11663
11798
|
default: {
|
|
11664
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(
|
|
11799
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_741(), $3e => Commands_n__10753_21975_parseCompletedFlag($0, $3e), $43 => Commands_n__10753_21976_parseTeamArg($0, $43), $39), $0);
|
|
11665
11800
|
switch($34.h) {
|
|
11666
11801
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
11667
11802
|
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 +11810,9 @@ function Commands_parseContributeArgs($0) {
|
|
|
11675
11810
|
switch($0.h) {
|
|
11676
11811
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
11677
11812
|
default: {
|
|
11678
|
-
const $3 =
|
|
11813
|
+
const $3 = Commands_n__11178_22359_recombineIgnoreArgs($0, $0);
|
|
11679
11814
|
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(
|
|
11815
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_741(), $18 => Commands_n__11178_22357_parseListFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_741(), $22 => Commands_n__11178_22358_parseSkipArg($0, $22), $27 => Commands_n__11178_22355_parseCheckoutFlag($0, $27), $1d), $13), $3.a2);
|
|
11681
11816
|
return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($34 => Prelude_Types_List_tailRecAppend($7, $34), $e));
|
|
11682
11817
|
}
|
|
11683
11818
|
}
|
|
@@ -11685,12 +11820,12 @@ function Commands_parseContributeArgs($0) {
|
|
|
11685
11820
|
|
|
11686
11821
|
/* Commands.listOrgTeams : Config => Octokit => Promise' () */
|
|
11687
11822
|
function Commands_listOrgTeams($0, $1, $2, $3) {
|
|
11688
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11823
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_742(), $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
11824
|
}
|
|
11690
11825
|
|
|
11691
11826
|
/* Commands.list : Config => Octokit => String -> Promise' () */
|
|
11692
11827
|
function Commands_list($0, $1, $2, $3, $4) {
|
|
11693
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11828
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_742(), $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_744(), Prelude_Types_traverse_Traversable_List(csegen_40()(), $29 => Commands_n__10585_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__10585_21788_putNameLn($1, $2, $0, $4e), teamMembers))), $31, $32), $19, $1a), $3, $4);
|
|
11694
11829
|
}
|
|
11695
11830
|
|
|
11696
11831
|
/* Commands.label : Config => Octokit => List String -> Promise' () */
|
|
@@ -11698,18 +11833,18 @@ function Commands_label($0, $1, $2, $3, $4) {
|
|
|
11698
11833
|
const $1a = $1b => {
|
|
11699
11834
|
switch($1b.h) {
|
|
11700
11835
|
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(
|
|
11836
|
+
const $1d = Prelude_Types_List_mapAppend({h: 0}, $21 => Commands_Label_unslugifyLabel($0.a13, $21), $2);
|
|
11837
|
+
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__8932_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__8932_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
11838
|
}
|
|
11704
11839
|
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
11840
|
}
|
|
11706
11841
|
};
|
|
11707
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11842
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_693(), $d => $e => $f => Commands_PullRequest_identifyOrCreatePR($0, $1, 0, {h: 0}, $d, $e, $f), $7, $8), $1a, $3, $4);
|
|
11708
11843
|
}
|
|
11709
11844
|
|
|
11710
11845
|
/* Commands.issueCategory : List QuickArg -> IssueCategory */
|
|
11711
11846
|
function Commands_issueCategory($0) {
|
|
11712
|
-
return Prelude_Types_maybe(() => 1, () => $4 => 0, Data_List_find(
|
|
11847
|
+
return Prelude_Types_maybe(() => 1, () => $4 => 0, Data_List_find(csegen_751(), $0));
|
|
11713
11848
|
}
|
|
11714
11849
|
|
|
11715
11850
|
/* Commands.health : Config => Octokit => Promise' () */
|
|
@@ -11719,8 +11854,8 @@ function Commands_health($0, $1, $2, $3) {
|
|
|
11719
11854
|
|
|
11720
11855
|
/* Commands.graph : Config => Octokit => List GraphArg -> Promise' () */
|
|
11721
11856
|
function Commands_graph($0, $1, $2) {
|
|
11722
|
-
const $3 = Data_List_find(
|
|
11723
|
-
return $8 =>
|
|
11857
|
+
const $3 = Data_List_find(csegen_751(), $2);
|
|
11858
|
+
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
11859
|
}
|
|
11725
11860
|
|
|
11726
11861
|
/* Commands.contributeUsageError : String */
|
|
@@ -11785,17 +11920,17 @@ function Commands_contribute($0, $1, $2, $3, $4) {
|
|
|
11785
11920
|
}
|
|
11786
11921
|
};
|
|
11787
11922
|
const $71 = Prelude_Types_List_filterAppend({h: 0}, $74, $12);
|
|
11788
|
-
const $7b = Prelude_Types_List_filterAppend({h: 0}, $7f =>
|
|
11923
|
+
const $7b = Prelude_Types_List_filterAppend({h: 0}, $7f => Commands_n__11530_22711_isNotIgnored($1, $2, $0, configx27, $7f), $71);
|
|
11789
11924
|
const $87 = Data_List_partition($8a => Data_PullRequest_isRequestedReviewer(myLogin, $8a), $7b);
|
|
11790
|
-
const $8f = Prelude_Interfaces_mapHom(
|
|
11925
|
+
const $8f = Prelude_Interfaces_mapHom(csegen_707(), $95 => Data_List_sortBy(csegen_758(), $95))($87);
|
|
11791
11926
|
let $70;
|
|
11792
11927
|
switch($53.h) {
|
|
11793
11928
|
case 0: /* nothing */ {
|
|
11794
|
-
$70 = () =>
|
|
11929
|
+
$70 = () => Commands_n__11530_22713_pickOne($1, $2, $0, configx27, $40, $4d, $8f.a1, $8f.a2);
|
|
11795
11930
|
break;
|
|
11796
11931
|
}
|
|
11797
11932
|
case undefined: /* just */ {
|
|
11798
|
-
$70 = () => $a5 => $a6 =>
|
|
11933
|
+
$70 = () => $a5 => $a6 => Commands_n__11530_22712_listSome($1, $2, $0, $40, $8f.a1, $8f.a2, $a5, $a6);
|
|
11799
11934
|
break;
|
|
11800
11935
|
}
|
|
11801
11936
|
}
|
|
@@ -11807,7 +11942,7 @@ function Commands_contribute($0, $1, $2, $3, $4) {
|
|
|
11807
11942
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($30, $3f, $2d, $2e);
|
|
11808
11943
|
};
|
|
11809
11944
|
};
|
|
11810
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => $1f => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11945
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => $1f => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_455()(), FFI_GitHub_getSelf($1), $1e, $1f), $29, $1a, $1b);
|
|
11811
11946
|
};
|
|
11812
11947
|
};
|
|
11813
11948
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequests($1, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $11, $3, $4);
|
|
@@ -11821,7 +11956,7 @@ function Commands_branch($0, $1, $2) {
|
|
|
11821
11956
|
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
11957
|
return $1f => $20 => $21 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($24 => Prelude_IO_prim__putStr(($b+'\n'), $24), $1f, $20, $21);
|
|
11823
11958
|
};
|
|
11824
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11959
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_693(), $6, $1, $2);
|
|
11825
11960
|
}
|
|
11826
11961
|
|
|
11827
11962
|
/* Commands.(<||>) : Alternative t => (a -> t b) -> (a -> t b) -> a -> t b */
|
|
@@ -12041,67 +12176,67 @@ function Data_SortedMap_Dependent_empty($0) {
|
|
|
12041
12176
|
|
|
12042
12177
|
/* Commands.User.Reflect.case block in case block in reflectOnSelf */
|
|
12043
12178
|
function Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
12044
|
-
const $b = Prelude_Interfaces_mapHom(
|
|
12179
|
+
const $b = Prelude_Interfaces_mapHom(csegen_707(), $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_780(), $11))))({a1: $7, a2: $9.a1});
|
|
12045
12180
|
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
12181
|
}
|
|
12047
12182
|
|
|
12048
|
-
/* Commands.User.Me.
|
|
12049
|
-
function
|
|
12183
|
+
/* Commands.User.Me.7792:2049:ul */
|
|
12184
|
+
function Commands_User_Me_n__7792_2049_ul($0, $1, $2, $3, $4) {
|
|
12050
12185
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
12051
12186
|
}
|
|
12052
12187
|
|
|
12053
|
-
/* Commands.User.Me.
|
|
12054
|
-
function
|
|
12055
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
12188
|
+
/* Commands.User.Me.7792:2048:teams */
|
|
12189
|
+
function Commands_User_Me_n__7792_2048_teams($0, $1, $2, $3) {
|
|
12190
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_User_Me_n__7792_2049_ul($0, $1, $2, $3, 'GitHub Teams:'), a2: Prelude_Types_List_mapAppend({h: 0}, $11 => Commands_User_Me_n__7792_2046_it($0, $1, $2, $3, $11), $0)});
|
|
12056
12191
|
}
|
|
12057
12192
|
|
|
12058
|
-
/* Commands.User.Me.
|
|
12059
|
-
function
|
|
12060
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'),
|
|
12193
|
+
/* Commands.User.Me.7792:2047:login */
|
|
12194
|
+
function Commands_User_Me_n__7792_2047_login($0, $1, $2, $3) {
|
|
12195
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'), Commands_User_Me_n__7792_2043_dataVal($0, $1, $2, $3, $1.a1));
|
|
12061
12196
|
}
|
|
12062
12197
|
|
|
12063
|
-
/* Commands.User.Reflect.
|
|
12064
|
-
function
|
|
12198
|
+
/* Commands.User.Reflect.6847:1075:ital */
|
|
12199
|
+
function Commands_User_Reflect_n__6847_1075_ital($0, $1) {
|
|
12065
12200
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
12066
12201
|
}
|
|
12067
12202
|
|
|
12068
|
-
/* Commands.User.Me.
|
|
12069
|
-
function
|
|
12203
|
+
/* Commands.User.Me.7792:2046:it */
|
|
12204
|
+
function Commands_User_Me_n__7792_2046_it($0, $1, $2, $3, $4) {
|
|
12070
12205
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
12071
12206
|
}
|
|
12072
12207
|
|
|
12073
|
-
/* Commands.User.Me.
|
|
12074
|
-
function
|
|
12208
|
+
/* Commands.User.Me.7942:2196:handleUnsetEmail */
|
|
12209
|
+
function Commands_User_Me_n__7942_2196_handleUnsetEmail($0, $1, $2) {
|
|
12075
12210
|
switch($2) {
|
|
12076
12211
|
case '': return {h: 0};
|
|
12077
12212
|
default: return {a1: $2};
|
|
12078
12213
|
}
|
|
12079
12214
|
}
|
|
12080
12215
|
|
|
12081
|
-
/* Commands.User.Me.
|
|
12082
|
-
function
|
|
12083
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'),
|
|
12216
|
+
/* Commands.User.Me.7792:2045:fullName */
|
|
12217
|
+
function Commands_User_Me_n__7792_2045_fullName($0, $1, $2, $3) {
|
|
12218
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'), Commands_User_Me_n__7792_2043_dataVal($0, $1, $2, $3, $1.a2));
|
|
12084
12219
|
}
|
|
12085
12220
|
|
|
12086
|
-
/* Commands.User.Me.
|
|
12087
|
-
function
|
|
12221
|
+
/* Commands.User.Me.7792:2044:email */
|
|
12222
|
+
function Commands_User_Me_n__7792_2044_email($0, $1, $2, $3) {
|
|
12088
12223
|
let $8;
|
|
12089
12224
|
switch($2.h) {
|
|
12090
12225
|
case undefined: /* just */ {
|
|
12091
|
-
$8 =
|
|
12226
|
+
$8 = Commands_User_Me_n__7792_2043_dataVal($0, $1, $2, $3, $2.a1);
|
|
12092
12227
|
break;
|
|
12093
12228
|
}
|
|
12094
12229
|
case 0: /* nothing */ {
|
|
12095
|
-
$8 =
|
|
12230
|
+
$8 = Commands_User_Me_n__7792_2046_it($0, $1, $2, $3, 'Not set');
|
|
12096
12231
|
break;
|
|
12097
12232
|
}
|
|
12098
12233
|
}
|
|
12099
12234
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Git Email:'), $8);
|
|
12100
12235
|
}
|
|
12101
12236
|
|
|
12102
|
-
/* Commands.User.Me.
|
|
12103
|
-
function
|
|
12104
|
-
return Theme_theme($3,
|
|
12237
|
+
/* Commands.User.Me.7792:2043:dataVal */
|
|
12238
|
+
function Commands_User_Me_n__7792_2043_dataVal($0, $1, $2, $3, $4) {
|
|
12239
|
+
return Theme_theme($3, csegen_783(), csegen_784(), 8)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
12105
12240
|
}
|
|
12106
12241
|
|
|
12107
12242
|
/* Commands.User.Reflect.rightTitle : String */
|
|
@@ -12124,20 +12259,20 @@ function Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
|
12124
12259
|
const $c = prs => $d => $e => {
|
|
12125
12260
|
const $1c = myLogin => $1d => $1e => {
|
|
12126
12261
|
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(
|
|
12262
|
+
const $3b = Prelude_Types_map_Functor_Maybe(csegen_786(), Data_List_headx27(Data_List_sortBy($44 => $45 => Prelude_Basics_on(csegen_756(), csegen_786(), $44, $45), reviews)));
|
|
12263
|
+
const $4e = Prelude_Interfaces_mapHom(csegen_707(), $54 => Prelude_Types_List_filterAppend({h: 0}, $58 => Prelude_EqOrd_x3dx3d_Eq_String($58.a5, myLogin), $54))(prs);
|
|
12264
|
+
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(csegen_707(), $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
12265
|
};
|
|
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(
|
|
12266
|
+
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_756(), csegen_780(), $2e, $2f), Commands_PullRequest_combined(prs))))), $3a, $1d, $1e);
|
|
12132
12267
|
};
|
|
12133
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
12268
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_455()(), FFI_GitHub_getSelf($1), $11, $12), $1c, $d, $e);
|
|
12134
12269
|
};
|
|
12135
12270
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_listPartitionedPRs($0, $1, 4n, Commands_User_Reflect_prCount()), $c, $2, $3);
|
|
12136
12271
|
}
|
|
12137
12272
|
|
|
12138
12273
|
/* Commands.User.Me.printInfoOnSelf : Config => Octokit => Promise' () */
|
|
12139
12274
|
function Commands_User_Me_printInfoOnSelf($0, $1, $2, $3) {
|
|
12140
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29($a =>
|
|
12275
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29($a => Commands_User_Me_n__7942_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_742(), $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
12276
|
}
|
|
12142
12277
|
|
|
12143
12278
|
/* Commands.User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Config =>
|
|
@@ -12148,7 +12283,7 @@ function Commands_User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
|
12148
12283
|
|
|
12149
12284
|
/* Commands.User.Me.print : Config -> Maybe String -> User -> List String -> Doc AnsiStyle */
|
|
12150
12285
|
function Commands_User_Me_print($0, $1, $2, $3) {
|
|
12151
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
12286
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7792_2044_email($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7792_2045_fullName($3, $2, $1, $0), a2: {a1: Commands_User_Me_n__7792_2047_login($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7792_2048_teams($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}}}}});
|
|
12152
12287
|
}
|
|
12153
12288
|
|
|
12154
12289
|
/* Commands.User.Reflect.prCount : Fin 101 */
|
|
@@ -12168,7 +12303,7 @@ const Commands_User_Reflect_intro = __lazy(function () {
|
|
|
12168
12303
|
|
|
12169
12304
|
/* Commands.User.Reflect.header : Nat -> Doc AnsiStyle */
|
|
12170
12305
|
function Commands_User_Reflect_header($0) {
|
|
12171
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1:
|
|
12306
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Commands_User_Reflect_n__6847_1075_ital($0, Commands_User_Reflect_leftTitle()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' '), a2: {a1: Commands_User_Reflect_n__6847_1075_ital($0, Commands_User_Reflect_rightTitle()), a2: {h: 0}}}}));
|
|
12172
12307
|
}
|
|
12173
12308
|
|
|
12174
12309
|
/* Commands.User.Reflect.graph : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Doc AnsiStyle */
|
|
@@ -12186,35 +12321,35 @@ function Commands_User_Reflect_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
|
12186
12321
|
|
|
12187
12322
|
/* Commands.User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
12188
12323
|
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(
|
|
12324
|
+
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_793(), $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_793(), $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
12325
|
}
|
|
12191
12326
|
|
|
12192
12327
|
/* Commands.User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Nat -> Doc AnsiStyle */
|
|
12193
12328
|
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,
|
|
12329
|
+
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_783(), csegen_803(), 4, $1, '\u{b7}'), Commands_User_replicatex27($6, csegen_804(), csegen_804(), 7, $3, '\u{25e6}')), Commands_User_replicatex27($6, csegen_805(), csegen_805(), 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_805(), csegen_805(), 5, $5, '>'), Commands_User_replicatex27($6, csegen_783(), csegen_803(), 4, $4, '\u{b7}')))));
|
|
12195
12330
|
}
|
|
12196
12331
|
|
|
12197
|
-
/* Theme.
|
|
12198
|
-
function
|
|
12332
|
+
/* Theme.4553:1352:maybeAnnotate */
|
|
12333
|
+
function Theme_n__4553_1352_maybeAnnotate($0, $1, $2, $3, $4) {
|
|
12199
12334
|
return Prelude_Types_maybe(() => $7 => $7, () => $9 => $a => Text_PrettyPrint_Prettyprinter_Doc_annotate($3($9), $a), $4);
|
|
12200
12335
|
}
|
|
12201
12336
|
|
|
12202
|
-
/* Theme.
|
|
12203
|
-
function
|
|
12337
|
+
/* Theme.4553:1351:go */
|
|
12338
|
+
function Theme_n__4553_1351_go($0, $1, $2, $3, $4, $5, $6) {
|
|
12204
12339
|
switch($3) {
|
|
12205
|
-
case 1: return $8 =>
|
|
12206
|
-
case 0: return $f =>
|
|
12340
|
+
case 1: return $8 => Theme_n__4553_1350_colorsAnn($0, $1, $2, $4, $8);
|
|
12341
|
+
case 0: return $f => Theme_n__4553_1350_colorsAnn($0, $1, $2, $5, $f);
|
|
12207
12342
|
}
|
|
12208
12343
|
}
|
|
12209
12344
|
|
|
12210
|
-
/* Theme.
|
|
12211
|
-
function
|
|
12212
|
-
return
|
|
12345
|
+
/* Theme.4553:1350:colorsAnn */
|
|
12346
|
+
function Theme_n__4553_1350_colorsAnn($0, $1, $2, $3, $4) {
|
|
12347
|
+
return Theme_n__4553_1352_maybeAnnotate($0, $1, $2, $c => Text_PrettyPrint_Prettyprinter_Render_Terminal_color($c), $3.a1)(Theme_n__4553_1352_maybeAnnotate($0, $1, $2, $17 => Text_PrettyPrint_Prettyprinter_Render_Terminal_bgColor($17), $3.a2)($4));
|
|
12213
12348
|
}
|
|
12214
12349
|
|
|
12215
12350
|
/* Theme.theme : Config => SemanticColor d l -> Doc AnsiStyle -> Doc AnsiStyle */
|
|
12216
12351
|
function Theme_theme($0, $1, $2, $3) {
|
|
12217
|
-
return
|
|
12352
|
+
return Theme_n__4553_1351_go($1, $2, $0.a18, $0.a18, $1, $2, $3);
|
|
12218
12353
|
}
|
|
12219
12354
|
|
|
12220
12355
|
/* Theme.cs : (colors : List Color) -> Either (length colors = 1) (length colors = 2) =>
|
|
@@ -12273,106 +12408,141 @@ function Commands_PullRequest_with__listOpenPRs_1391($0, $1, $2, $3, $4) {
|
|
|
12273
12408
|
}
|
|
12274
12409
|
|
|
12275
12410
|
/* Commands.PullRequest.case block in githubInferredBranchInfo */
|
|
12276
|
-
function
|
|
12411
|
+
function Commands_PullRequest_case__githubInferredBranchInfo_3775($0, $1, $2, $3, $4, $5) {
|
|
12277
12412
|
return $6 => {
|
|
12278
12413
|
switch($4.h) {
|
|
12279
12414
|
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 =>
|
|
12415
|
+
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__11924_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__11924_3546_relatedToPrefix($0, $1, $2, $3, $4.a1)))}, a3: {a1: (Commands_PullRequest_n__11924_3547_titlePrefix($0, $1, $2, $3)+issue.a2)}}, $27, $28), $17, $18), $5, $6);
|
|
12281
12416
|
}
|
|
12282
12417
|
};
|
|
12283
12418
|
}
|
|
12284
12419
|
|
|
12285
|
-
/* Commands.PullRequest.
|
|
12286
|
-
function
|
|
12420
|
+
/* Commands.PullRequest.10295:1999:userNotice */
|
|
12421
|
+
function Commands_PullRequest_n__10295_1999_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
12287
12422
|
switch($6.h) {
|
|
12288
12423
|
case 0: /* nothing */ {
|
|
12289
12424
|
switch($2.h) {
|
|
12290
12425
|
case 0: /* nil */ return 'no users';
|
|
12291
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1:
|
|
12426
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1: Commands_PullRequest_n__10295_1994_csv($0, $1, $2, $3, $4, $5, $2), a2: {h: 0}});
|
|
12292
12427
|
}
|
|
12293
12428
|
}
|
|
12294
|
-
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1f => $1f, {a1:
|
|
12429
|
+
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1f => $1f, {a1: Commands_PullRequest_n__10295_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: $2}), a2: {h: 0}});
|
|
12295
12430
|
}
|
|
12296
12431
|
}
|
|
12297
12432
|
|
|
12298
|
-
/* Commands.PullRequest.
|
|
12299
|
-
function
|
|
12433
|
+
/* Commands.PullRequest.11924:3547:titlePrefix */
|
|
12434
|
+
function Commands_PullRequest_n__11924_3547_titlePrefix($0, $1, $2, $3) {
|
|
12435
|
+
switch(Util_Github_isBugfixBranch($2)) {
|
|
12436
|
+
case 1: return Prelude_Types_maybe(() => '', () => $a => ($a+' '), $3.a10);
|
|
12437
|
+
case 0: return '';
|
|
12438
|
+
}
|
|
12439
|
+
}
|
|
12440
|
+
|
|
12441
|
+
/* Commands.PullRequest.11453:3083:terminus */
|
|
12442
|
+
function Commands_PullRequest_n__11453_3083_terminus($0, $1, $2, $3) {
|
|
12300
12443
|
return '\u{2a00}';
|
|
12301
12444
|
}
|
|
12302
12445
|
|
|
12303
|
-
/* Commands.PullRequest.
|
|
12304
|
-
function
|
|
12446
|
+
/* Commands.PullRequest.10295:1998:teamNotice */
|
|
12447
|
+
function Commands_PullRequest_n__10295_1998_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
12305
12448
|
switch($6.h) {
|
|
12306
12449
|
case 0: /* nil */ return '';
|
|
12307
12450
|
case undefined: /* cons */ {
|
|
12308
12451
|
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:
|
|
12452
|
+
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1: ' and team ', a2: {a1: Commands_PullRequest_n__10295_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: {h: 0}}), a2: {h: 0}}});
|
|
12453
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $23 => $23, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10295_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
12311
12454
|
}
|
|
12312
12455
|
}
|
|
12313
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $36 => $36, {a1: ' and teams ', a2: {a1:
|
|
12456
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $36 => $36, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10295_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
12314
12457
|
}
|
|
12315
12458
|
}
|
|
12316
12459
|
|
|
12317
|
-
/* Commands.PullRequest.
|
|
12318
|
-
function
|
|
12319
|
-
|
|
12320
|
-
|
|
12321
|
-
|
|
12322
|
-
|
|
12323
|
-
|
|
12324
|
-
|
|
12460
|
+
/* Commands.PullRequest.11531:3151:shellIndent */
|
|
12461
|
+
function Commands_PullRequest_n__11531_3151_shellIndent($0, $1, $2, $3) {
|
|
12462
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32((($2*4n)+1n))), $3);
|
|
12463
|
+
}
|
|
12464
|
+
|
|
12465
|
+
/* Commands.PullRequest.11531:3150:renderNode */
|
|
12466
|
+
function Commands_PullRequest_n__11531_3150_renderNode($0, $1, $2, $3) {
|
|
12467
|
+
switch($3.h) {
|
|
12468
|
+
case 0: /* Branch */ {
|
|
12469
|
+
const $6 = Prelude_Types_maybe(() => '', () => t => ('\n'+Commands_PullRequest_n__11531_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);
|
|
12470
|
+
const $1f = str => ({a1: ($2.a1+1n), a2: ($2.a2+(str+'\n'))});
|
|
12471
|
+
let $29;
|
|
12472
|
+
switch($0) {
|
|
12473
|
+
case 0: {
|
|
12474
|
+
$29 = Commands_PullRequest_n__11531_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}}}}}}));
|
|
12475
|
+
break;
|
|
12476
|
+
}
|
|
12477
|
+
case 1: {
|
|
12478
|
+
$29 = Util_renderString($1, Commands_PullRequest_n__11531_3151_shellIndent($0, $1, $2.a1, Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a1), Theme_n__4553_1351_go(csegen_807(), csegen_807(), 0, 0, csegen_807(), csegen_807(), 9)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Maybe_fromMaybe(() => $3.a2, $3.a3))))));
|
|
12479
|
+
break;
|
|
12325
12480
|
}
|
|
12326
12481
|
}
|
|
12327
|
-
|
|
12482
|
+
return $1f($29);
|
|
12328
12483
|
}
|
|
12329
|
-
|
|
12330
|
-
|
|
12484
|
+
case 1: /* PR */ {
|
|
12485
|
+
const $61 = str => ({a1: ($2.a1+1n), a2: ($2.a2+(str+'\n'))});
|
|
12486
|
+
const $6a = Data_PullRequest_webURIx27($1.a2, $1.a3, $3.a2);
|
|
12487
|
+
let $72;
|
|
12488
|
+
switch($0) {
|
|
12489
|
+
case 0: {
|
|
12490
|
+
$72 = (Commands_PullRequest_n__11531_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__11531_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}}}}))));
|
|
12491
|
+
break;
|
|
12492
|
+
}
|
|
12493
|
+
case 1: {
|
|
12494
|
+
$72 = Util_renderString($1, Commands_PullRequest_n__11531_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__4553_1351_go(csegen_783(), csegen_784(), 0, 0, csegen_783(), csegen_784(), 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}}})));
|
|
12495
|
+
break;
|
|
12496
|
+
}
|
|
12497
|
+
}
|
|
12498
|
+
return $61($72);
|
|
12499
|
+
}
|
|
12500
|
+
}
|
|
12331
12501
|
}
|
|
12332
12502
|
|
|
12333
|
-
/* Commands.PullRequest.
|
|
12334
|
-
function
|
|
12503
|
+
/* Commands.PullRequest.11924:3546:relatedToPrefix */
|
|
12504
|
+
function Commands_PullRequest_n__11924_3546_relatedToPrefix($0, $1, $2, $3, $4) {
|
|
12335
12505
|
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $a => $a, {a1: 'Related to #', a2: {a1: $4, a2: {h: 0}}});
|
|
12336
12506
|
}
|
|
12337
12507
|
|
|
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 =>
|
|
12508
|
+
/* Commands.PullRequest.12429:4029:prTitlePrompt */
|
|
12509
|
+
function Commands_PullRequest_n__12429_4029_prTitlePrompt($0, $1, $2, $3, $4, $5) {
|
|
12510
|
+
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__12429_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
12511
|
}
|
|
12342
12512
|
|
|
12343
|
-
/* Commands.PullRequest.
|
|
12344
|
-
function
|
|
12513
|
+
/* Commands.PullRequest.10295:1997:prComment */
|
|
12514
|
+
function Commands_PullRequest_n__10295_1997_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
12345
12515
|
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
12516
|
}
|
|
12347
12517
|
|
|
12348
|
-
/* Commands.PullRequest.
|
|
12349
|
-
function
|
|
12518
|
+
/* Commands.PullRequest.12429:4028:notEmptyString */
|
|
12519
|
+
function Commands_PullRequest_n__12429_4028_notEmptyString($0, $1, $2, $3, $4, $5) {
|
|
12350
12520
|
switch($5) {
|
|
12351
12521
|
case '': return {h: 0};
|
|
12352
12522
|
default: return {a1: $5};
|
|
12353
12523
|
}
|
|
12354
12524
|
}
|
|
12355
12525
|
|
|
12356
|
-
/* Commands.PullRequest.
|
|
12357
|
-
function
|
|
12358
|
-
return
|
|
12526
|
+
/* Commands.PullRequest.10295:1996:namePrComment */
|
|
12527
|
+
function Commands_PullRequest_n__10295_1996_namePrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
12528
|
+
return Commands_PullRequest_n__10295_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $14 => $14, {a1: $6.a2, a2: {h: 0}}));
|
|
12359
12529
|
}
|
|
12360
12530
|
|
|
12361
|
-
/* Commands.PullRequest.
|
|
12362
|
-
function
|
|
12363
|
-
return
|
|
12531
|
+
/* Commands.PullRequest.10295:1995:mentionPrComment */
|
|
12532
|
+
function Commands_PullRequest_n__10295_1995_mentionPrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
12533
|
+
return Commands_PullRequest_n__10295_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
12534
|
}
|
|
12365
12535
|
|
|
12366
|
-
/* Commands.PullRequest.
|
|
12367
|
-
function
|
|
12368
|
-
return ((Data_String_replicate(($
|
|
12536
|
+
/* Commands.PullRequest.11531:3149:mdIndent */
|
|
12537
|
+
function Commands_PullRequest_n__11531_3149_mdIndent($0, $1, $2, $3) {
|
|
12538
|
+
return ((Data_String_replicate(($2+1n), '>')+' ')+$3);
|
|
12369
12539
|
}
|
|
12370
12540
|
|
|
12371
|
-
/* Commands.PullRequest.
|
|
12372
|
-
function
|
|
12541
|
+
/* Commands.PullRequest.11924:3545:maybePrTree */
|
|
12542
|
+
function Commands_PullRequest_n__11924_3545_maybePrTree($0, $1, $2, $3, $4, $5) {
|
|
12373
12543
|
return $6 => {
|
|
12374
12544
|
let $7;
|
|
12375
|
-
switch($3.
|
|
12545
|
+
switch($3.a11) {
|
|
12376
12546
|
case 1: {
|
|
12377
12547
|
$7 = Prelude_EqOrd_x2fx3d_Eq_String($1, $3.a5);
|
|
12378
12548
|
break;
|
|
@@ -12385,8 +12555,9 @@ function Commands_PullRequest_n__11942_3600_maybePrTree($0, $1, $2, $3, $4, $5)
|
|
|
12385
12555
|
switch($7) {
|
|
12386
12556
|
case 1: {
|
|
12387
12557
|
const $17 = $18 => {
|
|
12388
|
-
const $1a =
|
|
12389
|
-
|
|
12558
|
+
const $1a = Commands_PullRequest_prTree({a1: $2}, {a1: $4.a2}, $18.a1, $18.a2);
|
|
12559
|
+
const $23 = Commands_PullRequest_renderPrTree($3, 0, $1a);
|
|
12560
|
+
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
12561
|
};
|
|
12391
12562
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_prChain($3, $0, Data_Fuel_limit(10n), $1), $17, $5, $6);
|
|
12392
12563
|
}
|
|
@@ -12395,79 +12566,57 @@ function Commands_PullRequest_n__11942_3600_maybePrTree($0, $1, $2, $3, $4, $5)
|
|
|
12395
12566
|
};
|
|
12396
12567
|
}
|
|
12397
12568
|
|
|
12398
|
-
/* Commands.PullRequest.
|
|
12399
|
-
function
|
|
12569
|
+
/* Commands.PullRequest.11924:3544:issueNumber */
|
|
12570
|
+
function Commands_PullRequest_n__11924_3544_issueNumber($0, $1, $2, $3) {
|
|
12400
12571
|
return Util_Github_parseGithubIssueNumber($2);
|
|
12401
12572
|
}
|
|
12402
12573
|
|
|
12403
|
-
/* Commands.PullRequest.
|
|
12404
|
-
function
|
|
12405
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 =>
|
|
12574
|
+
/* Commands.PullRequest.11924:3543:issueDescriptionPrefix */
|
|
12575
|
+
function Commands_PullRequest_n__11924_3543_issueDescriptionPrefix($0, $1, $2, $3, $4, $5, $6) {
|
|
12576
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => Commands_PullRequest_n__11924_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
12577
|
}
|
|
12407
12578
|
|
|
12408
|
-
/* Commands.PullRequest.
|
|
12409
|
-
function
|
|
12579
|
+
/* Commands.PullRequest.12322:3915:into */
|
|
12580
|
+
function Commands_PullRequest_n__12322_3915_into($0, $1, $2, $3) {
|
|
12410
12581
|
switch($0.h) {
|
|
12411
12582
|
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $a => $a, {a1: $0.a1, a2: {a1: '...', a2: {h: 0}}});
|
|
12412
12583
|
case 0: /* nothing */ return '';
|
|
12413
12584
|
}
|
|
12414
12585
|
}
|
|
12415
12586
|
|
|
12416
|
-
/* Commands.PullRequest.
|
|
12417
|
-
function
|
|
12587
|
+
/* Commands.PullRequest.12429:4027:inlineDescriptionPrompt */
|
|
12588
|
+
function Commands_PullRequest_n__12429_4027_inlineDescriptionPrompt($0, $1, $2, $3, $4) {
|
|
12418
12589
|
return 'What would you like the description to be (two blank lines to finish)?';
|
|
12419
12590
|
}
|
|
12420
12591
|
|
|
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) {
|
|
12592
|
+
/* Commands.PullRequest.11453:3082:go */
|
|
12593
|
+
function Commands_PullRequest_n__11453_3082_go($0, $1, $2, $3, $4) {
|
|
12594
|
+
switch($4.h) {
|
|
12429
12595
|
case 0: /* nil */ {
|
|
12430
|
-
switch($
|
|
12431
|
-
case undefined: /* just */ return
|
|
12432
|
-
case 0: /* nothing */ return
|
|
12596
|
+
switch($3.h) {
|
|
12597
|
+
case undefined: /* just */ return {a1: {h: 0 /* Branch */, a1: Commands_PullRequest_n__11453_3081_arrow($0, $1, $2, $3), a2: $3.a1, a3: $2}, a2: {h: 0}};
|
|
12598
|
+
case 0: /* nothing */ return {h: 0};
|
|
12433
12599
|
}
|
|
12434
12600
|
}
|
|
12435
|
-
case undefined: /* cons */ return (
|
|
12601
|
+
case undefined: /* cons */ return {a1: {h: 1 /* PR */, a1: Commands_PullRequest_n__11453_3081_arrow($0, $1, $2, $3), a2: $4.a1}, a2: Commands_PullRequest_n__11453_3082_go($0, $1, $2, $3, $4.a2)};
|
|
12436
12602
|
}
|
|
12437
12603
|
}
|
|
12438
12604
|
|
|
12439
|
-
/* Commands.PullRequest.
|
|
12440
|
-
function
|
|
12605
|
+
/* Commands.PullRequest.12429:4026:getBaseBranch */
|
|
12606
|
+
function Commands_PullRequest_n__12429_4026_getBaseBranch($0, $1, $2, $3, $4, $5, $6) {
|
|
12441
12607
|
switch($2.h) {
|
|
12442
12608
|
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)),
|
|
12609
|
+
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_498()(), $4f, $50), $5, $6);
|
|
12444
12610
|
}
|
|
12445
12611
|
}
|
|
12446
12612
|
|
|
12447
|
-
/* Commands.PullRequest.
|
|
12448
|
-
function
|
|
12449
|
-
switch($6.h) {
|
|
12450
|
-
case 0: /* nothing */ return (Commands_PullRequest_n__11371_3088_mdIndent($0, $1, $2, $3, $4, $5, $6, $7, $8, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1c => $1c, {a1: Commands_PullRequest_n__11371_3083_arrow($0, $1, $2, $3, $4, $5, $6, $7), a2: {a1: ' `', a2: {a1: $9.a8, a2: {a1: '` (', a2: {a1: Data_PullRequest_webURIx27($5, $4, $9), a2: {a1: ')', a2: {h: 0}}}}}}}))+('\n'+Commands_PullRequest_n__11371_3088_mdIndent($0, $1, $2, $3, $4, $5, $6, $7, $8, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $4b => $4b, {a1: '**', a2: {a1: $9.a2, a2: {a1: '**', a2: {h: 0}}}}))));
|
|
12451
|
-
case undefined: /* just */ return Commands_PullRequest_n__11371_3089_renderPretty($0, $1, $2, $3, $4, $5, $6, $7, Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32((($8*Commands_PullRequest_n__11371_3087_indentIncrement($0, $1, $2, $3, $4, $5, $6, $7))+1n))), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Commands_PullRequest_n__11371_3083_arrow($0, $1, $2, $3, $4, $5, $6, $7)), Theme_n__4484_1351_go(csegen_745(), csegen_746(), $7, $7, csegen_745(), csegen_746(), 8)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($9.a2))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{2514}'), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_PullRequest_webURIx27($5, $4, $9))))), a2: {h: 0}}})));
|
|
12452
|
-
}
|
|
12453
|
-
}
|
|
12454
|
-
|
|
12455
|
-
/* Commands.PullRequest.11371:3084:formattedBranchLine */
|
|
12456
|
-
function Commands_PullRequest_n__11371_3084_formattedBranchLine($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a, $b) {
|
|
12457
|
-
const $c = Prelude_Types_maybe(() => '', () => t => ('\n'+Commands_PullRequest_n__11371_3088_mdIndent($0, $1, $2, $3, $4, $5, $6, $7, $8, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $22 => $22, {a1: '**', a2: {a1: t, a2: {a1: '**', a2: {h: 0}}}}))), $b);
|
|
12458
|
-
switch($6.h) {
|
|
12459
|
-
case 0: /* nothing */ return Commands_PullRequest_n__11371_3088_mdIndent($0, $1, $2, $3, $4, $5, $6, $7, $8, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $3c => $3c, {a1: $9, a2: {a1: ' `', a2: {a1: $a, a2: {a1: '`', a2: {a1: $c, a2: {h: 0}}}}}}));
|
|
12460
|
-
case undefined: /* just */ return Commands_PullRequest_n__11371_3089_renderPretty($0, $1, $2, $3, $4, $5, $6, $7, Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32((($8*Commands_PullRequest_n__11371_3087_indentIncrement($0, $1, $2, $3, $4, $5, $6, $7))+1n))), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($9), Theme_n__4484_1351_go(csegen_772(), csegen_772(), $7, $7, csegen_772(), csegen_772(), 9)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($a)))));
|
|
12461
|
-
}
|
|
12462
|
-
}
|
|
12463
|
-
|
|
12464
|
-
/* Commands.PullRequest.9987:1725:forkedReviews */
|
|
12465
|
-
function Commands_PullRequest_n__9987_1725_forkedReviews($0, $1, $2, $3) {
|
|
12613
|
+
/* Commands.PullRequest.10057:1725:forkedReviews */
|
|
12614
|
+
function Commands_PullRequest_n__10057_1725_forkedReviews($0, $1, $2, $3) {
|
|
12466
12615
|
return FFI_Concurrency_fork(csegen_48()(), ('reviews --json '+Prelude_Show_show_Show_Integer($3.a1)));
|
|
12467
12616
|
}
|
|
12468
12617
|
|
|
12469
|
-
/* Commands.PullRequest.
|
|
12470
|
-
function
|
|
12618
|
+
/* Commands.PullRequest.9480:1180:filterString */
|
|
12619
|
+
function Commands_PullRequest_n__9480_1180_filterString($0, $1, $2, $3, $4) {
|
|
12471
12620
|
switch($4.h) {
|
|
12472
12621
|
case 0: /* nothing */ return 'none';
|
|
12473
12622
|
case undefined: /* just */ {
|
|
@@ -12479,13 +12628,13 @@ function Commands_PullRequest_n__9410_1180_filterString($0, $1, $2, $3, $4) {
|
|
|
12479
12628
|
}
|
|
12480
12629
|
}
|
|
12481
12630
|
|
|
12482
|
-
/* Commands.PullRequest.
|
|
12483
|
-
function
|
|
12631
|
+
/* Commands.PullRequest.10295:1994:csv */
|
|
12632
|
+
function Commands_PullRequest_n__10295_1994_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
12484
12633
|
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
12634
|
}
|
|
12486
12635
|
|
|
12487
|
-
/* Commands.PullRequest.
|
|
12488
|
-
function
|
|
12636
|
+
/* Commands.PullRequest.12429:4025:createPR */
|
|
12637
|
+
function Commands_PullRequest_n__12429_4025_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
12489
12638
|
const $38 = $39 => $3a => $3b => {
|
|
12490
12639
|
const $48 = $49 => $4a => $4b => {
|
|
12491
12640
|
switch($49) {
|
|
@@ -12515,11 +12664,11 @@ function Commands_PullRequest_n__12407_4042_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
12515
12664
|
let $133;
|
|
12516
12665
|
switch($134.h) {
|
|
12517
12666
|
case 0: /* nothing */ {
|
|
12518
|
-
$133 = Util_Prompting_inlineDescription(csegen_48()(),
|
|
12667
|
+
$133 = Util_Prompting_inlineDescription(csegen_48()(), Commands_PullRequest_n__12429_4027_inlineDescriptionPrompt($0, $1, $2, $3, $4), $109);
|
|
12519
12668
|
break;
|
|
12520
12669
|
}
|
|
12521
12670
|
case undefined: /* just */ {
|
|
12522
|
-
$133 = $143 => $144 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
12671
|
+
$133 = $143 => $144 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_832(), Util_Prompting_editorDescription(csegen_48()(), $134.a1, {a1: templateFilePath}, $109), $143, $144);
|
|
12523
12672
|
break;
|
|
12524
12673
|
}
|
|
12525
12674
|
}
|
|
@@ -12527,12 +12676,12 @@ function Commands_PullRequest_n__12407_4042_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
12527
12676
|
};
|
|
12528
12677
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($129 => $12a => Util_relativeToRoot('.github/PULL_REQUEST_TEMPLATE.md', $129, $12a), $12f, $125, $126);
|
|
12529
12678
|
};
|
|
12530
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($112 => $113 => Data_Promise_map_Functor_x28Promisex20x24ex29($116 => ($104+$116),
|
|
12679
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($112 => $113 => Data_Promise_map_Functor_x28Promisex20x24ex29($116 => ($104+$116), Commands_PullRequest_n__12429_4029_prTitlePrompt($0, $1, $2, $3, $4, inferredBranchInfo.a3), $112, $113), $124, $10e, $10f);
|
|
12531
12680
|
};
|
|
12532
12681
|
};
|
|
12533
12682
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_getInferredBranchInfo($4, $0, $1, baseBranch), $103, $fa, $fb);
|
|
12534
12683
|
};
|
|
12535
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ef => $f0 =>
|
|
12684
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ef => $f0 => Commands_PullRequest_n__12429_4026_getBaseBranch($0, $1, $2, $3, $4, $ef, $f0), $f9, $eb, $ec);
|
|
12536
12685
|
};
|
|
12537
12686
|
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
12687
|
};
|
|
@@ -12541,51 +12690,51 @@ function Commands_PullRequest_n__12407_4042_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
12541
12690
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $5b, $5c);
|
|
12542
12691
|
}
|
|
12543
12692
|
};
|
|
12544
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4f => $50 =>
|
|
12693
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4f => $50 => Commands_PullRequest_n__12429_4023_continueGivenStagedChanges($0, $1, $2, $3, $4, $4f, $50), $59, $4a, $4b);
|
|
12545
12694
|
}
|
|
12546
12695
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $4a, $4b);
|
|
12547
12696
|
}
|
|
12548
12697
|
};
|
|
12549
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f =>
|
|
12698
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f => Commands_PullRequest_n__12429_4024_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $3e, $3f), $48, $3a, $3b);
|
|
12550
12699
|
};
|
|
12551
12700
|
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
12701
|
}
|
|
12553
12702
|
|
|
12554
|
-
/* Commands.PullRequest.
|
|
12555
|
-
function
|
|
12703
|
+
/* Commands.PullRequest.12429:4024:continueGivenUncommittedChanges */
|
|
12704
|
+
function Commands_PullRequest_n__12429_4024_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
12556
12705
|
const $e = $f => $10 => $11 => {
|
|
12557
12706
|
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),
|
|
12707
|
+
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_839(), $23, $24), $10, $11);
|
|
12559
12708
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $10, $11);
|
|
12560
12709
|
}
|
|
12561
12710
|
};
|
|
12562
12711
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => $a => System_Git_uncommittedChanges($9, $a), $e, $5, $6);
|
|
12563
12712
|
}
|
|
12564
12713
|
|
|
12565
|
-
/* Commands.PullRequest.
|
|
12566
|
-
function
|
|
12714
|
+
/* Commands.PullRequest.12429:4023:continueGivenStagedChanges */
|
|
12715
|
+
function Commands_PullRequest_n__12429_4023_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
12567
12716
|
const $e = $f => $10 => $11 => {
|
|
12568
12717
|
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),
|
|
12718
|
+
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_839(), $23, $24), $10, $11);
|
|
12570
12719
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $10, $11);
|
|
12571
12720
|
}
|
|
12572
12721
|
};
|
|
12573
12722
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => $a => System_Git_stagedChanges($9, $a), $e, $5, $6);
|
|
12574
12723
|
}
|
|
12575
12724
|
|
|
12576
|
-
/* Commands.PullRequest.
|
|
12577
|
-
function
|
|
12725
|
+
/* Commands.PullRequest.11453:3081:arrow */
|
|
12726
|
+
function Commands_PullRequest_n__11453_3081_arrow($0, $1, $2, $3) {
|
|
12578
12727
|
return '\u{2196}';
|
|
12579
12728
|
}
|
|
12580
12729
|
|
|
12581
12730
|
/* Commands.PullRequest.(.allReviewers) : PRHistory -> (List String, List String) */
|
|
12582
12731
|
function Commands_PullRequest_rf__allReviewers($0) {
|
|
12583
|
-
return Prelude_Interfaces_mapHom(
|
|
12732
|
+
return Prelude_Interfaces_mapHom(csegen_707(), $6 => Prelude_Types_join_Monad_List(Prelude_Types_List_mapAppend({h: 0}, $c => $c.a7, $6)))($0);
|
|
12584
12733
|
}
|
|
12585
12734
|
|
|
12586
12735
|
/* Commands.PullRequest.reviewsForPrs : Config => Octokit => List PullRequest -> Promise' (List Review) */
|
|
12587
12736
|
function Commands_PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
|
|
12588
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_41()(),
|
|
12737
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_41()(), csegen_744(), Prelude_Types_traverse_Traversable_List(csegen_40()(), $13 => Commands_PullRequest_n__10057_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
12738
|
}
|
|
12590
12739
|
|
|
12591
12740
|
/* Commands.PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise' (List Review) */
|
|
@@ -12615,9 +12764,9 @@ function Commands_PullRequest_reviewsByUser($0, $1, $2, $3) {
|
|
|
12615
12764
|
List PullRequest -> Promise' (SortedMap String (List Review)) */
|
|
12616
12765
|
function Commands_PullRequest_reviewsByEachUser($0, $1, $2, $3, $4) {
|
|
12617
12766
|
const $f = reviews => {
|
|
12618
|
-
const $10 = Data_List_groupAllWith(
|
|
12767
|
+
const $10 = Data_List_groupAllWith(csegen_409(), $15 => $15.a2, reviews);
|
|
12619
12768
|
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(
|
|
12769
|
+
return $21 => $22 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Data_SortedMap_fromList(csegen_409(), $18), $21, $22);
|
|
12621
12770
|
};
|
|
12622
12771
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Commands_PullRequest_reviewsForPrs($0, $1, $2, $7, $8), $f, $3, $4);
|
|
12623
12772
|
}
|
|
@@ -12631,12 +12780,12 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12631
12780
|
let $38;
|
|
12632
12781
|
switch($0.a7) {
|
|
12633
12782
|
case 1: {
|
|
12634
|
-
const $3b = Commands_Reviewer_chooseReviewers(
|
|
12783
|
+
const $3b = Commands_Reviewer_chooseReviewers(csegen_409(), $14.a2, $14.a1, teamMembers, {h: 0}, $2.a5);
|
|
12635
12784
|
$38 = Commands_Reviewer_randomReviewer(csegen_48()(), $3b);
|
|
12636
12785
|
break;
|
|
12637
12786
|
}
|
|
12638
12787
|
case 0: {
|
|
12639
|
-
$38 =
|
|
12788
|
+
$38 = csegen_502()();
|
|
12640
12789
|
break;
|
|
12641
12790
|
}
|
|
12642
12791
|
}
|
|
@@ -12672,8 +12821,8 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12672
12821
|
return $7f => {
|
|
12673
12822
|
switch($0.a8) {
|
|
12674
12823
|
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,
|
|
12824
|
+
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, Commands_PullRequest_n__10295_1995_mentionPrComment($1, $5, $4, $3, $2, $0, chosenUser.a1), $7d, $7f);
|
|
12825
|
+
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__10295_1996_namePrComment($1, $5, $4, $3, $2, $0, user), $9f, $a0), $7d, $7f);
|
|
12677
12826
|
}
|
|
12678
12827
|
};
|
|
12679
12828
|
}
|
|
@@ -12697,11 +12846,11 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12697
12846
|
let $bf;
|
|
12698
12847
|
switch($c0) {
|
|
12699
12848
|
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:
|
|
12849
|
+
$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__10295_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
12850
|
break;
|
|
12702
12851
|
}
|
|
12703
12852
|
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:
|
|
12853
|
+
$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__10295_1999_userNotice($1, $5, $4, $3, $2, $0, chosenUser), a2: {a1: Commands_PullRequest_n__10295_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
12854
|
break;
|
|
12706
12855
|
}
|
|
12707
12856
|
}
|
|
@@ -12717,14 +12866,19 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12717
12866
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => Commands_PullRequest_listReviewers($0, $1, 4n, 100n, $a, $b), $13, $6, $7);
|
|
12718
12867
|
}
|
|
12719
12868
|
|
|
12720
|
-
/* Commands.PullRequest.renderPrTree :
|
|
12721
|
-
function Commands_PullRequest_renderPrTree($0, $1, $2
|
|
12722
|
-
return (
|
|
12869
|
+
/* Commands.PullRequest.renderPrTree : Config => RenderFormat -> List PrTreeNode -> String */
|
|
12870
|
+
function Commands_PullRequest_renderPrTree($0, $1, $2) {
|
|
12871
|
+
return Builtin_snd(Prelude_Types_foldl_Foldable_List($7 => $8 => Commands_PullRequest_n__11531_3150_renderNode($1, $0, $7, $8), {a1: 0n, a2: ''}, $2));
|
|
12872
|
+
}
|
|
12873
|
+
|
|
12874
|
+
/* Commands.PullRequest.prTree : Maybe String -> Maybe String -> List PullRequest -> String -> List PrTreeNode */
|
|
12875
|
+
function Commands_PullRequest_prTree($0, $1, $2, $3) {
|
|
12876
|
+
return {a1: {h: 0 /* Branch */, a1: Commands_PullRequest_n__11453_3083_terminus($3, $2, $1, $0), a2: $3, a3: {h: 0}}, a2: Commands_PullRequest_n__11453_3082_go($3, $2, $1, $0, Prelude_Types_List_reverse($2))};
|
|
12723
12877
|
}
|
|
12724
12878
|
|
|
12725
12879
|
/* Commands.PullRequest.prCreationUrl : String -> String -> String -> Maybe String -> String */
|
|
12726
12880
|
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:
|
|
12881
|
+
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__12322_3915_into($3, $2, $1, $0), a2: {a1: $2, a2: {a1: '?expand=1', a2: {h: 0}}}}}}}}});
|
|
12728
12882
|
}
|
|
12729
12883
|
|
|
12730
12884
|
/* Commands.PullRequest.prChain : Config => Octokit => Fuel -> String -> Promise' (List PullRequest, String) */
|
|
@@ -12806,7 +12960,7 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
12806
12960
|
return $20 => {
|
|
12807
12961
|
const $29 = $2a => $2b => $2c => {
|
|
12808
12962
|
switch($2a) {
|
|
12809
|
-
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($30 => ({h: 0 /* Actual */, a1: 1, a2: $30}), $34 => $35 =>
|
|
12963
|
+
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($30 => ({h: 0 /* Actual */, a1: 1, a2: $30}), $34 => $35 => Commands_PullRequest_n__12429_4025_createPR($1, $4, $3, $2, $0, $34, $35), $2b, $2c);
|
|
12810
12964
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1: Commands_PullRequest_prCreationUrl($0.a2, $0.a3, $4, $3)}, $2b, $2c);
|
|
12811
12965
|
}
|
|
12812
12966
|
};
|
|
@@ -12821,7 +12975,7 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
12821
12975
|
|
|
12822
12976
|
/* Commands.PullRequest.githubInferredBranchInfo : Config => Octokit => String -> String -> Promise' BranchInferredData */
|
|
12823
12977
|
function Commands_PullRequest_githubInferredBranchInfo($0, $1, $2, $3) {
|
|
12824
|
-
return $4 =>
|
|
12978
|
+
return $4 => Commands_PullRequest_case__githubInferredBranchInfo_3775($1, $3, $2, $0, Commands_PullRequest_n__11924_3544_issueNumber($1, $3, $2, $0), $4);
|
|
12825
12979
|
}
|
|
12826
12980
|
|
|
12827
12981
|
/* Commands.PullRequest.getInferredBranchInfo : Config => Octokit => String -> String -> Promise' BranchInferredData */
|
|
@@ -12835,7 +12989,7 @@ function Commands_PullRequest_getInferredBranchInfo($0, $1, $2, $3) {
|
|
|
12835
12989
|
|
|
12836
12990
|
/* Commands.PullRequest.forkedPRs : Maybe GitHubPRState -> Nat -> Nat -> Nat -> () -> Promise' Future */
|
|
12837
12991
|
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:
|
|
12992
|
+
return FFI_Concurrency_fork(csegen_48()(), Prelude_Types_foldMap_Foldable_List(csegen_86()(), $f => $f, {a1: 'pulls --json ', a2: {a1: Commands_PullRequest_n__9480_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
12993
|
}
|
|
12840
12994
|
|
|
12841
12995
|
/* Commands.PullRequest.empty : PRHistory */
|
|
@@ -12920,21 +13074,21 @@ function Util_Jira_n__2629_818_go($0, $1) {
|
|
|
12920
13074
|
|
|
12921
13075
|
/* Util.Jira.parseJiraSlug : String -> Maybe String */
|
|
12922
13076
|
function Util_Jira_parseJiraSlug($0) {
|
|
12923
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
13077
|
+
return Prelude_Types_map_Functor_Maybe(csegen_878(), 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
13078
|
}
|
|
12925
13079
|
|
|
12926
|
-
/* Util.Github.
|
|
12927
|
-
const
|
|
12928
|
-
return {a1: {h: 1 /*
|
|
13080
|
+
/* Util.Github.3729:2547:startOver */
|
|
13081
|
+
const Util_Github_n__3729_2547_startOver = __lazy(function () {
|
|
13082
|
+
return {a1: {h: 1 /* 3729:2543:StartOver */}, a2: {h: 0}};
|
|
12929
13083
|
});
|
|
12930
13084
|
|
|
12931
|
-
/* Util.Github.
|
|
12932
|
-
function
|
|
13085
|
+
/* Util.Github.3729:2546:guardSuccess */
|
|
13086
|
+
function Util_Github_n__3729_2546_guardSuccess($0) {
|
|
12933
13087
|
switch($0.h) {
|
|
12934
13088
|
case undefined: /* cons */ {
|
|
12935
13089
|
switch($0.a1.h) {
|
|
12936
|
-
case 5: /*
|
|
12937
|
-
case 4: /*
|
|
13090
|
+
case 5: /* 3729:2539:PostSlash */ return {a1: $0.a2};
|
|
13091
|
+
case 4: /* 3729:2537:Number */ return {a1: $0.a2};
|
|
12938
13092
|
default: return {h: 0};
|
|
12939
13093
|
}
|
|
12940
13094
|
}
|
|
@@ -12942,87 +13096,92 @@ function Util_Github_n__2629_825_guardSuccess($0) {
|
|
|
12942
13096
|
}
|
|
12943
13097
|
}
|
|
12944
13098
|
|
|
12945
|
-
/* Util.Github.
|
|
12946
|
-
function
|
|
13099
|
+
/* Util.Github.3729:2545:goPrefix */
|
|
13100
|
+
function Util_Github_n__3729_2545_goPrefix($0, $1) {
|
|
12947
13101
|
switch($0.h) {
|
|
12948
13102
|
case undefined: /* cons */ {
|
|
12949
13103
|
switch($0.a1) {
|
|
12950
13104
|
case 0: {
|
|
12951
13105
|
switch($1) {
|
|
12952
|
-
case 'H': return {a1: {h: 3 /*
|
|
12953
|
-
default: return
|
|
13106
|
+
case 'H': return {a1: {h: 3 /* 3729:2541:Prefix */, a1: 1}, a2: $0.a2};
|
|
13107
|
+
default: return Util_Github_n__3729_2547_startOver();
|
|
12954
13108
|
}
|
|
12955
13109
|
}
|
|
12956
13110
|
case 1: {
|
|
12957
13111
|
switch($1) {
|
|
12958
|
-
case '-': return {a1: {h: 3 /*
|
|
12959
|
-
default: return
|
|
13112
|
+
case '-': return {a1: {h: 3 /* 3729:2541:Prefix */, a1: 2}, a2: $0.a2};
|
|
13113
|
+
default: return Util_Github_n__3729_2547_startOver();
|
|
12960
13114
|
}
|
|
12961
13115
|
}
|
|
12962
13116
|
case 2: {
|
|
12963
13117
|
switch(Prelude_Types_isDigit($1)) {
|
|
12964
|
-
case 1: return {a1: {h: 4 /*
|
|
12965
|
-
case 0: return
|
|
13118
|
+
case 1: return {a1: {h: 4 /* 3729:2537:Number */}, a2: {a1: $1, a2: $0.a2}};
|
|
13119
|
+
case 0: return Util_Github_n__3729_2547_startOver();
|
|
12966
13120
|
}
|
|
12967
13121
|
}
|
|
12968
|
-
default: return
|
|
13122
|
+
default: return Util_Github_n__3729_2547_startOver();
|
|
12969
13123
|
}
|
|
12970
13124
|
}
|
|
12971
|
-
default: return
|
|
13125
|
+
default: return Util_Github_n__3729_2547_startOver();
|
|
12972
13126
|
}
|
|
12973
13127
|
}
|
|
12974
13128
|
|
|
12975
|
-
/* Util.Github.
|
|
12976
|
-
function
|
|
13129
|
+
/* Util.Github.3729:2544:go */
|
|
13130
|
+
function Util_Github_n__3729_2544_go($0, $1) {
|
|
12977
13131
|
switch($0.a1.h) {
|
|
12978
|
-
case 0: /*
|
|
13132
|
+
case 0: /* 3729:2542:Start */ {
|
|
12979
13133
|
switch($1) {
|
|
12980
|
-
case '/': return {a1: {h: 2 /*
|
|
12981
|
-
case 'G': return {a1: {h: 3 /*
|
|
13134
|
+
case '/': return {a1: {h: 2 /* 3729:2540:PreSlash */}, a2: $0.a2};
|
|
13135
|
+
case 'G': return {a1: {h: 3 /* 3729:2541:Prefix */, a1: 0}, a2: $0.a2};
|
|
12982
13136
|
default: {
|
|
12983
13137
|
switch(Prelude_Types_isDigit($1)) {
|
|
12984
|
-
case 1: return {a1: {h: 4 /*
|
|
12985
|
-
case 0: return
|
|
13138
|
+
case 1: return {a1: {h: 4 /* 3729:2537:Number */}, a2: {a1: $1, a2: $0.a2}};
|
|
13139
|
+
case 0: return Util_Github_n__3729_2547_startOver();
|
|
12986
13140
|
}
|
|
12987
13141
|
}
|
|
12988
13142
|
}
|
|
12989
13143
|
}
|
|
12990
|
-
case 3: /*
|
|
12991
|
-
case 2: /*
|
|
13144
|
+
case 3: /* 3729:2541:Prefix */ return Util_Github_n__3729_2545_goPrefix({a1: $0.a1.a1, a2: $0.a2}, $1);
|
|
13145
|
+
case 2: /* 3729:2540:PreSlash */ {
|
|
12992
13146
|
switch($1) {
|
|
12993
|
-
case 'G': return {a1: {h: 3 /*
|
|
13147
|
+
case 'G': return {a1: {h: 3 /* 3729:2541:Prefix */, a1: 0}, a2: $0.a2};
|
|
12994
13148
|
default: {
|
|
12995
13149
|
switch(Prelude_Types_isDigit($1)) {
|
|
12996
|
-
case 1: return {a1: {h: 4 /*
|
|
12997
|
-
case 0: return
|
|
13150
|
+
case 1: return {a1: {h: 4 /* 3729:2537:Number */}, a2: {a1: $1, a2: $0.a2}};
|
|
13151
|
+
case 0: return Util_Github_n__3729_2547_startOver();
|
|
12998
13152
|
}
|
|
12999
13153
|
}
|
|
13000
13154
|
}
|
|
13001
13155
|
}
|
|
13002
|
-
case 1: /*
|
|
13156
|
+
case 1: /* 3729:2543:StartOver */ {
|
|
13003
13157
|
switch($1) {
|
|
13004
|
-
case '/': return {a1: {h: 2 /*
|
|
13005
|
-
default: return
|
|
13158
|
+
case '/': return {a1: {h: 2 /* 3729:2540:PreSlash */}, a2: $0.a2};
|
|
13159
|
+
default: return Util_Github_n__3729_2547_startOver();
|
|
13006
13160
|
}
|
|
13007
13161
|
}
|
|
13008
|
-
case 4: /*
|
|
13162
|
+
case 4: /* 3729:2537:Number */ {
|
|
13009
13163
|
switch($1) {
|
|
13010
|
-
case '/': return {a1: {h: 5 /*
|
|
13164
|
+
case '/': return {a1: {h: 5 /* 3729:2539:PostSlash */}, a2: $0.a2};
|
|
13011
13165
|
default: {
|
|
13012
13166
|
switch(Prelude_Types_isDigit($1)) {
|
|
13013
|
-
case 1: return {a1: {h: 4 /*
|
|
13014
|
-
case 0: return
|
|
13167
|
+
case 1: return {a1: {h: 4 /* 3729:2537:Number */}, a2: {a1: $1, a2: $0.a2}};
|
|
13168
|
+
case 0: return Util_Github_n__3729_2547_startOver();
|
|
13015
13169
|
}
|
|
13016
13170
|
}
|
|
13017
13171
|
}
|
|
13018
13172
|
}
|
|
13019
|
-
case 5: /*
|
|
13173
|
+
case 5: /* 3729:2539:PostSlash */ return {a1: {h: 5 /* 3729:2539:PostSlash */}, a2: $0.a2};
|
|
13020
13174
|
}
|
|
13021
13175
|
}
|
|
13022
13176
|
|
|
13023
13177
|
/* Util.Github.parseGithubIssueNumber : String -> Maybe String */
|
|
13024
13178
|
function Util_Github_parseGithubIssueNumber($0) {
|
|
13025
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
13179
|
+
return Prelude_Types_map_Functor_Maybe(csegen_878(), 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))));
|
|
13180
|
+
}
|
|
13181
|
+
|
|
13182
|
+
/* Util.Github.isBugfixBranch : String -> Bool */
|
|
13183
|
+
function Util_Github_isBugfixBranch($0) {
|
|
13184
|
+
return Data_String_isPrefixOf('bugfix', $0);
|
|
13026
13185
|
}
|
|
13027
13186
|
|
|
13028
13187
|
/* Data.Pagination.with block in metaPages' */
|
|
@@ -13291,13 +13450,13 @@ function Data_List_DeleteBy_deleteByx27($0, $1, $2) {
|
|
|
13291
13450
|
}
|
|
13292
13451
|
}
|
|
13293
13452
|
|
|
13294
|
-
/* Commands.Quick.
|
|
13295
|
-
function
|
|
13453
|
+
/* Commands.Quick.6025:5655:issuePrompt */
|
|
13454
|
+
function Commands_Quick_n__6025_5655_issuePrompt($0, $1, $2) {
|
|
13296
13455
|
return 'What would you like the issue description to be (two blank lines to finish)?';
|
|
13297
13456
|
}
|
|
13298
13457
|
|
|
13299
|
-
/* Commands.Quick.
|
|
13300
|
-
function
|
|
13458
|
+
/* Commands.Quick.6191:5820:branchPrefix */
|
|
13459
|
+
function Commands_Quick_n__6191_5820_branchPrefix($0, $1, $2, $3) {
|
|
13301
13460
|
return Data_String_toLower(Commands_Quick_show_Show_IssueCategory($2));
|
|
13302
13461
|
}
|
|
13303
13462
|
|
|
@@ -13327,10 +13486,10 @@ function Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5) {
|
|
|
13327
13486
|
}
|
|
13328
13487
|
}
|
|
13329
13488
|
const $21 = issue => {
|
|
13330
|
-
const $22 = Prelude_Types_foldMap_Foldable_List(csegen_86()(), $28 => $28, {a1:
|
|
13489
|
+
const $22 = Prelude_Types_foldMap_Foldable_List(csegen_86()(), $28 => $28, {a1: Commands_Quick_n__6191_5820_branchPrefix($1, $3, $2, $0), a2: {a1: '/', a2: {a1: Prelude_Show_show_Show_Integer(issue.a1), a2: {a1: '/', a2: {h: 0}}}}});
|
|
13331
13490
|
const $3a = Commands_Quick_branchNameSuggestion(issue.a2);
|
|
13332
13491
|
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)),
|
|
13492
|
+
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_498()(), $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
13493
|
};
|
|
13335
13494
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7, $21, $4, $5);
|
|
13336
13495
|
}
|
|
@@ -13347,7 +13506,7 @@ function Commands_Quick_createNewIssue($0, $1, $2, $3, $4) {
|
|
|
13347
13506
|
const $20 = $21 => $22 => {
|
|
13348
13507
|
switch($2.h) {
|
|
13349
13508
|
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),
|
|
13509
|
+
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_498()(), $38, $39), $21, $22);
|
|
13351
13510
|
}
|
|
13352
13511
|
};
|
|
13353
13512
|
const $46 = issueTitle => $47 => $48 => {
|
|
@@ -13355,11 +13514,11 @@ function Commands_Quick_createNewIssue($0, $1, $2, $3, $4) {
|
|
|
13355
13514
|
let $4a;
|
|
13356
13515
|
switch($4b.h) {
|
|
13357
13516
|
case 0: /* nothing */ {
|
|
13358
|
-
$4a = Util_Prompting_inlineDescription(csegen_48()(),
|
|
13517
|
+
$4a = Util_Prompting_inlineDescription(csegen_48()(), Commands_Quick_n__6025_5655_issuePrompt($1, $2, $0), '');
|
|
13359
13518
|
break;
|
|
13360
13519
|
}
|
|
13361
13520
|
case undefined: /* just */ {
|
|
13362
|
-
$4a = $58 => $59 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
13521
|
+
$4a = $58 => $59 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_832(), Util_Prompting_editorDescription(csegen_48()(), $4b.a1, {h: 0}, ''), $58, $59);
|
|
13363
13522
|
break;
|
|
13364
13523
|
}
|
|
13365
13524
|
}
|
|
@@ -13367,7 +13526,7 @@ function Commands_Quick_createNewIssue($0, $1, $2, $3, $4) {
|
|
|
13367
13526
|
};
|
|
13368
13527
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($20, $46, $1d, $1e);
|
|
13369
13528
|
};
|
|
13370
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
13529
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_496()(), $1b, $15, $16);
|
|
13371
13530
|
};
|
|
13372
13531
|
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
13532
|
}
|
|
@@ -13391,36 +13550,36 @@ function Commands_Label_addLabels($0, $1, $2, $3, $4, $5) {
|
|
|
13391
13550
|
return FFI_GitHub_addPullLabels($1, $0.a2, $0.a3, $2.a1, $3, $4, $5);
|
|
13392
13551
|
}
|
|
13393
13552
|
|
|
13394
|
-
/* Commands.Graph.
|
|
13395
|
-
function
|
|
13396
|
-
return Theme_theme($7,
|
|
13553
|
+
/* Commands.Graph.7857:7016:pendingDot */
|
|
13554
|
+
function Commands_Graph_n__7857_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13555
|
+
return Theme_theme($7, csegen_805(), csegen_803(), 6)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
|
|
13397
13556
|
}
|
|
13398
13557
|
|
|
13399
|
-
/* Commands.Graph.
|
|
13400
|
-
function
|
|
13558
|
+
/* Commands.Graph.7857:7015:note */
|
|
13559
|
+
function Commands_Graph_n__7857_7015_note($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
13401
13560
|
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
13561
|
}
|
|
13403
13562
|
|
|
13404
|
-
/* Commands.Graph.
|
|
13405
|
-
function
|
|
13406
|
-
return Theme_theme($7,
|
|
13563
|
+
/* Commands.Graph.7857:7014:missedDot */
|
|
13564
|
+
function Commands_Graph_n__7857_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13565
|
+
return Theme_theme($7, csegen_804(), csegen_804(), 7)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
|
|
13407
13566
|
}
|
|
13408
13567
|
|
|
13409
|
-
/* Commands.Graph.
|
|
13410
|
-
function
|
|
13568
|
+
/* Commands.Graph.7857:7013:maxValue */
|
|
13569
|
+
function Commands_Graph_n__7857_7013_maxValue($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
13411
13570
|
switch($8.h) {
|
|
13412
13571
|
case 0: /* nil */ return 0n;
|
|
13413
|
-
case undefined: /* cons */ return Prelude_Types_max_Ord_Nat($8.a1.a2,
|
|
13572
|
+
case undefined: /* cons */ return Prelude_Types_max_Ord_Nat($8.a1.a2, Commands_Graph_n__7857_7013_maxValue($0, $1, $2, $3, $4, $5, $6, $7, $8.a2));
|
|
13414
13573
|
}
|
|
13415
13574
|
}
|
|
13416
13575
|
|
|
13417
|
-
/* Commands.Graph.
|
|
13418
|
-
function
|
|
13576
|
+
/* Commands.Graph.7454:6605:link */
|
|
13577
|
+
function Commands_Graph_n__7454_6605_link($0, $1, $2, $3) {
|
|
13419
13578
|
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
13579
|
}
|
|
13421
13580
|
|
|
13422
|
-
/* Commands.Graph.
|
|
13423
|
-
function
|
|
13581
|
+
/* Commands.Graph.7857:7012:header */
|
|
13582
|
+
function Commands_Graph_n__7857_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13424
13583
|
let $3b;
|
|
13425
13584
|
switch(Prelude_Types_null_Foldable_Maybe($3)) {
|
|
13426
13585
|
case 1: {
|
|
@@ -13428,58 +13587,58 @@ function Commands_Graph_n__7788_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
13428
13587
|
break;
|
|
13429
13588
|
}
|
|
13430
13589
|
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(
|
|
13590
|
+
$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__7857_7010_completedBox($0, $1, $2, $3, $4, $5, $6, $7)))};
|
|
13432
13591
|
break;
|
|
13433
13592
|
}
|
|
13434
13593
|
}
|
|
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(
|
|
13594
|
+
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__7857_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__7857_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7))))}, a2: csegen_893()}};
|
|
13595
|
+
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__7857_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $3a};
|
|
13596
|
+
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__7857_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $27};
|
|
13438
13597
|
const $f = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $14};
|
|
13439
13598
|
const $b = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: $f};
|
|
13440
13599
|
const $9 = Data_List_catMaybes($b);
|
|
13441
13600
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep($9);
|
|
13442
13601
|
}
|
|
13443
13602
|
|
|
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:
|
|
13603
|
+
/* Commands.Graph.7454:6604:header */
|
|
13604
|
+
function Commands_Graph_n__7454_6604_header($0, $1, $2, $3) {
|
|
13605
|
+
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_893()}}}));
|
|
13447
13606
|
}
|
|
13448
13607
|
|
|
13449
|
-
/* Commands.Graph.
|
|
13450
|
-
function
|
|
13608
|
+
/* Commands.Graph.7454:6603:graphable */
|
|
13609
|
+
function Commands_Graph_n__7454_6603_graphable($0, $1, $2, $3, $4) {
|
|
13451
13610
|
return {a1: $4.a1.a3, a2: (Prelude_Types_List_lengthTR($4.a2)+1n)};
|
|
13452
13611
|
}
|
|
13453
13612
|
|
|
13454
|
-
/* Commands.Graph.
|
|
13455
|
-
function
|
|
13456
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
13613
|
+
/* Commands.Graph.7857:7011:footer */
|
|
13614
|
+
function Commands_Graph_n__7857_7011_footer($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13615
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_Graph_n__7857_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
13616
|
}
|
|
13458
13617
|
|
|
13459
|
-
/* Commands.Graph.
|
|
13460
|
-
function
|
|
13618
|
+
/* Commands.Graph.6887:6183:countInParens */
|
|
13619
|
+
function Commands_Graph_n__6887_6183_countInParens($0, $1, $2, $3, $4) {
|
|
13461
13620
|
switch(Prelude_Types_x3e_Ord_Nat($4.a2, 4n)) {
|
|
13462
13621
|
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
13622
|
case 0: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('');
|
|
13464
13623
|
}
|
|
13465
13624
|
}
|
|
13466
13625
|
|
|
13467
|
-
/* Commands.Graph.
|
|
13468
|
-
function
|
|
13469
|
-
return Theme_theme($7,
|
|
13626
|
+
/* Commands.Graph.7857:7010:completedBox */
|
|
13627
|
+
function Commands_Graph_n__7857_7010_completedBox($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13628
|
+
return Theme_theme($7, csegen_783(), csegen_783(), 3)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25aa}'));
|
|
13470
13629
|
}
|
|
13471
13630
|
|
|
13472
|
-
/* Commands.Graph.
|
|
13473
|
-
function
|
|
13631
|
+
/* Commands.Graph.6887:6182:coloredLabel */
|
|
13632
|
+
function Commands_Graph_n__6887_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
13474
13633
|
switch((($4.a2===0n)?1:0)) {
|
|
13475
|
-
case 1: return Theme_theme($0,
|
|
13634
|
+
case 1: return Theme_theme($0, csegen_783(), csegen_783(), 0)($2.a1(undefined)($4.a1));
|
|
13476
13635
|
case 0: {
|
|
13477
13636
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 2n)) {
|
|
13478
13637
|
case 1: return $2.a1(undefined)($4.a1);
|
|
13479
13638
|
case 0: {
|
|
13480
13639
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 6n)) {
|
|
13481
|
-
case 1: return Theme_theme($0,
|
|
13482
|
-
case 0: return Theme_theme($0,
|
|
13640
|
+
case 1: return Theme_theme($0, csegen_805(), csegen_803(), 1)($2.a1(undefined)($4.a1));
|
|
13641
|
+
case 0: return Theme_theme($0, csegen_804(), csegen_804(), 2)($2.a1(undefined)($4.a1));
|
|
13483
13642
|
}
|
|
13484
13643
|
}
|
|
13485
13644
|
}
|
|
@@ -13487,8 +13646,8 @@ function Commands_Graph_n__6818_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
|
13487
13646
|
}
|
|
13488
13647
|
}
|
|
13489
13648
|
|
|
13490
|
-
/* Commands.Graph.
|
|
13491
|
-
function
|
|
13649
|
+
/* Commands.Graph.7857:7009:augment */
|
|
13650
|
+
function Commands_Graph_n__7857_7009_augment($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
13492
13651
|
return {a1: $9, a2: Prelude_Types_maybe(() => 0n, () => $f => $f, Data_SortedMap_lookup($9.a1, $8))};
|
|
13493
13652
|
}
|
|
13494
13653
|
|
|
@@ -13534,7 +13693,7 @@ function Commands_Graph_length_HasLength_Date($0) {
|
|
|
13534
13693
|
|
|
13535
13694
|
/* Commands.Graph.label */
|
|
13536
13695
|
function Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $1, $2, $3, $4) {
|
|
13537
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
13696
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__6887_6182_coloredLabel($0, $1, $2, $4, $3), Commands_Graph_n__6887_6183_countInParens($0, $1, $2, $4, $3));
|
|
13538
13697
|
}
|
|
13539
13698
|
|
|
13540
13699
|
/* Commands.Graph.label */
|
|
@@ -13588,11 +13747,11 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
13588
13747
|
break;
|
|
13589
13748
|
}
|
|
13590
13749
|
case undefined: /* just */ {
|
|
13591
|
-
$17 = Prelude_Types_List_mapAppend({h: 0}, $26 =>
|
|
13750
|
+
$17 = Prelude_Types_List_mapAppend({h: 0}, $26 => Commands_Graph_n__7857_7009_augment($1, $2, $3, $7, $6, $5, $4, $0, $7.a1, $26), $8);
|
|
13592
13751
|
break;
|
|
13593
13752
|
}
|
|
13594
13753
|
}
|
|
13595
|
-
const $33 = Prelude_Types_maybe(() => 0n, () => $37 => $37, Prelude_Types_map_Functor_Maybe($3b =>
|
|
13754
|
+
const $33 = Prelude_Types_maybe(() => 0n, () => $37 => $37, Prelude_Types_map_Functor_Maybe($3b => Commands_Graph_n__7857_7013_maxValue($1, $2, $3, $7, $6, $5, $4, $0, Data_SortedMap_toList($3b)), $7));
|
|
13596
13755
|
const $49 = Prelude_Types_foldr_Foldable_List($4c => $4d => Data_Nat_maximum(Commands_Graph_labelLength_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $3, $4c), $4d), 0n, $17);
|
|
13597
13756
|
switch($8.h) {
|
|
13598
13757
|
case 0: /* nil */ return Text_PrettyPrint_Prettyprinter_Doc_emptyDoc();
|
|
@@ -13610,8 +13769,8 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
13610
13769
|
}
|
|
13611
13770
|
}
|
|
13612
13771
|
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:
|
|
13772
|
+
const $6d = {a1: $6e, a2: {a1: Commands_Graph_n__7857_7011_footer($1, $2, $3, $7, $6, $5, $4, $0), a2: {h: 0}}};
|
|
13773
|
+
const $62 = {a1: Commands_Graph_n__7857_7012_header($1, $2, $3, $7, $6, $5, $4, $0), a2: $6d};
|
|
13615
13774
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep($62);
|
|
13616
13775
|
}
|
|
13617
13776
|
}
|
|
@@ -13619,9 +13778,9 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
13619
13778
|
|
|
13620
13779
|
/* Commands.Graph.healthGraph : Config => List PullRequest -> String -> String -> Doc AnsiStyle */
|
|
13621
13780
|
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),
|
|
13781
|
+
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(csegen_295(), $11 => $11.a2, $b, $c), csegen_757(), $7, $8), Data_List_sortBy(csegen_758(), $1));
|
|
13623
13782
|
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:
|
|
13783
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_Graph_n__7454_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_909(), $36), a2: $41 => maxLabelLength => Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $45 => Commands_Graph_length_HasLength_Date($45), csegen_909(), $41, maxLabelLength), a3: $4d => Commands_Graph_labelLength_Graphable_x28PRsOnDatex20x24dateTyx29($0, $51 => Commands_Graph_length_HasLength_Date($51), csegen_909(), $4d), a4: $58 => Commands_Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29($0, $5c => Commands_Graph_length_HasLength_Date($5c), csegen_909(), $58), a5: $63 => Commands_Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29($0, $67 => Commands_Graph_length_HasLength_Date($67), csegen_909(), $63), a6: $6e => Commands_Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29($0, $72 => Commands_Graph_length_HasLength_Date($72), csegen_909(), $6e)}, $1e, 0n, 0n, Commands_Graph_n__7454_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__7454_6605_link($3, $2, $1, $0)), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}});
|
|
13625
13784
|
}
|
|
13626
13785
|
|
|
13627
13786
|
/* Commands.Graph.graphOne : Config -> Graphable g => Nat -> Nat -> Nat -> g -> Doc AnsiStyle */
|
|
@@ -13644,7 +13803,7 @@ function Commands_Graph_countPadRight($0, $1, $2) {
|
|
|
13644
13803
|
|
|
13645
13804
|
/* Commands.Graph.bar : Config -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
13646
13805
|
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,
|
|
13806
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0, csegen_804(), csegen_804(), 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_805(), csegen_803(), 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_783(), csegen_783(), 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
13807
|
}
|
|
13649
13808
|
|
|
13650
13809
|
|