@mattpolzin/harmony 5.5.0 → 5.5.1
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- package/README.md +144 -93
- package/harmony +622 -580
- package/man/harmony.1 +511 -0
- package/package.json +2 -1
package/harmony
CHANGED
|
@@ -1010,7 +1010,7 @@ function x24tcOpt_1($0) {
|
|
|
1010
1010
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
1011
1011
|
default: {
|
|
1012
1012
|
const $17 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1013
|
-
const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($0.a1.a1.a1,
|
|
1013
|
+
const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($0.a1.a1.a1, csegen_747(), $1e, $1f), $17, $0.a6);
|
|
1014
1014
|
switch($1b.a1.h) {
|
|
1015
1015
|
case 0: /* nothing */ {
|
|
1016
1016
|
switch($0.a8) {
|
|
@@ -1025,7 +1025,7 @@ function x24tcOpt_1($0) {
|
|
|
1025
1025
|
}
|
|
1026
1026
|
default: {
|
|
1027
1027
|
const $64 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1028
|
-
const $68 = Data_List_DeleteBy_deleteByx27($6b => $6c => Prelude_Basics_on($0.a1.a1.a1,
|
|
1028
|
+
const $68 = Data_List_DeleteBy_deleteByx27($6b => $6c => Prelude_Basics_on($0.a1.a1.a1, csegen_747(), $6b, $6c), $64, $0.a6);
|
|
1029
1029
|
switch($68.a1.h) {
|
|
1030
1030
|
case 0: /* nothing */ {
|
|
1031
1031
|
switch($0.a8) {
|
|
@@ -1050,7 +1050,7 @@ function x24tcOpt_1($0) {
|
|
|
1050
1050
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
1051
1051
|
default: {
|
|
1052
1052
|
const $b5 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1053
|
-
const $b9 = Data_List_DeleteBy_deleteByx27($bc => $bd => Prelude_Basics_on($0.a1.a1.a1,
|
|
1053
|
+
const $b9 = Data_List_DeleteBy_deleteByx27($bc => $bd => Prelude_Basics_on($0.a1.a1.a1, csegen_747(), $bc, $bd), $b5, $0.a6);
|
|
1054
1054
|
switch($b9.a1.h) {
|
|
1055
1055
|
case 0: /* nothing */ {
|
|
1056
1056
|
switch($0.a8) {
|
|
@@ -1065,7 +1065,7 @@ function x24tcOpt_1($0) {
|
|
|
1065
1065
|
}
|
|
1066
1066
|
default: {
|
|
1067
1067
|
const $102 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1068
|
-
const $106 = Data_List_DeleteBy_deleteByx27($109 => $10a => Prelude_Basics_on($0.a1.a1.a1,
|
|
1068
|
+
const $106 = Data_List_DeleteBy_deleteByx27($109 => $10a => Prelude_Basics_on($0.a1.a1.a1, csegen_747(), $109, $10a), $102, $0.a6);
|
|
1069
1069
|
switch($106.a1.h) {
|
|
1070
1070
|
case 0: /* nothing */ {
|
|
1071
1071
|
switch($0.a8) {
|
|
@@ -1130,7 +1130,7 @@ function Prelude_Show_n__3216_12633_showx27($0, $1, $2, $3) {
|
|
|
1130
1130
|
/* {$tcOpt:4} */
|
|
1131
1131
|
function x24tcOpt_4($0) {
|
|
1132
1132
|
switch($0.h) {
|
|
1133
|
-
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:
|
|
1133
|
+
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__7327_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a8), a2: $0.a11}}}};
|
|
1134
1134
|
case 2: /* {TcContinue4:2} */ {
|
|
1135
1135
|
switch($0.a5.h) {
|
|
1136
1136
|
case 0: /* nothing */ {
|
|
@@ -1149,7 +1149,7 @@ function x24tcOpt_4($0) {
|
|
|
1149
1149
|
case undefined: /* cons */ return {h: 0 /* {TcDone:4} */, a1: $0.a7.a1.a2};
|
|
1150
1150
|
default: {
|
|
1151
1151
|
switch($0.a7.h) {
|
|
1152
|
-
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:
|
|
1152
|
+
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__7327_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1153
1153
|
case undefined: /* just */ {
|
|
1154
1154
|
const $39 = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1155
1155
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1163,7 +1163,7 @@ function x24tcOpt_4($0) {
|
|
|
1163
1163
|
}
|
|
1164
1164
|
default: {
|
|
1165
1165
|
switch($0.a7.h) {
|
|
1166
|
-
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:
|
|
1166
|
+
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__7327_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1167
1167
|
case undefined: /* just */ {
|
|
1168
1168
|
const $73 = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1169
1169
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1177,7 +1177,7 @@ function x24tcOpt_4($0) {
|
|
|
1177
1177
|
}
|
|
1178
1178
|
default: {
|
|
1179
1179
|
switch($0.a7.h) {
|
|
1180
|
-
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:
|
|
1180
|
+
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__7327_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1181
1181
|
case undefined: /* just */ {
|
|
1182
1182
|
const $ad = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1183
1183
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1201,7 +1201,7 @@ function x24tcOpt_4($0) {
|
|
|
1201
1201
|
case undefined: /* cons */ return {h: 0 /* {TcDone:4} */, a1: $0.a7.a1.a2};
|
|
1202
1202
|
default: {
|
|
1203
1203
|
switch($0.a7.h) {
|
|
1204
|
-
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:
|
|
1204
|
+
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__7327_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1205
1205
|
case undefined: /* just */ {
|
|
1206
1206
|
const $ec = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1207
1207
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1215,7 +1215,7 @@ function x24tcOpt_4($0) {
|
|
|
1215
1215
|
}
|
|
1216
1216
|
default: {
|
|
1217
1217
|
switch($0.a7.h) {
|
|
1218
|
-
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:
|
|
1218
|
+
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__7327_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1219
1219
|
case undefined: /* just */ {
|
|
1220
1220
|
const $126 = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1221
1221
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1229,7 +1229,7 @@ function x24tcOpt_4($0) {
|
|
|
1229
1229
|
}
|
|
1230
1230
|
default: {
|
|
1231
1231
|
switch($0.a7.h) {
|
|
1232
|
-
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:
|
|
1232
|
+
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__7327_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1233
1233
|
case undefined: /* just */ {
|
|
1234
1234
|
const $160 = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1235
1235
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1253,7 +1253,7 @@ function x24tcOpt_4($0) {
|
|
|
1253
1253
|
case undefined: /* cons */ return {h: 0 /* {TcDone:4} */, a1: $0.a7.a1.a2};
|
|
1254
1254
|
default: {
|
|
1255
1255
|
switch($0.a7.h) {
|
|
1256
|
-
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:
|
|
1256
|
+
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__7327_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1257
1257
|
case undefined: /* just */ {
|
|
1258
1258
|
const $19f = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1259
1259
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1267,7 +1267,7 @@ function x24tcOpt_4($0) {
|
|
|
1267
1267
|
}
|
|
1268
1268
|
default: {
|
|
1269
1269
|
switch($0.a7.h) {
|
|
1270
|
-
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:
|
|
1270
|
+
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__7327_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1271
1271
|
case undefined: /* just */ {
|
|
1272
1272
|
const $1d9 = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1273
1273
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1281,7 +1281,7 @@ function x24tcOpt_4($0) {
|
|
|
1281
1281
|
}
|
|
1282
1282
|
default: {
|
|
1283
1283
|
switch($0.a7.h) {
|
|
1284
|
-
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:
|
|
1284
|
+
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__7327_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1285
1285
|
case undefined: /* just */ {
|
|
1286
1286
|
const $213 = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1287
1287
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1303,18 +1303,18 @@ function x24tcOpt_4($0) {
|
|
|
1303
1303
|
}
|
|
1304
1304
|
}
|
|
1305
1305
|
|
|
1306
|
-
/* Commands.Graph.
|
|
1307
|
-
function
|
|
1306
|
+
/* Commands.Graph.7348:6732:insertNext */
|
|
1307
|
+
function Commands_Graph_n__7348_6732_insertNext($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a) {
|
|
1308
1308
|
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});
|
|
1309
1309
|
}
|
|
1310
1310
|
|
|
1311
|
-
/* Commands.Graph.
|
|
1312
|
-
function
|
|
1311
|
+
/* Commands.Graph.7327:6606:unfoldGraph */
|
|
1312
|
+
function Commands_Graph_n__7327_6606_unfoldGraph($0, $1, $2, $3, $4, $5, $6) {
|
|
1313
1313
|
return __tailRec(x24tcOpt_4, {h: 2 /* {TcContinue4:2} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6});
|
|
1314
1314
|
}
|
|
1315
1315
|
|
|
1316
|
-
/* Commands.Graph.
|
|
1317
|
-
function
|
|
1316
|
+
/* Commands.Graph.7348:6733:insertPlaceholder */
|
|
1317
|
+
function Commands_Graph_n__7348_6733_insertPlaceholder($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a) {
|
|
1318
1318
|
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});
|
|
1319
1319
|
}
|
|
1320
1320
|
|
|
@@ -1328,8 +1328,8 @@ function x24tcOpt_5($0) {
|
|
|
1328
1328
|
}
|
|
1329
1329
|
}
|
|
1330
1330
|
|
|
1331
|
-
/* Text.PrettyPrint.Prettyprinter.Doc.
|
|
1332
|
-
function
|
|
1331
|
+
/* Text.PrettyPrint.Prettyprinter.Doc.8979:8927:initialIndentation */
|
|
1332
|
+
function Text_PrettyPrint_Prettyprinter_Doc_n__8979_8927_initialIndentation($0, $1, $2, $3) {
|
|
1333
1333
|
return __tailRec(x24tcOpt_5, {h: 1 /* {TcContinue5:1} */, a1: $0, a2: $1, a3: $2, a4: $3});
|
|
1334
1334
|
}
|
|
1335
1335
|
|
|
@@ -1936,14 +1936,14 @@ function Prelude_Types_List_lengthPlus($0, $1) {
|
|
|
1936
1936
|
function x24tcOpt_24($0) {
|
|
1937
1937
|
switch($0.a6.h) {
|
|
1938
1938
|
case 0: /* Nil */ return {h: 0 /* {TcDone:24} */, a1: {h: 0 /* SEmpty */}};
|
|
1939
|
-
case 2: /* UndoAnn */ return {h: 0 /* {TcDone:24} */, a1: {h: 5 /* SAnnPop */, a1:
|
|
1939
|
+
case 2: /* UndoAnn */ return {h: 0 /* {TcDone:24} */, a1: {h: 5 /* SAnnPop */, a1: Text_PrettyPrint_Prettyprinter_Doc_n__8979_8926_best($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, $0.a6.a1)}};
|
|
1940
1940
|
case 1: /* Cons */ {
|
|
1941
1941
|
switch($0.a6.a2.h) {
|
|
1942
1942
|
case 0: /* Empty */ return {h: 1 /* {TcContinue24:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6.a3};
|
|
1943
|
-
case 1: /* Chara */ return {h: 0 /* {TcDone:24} */, a1: {h: 1 /* SChar */, a1: $0.a6.a2.a1, a2: () =>
|
|
1944
|
-
case 2: /* Text */ return {h: 0 /* {TcDone:24} */, a1: {h: 2 /* SText */, a1: $0.a6.a2.a1, a2: $0.a6.a2.a2, a3: () =>
|
|
1943
|
+
case 1: /* Chara */ return {h: 0 /* {TcDone:24} */, a1: {h: 1 /* SChar */, a1: $0.a6.a2.a1, a2: () => Text_PrettyPrint_Prettyprinter_Doc_n__8979_8926_best($0.a1, $0.a2, $0.a3, $0.a4, _add32s($0.a5, 1), $0.a6.a3)}};
|
|
1944
|
+
case 2: /* Text */ return {h: 0 /* {TcDone:24} */, a1: {h: 2 /* SText */, a1: $0.a6.a2.a1, a2: $0.a6.a2.a2, a3: () => Text_PrettyPrint_Prettyprinter_Doc_n__8979_8926_best($0.a1, $0.a2, $0.a3, $0.a4, _add32s($0.a5, $0.a6.a2.a1), $0.a6.a3)}};
|
|
1945
1945
|
case 3: /* Line */ {
|
|
1946
|
-
const $2d =
|
|
1946
|
+
const $2d = Text_PrettyPrint_Prettyprinter_Doc_n__8979_8926_best($0.a1, $0.a2, $0.a3, $0.a6.a1, $0.a6.a1, $0.a6.a3);
|
|
1947
1947
|
let $35;
|
|
1948
1948
|
switch($2d.h) {
|
|
1949
1949
|
case 0: /* SEmpty */ {
|
|
@@ -1962,21 +1962,21 @@ function x24tcOpt_24($0) {
|
|
|
1962
1962
|
case 5: /* Cat */ return {h: 1 /* {TcContinue24:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a1, a3: {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a2, a3: $0.a6.a3}}};
|
|
1963
1963
|
case 6: /* Nest */ return {h: 1 /* {TcContinue24:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1 /* Cons */, a1: _add32s($0.a6.a1, $0.a6.a2.a1), a2: $0.a6.a2.a2, a3: $0.a6.a3}};
|
|
1964
1964
|
case 7: /* Union */ {
|
|
1965
|
-
const $5d =
|
|
1966
|
-
const $69 =
|
|
1967
|
-
return {h: 0 /* {TcDone:24} */, a1:
|
|
1965
|
+
const $5d = Text_PrettyPrint_Prettyprinter_Doc_n__8979_8926_best($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a1(), a3: $0.a6.a3});
|
|
1966
|
+
const $69 = Text_PrettyPrint_Prettyprinter_Doc_n__8979_8926_best($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a2(), a3: $0.a6.a3});
|
|
1967
|
+
return {h: 0 /* {TcDone:24} */, a1: Text_PrettyPrint_Prettyprinter_Doc_n__8979_8928_selectNicer($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, $5d, () => $69)};
|
|
1968
1968
|
}
|
|
1969
1969
|
case 8: /* Column */ return {h: 1 /* {TcContinue24:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a1($0.a5), a3: $0.a6.a3}};
|
|
1970
1970
|
case 9: /* WithPageWidth */ return {h: 1 /* {TcContinue24:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a1($0.a2), a3: $0.a6.a3}};
|
|
1971
1971
|
case 10: /* Nesting */ return {h: 1 /* {TcContinue24:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a1($0.a6.a1), a3: $0.a6.a3}};
|
|
1972
|
-
case 11: /* Annotated */ return {h: 0 /* {TcDone:24} */, a1: {h: 4 /* SAnnPush */, a1: $0.a6.a2.a1, a2:
|
|
1972
|
+
case 11: /* Annotated */ return {h: 0 /* {TcDone:24} */, a1: {h: 4 /* SAnnPush */, a1: $0.a6.a2.a1, a2: Text_PrettyPrint_Prettyprinter_Doc_n__8979_8926_best($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a2, a3: {h: 2 /* UndoAnn */, a1: $0.a6.a3}})}};
|
|
1973
1973
|
}
|
|
1974
1974
|
}
|
|
1975
1975
|
}
|
|
1976
1976
|
}
|
|
1977
1977
|
|
|
1978
|
-
/* Text.PrettyPrint.Prettyprinter.Doc.
|
|
1979
|
-
function
|
|
1978
|
+
/* Text.PrettyPrint.Prettyprinter.Doc.8979:8926:best */
|
|
1979
|
+
function Text_PrettyPrint_Prettyprinter_Doc_n__8979_8926_best($0, $1, $2, $3, $4, $5) {
|
|
1980
1980
|
return __tailRec(x24tcOpt_24, {h: 1 /* {TcContinue24:1} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5});
|
|
1981
1981
|
}
|
|
1982
1982
|
|
|
@@ -2801,178 +2801,183 @@ const csegen_285 = __lazy(function () {
|
|
|
2801
2801
|
return {a1: csegen_218(), a2: {a1: acc => elem => func => init => input => Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29(func, init, input), a2: elem => acc => func => init => input => Prelude_Types_foldl_Foldable_x28Eitherx20x24ex29(func, init, input), a3: elem => $e => Prelude_Types_null_Foldable_x28Eitherx20x24ex29($e), a4: elem => acc => m => $12 => funcM => init => input => Prelude_Types_foldlM_Foldable_x28Eitherx20x24ex29($12, funcM, init, input), a5: elem => $19 => Prelude_Types_toList_Foldable_x28Eitherx20x24ex29($19), a6: a => m => $1d => f => $1e => Prelude_Types_foldMap_Foldable_x28Eitherx20x24ex29($1d, f, $1e)}, a3: b => a => f => $24 => $25 => $26 => Prelude_Types_traverse_Traversable_x28Eitherx20x24ex29($24, $25, $26)};
|
|
2802
2802
|
});
|
|
2803
2803
|
|
|
2804
|
-
/* {csegen:
|
|
2805
|
-
const
|
|
2804
|
+
/* {csegen:297} */
|
|
2805
|
+
const csegen_297 = __lazy(function () {
|
|
2806
2806
|
return {a1: $1 => $2 => _add32s($1, $2), a2: $6 => $7 => _mul32s($6, $7), a3: $b => Number(_truncBigInt32($b))};
|
|
2807
2807
|
});
|
|
2808
2808
|
|
|
2809
|
-
/* {csegen:
|
|
2810
|
-
const
|
|
2809
|
+
/* {csegen:318} */
|
|
2810
|
+
const csegen_318 = __lazy(function () {
|
|
2811
2811
|
return () => $0 => $0.a2;
|
|
2812
2812
|
});
|
|
2813
2813
|
|
|
2814
|
-
/* {csegen:
|
|
2815
|
-
const
|
|
2814
|
+
/* {csegen:328} */
|
|
2815
|
+
const csegen_328 = __lazy(function () {
|
|
2816
2816
|
return $0 => $1 => (($0===$1)?1:0);
|
|
2817
2817
|
});
|
|
2818
2818
|
|
|
2819
|
-
/* {csegen:
|
|
2820
|
-
const
|
|
2819
|
+
/* {csegen:345} */
|
|
2820
|
+
const csegen_345 = __lazy(function () {
|
|
2821
2821
|
return $0 => Language_JSON_Accessors_array($3 => Data_PullRequest_parsePR($3), $0);
|
|
2822
2822
|
});
|
|
2823
2823
|
|
|
2824
|
-
/* {csegen:
|
|
2825
|
-
const
|
|
2824
|
+
/* {csegen:358} */
|
|
2825
|
+
const csegen_358 = __lazy(function () {
|
|
2826
2826
|
return $0 => Prelude_EqOrd_x3dx3d_Eq_Char($0, '/');
|
|
2827
2827
|
});
|
|
2828
2828
|
|
|
2829
|
-
/* {csegen:
|
|
2830
|
-
const
|
|
2829
|
+
/* {csegen:364} */
|
|
2830
|
+
const csegen_364 = __lazy(function () {
|
|
2831
2831
|
return () => $0 => $0.a1;
|
|
2832
2832
|
});
|
|
2833
2833
|
|
|
2834
|
-
/* {csegen:
|
|
2835
|
-
const
|
|
2834
|
+
/* {csegen:377} */
|
|
2835
|
+
const csegen_377 = __lazy(function () {
|
|
2836
2836
|
return () => $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Number(_truncUBigInt32($4)), System_time(csegen_74()()), $0, $1);
|
|
2837
2837
|
});
|
|
2838
2838
|
|
|
2839
|
-
/* {csegen:
|
|
2840
|
-
const
|
|
2839
|
+
/* {csegen:382} */
|
|
2840
|
+
const csegen_382 = __lazy(function () {
|
|
2841
2841
|
return $0 => $1 => $2 => $3 => Prelude_Types_map_Functor_Maybe($2, $3);
|
|
2842
2842
|
});
|
|
2843
2843
|
|
|
2844
|
-
/* {csegen:
|
|
2845
|
-
const
|
|
2844
|
+
/* {csegen:403} */
|
|
2845
|
+
const csegen_403 = __lazy(function () {
|
|
2846
2846
|
return () => $0 => $1 => $2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($5 => Prelude_IO_prim__putStr('\n', $5), $0, $1, $2);
|
|
2847
2847
|
});
|
|
2848
2848
|
|
|
2849
|
-
/* {csegen:
|
|
2850
|
-
const
|
|
2849
|
+
/* {csegen:405} */
|
|
2850
|
+
const csegen_405 = __lazy(function () {
|
|
2851
2851
|
return () => $0 => $1 => $2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($5 => Prelude_IO_prim__getStr($5), $0, $1, $2);
|
|
2852
2852
|
});
|
|
2853
2853
|
|
|
2854
|
-
/* {csegen:
|
|
2855
|
-
const
|
|
2854
|
+
/* {csegen:407} */
|
|
2855
|
+
const csegen_407 = __lazy(function () {
|
|
2856
2856
|
return () => $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 0}, $0, $1);
|
|
2857
2857
|
});
|
|
2858
2858
|
|
|
2859
|
-
/* {csegen:
|
|
2860
|
-
const
|
|
2859
|
+
/* {csegen:421} */
|
|
2860
|
+
const csegen_421 = __lazy(function () {
|
|
2861
2861
|
return {a1: Commands_Help_argument(0, '...'), a2: {h: 0}};
|
|
2862
2862
|
});
|
|
2863
2863
|
|
|
2864
|
-
/* {csegen:
|
|
2865
|
-
const
|
|
2866
|
-
return {a1: Commands_Help_argument(0, '#<label>'), a2:
|
|
2864
|
+
/* {csegen:426} */
|
|
2865
|
+
const csegen_426 = __lazy(function () {
|
|
2866
|
+
return {a1: Commands_Help_argument(0, '#<label>'), a2: csegen_421()};
|
|
2867
2867
|
});
|
|
2868
2868
|
|
|
2869
|
-
/* {csegen:
|
|
2870
|
-
const
|
|
2869
|
+
/* {csegen:599} */
|
|
2870
|
+
const csegen_599 = __lazy(function () {
|
|
2871
2871
|
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)})};
|
|
2872
2872
|
});
|
|
2873
2873
|
|
|
2874
|
-
/* {csegen:
|
|
2875
|
-
const
|
|
2874
|
+
/* {csegen:603} */
|
|
2875
|
+
const csegen_603 = __lazy(function () {
|
|
2876
2876
|
return {a1: {h: 0}, a2: {a1: '-i', a2: {h: 0}}};
|
|
2877
2877
|
});
|
|
2878
2878
|
|
|
2879
|
-
/* {csegen:
|
|
2880
|
-
const
|
|
2879
|
+
/* {csegen:608} */
|
|
2880
|
+
const csegen_608 = __lazy(function () {
|
|
2881
2881
|
return $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $0, $1);
|
|
2882
2882
|
});
|
|
2883
2883
|
|
|
2884
|
-
/* {csegen:
|
|
2885
|
-
const
|
|
2886
|
-
return $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Data_String_trim($4), csegen_404()(), $0, $1);
|
|
2887
|
-
});
|
|
2888
|
-
|
|
2889
|
-
/* {csegen:629} */
|
|
2890
|
-
const csegen_629 = __lazy(function () {
|
|
2884
|
+
/* {csegen:623} */
|
|
2885
|
+
const csegen_623 = __lazy(function () {
|
|
2891
2886
|
return {a1: csegen_9(), a2: a => ({h: 0}), a3: a => $4 => $5 => Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, $5)};
|
|
2892
2887
|
});
|
|
2893
2888
|
|
|
2894
|
-
/* {csegen:
|
|
2895
|
-
const
|
|
2889
|
+
/* {csegen:624} */
|
|
2890
|
+
const csegen_624 = __lazy(function () {
|
|
2896
2891
|
return $0 => Data_List_sort(csegen_240(), $0);
|
|
2897
2892
|
});
|
|
2898
2893
|
|
|
2899
|
-
/* {csegen:
|
|
2900
|
-
const
|
|
2894
|
+
/* {csegen:626} */
|
|
2895
|
+
const csegen_626 = __lazy(function () {
|
|
2901
2896
|
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_147(), $0, $1, $2);
|
|
2902
2897
|
});
|
|
2903
2898
|
|
|
2904
|
-
/* {csegen:
|
|
2905
|
-
const
|
|
2899
|
+
/* {csegen:638} */
|
|
2900
|
+
const csegen_638 = __lazy(function () {
|
|
2906
2901
|
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2907
2902
|
});
|
|
2908
2903
|
|
|
2909
|
-
/* {csegen:
|
|
2910
|
-
const
|
|
2904
|
+
/* {csegen:639} */
|
|
2905
|
+
const csegen_639 = __lazy(function () {
|
|
2911
2906
|
return $0 => $0.a3;
|
|
2912
2907
|
});
|
|
2913
2908
|
|
|
2914
|
-
/* {csegen:
|
|
2915
|
-
const
|
|
2916
|
-
return $0 => $1 => Prelude_Basics_on(
|
|
2909
|
+
/* {csegen:640} */
|
|
2910
|
+
const csegen_640 = __lazy(function () {
|
|
2911
|
+
return $0 => $1 => Prelude_Basics_on(csegen_638(), csegen_639(), $0, $1);
|
|
2917
2912
|
});
|
|
2918
2913
|
|
|
2919
|
-
/* {csegen:
|
|
2920
|
-
const
|
|
2914
|
+
/* {csegen:662} */
|
|
2915
|
+
const csegen_662 = __lazy(function () {
|
|
2921
2916
|
return $0 => $0.a3;
|
|
2922
2917
|
});
|
|
2923
2918
|
|
|
2924
|
-
/* {csegen:
|
|
2925
|
-
const
|
|
2919
|
+
/* {csegen:665} */
|
|
2920
|
+
const csegen_665 = __lazy(function () {
|
|
2926
2921
|
return Theme_cs({a1: 2, a2: {h: 0}});
|
|
2927
2922
|
});
|
|
2928
2923
|
|
|
2929
|
-
/* {csegen:
|
|
2930
|
-
const
|
|
2924
|
+
/* {csegen:668} */
|
|
2925
|
+
const csegen_668 = __lazy(function () {
|
|
2931
2926
|
return $0 => $0.a1;
|
|
2932
2927
|
});
|
|
2933
2928
|
|
|
2934
|
-
/* {csegen:
|
|
2935
|
-
const
|
|
2929
|
+
/* {csegen:674} */
|
|
2930
|
+
const csegen_674 = __lazy(function () {
|
|
2936
2931
|
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}}}));
|
|
2937
2932
|
});
|
|
2938
2933
|
|
|
2939
|
-
/* {csegen:
|
|
2940
|
-
const
|
|
2934
|
+
/* {csegen:684} */
|
|
2935
|
+
const csegen_684 = __lazy(function () {
|
|
2941
2936
|
return Theme_cs({a1: 0, a2: {h: 0}});
|
|
2942
2937
|
});
|
|
2943
2938
|
|
|
2944
|
-
/* {csegen:
|
|
2945
|
-
const
|
|
2939
|
+
/* {csegen:685} */
|
|
2940
|
+
const csegen_685 = __lazy(function () {
|
|
2946
2941
|
return Theme_cs({a1: 1, a2: {h: 0}});
|
|
2947
2942
|
});
|
|
2948
2943
|
|
|
2949
|
-
/* {csegen:
|
|
2950
|
-
const
|
|
2944
|
+
/* {csegen:686} */
|
|
2945
|
+
const csegen_686 = __lazy(function () {
|
|
2951
2946
|
return Theme_cs({a1: 3, a2: {h: 0}});
|
|
2952
2947
|
});
|
|
2953
2948
|
|
|
2954
|
-
/* {csegen:
|
|
2955
|
-
const
|
|
2949
|
+
/* {csegen:691} */
|
|
2950
|
+
const csegen_691 = __lazy(function () {
|
|
2951
|
+
return $0 => Prelude_Types_either(() => $3 => '', () => $5 => $5, $0);
|
|
2952
|
+
});
|
|
2953
|
+
|
|
2954
|
+
/* {csegen:705} */
|
|
2955
|
+
const csegen_705 = __lazy(function () {
|
|
2956
2956
|
return $0 => Util_Prompting_yesNoPrompt(csegen_74()(), 1, 'Would you like to continue creating a Pull Request anyway?');
|
|
2957
2957
|
});
|
|
2958
2958
|
|
|
2959
|
-
/* {csegen:
|
|
2960
|
-
const
|
|
2959
|
+
/* {csegen:742} */
|
|
2960
|
+
const csegen_742 = __lazy(function () {
|
|
2961
2961
|
return $0 => Prelude_Types_fastPack(Prelude_Types_List_reverse($0));
|
|
2962
2962
|
});
|
|
2963
2963
|
|
|
2964
|
-
/* {csegen:
|
|
2965
|
-
const
|
|
2964
|
+
/* {csegen:747} */
|
|
2965
|
+
const csegen_747 = __lazy(function () {
|
|
2966
2966
|
return $0 => $0.a1;
|
|
2967
2967
|
});
|
|
2968
2968
|
|
|
2969
|
-
/* {csegen:
|
|
2970
|
-
const
|
|
2969
|
+
/* {csegen:754} */
|
|
2970
|
+
const csegen_754 = __lazy(function () {
|
|
2971
|
+
return $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Data_String_trim($4), csegen_405()(), $0, $1);
|
|
2972
|
+
});
|
|
2973
|
+
|
|
2974
|
+
/* {csegen:758} */
|
|
2975
|
+
const csegen_758 = __lazy(function () {
|
|
2971
2976
|
return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}};
|
|
2972
2977
|
});
|
|
2973
2978
|
|
|
2974
|
-
/* {csegen:
|
|
2975
|
-
const
|
|
2979
|
+
/* {csegen:774} */
|
|
2980
|
+
const csegen_774 = __lazy(function () {
|
|
2976
2981
|
return {a1: ann => $1 => Commands_Graph_pretty_Pretty_Date($1), a2: ann => $5 => $6 => Commands_Graph_prettyPrec_Pretty_Date($5, $6)};
|
|
2977
2982
|
});
|
|
2978
2983
|
|
|
@@ -2981,23 +2986,23 @@ function prim__sub_Integer($0, $1) {
|
|
|
2981
2986
|
return ($0-$1);
|
|
2982
2987
|
}
|
|
2983
2988
|
|
|
2984
|
-
/* Main.
|
|
2985
|
-
function
|
|
2989
|
+
/* Main.8844:1556:parsePg */
|
|
2990
|
+
function Main_n__8844_1556_parsePg($0, $1, $2, $3, $4, $5, $6) {
|
|
2986
2991
|
return Data_String_parsePositive(csegen_2(), $6);
|
|
2987
2992
|
}
|
|
2988
2993
|
|
|
2989
|
-
/* Main.
|
|
2990
|
-
function
|
|
2994
|
+
/* Main.8844:1555:parseLim */
|
|
2995
|
+
function Main_n__8844_1555_parseLim($0, $1, $2, $3, $4, $5) {
|
|
2991
2996
|
return Prelude_Interfaces_x3cx3dx3c(csegen_14(), x => Data_Fin_natToFin(x, 101n), $e => Data_String_parsePositive(csegen_2(), $e));
|
|
2992
2997
|
}
|
|
2993
2998
|
|
|
2994
|
-
/* Main.
|
|
2995
|
-
function
|
|
2999
|
+
/* Main.8646:1303:ffiOpts */
|
|
3000
|
+
function Main_n__8646_1303_ffiOpts($0, $1, $2, $3) {
|
|
2996
3001
|
return BashCompletion_ffiOpts($0, $3, $2, $1);
|
|
2997
3002
|
}
|
|
2998
3003
|
|
|
2999
|
-
/* Main.
|
|
3000
|
-
function
|
|
3004
|
+
/* Main.8646:1302:configuredOpts */
|
|
3005
|
+
function Main_n__8646_1302_configuredOpts($0, $1, $2, $3) {
|
|
3001
3006
|
const $13 = $14 => {
|
|
3002
3007
|
switch($14.h) {
|
|
3003
3008
|
case 1: /* Right */ return $0.a1.a1.a2(undefined)(BashCompletion_opts($14.a1, $3, $2, $1));
|
|
@@ -3242,7 +3247,7 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3242
3247
|
}
|
|
3243
3248
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe($b5, filter => ({a1: {a1: filter, a2: {a1: $b2.a1, a2: $b2.a2}}}));
|
|
3244
3249
|
};
|
|
3245
|
-
const $92 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $9a => $9b => ({a1: $9a, a2: $9b})},
|
|
3250
|
+
const $92 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $9a => $9b => ({a1: $9a, a2: $9b})}, Main_n__8844_1555_parseLim($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0)($3.a2.a2.a2.a1)), Main_n__8844_1556_parsePg($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0, $3.a2.a2.a2.a2.a1)), $b1);
|
|
3246
3251
|
return $c2 => {
|
|
3247
3252
|
switch($92.h) {
|
|
3248
3253
|
case undefined: /* just */ return $c4 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequestsJsonStr($2, $0.a2, $0.a3, $92.a1.a1, $92.a1.a2.a1, $92.a1.a2.a2), pullsJsonStr => $d3 => $d4 => $d5 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d8 => Prelude_IO_prim__putStr(pullsJsonStr, $d8), $d3, $d4, $d5), $c2, $c4);
|
|
@@ -3485,10 +3490,10 @@ function Main_exitError($0, $1) {
|
|
|
3485
3490
|
/* Main.bashCompletion : HasIO io => String -> String -> String -> io () */
|
|
3486
3491
|
function Main_bashCompletion($0, $1, $2, $3) {
|
|
3487
3492
|
const $4 = BashCompletion_cmdOpts($1, $2, $3);
|
|
3488
|
-
const $9 = Prelude_Types_maybe(() =>
|
|
3493
|
+
const $9 = Prelude_Types_maybe(() => Main_n__8646_1303_ffiOpts($0, $3, $2, $1), () => $12 => $0.a1.a1.a2(undefined)({a1: $12}), $4);
|
|
3489
3494
|
const $26 = $27 => {
|
|
3490
3495
|
switch($27.h) {
|
|
3491
|
-
case 0: /* nothing */ return
|
|
3496
|
+
case 0: /* nothing */ return Main_n__8646_1302_configuredOpts($0, $3, $2, $1);
|
|
3492
3497
|
case undefined: /* just */ return $0.a1.a1.a2(undefined)($27.a1);
|
|
3493
3498
|
}
|
|
3494
3499
|
};
|
|
@@ -3496,18 +3501,18 @@ function Main_bashCompletion($0, $1, $2, $3) {
|
|
|
3496
3501
|
return $0.a1.a2(undefined)(undefined)($1c)($3f => $0.a2(undefined)($45 => Prelude_IO_prim__putStr(Data_String_fastUnlines($3f), $45)));
|
|
3497
3502
|
}
|
|
3498
3503
|
|
|
3499
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3500
|
-
function
|
|
3504
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4508:5068:writeOutput */
|
|
3505
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5068_writeOutput($0, $1, $2, $3) {
|
|
3501
3506
|
return Control_Monad_ST_modifySTRef($1, $7 => ($7+$2), $3);
|
|
3502
3507
|
}
|
|
3503
3508
|
|
|
3504
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3505
|
-
function
|
|
3509
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4508:5067:push */
|
|
3510
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5067_push($0, $1, $2, $3) {
|
|
3506
3511
|
return Control_Monad_ST_modifySTRef($1, $7 => ({a1: $2, a2: $7}), $3);
|
|
3507
3512
|
}
|
|
3508
3513
|
|
|
3509
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3510
|
-
function
|
|
3514
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4508:5066:pop */
|
|
3515
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5066_pop($0, $1, $2) {
|
|
3511
3516
|
const $9 = $a => $b => {
|
|
3512
3517
|
switch($a.h) {
|
|
3513
3518
|
case undefined: /* cons */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($f => ($1.value=$a.a2), $15 => $16 => ({a1: $a.a1}), $b);
|
|
@@ -3517,8 +3522,8 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4507_5066_pop($0, $1,
|
|
|
3517
3522
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($5 => ($1.value), $9, $2);
|
|
3518
3523
|
}
|
|
3519
3524
|
|
|
3520
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3521
|
-
function
|
|
3525
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4508:5065:peek */
|
|
3526
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5065_peek($0, $1, $2) {
|
|
3522
3527
|
const $9 = $a => $b => {
|
|
3523
3528
|
switch($a.h) {
|
|
3524
3529
|
case undefined: /* cons */ return {a1: $a.a1};
|
|
@@ -3528,36 +3533,36 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4507_5065_peek($0, $1
|
|
|
3528
3533
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($5 => ($1.value), $9, $2);
|
|
3529
3534
|
}
|
|
3530
3535
|
|
|
3531
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3532
|
-
function
|
|
3536
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4508:5064:go */
|
|
3537
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5064_go($0, $1, $2, $3, $4) {
|
|
3533
3538
|
switch($3.h) {
|
|
3534
3539
|
case 0: /* SEmpty */ return undefined;
|
|
3535
|
-
case 1: /* SChar */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($8 =>
|
|
3536
|
-
case 2: /* SText */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($1d =>
|
|
3537
|
-
case 3: /* SLine */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($30 =>
|
|
3540
|
+
case 1: /* SChar */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($8 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5068_writeOutput($0, $2, Data_String_singleton($3.a1), $8), $11 => $12 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5064_go($0, $1, $2, $3.a2(), $12), $4);
|
|
3541
|
+
case 2: /* SText */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($1d => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5068_writeOutput($0, $2, $3.a2, $1d), $24 => $25 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5064_go($0, $1, $2, $3.a3(), $25), $4);
|
|
3542
|
+
case 3: /* SLine */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($30 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5068_writeOutput($0, $2, (Data_String_singleton('\n')+Text_PrettyPrint_Prettyprinter_Doc_textSpaces($3.a1)), $30), $3d => $3e => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5064_go($0, $1, $2, $3.a2, $3e), $4);
|
|
3538
3543
|
case 4: /* SAnnPush */ {
|
|
3539
3544
|
const $4d = $4e => {
|
|
3540
3545
|
switch($4e.h) {
|
|
3541
3546
|
case undefined: /* just */ {
|
|
3542
3547
|
const $50 = Prelude_Types_List_tailRecAppend($3.a1, $4e.a1);
|
|
3543
|
-
return $54 => Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($57 =>
|
|
3548
|
+
return $54 => Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($57 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5067_push($0, $1, $50, $57), $5e => $5f => Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($62 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5068_writeOutput($0, $2, Control_ANSI_SGR_escapeSGR($50), $62), $6b => $6c => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5064_go($0, $1, $2, $3.a2, $6c), $5f), $54);
|
|
3544
3549
|
}
|
|
3545
3550
|
case 0: /* nothing */ return $75 => ($1.value={h: 0});
|
|
3546
3551
|
}
|
|
3547
3552
|
};
|
|
3548
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($48 =>
|
|
3553
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($48 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5065_peek($0, $1, $48), $4d, $4);
|
|
3549
3554
|
}
|
|
3550
3555
|
case 5: /* SAnnPop */ {
|
|
3551
3556
|
const $82 = _ => $83 => {
|
|
3552
3557
|
const $8b = $8c => $8d => {
|
|
3553
3558
|
switch($8c.h) {
|
|
3554
|
-
case undefined: /* just */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($91 =>
|
|
3559
|
+
case undefined: /* just */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($91 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5068_writeOutput($0, $2, Control_ANSI_SGR_escapeSGR({a1: {h: 0 /* Reset */}, a2: $8c.a1}), $91), $9c => $9d => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5064_go($0, $1, $2, $3.a1, $9d), $8d);
|
|
3555
3560
|
case 0: /* nothing */ return ($1.value={h: 0});
|
|
3556
3561
|
}
|
|
3557
3562
|
};
|
|
3558
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($86 =>
|
|
3563
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($86 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5065_peek($0, $1, $86), $8b, $83);
|
|
3559
3564
|
};
|
|
3560
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($7d =>
|
|
3565
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($7d => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5066_pop($0, $1, $7d), $82, $4);
|
|
3561
3566
|
}
|
|
3562
3567
|
}
|
|
3563
3568
|
}
|
|
@@ -3587,7 +3592,7 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString($0) {
|
|
|
3587
3592
|
};
|
|
3588
3593
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($28 => (styleStackRef.value), $2c, $25);
|
|
3589
3594
|
};
|
|
3590
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($1c =>
|
|
3595
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($1c => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5064_go($0, styleStackRef, outputRef, $0, $1c), $23, $19);
|
|
3591
3596
|
};
|
|
3592
3597
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($14 => Control_Monad_ST_newSTRef('', $14), $18, $11);
|
|
3593
3598
|
};
|
|
@@ -3675,9 +3680,9 @@ function Text_PrettyPrint_Prettyprinter_Doc_case__changesUponFlattening_4540($0,
|
|
|
3675
3680
|
}
|
|
3676
3681
|
}
|
|
3677
3682
|
|
|
3678
|
-
/* Text.PrettyPrint.Prettyprinter.Doc.
|
|
3679
|
-
function
|
|
3680
|
-
switch($2($3)($4)(
|
|
3683
|
+
/* Text.PrettyPrint.Prettyprinter.Doc.8979:8928:selectNicer */
|
|
3684
|
+
function Text_PrettyPrint_Prettyprinter_Doc_n__8979_8928_selectNicer($0, $1, $2, $3, $4, $5, $6) {
|
|
3685
|
+
switch($2($3)($4)(Text_PrettyPrint_Prettyprinter_Doc_n__8979_8927_initialIndentation($0, $1, $2, $6()))($5)) {
|
|
3681
3686
|
case 1: return $5;
|
|
3682
3687
|
case 0: return $6();
|
|
3683
3688
|
}
|
|
@@ -3840,7 +3845,7 @@ const Text_PrettyPrint_Prettyprinter_Doc_line = __lazy(function () {
|
|
|
3840
3845
|
|
|
3841
3846
|
/* Text.PrettyPrint.Prettyprinter.Doc.layoutWadlerLeijen : FittingPredicate ann -> PageWidth -> Doc ann -> SimpleDocStream ann */
|
|
3842
3847
|
function Text_PrettyPrint_Prettyprinter_Doc_layoutWadlerLeijen($0, $1, $2) {
|
|
3843
|
-
return
|
|
3848
|
+
return Text_PrettyPrint_Prettyprinter_Doc_n__8979_8926_best($2, $1, $0, 0, 0, {h: 1 /* Cons */, a1: 0, a2: $2, a3: {h: 0 /* Nil */}});
|
|
3844
3849
|
}
|
|
3845
3850
|
|
|
3846
3851
|
/* Text.PrettyPrint.Prettyprinter.Doc.layoutUnbounded : Doc ann -> SimpleDocStream ann */
|
|
@@ -4039,7 +4044,7 @@ function Data_String_Extra_drop($0, $1) {
|
|
|
4039
4044
|
}
|
|
4040
4045
|
|
|
4041
4046
|
/* Data.String.with block in parsePositive,parsePosTrimmed */
|
|
4042
|
-
function
|
|
4047
|
+
function Data_String_with__parsePositivex2cparsePosTrimmed_10057($0, $1, $2, $3, $4) {
|
|
4043
4048
|
switch($3) {
|
|
4044
4049
|
case '': {
|
|
4045
4050
|
switch($4.h) {
|
|
@@ -4114,14 +4119,14 @@ function Data_String_n__3856_9432_unlinesx27($0) {
|
|
|
4114
4119
|
}
|
|
4115
4120
|
}
|
|
4116
4121
|
|
|
4117
|
-
/* Data.String.
|
|
4118
|
-
function
|
|
4119
|
-
return
|
|
4122
|
+
/* Data.String.4465:10051:parsePosTrimmed */
|
|
4123
|
+
function Data_String_n__4465_10051_parsePosTrimmed($0, $1, $2) {
|
|
4124
|
+
return Data_String_with__parsePositivex2cparsePosTrimmed_10057(undefined, $0, $2, $2, Data_String_strM($2));
|
|
4120
4125
|
}
|
|
4121
4126
|
|
|
4122
4127
|
/* Data.String.trim : String -> String */
|
|
4123
4128
|
function Data_String_trim($0) {
|
|
4124
|
-
return Data_String_ltrim(
|
|
4129
|
+
return Data_String_ltrim(Data_String_rtrim($0));
|
|
4125
4130
|
}
|
|
4126
4131
|
|
|
4127
4132
|
/* Data.String.toLower : String -> String */
|
|
@@ -4153,6 +4158,11 @@ function Data_String_singleton($0) {
|
|
|
4153
4158
|
return ($0+'');
|
|
4154
4159
|
}
|
|
4155
4160
|
|
|
4161
|
+
/* Data.String.rtrim : String -> String */
|
|
4162
|
+
function Data_String_rtrim($0) {
|
|
4163
|
+
return _strReverse(Data_String_ltrim(_strReverse($0)));
|
|
4164
|
+
}
|
|
4165
|
+
|
|
4156
4166
|
/* Data.String.replicate : Nat -> Char -> String */
|
|
4157
4167
|
function Data_String_replicate($0, $1) {
|
|
4158
4168
|
return Prelude_Types_fastPack(Data_List_replicateTR({h: 0}, $0, $1));
|
|
@@ -4160,7 +4170,7 @@ function Data_String_replicate($0, $1) {
|
|
|
4160
4170
|
|
|
4161
4171
|
/* Data.String.parsePositive : Num a => String -> Maybe a */
|
|
4162
4172
|
function Data_String_parsePositive($0, $1) {
|
|
4163
|
-
return
|
|
4173
|
+
return Data_String_n__4465_10051_parsePosTrimmed($0, $1, Data_String_trim($1));
|
|
4164
4174
|
}
|
|
4165
4175
|
|
|
4166
4176
|
/* Data.String.ltrim : String -> String */
|
|
@@ -6004,8 +6014,8 @@ function BashCompletion_case__unhashify_10869($0, $1) {
|
|
|
6004
6014
|
}
|
|
6005
6015
|
}
|
|
6006
6016
|
|
|
6007
|
-
/* BashCompletion.
|
|
6008
|
-
function
|
|
6017
|
+
/* BashCompletion.5222:11621:slugsOrLoginsOrLabels */
|
|
6018
|
+
function BashCompletion_n__5222_11621_slugsOrLoginsOrLabels($0, $1) {
|
|
6009
6019
|
switch(Data_String_isPrefixOf('+', $0)) {
|
|
6010
6020
|
case 1: return Prelude_Types_List_mapAppend({h: 0}, $9 => ('+'+$9), $1.a12);
|
|
6011
6021
|
case 0: {
|
|
@@ -6041,7 +6051,7 @@ const BashCompletion_script = __lazy(function () {
|
|
|
6041
6051
|
function BashCompletion_optsForRequestCmd($0, $1) {
|
|
6042
6052
|
switch(Data_String_isPrefixOf($1, '--dry')) {
|
|
6043
6053
|
case 1: return {a1: '--dry', a2: {h: 0}};
|
|
6044
|
-
case 0: return
|
|
6054
|
+
case 0: return BashCompletion_n__5222_11621_slugsOrLoginsOrLabels($1, $0);
|
|
6045
6055
|
}
|
|
6046
6056
|
}
|
|
6047
6057
|
|
|
@@ -6808,13 +6818,13 @@ function Data_Promise_bind($0, $1, $2, $3) {
|
|
|
6808
6818
|
return $4($3);
|
|
6809
6819
|
}
|
|
6810
6820
|
|
|
6811
|
-
/* Data.Config.
|
|
6812
|
-
function
|
|
6821
|
+
/* Data.Config.9652:7042:personalAccessToken */
|
|
6822
|
+
function Data_Config_n__9652_7042_personalAccessToken($0) {
|
|
6813
6823
|
return Prelude_Types_maybe(() => 'Not set (will use $GITHUB_PAT or $GH_TOKEN environment variable)', () => $4 => Data_Config_show_Show_x28Hiddenx20x24ax29($4), $0.a14);
|
|
6814
6824
|
}
|
|
6815
6825
|
|
|
6816
|
-
/* Data.Config.
|
|
6817
|
-
function
|
|
6826
|
+
/* Data.Config.10208:7588:parseConfigJson */
|
|
6827
|
+
function Data_Config_n__10208_7588_parseConfigJson($0, $1) {
|
|
6818
6828
|
switch($1.h) {
|
|
6819
6829
|
case 6: /* JObject */ {
|
|
6820
6830
|
const $20 = $21 => {
|
|
@@ -6882,7 +6892,7 @@ function Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($0) {
|
|
|
6882
6892
|
|
|
6883
6893
|
/* Data.Config.show */
|
|
6884
6894
|
function Data_Config_show_Show_Config($0) {
|
|
6885
|
-
return Data_String_fastUnlines({a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $9 => $9, {a1: ' updatedAt: ', a2: {a1: Prelude_Show_show_Show_Bits32($0.a1), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $19 => $19, {a1: ' theme: ', a2: {a1: Data_Theme_show_Show_Theme($0.a15), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $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_51()(), $39 => $39, {a1: ' repo: ', a2: {a1: Prelude_Show_show_Show_String($0.a3), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $49 => $49, {a1: ' defaultRemote: ', a2: {a1: Prelude_Show_show_Show_String($0.a4), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $59 => $59, {a1: ' mainBranch: ', a2: {a1: Prelude_Show_show_Show_String($0.a5), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $69 => $69, {a1: ' requestTeams: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a6), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $79 => $79, {a1: ' requestUsers: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a7), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $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_51()(), $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_51()(), $a9 => $a9, {a1: ' teamSlugs: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $0.a10), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $bb => $bb, {a1: ' repoLabels: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $0.a11), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $cd => $cd, {a1: ' orgMembers: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $0.a12), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $df => $df, {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.a13), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $f7 => $f7, {a1: ' githubPAT: ', a2: {a1:
|
|
6895
|
+
return Data_String_fastUnlines({a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $9 => $9, {a1: ' updatedAt: ', a2: {a1: Prelude_Show_show_Show_Bits32($0.a1), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $19 => $19, {a1: ' theme: ', a2: {a1: Data_Theme_show_Show_Theme($0.a15), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $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_51()(), $39 => $39, {a1: ' repo: ', a2: {a1: Prelude_Show_show_Show_String($0.a3), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $49 => $49, {a1: ' defaultRemote: ', a2: {a1: Prelude_Show_show_Show_String($0.a4), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $59 => $59, {a1: ' mainBranch: ', a2: {a1: Prelude_Show_show_Show_String($0.a5), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $69 => $69, {a1: ' requestTeams: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a6), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $79 => $79, {a1: ' requestUsers: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a7), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $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_51()(), $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_51()(), $a9 => $a9, {a1: ' teamSlugs: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $0.a10), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $bb => $bb, {a1: ' repoLabels: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $0.a11), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $cd => $cd, {a1: ' orgMembers: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $0.a12), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $df => $df, {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.a13), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $f7 => $f7, {a1: ' githubPAT: ', a2: {a1: Data_Config_n__9652_7042_personalAccessToken($0), a2: {h: 0}}}), a2: {h: 0}}}}}}}}}}}}}}}});
|
|
6886
6896
|
}
|
|
6887
6897
|
|
|
6888
6898
|
/* Data.Config.CommentStrategy.show */
|
|
@@ -6969,7 +6979,7 @@ function Data_Config_propHelpx27($0) {
|
|
|
6969
6979
|
|
|
6970
6980
|
/* Data.Config.parseConfig : Ephemeral -> String -> Either String Config */
|
|
6971
6981
|
function Data_Config_parseConfig($0, $1) {
|
|
6972
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_227(), csegen_228(), $8 =>
|
|
6982
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_227(), csegen_228(), $8 => Data_Config_n__10208_7588_parseConfigJson($0, $8), $1);
|
|
6973
6983
|
}
|
|
6974
6984
|
|
|
6975
6985
|
/* Data.Config.CommentStrategy.parseCommentConfig : String -> Maybe CommentStrategy */
|
|
@@ -8096,13 +8106,32 @@ function Util_Prompting_with__yesNoPromptx2cyesUnlessNo_1359($0, $1, $2, $3, $4,
|
|
|
8096
8106
|
}
|
|
8097
8107
|
}
|
|
8098
8108
|
|
|
8099
|
-
/* Util.Prompting.
|
|
8100
|
-
function
|
|
8109
|
+
/* Util.Prompting.5777:1351:yesUnlessNo */
|
|
8110
|
+
function Util_Prompting_n__5777_1351_yesUnlessNo($0, $1, $2, $3) {
|
|
8101
8111
|
return Util_Prompting_with__yesNoPromptx2cyesUnlessNo_1359(undefined, $0, $1, $2, $3, Data_String_toLower($3));
|
|
8102
8112
|
}
|
|
8103
8113
|
|
|
8104
|
-
/* Util.
|
|
8105
|
-
function
|
|
8114
|
+
/* Util.Prompting.5977:1552:readTemplate */
|
|
8115
|
+
function Util_Prompting_n__5977_1552_readTemplate($0, $1, $2, $3, $4) {
|
|
8116
|
+
const $11 = $12 => {
|
|
8117
|
+
switch($12) {
|
|
8118
|
+
case 0: return $0.a1.a1.a2(undefined)('');
|
|
8119
|
+
case 1: {
|
|
8120
|
+
const $2b = $2c => {
|
|
8121
|
+
switch($2c.h) {
|
|
8122
|
+
case 0: /* Left */ return $0.a1.a1.a2(undefined)('');
|
|
8123
|
+
case 1: /* Right */ return $0.a1.a1.a2(undefined)(Data_String_Extra_join('', csegen_147(), $2c.a1.a2));
|
|
8124
|
+
}
|
|
8125
|
+
};
|
|
8126
|
+
return $0.a1.a2(undefined)(undefined)(System_File_ReadWrite_readFilePage($0, 0n, Data_Fuel_limit(5000n), $4))($2b);
|
|
8127
|
+
}
|
|
8128
|
+
}
|
|
8129
|
+
};
|
|
8130
|
+
return $0.a1.a2(undefined)(undefined)(System_File_Meta_exists($0, $4))($11);
|
|
8131
|
+
}
|
|
8132
|
+
|
|
8133
|
+
/* Util.5664:1233:getMoreLines */
|
|
8134
|
+
function Util_n__5664_1233_getMoreLines($0, $1, $2) {
|
|
8106
8135
|
switch($2.h) {
|
|
8107
8136
|
case 0: /* nothing */ return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1));
|
|
8108
8137
|
case undefined: /* just */ {
|
|
@@ -8113,13 +8142,13 @@ function Util_n__5249_1233_getMoreLines($0, $1, $2) {
|
|
|
8113
8142
|
case '': {
|
|
8114
8143
|
switch(line) {
|
|
8115
8144
|
case '': return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1.a2));
|
|
8116
|
-
default: return
|
|
8145
|
+
default: return Util_n__5664_1233_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
8117
8146
|
}
|
|
8118
8147
|
}
|
|
8119
|
-
default: return
|
|
8148
|
+
default: return Util_n__5664_1233_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
8120
8149
|
}
|
|
8121
8150
|
}
|
|
8122
|
-
default: return
|
|
8151
|
+
default: return Util_n__5664_1233_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
8123
8152
|
}
|
|
8124
8153
|
};
|
|
8125
8154
|
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);
|
|
@@ -8127,8 +8156,8 @@ function Util_n__5249_1233_getMoreLines($0, $1, $2) {
|
|
|
8127
8156
|
}
|
|
8128
8157
|
}
|
|
8129
8158
|
|
|
8130
|
-
/* Util.Prompting.
|
|
8131
|
-
function
|
|
8159
|
+
/* Util.Prompting.5777:1350:defaultAnswerStr */
|
|
8160
|
+
function Util_Prompting_n__5777_1350_defaultAnswerStr($0, $1, $2) {
|
|
8132
8161
|
switch($1) {
|
|
8133
8162
|
case 0: return 'y/N';
|
|
8134
8163
|
case 1: return 'Y/n';
|
|
@@ -8137,7 +8166,7 @@ function Util_Prompting_n__5362_1350_defaultAnswerStr($0, $1, $2) {
|
|
|
8137
8166
|
|
|
8138
8167
|
/* Util.Prompting.yesNoPrompt : HasIO io => {default True _ : Bool} -> String -> io Bool */
|
|
8139
8168
|
function Util_Prompting_yesNoPrompt($0, $1, $2) {
|
|
8140
|
-
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($11 => Prelude_IO_prim__putStr(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $19 => $19, {a1: $2, a2: {a1: ' [', a2: {a1:
|
|
8169
|
+
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($11 => Prelude_IO_prim__putStr(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $19 => $19, {a1: $2, a2: {a1: ' [', a2: {a1: Util_Prompting_n__5777_1350_defaultAnswerStr($0, $1, $2), a2: {a1: '] ', a2: {h: 0}}}}}), $11)))($29 => $0.a1.a1.a1(undefined)(undefined)($34 => Util_Prompting_n__5777_1351_yesUnlessNo($0, $1, $2, Data_String_trim($34)))($0.a2(undefined)($42 => Prelude_IO_prim__getStr($42))));
|
|
8141
8170
|
}
|
|
8142
8171
|
|
|
8143
8172
|
/* Util.whenNothing : Applicative f => Maybe a -> f () -> f () */
|
|
@@ -8168,6 +8197,15 @@ function Util_relativeToRoot($0, $1, $2, $3) {
|
|
|
8168
8197
|
return Data_Promise_map_Functor_x28Promisex20x24ex29($6 => ($6+Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1: '/', a2: {a1: $1, a2: {h: 0}}})), $15 => $16 => FFI_Git_rootDir($0, $15, $16), $2, $3);
|
|
8169
8198
|
}
|
|
8170
8199
|
|
|
8200
|
+
/* Util.Prompting.prepareDescriptionFile : HasIO io => Maybe String -> String -> String -> io () */
|
|
8201
|
+
function Util_Prompting_prepareDescriptionFile($0, $1, $2, $3) {
|
|
8202
|
+
const $1f = templateContents => {
|
|
8203
|
+
const $20 = Prelude_Types_foldMap_Foldable_List(csegen_51()(), $26 => $26, {a1: $2, a2: {a1: '\n', a2: {a1: templateContents, a2: {h: 0}}}});
|
|
8204
|
+
return $0.a1.a1.a1(undefined)(undefined)($38 => undefined)(System_File_ReadWrite_writeFile($0, $3, $20));
|
|
8205
|
+
};
|
|
8206
|
+
return $0.a1.a2(undefined)(undefined)(Prelude_Types_maybe(() => $0.a1.a1.a2(undefined)(''), () => $17 => Util_Prompting_n__5977_1552_readTemplate($0, $3, $2, $1, $17), $1))($1f);
|
|
8207
|
+
}
|
|
8208
|
+
|
|
8171
8209
|
/* Util.Prompting.orIfEmpty : Maybe String -> String -> String */
|
|
8172
8210
|
function Util_Prompting_orIfEmpty($0, $1) {
|
|
8173
8211
|
switch($0.h) {
|
|
@@ -8218,7 +8256,21 @@ function Util_Prompting_inlineDescription($0, $1, $2) {
|
|
|
8218
8256
|
|
|
8219
8257
|
/* Util.getManyLines : HasIO io => Fuel -> io (List String) */
|
|
8220
8258
|
function Util_getManyLines($0, $1) {
|
|
8221
|
-
return
|
|
8259
|
+
return Util_n__5664_1233_getMoreLines($0, {h: 0}, $1);
|
|
8260
|
+
}
|
|
8261
|
+
|
|
8262
|
+
/* Util.Prompting.editorDescription : HasIO io => String -> Maybe String -> String -> io (Either FileError String) */
|
|
8263
|
+
function Util_Prompting_editorDescription($0, $1, $2, $3) {
|
|
8264
|
+
const $12 = $13 => {
|
|
8265
|
+
const $2d = $2e => {
|
|
8266
|
+
switch($2e) {
|
|
8267
|
+
case 0: return $0.a1.a2(undefined)(undefined)(System_File_ReadWrite_readFile($0, 'editor_description.tmp.md'))(description => $0.a1.a2(undefined)(undefined)($0.a1.a2(undefined)(undefined)(System_File_Meta_exists($0, 'editor_description.tmp.md'))($53 => Prelude_Interfaces_when($0.a1.a1, $53, () => $0.a1.a1.a1(undefined)(undefined)($64 => undefined)(System_File_ReadWrite_removeFile($0, 'editor_description.tmp.md')))))($6a => $0.a1.a1.a2(undefined)(description)));
|
|
8268
|
+
default: return $0.a1.a1.a2(undefined)({h: 0 /* Left */, a1: {h: 0 /* GenericFileError */, a1: $2e}});
|
|
8269
|
+
}
|
|
8270
|
+
};
|
|
8271
|
+
return $0.a1.a2(undefined)(undefined)(System_system($0, Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {a1: $1, a2: {a1: ' ', a2: {a1: 'editor_description.tmp.md', a2: {h: 0}}}})))($2d);
|
|
8272
|
+
};
|
|
8273
|
+
return $0.a1.a2(undefined)(undefined)(Util_Prompting_prepareDescriptionFile($0, $2, $3, 'editor_description.tmp.md'))($12);
|
|
8222
8274
|
}
|
|
8223
8275
|
|
|
8224
8276
|
/* Util.colorize : Config => Doc AnsiStyle -> Doc AnsiStyle */
|
|
@@ -8262,7 +8314,7 @@ function System_getEnv($0, $1) {
|
|
|
8262
8314
|
function System_getArgs($0) {
|
|
8263
8315
|
const $12 = n => {
|
|
8264
8316
|
switch(Prelude_EqOrd_x3e_Ord_Int(n, Number(_truncBigInt32(0n)))) {
|
|
8265
|
-
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:
|
|
8317
|
+
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_297(), 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_297(), 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)));
|
|
8266
8318
|
case 0: return $0.a1.a1.a2(undefined)({h: 0});
|
|
8267
8319
|
}
|
|
8268
8320
|
};
|
|
@@ -8293,38 +8345,38 @@ function FFI_Term_termCols($0) {
|
|
|
8293
8345
|
}
|
|
8294
8346
|
}
|
|
8295
8347
|
|
|
8296
|
-
/* FFI.GitHub.
|
|
8297
|
-
function
|
|
8348
|
+
/* FFI.GitHub.6760:18487:unexpectedPayload */
|
|
8349
|
+
function FFI_GitHub_n__6760_18487_unexpectedPayload($0, $1) {
|
|
8298
8350
|
return FFI_GitHub_internalError(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $9 => $9, {a1: 'Unexpected error JSON: ', a2: {a1: $0, a2: {h: 0}}}));
|
|
8299
8351
|
}
|
|
8300
8352
|
|
|
8301
|
-
/* FFI.GitHub.
|
|
8302
|
-
function
|
|
8353
|
+
/* FFI.GitHub.6760:18486:parse */
|
|
8354
|
+
function FFI_GitHub_n__6760_18486_parse($0, $1) {
|
|
8303
8355
|
switch($1.h) {
|
|
8304
8356
|
case 6: /* JObject */ return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'status', a2: {a1: 'error', a2: {h: 0}}}, $1.a1), $d => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($d.a1), s => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($d.a2.a1), e => ({h: 1 /* Right */, a1: {a1: FFI_GitHub_statusCode(s), a2: e}}))));
|
|
8305
8357
|
default: return {h: 0 /* Left */, a1: 'Expected an Object containing error and status keys'};
|
|
8306
8358
|
}
|
|
8307
8359
|
}
|
|
8308
8360
|
|
|
8309
|
-
/* FFI.GitHub.
|
|
8310
|
-
function
|
|
8361
|
+
/* FFI.GitHub.8194:19964:errString */
|
|
8362
|
+
function FFI_GitHub_n__8194_19964_errString($0, $1) {
|
|
8311
8363
|
switch($1.h) {
|
|
8312
8364
|
case 0: /* nothing */ return 'You can only use teams with repositories belonging to GitHub organizations';
|
|
8313
8365
|
case undefined: /* just */ return $1.a1;
|
|
8314
8366
|
}
|
|
8315
8367
|
}
|
|
8316
8368
|
|
|
8317
|
-
/* FFI.GitHub.
|
|
8318
|
-
function
|
|
8369
|
+
/* FFI.GitHub.7156:18911:errString */
|
|
8370
|
+
function FFI_GitHub_n__7156_18911_errString($0, $1) {
|
|
8319
8371
|
switch($1.h) {
|
|
8320
8372
|
case 0: /* nothing */ return 'You can only list teams for repositories belonging to GitHub organizations';
|
|
8321
8373
|
case undefined: /* just */ return $1.a1;
|
|
8322
8374
|
}
|
|
8323
8375
|
}
|
|
8324
8376
|
|
|
8325
|
-
/* FFI.GitHub.
|
|
8326
|
-
function
|
|
8327
|
-
return Prelude_Types_either(() =>
|
|
8377
|
+
/* FFI.GitHub.6893:18620:errMsg */
|
|
8378
|
+
function FFI_GitHub_n__6893_18620_errMsg($0) {
|
|
8379
|
+
return Prelude_Types_either(() => csegen_318()(), () => csegen_318()(), $0);
|
|
8328
8380
|
}
|
|
8329
8381
|
|
|
8330
8382
|
/* FFI.GitHub.show */
|
|
@@ -8367,7 +8419,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
8367
8419
|
let $2;
|
|
8368
8420
|
switch($3.h) {
|
|
8369
8421
|
case 0: /* Left */ {
|
|
8370
|
-
$2 = {h: 0 /* Left */, a1:
|
|
8422
|
+
$2 = {h: 0 /* Left */, a1: FFI_GitHub_n__6760_18487_unexpectedPayload($0, $3.a1)};
|
|
8371
8423
|
break;
|
|
8372
8424
|
}
|
|
8373
8425
|
case 1: /* Right */ {
|
|
@@ -8376,7 +8428,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
8376
8428
|
}
|
|
8377
8429
|
}
|
|
8378
8430
|
const $c = json => {
|
|
8379
|
-
const $d =
|
|
8431
|
+
const $d = FFI_GitHub_n__6760_18486_parse($0, json);
|
|
8380
8432
|
switch($d.h) {
|
|
8381
8433
|
case 0: /* Left */ return {h: 0 /* Left */, a1: FFI_GitHub_internalError($d.a1)};
|
|
8382
8434
|
case 1: /* Right */ return {h: 1 /* Right */, a1: $d.a1};
|
|
@@ -8468,7 +8520,7 @@ function FFI_GitHub_internalError($0) {
|
|
|
8468
8520
|
|
|
8469
8521
|
/* FFI.GitHub.ignoreStatus : Promise String a -> Promise String a */
|
|
8470
8522
|
function FFI_GitHub_ignoreStatus($0, $1, $2) {
|
|
8471
|
-
return Data_Promise_mapError($5 =>
|
|
8523
|
+
return Data_Promise_mapError($5 => FFI_GitHub_n__6893_18620_errMsg(FFI_GitHub_parseError($5)), $0, $1, $2);
|
|
8472
8524
|
}
|
|
8473
8525
|
|
|
8474
8526
|
/* FFI.GitHub.getUser : Octokit => String -> Promise String User */
|
|
@@ -8493,12 +8545,12 @@ function FFI_GitHub_getPullRequestGraphQlId($0, $1, $2, $3, $4, $5) {
|
|
|
8493
8545
|
|
|
8494
8546
|
/* FFI.GitHub.forceListTeams : Octokit => String -> Promise' (List String) */
|
|
8495
8547
|
function FFI_GitHub_forceListTeams($0, $1, $2, $3) {
|
|
8496
|
-
return Data_Promise_mapError($6 =>
|
|
8548
|
+
return Data_Promise_mapError($6 => FFI_GitHub_n__7156_18911_errString($0, $6), $b => $c => FFI_GitHub_listTeams($0, $1, $b, $c), $2, $3);
|
|
8497
8549
|
}
|
|
8498
8550
|
|
|
8499
8551
|
/* FFI.GitHub.forceListTeamMembers : Octokit => String -> String -> Promise' (List String) */
|
|
8500
8552
|
function FFI_GitHub_forceListTeamMembers($0, $1, $2, $3, $4) {
|
|
8501
|
-
return Data_Promise_mapError($7 =>
|
|
8553
|
+
return Data_Promise_mapError($7 => FFI_GitHub_n__8194_19964_errString($0, $7), $c => $d => FFI_GitHub_listTeamMembers($0, $1, $2, $c, $d), $3, $4);
|
|
8502
8554
|
}
|
|
8503
8555
|
|
|
8504
8556
|
/* FFI.GitHub.createPR : Octokit => {default False _ : Bool} ->
|
|
@@ -8574,8 +8626,8 @@ function Data_Review_isAuthor($0, $1) {
|
|
|
8574
8626
|
return Prelude_EqOrd_x3dx3d_Eq_String($1.a2, $0);
|
|
8575
8627
|
}
|
|
8576
8628
|
|
|
8577
|
-
/* Data.Date.
|
|
8578
|
-
function
|
|
8629
|
+
/* Data.Date.4986:11759:parseNat */
|
|
8630
|
+
function Data_Date_n__4986_11759_parseNat($0, $1, $2) {
|
|
8579
8631
|
switch($2) {
|
|
8580
8632
|
case '0': return {a1: 0n};
|
|
8581
8633
|
case '1': return {a1: 1n};
|
|
@@ -8591,12 +8643,12 @@ function Data_Date_n__4985_11759_parseNat($0, $1, $2) {
|
|
|
8591
8643
|
}
|
|
8592
8644
|
}
|
|
8593
8645
|
|
|
8594
|
-
/* Data.Date.
|
|
8595
|
-
function
|
|
8646
|
+
/* Data.Date.5103:11877:guardSuccess */
|
|
8647
|
+
function Data_Date_n__5103_11877_guardSuccess($0) {
|
|
8596
8648
|
switch($0.h) {
|
|
8597
8649
|
case undefined: /* cons */ {
|
|
8598
8650
|
switch($0.a1.h) {
|
|
8599
|
-
case 3: /*
|
|
8651
|
+
case 3: /* 5103:11866:Day */ {
|
|
8600
8652
|
switch($0.a2.h) {
|
|
8601
8653
|
case undefined: /* cons */ {
|
|
8602
8654
|
switch($0.a2.a2.h) {
|
|
@@ -8614,28 +8666,28 @@ function Data_Date_n__5102_11877_guardSuccess($0) {
|
|
|
8614
8666
|
}
|
|
8615
8667
|
}
|
|
8616
8668
|
|
|
8617
|
-
/* Data.Date.
|
|
8618
|
-
function
|
|
8669
|
+
/* Data.Date.5103:11876:go */
|
|
8670
|
+
function Data_Date_n__5103_11876_go($0, $1) {
|
|
8619
8671
|
switch($0.a1.h) {
|
|
8620
|
-
case 4: /*
|
|
8621
|
-
case 0: /*
|
|
8672
|
+
case 4: /* 5103:11867:Fail */ return {a1: {h: 4 /* 5103:11867:Fail */}, a2: undefined};
|
|
8673
|
+
case 0: /* 5103:11874:Start */ {
|
|
8622
8674
|
switch(Prelude_Types_isDigit($1)) {
|
|
8623
|
-
case 1: return {a1: {h: 1 /*
|
|
8624
|
-
case 0: return {a1: {h: 4 /*
|
|
8675
|
+
case 1: return {a1: {h: 1 /* 5103:11869:P */, a1: 0}, a2: {a1: $1, a2: {h: 0}}};
|
|
8676
|
+
case 0: return {a1: {h: 4 /* 5103:11867:Fail */}, a2: undefined};
|
|
8625
8677
|
}
|
|
8626
8678
|
}
|
|
8627
|
-
case 1: /*
|
|
8679
|
+
case 1: /* 5103:11869:P */ {
|
|
8628
8680
|
switch($0.a1.a1) {
|
|
8629
8681
|
case 0: {
|
|
8630
8682
|
switch($1) {
|
|
8631
8683
|
case '-': {
|
|
8632
8684
|
const $12 = Data_Date_parsePositiveReversed($0.a2);
|
|
8633
8685
|
switch($12.h) {
|
|
8634
|
-
case 0: /* nothing */ return {a1: {h: 4 /*
|
|
8635
|
-
case undefined: /* just */ return {a1: {h: 2 /*
|
|
8686
|
+
case 0: /* nothing */ return {a1: {h: 4 /* 5103:11867:Fail */}, a2: undefined};
|
|
8687
|
+
case undefined: /* just */ return {a1: {h: 2 /* 5103:11873:S */, a1: 0}, a2: $12.a1};
|
|
8636
8688
|
}
|
|
8637
8689
|
}
|
|
8638
|
-
default: return {a1: {h: 1 /*
|
|
8690
|
+
default: return {a1: {h: 1 /* 5103:11869:P */, a1: 0}, a2: {a1: $1, a2: $0.a2}};
|
|
8639
8691
|
}
|
|
8640
8692
|
}
|
|
8641
8693
|
case 1: {
|
|
@@ -8643,32 +8695,32 @@ function Data_Date_n__5102_11876_go($0, $1) {
|
|
|
8643
8695
|
case '-': {
|
|
8644
8696
|
const $21 = Data_Date_parsePositiveReversed($0.a2.a2);
|
|
8645
8697
|
switch($21.h) {
|
|
8646
|
-
case 0: /* nothing */ return {a1: {h: 4 /*
|
|
8647
|
-
case undefined: /* just */ return {a1: {h: 2 /*
|
|
8698
|
+
case 0: /* nothing */ return {a1: {h: 4 /* 5103:11867:Fail */}, a2: undefined};
|
|
8699
|
+
case undefined: /* just */ return {a1: {h: 2 /* 5103:11873:S */, a1: 1}, a2: {a1: $0.a2.a1, a2: $21.a1}};
|
|
8648
8700
|
}
|
|
8649
8701
|
}
|
|
8650
|
-
default: return {a1: {h: 1 /*
|
|
8702
|
+
default: return {a1: {h: 1 /* 5103:11869:P */, a1: 1}, a2: {a1: $0.a2.a1, a2: {a1: $1, a2: $0.a2.a2}}};
|
|
8651
8703
|
}
|
|
8652
8704
|
}
|
|
8653
8705
|
}
|
|
8654
8706
|
}
|
|
8655
|
-
case 2: /*
|
|
8707
|
+
case 2: /* 5103:11873:S */ {
|
|
8656
8708
|
switch($0.a1.a1) {
|
|
8657
8709
|
case 0: {
|
|
8658
8710
|
switch(Prelude_Types_isDigit($1)) {
|
|
8659
|
-
case 1: return {a1: {h: 1 /*
|
|
8660
|
-
case 0: return {a1: {h: 4 /*
|
|
8711
|
+
case 1: return {a1: {h: 1 /* 5103:11869:P */, a1: 1}, a2: {a1: $0.a2, a2: {a1: $1, a2: {h: 0}}}};
|
|
8712
|
+
case 0: return {a1: {h: 4 /* 5103:11867:Fail */}, a2: undefined};
|
|
8661
8713
|
}
|
|
8662
8714
|
}
|
|
8663
8715
|
case 1: {
|
|
8664
8716
|
switch(Prelude_Types_isDigit($1)) {
|
|
8665
|
-
case 1: return {a1: {h: 3 /*
|
|
8666
|
-
case 0: return {a1: {h: 4 /*
|
|
8717
|
+
case 1: return {a1: {h: 3 /* 5103:11866:Day */}, a2: {a1: $0.a2.a1, a2: {a1: $0.a2.a2, a2: {a1: $1, a2: {h: 0}}}}};
|
|
8718
|
+
case 0: return {a1: {h: 4 /* 5103:11867:Fail */}, a2: undefined};
|
|
8667
8719
|
}
|
|
8668
8720
|
}
|
|
8669
8721
|
}
|
|
8670
8722
|
}
|
|
8671
|
-
case 3: /*
|
|
8723
|
+
case 3: /* 5103:11866:Day */ return {a1: {h: 3 /* 5103:11866:Day */}, a2: {a1: $0.a2.a1, a2: {a1: $0.a2.a2.a1, a2: {a1: $1, a2: $0.a2.a2.a2}}}};
|
|
8672
8724
|
}
|
|
8673
8725
|
}
|
|
8674
8726
|
|
|
@@ -8695,7 +8747,7 @@ function Data_Date_max_Ord_Date($0, $1) {
|
|
|
8695
8747
|
|
|
8696
8748
|
/* Data.Date.compare */
|
|
8697
8749
|
function Data_Date_compare_Ord_Date($0, $1) {
|
|
8698
|
-
return Prelude_Types_compare_Ord_x28Listx20x24ax29({a1: {a1:
|
|
8750
|
+
return Prelude_Types_compare_Ord_x28Listx20x24ax29({a1: {a1: csegen_328(), a2: $a => $b => Prelude_Types_x2fx3d_Eq_Nat($a, $b)}, a2: csegen_244(), a3: $12 => $13 => Prelude_Types_x3c_Ord_Nat($12, $13), a4: $18 => $19 => Prelude_Types_x3e_Ord_Nat($18, $19), a5: $1e => $1f => Prelude_Types_x3cx3d_Ord_Nat($1e, $1f), a6: $24 => $25 => Prelude_Types_x3ex3d_Ord_Nat($24, $25), a7: csegen_229(), a8: $2c => $2d => Prelude_Types_min_Ord_Nat($2c, $2d)}, {a1: $0.a1, a2: {a1: $0.a2, a2: {a1: $0.a3, a2: {h: 0}}}}, {a1: $1.a1, a2: {a1: $1.a2, a2: {a1: $1.a3, a2: {h: 0}}}});
|
|
8699
8751
|
}
|
|
8700
8752
|
|
|
8701
8753
|
/* Data.Date.> */
|
|
@@ -8748,7 +8800,7 @@ function Data_Date_showYearAndMonth($0) {
|
|
|
8748
8800
|
function Data_Date_parsePositiveReversed($0) {
|
|
8749
8801
|
switch($0.h) {
|
|
8750
8802
|
case 0: /* nil */ return {a1: 0n};
|
|
8751
|
-
case undefined: /* cons */ return Prelude_Types_x3ex3ex3d_Monad_Maybe(
|
|
8803
|
+
case undefined: /* cons */ return Prelude_Types_x3ex3ex3d_Monad_Maybe(Data_Date_n__4986_11759_parseNat($0.a1, $0.a2, $0.a1), n => Prelude_Types_x3ex3ex3d_Monad_Maybe(Data_Date_parsePositiveReversed($0.a2), $f => ({a1: (n+($f*10n))})));
|
|
8752
8804
|
}
|
|
8753
8805
|
}
|
|
8754
8806
|
|
|
@@ -8761,7 +8813,7 @@ function Data_Date_parseDateTimeString($0) {
|
|
|
8761
8813
|
|
|
8762
8814
|
/* Data.Date.parseDateString : String -> Maybe Date */
|
|
8763
8815
|
function Data_Date_parseDateString($0) {
|
|
8764
|
-
return
|
|
8816
|
+
return Data_Date_n__5103_11877_guardSuccess(Prelude_Types_foldl_Foldable_List($5 => $6 => Data_Date_n__5103_11876_go($5, $6), {a1: {h: 0 /* 5103:11874:Start */}, a2: undefined}, Prelude_Types_fastUnpack($0)));
|
|
8765
8817
|
}
|
|
8766
8818
|
|
|
8767
8819
|
/* Data.Date.pad : Nat -> String */
|
|
@@ -8848,7 +8900,7 @@ function Data_PullRequest_parseState($0, $1) {
|
|
|
8848
8900
|
|
|
8849
8901
|
/* Data.PullRequest.parsePullRequestsString : String -> Either String (List PullRequest) */
|
|
8850
8902
|
function Data_PullRequest_parsePullRequestsString($0) {
|
|
8851
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_227(), csegen_228(),
|
|
8903
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_227(), csegen_228(), csegen_345(), $0);
|
|
8852
8904
|
}
|
|
8853
8905
|
|
|
8854
8906
|
/* Data.PullRequest.parsePullRequestString : String -> Either String PullRequest */
|
|
@@ -8941,47 +8993,47 @@ function Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, $2) {
|
|
|
8941
8993
|
default: return {h: 0};
|
|
8942
8994
|
}
|
|
8943
8995
|
};
|
|
8944
|
-
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(
|
|
8996
|
+
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_358(), $2.a1)}, $b);
|
|
8945
8997
|
}
|
|
8946
8998
|
|
|
8947
|
-
/* Config.
|
|
8948
|
-
function
|
|
8949
|
-
const $6 =
|
|
8950
|
-
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($1c => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {a1: 'Would you like harmony configured for a \'dark\' or \'light\' terminal background', a2: {a1: $6, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $1c)))($30 =>
|
|
8999
|
+
/* Config.9586:2540:themePrompt */
|
|
9000
|
+
function Config_n__9586_2540_themePrompt($0, $1, $2, $3, $4, $5) {
|
|
9001
|
+
const $6 = Config_n__9586_2536_enterForDefaultStr($0, $1, $2, $3, $4, 'dark');
|
|
9002
|
+
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($1c => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {a1: 'Would you like harmony configured for a \'dark\' or \'light\' terminal background', a2: {a1: $6, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $1c)))($30 => Config_n__9586_2537_offerRetry($0, $1, $2, $3, $4, $5, '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, $5.a1.a1.a1(undefined)(undefined)($46 => Data_Theme_parseString(Util_Prompting_orIfEmpty({a1: 'dark'}, Data_String_trim($46))))($5.a2(undefined)($55 => Prelude_IO_prim__getStr($55)))));
|
|
8951
9003
|
}
|
|
8952
9004
|
|
|
8953
|
-
/* Config.
|
|
8954
|
-
function
|
|
8955
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
9005
|
+
/* Config.9586:2539:repo */
|
|
9006
|
+
function Config_n__9586_2539_repo($0, $1, $2, $3, $4, $5) {
|
|
9007
|
+
return Prelude_Types_map_Functor_Maybe(csegen_318()(), $5);
|
|
8956
9008
|
}
|
|
8957
9009
|
|
|
8958
|
-
/* Config.
|
|
8959
|
-
function
|
|
9010
|
+
/* Config.8653:1562:parseSuffix */
|
|
9011
|
+
function Config_n__8653_1562_parseSuffix($0, $1) {
|
|
8960
9012
|
return Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, Data_String_break$($8 => Prelude_EqOrd_x3dx3d_Eq_Char($8, '.'), $1));
|
|
8961
9013
|
}
|
|
8962
9014
|
|
|
8963
|
-
/* Config.
|
|
8964
|
-
function
|
|
8965
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b =>
|
|
9015
|
+
/* Config.8653:1561:parseSSH */
|
|
9016
|
+
function Config_n__8653_1561_parseSSH($0, $1) {
|
|
9017
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b => Config_n__8653_1562_parseSuffix($0, $b), $1);
|
|
8966
9018
|
}
|
|
8967
9019
|
|
|
8968
|
-
/* Config.
|
|
8969
|
-
function
|
|
8970
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b =>
|
|
9020
|
+
/* Config.8653:1560:parseHTTPS */
|
|
9021
|
+
function Config_n__8653_1560_parseHTTPS($0, $1) {
|
|
9022
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b => Config_n__8653_1562_parseSuffix($0, $b), $1);
|
|
8971
9023
|
}
|
|
8972
9024
|
|
|
8973
|
-
/* Config.
|
|
8974
|
-
function
|
|
8975
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
9025
|
+
/* Config.9586:2538:org */
|
|
9026
|
+
function Config_n__9586_2538_org($0, $1, $2, $3, $4, $5) {
|
|
9027
|
+
return Prelude_Types_map_Functor_Maybe(csegen_364()(), $5);
|
|
8976
9028
|
}
|
|
8977
9029
|
|
|
8978
|
-
/* Config.
|
|
8979
|
-
function
|
|
9030
|
+
/* Config.8364:1281:oneDayAgo */
|
|
9031
|
+
function Config_n__8364_1281_oneDayAgo($0, $1, $2) {
|
|
8980
9032
|
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(Number(_truncUBigInt32((now-86400n)))));
|
|
8981
9033
|
}
|
|
8982
9034
|
|
|
8983
|
-
/* Config.
|
|
8984
|
-
function
|
|
9035
|
+
/* Config.9586:2537:offerRetry */
|
|
9036
|
+
function Config_n__9586_2537_offerRetry($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
8985
9037
|
const $13 = $14 => {
|
|
8986
9038
|
switch($14.h) {
|
|
8987
9039
|
case 0: /* nothing */ {
|
|
@@ -9002,34 +9054,34 @@ function Config_n__9570_2537_offerRetry($0, $1, $2, $3, $4, $5, $6, $7, $8, $9)
|
|
|
9002
9054
|
return $5.a1.a2(undefined)(undefined)($9)($13);
|
|
9003
9055
|
}
|
|
9004
9056
|
|
|
9005
|
-
/* Config.
|
|
9006
|
-
function
|
|
9057
|
+
/* Config.9489:2423:help */
|
|
9058
|
+
function Config_n__9489_2423_help($0, $1) {
|
|
9007
9059
|
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_51()(), $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}}})));
|
|
9008
9060
|
}
|
|
9009
9061
|
|
|
9010
|
-
/* Config.
|
|
9011
|
-
function
|
|
9062
|
+
/* Config.9586:2536:enterForDefaultStr */
|
|
9063
|
+
function Config_n__9586_2536_enterForDefaultStr($0, $1, $2, $3, $4, $5) {
|
|
9012
9064
|
return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $b => $b, {a1: ' (ENTER for default: ', a2: {a1: $5, a2: {a1: ')', a2: {h: 0}}}});
|
|
9013
9065
|
}
|
|
9014
9066
|
|
|
9015
|
-
/* Config.
|
|
9016
|
-
function
|
|
9067
|
+
/* Config.8606:1513:drop' */
|
|
9068
|
+
function Config_n__8606_1513_dropx27($0, $1) {
|
|
9017
9069
|
return Config_with__dropPrefixx27x2cdropx27_1521($0, $1, Data_List_PrefixSuffix_dropPrefix($8 => $9 => Decidable_Equality_decEq_DecEq_Char($8, $9), Prelude_Types_fastUnpack($0), $1));
|
|
9018
9070
|
}
|
|
9019
9071
|
|
|
9020
|
-
/* Config.
|
|
9021
|
-
function
|
|
9022
|
-
return Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($c =>
|
|
9072
|
+
/* Config.9586:2535:defaultStr */
|
|
9073
|
+
function Config_n__9586_2535_defaultStr($0, $1, $2, $3, $4, $5, $6) {
|
|
9074
|
+
return Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($c => Config_n__9586_2536_enterForDefaultStr($0, $1, $2, $3, $4, $5($c)), $6));
|
|
9023
9075
|
}
|
|
9024
9076
|
|
|
9025
|
-
/* Config.
|
|
9026
|
-
function
|
|
9027
|
-
const $6 =
|
|
9028
|
-
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($1c => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {a1: 'What kind of comment would you like Harmony to leave when it requests reviewers? [none/name/at-mention]', a2: {a1: $6, a2: {h: 0}}})+'\n'), $1c)))($2e =>
|
|
9077
|
+
/* Config.9586:2534:commentConfigPrompt */
|
|
9078
|
+
function Config_n__9586_2534_commentConfigPrompt($0, $1, $2, $3, $4, $5) {
|
|
9079
|
+
const $6 = Config_n__9586_2536_enterForDefaultStr($0, $1, $2, $3, $4, 'name');
|
|
9080
|
+
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($1c => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {a1: 'What kind of comment would you like Harmony to leave when it requests reviewers? [none/name/at-mention]', a2: {a1: $6, a2: {h: 0}}})+'\n'), $1c)))($2e => Config_n__9586_2537_offerRetry($0, $1, $2, $3, $4, $5, '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, $5.a1.a1.a1(undefined)(undefined)($44 => Data_Config_CommentStrategy_parseCommentConfig(Util_Prompting_orIfEmpty({a1: 'name'}, Data_String_trim($44))))($5.a2(undefined)($53 => Prelude_IO_prim__getStr($53)))));
|
|
9029
9081
|
}
|
|
9030
9082
|
|
|
9031
|
-
/* Config.
|
|
9032
|
-
function
|
|
9083
|
+
/* Config.8495:1406:checkRequestSettings */
|
|
9084
|
+
function Config_n__8495_1406_checkRequestSettings($0, $1) {
|
|
9033
9085
|
let $2;
|
|
9034
9086
|
switch($1.a6) {
|
|
9035
9087
|
case 1: {
|
|
@@ -9047,10 +9099,10 @@ function Config_n__8479_1406_checkRequestSettings($0, $1) {
|
|
|
9047
9099
|
}
|
|
9048
9100
|
}
|
|
9049
9101
|
|
|
9050
|
-
/* Config.
|
|
9051
|
-
function
|
|
9052
|
-
const $6 =
|
|
9053
|
-
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($1c => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {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: $6, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $1c)))($30 =>
|
|
9102
|
+
/* Config.9586:2533:branchParsingPrompt */
|
|
9103
|
+
function Config_n__9586_2533_branchParsingPrompt($0, $1, $2, $3, $4, $5) {
|
|
9104
|
+
const $6 = Config_n__9586_2536_enterForDefaultStr($0, $1, $2, $3, $4, 'none');
|
|
9105
|
+
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($1c => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {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: $6, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $1c)))($30 => Config_n__9586_2537_offerRetry($0, $1, $2, $3, $4, $5, '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, $5.a1.a1.a1(undefined)(undefined)($46 => Data_Config_ParseBranchStrategy_parseBranchConfig(Util_Prompting_orIfEmpty({a1: 'none'}, Data_String_trim($46))))($5.a2(undefined)($55 => Prelude_IO_prim__getStr($55)))));
|
|
9054
9106
|
}
|
|
9055
9107
|
|
|
9056
9108
|
/* Config.show */
|
|
@@ -9085,7 +9137,7 @@ function Config_syncIfOld($0, $1, $2, $3) {
|
|
|
9085
9137
|
case 0: return $1b => Data_Promise_pure_Applicative_x28Promisex20x24ex29($1, $e, $1b);
|
|
9086
9138
|
}
|
|
9087
9139
|
};
|
|
9088
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9140
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__8364_1281_oneDayAgo($0, $1, csegen_74()()), $c, $2, $3);
|
|
9089
9141
|
}
|
|
9090
9142
|
|
|
9091
9143
|
/* Config.syncConfig : Config => Octokit => Bool -> Promise' Config */
|
|
@@ -9097,7 +9149,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
9097
9149
|
const $41 = {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: teamSlugs, a11: labelNames, a12: orgMembers, a13: $0.a13, a14: $0.a14, a15: $0.a15, a16: $0.a16};
|
|
9098
9150
|
return $53 => $54 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($57 => $58 => Data_Promise_map_Functor_x28Promisex20x24ex29($5b => undefined, $5d => $5e => Config_writeConfig($41, $5d, $5e), $57, $58), $66 => $67 => $68 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_66()(), $2, () => $71 => $72 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($75 => $76 => $77 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($7a => Prelude_IO_prim__putStr('Your updated configuration is:\n', $7a), $75, $76, $77), $82 => $83 => $84 => $85 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($88 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($41)+'\n'), $88), $83, $84, $85), $71, $72)), $96 => $97 => $98 => Data_Promise_pure_Applicative_x28Promisex20x24ex29($41, $97, $98), $67, $68), $53, $54);
|
|
9099
9151
|
};
|
|
9100
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9152
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_377()(), $40, $3a, $3b);
|
|
9101
9153
|
};
|
|
9102
9154
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2f => $30 => FFI_GitHub_listRepoLabels($1, $0.a2, $0.a3, $2f, $30), $39, $2b, $2c);
|
|
9103
9155
|
};
|
|
@@ -9108,7 +9160,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
9108
9160
|
|
|
9109
9161
|
/* Config.settablePropsWithHelp : Config => String */
|
|
9110
9162
|
function Config_settablePropsWithHelp($0) {
|
|
9111
|
-
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 =>
|
|
9163
|
+
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 => Config_n__9489_2423_help($0, $9), Data_Config_settablePropNamesAndHelp())));
|
|
9112
9164
|
}
|
|
9113
9165
|
|
|
9114
9166
|
/* Config.setConfig : Config => String -> String -> Promise' Config */
|
|
@@ -9120,14 +9172,14 @@ function Config_setConfig($0, $1, $2) {
|
|
|
9120
9172
|
function Config_propSetter($0, $1) {
|
|
9121
9173
|
return $2 => {
|
|
9122
9174
|
switch($0) {
|
|
9123
|
-
case 0: return Config_update(
|
|
9124
|
-
case 1: return Config_update(
|
|
9125
|
-
case 2: return Config_update(
|
|
9126
|
-
case 3: return Config_update(
|
|
9127
|
-
case 4: return Config_update(
|
|
9128
|
-
case 5: return Config_update(
|
|
9129
|
-
case 6: return Config_update(
|
|
9130
|
-
case 7: return Config_update(
|
|
9175
|
+
case 0: return Config_update(csegen_382(), $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}), $1, $2);
|
|
9176
|
+
case 1: return Config_update(csegen_382(), $24 => Config_parseBool($24), b => $28 => ({a1: $28.a1, a2: $28.a2, a3: $28.a3, a4: $28.a4, a5: $28.a5, a6: $28.a6, a7: b, a8: $28.a8, a9: $28.a9, a10: $28.a10, a11: $28.a11, a12: $28.a12, a13: $28.a13, a14: $28.a14, a15: $28.a15, a16: $28.a16}), $1, $2);
|
|
9177
|
+
case 2: return Config_update(csegen_382(), $40 => Data_Config_CommentStrategy_parseCommentConfig(Data_String_toLower($40)), b => $46 => ({a1: $46.a1, a2: $46.a2, a3: $46.a3, a4: $46.a4, a5: $46.a5, a6: $46.a6, a7: $46.a7, a8: b, a9: $46.a9, a10: $46.a10, a11: $46.a11, a12: $46.a12, a13: $46.a13, a14: $46.a14, a15: $46.a15, a16: $46.a16}), $1, $2);
|
|
9178
|
+
case 3: return Config_update(csegen_382(), $5e => Data_Config_ParseBranchStrategy_parseBranchConfig(Data_String_toLower($5e)), s => $64 => ({a1: $64.a1, a2: $64.a2, a3: $64.a3, a4: $64.a4, a5: $64.a5, a6: $64.a6, a7: $64.a7, a8: $64.a8, a9: s, a10: $64.a10, a11: $64.a11, a12: $64.a12, a13: $64.a13, a14: $64.a14, a15: $64.a15, a16: $64.a16}), $1, $2);
|
|
9179
|
+
case 4: return Config_update(csegen_382(), $7c => ({a1: $7c}), s => $7f => ({a1: $7f.a1, a2: $7f.a2, a3: $7f.a3, a4: s, a5: $7f.a5, a6: $7f.a6, a7: $7f.a7, a8: $7f.a8, a9: $7f.a9, a10: $7f.a10, a11: $7f.a11, a12: $7f.a12, a13: $7f.a13, a14: $7f.a14, a15: $7f.a15, a16: $7f.a16}), $1, $2);
|
|
9180
|
+
case 5: return Config_update(csegen_382(), $97 => ({a1: $97}), s => $9a => ({a1: $9a.a1, a2: $9a.a2, a3: $9a.a3, a4: $9a.a4, a5: s, a6: $9a.a6, a7: $9a.a7, a8: $9a.a8, a9: $9a.a9, a10: $9a.a10, a11: $9a.a11, a12: $9a.a12, a13: $9a.a13, a14: $9a.a14, a15: $9a.a15, a16: $9a.a16}), $1, $2);
|
|
9181
|
+
case 6: return Config_update(csegen_382(), $b2 => Data_Theme_parseString($b2), t => $b6 => ({a1: $b6.a1, a2: $b6.a2, a3: $b6.a3, a4: $b6.a4, a5: $b6.a5, a6: $b6.a6, a7: $b6.a7, a8: $b6.a8, a9: $b6.a9, a10: $b6.a10, a11: $b6.a11, a12: $b6.a12, a13: $b6.a13, a14: $b6.a14, a15: t, a16: $b6.a16}), $1, $2);
|
|
9182
|
+
case 7: return Config_update(csegen_382(), $ce => ({a1: $ce}), s => $d1 => ({a1: $d1.a1, a2: $d1.a2, a3: $d1.a3, a4: $d1.a4, a5: $d1.a5, a6: $d1.a6, a7: $d1.a7, a8: $d1.a8, a9: $d1.a9, a10: $d1.a10, a11: $d1.a11, a12: $d1.a12, a13: $d1.a13, a14: {a1: s}, a15: $d1.a15, a16: $d1.a16}), $1, $2);
|
|
9131
9183
|
}
|
|
9132
9184
|
};
|
|
9133
9185
|
}
|
|
@@ -9157,7 +9209,7 @@ function Config_preferOriginRemote($0) {
|
|
|
9157
9209
|
|
|
9158
9210
|
/* Config.parseGitHubURI : String -> Maybe GitRemote */
|
|
9159
9211
|
function Config_parseGitHubURI($0) {
|
|
9160
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
9212
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(Config_n__8653_1560_parseHTTPS($0, $0), () => Config_n__8653_1561_parseSSH($0, $0));
|
|
9161
9213
|
}
|
|
9162
9214
|
|
|
9163
9215
|
/* Config.parseBool : String -> Maybe Bool */
|
|
@@ -9268,14 +9320,14 @@ function Config_findConfig($0, $1, $2) {
|
|
|
9268
9320
|
|
|
9269
9321
|
/* Config.dropPrefix' : String -> String -> Maybe String */
|
|
9270
9322
|
function Config_dropPrefixx27($0, $1) {
|
|
9271
|
-
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4),
|
|
9323
|
+
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4), Config_n__8606_1513_dropx27($0, Prelude_Types_fastUnpack($1)));
|
|
9272
9324
|
}
|
|
9273
9325
|
|
|
9274
9326
|
/* Config.createConfig : Git => Maybe String -> Bool -> Nat -> Maybe String -> Promise' Config */
|
|
9275
9327
|
function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
9276
9328
|
const $25 = $26 => $27 => $28 => {
|
|
9277
9329
|
const $2d = $2e => {
|
|
9278
|
-
const $30 =
|
|
9330
|
+
const $30 = Config_n__9586_2536_enterForDefaultStr($0, $4, $3, $2, $1, 'unset');
|
|
9279
9331
|
const $2f = () => $38 => $39 => {
|
|
9280
9332
|
const $63 = $64 => $65 => $66 => {
|
|
9281
9333
|
const $68 = $69 => $6a => {
|
|
@@ -9285,7 +9337,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9285
9337
|
default: return {a1: Data_String_trim($6d)};
|
|
9286
9338
|
}
|
|
9287
9339
|
};
|
|
9288
|
-
return Data_Promise_map_Functor_x28Promisex20x24ex29($6c,
|
|
9340
|
+
return Data_Promise_map_Functor_x28Promisex20x24ex29($6c, csegen_405()(), $69, $6a);
|
|
9289
9341
|
};
|
|
9290
9342
|
const $79 = configPAT => $7a => $7b => {
|
|
9291
9343
|
const $87 = $88 => $89 => $8a => {
|
|
@@ -9294,17 +9346,17 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9294
9346
|
const $9e = remoteGuess => $9f => $a0 => {
|
|
9295
9347
|
const $bd = defaultOrgAndRepo => $be => $bf => {
|
|
9296
9348
|
const $c4 = $c5 => {
|
|
9297
|
-
const $c7 =
|
|
9349
|
+
const $c7 = Config_n__9586_2535_defaultStr($0, $4, $3, $2, $1, csegen_364()(), defaultOrgAndRepo);
|
|
9298
9350
|
const $c6 = () => $d2 => $d3 => {
|
|
9299
9351
|
const $f1 = $f2 => $f3 => $f4 => {
|
|
9300
9352
|
const $10d = org => $10e => $10f => {
|
|
9301
9353
|
const $114 = $115 => {
|
|
9302
|
-
const $117 =
|
|
9354
|
+
const $117 = Config_n__9586_2535_defaultStr($0, $4, $3, $2, $1, csegen_318()(), defaultOrgAndRepo);
|
|
9303
9355
|
const $116 = () => $122 => $123 => {
|
|
9304
9356
|
const $141 = $142 => $143 => $144 => {
|
|
9305
9357
|
const $15d = repo => $15e => $15f => {
|
|
9306
9358
|
const $164 = $165 => {
|
|
9307
|
-
const $167 =
|
|
9359
|
+
const $167 = Config_n__9586_2536_enterForDefaultStr($0, $4, $3, $2, $1, remoteGuess);
|
|
9308
9360
|
const $166 = () => $16f => $170 => {
|
|
9309
9361
|
const $18e = $18f => $190 => $191 => {
|
|
9310
9362
|
const $1a4 = defaultRemote => $1a5 => $1a6 => {
|
|
@@ -9338,7 +9390,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9338
9390
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($261 => $262 => Config_nonOrgFallback(() => ({h: 0}), $266 => $267 => FFI_GitHub_listTeams(_, org, $266, $267), $261, $262), $26f, $25d, $25e);
|
|
9339
9391
|
};
|
|
9340
9392
|
};
|
|
9341
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9393
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_377()(), $24b, $245, $246);
|
|
9342
9394
|
};
|
|
9343
9395
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($23c => $23d => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $23c, $23d), $244, $238, $239);
|
|
9344
9396
|
};
|
|
@@ -9346,53 +9398,53 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9346
9398
|
};
|
|
9347
9399
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($219 => $21a => $21b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($21e => FFI_GitHub_octokit($88.a1, $21e), $219, $21a, $21b), $225, $215, $216);
|
|
9348
9400
|
};
|
|
9349
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9401
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $213, $20d, $20e);
|
|
9350
9402
|
};
|
|
9351
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9403
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9586_2540_themePrompt($0, $4, $3, $2, $1, csegen_74()()), $20c, $1ff, $200);
|
|
9352
9404
|
};
|
|
9353
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9405
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $1fd, $1f7, $1f8);
|
|
9354
9406
|
};
|
|
9355
9407
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_74()(), 1, 'Would you like harmony to request reviews from individual users when it requests a teams review?'), $1f6, $1ec, $1ed);
|
|
9356
9408
|
};
|
|
9357
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9409
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $1ea, $1e4, $1e5);
|
|
9358
9410
|
};
|
|
9359
9411
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_74()(), 1, 'Would you like harmony to request reviews from teams when it requests reviewers?'), $1e3, $1d9, $1da);
|
|
9360
9412
|
};
|
|
9361
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9413
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $1d7, $1d1, $1d2);
|
|
9362
9414
|
};
|
|
9363
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9415
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9586_2533_branchParsingPrompt($0, $4, $3, $2, $1, csegen_74()()), $1d0, $1c3, $1c4);
|
|
9364
9416
|
};
|
|
9365
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9417
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $1c1, $1bb, $1bc);
|
|
9366
9418
|
};
|
|
9367
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9419
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9586_2534_commentConfigPrompt($0, $4, $3, $2, $1, csegen_74()()), $1ba, $1ad, $1ae);
|
|
9368
9420
|
};
|
|
9369
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9421
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $1ab, $1a5, $1a6);
|
|
9370
9422
|
};
|
|
9371
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($194 => $195 => Data_Promise_map_Functor_x28Promisex20x24ex29($198 => Util_Prompting_orIfEmpty({a1: remoteGuess}, Data_String_trim($198)),
|
|
9423
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($194 => $195 => Data_Promise_map_Functor_x28Promisex20x24ex29($198 => Util_Prompting_orIfEmpty({a1: remoteGuess}, Data_String_trim($198)), csegen_405()(), $194, $195), $1a4, $190, $191);
|
|
9372
9424
|
};
|
|
9373
9425
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($173 => $174 => $175 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($178 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $181 => $181, {a1: 'What GitHub remote repo would you like to use harmony for', a2: {a1: $167, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $178), $173, $174, $175), $18e, $16f, $170);
|
|
9374
9426
|
};
|
|
9375
9427
|
return $166();
|
|
9376
9428
|
};
|
|
9377
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9429
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $164, $15e, $15f);
|
|
9378
9430
|
};
|
|
9379
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($147 => $148 => Data_Promise_map_Functor_x28Promisex20x24ex29($14b => Util_Prompting_orIfEmpty(
|
|
9431
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($147 => $148 => Data_Promise_map_Functor_x28Promisex20x24ex29($14b => Util_Prompting_orIfEmpty(Config_n__9586_2539_repo($0, $4, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($14b)), csegen_405()(), $147, $148), $15d, $143, $144);
|
|
9380
9432
|
};
|
|
9381
9433
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($126 => $127 => $128 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($12b => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $134 => $134, {a1: 'What repository would you like to use harmony for', a2: {a1: $117, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $12b), $126, $127, $128), $141, $122, $123);
|
|
9382
9434
|
};
|
|
9383
9435
|
return $116();
|
|
9384
9436
|
};
|
|
9385
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9437
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $114, $10e, $10f);
|
|
9386
9438
|
};
|
|
9387
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f7 => $f8 => Data_Promise_map_Functor_x28Promisex20x24ex29($fb => Util_Prompting_orIfEmpty(
|
|
9439
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f7 => $f8 => Data_Promise_map_Functor_x28Promisex20x24ex29($fb => Util_Prompting_orIfEmpty(Config_n__9586_2538_org($0, $4, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($fb)), csegen_405()(), $f7, $f8), $10d, $f3, $f4);
|
|
9388
9440
|
};
|
|
9389
9441
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($d6 => $d7 => $d8 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($db => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e4 => $e4, {a1: 'What GitHub org would you like to use harmony for', a2: {a1: $c7, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $db), $d6, $d7, $d8), $f1, $d2, $d3);
|
|
9390
9442
|
};
|
|
9391
9443
|
return $c6();
|
|
9392
9444
|
};
|
|
9393
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9445
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $c4, $be, $bf);
|
|
9394
9446
|
};
|
|
9395
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a3 => $a4 => Data_Promise_x3cx7cx3e_Alternative_x28Promisex20Stringx29($a7 => $a8 => Data_Promise_map_Functor_x28Promisex20x24ex29($ab => Config_parseGitHubURI($ab), $af => $b0 => FFI_Git_remoteURI($0, remoteGuess, $af, $b0), $a7, $a8), () =>
|
|
9447
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a3 => $a4 => Data_Promise_x3cx7cx3e_Alternative_x28Promisex20Stringx29($a7 => $a8 => Data_Promise_map_Functor_x28Promisex20x24ex29($ab => Config_parseGitHubURI($ab), $af => $b0 => FFI_Git_remoteURI($0, remoteGuess, $af, $b0), $a7, $a8), () => csegen_407()(), $a3, $a4), $bd, $9f, $a0);
|
|
9396
9448
|
};
|
|
9397
9449
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8e => $8f => Data_Promise_map_Functor_x28Promisex20x24ex29($92 => Config_preferOriginRemote($92), $96 => $97 => FFI_Git_listRemotes($0, $96, $97), $8e, $8f), $9e, $89, $8a);
|
|
9398
9450
|
}
|
|
@@ -9407,14 +9459,14 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9407
9459
|
};
|
|
9408
9460
|
return $2f();
|
|
9409
9461
|
};
|
|
9410
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9462
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $2d, $27, $28);
|
|
9411
9463
|
};
|
|
9412
9464
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => $a => $b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($e => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $17 => $17, {a1: 'Creating a new configuration (storing in ', a2: {a1: Data_Config_filename(), a2: {a1: ')...', a2: {h: 0}}}})+'\n'), $e), $9, $a, $b), $25, $5, $6);
|
|
9413
9465
|
}
|
|
9414
9466
|
|
|
9415
9467
|
/* Config.checkConfigConsistency : Config -> Either (Doc AnsiStyle) () */
|
|
9416
9468
|
function Config_checkConfigConsistency($0) {
|
|
9417
|
-
return
|
|
9469
|
+
return Config_n__8495_1406_checkRequestSettings($0, $0);
|
|
9418
9470
|
}
|
|
9419
9471
|
|
|
9420
9472
|
/* Config.addIgnoredPRs : Config -> List Integer -> Promise' Config */
|
|
@@ -9471,16 +9523,16 @@ function AppVersion_printVersion($0) {
|
|
|
9471
9523
|
|
|
9472
9524
|
/* AppVersion.appVersion : String */
|
|
9473
9525
|
const AppVersion_appVersion = __lazy(function () {
|
|
9474
|
-
return '5.5.
|
|
9526
|
+
return '5.5.1';
|
|
9475
9527
|
});
|
|
9476
9528
|
|
|
9477
9529
|
/* Commands.Help.subcommandHelp' : String -> Doc AnsiStyle */
|
|
9478
9530
|
function Commands_Help_subcommandHelpx27($0) {
|
|
9479
9531
|
switch($0) {
|
|
9480
|
-
case 'label': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<label>'), a2:
|
|
9481
|
-
case 'request': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<team-slug> | +<user-login>'), a2:
|
|
9532
|
+
case 'label': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<label>'), a2: csegen_421()}, {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}});
|
|
9533
|
+
case 'request': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<team-slug> | +<user-login>'), a2: csegen_426()}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $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_51()(), $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}}}});
|
|
9482
9534
|
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_51()(), $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}});
|
|
9483
|
-
case 'pr': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--draft'), a2: {a1: Commands_Help_argument(0, '-i/--into {<branch-name>}'), a2:
|
|
9535
|
+
case 'pr': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--draft'), a2: {a1: Commands_Help_argument(0, '-i/--into {<branch-name>}'), a2: csegen_426()}}, {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 specify the branch to merge into with the --into option.'), a2: {h: 0}}}}});
|
|
9484
9536
|
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_51()(), $c8 => $c8, {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_51()(), $d5 => $d5, {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_51()(), $e2 => $e2, {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_51()(), $ef => $ef, {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}}}}});
|
|
9485
9537
|
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}});
|
|
9486
9538
|
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}});
|
|
@@ -9692,7 +9744,7 @@ function Commands_case__request_19159($0, $1, $2, $3, $4, $5) {
|
|
|
9692
9744
|
|
|
9693
9745
|
/* Commands.case block in case block in request,partitionedArgs */
|
|
9694
9746
|
function Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_19079($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
9695
|
-
const $9 = Prelude_Interfaces_mapHom(
|
|
9747
|
+
const $9 = Prelude_Interfaces_mapHom(csegen_599(), $f => Prelude_Types_List_mapAppend({h: 0}, $13 => Data_String_Extra_drop(1n, $13), $f))({a1: $5, a2: $7.a1});
|
|
9696
9748
|
return {a1: $9.a1, a2: {a1: $7.a2, a2: $9.a2}};
|
|
9697
9749
|
}
|
|
9698
9750
|
|
|
@@ -9701,30 +9753,30 @@ function Commands_case__requestx2cpartitionedArgs_19056($0, $1, $2, $3, $4, $5)
|
|
|
9701
9753
|
return Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_19079($0, $1, $2, $3, $4, $5.a1, $5.a2, Data_List_partition($12 => BashCompletion_isHashPrefix($12), $5.a2));
|
|
9702
9754
|
}
|
|
9703
9755
|
|
|
9704
|
-
/* Commands.
|
|
9705
|
-
function
|
|
9756
|
+
/* Commands.8925:18213:recombineIntoArgs */
|
|
9757
|
+
function Commands_n__8925_18213_recombineIntoArgs($0, $1) {
|
|
9706
9758
|
switch($1.h) {
|
|
9707
9759
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
9708
9760
|
case undefined: /* cons */ {
|
|
9709
9761
|
switch($1.a1) {
|
|
9710
9762
|
case '-i': {
|
|
9711
9763
|
switch($1.a2.h) {
|
|
9712
|
-
case 0: /* nil */ return
|
|
9764
|
+
case 0: /* nil */ return csegen_603();
|
|
9713
9765
|
case undefined: /* cons */ {
|
|
9714
|
-
const $8 =
|
|
9766
|
+
const $8 = Commands_n__8925_18211_parseIntoOpt($0, $1.a2.a1);
|
|
9715
9767
|
switch($8.h) {
|
|
9716
9768
|
case undefined: /* just */ {
|
|
9717
|
-
const $c =
|
|
9769
|
+
const $c = Commands_n__8925_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9718
9770
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
9719
9771
|
}
|
|
9720
9772
|
case 0: /* nothing */ {
|
|
9721
|
-
const $14 =
|
|
9773
|
+
const $14 = Commands_n__8925_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9722
9774
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
9723
9775
|
}
|
|
9724
9776
|
}
|
|
9725
9777
|
}
|
|
9726
9778
|
default: {
|
|
9727
|
-
const $1e =
|
|
9779
|
+
const $1e = Commands_n__8925_18213_recombineIntoArgs($0, $1.a2);
|
|
9728
9780
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
9729
9781
|
}
|
|
9730
9782
|
}
|
|
@@ -9733,26 +9785,26 @@ function Commands_n__8916_18213_recombineIntoArgs($0, $1) {
|
|
|
9733
9785
|
switch($1.a2.h) {
|
|
9734
9786
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--into', a2: {h: 0}}};
|
|
9735
9787
|
case undefined: /* cons */ {
|
|
9736
|
-
const $2b =
|
|
9788
|
+
const $2b = Commands_n__8925_18211_parseIntoOpt($0, $1.a2.a1);
|
|
9737
9789
|
switch($2b.h) {
|
|
9738
9790
|
case undefined: /* just */ {
|
|
9739
|
-
const $2f =
|
|
9791
|
+
const $2f = Commands_n__8925_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9740
9792
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
9741
9793
|
}
|
|
9742
9794
|
case 0: /* nothing */ {
|
|
9743
|
-
const $37 =
|
|
9795
|
+
const $37 = Commands_n__8925_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9744
9796
|
return {a1: $37.a1, a2: {a1: '--into', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
9745
9797
|
}
|
|
9746
9798
|
}
|
|
9747
9799
|
}
|
|
9748
9800
|
default: {
|
|
9749
|
-
const $41 =
|
|
9801
|
+
const $41 = Commands_n__8925_18213_recombineIntoArgs($0, $1.a2);
|
|
9750
9802
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
9751
9803
|
}
|
|
9752
9804
|
}
|
|
9753
9805
|
}
|
|
9754
9806
|
default: {
|
|
9755
|
-
const $49 =
|
|
9807
|
+
const $49 = Commands_n__8925_18213_recombineIntoArgs($0, $1.a2);
|
|
9756
9808
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
9757
9809
|
}
|
|
9758
9810
|
}
|
|
@@ -9760,30 +9812,30 @@ function Commands_n__8916_18213_recombineIntoArgs($0, $1) {
|
|
|
9760
9812
|
}
|
|
9761
9813
|
}
|
|
9762
9814
|
|
|
9763
|
-
/* Commands.
|
|
9764
|
-
function
|
|
9815
|
+
/* Commands.10977:20153:recombineIgnoreArgs */
|
|
9816
|
+
function Commands_n__10977_20153_recombineIgnoreArgs($0, $1) {
|
|
9765
9817
|
switch($1.h) {
|
|
9766
9818
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
9767
9819
|
case undefined: /* cons */ {
|
|
9768
9820
|
switch($1.a1) {
|
|
9769
9821
|
case '-i': {
|
|
9770
9822
|
switch($1.a2.h) {
|
|
9771
|
-
case 0: /* nil */ return
|
|
9823
|
+
case 0: /* nil */ return csegen_603();
|
|
9772
9824
|
case undefined: /* cons */ {
|
|
9773
|
-
const $8 =
|
|
9825
|
+
const $8 = Commands_n__10977_20150_parseIgnoreOpt($0, $1.a2.a1);
|
|
9774
9826
|
switch($8.h) {
|
|
9775
9827
|
case undefined: /* just */ {
|
|
9776
|
-
const $c =
|
|
9828
|
+
const $c = Commands_n__10977_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9777
9829
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
9778
9830
|
}
|
|
9779
9831
|
case 0: /* nothing */ {
|
|
9780
|
-
const $14 =
|
|
9832
|
+
const $14 = Commands_n__10977_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9781
9833
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
9782
9834
|
}
|
|
9783
9835
|
}
|
|
9784
9836
|
}
|
|
9785
9837
|
default: {
|
|
9786
|
-
const $1e =
|
|
9838
|
+
const $1e = Commands_n__10977_20153_recombineIgnoreArgs($0, $1.a2);
|
|
9787
9839
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
9788
9840
|
}
|
|
9789
9841
|
}
|
|
@@ -9792,26 +9844,26 @@ function Commands_n__10968_20153_recombineIgnoreArgs($0, $1) {
|
|
|
9792
9844
|
switch($1.a2.h) {
|
|
9793
9845
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
|
|
9794
9846
|
case undefined: /* cons */ {
|
|
9795
|
-
const $2b =
|
|
9847
|
+
const $2b = Commands_n__10977_20150_parseIgnoreOpt($0, $1.a2.a1);
|
|
9796
9848
|
switch($2b.h) {
|
|
9797
9849
|
case undefined: /* just */ {
|
|
9798
|
-
const $2f =
|
|
9850
|
+
const $2f = Commands_n__10977_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9799
9851
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
9800
9852
|
}
|
|
9801
9853
|
case 0: /* nothing */ {
|
|
9802
|
-
const $37 =
|
|
9854
|
+
const $37 = Commands_n__10977_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9803
9855
|
return {a1: $37.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
9804
9856
|
}
|
|
9805
9857
|
}
|
|
9806
9858
|
}
|
|
9807
9859
|
default: {
|
|
9808
|
-
const $41 =
|
|
9860
|
+
const $41 = Commands_n__10977_20153_recombineIgnoreArgs($0, $1.a2);
|
|
9809
9861
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
9810
9862
|
}
|
|
9811
9863
|
}
|
|
9812
9864
|
}
|
|
9813
9865
|
default: {
|
|
9814
|
-
const $49 =
|
|
9866
|
+
const $49 = Commands_n__10977_20153_recombineIgnoreArgs($0, $1.a2);
|
|
9815
9867
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
9816
9868
|
}
|
|
9817
9869
|
}
|
|
@@ -9819,23 +9871,23 @@ function Commands_n__10968_20153_recombineIgnoreArgs($0, $1) {
|
|
|
9819
9871
|
}
|
|
9820
9872
|
}
|
|
9821
9873
|
|
|
9822
|
-
/* Commands.
|
|
9823
|
-
function
|
|
9874
|
+
/* Commands.10191:19397:putNameLn */
|
|
9875
|
+
function Commands_n__10191_19397_putNameLn($0, $1, $2, $3) {
|
|
9824
9876
|
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}}}});
|
|
9825
9877
|
}
|
|
9826
9878
|
|
|
9827
|
-
/* Commands.
|
|
9828
|
-
function
|
|
9829
|
-
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $f =>
|
|
9879
|
+
/* Commands.8663:17949:putLabels */
|
|
9880
|
+
function Commands_n__8663_17949_putLabels($0, $1, $2, $3, $4) {
|
|
9881
|
+
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $f => Commands_n__8663_17948_putLabel($0, $1, $2, $3, $f), $4)));
|
|
9830
9882
|
}
|
|
9831
9883
|
|
|
9832
|
-
/* Commands.
|
|
9833
|
-
function
|
|
9884
|
+
/* Commands.8663:17948:putLabel */
|
|
9885
|
+
function Commands_n__8663_17948_putLabel($0, $1, $2, $3, $4) {
|
|
9834
9886
|
return Text_PrettyPrint_Prettyprinter_Doc_enclose(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\"'), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\"'), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4)));
|
|
9835
9887
|
}
|
|
9836
9888
|
|
|
9837
|
-
/* Commands.
|
|
9838
|
-
function
|
|
9889
|
+
/* Commands.11329:20514:printDetails */
|
|
9890
|
+
function Commands_n__11329_20514_printDetails($0, $1, $2, $3, $4) {
|
|
9839
9891
|
const $5 = Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4.a8));
|
|
9840
9892
|
const $d = Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' \u{251c} title: '), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4.a2));
|
|
9841
9893
|
const $16 = 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($4.a3)));
|
|
@@ -9844,8 +9896,8 @@ function Commands_n__11320_20514_printDetails($0, $1, $2, $3, $4) {
|
|
|
9844
9896
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: $5, a2: {a1: $d, a2: {a1: $16, a2: {a1: $21, a2: {a1: $2f, a2: {h: 0}}}}}});
|
|
9845
9897
|
}
|
|
9846
9898
|
|
|
9847
|
-
/* Commands.
|
|
9848
|
-
function
|
|
9899
|
+
/* Commands.11329:20513:pickOne */
|
|
9900
|
+
function Commands_n__11329_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
9849
9901
|
const $9 = Data_List_headx27(Data_List_drop($5, Prelude_Types_List_tailRecAppend($7, $8)));
|
|
9850
9902
|
return $12 => $13 => {
|
|
9851
9903
|
switch($9.h) {
|
|
@@ -9859,7 +9911,7 @@ function Commands_n__11320_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
9859
9911
|
break;
|
|
9860
9912
|
}
|
|
9861
9913
|
case 0: /* nothing */ {
|
|
9862
|
-
$1a =
|
|
9914
|
+
$1a = csegen_608();
|
|
9863
9915
|
break;
|
|
9864
9916
|
}
|
|
9865
9917
|
}
|
|
@@ -9869,23 +9921,23 @@ function Commands_n__11320_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
9869
9921
|
};
|
|
9870
9922
|
}
|
|
9871
9923
|
|
|
9872
|
-
/* Commands.
|
|
9873
|
-
function
|
|
9924
|
+
/* Commands.9791:19044:partitionedArgs */
|
|
9925
|
+
function Commands_n__9791_19044_partitionedArgs($0, $1, $2, $3, $4) {
|
|
9874
9926
|
return Commands_case__requestx2cpartitionedArgs_19056($0, $1, $2, $3, $4, Data_List_partition($e => Data_String_isPrefixOf('+', $e), $4));
|
|
9875
9927
|
}
|
|
9876
9928
|
|
|
9877
|
-
/* Commands.
|
|
9878
|
-
function
|
|
9929
|
+
/* Commands.10359:19585:parseTeamArg */
|
|
9930
|
+
function Commands_n__10359_19585_parseTeamArg($0, $1) {
|
|
9879
9931
|
return {a1: {a1: $1}};
|
|
9880
9932
|
}
|
|
9881
9933
|
|
|
9882
|
-
/* Commands.
|
|
9883
|
-
function
|
|
9934
|
+
/* Commands.10977:20152:parseSkipArg */
|
|
9935
|
+
function Commands_n__10977_20152_parseSkipArg($0, $1) {
|
|
9884
9936
|
return Commands_case__parseContributeArgsx2cparseSkipArg_20199($0, $1, Data_String_strM($1));
|
|
9885
9937
|
}
|
|
9886
9938
|
|
|
9887
|
-
/* Commands.
|
|
9888
|
-
function
|
|
9939
|
+
/* Commands.10977:20151:parseListFlag */
|
|
9940
|
+
function Commands_n__10977_20151_parseListFlag($0, $1) {
|
|
9889
9941
|
switch($1) {
|
|
9890
9942
|
case '-l': return {a1: {h: 0 /* List */}};
|
|
9891
9943
|
case '--list': return {a1: {h: 0 /* List */}};
|
|
@@ -9893,8 +9945,8 @@ function Commands_n__10968_20151_parseListFlag($0, $1) {
|
|
|
9893
9945
|
}
|
|
9894
9946
|
}
|
|
9895
9947
|
|
|
9896
|
-
/* Commands.
|
|
9897
|
-
function
|
|
9948
|
+
/* Commands.8925:18212:parseLabelArg */
|
|
9949
|
+
function Commands_n__8925_18212_parseLabelArg($0, $1) {
|
|
9898
9950
|
const $2 = Data_String_strM($1);
|
|
9899
9951
|
switch($2.h) {
|
|
9900
9952
|
case undefined: /* cons */ {
|
|
@@ -9907,29 +9959,29 @@ function Commands_n__8916_18212_parseLabelArg($0, $1) {
|
|
|
9907
9959
|
}
|
|
9908
9960
|
}
|
|
9909
9961
|
|
|
9910
|
-
/* Commands.
|
|
9911
|
-
function
|
|
9962
|
+
/* Commands.8925:18211:parseIntoOpt */
|
|
9963
|
+
function Commands_n__8925_18211_parseIntoOpt($0, $1) {
|
|
9912
9964
|
const $2 = Util_String_nonEmpty($1);
|
|
9913
9965
|
return Prelude_Types_map_Functor_Maybe($7 => $7, $2);
|
|
9914
9966
|
}
|
|
9915
9967
|
|
|
9916
|
-
/* Commands.
|
|
9917
|
-
function
|
|
9918
|
-
const $2 = Data_String_split(
|
|
9968
|
+
/* Commands.10977:20150:parseIgnoreOpt */
|
|
9969
|
+
function Commands_n__10977_20150_parseIgnoreOpt($0, $1) {
|
|
9970
|
+
const $2 = Data_String_split(csegen_358(), $1);
|
|
9919
9971
|
const $7 = Data_List1_last($2);
|
|
9920
9972
|
return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
|
|
9921
9973
|
}
|
|
9922
9974
|
|
|
9923
|
-
/* Commands.
|
|
9924
|
-
function
|
|
9975
|
+
/* Commands.8925:18210:parseDraftFlag */
|
|
9976
|
+
function Commands_n__8925_18210_parseDraftFlag($0, $1) {
|
|
9925
9977
|
switch($1) {
|
|
9926
9978
|
case '--draft': return {a1: {h: 0 /* Draft */}};
|
|
9927
9979
|
default: return {h: 0};
|
|
9928
9980
|
}
|
|
9929
9981
|
}
|
|
9930
9982
|
|
|
9931
|
-
/* Commands.
|
|
9932
|
-
function
|
|
9983
|
+
/* Commands.10359:19584:parseCompletedFlag */
|
|
9984
|
+
function Commands_n__10359_19584_parseCompletedFlag($0, $1) {
|
|
9933
9985
|
switch($1) {
|
|
9934
9986
|
case '-c': return {a1: {h: 0}};
|
|
9935
9987
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -9937,8 +9989,8 @@ function Commands_n__10350_19584_parseCompletedFlag($0, $1) {
|
|
|
9937
9989
|
}
|
|
9938
9990
|
}
|
|
9939
9991
|
|
|
9940
|
-
/* Commands.
|
|
9941
|
-
function
|
|
9992
|
+
/* Commands.10977:20149:parseCheckoutFlag */
|
|
9993
|
+
function Commands_n__10977_20149_parseCheckoutFlag($0, $1) {
|
|
9942
9994
|
switch($1) {
|
|
9943
9995
|
case '-c': return {a1: {h: 1 /* Checkout */}};
|
|
9944
9996
|
case '--checkout': return {a1: {h: 1 /* Checkout */}};
|
|
@@ -9946,8 +9998,8 @@ function Commands_n__10968_20149_parseCheckoutFlag($0, $1) {
|
|
|
9946
9998
|
}
|
|
9947
9999
|
}
|
|
9948
10000
|
|
|
9949
|
-
/* Commands.
|
|
9950
|
-
function
|
|
10001
|
+
/* Commands.11329:20512:listSome */
|
|
10002
|
+
function Commands_n__11329_20512_listSome($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
9951
10003
|
const $15 = $16 => {
|
|
9952
10004
|
let $1b;
|
|
9953
10005
|
switch(Prelude_Types_null_Foldable_List($6)) {
|
|
@@ -9960,13 +10012,13 @@ function Commands_n__11320_20512_listSome($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
9960
10012
|
break;
|
|
9961
10013
|
}
|
|
9962
10014
|
}
|
|
9963
|
-
return Prelude_Interfaces_when(csegen_66()(), $1b, () => $20 => $21 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10015
|
+
return Prelude_Interfaces_when(csegen_66()(), $1b, () => $20 => $21 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $27 => $28 => $29 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_renderIO($3, csegen_74()(), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_bold(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Your review not requested:'))), $39 => Commands_n__11329_20510_goListSome($0, $1, $2, $3, 0, Data_List_take(5n, $6)), $28, $29), $20, $21));
|
|
9964
10016
|
};
|
|
9965
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10017
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_n__11329_20510_goListSome($0, $1, $2, $3, 1, Data_List_drop($4, $5)), $15, $7, $8);
|
|
9966
10018
|
}
|
|
9967
10019
|
|
|
9968
|
-
/* Commands.
|
|
9969
|
-
function
|
|
10020
|
+
/* Commands.9351:18641:labelSlugs */
|
|
10021
|
+
function Commands_n__9351_18641_labelSlugs($0, $1, $2, $3) {
|
|
9970
10022
|
const $5 = $6 => $7 => {
|
|
9971
10023
|
switch($6.h) {
|
|
9972
10024
|
case 2: /* Label */ return {a1: $6.a1, a2: $7};
|
|
@@ -9976,18 +10028,13 @@ function Commands_n__9342_18641_labelSlugs($0, $1, $2, $3) {
|
|
|
9976
10028
|
return Prelude_Types_foldr_Foldable_List($5, {h: 0}, $3);
|
|
9977
10029
|
}
|
|
9978
10030
|
|
|
9979
|
-
/* Commands.
|
|
9980
|
-
function
|
|
9981
|
-
return 'What would you like the issue description to be (two blank lines to finish)?';
|
|
9982
|
-
}
|
|
9983
|
-
|
|
9984
|
-
/* Commands.11320:20511:isNotIgnored */
|
|
9985
|
-
function Commands_n__11320_20511_isNotIgnored($0, $1, $2, $3, $4, $5) {
|
|
10031
|
+
/* Commands.11329:20511:isNotIgnored */
|
|
10032
|
+
function Commands_n__11329_20511_isNotIgnored($0, $1, $2, $3, $4, $5) {
|
|
9986
10033
|
return Data_Maybe_isNothing(Data_List_find($a => Prelude_EqOrd_x3dx3d_Eq_Integer($a, $5.a1), $4.a13));
|
|
9987
10034
|
}
|
|
9988
10035
|
|
|
9989
|
-
/* Commands.
|
|
9990
|
-
function
|
|
10036
|
+
/* Commands.9351:18640:isDraft */
|
|
10037
|
+
function Commands_n__9351_18640_isDraft($0, $1, $2, $3) {
|
|
9991
10038
|
const $7 = $8 => {
|
|
9992
10039
|
switch($8.h) {
|
|
9993
10040
|
case 0: /* Draft */ return 1;
|
|
@@ -9998,8 +10045,8 @@ function Commands_n__9342_18640_isDraft($0, $1, $2, $3) {
|
|
|
9998
10045
|
return Data_Maybe_isJust($5);
|
|
9999
10046
|
}
|
|
10000
10047
|
|
|
10001
|
-
/* Commands.
|
|
10002
|
-
function
|
|
10048
|
+
/* Commands.9351:18639:intoBranch */
|
|
10049
|
+
function Commands_n__9351_18639_intoBranch($0, $1, $2, $3) {
|
|
10003
10050
|
const $d = $e => {
|
|
10004
10051
|
switch($e.h) {
|
|
10005
10052
|
case 1: /* Into */ return {a1: Util_String_value($e.a1)};
|
|
@@ -10009,11 +10056,11 @@ function Commands_n__9342_18639_intoBranch($0, $1, $2, $3) {
|
|
|
10009
10056
|
return Prelude_Types_foldMap_Foldable_List({a1: $7 => $8 => Prelude_Types_x3cx2bx3e_Semigroup_x28Maybex20x24ax29($7, $8), a2: {h: 0}}, $d, $3);
|
|
10010
10057
|
}
|
|
10011
10058
|
|
|
10012
|
-
/* Commands.
|
|
10013
|
-
function
|
|
10059
|
+
/* Commands.11329:20510:goListSome */
|
|
10060
|
+
function Commands_n__11329_20510_goListSome($0, $1, $2, $3, $4, $5) {
|
|
10014
10061
|
switch($5.h) {
|
|
10015
10062
|
case undefined: /* cons */ {
|
|
10016
|
-
const $7 =
|
|
10063
|
+
const $7 = Commands_n__11329_20514_printDetails($0, $1, $2, $3, $5.a1);
|
|
10017
10064
|
let $15;
|
|
10018
10065
|
switch($4) {
|
|
10019
10066
|
case 1: {
|
|
@@ -10025,15 +10072,15 @@ function Commands_n__11320_20510_goListSome($0, $1, $2, $3, $4, $5) {
|
|
|
10025
10072
|
break;
|
|
10026
10073
|
}
|
|
10027
10074
|
}
|
|
10028
|
-
const $13 = Text_PrettyPrint_Prettyprinter_Doc_indent($15, Prelude_Types_foldl_Foldable_List(acc => next => Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: acc, a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
10075
|
+
const $13 = Text_PrettyPrint_Prettyprinter_Doc_indent($15, 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__11329_20514_printDetails($0, $1, $2, $3, next), a2: {h: 0}}}}), $7, $5.a2));
|
|
10029
10076
|
return Util_renderIO($3, csegen_74()(), $13);
|
|
10030
10077
|
}
|
|
10031
|
-
case 0: /* nil */ return
|
|
10078
|
+
case 0: /* nil */ return csegen_608();
|
|
10032
10079
|
}
|
|
10033
10080
|
}
|
|
10034
10081
|
|
|
10035
|
-
/* Commands.
|
|
10036
|
-
function
|
|
10082
|
+
/* Commands.10191:19396:forkedUser */
|
|
10083
|
+
function Commands_n__10191_19396_forkedUser($0, $1, $2, $3) {
|
|
10037
10084
|
return FFI_Concurrency_fork(csegen_74()(), ('user --json '+$3));
|
|
10038
10085
|
}
|
|
10039
10086
|
|
|
@@ -10066,7 +10113,7 @@ function Commands_skipArg($0) {
|
|
|
10066
10113
|
/* Commands.request : Config => Git => Octokit => List String -> {default False _ : Bool} ->
|
|
10067
10114
|
Promise' () */
|
|
10068
10115
|
function Commands_request($0, $1, $2, $3, $4) {
|
|
10069
|
-
return Commands_case__request_19159($0, $1, $2, $4, $3,
|
|
10116
|
+
return Commands_case__request_19159($0, $1, $2, $4, $3, Commands_n__9791_19044_partitionedArgs($0, $1, $2, $4, $3));
|
|
10070
10117
|
}
|
|
10071
10118
|
|
|
10072
10119
|
/* Commands.reflect : Config => Octokit => Promise' () */
|
|
@@ -10076,7 +10123,7 @@ function Commands_reflect($0, $1, $2, $3) {
|
|
|
10076
10123
|
|
|
10077
10124
|
/* Commands.quick : Config => Git => Octokit => Promise' () */
|
|
10078
10125
|
function Commands_quick($0, $1, $2, $3, $4) {
|
|
10079
|
-
return
|
|
10126
|
+
return Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4);
|
|
10080
10127
|
}
|
|
10081
10128
|
|
|
10082
10129
|
/* Commands.prUsageError : String */
|
|
@@ -10097,7 +10144,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10097
10144
|
};
|
|
10098
10145
|
const $48 = $49 => $4a => $4b => {
|
|
10099
10146
|
let $52;
|
|
10100
|
-
switch(Prelude_Types_null_Foldable_List(
|
|
10147
|
+
switch(Prelude_Types_null_Foldable_List(Commands_n__9351_18641_labelSlugs($0, $1, $2, $3))) {
|
|
10101
10148
|
case 1: {
|
|
10102
10149
|
$52 = 0;
|
|
10103
10150
|
break;
|
|
@@ -10107,10 +10154,10 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10107
10154
|
break;
|
|
10108
10155
|
}
|
|
10109
10156
|
}
|
|
10110
|
-
const $4d = Prelude_Interfaces_when(csegen_66()(), $52, () => $5c => $5d => Commands_label($0, $1, $2,
|
|
10157
|
+
const $4d = Prelude_Interfaces_when(csegen_66()(), $52, () => $5c => $5d => Commands_label($0, $1, $2, Commands_n__9351_18641_labelSlugs($0, $1, $2, $3), $5c, $5d));
|
|
10111
10158
|
const $6a = $6b => $6c => $6d => {
|
|
10112
10159
|
const $6f = $70 => {
|
|
10113
|
-
const $71 =
|
|
10160
|
+
const $71 = Commands_n__9351_18639_intoBranch($0, $1, $2, $3);
|
|
10114
10161
|
switch($71.h) {
|
|
10115
10162
|
case undefined: /* just */ {
|
|
10116
10163
|
return $77 => {
|
|
@@ -10125,7 +10172,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10125
10172
|
};
|
|
10126
10173
|
const $96 = $97 => {
|
|
10127
10174
|
let $9c;
|
|
10128
|
-
switch(
|
|
10175
|
+
switch(Commands_n__9351_18640_isDraft($0, $1, $2, $3)) {
|
|
10129
10176
|
case 1: {
|
|
10130
10177
|
switch($2c.a2.a4) {
|
|
10131
10178
|
case 1: {
|
|
@@ -10154,7 +10201,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10154
10201
|
};
|
|
10155
10202
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_74()(), 0, 'Are you sure you want to convert the existing PR for the current branch to a draft?'), $b8, $ae, $af);
|
|
10156
10203
|
};
|
|
10157
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10204
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $ac, $a6, $a7);
|
|
10158
10205
|
});
|
|
10159
10206
|
};
|
|
10160
10207
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6f, $96, $6c, $6d);
|
|
@@ -10166,7 +10213,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10166
10213
|
case 1: /* Hypothetical */ return $f4 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($f7 => Prelude_IO_prim__putStr(($2c.a1+'\n'), $f7), $2d, $2e, $f4);
|
|
10167
10214
|
}
|
|
10168
10215
|
};
|
|
10169
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8 => $9 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c => $d => FFI_Git_currentBranch($1, $c, $d), $13 => $14 => $15 => Commands_PullRequest_identifyOrCreatePR($0, $1, $2,
|
|
10216
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8 => $9 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c => $d => FFI_Git_currentBranch($1, $c, $d), $13 => $14 => $15 => Commands_PullRequest_identifyOrCreatePR($0, $1, $2, Commands_n__9351_18640_isDraft($0, $1, $2, $3), Commands_n__9351_18639_intoBranch($0, $1, $2, $3), $13, $14, $15), $8, $9), $2b, $4, $5);
|
|
10170
10217
|
}
|
|
10171
10218
|
|
|
10172
10219
|
/* Commands.parsePrArgs : List String -> Either String (List PrArg) */
|
|
@@ -10174,9 +10221,9 @@ function Commands_parsePrArgs($0) {
|
|
|
10174
10221
|
switch($0.h) {
|
|
10175
10222
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
10176
10223
|
default: {
|
|
10177
|
-
const $3 =
|
|
10224
|
+
const $3 = Commands_n__8925_18213_recombineIntoArgs($0, $0);
|
|
10178
10225
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 1 /* Into */, a1: $b}), $3.a1);
|
|
10179
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
10226
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_623(), $18 => Commands_n__8925_18210_parseDraftFlag($0, $18), $1d => Commands_n__8925_18212_parseLabelArg($0, $1d), $13), $3.a2);
|
|
10180
10227
|
return Data_Either_maybeToEither(() => Commands_prUsageError(), Prelude_Types_map_Functor_Maybe($29 => Prelude_Types_List_tailRecAppend($7, $29), $e));
|
|
10181
10228
|
}
|
|
10182
10229
|
}
|
|
@@ -10192,7 +10239,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10192
10239
|
switch($0.a2.a2.h) {
|
|
10193
10240
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
10194
10241
|
default: {
|
|
10195
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(
|
|
10242
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_623(), $10 => Commands_n__10359_19584_parseCompletedFlag($0, $10), $15 => Commands_n__10359_19585_parseTeamArg($0, $15), $b), $0);
|
|
10196
10243
|
switch($6.h) {
|
|
10197
10244
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
10198
10245
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10201,7 +10248,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10201
10248
|
}
|
|
10202
10249
|
}
|
|
10203
10250
|
default: {
|
|
10204
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(
|
|
10251
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_623(), $27 => Commands_n__10359_19584_parseCompletedFlag($0, $27), $2c => Commands_n__10359_19585_parseTeamArg($0, $2c), $22), $0);
|
|
10205
10252
|
switch($1d.h) {
|
|
10206
10253
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
10207
10254
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10210,7 +10257,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10210
10257
|
}
|
|
10211
10258
|
}
|
|
10212
10259
|
default: {
|
|
10213
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(
|
|
10260
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_623(), $3e => Commands_n__10359_19584_parseCompletedFlag($0, $3e), $43 => Commands_n__10359_19585_parseTeamArg($0, $43), $39), $0);
|
|
10214
10261
|
switch($34.h) {
|
|
10215
10262
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
10216
10263
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10224,9 +10271,9 @@ function Commands_parseContributeArgs($0) {
|
|
|
10224
10271
|
switch($0.h) {
|
|
10225
10272
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
10226
10273
|
default: {
|
|
10227
|
-
const $3 =
|
|
10274
|
+
const $3 = Commands_n__10977_20153_recombineIgnoreArgs($0, $0);
|
|
10228
10275
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 2 /* Ignore */, a1: $b}), $3.a1);
|
|
10229
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
10276
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_623(), $18 => Commands_n__10977_20151_parseListFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_623(), $22 => Commands_n__10977_20152_parseSkipArg($0, $22), $27 => Commands_n__10977_20149_parseCheckoutFlag($0, $27), $1d), $13), $3.a2);
|
|
10230
10277
|
return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($34 => Prelude_Types_List_tailRecAppend($7, $34), $e));
|
|
10231
10278
|
}
|
|
10232
10279
|
}
|
|
@@ -10234,12 +10281,12 @@ function Commands_parseContributeArgs($0) {
|
|
|
10234
10281
|
|
|
10235
10282
|
/* Commands.listOrgTeams : Config => Octokit => Promise' () */
|
|
10236
10283
|
function Commands_listOrgTeams($0, $1, $2, $3) {
|
|
10237
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10284
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_624(), $c => $d => FFI_GitHub_forceListTeams($1, $0.a2, $c, $d), $6, $7), teamNames => Util_renderIO($0, csegen_74()(), 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);
|
|
10238
10285
|
}
|
|
10239
10286
|
|
|
10240
10287
|
/* Commands.list : Config => Octokit => String -> Promise' () */
|
|
10241
10288
|
function Commands_list($0, $1, $2, $3, $4) {
|
|
10242
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10289
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_624(), $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_67()(), csegen_626(), Prelude_Types_traverse_Traversable_List(csegen_66()(), $29 => Commands_n__10191_19396_forkedUser($1, $2, $0, $29), teamMemberLogins)), teamMembersJson => $31 => $32 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Types_traverse_Traversable_List(csegen_66()(), $3a => $3b => Data_Promise_either(Data_User_parseUser($3a), $3b), teamMembersJson), teamMembers => Util_renderIO($0, csegen_74()(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $4e => Commands_n__10191_19397_putNameLn($1, $2, $0, $4e), teamMembers))), $31, $32), $19, $1a), $3, $4);
|
|
10243
10290
|
}
|
|
10244
10291
|
|
|
10245
10292
|
/* Commands.label : Config => Git => Octokit => List String -> Promise' () */
|
|
@@ -10248,7 +10295,7 @@ function Commands_label($0, $1, $2, $3, $4, $5) {
|
|
|
10248
10295
|
switch($22.h) {
|
|
10249
10296
|
case 0: /* Actual */ {
|
|
10250
10297
|
const $24 = Prelude_Types_List_mapAppend({h: 0}, $28 => Commands_Label_unslugifyLabel($0.a11, $28), $3);
|
|
10251
|
-
return $2e => $2f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($32 => $33 => Commands_Label_addLabels($0, $2, $22.a2, $24, $32, $33), allLabels => Util_renderIO($0, csegen_74()(), 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(
|
|
10298
|
+
return $2e => $2f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($32 => $33 => Commands_Label_addLabels($0, $2, $22.a2, $24, $32, $33), allLabels => Util_renderIO($0, csegen_74()(), 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__8663_17949_putLabels($1, $2, $3, $0, $24), 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_51()(), $64 => $64, {a1: 'All labels for PR of ', a2: {a1: $22.a2.a8, a2: {a1: ':', a2: {h: 0}}}})), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8663_17949_putLabels($1, $2, $3, $0, allLabels), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('.'), a2: {h: 0}}))), a2: {h: 0}}})), $2e, $2f);
|
|
10252
10299
|
}
|
|
10253
10300
|
case 1: /* Hypothetical */ return $80 => $81 => 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', $80, $81);
|
|
10254
10301
|
}
|
|
@@ -10335,17 +10382,17 @@ function Commands_contribute($0, $1, $2, $3, $4, $5) {
|
|
|
10335
10382
|
}
|
|
10336
10383
|
};
|
|
10337
10384
|
const $72 = Prelude_Types_List_filterAppend({h: 0}, $75, $13);
|
|
10338
|
-
const $7c = Prelude_Types_List_filterAppend({h: 0}, $80 =>
|
|
10385
|
+
const $7c = Prelude_Types_List_filterAppend({h: 0}, $80 => Commands_n__11329_20511_isNotIgnored($1, $2, $3, $0, configx27, $80), $72);
|
|
10339
10386
|
const $89 = Data_List_partition($8c => Data_PullRequest_isRequestedReviewer(myLogin, $8c), $7c);
|
|
10340
|
-
const $91 = Prelude_Interfaces_mapHom(
|
|
10387
|
+
const $91 = Prelude_Interfaces_mapHom(csegen_599(), $97 => Data_List_sortBy(csegen_640(), $97))($89);
|
|
10341
10388
|
let $71;
|
|
10342
10389
|
switch($54.h) {
|
|
10343
10390
|
case 0: /* nothing */ {
|
|
10344
|
-
$71 = () =>
|
|
10391
|
+
$71 = () => Commands_n__11329_20513_pickOne($1, $2, $3, $0, configx27, $41, $4e, $91.a1, $91.a2);
|
|
10345
10392
|
break;
|
|
10346
10393
|
}
|
|
10347
10394
|
case undefined: /* just */ {
|
|
10348
|
-
$71 = () => $a8 => $a9 =>
|
|
10395
|
+
$71 = () => $a8 => $a9 => Commands_n__11329_20512_listSome($1, $2, $3, $0, $41, $91.a1, $91.a2, $a8, $a9);
|
|
10349
10396
|
break;
|
|
10350
10397
|
}
|
|
10351
10398
|
}
|
|
@@ -10357,7 +10404,7 @@ function Commands_contribute($0, $1, $2, $3, $4, $5) {
|
|
|
10357
10404
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($31, $40, $2e, $2f);
|
|
10358
10405
|
};
|
|
10359
10406
|
};
|
|
10360
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1f => $20 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10407
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1f => $20 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_364()(), FFI_GitHub_getSelf($2), $1f, $20), $2a, $1b, $1c);
|
|
10361
10408
|
};
|
|
10362
10409
|
};
|
|
10363
10410
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequests($2, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $12, $4, $5);
|
|
@@ -10591,67 +10638,67 @@ function Data_SortedMap_Dependent_empty($0) {
|
|
|
10591
10638
|
|
|
10592
10639
|
/* Commands.User.Reflect.case block in case block in reflectOnSelf */
|
|
10593
10640
|
function Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
10594
|
-
const $b = Prelude_Interfaces_mapHom(
|
|
10641
|
+
const $b = Prelude_Interfaces_mapHom(csegen_599(), $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_662(), $11))))({a1: $7, a2: $9.a1});
|
|
10595
10642
|
return Util_renderIO($0, csegen_74()(), 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));
|
|
10596
10643
|
}
|
|
10597
10644
|
|
|
10598
|
-
/* Commands.User.Me.
|
|
10599
|
-
function
|
|
10645
|
+
/* Commands.User.Me.7540:2049:ul */
|
|
10646
|
+
function Commands_User_Me_n__7540_2049_ul($0, $1, $2, $3, $4) {
|
|
10600
10647
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
10601
10648
|
}
|
|
10602
10649
|
|
|
10603
|
-
/* Commands.User.Me.
|
|
10604
|
-
function
|
|
10605
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
10650
|
+
/* Commands.User.Me.7540:2048:teams */
|
|
10651
|
+
function Commands_User_Me_n__7540_2048_teams($0, $1, $2, $3) {
|
|
10652
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_User_Me_n__7540_2049_ul($0, $1, $2, $3, 'GitHub Teams:'), a2: Prelude_Types_List_mapAppend({h: 0}, $11 => Commands_User_Me_n__7540_2046_it($0, $1, $2, $3, $11), $0)});
|
|
10606
10653
|
}
|
|
10607
10654
|
|
|
10608
|
-
/* Commands.User.Me.
|
|
10609
|
-
function
|
|
10610
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'),
|
|
10655
|
+
/* Commands.User.Me.7540:2047:login */
|
|
10656
|
+
function Commands_User_Me_n__7540_2047_login($0, $1, $2, $3) {
|
|
10657
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'), Commands_User_Me_n__7540_2043_dataVal($0, $1, $2, $3, $1.a1));
|
|
10611
10658
|
}
|
|
10612
10659
|
|
|
10613
|
-
/* Commands.User.Reflect.
|
|
10614
|
-
function
|
|
10660
|
+
/* Commands.User.Reflect.6595:1075:ital */
|
|
10661
|
+
function Commands_User_Reflect_n__6595_1075_ital($0, $1) {
|
|
10615
10662
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
10616
10663
|
}
|
|
10617
10664
|
|
|
10618
|
-
/* Commands.User.Me.
|
|
10619
|
-
function
|
|
10665
|
+
/* Commands.User.Me.7540:2046:it */
|
|
10666
|
+
function Commands_User_Me_n__7540_2046_it($0, $1, $2, $3, $4) {
|
|
10620
10667
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
10621
10668
|
}
|
|
10622
10669
|
|
|
10623
|
-
/* Commands.User.Me.
|
|
10624
|
-
function
|
|
10670
|
+
/* Commands.User.Me.7690:2202:handleUnsetEmail */
|
|
10671
|
+
function Commands_User_Me_n__7690_2202_handleUnsetEmail($0, $1, $2, $3) {
|
|
10625
10672
|
switch($3) {
|
|
10626
10673
|
case '': return {h: 0};
|
|
10627
10674
|
default: return {a1: $3};
|
|
10628
10675
|
}
|
|
10629
10676
|
}
|
|
10630
10677
|
|
|
10631
|
-
/* Commands.User.Me.
|
|
10632
|
-
function
|
|
10633
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'),
|
|
10678
|
+
/* Commands.User.Me.7540:2045:fullName */
|
|
10679
|
+
function Commands_User_Me_n__7540_2045_fullName($0, $1, $2, $3) {
|
|
10680
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'), Commands_User_Me_n__7540_2043_dataVal($0, $1, $2, $3, $1.a2));
|
|
10634
10681
|
}
|
|
10635
10682
|
|
|
10636
|
-
/* Commands.User.Me.
|
|
10637
|
-
function
|
|
10683
|
+
/* Commands.User.Me.7540:2044:email */
|
|
10684
|
+
function Commands_User_Me_n__7540_2044_email($0, $1, $2, $3) {
|
|
10638
10685
|
let $8;
|
|
10639
10686
|
switch($2.h) {
|
|
10640
10687
|
case undefined: /* just */ {
|
|
10641
|
-
$8 =
|
|
10688
|
+
$8 = Commands_User_Me_n__7540_2043_dataVal($0, $1, $2, $3, $2.a1);
|
|
10642
10689
|
break;
|
|
10643
10690
|
}
|
|
10644
10691
|
case 0: /* nothing */ {
|
|
10645
|
-
$8 =
|
|
10692
|
+
$8 = Commands_User_Me_n__7540_2046_it($0, $1, $2, $3, 'Not set');
|
|
10646
10693
|
break;
|
|
10647
10694
|
}
|
|
10648
10695
|
}
|
|
10649
10696
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Git Email:'), $8);
|
|
10650
10697
|
}
|
|
10651
10698
|
|
|
10652
|
-
/* Commands.User.Me.
|
|
10653
|
-
function
|
|
10654
|
-
return Theme_theme($3,
|
|
10699
|
+
/* Commands.User.Me.7540:2043:dataVal */
|
|
10700
|
+
function Commands_User_Me_n__7540_2043_dataVal($0, $1, $2, $3, $4) {
|
|
10701
|
+
return Theme_theme($3, csegen_665(), Theme_cs({a1: 4, a2: {h: 0}}), 8)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
10655
10702
|
}
|
|
10656
10703
|
|
|
10657
10704
|
/* Commands.User.Reflect.rightTitle : String */
|
|
@@ -10674,20 +10721,20 @@ function Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
|
10674
10721
|
const $c = prs => $d => $e => {
|
|
10675
10722
|
const $1c = myLogin => $1d => $1e => {
|
|
10676
10723
|
const $3a = reviews => {
|
|
10677
|
-
const $3b = Prelude_Types_map_Functor_Maybe(
|
|
10678
|
-
const $4e = Prelude_Interfaces_mapHom(
|
|
10679
|
-
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(
|
|
10724
|
+
const $3b = Prelude_Types_map_Functor_Maybe(csegen_668(), Data_List_headx27(Data_List_sortBy($44 => $45 => Prelude_Basics_on(csegen_638(), csegen_668(), $44, $45), reviews)));
|
|
10725
|
+
const $4e = Prelude_Interfaces_mapHom(csegen_599(), $54 => Prelude_Types_List_filterAppend({h: 0}, $58 => Prelude_EqOrd_x3dx3d_Eq_String($58.a5, myLogin), $54))(prs);
|
|
10726
|
+
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(csegen_599(), $6f => Prelude_Types_List_filterAppend({h: 0}, $73 => Prelude_Types_foldMap_Foldable_List(csegen_97(), $78 => Prelude_EqOrd_x3dx3d_Eq_String($78, myLogin), $73.a7), $6f))(prs));
|
|
10680
10727
|
};
|
|
10681
|
-
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(
|
|
10728
|
+
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_638(), csegen_662(), $2e, $2f), Commands_PullRequest_combined(prs))))), $3a, $1d, $1e);
|
|
10682
10729
|
};
|
|
10683
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10730
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_364()(), FFI_GitHub_getSelf($1), $11, $12), $1c, $d, $e);
|
|
10684
10731
|
};
|
|
10685
10732
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_listPartitionedPRs($0, $1, 4n, Commands_User_Reflect_prCount()), $c, $2, $3);
|
|
10686
10733
|
}
|
|
10687
10734
|
|
|
10688
10735
|
/* Commands.User.Me.printInfoOnSelf : Config => Octokit => Git => Promise' () */
|
|
10689
10736
|
function Commands_User_Me_printInfoOnSelf($0, $1, $2, $3, $4) {
|
|
10690
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29($b =>
|
|
10737
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29($b => Commands_User_Me_n__7690_2202_handleUnsetEmail($1, $2, $0, $b), $12 => $13 => FFI_Git_userEmail($2, $12, $13), $7, $8), gitEmail => $1b => $1c => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getSelf($1), githubUser => $22 => $23 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($26 => $27 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_624(), $2c => $2d => FFI_GitHub_listMyTeams($1, $2c, $2d), $26, $27), githubTeams => Util_renderIO($0, csegen_74()(), Commands_User_Me_print($0, gitEmail, githubUser, githubTeams)), $22, $23), $1b, $1c), $3, $4);
|
|
10691
10738
|
}
|
|
10692
10739
|
|
|
10693
10740
|
/* Commands.User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Config =>
|
|
@@ -10698,7 +10745,7 @@ function Commands_User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
|
10698
10745
|
|
|
10699
10746
|
/* Commands.User.Me.print : Config -> Maybe String -> User -> List String -> Doc AnsiStyle */
|
|
10700
10747
|
function Commands_User_Me_print($0, $1, $2, $3) {
|
|
10701
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
10748
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7540_2044_email($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7540_2045_fullName($3, $2, $1, $0), a2: {a1: Commands_User_Me_n__7540_2047_login($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7540_2048_teams($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}}}}});
|
|
10702
10749
|
}
|
|
10703
10750
|
|
|
10704
10751
|
/* Commands.User.Reflect.prCount : Fin 101 */
|
|
@@ -10718,7 +10765,7 @@ const Commands_User_Reflect_intro = __lazy(function () {
|
|
|
10718
10765
|
|
|
10719
10766
|
/* Commands.User.Reflect.header : Nat -> Doc AnsiStyle */
|
|
10720
10767
|
function Commands_User_Reflect_header($0) {
|
|
10721
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1:
|
|
10768
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Commands_User_Reflect_n__6595_1075_ital($0, Commands_User_Reflect_leftTitle()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' '), a2: {a1: Commands_User_Reflect_n__6595_1075_ital($0, Commands_User_Reflect_rightTitle()), a2: {h: 0}}}}));
|
|
10722
10769
|
}
|
|
10723
10770
|
|
|
10724
10771
|
/* Commands.User.Reflect.graph : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Doc AnsiStyle */
|
|
@@ -10736,12 +10783,12 @@ function Commands_User_Reflect_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
|
10736
10783
|
|
|
10737
10784
|
/* Commands.User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
10738
10785
|
function Commands_User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10739
|
-
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(
|
|
10786
|
+
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_674(), $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_674(), $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_51()(), $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}}}}}}}}}});
|
|
10740
10787
|
}
|
|
10741
10788
|
|
|
10742
10789
|
/* Commands.User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Nat -> Doc AnsiStyle */
|
|
10743
10790
|
function Commands_User_Reflect_chart($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10744
|
-
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,
|
|
10791
|
+
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_665(), csegen_684(), 4, $1, '\u{b7}'), Commands_User_replicatex27($6, csegen_685(), csegen_685(), 7, $3, '\u{25e6}')), Commands_User_replicatex27($6, csegen_686(), csegen_686(), 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_686(), csegen_686(), 5, $5, '>'), Commands_User_replicatex27($6, csegen_665(), csegen_684(), 4, $4, '\u{b7}')))));
|
|
10745
10792
|
}
|
|
10746
10793
|
|
|
10747
10794
|
/* Theme.4288:1209:maybeAnnotate */
|
|
@@ -10838,7 +10885,7 @@ function Commands_PullRequest_with__listOpenPRs_1391($0, $1, $2, $3, $4) {
|
|
|
10838
10885
|
}
|
|
10839
10886
|
|
|
10840
10887
|
/* Commands.PullRequest.case block in case block in case block in identifyOrCreatePR,createPR */
|
|
10841
|
-
function
|
|
10888
|
+
function Commands_PullRequest_case__casex20blockx20inx20casex20blockx20inx20identifyOrCreatePRx2ccreatePR_3538($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a, $b) {
|
|
10842
10889
|
const $1b = $1c => $1d => $1e => {
|
|
10843
10890
|
const $2d = $2e => $2f => $30 => {
|
|
10844
10891
|
const $41 = title => $42 => $43 => {
|
|
@@ -10847,119 +10894,94 @@ function Commands_PullRequest_case__casex20blockx20inx20casex20blockx20inx20iden
|
|
|
10847
10894
|
let $51;
|
|
10848
10895
|
switch($52.h) {
|
|
10849
10896
|
case 0: /* nothing */ {
|
|
10850
|
-
$51 = Util_Prompting_inlineDescription(csegen_74()(),
|
|
10897
|
+
$51 = Util_Prompting_inlineDescription(csegen_74()(), Commands_PullRequest_n__11100_3054_inlineDescriptionPrompt($0, $1, $2, $3, $4, $5), $9.a2);
|
|
10851
10898
|
break;
|
|
10852
10899
|
}
|
|
10853
10900
|
case undefined: /* just */ {
|
|
10854
|
-
$51 = $62 => $63 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10901
|
+
$51 = $62 => $63 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_691(), Util_Prompting_editorDescription(csegen_74()(), $52.a1, {a1: templateFilePath}, $9.a2), $62, $63);
|
|
10855
10902
|
break;
|
|
10856
10903
|
}
|
|
10857
10904
|
}
|
|
10858
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($51, description => $
|
|
10905
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($51, description => $73 => $74 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($77 => $78 => $79 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($7c => Prelude_IO_prim__putStr('Creating PR...\n', $7c), $77, $78, $79), $84 => $85 => $86 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($89 => $8a => $8b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($8e => Prelude_IO_prim__putStr(($2+'\n'), $8e), $89, $8a, $8b), $98 => FFI_GitHub_createPR($1, $4, $5.a2, $5.a3, $2, $8, title, description), $85, $86), $73, $74), $4e, $4f);
|
|
10859
10906
|
};
|
|
10860
10907
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($46 => $47 => Util_relativeToRoot($0, '.github/PULL_REQUEST_TEMPLATE.md', $46, $47), $4d, $42, $43);
|
|
10861
10908
|
};
|
|
10862
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($33 => $34 => Data_Promise_map_Functor_x28Promisex20x24ex29($37 => ($9.a1+Data_String_trim($37)),
|
|
10909
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($33 => $34 => Data_Promise_map_Functor_x28Promisex20x24ex29($37 => ($9.a1+Data_String_trim($37)), csegen_405()(), $33, $34), $41, $2f, $30);
|
|
10863
10910
|
};
|
|
10864
10911
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($21 => $22 => $23 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($26 => Prelude_IO_prim__putStr($9.a1, $26), $21, $22, $23), $2d, $1d, $1e);
|
|
10865
10912
|
};
|
|
10866
10913
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f => $10 => $11 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($14 => Prelude_IO_prim__putStr('What would you like the title to be?\n', $14), $f, $10, $11), $1b, $a, $b);
|
|
10867
10914
|
}
|
|
10868
10915
|
|
|
10869
|
-
/* Commands.PullRequest.
|
|
10870
|
-
function
|
|
10916
|
+
/* Commands.PullRequest.10007:1999:userNotice */
|
|
10917
|
+
function Commands_PullRequest_n__10007_1999_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
10871
10918
|
switch($6.h) {
|
|
10872
10919
|
case 0: /* nothing */ {
|
|
10873
10920
|
switch($2.h) {
|
|
10874
10921
|
case 0: /* nil */ return 'no users';
|
|
10875
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1:
|
|
10922
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1: Commands_PullRequest_n__10007_1994_csv($0, $1, $2, $3, $4, $5, $2), a2: {h: 0}});
|
|
10876
10923
|
}
|
|
10877
10924
|
}
|
|
10878
|
-
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $1f => $1f, {a1:
|
|
10925
|
+
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $1f => $1f, {a1: Commands_PullRequest_n__10007_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: $2}), a2: {h: 0}});
|
|
10879
10926
|
}
|
|
10880
10927
|
}
|
|
10881
10928
|
|
|
10882
|
-
/* Commands.PullRequest.
|
|
10883
|
-
function
|
|
10929
|
+
/* Commands.PullRequest.10007:1998:teamNotice */
|
|
10930
|
+
function Commands_PullRequest_n__10007_1998_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
10884
10931
|
switch($6.h) {
|
|
10885
10932
|
case 0: /* nil */ return '';
|
|
10886
10933
|
case undefined: /* cons */ {
|
|
10887
10934
|
switch($6.a2.h) {
|
|
10888
|
-
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1: ' and team ', a2: {a1:
|
|
10889
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $23 => $23, {a1: ' and teams ', a2: {a1:
|
|
10935
|
+
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1: ' and team ', a2: {a1: Commands_PullRequest_n__10007_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: {h: 0}}), a2: {h: 0}}});
|
|
10936
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $23 => $23, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10007_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
10890
10937
|
}
|
|
10891
10938
|
}
|
|
10892
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $36 => $36, {a1: ' and teams ', a2: {a1:
|
|
10939
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $36 => $36, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10007_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
10893
10940
|
}
|
|
10894
10941
|
}
|
|
10895
10942
|
|
|
10896
|
-
/* Commands.PullRequest.
|
|
10897
|
-
function
|
|
10898
|
-
const $1e = $1f => {
|
|
10899
|
-
switch($1f) {
|
|
10900
|
-
case 0: return $6.a1.a1.a2(undefined)('');
|
|
10901
|
-
case 1: {
|
|
10902
|
-
const $38 = $39 => {
|
|
10903
|
-
switch($39.h) {
|
|
10904
|
-
case 0: /* Left */ return $6.a1.a1.a2(undefined)('');
|
|
10905
|
-
case 1: /* Right */ return $6.a1.a1.a2(undefined)(Data_String_Extra_join('', csegen_147(), $39.a1.a2));
|
|
10906
|
-
}
|
|
10907
|
-
};
|
|
10908
|
-
return $6.a1.a2(undefined)(undefined)(System_File_ReadWrite_readFilePage($6, 0n, Data_Fuel_limit(5000n), $7))($38);
|
|
10909
|
-
}
|
|
10910
|
-
}
|
|
10911
|
-
};
|
|
10912
|
-
const $11 = $6.a1.a2(undefined)(undefined)(System_File_Meta_exists($6, $7))($1e);
|
|
10913
|
-
const $b = $6.a1.a2(undefined)(undefined)($11);
|
|
10914
|
-
const $4f = templateContents => {
|
|
10915
|
-
const $50 = Prelude_Types_foldMap_Foldable_List(csegen_51()(), $56 => $56, {a1: $8, a2: {a1: '\n', a2: {a1: templateContents, a2: {h: 0}}}});
|
|
10916
|
-
return $6.a1.a1.a1(undefined)(undefined)($68 => undefined)(System_File_ReadWrite_writeFile($6, 'pr_description.tmp.md', $50));
|
|
10917
|
-
};
|
|
10918
|
-
return $b($4f);
|
|
10919
|
-
}
|
|
10920
|
-
|
|
10921
|
-
/* Commands.PullRequest.11084:3056:prCreationUrl */
|
|
10922
|
-
function Commands_PullRequest_n__11084_3056_prCreationUrl($0, $1, $2, $3, $4, $5) {
|
|
10943
|
+
/* Commands.PullRequest.11100:3055:prCreationUrl */
|
|
10944
|
+
function Commands_PullRequest_n__11100_3055_prCreationUrl($0, $1, $2, $3, $4, $5) {
|
|
10923
10945
|
const $6 = $5.a3;
|
|
10924
10946
|
const $8 = $5.a2;
|
|
10925
10947
|
return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $f => $f, {a1: 'https://github.com/', a2: {a1: $8, a2: {a1: '/', a2: {a1: $6, a2: {a1: '/compare/', a2: {a1: $2, a2: {a1: '?expand=1', a2: {h: 0}}}}}}}});
|
|
10926
10948
|
}
|
|
10927
10949
|
|
|
10928
|
-
/* Commands.PullRequest.
|
|
10929
|
-
function
|
|
10950
|
+
/* Commands.PullRequest.10007:1997:prComment */
|
|
10951
|
+
function Commands_PullRequest_n__10007_1997_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
10930
10952
|
return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $c => $c, {a1: ':musical_note: Harmoniously requested review from ', a2: {a1: $6, a2: {a1: '.', a2: {h: 0}}}});
|
|
10931
10953
|
}
|
|
10932
10954
|
|
|
10933
|
-
/* Commands.PullRequest.
|
|
10934
|
-
function
|
|
10935
|
-
return
|
|
10955
|
+
/* Commands.PullRequest.10007:1996:namePrComment */
|
|
10956
|
+
function Commands_PullRequest_n__10007_1996_namePrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
10957
|
+
return Commands_PullRequest_n__10007_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_51()(), $14 => $14, {a1: $6.a2, a2: {h: 0}}));
|
|
10936
10958
|
}
|
|
10937
10959
|
|
|
10938
|
-
/* Commands.PullRequest.
|
|
10939
|
-
function
|
|
10940
|
-
return
|
|
10960
|
+
/* Commands.PullRequest.10007:1995:mentionPrComment */
|
|
10961
|
+
function Commands_PullRequest_n__10007_1995_mentionPrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
10962
|
+
return Commands_PullRequest_n__10007_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_51()(), $14 => $14, {a1: '@', a2: {a1: $6, a2: {h: 0}}}));
|
|
10941
10963
|
}
|
|
10942
10964
|
|
|
10943
|
-
/* Commands.PullRequest.
|
|
10944
|
-
function
|
|
10965
|
+
/* Commands.PullRequest.11100:3054:inlineDescriptionPrompt */
|
|
10966
|
+
function Commands_PullRequest_n__11100_3054_inlineDescriptionPrompt($0, $1, $2, $3, $4, $5) {
|
|
10945
10967
|
return 'What would you like the description to be (two blank lines to finish)?';
|
|
10946
10968
|
}
|
|
10947
10969
|
|
|
10948
|
-
/* Commands.PullRequest.
|
|
10949
|
-
function
|
|
10970
|
+
/* Commands.PullRequest.11100:3053:getBaseBranch */
|
|
10971
|
+
function Commands_PullRequest_n__11100_3053_getBaseBranch($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10950
10972
|
switch($3.h) {
|
|
10951
10973
|
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($b => $c => $d => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($10 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $19 => $19, {a1: 'Will merge into ', a2: {a1: $3.a1, a2: {a1: '.', a2: {h: 0}}}})+'\n'), $10), $b, $c, $d), $27 => $28 => $29 => Data_Promise_pure_Applicative_x28Promisex20x24ex29($3.a1, $28, $29), $6, $7);
|
|
10952
|
-
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($32 => $33 => $34 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($37 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $40 => $40, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $5.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $37), $32, $33, $34), $4f => $50 => $51 => Data_Promise_map_Functor_x28Promisex20x24ex29($54 => Util_Prompting_orIfEmpty({a1: $5.a5}, Data_String_trim($54)),
|
|
10974
|
+
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($32 => $33 => $34 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($37 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $40 => $40, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $5.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $37), $32, $33, $34), $4f => $50 => $51 => Data_Promise_map_Functor_x28Promisex20x24ex29($54 => Util_Prompting_orIfEmpty({a1: $5.a5}, Data_String_trim($54)), csegen_405()(), $50, $51), $6, $7);
|
|
10953
10975
|
}
|
|
10954
10976
|
}
|
|
10955
10977
|
|
|
10956
|
-
/* Commands.PullRequest.
|
|
10957
|
-
function
|
|
10978
|
+
/* Commands.PullRequest.9769:1725:forkedReviews */
|
|
10979
|
+
function Commands_PullRequest_n__9769_1725_forkedReviews($0, $1, $2, $3) {
|
|
10958
10980
|
return FFI_Concurrency_fork(csegen_74()(), ('reviews --json '+Prelude_Show_show_Show_Integer($3.a1)));
|
|
10959
10981
|
}
|
|
10960
10982
|
|
|
10961
|
-
/* Commands.PullRequest.
|
|
10962
|
-
function
|
|
10983
|
+
/* Commands.PullRequest.9192:1180:filterString */
|
|
10984
|
+
function Commands_PullRequest_n__9192_1180_filterString($0, $1, $2, $3, $4) {
|
|
10963
10985
|
switch($4.h) {
|
|
10964
10986
|
case 0: /* nothing */ return 'none';
|
|
10965
10987
|
case undefined: /* just */ {
|
|
@@ -10971,27 +10993,13 @@ function Commands_PullRequest_n__9176_1180_filterString($0, $1, $2, $3, $4) {
|
|
|
10971
10993
|
}
|
|
10972
10994
|
}
|
|
10973
10995
|
|
|
10974
|
-
/* Commands.PullRequest.
|
|
10975
|
-
function
|
|
10976
|
-
const $1d = $1e => {
|
|
10977
|
-
const $36 = $37 => {
|
|
10978
|
-
switch($37) {
|
|
10979
|
-
case 0: return $6.a1.a2(undefined)(undefined)(System_File_ReadWrite_readFile($6, 'pr_description.tmp.md'))(description => $6.a1.a2(undefined)(undefined)($6.a1.a2(undefined)(undefined)(System_File_Meta_exists($6, 'pr_description.tmp.md'))($5c => Prelude_Interfaces_when($6.a1.a1, $5c, () => $6.a1.a1.a1(undefined)(undefined)($6d => undefined)(System_File_ReadWrite_removeFile($6, 'pr_description.tmp.md')))))($73 => $6.a1.a1.a2(undefined)(description)));
|
|
10980
|
-
default: return $6.a1.a1.a2(undefined)({h: 0 /* Left */, a1: {h: 0 /* GenericFileError */, a1: $37}});
|
|
10981
|
-
}
|
|
10982
|
-
};
|
|
10983
|
-
return $6.a1.a2(undefined)(undefined)(System_system($6, Prelude_Types_foldMap_Foldable_List(csegen_51()(), $30 => $30, {a1: $7, a2: {a1: ' pr_description.tmp.md', a2: {h: 0}}})))($36);
|
|
10984
|
-
};
|
|
10985
|
-
return $6.a1.a2(undefined)(undefined)(Commands_PullRequest_n__11084_3057_prepareDescriptionFile($0, $1, $2, $3, $4, $5, $6, $8, $9))($1d);
|
|
10986
|
-
}
|
|
10987
|
-
|
|
10988
|
-
/* Commands.PullRequest.9991:1994:csv */
|
|
10989
|
-
function Commands_PullRequest_n__9991_1994_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
10996
|
+
/* Commands.PullRequest.10007:1994:csv */
|
|
10997
|
+
function Commands_PullRequest_n__10007_1994_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
10990
10998
|
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)));
|
|
10991
10999
|
}
|
|
10992
11000
|
|
|
10993
|
-
/* Commands.PullRequest.
|
|
10994
|
-
function
|
|
11001
|
+
/* Commands.PullRequest.11100:3052:createPR */
|
|
11002
|
+
function Commands_PullRequest_n__11100_3052_createPR($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10995
11003
|
const $3b = $3c => $3d => $3e => {
|
|
10996
11004
|
const $4c = $4d => $4e => $4f => {
|
|
10997
11005
|
switch($4d) {
|
|
@@ -11008,37 +11016,37 @@ function Commands_PullRequest_n__11084_3052_createPR($0, $1, $2, $3, $4, $5, $6,
|
|
|
11008
11016
|
};
|
|
11009
11017
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($69 => $6a => FFI_Git_unpushedCommits($0, $69, $6a), $6f, $65, $66);
|
|
11010
11018
|
};
|
|
11011
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($64, $d0 => $d1 => $d2 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($d5 => $d6 => $d7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($da => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e3 => $e3, {a1: 'Creating a new PR for the current branch (', a2: {a1: $2, a2: {a1: ').', a2: {h: 0}}}})+'\n'), $da), $d5, $d6, $d7), $f1 => $f2 => $f3 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f6 => $f7 =>
|
|
11019
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($64, $d0 => $d1 => $d2 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($d5 => $d6 => $d7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($da => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e3 => $e3, {a1: 'Creating a new PR for the current branch (', a2: {a1: $2, a2: {a1: ').', a2: {h: 0}}}})+'\n'), $da), $d5, $d6, $d7), $f1 => $f2 => $f3 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f6 => $f7 => Commands_PullRequest_n__11100_3053_getBaseBranch($0, $1, $2, $3, $4, $5, $f6, $f7), baseBranch => $102 => $103 => Commands_PullRequest_case__casex20blockx20inx20casex20blockx20inx20identifyOrCreatePRx2ccreatePR_3538($0, $1, $2, $3, $4, $5, 1, 1, baseBranch, Commands_PullRequest_parseTitleAndBodyPrefix($5, $2), $102, $103), $f2, $f3), $d1, $d2), $60, $61);
|
|
11012
11020
|
}
|
|
11013
11021
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $60, $61);
|
|
11014
11022
|
}
|
|
11015
11023
|
};
|
|
11016
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($53 => $54 =>
|
|
11024
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($53 => $54 => Commands_PullRequest_n__11100_3050_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $53, $54), $5e, $4e, $4f);
|
|
11017
11025
|
}
|
|
11018
11026
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $4e, $4f);
|
|
11019
11027
|
}
|
|
11020
11028
|
};
|
|
11021
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($41 => $42 =>
|
|
11029
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($41 => $42 => Commands_PullRequest_n__11100_3051_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $41, $42), $4c, $3d, $3e);
|
|
11022
11030
|
};
|
|
11023
11031
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($e => $f => FFI_Git_remoteTrackingBranch($0, $e, $f), $15 => Util_whenNothing(csegen_66()(), $15, $1c => $1d => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($20 => $21 => $22 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($25 => Prelude_IO_prim__putStr('Creating a new remote branch...\n', $25), $20, $21, $22), $2d => $2e => $2f => FFI_Git_pushNewBranch($0, $5.a4, $2, $2e, $2f), $1c, $1d)), $a, $b), $3b, $6, $7);
|
|
11024
11032
|
}
|
|
11025
11033
|
|
|
11026
|
-
/* Commands.PullRequest.
|
|
11027
|
-
function
|
|
11034
|
+
/* Commands.PullRequest.11100:3051:continueGivenUncommittedChanges */
|
|
11035
|
+
function Commands_PullRequest_n__11100_3051_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11028
11036
|
const $10 = $11 => $12 => $13 => {
|
|
11029
11037
|
switch($11.h) {
|
|
11030
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1c), $17, $18, $19), $24 => $25 => $26 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29 => $2a => $2b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2e => Prelude_IO_prim__putStr(($11.a1+'\n'), $2e), $29, $2a, $2b),
|
|
11038
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1c), $17, $18, $19), $24 => $25 => $26 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29 => $2a => $2b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2e => Prelude_IO_prim__putStr(($11.a1+'\n'), $2e), $29, $2a, $2b), csegen_705(), $25, $26), $12, $13);
|
|
11031
11039
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $12, $13);
|
|
11032
11040
|
}
|
|
11033
11041
|
};
|
|
11034
11042
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => FFI_Git_uncommittedChanges($0, $a, $b), $10, $6, $7);
|
|
11035
11043
|
}
|
|
11036
11044
|
|
|
11037
|
-
/* Commands.PullRequest.
|
|
11038
|
-
function
|
|
11045
|
+
/* Commands.PullRequest.11100:3050:continueGivenStagedChanges */
|
|
11046
|
+
function Commands_PullRequest_n__11100_3050_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11039
11047
|
const $10 = $11 => $12 => $13 => {
|
|
11040
11048
|
switch($11.h) {
|
|
11041
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1c), $17, $18, $19), $24 => $25 => $26 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29 => $2a => $2b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2e => Prelude_IO_prim__putStr(($11.a1+'\n'), $2e), $29, $2a, $2b),
|
|
11049
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1c), $17, $18, $19), $24 => $25 => $26 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29 => $2a => $2b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2e => Prelude_IO_prim__putStr(($11.a1+'\n'), $2e), $29, $2a, $2b), csegen_705(), $25, $26), $12, $13);
|
|
11042
11050
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $12, $13);
|
|
11043
11051
|
}
|
|
11044
11052
|
};
|
|
@@ -11047,12 +11055,12 @@ function Commands_PullRequest_n__11084_3050_continueGivenStagedChanges($0, $1, $
|
|
|
11047
11055
|
|
|
11048
11056
|
/* Commands.PullRequest.(.allReviewers) : PRHistory -> (List String, List String) */
|
|
11049
11057
|
function Commands_PullRequest_rf__allReviewers($0) {
|
|
11050
|
-
return Prelude_Interfaces_mapHom(
|
|
11058
|
+
return Prelude_Interfaces_mapHom(csegen_599(), $6 => Prelude_Types_join_Monad_List(Prelude_Types_List_mapAppend({h: 0}, $c => $c.a7, $6)))($0);
|
|
11051
11059
|
}
|
|
11052
11060
|
|
|
11053
11061
|
/* Commands.PullRequest.reviewsForPrs : Config => Octokit => List PullRequest -> Promise' (List Review) */
|
|
11054
11062
|
function Commands_PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
|
|
11055
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(),
|
|
11063
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(), csegen_626(), Prelude_Types_traverse_Traversable_List(csegen_66()(), $13 => Commands_PullRequest_n__9769_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_222(), $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);
|
|
11056
11064
|
}
|
|
11057
11065
|
|
|
11058
11066
|
/* Commands.PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise' (List Review) */
|
|
@@ -11103,7 +11111,7 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11103
11111
|
break;
|
|
11104
11112
|
}
|
|
11105
11113
|
case 0: {
|
|
11106
|
-
$38 =
|
|
11114
|
+
$38 = csegen_407()();
|
|
11107
11115
|
break;
|
|
11108
11116
|
}
|
|
11109
11117
|
}
|
|
@@ -11139,8 +11147,8 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11139
11147
|
return $7f => {
|
|
11140
11148
|
switch($0.a8) {
|
|
11141
11149
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $7d, $7f);
|
|
11142
|
-
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
11143
|
-
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,
|
|
11150
|
+
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, Commands_PullRequest_n__10007_1995_mentionPrComment($1, $5, $4, $3, $2, $0, chosenUser.a1), $7d, $7f);
|
|
11151
|
+
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__10007_1996_namePrComment($1, $5, $4, $3, $2, $0, user), $9f, $a0), $7d, $7f);
|
|
11144
11152
|
}
|
|
11145
11153
|
};
|
|
11146
11154
|
}
|
|
@@ -11164,11 +11172,11 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11164
11172
|
let $bf;
|
|
11165
11173
|
switch($c0) {
|
|
11166
11174
|
case 1: {
|
|
11167
|
-
$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_51()(), $e8 => $e8, {a1: 'Requested review from ', a2: {a1:
|
|
11175
|
+
$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_51()(), $e8 => $e8, {a1: 'Requested review from ', a2: {a1: Commands_PullRequest_n__10007_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_51()(), $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);
|
|
11168
11176
|
break;
|
|
11169
11177
|
}
|
|
11170
11178
|
case 0: {
|
|
11171
|
-
$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_51()(), $128 => $128, {a1: 'Requested review from ', a2: {a1:
|
|
11179
|
+
$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_51()(), $128 => $128, {a1: 'Requested review from ', a2: {a1: Commands_PullRequest_n__10007_1999_userNotice($1, $5, $4, $3, $2, $0, chosenUser), a2: {a1: Commands_PullRequest_n__10007_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_51()(), $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);
|
|
11172
11180
|
break;
|
|
11173
11181
|
}
|
|
11174
11182
|
}
|
|
@@ -11222,7 +11230,7 @@ function Commands_PullRequest_listOpenPRs($0, $1, $2, $3) {
|
|
|
11222
11230
|
|
|
11223
11231
|
/* Commands.PullRequest.list' : Maybe GitHubPRState -> Pagination _ _ _ () -> Promise' (List PullRequest) */
|
|
11224
11232
|
function Commands_PullRequest_listx27($0, $1, $2, $3) {
|
|
11225
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(), $b => $c => $d => FFI_Concurrency_promiseAll({a1: acc => elem => func => init => input => Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a2: elem => acc => func => init => input => Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a3: elem => $1b => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1b), a4: elem => acc => m => $1f => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1f, funcM, init, input), a5: elem => $26 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($26), a6: a => m => $2a => f => $2b => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($2a, f, $2b)}, $b, $c, $d), Data_Pagination_traversex27(csegen_66()(), $39 => $3a => $3b => $3c => Commands_PullRequest_forkedPRs($0, $39, $3a, $3b, $3c), $1)), prJsons => $45 => $46 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($49 => Data_Promise_either(Prelude_Types_traverse_Traversable_List(csegen_222(),
|
|
11233
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(), $b => $c => $d => FFI_Concurrency_promiseAll({a1: acc => elem => func => init => input => Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a2: elem => acc => func => init => input => Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a3: elem => $1b => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1b), a4: elem => acc => m => $1f => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1f, funcM, init, input), a5: elem => $26 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($26), a6: a => m => $2a => f => $2b => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($2a, f, $2b)}, $b, $c, $d), Data_Pagination_traversex27(csegen_66()(), $39 => $3a => $3b => $3c => Commands_PullRequest_forkedPRs($0, $39, $3a, $3b, $3c), $1)), prJsons => $45 => $46 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($49 => Data_Promise_either(Prelude_Types_traverse_Traversable_List(csegen_222(), csegen_345(), prJsons), $49), pulls => $54 => $55 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_join_Monad_List(pulls), $54, $55), $45, $46), $2, $3);
|
|
11226
11234
|
}
|
|
11227
11235
|
|
|
11228
11236
|
/* Commands.PullRequest.identifyOrCreatePR : Config => Git => Octokit => {default False _ : Bool} ->
|
|
@@ -11242,8 +11250,8 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6, $7)
|
|
|
11242
11250
|
return $21 => {
|
|
11243
11251
|
const $2a = $2b => $2c => $2d => {
|
|
11244
11252
|
switch($2b) {
|
|
11245
|
-
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($31 => ({h: 0 /* Actual */, a1: 1, a2: $31}), $35 => $36 =>
|
|
11246
|
-
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1:
|
|
11253
|
+
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($31 => ({h: 0 /* Actual */, a1: 1, a2: $31}), $35 => $36 => Commands_PullRequest_n__11100_3052_createPR($1, $2, $5, $4, $3, $0, $35, $36), $2c, $2d);
|
|
11254
|
+
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1: Commands_PullRequest_n__11100_3055_prCreationUrl($1, $2, $5, $4, $3, $0)}, $2c, $2d);
|
|
11247
11255
|
}
|
|
11248
11256
|
};
|
|
11249
11257
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(System_File_Meta_isTTY(csegen_74()(), System_File_Virtual_stdout()), $2a, $13, $21);
|
|
@@ -11257,7 +11265,7 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6, $7)
|
|
|
11257
11265
|
|
|
11258
11266
|
/* Commands.PullRequest.forkedPRs : Maybe GitHubPRState -> Nat -> Nat -> Nat -> () -> Promise' Future */
|
|
11259
11267
|
function Commands_PullRequest_forkedPRs($0, $1, $2, $3, $4) {
|
|
11260
|
-
return FFI_Concurrency_fork(csegen_74()(), Prelude_Types_foldMap_Foldable_List(csegen_51()(), $f => $f, {a1: 'pulls --json ', a2: {a1:
|
|
11268
|
+
return FFI_Concurrency_fork(csegen_74()(), Prelude_Types_foldMap_Foldable_List(csegen_51()(), $f => $f, {a1: 'pulls --json ', a2: {a1: Commands_PullRequest_n__9192_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}}}}}}}));
|
|
11261
11269
|
}
|
|
11262
11270
|
|
|
11263
11271
|
/* Commands.PullRequest.empty : PRHistory */
|
|
@@ -11379,7 +11387,7 @@ function Util_Github_n__2629_823_go($0, $1) {
|
|
|
11379
11387
|
|
|
11380
11388
|
/* Util.Github.parseGithubIssueNumber : String -> Maybe String */
|
|
11381
11389
|
function Util_Github_parseGithubIssueNumber($0) {
|
|
11382
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
11390
|
+
return Prelude_Types_map_Functor_Maybe(csegen_742(), Util_Github_n__2629_825_guardSuccess(Prelude_Types_foldl_Foldable_List($9 => $a => Util_Github_n__2629_823_go($9, $a), {a1: {h: 0 /* 2629:821:Start */}, a2: {h: 0}}, Prelude_Types_fastUnpack($0))));
|
|
11383
11391
|
}
|
|
11384
11392
|
|
|
11385
11393
|
/* Util.Jira.2629:820:startOver */
|
|
@@ -11439,7 +11447,7 @@ function Util_Jira_n__2629_818_go($0, $1) {
|
|
|
11439
11447
|
|
|
11440
11448
|
/* Util.Jira.parseJiraSlug : String -> Maybe String */
|
|
11441
11449
|
function Util_Jira_parseJiraSlug($0) {
|
|
11442
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
11450
|
+
return Prelude_Types_map_Functor_Maybe(csegen_742(), 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))));
|
|
11443
11451
|
}
|
|
11444
11452
|
|
|
11445
11453
|
/* Data.Pagination.with block in metaPages' */
|
|
@@ -11708,6 +11716,40 @@ function Data_List_DeleteBy_deleteByx27($0, $1, $2) {
|
|
|
11708
11716
|
}
|
|
11709
11717
|
}
|
|
11710
11718
|
|
|
11719
|
+
/* Commands.Quick.5754:5585:issuePrompt */
|
|
11720
|
+
function Commands_Quick_n__5754_5585_issuePrompt($0, $1, $2) {
|
|
11721
|
+
return 'What would you like the issue description to be (two blank lines to finish)?';
|
|
11722
|
+
}
|
|
11723
|
+
|
|
11724
|
+
/* Commands.Quick.quickStartNewWork : Config => Git => Octokit => Promise' () */
|
|
11725
|
+
function Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4) {
|
|
11726
|
+
const $13 = $14 => $15 => $16 => {
|
|
11727
|
+
const $1b = $1c => $1d => $1e => {
|
|
11728
|
+
const $2d = $2e => $2f => $30 => {
|
|
11729
|
+
const $34 = issueTitle => $35 => $36 => {
|
|
11730
|
+
const $39 = Data_Config_rf__editor($0);
|
|
11731
|
+
let $38;
|
|
11732
|
+
switch($39.h) {
|
|
11733
|
+
case 0: /* nothing */ {
|
|
11734
|
+
$38 = Util_Prompting_inlineDescription(csegen_74()(), Commands_Quick_n__5754_5585_issuePrompt($1, $2, $0), '');
|
|
11735
|
+
break;
|
|
11736
|
+
}
|
|
11737
|
+
case undefined: /* just */ {
|
|
11738
|
+
$38 = $46 => $47 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_691(), Util_Prompting_editorDescription(csegen_74()(), $39.a1, {h: 0}, ''), $46, $47);
|
|
11739
|
+
break;
|
|
11740
|
+
}
|
|
11741
|
+
}
|
|
11742
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($38, issueBody => $56 => $57 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_createIssue($2, $0.a2, $0.a3, issueTitle, issueBody), issue => $63 => $64 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($67 => $68 => $69 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($6c => Prelude_IO_prim__putStr('What would you like the branch to be named?\n', $6c), $67, $68, $69), $74 => $75 => $76 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($79 => $7a => $7b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($7e => Prelude_IO_prim__putStr(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $86 => $86, {a1: 'feature/', a2: {a1: Prelude_Show_show_Show_Integer(issue.a1), a2: {a1: '/', a2: {h: 0}}}}), $7e), $79, $7a, $7b), $96 => $97 => $98 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_754(), branchSlug => FFI_Git_checkoutBranch($1, 1, Prelude_Types_foldMap_Foldable_List(csegen_51()(), $a6 => $a6, {a1: 'feature/', a2: {a1: Prelude_Show_show_Show_Integer(issue.a1), a2: {a1: '/', a2: {a1: branchSlug, a2: {h: 0}}}}})), $97, $98), $75, $76), $63, $64), $56, $57), $35, $36);
|
|
11743
|
+
};
|
|
11744
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_754(), $34, $2f, $30);
|
|
11745
|
+
};
|
|
11746
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($21 => $22 => $23 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($26 => Prelude_IO_prim__putStr('What would you like the issue title to be?\n', $26), $21, $22, $23), $2d, $1d, $1e);
|
|
11747
|
+
};
|
|
11748
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $1b, $15, $16);
|
|
11749
|
+
};
|
|
11750
|
+
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);
|
|
11751
|
+
}
|
|
11752
|
+
|
|
11711
11753
|
/* Commands.Label.unslugifyLabel : List String -> String -> String */
|
|
11712
11754
|
function Commands_Label_unslugifyLabel($0, $1) {
|
|
11713
11755
|
const $2 = Data_List_find($5 => Prelude_EqOrd_x3dx3d_Eq_String($5, $1), $0);
|
|
@@ -11722,36 +11764,36 @@ function Commands_Label_addLabels($0, $1, $2, $3, $4, $5) {
|
|
|
11722
11764
|
return FFI_GitHub_addPullLabels($1, $0.a2, $0.a3, $2.a1, $3, $4, $5);
|
|
11723
11765
|
}
|
|
11724
11766
|
|
|
11725
|
-
/* Commands.Graph.
|
|
11726
|
-
function
|
|
11727
|
-
return Theme_theme($7,
|
|
11767
|
+
/* Commands.Graph.7730:7016:pendingDot */
|
|
11768
|
+
function Commands_Graph_n__7730_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11769
|
+
return Theme_theme($7, csegen_686(), csegen_684(), 6)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
|
|
11728
11770
|
}
|
|
11729
11771
|
|
|
11730
|
-
/* Commands.Graph.
|
|
11731
|
-
function
|
|
11772
|
+
/* Commands.Graph.7730:7015:note */
|
|
11773
|
+
function Commands_Graph_n__7730_7015_note($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
11732
11774
|
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);
|
|
11733
11775
|
}
|
|
11734
11776
|
|
|
11735
|
-
/* Commands.Graph.
|
|
11736
|
-
function
|
|
11737
|
-
return Theme_theme($7,
|
|
11777
|
+
/* Commands.Graph.7730:7014:missedDot */
|
|
11778
|
+
function Commands_Graph_n__7730_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11779
|
+
return Theme_theme($7, csegen_685(), csegen_685(), 7)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
|
|
11738
11780
|
}
|
|
11739
11781
|
|
|
11740
|
-
/* Commands.Graph.
|
|
11741
|
-
function
|
|
11782
|
+
/* Commands.Graph.7730:7013:maxValue */
|
|
11783
|
+
function Commands_Graph_n__7730_7013_maxValue($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
11742
11784
|
switch($8.h) {
|
|
11743
11785
|
case 0: /* nil */ return 0n;
|
|
11744
|
-
case undefined: /* cons */ return Prelude_Types_max_Ord_Nat($8.a1.a2,
|
|
11786
|
+
case undefined: /* cons */ return Prelude_Types_max_Ord_Nat($8.a1.a2, Commands_Graph_n__7730_7013_maxValue($0, $1, $2, $3, $4, $5, $6, $7, $8.a2));
|
|
11745
11787
|
}
|
|
11746
11788
|
}
|
|
11747
11789
|
|
|
11748
|
-
/* Commands.Graph.
|
|
11749
|
-
function
|
|
11790
|
+
/* Commands.Graph.7327:6605:link */
|
|
11791
|
+
function Commands_Graph_n__7327_6605_link($0, $1, $2, $3) {
|
|
11750
11792
|
return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $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}}}}}});
|
|
11751
11793
|
}
|
|
11752
11794
|
|
|
11753
|
-
/* Commands.Graph.
|
|
11754
|
-
function
|
|
11795
|
+
/* Commands.Graph.7730:7012:header */
|
|
11796
|
+
function Commands_Graph_n__7730_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11755
11797
|
let $3b;
|
|
11756
11798
|
switch(Prelude_Types_null_Foldable_Maybe($3)) {
|
|
11757
11799
|
case 1: {
|
|
@@ -11759,58 +11801,58 @@ function Commands_Graph_n__7729_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11759
11801
|
break;
|
|
11760
11802
|
}
|
|
11761
11803
|
case 0: {
|
|
11762
|
-
$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(
|
|
11804
|
+
$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__7730_7010_completedBox($0, $1, $2, $3, $4, $5, $6, $7)))};
|
|
11763
11805
|
break;
|
|
11764
11806
|
}
|
|
11765
11807
|
}
|
|
11766
|
-
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
11767
|
-
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(
|
|
11768
|
-
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(
|
|
11808
|
+
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__7730_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__7730_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7))))}, a2: csegen_758()}};
|
|
11809
|
+
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__7730_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $3a};
|
|
11810
|
+
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__7730_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $27};
|
|
11769
11811
|
const $f = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $14};
|
|
11770
11812
|
const $b = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: $f};
|
|
11771
11813
|
const $9 = Data_List_catMaybes($b);
|
|
11772
11814
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep($9);
|
|
11773
11815
|
}
|
|
11774
11816
|
|
|
11775
|
-
/* Commands.Graph.
|
|
11776
|
-
function
|
|
11777
|
-
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:
|
|
11817
|
+
/* Commands.Graph.7327:6604:header */
|
|
11818
|
+
function Commands_Graph_n__7327_6604_header($0, $1, $2, $3) {
|
|
11819
|
+
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_758()}}}));
|
|
11778
11820
|
}
|
|
11779
11821
|
|
|
11780
|
-
/* Commands.Graph.
|
|
11781
|
-
function
|
|
11822
|
+
/* Commands.Graph.7327:6603:graphable */
|
|
11823
|
+
function Commands_Graph_n__7327_6603_graphable($0, $1, $2, $3, $4) {
|
|
11782
11824
|
return {a1: $4.a1.a3, a2: (Prelude_Types_List_lengthTR($4.a2)+1n)};
|
|
11783
11825
|
}
|
|
11784
11826
|
|
|
11785
|
-
/* Commands.Graph.
|
|
11786
|
-
function
|
|
11787
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
11827
|
+
/* Commands.Graph.7730:7011:footer */
|
|
11828
|
+
function Commands_Graph_n__7730_7011_footer($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11829
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_Graph_n__7730_7015_note($0, $1, $2, $3, $4, $5, $6, $7, Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $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}}}});
|
|
11788
11830
|
}
|
|
11789
11831
|
|
|
11790
|
-
/* Commands.Graph.
|
|
11791
|
-
function
|
|
11832
|
+
/* Commands.Graph.6760:6183:countInParens */
|
|
11833
|
+
function Commands_Graph_n__6760_6183_countInParens($0, $1, $2, $3, $4) {
|
|
11792
11834
|
switch(Prelude_Types_x3e_Ord_Nat($4.a2, 4n)) {
|
|
11793
11835
|
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)));
|
|
11794
11836
|
case 0: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('');
|
|
11795
11837
|
}
|
|
11796
11838
|
}
|
|
11797
11839
|
|
|
11798
|
-
/* Commands.Graph.
|
|
11799
|
-
function
|
|
11800
|
-
return Theme_theme($7,
|
|
11840
|
+
/* Commands.Graph.7730:7010:completedBox */
|
|
11841
|
+
function Commands_Graph_n__7730_7010_completedBox($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11842
|
+
return Theme_theme($7, csegen_665(), csegen_665(), 3)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25aa}'));
|
|
11801
11843
|
}
|
|
11802
11844
|
|
|
11803
|
-
/* Commands.Graph.
|
|
11804
|
-
function
|
|
11845
|
+
/* Commands.Graph.6760:6182:coloredLabel */
|
|
11846
|
+
function Commands_Graph_n__6760_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
11805
11847
|
switch((($4.a2===0n)?1:0)) {
|
|
11806
|
-
case 1: return Theme_theme($0,
|
|
11848
|
+
case 1: return Theme_theme($0, csegen_665(), csegen_665(), 0)($2.a1(undefined)($4.a1));
|
|
11807
11849
|
case 0: {
|
|
11808
11850
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 2n)) {
|
|
11809
11851
|
case 1: return $2.a1(undefined)($4.a1);
|
|
11810
11852
|
case 0: {
|
|
11811
11853
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 6n)) {
|
|
11812
|
-
case 1: return Theme_theme($0,
|
|
11813
|
-
case 0: return Theme_theme($0,
|
|
11854
|
+
case 1: return Theme_theme($0, csegen_686(), csegen_684(), 1)($2.a1(undefined)($4.a1));
|
|
11855
|
+
case 0: return Theme_theme($0, csegen_685(), csegen_685(), 2)($2.a1(undefined)($4.a1));
|
|
11814
11856
|
}
|
|
11815
11857
|
}
|
|
11816
11858
|
}
|
|
@@ -11818,8 +11860,8 @@ function Commands_Graph_n__6759_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
|
11818
11860
|
}
|
|
11819
11861
|
}
|
|
11820
11862
|
|
|
11821
|
-
/* Commands.Graph.
|
|
11822
|
-
function
|
|
11863
|
+
/* Commands.Graph.7730:7009:augment */
|
|
11864
|
+
function Commands_Graph_n__7730_7009_augment($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
11823
11865
|
return {a1: $9, a2: Prelude_Types_maybe(() => 0n, () => $f => $f, Data_SortedMap_lookup($9.a1, $8))};
|
|
11824
11866
|
}
|
|
11825
11867
|
|
|
@@ -11865,7 +11907,7 @@ function Commands_Graph_length_HasLength_Date($0) {
|
|
|
11865
11907
|
|
|
11866
11908
|
/* Commands.Graph.label */
|
|
11867
11909
|
function Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $1, $2, $3, $4) {
|
|
11868
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
11910
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__6760_6182_coloredLabel($0, $1, $2, $4, $3), Commands_Graph_n__6760_6183_countInParens($0, $1, $2, $4, $3));
|
|
11869
11911
|
}
|
|
11870
11912
|
|
|
11871
11913
|
/* Commands.Graph.label */
|
|
@@ -11919,11 +11961,11 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11919
11961
|
break;
|
|
11920
11962
|
}
|
|
11921
11963
|
case undefined: /* just */ {
|
|
11922
|
-
$17 = Prelude_Types_List_mapAppend({h: 0}, $26 =>
|
|
11964
|
+
$17 = Prelude_Types_List_mapAppend({h: 0}, $26 => Commands_Graph_n__7730_7009_augment($1, $2, $3, $7, $6, $5, $4, $0, $7.a1, $26), $8);
|
|
11923
11965
|
break;
|
|
11924
11966
|
}
|
|
11925
11967
|
}
|
|
11926
|
-
const $33 = Prelude_Types_maybe(() => 0n, () => $37 => $37, Prelude_Types_map_Functor_Maybe($3b =>
|
|
11968
|
+
const $33 = Prelude_Types_maybe(() => 0n, () => $37 => $37, Prelude_Types_map_Functor_Maybe($3b => Commands_Graph_n__7730_7013_maxValue($1, $2, $3, $7, $6, $5, $4, $0, Data_SortedMap_toList($3b)), $7));
|
|
11927
11969
|
const $49 = Prelude_Types_foldr_Foldable_List($4c => $4d => Data_Nat_maximum(Commands_Graph_labelLength_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $3, $4c), $4d), 0n, $17);
|
|
11928
11970
|
switch($8.h) {
|
|
11929
11971
|
case 0: /* nil */ return Text_PrettyPrint_Prettyprinter_Doc_emptyDoc();
|
|
@@ -11941,8 +11983,8 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11941
11983
|
}
|
|
11942
11984
|
}
|
|
11943
11985
|
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);
|
|
11944
|
-
const $6d = {a1: $6e, a2: {a1:
|
|
11945
|
-
const $62 = {a1:
|
|
11986
|
+
const $6d = {a1: $6e, a2: {a1: Commands_Graph_n__7730_7011_footer($1, $2, $3, $7, $6, $5, $4, $0), a2: {h: 0}}};
|
|
11987
|
+
const $62 = {a1: Commands_Graph_n__7730_7012_header($1, $2, $3, $7, $6, $5, $4, $0), a2: $6d};
|
|
11946
11988
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep($62);
|
|
11947
11989
|
}
|
|
11948
11990
|
}
|
|
@@ -11950,9 +11992,9 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11950
11992
|
|
|
11951
11993
|
/* Commands.Graph.healthGraph : Config => List PullRequest -> String -> String -> Doc AnsiStyle */
|
|
11952
11994
|
function Commands_Graph_healthGraph($0, $1, $2, $3) {
|
|
11953
|
-
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(
|
|
11995
|
+
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(csegen_328(), $11 => $11.a2, $b, $c), csegen_639(), $7, $8), Data_List_sortBy(csegen_640(), $1));
|
|
11954
11996
|
const $1e = Prelude_Types_foldr_Foldable_List(xs => m => Prelude_Types_max_Ord_Nat(Data_List1_length(xs), m), 1n, $4);
|
|
11955
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
11997
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_Graph_n__7327_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_774(), $36), a2: $41 => maxLabelLength => Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $45 => Commands_Graph_length_HasLength_Date($45), csegen_774(), $41, maxLabelLength), a3: $4d => Commands_Graph_labelLength_Graphable_x28PRsOnDatex20x24dateTyx29($0, $51 => Commands_Graph_length_HasLength_Date($51), csegen_774(), $4d), a4: $58 => Commands_Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29($0, $5c => Commands_Graph_length_HasLength_Date($5c), csegen_774(), $58), a5: $63 => Commands_Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29($0, $67 => Commands_Graph_length_HasLength_Date($67), csegen_774(), $63), a6: $6e => Commands_Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29($0, $72 => Commands_Graph_length_HasLength_Date($72), csegen_774(), $6e)}, $1e, 0n, 0n, Commands_Graph_n__7327_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__7327_6605_link($3, $2, $1, $0)), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}});
|
|
11956
11998
|
}
|
|
11957
11999
|
|
|
11958
12000
|
/* Commands.Graph.graphOne : Config -> Graphable g => Nat -> Nat -> Nat -> g -> Doc AnsiStyle */
|
|
@@ -11975,7 +12017,7 @@ function Commands_Graph_countPadRight($0, $1, $2) {
|
|
|
11975
12017
|
|
|
11976
12018
|
/* Commands.Graph.bar : Config -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
11977
12019
|
function Commands_Graph_bar($0, $1, $2, $3, $4) {
|
|
11978
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0,
|
|
12020
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0, csegen_685(), csegen_685(), 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_686(), csegen_684(), 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_665(), csegen_665(), 3)(Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $4, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{25aa}')))), a2: {h: 0}}}}));
|
|
11979
12021
|
}
|
|
11980
12022
|
|
|
11981
12023
|
|