@mattpolzin/harmony 5.5.0 → 5.6.0
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- package/README.md +286 -122
- package/harmony +826 -666
- package/man/harmony.1 +515 -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_751(), $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_751(), $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_751(), $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_751(), $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:603} */
|
|
2870
|
+
const csegen_603 = __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:602} */
|
|
2875
|
-
const csegen_602 = __lazy(function () {
|
|
2876
|
-
return {a1: {h: 0}, a2: {a1: '-i', a2: {h: 0}}};
|
|
2877
|
-
});
|
|
2878
|
-
|
|
2879
2874
|
/* {csegen:607} */
|
|
2880
2875
|
const csegen_607 = __lazy(function () {
|
|
2881
|
-
return
|
|
2876
|
+
return {a1: {h: 0}, a2: {a1: '-i', a2: {h: 0}}};
|
|
2882
2877
|
});
|
|
2883
2878
|
|
|
2884
|
-
/* {csegen:
|
|
2885
|
-
const
|
|
2886
|
-
return $0 => $1 =>
|
|
2879
|
+
/* {csegen:612} */
|
|
2880
|
+
const csegen_612 = __lazy(function () {
|
|
2881
|
+
return $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $0, $1);
|
|
2887
2882
|
});
|
|
2888
2883
|
|
|
2889
|
-
/* {csegen:
|
|
2890
|
-
const
|
|
2884
|
+
/* {csegen:627} */
|
|
2885
|
+
const csegen_627 = __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:628} */
|
|
2890
|
+
const csegen_628 = __lazy(function () {
|
|
2896
2891
|
return $0 => Data_List_sort(csegen_240(), $0);
|
|
2897
2892
|
});
|
|
2898
2893
|
|
|
2899
|
-
/* {csegen:
|
|
2900
|
-
const
|
|
2894
|
+
/* {csegen:630} */
|
|
2895
|
+
const csegen_630 = __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:642} */
|
|
2900
|
+
const csegen_642 = __lazy(function () {
|
|
2906
2901
|
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2907
2902
|
});
|
|
2908
2903
|
|
|
2909
|
-
/* {csegen:
|
|
2910
|
-
const
|
|
2904
|
+
/* {csegen:643} */
|
|
2905
|
+
const csegen_643 = __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:644} */
|
|
2910
|
+
const csegen_644 = __lazy(function () {
|
|
2911
|
+
return $0 => $1 => Prelude_Basics_on(csegen_642(), csegen_643(), $0, $1);
|
|
2917
2912
|
});
|
|
2918
2913
|
|
|
2919
|
-
/* {csegen:
|
|
2920
|
-
const
|
|
2914
|
+
/* {csegen:666} */
|
|
2915
|
+
const csegen_666 = __lazy(function () {
|
|
2921
2916
|
return $0 => $0.a3;
|
|
2922
2917
|
});
|
|
2923
2918
|
|
|
2924
|
-
/* {csegen:
|
|
2925
|
-
const
|
|
2926
|
-
return Theme_cs({a1: 2, a2: {h: 0}});
|
|
2919
|
+
/* {csegen:669} */
|
|
2920
|
+
const csegen_669 = __lazy(function () {
|
|
2921
|
+
return Theme_cs({a1: 2, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2927
2922
|
});
|
|
2928
2923
|
|
|
2929
|
-
/* {csegen:
|
|
2930
|
-
const
|
|
2924
|
+
/* {csegen:672} */
|
|
2925
|
+
const csegen_672 = __lazy(function () {
|
|
2931
2926
|
return $0 => $0.a1;
|
|
2932
2927
|
});
|
|
2933
2928
|
|
|
2934
|
-
/* {csegen:
|
|
2935
|
-
const
|
|
2929
|
+
/* {csegen:678} */
|
|
2930
|
+
const csegen_678 = __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
|
|
2941
|
-
return Theme_cs({a1: 0, a2: {h: 0}});
|
|
2934
|
+
/* {csegen:688} */
|
|
2935
|
+
const csegen_688 = __lazy(function () {
|
|
2936
|
+
return Theme_cs({a1: 0, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2942
2937
|
});
|
|
2943
2938
|
|
|
2944
|
-
/* {csegen:
|
|
2945
|
-
const
|
|
2946
|
-
return Theme_cs({a1: 1, a2: {h: 0}});
|
|
2939
|
+
/* {csegen:689} */
|
|
2940
|
+
const csegen_689 = __lazy(function () {
|
|
2941
|
+
return Theme_cs({a1: 1, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2947
2942
|
});
|
|
2948
2943
|
|
|
2949
|
-
/* {csegen:
|
|
2950
|
-
const
|
|
2951
|
-
return Theme_cs({a1: 3, a2: {h: 0}});
|
|
2944
|
+
/* {csegen:690} */
|
|
2945
|
+
const csegen_690 = __lazy(function () {
|
|
2946
|
+
return Theme_cs({a1: 3, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2952
2947
|
});
|
|
2953
2948
|
|
|
2954
|
-
/* {csegen:
|
|
2955
|
-
const
|
|
2949
|
+
/* {csegen:695} */
|
|
2950
|
+
const csegen_695 = __lazy(function () {
|
|
2951
|
+
return $0 => Prelude_Types_either(() => $3 => '', () => $5 => $5, $0);
|
|
2952
|
+
});
|
|
2953
|
+
|
|
2954
|
+
/* {csegen:709} */
|
|
2955
|
+
const csegen_709 = __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:746} */
|
|
2960
|
+
const csegen_746 = __lazy(function () {
|
|
2961
2961
|
return $0 => Prelude_Types_fastPack(Prelude_Types_List_reverse($0));
|
|
2962
2962
|
});
|
|
2963
2963
|
|
|
2964
|
-
/* {csegen:
|
|
2965
|
-
const
|
|
2964
|
+
/* {csegen:751} */
|
|
2965
|
+
const csegen_751 = __lazy(function () {
|
|
2966
2966
|
return $0 => $0.a1;
|
|
2967
2967
|
});
|
|
2968
2968
|
|
|
2969
|
-
/* {csegen:
|
|
2970
|
-
const
|
|
2969
|
+
/* {csegen:758} */
|
|
2970
|
+
const csegen_758 = __lazy(function () {
|
|
2971
|
+
return $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Data_String_trim($4), csegen_405()(), $0, $1);
|
|
2972
|
+
});
|
|
2973
|
+
|
|
2974
|
+
/* {csegen:762} */
|
|
2975
|
+
const csegen_762 = __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:778} */
|
|
2980
|
+
const csegen_778 = __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.8859:1556:parsePg */
|
|
2990
|
+
function Main_n__8859_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.8859:1555:parseLim */
|
|
2995
|
+
function Main_n__8859_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.8661:1303:ffiOpts */
|
|
3000
|
+
function Main_n__8661_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.8661:1302:configuredOpts */
|
|
3005
|
+
function Main_n__8661_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__8859_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__8859_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);
|
|
@@ -3297,86 +3302,102 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3297
3302
|
return $1e8 => $1e9 => {
|
|
3298
3303
|
switch($3.a2.h) {
|
|
3299
3304
|
case 0: /* nil */ return Commands_whoami($0, $1, $2, $1e8, $1e9);
|
|
3300
|
-
|
|
3305
|
+
case undefined: /* cons */ return Data_Promise_reject('The whoami command does not take any arguments.', $1e8, $1e9);
|
|
3306
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $1fc => $1fc, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $1e8, $1e9);
|
|
3301
3307
|
}
|
|
3302
3308
|
};
|
|
3303
3309
|
}
|
|
3304
3310
|
case 'sync': {
|
|
3305
|
-
return $
|
|
3311
|
+
return $20a => $20b => {
|
|
3306
3312
|
switch($3.a2.h) {
|
|
3307
|
-
case 0: /* nil */ return Commands_sync($0, $2, $
|
|
3308
|
-
|
|
3313
|
+
case 0: /* nil */ return Commands_sync($0, $2, $20a, $20b);
|
|
3314
|
+
case undefined: /* cons */ return Data_Promise_reject('The sync command does not take any arguments.', $20a, $20b);
|
|
3315
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $21d => $21d, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $20a, $20b);
|
|
3309
3316
|
}
|
|
3310
3317
|
};
|
|
3311
3318
|
}
|
|
3312
3319
|
case 'branch': {
|
|
3313
|
-
return $
|
|
3320
|
+
return $22b => $22c => {
|
|
3314
3321
|
switch($3.a2.h) {
|
|
3315
|
-
case 0: /* nil */ return Commands_branch($0, $1, $
|
|
3316
|
-
|
|
3322
|
+
case 0: /* nil */ return Commands_branch($0, $1, $22b, $22c);
|
|
3323
|
+
case undefined: /* cons */ return Data_Promise_reject('The branch command does not take any arguments.', $22b, $22c);
|
|
3324
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $23e => $23e, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $22b, $22c);
|
|
3317
3325
|
}
|
|
3318
3326
|
};
|
|
3319
3327
|
}
|
|
3320
3328
|
case 'quick': {
|
|
3321
|
-
|
|
3322
|
-
|
|
3323
|
-
|
|
3324
|
-
|
|
3329
|
+
switch($3.a2.h) {
|
|
3330
|
+
case 0: /* nil */ return $24d => $24e => Commands_quick($0, $1, $2, 1, $24d, $24e);
|
|
3331
|
+
case undefined: /* cons */ {
|
|
3332
|
+
return $256 => {
|
|
3333
|
+
switch($3.a2.a1) {
|
|
3334
|
+
case '--bugfix': {
|
|
3335
|
+
return $258 => {
|
|
3336
|
+
switch($3.a2.a2.h) {
|
|
3337
|
+
case 0: /* nil */ return Commands_quick($0, $1, $2, 0, $256, $258);
|
|
3338
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $268 => $268, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $256, $258);
|
|
3339
|
+
}
|
|
3340
|
+
};
|
|
3341
|
+
}
|
|
3342
|
+
default: return $276 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $27e => $27e, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $256, $276);
|
|
3343
|
+
}
|
|
3344
|
+
};
|
|
3325
3345
|
}
|
|
3326
|
-
|
|
3346
|
+
default: return $28c => $28d => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $295 => $295, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $28c, $28d);
|
|
3347
|
+
}
|
|
3327
3348
|
}
|
|
3328
3349
|
case 'health': {
|
|
3329
|
-
return $
|
|
3350
|
+
return $2a3 => $2a4 => {
|
|
3330
3351
|
switch($3.a2.h) {
|
|
3331
|
-
case undefined: /* cons */ return Data_Promise_reject('The health command does not take any arguments.', $
|
|
3332
|
-
case 0: /* nil */ return Commands_health($0, $2, $
|
|
3333
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
3352
|
+
case undefined: /* cons */ return Data_Promise_reject('The health command does not take any arguments.', $2a3, $2a4);
|
|
3353
|
+
case 0: /* nil */ return Commands_health($0, $2, $2a3, $2a4);
|
|
3354
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $2b6 => $2b6, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $2a3, $2a4);
|
|
3334
3355
|
}
|
|
3335
3356
|
};
|
|
3336
3357
|
}
|
|
3337
3358
|
case 'pr': {
|
|
3338
|
-
const $
|
|
3339
|
-
switch($
|
|
3340
|
-
case 1: /* Right */ return $
|
|
3341
|
-
case 0: /* Left */ return Main_exitError(csegen_74()(), $
|
|
3359
|
+
const $2c4 = Commands_parsePrArgs($3.a2);
|
|
3360
|
+
switch($2c4.h) {
|
|
3361
|
+
case 1: /* Right */ return $2c7 => $2c8 => Commands_pr($0, $1, $2, $2c4.a1, $2c7, $2c8);
|
|
3362
|
+
case 0: /* Left */ return Main_exitError(csegen_74()(), $2c4.a1);
|
|
3342
3363
|
}
|
|
3343
3364
|
}
|
|
3344
3365
|
case 'reflect': {
|
|
3345
|
-
return $
|
|
3366
|
+
return $2d5 => $2d6 => {
|
|
3346
3367
|
switch($3.a2.h) {
|
|
3347
|
-
case 0: /* nil */ return Commands_reflect($0, $2, $
|
|
3348
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
3368
|
+
case 0: /* nil */ return Commands_reflect($0, $2, $2d5, $2d6);
|
|
3369
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $2e4 => $2e4, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $2d5, $2d6);
|
|
3349
3370
|
}
|
|
3350
3371
|
};
|
|
3351
3372
|
}
|
|
3352
3373
|
case 'contribute': {
|
|
3353
|
-
const $
|
|
3354
|
-
switch($
|
|
3355
|
-
case 1: /* Right */ return $
|
|
3356
|
-
case 0: /* Left */ return Main_exitError(csegen_74()(), $
|
|
3374
|
+
const $2f2 = Commands_parseContributeArgs($3.a2);
|
|
3375
|
+
switch($2f2.h) {
|
|
3376
|
+
case 1: /* Right */ return $2f5 => $2f6 => Commands_contribute($0, $1, $2, $2f2.a1, $2f5, $2f6);
|
|
3377
|
+
case 0: /* Left */ return Main_exitError(csegen_74()(), $2f2.a1);
|
|
3357
3378
|
}
|
|
3358
3379
|
}
|
|
3359
3380
|
case 'list': {
|
|
3360
|
-
return $
|
|
3381
|
+
return $303 => {
|
|
3361
3382
|
switch($3.a2.h) {
|
|
3362
|
-
case 0: /* nil */ return $
|
|
3383
|
+
case 0: /* nil */ return $305 => Commands_listOrgTeams($0, $2, $303, $305);
|
|
3363
3384
|
case undefined: /* cons */ {
|
|
3364
|
-
return $
|
|
3385
|
+
return $30b => {
|
|
3365
3386
|
switch($3.a2.a2.h) {
|
|
3366
|
-
case 0: /* nil */ return Commands_list($0, $2, $3.a2.a1, $
|
|
3367
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
3387
|
+
case 0: /* nil */ return Commands_list($0, $2, $3.a2.a1, $303, $30b);
|
|
3388
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $31a => $31a, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $303, $30b);
|
|
3368
3389
|
}
|
|
3369
3390
|
};
|
|
3370
3391
|
}
|
|
3371
|
-
default: return $
|
|
3392
|
+
default: return $328 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $330 => $330, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $303, $328);
|
|
3372
3393
|
}
|
|
3373
3394
|
};
|
|
3374
3395
|
}
|
|
3375
3396
|
case 'graph': {
|
|
3376
|
-
const $
|
|
3377
|
-
switch($
|
|
3378
|
-
case 1: /* Right */ return Commands_graph($0, $2, $
|
|
3379
|
-
case 0: /* Left */ return Main_exitError(csegen_74()(), $
|
|
3397
|
+
const $33e = Commands_parseGraphArgs($3.a2);
|
|
3398
|
+
switch($33e.h) {
|
|
3399
|
+
case 1: /* Right */ return Commands_graph($0, $2, $33e.a1);
|
|
3400
|
+
case 0: /* Left */ return Main_exitError(csegen_74()(), $33e.a1);
|
|
3380
3401
|
}
|
|
3381
3402
|
}
|
|
3382
3403
|
case 'rq': {
|
|
@@ -3402,18 +3423,18 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3402
3423
|
}
|
|
3403
3424
|
}
|
|
3404
3425
|
case 'label': {
|
|
3405
|
-
return $
|
|
3426
|
+
return $372 => $373 => {
|
|
3406
3427
|
switch($3.a2.h) {
|
|
3407
|
-
case 0: /* nil */ return Data_Promise_reject('The label command expects one or more labels as arguments.', $
|
|
3408
|
-
case undefined: /* cons */ return Commands_label($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2}, $
|
|
3409
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
3428
|
+
case 0: /* nil */ return Data_Promise_reject('The label command expects one or more labels as arguments.', $372, $373);
|
|
3429
|
+
case undefined: /* cons */ return Commands_label($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2}, $372, $373);
|
|
3430
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $389 => $389, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $372, $373);
|
|
3410
3431
|
}
|
|
3411
3432
|
};
|
|
3412
3433
|
}
|
|
3413
|
-
default: return $
|
|
3434
|
+
default: return $397 => $398 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $3a0 => $3a0, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $397, $398);
|
|
3414
3435
|
}
|
|
3415
3436
|
}
|
|
3416
|
-
default: return $
|
|
3437
|
+
default: return $3ae => $3af => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $3b7 => $3b7, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $3ae, $3af);
|
|
3417
3438
|
}
|
|
3418
3439
|
}
|
|
3419
3440
|
|
|
@@ -3485,10 +3506,10 @@ function Main_exitError($0, $1) {
|
|
|
3485
3506
|
/* Main.bashCompletion : HasIO io => String -> String -> String -> io () */
|
|
3486
3507
|
function Main_bashCompletion($0, $1, $2, $3) {
|
|
3487
3508
|
const $4 = BashCompletion_cmdOpts($1, $2, $3);
|
|
3488
|
-
const $9 = Prelude_Types_maybe(() =>
|
|
3509
|
+
const $9 = Prelude_Types_maybe(() => Main_n__8661_1303_ffiOpts($0, $3, $2, $1), () => $12 => $0.a1.a1.a2(undefined)({a1: $12}), $4);
|
|
3489
3510
|
const $26 = $27 => {
|
|
3490
3511
|
switch($27.h) {
|
|
3491
|
-
case 0: /* nothing */ return
|
|
3512
|
+
case 0: /* nothing */ return Main_n__8661_1302_configuredOpts($0, $3, $2, $1);
|
|
3492
3513
|
case undefined: /* just */ return $0.a1.a1.a2(undefined)($27.a1);
|
|
3493
3514
|
}
|
|
3494
3515
|
};
|
|
@@ -3496,18 +3517,18 @@ function Main_bashCompletion($0, $1, $2, $3) {
|
|
|
3496
3517
|
return $0.a1.a2(undefined)(undefined)($1c)($3f => $0.a2(undefined)($45 => Prelude_IO_prim__putStr(Data_String_fastUnlines($3f), $45)));
|
|
3497
3518
|
}
|
|
3498
3519
|
|
|
3499
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3500
|
-
function
|
|
3520
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4508:5068:writeOutput */
|
|
3521
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5068_writeOutput($0, $1, $2, $3) {
|
|
3501
3522
|
return Control_Monad_ST_modifySTRef($1, $7 => ($7+$2), $3);
|
|
3502
3523
|
}
|
|
3503
3524
|
|
|
3504
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3505
|
-
function
|
|
3525
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4508:5067:push */
|
|
3526
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5067_push($0, $1, $2, $3) {
|
|
3506
3527
|
return Control_Monad_ST_modifySTRef($1, $7 => ({a1: $2, a2: $7}), $3);
|
|
3507
3528
|
}
|
|
3508
3529
|
|
|
3509
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3510
|
-
function
|
|
3530
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4508:5066:pop */
|
|
3531
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5066_pop($0, $1, $2) {
|
|
3511
3532
|
const $9 = $a => $b => {
|
|
3512
3533
|
switch($a.h) {
|
|
3513
3534
|
case undefined: /* cons */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($f => ($1.value=$a.a2), $15 => $16 => ({a1: $a.a1}), $b);
|
|
@@ -3517,8 +3538,8 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4507_5066_pop($0, $1,
|
|
|
3517
3538
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($5 => ($1.value), $9, $2);
|
|
3518
3539
|
}
|
|
3519
3540
|
|
|
3520
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3521
|
-
function
|
|
3541
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4508:5065:peek */
|
|
3542
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5065_peek($0, $1, $2) {
|
|
3522
3543
|
const $9 = $a => $b => {
|
|
3523
3544
|
switch($a.h) {
|
|
3524
3545
|
case undefined: /* cons */ return {a1: $a.a1};
|
|
@@ -3528,36 +3549,36 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4507_5065_peek($0, $1
|
|
|
3528
3549
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($5 => ($1.value), $9, $2);
|
|
3529
3550
|
}
|
|
3530
3551
|
|
|
3531
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3532
|
-
function
|
|
3552
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4508:5064:go */
|
|
3553
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5064_go($0, $1, $2, $3, $4) {
|
|
3533
3554
|
switch($3.h) {
|
|
3534
3555
|
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 =>
|
|
3556
|
+
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);
|
|
3557
|
+
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);
|
|
3558
|
+
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
3559
|
case 4: /* SAnnPush */ {
|
|
3539
3560
|
const $4d = $4e => {
|
|
3540
3561
|
switch($4e.h) {
|
|
3541
3562
|
case undefined: /* just */ {
|
|
3542
3563
|
const $50 = Prelude_Types_List_tailRecAppend($3.a1, $4e.a1);
|
|
3543
|
-
return $54 => Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($57 =>
|
|
3564
|
+
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
3565
|
}
|
|
3545
3566
|
case 0: /* nothing */ return $75 => ($1.value={h: 0});
|
|
3546
3567
|
}
|
|
3547
3568
|
};
|
|
3548
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($48 =>
|
|
3569
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($48 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5065_peek($0, $1, $48), $4d, $4);
|
|
3549
3570
|
}
|
|
3550
3571
|
case 5: /* SAnnPop */ {
|
|
3551
3572
|
const $82 = _ => $83 => {
|
|
3552
3573
|
const $8b = $8c => $8d => {
|
|
3553
3574
|
switch($8c.h) {
|
|
3554
|
-
case undefined: /* just */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($91 =>
|
|
3575
|
+
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
3576
|
case 0: /* nothing */ return ($1.value={h: 0});
|
|
3556
3577
|
}
|
|
3557
3578
|
};
|
|
3558
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($86 =>
|
|
3579
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($86 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5065_peek($0, $1, $86), $8b, $83);
|
|
3559
3580
|
};
|
|
3560
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($7d =>
|
|
3581
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($7d => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5066_pop($0, $1, $7d), $82, $4);
|
|
3561
3582
|
}
|
|
3562
3583
|
}
|
|
3563
3584
|
}
|
|
@@ -3587,7 +3608,7 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString($0) {
|
|
|
3587
3608
|
};
|
|
3588
3609
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($28 => (styleStackRef.value), $2c, $25);
|
|
3589
3610
|
};
|
|
3590
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($1c =>
|
|
3611
|
+
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
3612
|
};
|
|
3592
3613
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($14 => Control_Monad_ST_newSTRef('', $14), $18, $11);
|
|
3593
3614
|
};
|
|
@@ -3675,9 +3696,9 @@ function Text_PrettyPrint_Prettyprinter_Doc_case__changesUponFlattening_4540($0,
|
|
|
3675
3696
|
}
|
|
3676
3697
|
}
|
|
3677
3698
|
|
|
3678
|
-
/* Text.PrettyPrint.Prettyprinter.Doc.
|
|
3679
|
-
function
|
|
3680
|
-
switch($2($3)($4)(
|
|
3699
|
+
/* Text.PrettyPrint.Prettyprinter.Doc.8979:8928:selectNicer */
|
|
3700
|
+
function Text_PrettyPrint_Prettyprinter_Doc_n__8979_8928_selectNicer($0, $1, $2, $3, $4, $5, $6) {
|
|
3701
|
+
switch($2($3)($4)(Text_PrettyPrint_Prettyprinter_Doc_n__8979_8927_initialIndentation($0, $1, $2, $6()))($5)) {
|
|
3681
3702
|
case 1: return $5;
|
|
3682
3703
|
case 0: return $6();
|
|
3683
3704
|
}
|
|
@@ -3840,7 +3861,7 @@ const Text_PrettyPrint_Prettyprinter_Doc_line = __lazy(function () {
|
|
|
3840
3861
|
|
|
3841
3862
|
/* Text.PrettyPrint.Prettyprinter.Doc.layoutWadlerLeijen : FittingPredicate ann -> PageWidth -> Doc ann -> SimpleDocStream ann */
|
|
3842
3863
|
function Text_PrettyPrint_Prettyprinter_Doc_layoutWadlerLeijen($0, $1, $2) {
|
|
3843
|
-
return
|
|
3864
|
+
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
3865
|
}
|
|
3845
3866
|
|
|
3846
3867
|
/* Text.PrettyPrint.Prettyprinter.Doc.layoutUnbounded : Doc ann -> SimpleDocStream ann */
|
|
@@ -4039,7 +4060,7 @@ function Data_String_Extra_drop($0, $1) {
|
|
|
4039
4060
|
}
|
|
4040
4061
|
|
|
4041
4062
|
/* Data.String.with block in parsePositive,parsePosTrimmed */
|
|
4042
|
-
function
|
|
4063
|
+
function Data_String_with__parsePositivex2cparsePosTrimmed_10057($0, $1, $2, $3, $4) {
|
|
4043
4064
|
switch($3) {
|
|
4044
4065
|
case '': {
|
|
4045
4066
|
switch($4.h) {
|
|
@@ -4114,14 +4135,14 @@ function Data_String_n__3856_9432_unlinesx27($0) {
|
|
|
4114
4135
|
}
|
|
4115
4136
|
}
|
|
4116
4137
|
|
|
4117
|
-
/* Data.String.
|
|
4118
|
-
function
|
|
4119
|
-
return
|
|
4138
|
+
/* Data.String.4465:10051:parsePosTrimmed */
|
|
4139
|
+
function Data_String_n__4465_10051_parsePosTrimmed($0, $1, $2) {
|
|
4140
|
+
return Data_String_with__parsePositivex2cparsePosTrimmed_10057(undefined, $0, $2, $2, Data_String_strM($2));
|
|
4120
4141
|
}
|
|
4121
4142
|
|
|
4122
4143
|
/* Data.String.trim : String -> String */
|
|
4123
4144
|
function Data_String_trim($0) {
|
|
4124
|
-
return Data_String_ltrim(
|
|
4145
|
+
return Data_String_ltrim(Data_String_rtrim($0));
|
|
4125
4146
|
}
|
|
4126
4147
|
|
|
4127
4148
|
/* Data.String.toLower : String -> String */
|
|
@@ -4153,6 +4174,11 @@ function Data_String_singleton($0) {
|
|
|
4153
4174
|
return ($0+'');
|
|
4154
4175
|
}
|
|
4155
4176
|
|
|
4177
|
+
/* Data.String.rtrim : String -> String */
|
|
4178
|
+
function Data_String_rtrim($0) {
|
|
4179
|
+
return _strReverse(Data_String_ltrim(_strReverse($0)));
|
|
4180
|
+
}
|
|
4181
|
+
|
|
4156
4182
|
/* Data.String.replicate : Nat -> Char -> String */
|
|
4157
4183
|
function Data_String_replicate($0, $1) {
|
|
4158
4184
|
return Prelude_Types_fastPack(Data_List_replicateTR({h: 0}, $0, $1));
|
|
@@ -4160,7 +4186,7 @@ function Data_String_replicate($0, $1) {
|
|
|
4160
4186
|
|
|
4161
4187
|
/* Data.String.parsePositive : Num a => String -> Maybe a */
|
|
4162
4188
|
function Data_String_parsePositive($0, $1) {
|
|
4163
|
-
return
|
|
4189
|
+
return Data_String_n__4465_10051_parsePosTrimmed($0, $1, Data_String_trim($1));
|
|
4164
4190
|
}
|
|
4165
4191
|
|
|
4166
4192
|
/* Data.String.ltrim : String -> String */
|
|
@@ -6004,8 +6030,8 @@ function BashCompletion_case__unhashify_10869($0, $1) {
|
|
|
6004
6030
|
}
|
|
6005
6031
|
}
|
|
6006
6032
|
|
|
6007
|
-
/* BashCompletion.
|
|
6008
|
-
function
|
|
6033
|
+
/* BashCompletion.5276:11675:slugsOrLoginsOrLabels */
|
|
6034
|
+
function BashCompletion_n__5276_11675_slugsOrLoginsOrLabels($0, $1) {
|
|
6009
6035
|
switch(Data_String_isPrefixOf('+', $0)) {
|
|
6010
6036
|
case 1: return Prelude_Types_List_mapAppend({h: 0}, $9 => ('+'+$9), $1.a12);
|
|
6011
6037
|
case 0: {
|
|
@@ -6041,7 +6067,7 @@ const BashCompletion_script = __lazy(function () {
|
|
|
6041
6067
|
function BashCompletion_optsForRequestCmd($0, $1) {
|
|
6042
6068
|
switch(Data_String_isPrefixOf($1, '--dry')) {
|
|
6043
6069
|
case 1: return {a1: '--dry', a2: {h: 0}};
|
|
6044
|
-
case 0: return
|
|
6070
|
+
case 0: return BashCompletion_n__5276_11675_slugsOrLoginsOrLabels($1, $0);
|
|
6045
6071
|
}
|
|
6046
6072
|
}
|
|
6047
6073
|
|
|
@@ -6222,7 +6248,6 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6222
6248
|
case '--help': return {a1: {h: 0}};
|
|
6223
6249
|
case 'reflect': return {a1: {h: 0}};
|
|
6224
6250
|
case 'version': return {a1: {h: 0}};
|
|
6225
|
-
case 'quick': return {a1: {h: 0}};
|
|
6226
6251
|
case 'help': {
|
|
6227
6252
|
switch($1) {
|
|
6228
6253
|
case '--': {
|
|
@@ -6230,7 +6255,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6230
6255
|
case 'help': return {a1: BashCompletion_allRootCmds()};
|
|
6231
6256
|
default: {
|
|
6232
6257
|
switch($2) {
|
|
6233
|
-
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $
|
|
6258
|
+
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $21 => Data_String_isPrefixOf($1, $21), BashCompletion_allRootCmds())};
|
|
6234
6259
|
default: return {h: 0};
|
|
6235
6260
|
}
|
|
6236
6261
|
}
|
|
@@ -6238,7 +6263,54 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6238
6263
|
}
|
|
6239
6264
|
default: {
|
|
6240
6265
|
switch($2) {
|
|
6241
|
-
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $
|
|
6266
|
+
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $2c => Data_String_isPrefixOf($1, $2c), BashCompletion_allRootCmds())};
|
|
6267
|
+
default: return {h: 0};
|
|
6268
|
+
}
|
|
6269
|
+
}
|
|
6270
|
+
}
|
|
6271
|
+
}
|
|
6272
|
+
case 'quick': {
|
|
6273
|
+
switch($1) {
|
|
6274
|
+
case '-': {
|
|
6275
|
+
switch($2) {
|
|
6276
|
+
case 'quick': return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6277
|
+
default: {
|
|
6278
|
+
switch($2) {
|
|
6279
|
+
case 'quick': {
|
|
6280
|
+
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6281
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6282
|
+
case 0: return {a1: {h: 0}};
|
|
6283
|
+
}
|
|
6284
|
+
}
|
|
6285
|
+
default: return {h: 0};
|
|
6286
|
+
}
|
|
6287
|
+
}
|
|
6288
|
+
}
|
|
6289
|
+
}
|
|
6290
|
+
case '--': {
|
|
6291
|
+
switch($2) {
|
|
6292
|
+
case 'quick': return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6293
|
+
default: {
|
|
6294
|
+
switch($2) {
|
|
6295
|
+
case 'quick': {
|
|
6296
|
+
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6297
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6298
|
+
case 0: return {a1: {h: 0}};
|
|
6299
|
+
}
|
|
6300
|
+
}
|
|
6301
|
+
default: return {h: 0};
|
|
6302
|
+
}
|
|
6303
|
+
}
|
|
6304
|
+
}
|
|
6305
|
+
}
|
|
6306
|
+
default: {
|
|
6307
|
+
switch($2) {
|
|
6308
|
+
case 'quick': {
|
|
6309
|
+
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6310
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6311
|
+
case 0: return {a1: {h: 0}};
|
|
6312
|
+
}
|
|
6313
|
+
}
|
|
6242
6314
|
default: return {h: 0};
|
|
6243
6315
|
}
|
|
6244
6316
|
}
|
|
@@ -6382,7 +6454,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6382
6454
|
}
|
|
6383
6455
|
default: {
|
|
6384
6456
|
switch($2) {
|
|
6385
|
-
case 'harmony': return {a1: Prelude_Types_List_filterAppend({h: 0}, $
|
|
6457
|
+
case 'harmony': return {a1: Prelude_Types_List_filterAppend({h: 0}, $ca => Data_String_isPrefixOf($1, $ca), BashCompletion_allRootCmds())};
|
|
6386
6458
|
default: {
|
|
6387
6459
|
switch($0) {
|
|
6388
6460
|
case 'sync': return {a1: {h: 0}};
|
|
@@ -6390,7 +6462,6 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6390
6462
|
case '--help': return {a1: {h: 0}};
|
|
6391
6463
|
case 'reflect': return {a1: {h: 0}};
|
|
6392
6464
|
case 'version': return {a1: {h: 0}};
|
|
6393
|
-
case 'quick': return {a1: {h: 0}};
|
|
6394
6465
|
case 'help': {
|
|
6395
6466
|
switch($1) {
|
|
6396
6467
|
case '--': {
|
|
@@ -6398,7 +6469,49 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6398
6469
|
case 'help': return {a1: BashCompletion_allRootCmds()};
|
|
6399
6470
|
default: {
|
|
6400
6471
|
switch($2) {
|
|
6401
|
-
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $
|
|
6472
|
+
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $df => Data_String_isPrefixOf($1, $df), BashCompletion_allRootCmds())};
|
|
6473
|
+
default: return {h: 0};
|
|
6474
|
+
}
|
|
6475
|
+
}
|
|
6476
|
+
}
|
|
6477
|
+
}
|
|
6478
|
+
default: {
|
|
6479
|
+
switch($2) {
|
|
6480
|
+
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $ea => Data_String_isPrefixOf($1, $ea), BashCompletion_allRootCmds())};
|
|
6481
|
+
default: return {h: 0};
|
|
6482
|
+
}
|
|
6483
|
+
}
|
|
6484
|
+
}
|
|
6485
|
+
}
|
|
6486
|
+
case 'quick': {
|
|
6487
|
+
switch($1) {
|
|
6488
|
+
case '-': {
|
|
6489
|
+
switch($2) {
|
|
6490
|
+
case 'quick': return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6491
|
+
default: {
|
|
6492
|
+
switch($2) {
|
|
6493
|
+
case 'quick': {
|
|
6494
|
+
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6495
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6496
|
+
case 0: return {a1: {h: 0}};
|
|
6497
|
+
}
|
|
6498
|
+
}
|
|
6499
|
+
default: return {h: 0};
|
|
6500
|
+
}
|
|
6501
|
+
}
|
|
6502
|
+
}
|
|
6503
|
+
}
|
|
6504
|
+
case '--': {
|
|
6505
|
+
switch($2) {
|
|
6506
|
+
case 'quick': return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6507
|
+
default: {
|
|
6508
|
+
switch($2) {
|
|
6509
|
+
case 'quick': {
|
|
6510
|
+
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6511
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6512
|
+
case 0: return {a1: {h: 0}};
|
|
6513
|
+
}
|
|
6514
|
+
}
|
|
6402
6515
|
default: return {h: 0};
|
|
6403
6516
|
}
|
|
6404
6517
|
}
|
|
@@ -6406,7 +6519,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6406
6519
|
}
|
|
6407
6520
|
default: {
|
|
6408
6521
|
switch($2) {
|
|
6409
|
-
case '
|
|
6522
|
+
case 'quick': {
|
|
6523
|
+
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6524
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6525
|
+
case 0: return {a1: {h: 0}};
|
|
6526
|
+
}
|
|
6527
|
+
}
|
|
6410
6528
|
default: return {h: 0};
|
|
6411
6529
|
}
|
|
6412
6530
|
}
|
|
@@ -6808,13 +6926,13 @@ function Data_Promise_bind($0, $1, $2, $3) {
|
|
|
6808
6926
|
return $4($3);
|
|
6809
6927
|
}
|
|
6810
6928
|
|
|
6811
|
-
/* Data.Config.
|
|
6812
|
-
function
|
|
6929
|
+
/* Data.Config.9652:7042:personalAccessToken */
|
|
6930
|
+
function Data_Config_n__9652_7042_personalAccessToken($0) {
|
|
6813
6931
|
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
6932
|
}
|
|
6815
6933
|
|
|
6816
|
-
/* Data.Config.
|
|
6817
|
-
function
|
|
6934
|
+
/* Data.Config.10208:7588:parseConfigJson */
|
|
6935
|
+
function Data_Config_n__10208_7588_parseConfigJson($0, $1) {
|
|
6818
6936
|
switch($1.h) {
|
|
6819
6937
|
case 6: /* JObject */ {
|
|
6820
6938
|
const $20 = $21 => {
|
|
@@ -6882,7 +7000,7 @@ function Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($0) {
|
|
|
6882
7000
|
|
|
6883
7001
|
/* Data.Config.show */
|
|
6884
7002
|
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:
|
|
7003
|
+
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
7004
|
}
|
|
6887
7005
|
|
|
6888
7006
|
/* Data.Config.CommentStrategy.show */
|
|
@@ -6969,7 +7087,7 @@ function Data_Config_propHelpx27($0) {
|
|
|
6969
7087
|
|
|
6970
7088
|
/* Data.Config.parseConfig : Ephemeral -> String -> Either String Config */
|
|
6971
7089
|
function Data_Config_parseConfig($0, $1) {
|
|
6972
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_227(), csegen_228(), $8 =>
|
|
7090
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_227(), csegen_228(), $8 => Data_Config_n__10208_7588_parseConfigJson($0, $8), $1);
|
|
6973
7091
|
}
|
|
6974
7092
|
|
|
6975
7093
|
/* Data.Config.CommentStrategy.parseCommentConfig : String -> Maybe CommentStrategy */
|
|
@@ -8096,13 +8214,32 @@ function Util_Prompting_with__yesNoPromptx2cyesUnlessNo_1359($0, $1, $2, $3, $4,
|
|
|
8096
8214
|
}
|
|
8097
8215
|
}
|
|
8098
8216
|
|
|
8099
|
-
/* Util.Prompting.
|
|
8100
|
-
function
|
|
8217
|
+
/* Util.Prompting.5777:1351:yesUnlessNo */
|
|
8218
|
+
function Util_Prompting_n__5777_1351_yesUnlessNo($0, $1, $2, $3) {
|
|
8101
8219
|
return Util_Prompting_with__yesNoPromptx2cyesUnlessNo_1359(undefined, $0, $1, $2, $3, Data_String_toLower($3));
|
|
8102
8220
|
}
|
|
8103
8221
|
|
|
8104
|
-
/* Util.
|
|
8105
|
-
function
|
|
8222
|
+
/* Util.Prompting.5977:1552:readTemplate */
|
|
8223
|
+
function Util_Prompting_n__5977_1552_readTemplate($0, $1, $2, $3, $4) {
|
|
8224
|
+
const $11 = $12 => {
|
|
8225
|
+
switch($12) {
|
|
8226
|
+
case 0: return $0.a1.a1.a2(undefined)('');
|
|
8227
|
+
case 1: {
|
|
8228
|
+
const $2b = $2c => {
|
|
8229
|
+
switch($2c.h) {
|
|
8230
|
+
case 0: /* Left */ return $0.a1.a1.a2(undefined)('');
|
|
8231
|
+
case 1: /* Right */ return $0.a1.a1.a2(undefined)(Data_String_Extra_join('', csegen_147(), $2c.a1.a2));
|
|
8232
|
+
}
|
|
8233
|
+
};
|
|
8234
|
+
return $0.a1.a2(undefined)(undefined)(System_File_ReadWrite_readFilePage($0, 0n, Data_Fuel_limit(5000n), $4))($2b);
|
|
8235
|
+
}
|
|
8236
|
+
}
|
|
8237
|
+
};
|
|
8238
|
+
return $0.a1.a2(undefined)(undefined)(System_File_Meta_exists($0, $4))($11);
|
|
8239
|
+
}
|
|
8240
|
+
|
|
8241
|
+
/* Util.5664:1233:getMoreLines */
|
|
8242
|
+
function Util_n__5664_1233_getMoreLines($0, $1, $2) {
|
|
8106
8243
|
switch($2.h) {
|
|
8107
8244
|
case 0: /* nothing */ return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1));
|
|
8108
8245
|
case undefined: /* just */ {
|
|
@@ -8113,13 +8250,13 @@ function Util_n__5249_1233_getMoreLines($0, $1, $2) {
|
|
|
8113
8250
|
case '': {
|
|
8114
8251
|
switch(line) {
|
|
8115
8252
|
case '': return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1.a2));
|
|
8116
|
-
default: return
|
|
8253
|
+
default: return Util_n__5664_1233_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
8117
8254
|
}
|
|
8118
8255
|
}
|
|
8119
|
-
default: return
|
|
8256
|
+
default: return Util_n__5664_1233_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
8120
8257
|
}
|
|
8121
8258
|
}
|
|
8122
|
-
default: return
|
|
8259
|
+
default: return Util_n__5664_1233_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
8123
8260
|
}
|
|
8124
8261
|
};
|
|
8125
8262
|
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 +8264,8 @@ function Util_n__5249_1233_getMoreLines($0, $1, $2) {
|
|
|
8127
8264
|
}
|
|
8128
8265
|
}
|
|
8129
8266
|
|
|
8130
|
-
/* Util.Prompting.
|
|
8131
|
-
function
|
|
8267
|
+
/* Util.Prompting.5777:1350:defaultAnswerStr */
|
|
8268
|
+
function Util_Prompting_n__5777_1350_defaultAnswerStr($0, $1, $2) {
|
|
8132
8269
|
switch($1) {
|
|
8133
8270
|
case 0: return 'y/N';
|
|
8134
8271
|
case 1: return 'Y/n';
|
|
@@ -8137,7 +8274,7 @@ function Util_Prompting_n__5362_1350_defaultAnswerStr($0, $1, $2) {
|
|
|
8137
8274
|
|
|
8138
8275
|
/* Util.Prompting.yesNoPrompt : HasIO io => {default True _ : Bool} -> String -> io Bool */
|
|
8139
8276
|
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:
|
|
8277
|
+
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
8278
|
}
|
|
8142
8279
|
|
|
8143
8280
|
/* Util.whenNothing : Applicative f => Maybe a -> f () -> f () */
|
|
@@ -8168,6 +8305,15 @@ function Util_relativeToRoot($0, $1, $2, $3) {
|
|
|
8168
8305
|
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
8306
|
}
|
|
8170
8307
|
|
|
8308
|
+
/* Util.Prompting.prepareDescriptionFile : HasIO io => Maybe String -> String -> String -> io () */
|
|
8309
|
+
function Util_Prompting_prepareDescriptionFile($0, $1, $2, $3) {
|
|
8310
|
+
const $1f = templateContents => {
|
|
8311
|
+
const $20 = Prelude_Types_foldMap_Foldable_List(csegen_51()(), $26 => $26, {a1: $2, a2: {a1: '\n', a2: {a1: templateContents, a2: {h: 0}}}});
|
|
8312
|
+
return $0.a1.a1.a1(undefined)(undefined)($38 => undefined)(System_File_ReadWrite_writeFile($0, $3, $20));
|
|
8313
|
+
};
|
|
8314
|
+
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);
|
|
8315
|
+
}
|
|
8316
|
+
|
|
8171
8317
|
/* Util.Prompting.orIfEmpty : Maybe String -> String -> String */
|
|
8172
8318
|
function Util_Prompting_orIfEmpty($0, $1) {
|
|
8173
8319
|
switch($0.h) {
|
|
@@ -8218,7 +8364,21 @@ function Util_Prompting_inlineDescription($0, $1, $2) {
|
|
|
8218
8364
|
|
|
8219
8365
|
/* Util.getManyLines : HasIO io => Fuel -> io (List String) */
|
|
8220
8366
|
function Util_getManyLines($0, $1) {
|
|
8221
|
-
return
|
|
8367
|
+
return Util_n__5664_1233_getMoreLines($0, {h: 0}, $1);
|
|
8368
|
+
}
|
|
8369
|
+
|
|
8370
|
+
/* Util.Prompting.editorDescription : HasIO io => String -> Maybe String -> String -> io (Either FileError String) */
|
|
8371
|
+
function Util_Prompting_editorDescription($0, $1, $2, $3) {
|
|
8372
|
+
const $12 = $13 => {
|
|
8373
|
+
const $2d = $2e => {
|
|
8374
|
+
switch($2e) {
|
|
8375
|
+
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)));
|
|
8376
|
+
default: return $0.a1.a1.a2(undefined)({h: 0 /* Left */, a1: {h: 0 /* GenericFileError */, a1: $2e}});
|
|
8377
|
+
}
|
|
8378
|
+
};
|
|
8379
|
+
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);
|
|
8380
|
+
};
|
|
8381
|
+
return $0.a1.a2(undefined)(undefined)(Util_Prompting_prepareDescriptionFile($0, $2, $3, 'editor_description.tmp.md'))($12);
|
|
8222
8382
|
}
|
|
8223
8383
|
|
|
8224
8384
|
/* Util.colorize : Config => Doc AnsiStyle -> Doc AnsiStyle */
|
|
@@ -8262,7 +8422,7 @@ function System_getEnv($0, $1) {
|
|
|
8262
8422
|
function System_getArgs($0) {
|
|
8263
8423
|
const $12 = n => {
|
|
8264
8424
|
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:
|
|
8425
|
+
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
8426
|
case 0: return $0.a1.a1.a2(undefined)({h: 0});
|
|
8267
8427
|
}
|
|
8268
8428
|
};
|
|
@@ -8293,38 +8453,38 @@ function FFI_Term_termCols($0) {
|
|
|
8293
8453
|
}
|
|
8294
8454
|
}
|
|
8295
8455
|
|
|
8296
|
-
/* FFI.GitHub.
|
|
8297
|
-
function
|
|
8456
|
+
/* FFI.GitHub.6760:18487:unexpectedPayload */
|
|
8457
|
+
function FFI_GitHub_n__6760_18487_unexpectedPayload($0, $1) {
|
|
8298
8458
|
return FFI_GitHub_internalError(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $9 => $9, {a1: 'Unexpected error JSON: ', a2: {a1: $0, a2: {h: 0}}}));
|
|
8299
8459
|
}
|
|
8300
8460
|
|
|
8301
|
-
/* FFI.GitHub.
|
|
8302
|
-
function
|
|
8461
|
+
/* FFI.GitHub.6760:18486:parse */
|
|
8462
|
+
function FFI_GitHub_n__6760_18486_parse($0, $1) {
|
|
8303
8463
|
switch($1.h) {
|
|
8304
8464
|
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
8465
|
default: return {h: 0 /* Left */, a1: 'Expected an Object containing error and status keys'};
|
|
8306
8466
|
}
|
|
8307
8467
|
}
|
|
8308
8468
|
|
|
8309
|
-
/* FFI.GitHub.
|
|
8310
|
-
function
|
|
8469
|
+
/* FFI.GitHub.8194:19964:errString */
|
|
8470
|
+
function FFI_GitHub_n__8194_19964_errString($0, $1) {
|
|
8311
8471
|
switch($1.h) {
|
|
8312
8472
|
case 0: /* nothing */ return 'You can only use teams with repositories belonging to GitHub organizations';
|
|
8313
8473
|
case undefined: /* just */ return $1.a1;
|
|
8314
8474
|
}
|
|
8315
8475
|
}
|
|
8316
8476
|
|
|
8317
|
-
/* FFI.GitHub.
|
|
8318
|
-
function
|
|
8477
|
+
/* FFI.GitHub.7156:18911:errString */
|
|
8478
|
+
function FFI_GitHub_n__7156_18911_errString($0, $1) {
|
|
8319
8479
|
switch($1.h) {
|
|
8320
8480
|
case 0: /* nothing */ return 'You can only list teams for repositories belonging to GitHub organizations';
|
|
8321
8481
|
case undefined: /* just */ return $1.a1;
|
|
8322
8482
|
}
|
|
8323
8483
|
}
|
|
8324
8484
|
|
|
8325
|
-
/* FFI.GitHub.
|
|
8326
|
-
function
|
|
8327
|
-
return Prelude_Types_either(() =>
|
|
8485
|
+
/* FFI.GitHub.6893:18620:errMsg */
|
|
8486
|
+
function FFI_GitHub_n__6893_18620_errMsg($0) {
|
|
8487
|
+
return Prelude_Types_either(() => csegen_318()(), () => csegen_318()(), $0);
|
|
8328
8488
|
}
|
|
8329
8489
|
|
|
8330
8490
|
/* FFI.GitHub.show */
|
|
@@ -8367,7 +8527,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
8367
8527
|
let $2;
|
|
8368
8528
|
switch($3.h) {
|
|
8369
8529
|
case 0: /* Left */ {
|
|
8370
|
-
$2 = {h: 0 /* Left */, a1:
|
|
8530
|
+
$2 = {h: 0 /* Left */, a1: FFI_GitHub_n__6760_18487_unexpectedPayload($0, $3.a1)};
|
|
8371
8531
|
break;
|
|
8372
8532
|
}
|
|
8373
8533
|
case 1: /* Right */ {
|
|
@@ -8376,7 +8536,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
8376
8536
|
}
|
|
8377
8537
|
}
|
|
8378
8538
|
const $c = json => {
|
|
8379
|
-
const $d =
|
|
8539
|
+
const $d = FFI_GitHub_n__6760_18486_parse($0, json);
|
|
8380
8540
|
switch($d.h) {
|
|
8381
8541
|
case 0: /* Left */ return {h: 0 /* Left */, a1: FFI_GitHub_internalError($d.a1)};
|
|
8382
8542
|
case 1: /* Right */ return {h: 1 /* Right */, a1: $d.a1};
|
|
@@ -8468,7 +8628,7 @@ function FFI_GitHub_internalError($0) {
|
|
|
8468
8628
|
|
|
8469
8629
|
/* FFI.GitHub.ignoreStatus : Promise String a -> Promise String a */
|
|
8470
8630
|
function FFI_GitHub_ignoreStatus($0, $1, $2) {
|
|
8471
|
-
return Data_Promise_mapError($5 =>
|
|
8631
|
+
return Data_Promise_mapError($5 => FFI_GitHub_n__6893_18620_errMsg(FFI_GitHub_parseError($5)), $0, $1, $2);
|
|
8472
8632
|
}
|
|
8473
8633
|
|
|
8474
8634
|
/* FFI.GitHub.getUser : Octokit => String -> Promise String User */
|
|
@@ -8493,12 +8653,12 @@ function FFI_GitHub_getPullRequestGraphQlId($0, $1, $2, $3, $4, $5) {
|
|
|
8493
8653
|
|
|
8494
8654
|
/* FFI.GitHub.forceListTeams : Octokit => String -> Promise' (List String) */
|
|
8495
8655
|
function FFI_GitHub_forceListTeams($0, $1, $2, $3) {
|
|
8496
|
-
return Data_Promise_mapError($6 =>
|
|
8656
|
+
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
8657
|
}
|
|
8498
8658
|
|
|
8499
8659
|
/* FFI.GitHub.forceListTeamMembers : Octokit => String -> String -> Promise' (List String) */
|
|
8500
8660
|
function FFI_GitHub_forceListTeamMembers($0, $1, $2, $3, $4) {
|
|
8501
|
-
return Data_Promise_mapError($7 =>
|
|
8661
|
+
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
8662
|
}
|
|
8503
8663
|
|
|
8504
8664
|
/* FFI.GitHub.createPR : Octokit => {default False _ : Bool} ->
|
|
@@ -8574,8 +8734,8 @@ function Data_Review_isAuthor($0, $1) {
|
|
|
8574
8734
|
return Prelude_EqOrd_x3dx3d_Eq_String($1.a2, $0);
|
|
8575
8735
|
}
|
|
8576
8736
|
|
|
8577
|
-
/* Data.Date.
|
|
8578
|
-
function
|
|
8737
|
+
/* Data.Date.4986:11759:parseNat */
|
|
8738
|
+
function Data_Date_n__4986_11759_parseNat($0, $1, $2) {
|
|
8579
8739
|
switch($2) {
|
|
8580
8740
|
case '0': return {a1: 0n};
|
|
8581
8741
|
case '1': return {a1: 1n};
|
|
@@ -8591,12 +8751,12 @@ function Data_Date_n__4985_11759_parseNat($0, $1, $2) {
|
|
|
8591
8751
|
}
|
|
8592
8752
|
}
|
|
8593
8753
|
|
|
8594
|
-
/* Data.Date.
|
|
8595
|
-
function
|
|
8754
|
+
/* Data.Date.5103:11877:guardSuccess */
|
|
8755
|
+
function Data_Date_n__5103_11877_guardSuccess($0) {
|
|
8596
8756
|
switch($0.h) {
|
|
8597
8757
|
case undefined: /* cons */ {
|
|
8598
8758
|
switch($0.a1.h) {
|
|
8599
|
-
case 3: /*
|
|
8759
|
+
case 3: /* 5103:11866:Day */ {
|
|
8600
8760
|
switch($0.a2.h) {
|
|
8601
8761
|
case undefined: /* cons */ {
|
|
8602
8762
|
switch($0.a2.a2.h) {
|
|
@@ -8614,28 +8774,28 @@ function Data_Date_n__5102_11877_guardSuccess($0) {
|
|
|
8614
8774
|
}
|
|
8615
8775
|
}
|
|
8616
8776
|
|
|
8617
|
-
/* Data.Date.
|
|
8618
|
-
function
|
|
8777
|
+
/* Data.Date.5103:11876:go */
|
|
8778
|
+
function Data_Date_n__5103_11876_go($0, $1) {
|
|
8619
8779
|
switch($0.a1.h) {
|
|
8620
|
-
case 4: /*
|
|
8621
|
-
case 0: /*
|
|
8780
|
+
case 4: /* 5103:11867:Fail */ return {a1: {h: 4 /* 5103:11867:Fail */}, a2: undefined};
|
|
8781
|
+
case 0: /* 5103:11874:Start */ {
|
|
8622
8782
|
switch(Prelude_Types_isDigit($1)) {
|
|
8623
|
-
case 1: return {a1: {h: 1 /*
|
|
8624
|
-
case 0: return {a1: {h: 4 /*
|
|
8783
|
+
case 1: return {a1: {h: 1 /* 5103:11869:P */, a1: 0}, a2: {a1: $1, a2: {h: 0}}};
|
|
8784
|
+
case 0: return {a1: {h: 4 /* 5103:11867:Fail */}, a2: undefined};
|
|
8625
8785
|
}
|
|
8626
8786
|
}
|
|
8627
|
-
case 1: /*
|
|
8787
|
+
case 1: /* 5103:11869:P */ {
|
|
8628
8788
|
switch($0.a1.a1) {
|
|
8629
8789
|
case 0: {
|
|
8630
8790
|
switch($1) {
|
|
8631
8791
|
case '-': {
|
|
8632
8792
|
const $12 = Data_Date_parsePositiveReversed($0.a2);
|
|
8633
8793
|
switch($12.h) {
|
|
8634
|
-
case 0: /* nothing */ return {a1: {h: 4 /*
|
|
8635
|
-
case undefined: /* just */ return {a1: {h: 2 /*
|
|
8794
|
+
case 0: /* nothing */ return {a1: {h: 4 /* 5103:11867:Fail */}, a2: undefined};
|
|
8795
|
+
case undefined: /* just */ return {a1: {h: 2 /* 5103:11873:S */, a1: 0}, a2: $12.a1};
|
|
8636
8796
|
}
|
|
8637
8797
|
}
|
|
8638
|
-
default: return {a1: {h: 1 /*
|
|
8798
|
+
default: return {a1: {h: 1 /* 5103:11869:P */, a1: 0}, a2: {a1: $1, a2: $0.a2}};
|
|
8639
8799
|
}
|
|
8640
8800
|
}
|
|
8641
8801
|
case 1: {
|
|
@@ -8643,32 +8803,32 @@ function Data_Date_n__5102_11876_go($0, $1) {
|
|
|
8643
8803
|
case '-': {
|
|
8644
8804
|
const $21 = Data_Date_parsePositiveReversed($0.a2.a2);
|
|
8645
8805
|
switch($21.h) {
|
|
8646
|
-
case 0: /* nothing */ return {a1: {h: 4 /*
|
|
8647
|
-
case undefined: /* just */ return {a1: {h: 2 /*
|
|
8806
|
+
case 0: /* nothing */ return {a1: {h: 4 /* 5103:11867:Fail */}, a2: undefined};
|
|
8807
|
+
case undefined: /* just */ return {a1: {h: 2 /* 5103:11873:S */, a1: 1}, a2: {a1: $0.a2.a1, a2: $21.a1}};
|
|
8648
8808
|
}
|
|
8649
8809
|
}
|
|
8650
|
-
default: return {a1: {h: 1 /*
|
|
8810
|
+
default: return {a1: {h: 1 /* 5103:11869:P */, a1: 1}, a2: {a1: $0.a2.a1, a2: {a1: $1, a2: $0.a2.a2}}};
|
|
8651
8811
|
}
|
|
8652
8812
|
}
|
|
8653
8813
|
}
|
|
8654
8814
|
}
|
|
8655
|
-
case 2: /*
|
|
8815
|
+
case 2: /* 5103:11873:S */ {
|
|
8656
8816
|
switch($0.a1.a1) {
|
|
8657
8817
|
case 0: {
|
|
8658
8818
|
switch(Prelude_Types_isDigit($1)) {
|
|
8659
|
-
case 1: return {a1: {h: 1 /*
|
|
8660
|
-
case 0: return {a1: {h: 4 /*
|
|
8819
|
+
case 1: return {a1: {h: 1 /* 5103:11869:P */, a1: 1}, a2: {a1: $0.a2, a2: {a1: $1, a2: {h: 0}}}};
|
|
8820
|
+
case 0: return {a1: {h: 4 /* 5103:11867:Fail */}, a2: undefined};
|
|
8661
8821
|
}
|
|
8662
8822
|
}
|
|
8663
8823
|
case 1: {
|
|
8664
8824
|
switch(Prelude_Types_isDigit($1)) {
|
|
8665
|
-
case 1: return {a1: {h: 3 /*
|
|
8666
|
-
case 0: return {a1: {h: 4 /*
|
|
8825
|
+
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}}}}};
|
|
8826
|
+
case 0: return {a1: {h: 4 /* 5103:11867:Fail */}, a2: undefined};
|
|
8667
8827
|
}
|
|
8668
8828
|
}
|
|
8669
8829
|
}
|
|
8670
8830
|
}
|
|
8671
|
-
case 3: /*
|
|
8831
|
+
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
8832
|
}
|
|
8673
8833
|
}
|
|
8674
8834
|
|
|
@@ -8695,7 +8855,7 @@ function Data_Date_max_Ord_Date($0, $1) {
|
|
|
8695
8855
|
|
|
8696
8856
|
/* Data.Date.compare */
|
|
8697
8857
|
function Data_Date_compare_Ord_Date($0, $1) {
|
|
8698
|
-
return Prelude_Types_compare_Ord_x28Listx20x24ax29({a1: {a1:
|
|
8858
|
+
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
8859
|
}
|
|
8700
8860
|
|
|
8701
8861
|
/* Data.Date.> */
|
|
@@ -8748,7 +8908,7 @@ function Data_Date_showYearAndMonth($0) {
|
|
|
8748
8908
|
function Data_Date_parsePositiveReversed($0) {
|
|
8749
8909
|
switch($0.h) {
|
|
8750
8910
|
case 0: /* nil */ return {a1: 0n};
|
|
8751
|
-
case undefined: /* cons */ return Prelude_Types_x3ex3ex3d_Monad_Maybe(
|
|
8911
|
+
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
8912
|
}
|
|
8753
8913
|
}
|
|
8754
8914
|
|
|
@@ -8761,7 +8921,7 @@ function Data_Date_parseDateTimeString($0) {
|
|
|
8761
8921
|
|
|
8762
8922
|
/* Data.Date.parseDateString : String -> Maybe Date */
|
|
8763
8923
|
function Data_Date_parseDateString($0) {
|
|
8764
|
-
return
|
|
8924
|
+
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
8925
|
}
|
|
8766
8926
|
|
|
8767
8927
|
/* Data.Date.pad : Nat -> String */
|
|
@@ -8848,7 +9008,7 @@ function Data_PullRequest_parseState($0, $1) {
|
|
|
8848
9008
|
|
|
8849
9009
|
/* Data.PullRequest.parsePullRequestsString : String -> Either String (List PullRequest) */
|
|
8850
9010
|
function Data_PullRequest_parsePullRequestsString($0) {
|
|
8851
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_227(), csegen_228(),
|
|
9011
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_227(), csegen_228(), csegen_345(), $0);
|
|
8852
9012
|
}
|
|
8853
9013
|
|
|
8854
9014
|
/* Data.PullRequest.parsePullRequestString : String -> Either String PullRequest */
|
|
@@ -8941,47 +9101,47 @@ function Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, $2) {
|
|
|
8941
9101
|
default: return {h: 0};
|
|
8942
9102
|
}
|
|
8943
9103
|
};
|
|
8944
|
-
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(
|
|
9104
|
+
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_358(), $2.a1)}, $b);
|
|
8945
9105
|
}
|
|
8946
9106
|
|
|
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 =>
|
|
9107
|
+
/* Config.9586:2540:themePrompt */
|
|
9108
|
+
function Config_n__9586_2540_themePrompt($0, $1, $2, $3, $4, $5) {
|
|
9109
|
+
const $6 = Config_n__9586_2536_enterForDefaultStr($0, $1, $2, $3, $4, 'dark');
|
|
9110
|
+
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
9111
|
}
|
|
8952
9112
|
|
|
8953
|
-
/* Config.
|
|
8954
|
-
function
|
|
8955
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
9113
|
+
/* Config.9586:2539:repo */
|
|
9114
|
+
function Config_n__9586_2539_repo($0, $1, $2, $3, $4, $5) {
|
|
9115
|
+
return Prelude_Types_map_Functor_Maybe(csegen_318()(), $5);
|
|
8956
9116
|
}
|
|
8957
9117
|
|
|
8958
|
-
/* Config.
|
|
8959
|
-
function
|
|
9118
|
+
/* Config.8653:1562:parseSuffix */
|
|
9119
|
+
function Config_n__8653_1562_parseSuffix($0, $1) {
|
|
8960
9120
|
return Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, Data_String_break$($8 => Prelude_EqOrd_x3dx3d_Eq_Char($8, '.'), $1));
|
|
8961
9121
|
}
|
|
8962
9122
|
|
|
8963
|
-
/* Config.
|
|
8964
|
-
function
|
|
8965
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b =>
|
|
9123
|
+
/* Config.8653:1561:parseSSH */
|
|
9124
|
+
function Config_n__8653_1561_parseSSH($0, $1) {
|
|
9125
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b => Config_n__8653_1562_parseSuffix($0, $b), $1);
|
|
8966
9126
|
}
|
|
8967
9127
|
|
|
8968
|
-
/* Config.
|
|
8969
|
-
function
|
|
8970
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b =>
|
|
9128
|
+
/* Config.8653:1560:parseHTTPS */
|
|
9129
|
+
function Config_n__8653_1560_parseHTTPS($0, $1) {
|
|
9130
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b => Config_n__8653_1562_parseSuffix($0, $b), $1);
|
|
8971
9131
|
}
|
|
8972
9132
|
|
|
8973
|
-
/* Config.
|
|
8974
|
-
function
|
|
8975
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
9133
|
+
/* Config.9586:2538:org */
|
|
9134
|
+
function Config_n__9586_2538_org($0, $1, $2, $3, $4, $5) {
|
|
9135
|
+
return Prelude_Types_map_Functor_Maybe(csegen_364()(), $5);
|
|
8976
9136
|
}
|
|
8977
9137
|
|
|
8978
|
-
/* Config.
|
|
8979
|
-
function
|
|
9138
|
+
/* Config.8364:1281:oneDayAgo */
|
|
9139
|
+
function Config_n__8364_1281_oneDayAgo($0, $1, $2) {
|
|
8980
9140
|
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(Number(_truncUBigInt32((now-86400n)))));
|
|
8981
9141
|
}
|
|
8982
9142
|
|
|
8983
|
-
/* Config.
|
|
8984
|
-
function
|
|
9143
|
+
/* Config.9586:2537:offerRetry */
|
|
9144
|
+
function Config_n__9586_2537_offerRetry($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
8985
9145
|
const $13 = $14 => {
|
|
8986
9146
|
switch($14.h) {
|
|
8987
9147
|
case 0: /* nothing */ {
|
|
@@ -9002,34 +9162,34 @@ function Config_n__9570_2537_offerRetry($0, $1, $2, $3, $4, $5, $6, $7, $8, $9)
|
|
|
9002
9162
|
return $5.a1.a2(undefined)(undefined)($9)($13);
|
|
9003
9163
|
}
|
|
9004
9164
|
|
|
9005
|
-
/* Config.
|
|
9006
|
-
function
|
|
9165
|
+
/* Config.9489:2423:help */
|
|
9166
|
+
function Config_n__9489_2423_help($0, $1) {
|
|
9007
9167
|
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
9168
|
}
|
|
9009
9169
|
|
|
9010
|
-
/* Config.
|
|
9011
|
-
function
|
|
9170
|
+
/* Config.9586:2536:enterForDefaultStr */
|
|
9171
|
+
function Config_n__9586_2536_enterForDefaultStr($0, $1, $2, $3, $4, $5) {
|
|
9012
9172
|
return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $b => $b, {a1: ' (ENTER for default: ', a2: {a1: $5, a2: {a1: ')', a2: {h: 0}}}});
|
|
9013
9173
|
}
|
|
9014
9174
|
|
|
9015
|
-
/* Config.
|
|
9016
|
-
function
|
|
9175
|
+
/* Config.8606:1513:drop' */
|
|
9176
|
+
function Config_n__8606_1513_dropx27($0, $1) {
|
|
9017
9177
|
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
9178
|
}
|
|
9019
9179
|
|
|
9020
|
-
/* Config.
|
|
9021
|
-
function
|
|
9022
|
-
return Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($c =>
|
|
9180
|
+
/* Config.9586:2535:defaultStr */
|
|
9181
|
+
function Config_n__9586_2535_defaultStr($0, $1, $2, $3, $4, $5, $6) {
|
|
9182
|
+
return Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($c => Config_n__9586_2536_enterForDefaultStr($0, $1, $2, $3, $4, $5($c)), $6));
|
|
9023
9183
|
}
|
|
9024
9184
|
|
|
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 =>
|
|
9185
|
+
/* Config.9586:2534:commentConfigPrompt */
|
|
9186
|
+
function Config_n__9586_2534_commentConfigPrompt($0, $1, $2, $3, $4, $5) {
|
|
9187
|
+
const $6 = Config_n__9586_2536_enterForDefaultStr($0, $1, $2, $3, $4, 'name');
|
|
9188
|
+
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
9189
|
}
|
|
9030
9190
|
|
|
9031
|
-
/* Config.
|
|
9032
|
-
function
|
|
9191
|
+
/* Config.8495:1406:checkRequestSettings */
|
|
9192
|
+
function Config_n__8495_1406_checkRequestSettings($0, $1) {
|
|
9033
9193
|
let $2;
|
|
9034
9194
|
switch($1.a6) {
|
|
9035
9195
|
case 1: {
|
|
@@ -9047,10 +9207,10 @@ function Config_n__8479_1406_checkRequestSettings($0, $1) {
|
|
|
9047
9207
|
}
|
|
9048
9208
|
}
|
|
9049
9209
|
|
|
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 =>
|
|
9210
|
+
/* Config.9586:2533:branchParsingPrompt */
|
|
9211
|
+
function Config_n__9586_2533_branchParsingPrompt($0, $1, $2, $3, $4, $5) {
|
|
9212
|
+
const $6 = Config_n__9586_2536_enterForDefaultStr($0, $1, $2, $3, $4, 'none');
|
|
9213
|
+
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
9214
|
}
|
|
9055
9215
|
|
|
9056
9216
|
/* Config.show */
|
|
@@ -9085,7 +9245,7 @@ function Config_syncIfOld($0, $1, $2, $3) {
|
|
|
9085
9245
|
case 0: return $1b => Data_Promise_pure_Applicative_x28Promisex20x24ex29($1, $e, $1b);
|
|
9086
9246
|
}
|
|
9087
9247
|
};
|
|
9088
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9248
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__8364_1281_oneDayAgo($0, $1, csegen_74()()), $c, $2, $3);
|
|
9089
9249
|
}
|
|
9090
9250
|
|
|
9091
9251
|
/* Config.syncConfig : Config => Octokit => Bool -> Promise' Config */
|
|
@@ -9097,7 +9257,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
9097
9257
|
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
9258
|
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
9259
|
};
|
|
9100
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9260
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_377()(), $40, $3a, $3b);
|
|
9101
9261
|
};
|
|
9102
9262
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2f => $30 => FFI_GitHub_listRepoLabels($1, $0.a2, $0.a3, $2f, $30), $39, $2b, $2c);
|
|
9103
9263
|
};
|
|
@@ -9108,7 +9268,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
9108
9268
|
|
|
9109
9269
|
/* Config.settablePropsWithHelp : Config => String */
|
|
9110
9270
|
function Config_settablePropsWithHelp($0) {
|
|
9111
|
-
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 =>
|
|
9271
|
+
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
9272
|
}
|
|
9113
9273
|
|
|
9114
9274
|
/* Config.setConfig : Config => String -> String -> Promise' Config */
|
|
@@ -9120,14 +9280,14 @@ function Config_setConfig($0, $1, $2) {
|
|
|
9120
9280
|
function Config_propSetter($0, $1) {
|
|
9121
9281
|
return $2 => {
|
|
9122
9282
|
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(
|
|
9283
|
+
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);
|
|
9284
|
+
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);
|
|
9285
|
+
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);
|
|
9286
|
+
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);
|
|
9287
|
+
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);
|
|
9288
|
+
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);
|
|
9289
|
+
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);
|
|
9290
|
+
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
9291
|
}
|
|
9132
9292
|
};
|
|
9133
9293
|
}
|
|
@@ -9157,7 +9317,7 @@ function Config_preferOriginRemote($0) {
|
|
|
9157
9317
|
|
|
9158
9318
|
/* Config.parseGitHubURI : String -> Maybe GitRemote */
|
|
9159
9319
|
function Config_parseGitHubURI($0) {
|
|
9160
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
9320
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(Config_n__8653_1560_parseHTTPS($0, $0), () => Config_n__8653_1561_parseSSH($0, $0));
|
|
9161
9321
|
}
|
|
9162
9322
|
|
|
9163
9323
|
/* Config.parseBool : String -> Maybe Bool */
|
|
@@ -9268,14 +9428,14 @@ function Config_findConfig($0, $1, $2) {
|
|
|
9268
9428
|
|
|
9269
9429
|
/* Config.dropPrefix' : String -> String -> Maybe String */
|
|
9270
9430
|
function Config_dropPrefixx27($0, $1) {
|
|
9271
|
-
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4),
|
|
9431
|
+
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4), Config_n__8606_1513_dropx27($0, Prelude_Types_fastUnpack($1)));
|
|
9272
9432
|
}
|
|
9273
9433
|
|
|
9274
9434
|
/* Config.createConfig : Git => Maybe String -> Bool -> Nat -> Maybe String -> Promise' Config */
|
|
9275
9435
|
function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
9276
9436
|
const $25 = $26 => $27 => $28 => {
|
|
9277
9437
|
const $2d = $2e => {
|
|
9278
|
-
const $30 =
|
|
9438
|
+
const $30 = Config_n__9586_2536_enterForDefaultStr($0, $4, $3, $2, $1, 'unset');
|
|
9279
9439
|
const $2f = () => $38 => $39 => {
|
|
9280
9440
|
const $63 = $64 => $65 => $66 => {
|
|
9281
9441
|
const $68 = $69 => $6a => {
|
|
@@ -9285,7 +9445,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9285
9445
|
default: return {a1: Data_String_trim($6d)};
|
|
9286
9446
|
}
|
|
9287
9447
|
};
|
|
9288
|
-
return Data_Promise_map_Functor_x28Promisex20x24ex29($6c,
|
|
9448
|
+
return Data_Promise_map_Functor_x28Promisex20x24ex29($6c, csegen_405()(), $69, $6a);
|
|
9289
9449
|
};
|
|
9290
9450
|
const $79 = configPAT => $7a => $7b => {
|
|
9291
9451
|
const $87 = $88 => $89 => $8a => {
|
|
@@ -9294,17 +9454,17 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9294
9454
|
const $9e = remoteGuess => $9f => $a0 => {
|
|
9295
9455
|
const $bd = defaultOrgAndRepo => $be => $bf => {
|
|
9296
9456
|
const $c4 = $c5 => {
|
|
9297
|
-
const $c7 =
|
|
9457
|
+
const $c7 = Config_n__9586_2535_defaultStr($0, $4, $3, $2, $1, csegen_364()(), defaultOrgAndRepo);
|
|
9298
9458
|
const $c6 = () => $d2 => $d3 => {
|
|
9299
9459
|
const $f1 = $f2 => $f3 => $f4 => {
|
|
9300
9460
|
const $10d = org => $10e => $10f => {
|
|
9301
9461
|
const $114 = $115 => {
|
|
9302
|
-
const $117 =
|
|
9462
|
+
const $117 = Config_n__9586_2535_defaultStr($0, $4, $3, $2, $1, csegen_318()(), defaultOrgAndRepo);
|
|
9303
9463
|
const $116 = () => $122 => $123 => {
|
|
9304
9464
|
const $141 = $142 => $143 => $144 => {
|
|
9305
9465
|
const $15d = repo => $15e => $15f => {
|
|
9306
9466
|
const $164 = $165 => {
|
|
9307
|
-
const $167 =
|
|
9467
|
+
const $167 = Config_n__9586_2536_enterForDefaultStr($0, $4, $3, $2, $1, remoteGuess);
|
|
9308
9468
|
const $166 = () => $16f => $170 => {
|
|
9309
9469
|
const $18e = $18f => $190 => $191 => {
|
|
9310
9470
|
const $1a4 = defaultRemote => $1a5 => $1a6 => {
|
|
@@ -9338,7 +9498,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9338
9498
|
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
9499
|
};
|
|
9340
9500
|
};
|
|
9341
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9501
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_377()(), $24b, $245, $246);
|
|
9342
9502
|
};
|
|
9343
9503
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($23c => $23d => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $23c, $23d), $244, $238, $239);
|
|
9344
9504
|
};
|
|
@@ -9346,53 +9506,53 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9346
9506
|
};
|
|
9347
9507
|
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
9508
|
};
|
|
9349
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9509
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $213, $20d, $20e);
|
|
9350
9510
|
};
|
|
9351
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9511
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9586_2540_themePrompt($0, $4, $3, $2, $1, csegen_74()()), $20c, $1ff, $200);
|
|
9352
9512
|
};
|
|
9353
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9513
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $1fd, $1f7, $1f8);
|
|
9354
9514
|
};
|
|
9355
9515
|
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
9516
|
};
|
|
9357
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9517
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $1ea, $1e4, $1e5);
|
|
9358
9518
|
};
|
|
9359
9519
|
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
9520
|
};
|
|
9361
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9521
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $1d7, $1d1, $1d2);
|
|
9362
9522
|
};
|
|
9363
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9523
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9586_2533_branchParsingPrompt($0, $4, $3, $2, $1, csegen_74()()), $1d0, $1c3, $1c4);
|
|
9364
9524
|
};
|
|
9365
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9525
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $1c1, $1bb, $1bc);
|
|
9366
9526
|
};
|
|
9367
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9527
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9586_2534_commentConfigPrompt($0, $4, $3, $2, $1, csegen_74()()), $1ba, $1ad, $1ae);
|
|
9368
9528
|
};
|
|
9369
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9529
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $1ab, $1a5, $1a6);
|
|
9370
9530
|
};
|
|
9371
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($194 => $195 => Data_Promise_map_Functor_x28Promisex20x24ex29($198 => Util_Prompting_orIfEmpty({a1: remoteGuess}, Data_String_trim($198)),
|
|
9531
|
+
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
9532
|
};
|
|
9373
9533
|
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
9534
|
};
|
|
9375
9535
|
return $166();
|
|
9376
9536
|
};
|
|
9377
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9537
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $164, $15e, $15f);
|
|
9378
9538
|
};
|
|
9379
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($147 => $148 => Data_Promise_map_Functor_x28Promisex20x24ex29($14b => Util_Prompting_orIfEmpty(
|
|
9539
|
+
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
9540
|
};
|
|
9381
9541
|
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
9542
|
};
|
|
9383
9543
|
return $116();
|
|
9384
9544
|
};
|
|
9385
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9545
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $114, $10e, $10f);
|
|
9386
9546
|
};
|
|
9387
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f7 => $f8 => Data_Promise_map_Functor_x28Promisex20x24ex29($fb => Util_Prompting_orIfEmpty(
|
|
9547
|
+
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
9548
|
};
|
|
9389
9549
|
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
9550
|
};
|
|
9391
9551
|
return $c6();
|
|
9392
9552
|
};
|
|
9393
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9553
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $c4, $be, $bf);
|
|
9394
9554
|
};
|
|
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), () =>
|
|
9555
|
+
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
9556
|
};
|
|
9397
9557
|
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
9558
|
}
|
|
@@ -9407,14 +9567,14 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9407
9567
|
};
|
|
9408
9568
|
return $2f();
|
|
9409
9569
|
};
|
|
9410
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9570
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $2d, $27, $28);
|
|
9411
9571
|
};
|
|
9412
9572
|
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
9573
|
}
|
|
9414
9574
|
|
|
9415
9575
|
/* Config.checkConfigConsistency : Config -> Either (Doc AnsiStyle) () */
|
|
9416
9576
|
function Config_checkConfigConsistency($0) {
|
|
9417
|
-
return
|
|
9577
|
+
return Config_n__8495_1406_checkRequestSettings($0, $0);
|
|
9418
9578
|
}
|
|
9419
9579
|
|
|
9420
9580
|
/* Config.addIgnoredPRs : Config -> List Integer -> Promise' Config */
|
|
@@ -9471,21 +9631,21 @@ function AppVersion_printVersion($0) {
|
|
|
9471
9631
|
|
|
9472
9632
|
/* AppVersion.appVersion : String */
|
|
9473
9633
|
const AppVersion_appVersion = __lazy(function () {
|
|
9474
|
-
return '5.
|
|
9634
|
+
return '5.6.0';
|
|
9475
9635
|
});
|
|
9476
9636
|
|
|
9477
9637
|
/* Commands.Help.subcommandHelp' : String -> Doc AnsiStyle */
|
|
9478
9638
|
function Commands_Help_subcommandHelpx27($0) {
|
|
9479
9639
|
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:
|
|
9640
|
+
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}});
|
|
9641
|
+
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
9642
|
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:
|
|
9643
|
+
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
9644
|
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
9645
|
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
9646
|
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}});
|
|
9487
9647
|
case 'version': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print version'), a2: {h: 0}});
|
|
9488
|
-
case 'quick': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Quickly spin up new work with a GitHub issue and associated feature branch. If you have harmony configured to parse GitHub issue numbers ('), a2: {a1: Commands_Help_shell('harmony config branchParsing github'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(') then any PR created from the new branch will automatically link to the new ticket in its description.'), a2: {h: 0}}}}), a2: {h: 0}});
|
|
9648
|
+
case 'quick': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--bugfix'), a2: {h: 0}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Quickly spin up new work with a GitHub issue and associated feature branch. If you have harmony configured to parse GitHub issue numbers ('), a2: {a1: Commands_Help_shell('harmony config branchParsing github'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(') then any PR created from the new branch will automatically link to the new ticket in its description.'), a2: {h: 0}}}}), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $13c => $13c, {a1: 'By default the branch will have the \'feature\' prefix. If the\n--bugfix flag is specified, the \'bugfix\' prefix will be used.', a2: {h: 0}})), a2: {h: 0}}});
|
|
9489
9649
|
case 'sync': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Synchronize local config with information from GitHub.'), a2: {h: 0}});
|
|
9490
9650
|
case 'branch': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print the GitHub URI for the currently checked out branch.'), a2: {h: 0}});
|
|
9491
9651
|
case 'whoami': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Print information about the configured and authenticated user.'), a2: {h: 0}});
|
|
@@ -9493,7 +9653,7 @@ function Commands_Help_subcommandHelpx27($0) {
|
|
|
9493
9653
|
case 'list': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '<team-slug>'), a2: {h: 0}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('List all teams or the members of the given GitHub Team.'), a2: {h: 0}});
|
|
9494
9654
|
case 'health': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Graph all open PRs grouped by the month they were created.'), a2: {h: 0}});
|
|
9495
9655
|
case 'rq': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Alias for \'request\' command.'), a2: {h: 0}});
|
|
9496
|
-
default: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
9656
|
+
default: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $185 => $185, {a1: 'Unreconized command: ', a2: {a1: $0, a2: {h: 0}}}));
|
|
9497
9657
|
}
|
|
9498
9658
|
}
|
|
9499
9659
|
|
|
@@ -9692,7 +9852,7 @@ function Commands_case__request_19159($0, $1, $2, $3, $4, $5) {
|
|
|
9692
9852
|
|
|
9693
9853
|
/* Commands.case block in case block in request,partitionedArgs */
|
|
9694
9854
|
function Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_19079($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
9695
|
-
const $9 = Prelude_Interfaces_mapHom(
|
|
9855
|
+
const $9 = Prelude_Interfaces_mapHom(csegen_603(), $f => Prelude_Types_List_mapAppend({h: 0}, $13 => Data_String_Extra_drop(1n, $13), $f))({a1: $5, a2: $7.a1});
|
|
9696
9856
|
return {a1: $9.a1, a2: {a1: $7.a2, a2: $9.a2}};
|
|
9697
9857
|
}
|
|
9698
9858
|
|
|
@@ -9701,30 +9861,30 @@ function Commands_case__requestx2cpartitionedArgs_19056($0, $1, $2, $3, $4, $5)
|
|
|
9701
9861
|
return Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_19079($0, $1, $2, $3, $4, $5.a1, $5.a2, Data_List_partition($12 => BashCompletion_isHashPrefix($12), $5.a2));
|
|
9702
9862
|
}
|
|
9703
9863
|
|
|
9704
|
-
/* Commands.
|
|
9705
|
-
function
|
|
9864
|
+
/* Commands.8933:18213:recombineIntoArgs */
|
|
9865
|
+
function Commands_n__8933_18213_recombineIntoArgs($0, $1) {
|
|
9706
9866
|
switch($1.h) {
|
|
9707
9867
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
9708
9868
|
case undefined: /* cons */ {
|
|
9709
9869
|
switch($1.a1) {
|
|
9710
9870
|
case '-i': {
|
|
9711
9871
|
switch($1.a2.h) {
|
|
9712
|
-
case 0: /* nil */ return
|
|
9872
|
+
case 0: /* nil */ return csegen_607();
|
|
9713
9873
|
case undefined: /* cons */ {
|
|
9714
|
-
const $8 =
|
|
9874
|
+
const $8 = Commands_n__8933_18211_parseIntoOpt($0, $1.a2.a1);
|
|
9715
9875
|
switch($8.h) {
|
|
9716
9876
|
case undefined: /* just */ {
|
|
9717
|
-
const $c =
|
|
9877
|
+
const $c = Commands_n__8933_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9718
9878
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
9719
9879
|
}
|
|
9720
9880
|
case 0: /* nothing */ {
|
|
9721
|
-
const $14 =
|
|
9881
|
+
const $14 = Commands_n__8933_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9722
9882
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
9723
9883
|
}
|
|
9724
9884
|
}
|
|
9725
9885
|
}
|
|
9726
9886
|
default: {
|
|
9727
|
-
const $1e =
|
|
9887
|
+
const $1e = Commands_n__8933_18213_recombineIntoArgs($0, $1.a2);
|
|
9728
9888
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
9729
9889
|
}
|
|
9730
9890
|
}
|
|
@@ -9733,26 +9893,26 @@ function Commands_n__8916_18213_recombineIntoArgs($0, $1) {
|
|
|
9733
9893
|
switch($1.a2.h) {
|
|
9734
9894
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--into', a2: {h: 0}}};
|
|
9735
9895
|
case undefined: /* cons */ {
|
|
9736
|
-
const $2b =
|
|
9896
|
+
const $2b = Commands_n__8933_18211_parseIntoOpt($0, $1.a2.a1);
|
|
9737
9897
|
switch($2b.h) {
|
|
9738
9898
|
case undefined: /* just */ {
|
|
9739
|
-
const $2f =
|
|
9899
|
+
const $2f = Commands_n__8933_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9740
9900
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
9741
9901
|
}
|
|
9742
9902
|
case 0: /* nothing */ {
|
|
9743
|
-
const $37 =
|
|
9903
|
+
const $37 = Commands_n__8933_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9744
9904
|
return {a1: $37.a1, a2: {a1: '--into', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
9745
9905
|
}
|
|
9746
9906
|
}
|
|
9747
9907
|
}
|
|
9748
9908
|
default: {
|
|
9749
|
-
const $41 =
|
|
9909
|
+
const $41 = Commands_n__8933_18213_recombineIntoArgs($0, $1.a2);
|
|
9750
9910
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
9751
9911
|
}
|
|
9752
9912
|
}
|
|
9753
9913
|
}
|
|
9754
9914
|
default: {
|
|
9755
|
-
const $49 =
|
|
9915
|
+
const $49 = Commands_n__8933_18213_recombineIntoArgs($0, $1.a2);
|
|
9756
9916
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
9757
9917
|
}
|
|
9758
9918
|
}
|
|
@@ -9760,30 +9920,30 @@ function Commands_n__8916_18213_recombineIntoArgs($0, $1) {
|
|
|
9760
9920
|
}
|
|
9761
9921
|
}
|
|
9762
9922
|
|
|
9763
|
-
/* Commands.
|
|
9764
|
-
function
|
|
9923
|
+
/* Commands.10985:20153:recombineIgnoreArgs */
|
|
9924
|
+
function Commands_n__10985_20153_recombineIgnoreArgs($0, $1) {
|
|
9765
9925
|
switch($1.h) {
|
|
9766
9926
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
9767
9927
|
case undefined: /* cons */ {
|
|
9768
9928
|
switch($1.a1) {
|
|
9769
9929
|
case '-i': {
|
|
9770
9930
|
switch($1.a2.h) {
|
|
9771
|
-
case 0: /* nil */ return
|
|
9931
|
+
case 0: /* nil */ return csegen_607();
|
|
9772
9932
|
case undefined: /* cons */ {
|
|
9773
|
-
const $8 =
|
|
9933
|
+
const $8 = Commands_n__10985_20150_parseIgnoreOpt($0, $1.a2.a1);
|
|
9774
9934
|
switch($8.h) {
|
|
9775
9935
|
case undefined: /* just */ {
|
|
9776
|
-
const $c =
|
|
9936
|
+
const $c = Commands_n__10985_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9777
9937
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
9778
9938
|
}
|
|
9779
9939
|
case 0: /* nothing */ {
|
|
9780
|
-
const $14 =
|
|
9940
|
+
const $14 = Commands_n__10985_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9781
9941
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
9782
9942
|
}
|
|
9783
9943
|
}
|
|
9784
9944
|
}
|
|
9785
9945
|
default: {
|
|
9786
|
-
const $1e =
|
|
9946
|
+
const $1e = Commands_n__10985_20153_recombineIgnoreArgs($0, $1.a2);
|
|
9787
9947
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
9788
9948
|
}
|
|
9789
9949
|
}
|
|
@@ -9792,26 +9952,26 @@ function Commands_n__10968_20153_recombineIgnoreArgs($0, $1) {
|
|
|
9792
9952
|
switch($1.a2.h) {
|
|
9793
9953
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
|
|
9794
9954
|
case undefined: /* cons */ {
|
|
9795
|
-
const $2b =
|
|
9955
|
+
const $2b = Commands_n__10985_20150_parseIgnoreOpt($0, $1.a2.a1);
|
|
9796
9956
|
switch($2b.h) {
|
|
9797
9957
|
case undefined: /* just */ {
|
|
9798
|
-
const $2f =
|
|
9958
|
+
const $2f = Commands_n__10985_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9799
9959
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
9800
9960
|
}
|
|
9801
9961
|
case 0: /* nothing */ {
|
|
9802
|
-
const $37 =
|
|
9962
|
+
const $37 = Commands_n__10985_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9803
9963
|
return {a1: $37.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
9804
9964
|
}
|
|
9805
9965
|
}
|
|
9806
9966
|
}
|
|
9807
9967
|
default: {
|
|
9808
|
-
const $41 =
|
|
9968
|
+
const $41 = Commands_n__10985_20153_recombineIgnoreArgs($0, $1.a2);
|
|
9809
9969
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
9810
9970
|
}
|
|
9811
9971
|
}
|
|
9812
9972
|
}
|
|
9813
9973
|
default: {
|
|
9814
|
-
const $49 =
|
|
9974
|
+
const $49 = Commands_n__10985_20153_recombineIgnoreArgs($0, $1.a2);
|
|
9815
9975
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
9816
9976
|
}
|
|
9817
9977
|
}
|
|
@@ -9819,23 +9979,23 @@ function Commands_n__10968_20153_recombineIgnoreArgs($0, $1) {
|
|
|
9819
9979
|
}
|
|
9820
9980
|
}
|
|
9821
9981
|
|
|
9822
|
-
/* Commands.
|
|
9823
|
-
function
|
|
9982
|
+
/* Commands.10199:19397:putNameLn */
|
|
9983
|
+
function Commands_n__10199_19397_putNameLn($0, $1, $2, $3) {
|
|
9824
9984
|
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
9985
|
}
|
|
9826
9986
|
|
|
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 =>
|
|
9987
|
+
/* Commands.8671:17949:putLabels */
|
|
9988
|
+
function Commands_n__8671_17949_putLabels($0, $1, $2, $3, $4) {
|
|
9989
|
+
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__8671_17948_putLabel($0, $1, $2, $3, $f), $4)));
|
|
9830
9990
|
}
|
|
9831
9991
|
|
|
9832
|
-
/* Commands.
|
|
9833
|
-
function
|
|
9992
|
+
/* Commands.8671:17948:putLabel */
|
|
9993
|
+
function Commands_n__8671_17948_putLabel($0, $1, $2, $3, $4) {
|
|
9834
9994
|
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
9995
|
}
|
|
9836
9996
|
|
|
9837
|
-
/* Commands.
|
|
9838
|
-
function
|
|
9997
|
+
/* Commands.11337:20514:printDetails */
|
|
9998
|
+
function Commands_n__11337_20514_printDetails($0, $1, $2, $3, $4) {
|
|
9839
9999
|
const $5 = Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4.a8));
|
|
9840
10000
|
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
10001
|
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 +10004,8 @@ function Commands_n__11320_20514_printDetails($0, $1, $2, $3, $4) {
|
|
|
9844
10004
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: $5, a2: {a1: $d, a2: {a1: $16, a2: {a1: $21, a2: {a1: $2f, a2: {h: 0}}}}}});
|
|
9845
10005
|
}
|
|
9846
10006
|
|
|
9847
|
-
/* Commands.
|
|
9848
|
-
function
|
|
10007
|
+
/* Commands.11337:20513:pickOne */
|
|
10008
|
+
function Commands_n__11337_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
9849
10009
|
const $9 = Data_List_headx27(Data_List_drop($5, Prelude_Types_List_tailRecAppend($7, $8)));
|
|
9850
10010
|
return $12 => $13 => {
|
|
9851
10011
|
switch($9.h) {
|
|
@@ -9859,7 +10019,7 @@ function Commands_n__11320_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
9859
10019
|
break;
|
|
9860
10020
|
}
|
|
9861
10021
|
case 0: /* nothing */ {
|
|
9862
|
-
$1a =
|
|
10022
|
+
$1a = csegen_612();
|
|
9863
10023
|
break;
|
|
9864
10024
|
}
|
|
9865
10025
|
}
|
|
@@ -9869,23 +10029,23 @@ function Commands_n__11320_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
9869
10029
|
};
|
|
9870
10030
|
}
|
|
9871
10031
|
|
|
9872
|
-
/* Commands.
|
|
9873
|
-
function
|
|
10032
|
+
/* Commands.9799:19044:partitionedArgs */
|
|
10033
|
+
function Commands_n__9799_19044_partitionedArgs($0, $1, $2, $3, $4) {
|
|
9874
10034
|
return Commands_case__requestx2cpartitionedArgs_19056($0, $1, $2, $3, $4, Data_List_partition($e => Data_String_isPrefixOf('+', $e), $4));
|
|
9875
10035
|
}
|
|
9876
10036
|
|
|
9877
|
-
/* Commands.
|
|
9878
|
-
function
|
|
10037
|
+
/* Commands.10367:19585:parseTeamArg */
|
|
10038
|
+
function Commands_n__10367_19585_parseTeamArg($0, $1) {
|
|
9879
10039
|
return {a1: {a1: $1}};
|
|
9880
10040
|
}
|
|
9881
10041
|
|
|
9882
|
-
/* Commands.
|
|
9883
|
-
function
|
|
10042
|
+
/* Commands.10985:20152:parseSkipArg */
|
|
10043
|
+
function Commands_n__10985_20152_parseSkipArg($0, $1) {
|
|
9884
10044
|
return Commands_case__parseContributeArgsx2cparseSkipArg_20199($0, $1, Data_String_strM($1));
|
|
9885
10045
|
}
|
|
9886
10046
|
|
|
9887
|
-
/* Commands.
|
|
9888
|
-
function
|
|
10047
|
+
/* Commands.10985:20151:parseListFlag */
|
|
10048
|
+
function Commands_n__10985_20151_parseListFlag($0, $1) {
|
|
9889
10049
|
switch($1) {
|
|
9890
10050
|
case '-l': return {a1: {h: 0 /* List */}};
|
|
9891
10051
|
case '--list': return {a1: {h: 0 /* List */}};
|
|
@@ -9893,8 +10053,8 @@ function Commands_n__10968_20151_parseListFlag($0, $1) {
|
|
|
9893
10053
|
}
|
|
9894
10054
|
}
|
|
9895
10055
|
|
|
9896
|
-
/* Commands.
|
|
9897
|
-
function
|
|
10056
|
+
/* Commands.8933:18212:parseLabelArg */
|
|
10057
|
+
function Commands_n__8933_18212_parseLabelArg($0, $1) {
|
|
9898
10058
|
const $2 = Data_String_strM($1);
|
|
9899
10059
|
switch($2.h) {
|
|
9900
10060
|
case undefined: /* cons */ {
|
|
@@ -9907,29 +10067,29 @@ function Commands_n__8916_18212_parseLabelArg($0, $1) {
|
|
|
9907
10067
|
}
|
|
9908
10068
|
}
|
|
9909
10069
|
|
|
9910
|
-
/* Commands.
|
|
9911
|
-
function
|
|
10070
|
+
/* Commands.8933:18211:parseIntoOpt */
|
|
10071
|
+
function Commands_n__8933_18211_parseIntoOpt($0, $1) {
|
|
9912
10072
|
const $2 = Util_String_nonEmpty($1);
|
|
9913
10073
|
return Prelude_Types_map_Functor_Maybe($7 => $7, $2);
|
|
9914
10074
|
}
|
|
9915
10075
|
|
|
9916
|
-
/* Commands.
|
|
9917
|
-
function
|
|
9918
|
-
const $2 = Data_String_split(
|
|
10076
|
+
/* Commands.10985:20150:parseIgnoreOpt */
|
|
10077
|
+
function Commands_n__10985_20150_parseIgnoreOpt($0, $1) {
|
|
10078
|
+
const $2 = Data_String_split(csegen_358(), $1);
|
|
9919
10079
|
const $7 = Data_List1_last($2);
|
|
9920
10080
|
return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
|
|
9921
10081
|
}
|
|
9922
10082
|
|
|
9923
|
-
/* Commands.
|
|
9924
|
-
function
|
|
10083
|
+
/* Commands.8933:18210:parseDraftFlag */
|
|
10084
|
+
function Commands_n__8933_18210_parseDraftFlag($0, $1) {
|
|
9925
10085
|
switch($1) {
|
|
9926
10086
|
case '--draft': return {a1: {h: 0 /* Draft */}};
|
|
9927
10087
|
default: return {h: 0};
|
|
9928
10088
|
}
|
|
9929
10089
|
}
|
|
9930
10090
|
|
|
9931
|
-
/* Commands.
|
|
9932
|
-
function
|
|
10091
|
+
/* Commands.10367:19584:parseCompletedFlag */
|
|
10092
|
+
function Commands_n__10367_19584_parseCompletedFlag($0, $1) {
|
|
9933
10093
|
switch($1) {
|
|
9934
10094
|
case '-c': return {a1: {h: 0}};
|
|
9935
10095
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -9937,8 +10097,8 @@ function Commands_n__10350_19584_parseCompletedFlag($0, $1) {
|
|
|
9937
10097
|
}
|
|
9938
10098
|
}
|
|
9939
10099
|
|
|
9940
|
-
/* Commands.
|
|
9941
|
-
function
|
|
10100
|
+
/* Commands.10985:20149:parseCheckoutFlag */
|
|
10101
|
+
function Commands_n__10985_20149_parseCheckoutFlag($0, $1) {
|
|
9942
10102
|
switch($1) {
|
|
9943
10103
|
case '-c': return {a1: {h: 1 /* Checkout */}};
|
|
9944
10104
|
case '--checkout': return {a1: {h: 1 /* Checkout */}};
|
|
@@ -9946,8 +10106,8 @@ function Commands_n__10968_20149_parseCheckoutFlag($0, $1) {
|
|
|
9946
10106
|
}
|
|
9947
10107
|
}
|
|
9948
10108
|
|
|
9949
|
-
/* Commands.
|
|
9950
|
-
function
|
|
10109
|
+
/* Commands.11337:20512:listSome */
|
|
10110
|
+
function Commands_n__11337_20512_listSome($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
9951
10111
|
const $15 = $16 => {
|
|
9952
10112
|
let $1b;
|
|
9953
10113
|
switch(Prelude_Types_null_Foldable_List($6)) {
|
|
@@ -9960,13 +10120,13 @@ function Commands_n__11320_20512_listSome($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
9960
10120
|
break;
|
|
9961
10121
|
}
|
|
9962
10122
|
}
|
|
9963
|
-
return Prelude_Interfaces_when(csegen_66()(), $1b, () => $20 => $21 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10123
|
+
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__11337_20510_goListSome($0, $1, $2, $3, 0, Data_List_take(5n, $6)), $28, $29), $20, $21));
|
|
9964
10124
|
};
|
|
9965
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10125
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_n__11337_20510_goListSome($0, $1, $2, $3, 1, Data_List_drop($4, $5)), $15, $7, $8);
|
|
9966
10126
|
}
|
|
9967
10127
|
|
|
9968
|
-
/* Commands.
|
|
9969
|
-
function
|
|
10128
|
+
/* Commands.9359:18641:labelSlugs */
|
|
10129
|
+
function Commands_n__9359_18641_labelSlugs($0, $1, $2, $3) {
|
|
9970
10130
|
const $5 = $6 => $7 => {
|
|
9971
10131
|
switch($6.h) {
|
|
9972
10132
|
case 2: /* Label */ return {a1: $6.a1, a2: $7};
|
|
@@ -9976,18 +10136,13 @@ function Commands_n__9342_18641_labelSlugs($0, $1, $2, $3) {
|
|
|
9976
10136
|
return Prelude_Types_foldr_Foldable_List($5, {h: 0}, $3);
|
|
9977
10137
|
}
|
|
9978
10138
|
|
|
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) {
|
|
10139
|
+
/* Commands.11337:20511:isNotIgnored */
|
|
10140
|
+
function Commands_n__11337_20511_isNotIgnored($0, $1, $2, $3, $4, $5) {
|
|
9986
10141
|
return Data_Maybe_isNothing(Data_List_find($a => Prelude_EqOrd_x3dx3d_Eq_Integer($a, $5.a1), $4.a13));
|
|
9987
10142
|
}
|
|
9988
10143
|
|
|
9989
|
-
/* Commands.
|
|
9990
|
-
function
|
|
10144
|
+
/* Commands.9359:18640:isDraft */
|
|
10145
|
+
function Commands_n__9359_18640_isDraft($0, $1, $2, $3) {
|
|
9991
10146
|
const $7 = $8 => {
|
|
9992
10147
|
switch($8.h) {
|
|
9993
10148
|
case 0: /* Draft */ return 1;
|
|
@@ -9998,8 +10153,8 @@ function Commands_n__9342_18640_isDraft($0, $1, $2, $3) {
|
|
|
9998
10153
|
return Data_Maybe_isJust($5);
|
|
9999
10154
|
}
|
|
10000
10155
|
|
|
10001
|
-
/* Commands.
|
|
10002
|
-
function
|
|
10156
|
+
/* Commands.9359:18639:intoBranch */
|
|
10157
|
+
function Commands_n__9359_18639_intoBranch($0, $1, $2, $3) {
|
|
10003
10158
|
const $d = $e => {
|
|
10004
10159
|
switch($e.h) {
|
|
10005
10160
|
case 1: /* Into */ return {a1: Util_String_value($e.a1)};
|
|
@@ -10009,11 +10164,11 @@ function Commands_n__9342_18639_intoBranch($0, $1, $2, $3) {
|
|
|
10009
10164
|
return Prelude_Types_foldMap_Foldable_List({a1: $7 => $8 => Prelude_Types_x3cx2bx3e_Semigroup_x28Maybex20x24ax29($7, $8), a2: {h: 0}}, $d, $3);
|
|
10010
10165
|
}
|
|
10011
10166
|
|
|
10012
|
-
/* Commands.
|
|
10013
|
-
function
|
|
10167
|
+
/* Commands.11337:20510:goListSome */
|
|
10168
|
+
function Commands_n__11337_20510_goListSome($0, $1, $2, $3, $4, $5) {
|
|
10014
10169
|
switch($5.h) {
|
|
10015
10170
|
case undefined: /* cons */ {
|
|
10016
|
-
const $7 =
|
|
10171
|
+
const $7 = Commands_n__11337_20514_printDetails($0, $1, $2, $3, $5.a1);
|
|
10017
10172
|
let $15;
|
|
10018
10173
|
switch($4) {
|
|
10019
10174
|
case 1: {
|
|
@@ -10025,15 +10180,15 @@ function Commands_n__11320_20510_goListSome($0, $1, $2, $3, $4, $5) {
|
|
|
10025
10180
|
break;
|
|
10026
10181
|
}
|
|
10027
10182
|
}
|
|
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:
|
|
10183
|
+
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__11337_20514_printDetails($0, $1, $2, $3, next), a2: {h: 0}}}}), $7, $5.a2));
|
|
10029
10184
|
return Util_renderIO($3, csegen_74()(), $13);
|
|
10030
10185
|
}
|
|
10031
|
-
case 0: /* nil */ return
|
|
10186
|
+
case 0: /* nil */ return csegen_612();
|
|
10032
10187
|
}
|
|
10033
10188
|
}
|
|
10034
10189
|
|
|
10035
|
-
/* Commands.
|
|
10036
|
-
function
|
|
10190
|
+
/* Commands.10199:19396:forkedUser */
|
|
10191
|
+
function Commands_n__10199_19396_forkedUser($0, $1, $2, $3) {
|
|
10037
10192
|
return FFI_Concurrency_fork(csegen_74()(), ('user --json '+$3));
|
|
10038
10193
|
}
|
|
10039
10194
|
|
|
@@ -10066,7 +10221,7 @@ function Commands_skipArg($0) {
|
|
|
10066
10221
|
/* Commands.request : Config => Git => Octokit => List String -> {default False _ : Bool} ->
|
|
10067
10222
|
Promise' () */
|
|
10068
10223
|
function Commands_request($0, $1, $2, $3, $4) {
|
|
10069
|
-
return Commands_case__request_19159($0, $1, $2, $4, $3,
|
|
10224
|
+
return Commands_case__request_19159($0, $1, $2, $4, $3, Commands_n__9799_19044_partitionedArgs($0, $1, $2, $4, $3));
|
|
10070
10225
|
}
|
|
10071
10226
|
|
|
10072
10227
|
/* Commands.reflect : Config => Octokit => Promise' () */
|
|
@@ -10074,9 +10229,9 @@ function Commands_reflect($0, $1, $2, $3) {
|
|
|
10074
10229
|
return Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3);
|
|
10075
10230
|
}
|
|
10076
10231
|
|
|
10077
|
-
/* Commands.quick : Config => Git => Octokit => Promise' () */
|
|
10078
|
-
function Commands_quick($0, $1, $2, $3, $4) {
|
|
10079
|
-
return
|
|
10232
|
+
/* Commands.quick : Config => Git => Octokit => IssueCategory -> Promise' () */
|
|
10233
|
+
function Commands_quick($0, $1, $2, $3, $4, $5) {
|
|
10234
|
+
return Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5);
|
|
10080
10235
|
}
|
|
10081
10236
|
|
|
10082
10237
|
/* Commands.prUsageError : String */
|
|
@@ -10097,7 +10252,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10097
10252
|
};
|
|
10098
10253
|
const $48 = $49 => $4a => $4b => {
|
|
10099
10254
|
let $52;
|
|
10100
|
-
switch(Prelude_Types_null_Foldable_List(
|
|
10255
|
+
switch(Prelude_Types_null_Foldable_List(Commands_n__9359_18641_labelSlugs($0, $1, $2, $3))) {
|
|
10101
10256
|
case 1: {
|
|
10102
10257
|
$52 = 0;
|
|
10103
10258
|
break;
|
|
@@ -10107,10 +10262,10 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10107
10262
|
break;
|
|
10108
10263
|
}
|
|
10109
10264
|
}
|
|
10110
|
-
const $4d = Prelude_Interfaces_when(csegen_66()(), $52, () => $5c => $5d => Commands_label($0, $1, $2,
|
|
10265
|
+
const $4d = Prelude_Interfaces_when(csegen_66()(), $52, () => $5c => $5d => Commands_label($0, $1, $2, Commands_n__9359_18641_labelSlugs($0, $1, $2, $3), $5c, $5d));
|
|
10111
10266
|
const $6a = $6b => $6c => $6d => {
|
|
10112
10267
|
const $6f = $70 => {
|
|
10113
|
-
const $71 =
|
|
10268
|
+
const $71 = Commands_n__9359_18639_intoBranch($0, $1, $2, $3);
|
|
10114
10269
|
switch($71.h) {
|
|
10115
10270
|
case undefined: /* just */ {
|
|
10116
10271
|
return $77 => {
|
|
@@ -10125,7 +10280,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10125
10280
|
};
|
|
10126
10281
|
const $96 = $97 => {
|
|
10127
10282
|
let $9c;
|
|
10128
|
-
switch(
|
|
10283
|
+
switch(Commands_n__9359_18640_isDraft($0, $1, $2, $3)) {
|
|
10129
10284
|
case 1: {
|
|
10130
10285
|
switch($2c.a2.a4) {
|
|
10131
10286
|
case 1: {
|
|
@@ -10154,7 +10309,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10154
10309
|
};
|
|
10155
10310
|
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
10311
|
};
|
|
10157
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10312
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $ac, $a6, $a7);
|
|
10158
10313
|
});
|
|
10159
10314
|
};
|
|
10160
10315
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6f, $96, $6c, $6d);
|
|
@@ -10166,7 +10321,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10166
10321
|
case 1: /* Hypothetical */ return $f4 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($f7 => Prelude_IO_prim__putStr(($2c.a1+'\n'), $f7), $2d, $2e, $f4);
|
|
10167
10322
|
}
|
|
10168
10323
|
};
|
|
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,
|
|
10324
|
+
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__9359_18640_isDraft($0, $1, $2, $3), Commands_n__9359_18639_intoBranch($0, $1, $2, $3), $13, $14, $15), $8, $9), $2b, $4, $5);
|
|
10170
10325
|
}
|
|
10171
10326
|
|
|
10172
10327
|
/* Commands.parsePrArgs : List String -> Either String (List PrArg) */
|
|
@@ -10174,9 +10329,9 @@ function Commands_parsePrArgs($0) {
|
|
|
10174
10329
|
switch($0.h) {
|
|
10175
10330
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
10176
10331
|
default: {
|
|
10177
|
-
const $3 =
|
|
10332
|
+
const $3 = Commands_n__8933_18213_recombineIntoArgs($0, $0);
|
|
10178
10333
|
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(
|
|
10334
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_627(), $18 => Commands_n__8933_18210_parseDraftFlag($0, $18), $1d => Commands_n__8933_18212_parseLabelArg($0, $1d), $13), $3.a2);
|
|
10180
10335
|
return Data_Either_maybeToEither(() => Commands_prUsageError(), Prelude_Types_map_Functor_Maybe($29 => Prelude_Types_List_tailRecAppend($7, $29), $e));
|
|
10181
10336
|
}
|
|
10182
10337
|
}
|
|
@@ -10192,7 +10347,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10192
10347
|
switch($0.a2.a2.h) {
|
|
10193
10348
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
10194
10349
|
default: {
|
|
10195
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(
|
|
10350
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_627(), $10 => Commands_n__10367_19584_parseCompletedFlag($0, $10), $15 => Commands_n__10367_19585_parseTeamArg($0, $15), $b), $0);
|
|
10196
10351
|
switch($6.h) {
|
|
10197
10352
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
10198
10353
|
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 +10356,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10201
10356
|
}
|
|
10202
10357
|
}
|
|
10203
10358
|
default: {
|
|
10204
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(
|
|
10359
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_627(), $27 => Commands_n__10367_19584_parseCompletedFlag($0, $27), $2c => Commands_n__10367_19585_parseTeamArg($0, $2c), $22), $0);
|
|
10205
10360
|
switch($1d.h) {
|
|
10206
10361
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
10207
10362
|
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 +10365,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10210
10365
|
}
|
|
10211
10366
|
}
|
|
10212
10367
|
default: {
|
|
10213
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(
|
|
10368
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_627(), $3e => Commands_n__10367_19584_parseCompletedFlag($0, $3e), $43 => Commands_n__10367_19585_parseTeamArg($0, $43), $39), $0);
|
|
10214
10369
|
switch($34.h) {
|
|
10215
10370
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
10216
10371
|
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 +10379,9 @@ function Commands_parseContributeArgs($0) {
|
|
|
10224
10379
|
switch($0.h) {
|
|
10225
10380
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
10226
10381
|
default: {
|
|
10227
|
-
const $3 =
|
|
10382
|
+
const $3 = Commands_n__10985_20153_recombineIgnoreArgs($0, $0);
|
|
10228
10383
|
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(
|
|
10384
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_627(), $18 => Commands_n__10985_20151_parseListFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_627(), $22 => Commands_n__10985_20152_parseSkipArg($0, $22), $27 => Commands_n__10985_20149_parseCheckoutFlag($0, $27), $1d), $13), $3.a2);
|
|
10230
10385
|
return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($34 => Prelude_Types_List_tailRecAppend($7, $34), $e));
|
|
10231
10386
|
}
|
|
10232
10387
|
}
|
|
@@ -10234,12 +10389,12 @@ function Commands_parseContributeArgs($0) {
|
|
|
10234
10389
|
|
|
10235
10390
|
/* Commands.listOrgTeams : Config => Octokit => Promise' () */
|
|
10236
10391
|
function Commands_listOrgTeams($0, $1, $2, $3) {
|
|
10237
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10392
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_628(), $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
10393
|
}
|
|
10239
10394
|
|
|
10240
10395
|
/* Commands.list : Config => Octokit => String -> Promise' () */
|
|
10241
10396
|
function Commands_list($0, $1, $2, $3, $4) {
|
|
10242
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10397
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_628(), $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_630(), Prelude_Types_traverse_Traversable_List(csegen_66()(), $29 => Commands_n__10199_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__10199_19397_putNameLn($1, $2, $0, $4e), teamMembers))), $31, $32), $19, $1a), $3, $4);
|
|
10243
10398
|
}
|
|
10244
10399
|
|
|
10245
10400
|
/* Commands.label : Config => Git => Octokit => List String -> Promise' () */
|
|
@@ -10248,7 +10403,7 @@ function Commands_label($0, $1, $2, $3, $4, $5) {
|
|
|
10248
10403
|
switch($22.h) {
|
|
10249
10404
|
case 0: /* Actual */ {
|
|
10250
10405
|
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(
|
|
10406
|
+
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__8671_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__8671_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
10407
|
}
|
|
10253
10408
|
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
10409
|
}
|
|
@@ -10335,17 +10490,17 @@ function Commands_contribute($0, $1, $2, $3, $4, $5) {
|
|
|
10335
10490
|
}
|
|
10336
10491
|
};
|
|
10337
10492
|
const $72 = Prelude_Types_List_filterAppend({h: 0}, $75, $13);
|
|
10338
|
-
const $7c = Prelude_Types_List_filterAppend({h: 0}, $80 =>
|
|
10493
|
+
const $7c = Prelude_Types_List_filterAppend({h: 0}, $80 => Commands_n__11337_20511_isNotIgnored($1, $2, $3, $0, configx27, $80), $72);
|
|
10339
10494
|
const $89 = Data_List_partition($8c => Data_PullRequest_isRequestedReviewer(myLogin, $8c), $7c);
|
|
10340
|
-
const $91 = Prelude_Interfaces_mapHom(
|
|
10495
|
+
const $91 = Prelude_Interfaces_mapHom(csegen_603(), $97 => Data_List_sortBy(csegen_644(), $97))($89);
|
|
10341
10496
|
let $71;
|
|
10342
10497
|
switch($54.h) {
|
|
10343
10498
|
case 0: /* nothing */ {
|
|
10344
|
-
$71 = () =>
|
|
10499
|
+
$71 = () => Commands_n__11337_20513_pickOne($1, $2, $3, $0, configx27, $41, $4e, $91.a1, $91.a2);
|
|
10345
10500
|
break;
|
|
10346
10501
|
}
|
|
10347
10502
|
case undefined: /* just */ {
|
|
10348
|
-
$71 = () => $a8 => $a9 =>
|
|
10503
|
+
$71 = () => $a8 => $a9 => Commands_n__11337_20512_listSome($1, $2, $3, $0, $41, $91.a1, $91.a2, $a8, $a9);
|
|
10349
10504
|
break;
|
|
10350
10505
|
}
|
|
10351
10506
|
}
|
|
@@ -10357,7 +10512,7 @@ function Commands_contribute($0, $1, $2, $3, $4, $5) {
|
|
|
10357
10512
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($31, $40, $2e, $2f);
|
|
10358
10513
|
};
|
|
10359
10514
|
};
|
|
10360
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1f => $20 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10515
|
+
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
10516
|
};
|
|
10362
10517
|
};
|
|
10363
10518
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequests($2, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $12, $4, $5);
|
|
@@ -10591,67 +10746,67 @@ function Data_SortedMap_Dependent_empty($0) {
|
|
|
10591
10746
|
|
|
10592
10747
|
/* Commands.User.Reflect.case block in case block in reflectOnSelf */
|
|
10593
10748
|
function Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
10594
|
-
const $b = Prelude_Interfaces_mapHom(
|
|
10749
|
+
const $b = Prelude_Interfaces_mapHom(csegen_603(), $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_666(), $11))))({a1: $7, a2: $9.a1});
|
|
10595
10750
|
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
10751
|
}
|
|
10597
10752
|
|
|
10598
|
-
/* Commands.User.Me.
|
|
10599
|
-
function
|
|
10753
|
+
/* Commands.User.Me.7540:2049:ul */
|
|
10754
|
+
function Commands_User_Me_n__7540_2049_ul($0, $1, $2, $3, $4) {
|
|
10600
10755
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
10601
10756
|
}
|
|
10602
10757
|
|
|
10603
|
-
/* Commands.User.Me.
|
|
10604
|
-
function
|
|
10605
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
10758
|
+
/* Commands.User.Me.7540:2048:teams */
|
|
10759
|
+
function Commands_User_Me_n__7540_2048_teams($0, $1, $2, $3) {
|
|
10760
|
+
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
10761
|
}
|
|
10607
10762
|
|
|
10608
|
-
/* Commands.User.Me.
|
|
10609
|
-
function
|
|
10610
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'),
|
|
10763
|
+
/* Commands.User.Me.7540:2047:login */
|
|
10764
|
+
function Commands_User_Me_n__7540_2047_login($0, $1, $2, $3) {
|
|
10765
|
+
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
10766
|
}
|
|
10612
10767
|
|
|
10613
|
-
/* Commands.User.Reflect.
|
|
10614
|
-
function
|
|
10768
|
+
/* Commands.User.Reflect.6595:1075:ital */
|
|
10769
|
+
function Commands_User_Reflect_n__6595_1075_ital($0, $1) {
|
|
10615
10770
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
10616
10771
|
}
|
|
10617
10772
|
|
|
10618
|
-
/* Commands.User.Me.
|
|
10619
|
-
function
|
|
10773
|
+
/* Commands.User.Me.7540:2046:it */
|
|
10774
|
+
function Commands_User_Me_n__7540_2046_it($0, $1, $2, $3, $4) {
|
|
10620
10775
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
10621
10776
|
}
|
|
10622
10777
|
|
|
10623
|
-
/* Commands.User.Me.
|
|
10624
|
-
function
|
|
10778
|
+
/* Commands.User.Me.7690:2202:handleUnsetEmail */
|
|
10779
|
+
function Commands_User_Me_n__7690_2202_handleUnsetEmail($0, $1, $2, $3) {
|
|
10625
10780
|
switch($3) {
|
|
10626
10781
|
case '': return {h: 0};
|
|
10627
10782
|
default: return {a1: $3};
|
|
10628
10783
|
}
|
|
10629
10784
|
}
|
|
10630
10785
|
|
|
10631
|
-
/* Commands.User.Me.
|
|
10632
|
-
function
|
|
10633
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'),
|
|
10786
|
+
/* Commands.User.Me.7540:2045:fullName */
|
|
10787
|
+
function Commands_User_Me_n__7540_2045_fullName($0, $1, $2, $3) {
|
|
10788
|
+
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
10789
|
}
|
|
10635
10790
|
|
|
10636
|
-
/* Commands.User.Me.
|
|
10637
|
-
function
|
|
10791
|
+
/* Commands.User.Me.7540:2044:email */
|
|
10792
|
+
function Commands_User_Me_n__7540_2044_email($0, $1, $2, $3) {
|
|
10638
10793
|
let $8;
|
|
10639
10794
|
switch($2.h) {
|
|
10640
10795
|
case undefined: /* just */ {
|
|
10641
|
-
$8 =
|
|
10796
|
+
$8 = Commands_User_Me_n__7540_2043_dataVal($0, $1, $2, $3, $2.a1);
|
|
10642
10797
|
break;
|
|
10643
10798
|
}
|
|
10644
10799
|
case 0: /* nothing */ {
|
|
10645
|
-
$8 =
|
|
10800
|
+
$8 = Commands_User_Me_n__7540_2046_it($0, $1, $2, $3, 'Not set');
|
|
10646
10801
|
break;
|
|
10647
10802
|
}
|
|
10648
10803
|
}
|
|
10649
10804
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Git Email:'), $8);
|
|
10650
10805
|
}
|
|
10651
10806
|
|
|
10652
|
-
/* Commands.User.Me.
|
|
10653
|
-
function
|
|
10654
|
-
return Theme_theme($3,
|
|
10807
|
+
/* Commands.User.Me.7540:2043:dataVal */
|
|
10808
|
+
function Commands_User_Me_n__7540_2043_dataVal($0, $1, $2, $3, $4) {
|
|
10809
|
+
return Theme_theme($3, csegen_669(), Theme_cs({a1: 4, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined}), 8)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
10655
10810
|
}
|
|
10656
10811
|
|
|
10657
10812
|
/* Commands.User.Reflect.rightTitle : String */
|
|
@@ -10674,20 +10829,20 @@ function Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
|
10674
10829
|
const $c = prs => $d => $e => {
|
|
10675
10830
|
const $1c = myLogin => $1d => $1e => {
|
|
10676
10831
|
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(
|
|
10832
|
+
const $3b = Prelude_Types_map_Functor_Maybe(csegen_672(), Data_List_headx27(Data_List_sortBy($44 => $45 => Prelude_Basics_on(csegen_642(), csegen_672(), $44, $45), reviews)));
|
|
10833
|
+
const $4e = Prelude_Interfaces_mapHom(csegen_603(), $54 => Prelude_Types_List_filterAppend({h: 0}, $58 => Prelude_EqOrd_x3dx3d_Eq_String($58.a5, myLogin), $54))(prs);
|
|
10834
|
+
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(csegen_603(), $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
10835
|
};
|
|
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(
|
|
10836
|
+
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_642(), csegen_666(), $2e, $2f), Commands_PullRequest_combined(prs))))), $3a, $1d, $1e);
|
|
10682
10837
|
};
|
|
10683
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10838
|
+
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
10839
|
};
|
|
10685
10840
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_listPartitionedPRs($0, $1, 4n, Commands_User_Reflect_prCount()), $c, $2, $3);
|
|
10686
10841
|
}
|
|
10687
10842
|
|
|
10688
10843
|
/* Commands.User.Me.printInfoOnSelf : Config => Octokit => Git => Promise' () */
|
|
10689
10844
|
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 =>
|
|
10845
|
+
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_628(), $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
10846
|
}
|
|
10692
10847
|
|
|
10693
10848
|
/* Commands.User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Config =>
|
|
@@ -10698,7 +10853,7 @@ function Commands_User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
|
10698
10853
|
|
|
10699
10854
|
/* Commands.User.Me.print : Config -> Maybe String -> User -> List String -> Doc AnsiStyle */
|
|
10700
10855
|
function Commands_User_Me_print($0, $1, $2, $3) {
|
|
10701
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
10856
|
+
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
10857
|
}
|
|
10703
10858
|
|
|
10704
10859
|
/* Commands.User.Reflect.prCount : Fin 101 */
|
|
@@ -10718,7 +10873,7 @@ const Commands_User_Reflect_intro = __lazy(function () {
|
|
|
10718
10873
|
|
|
10719
10874
|
/* Commands.User.Reflect.header : Nat -> Doc AnsiStyle */
|
|
10720
10875
|
function Commands_User_Reflect_header($0) {
|
|
10721
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1:
|
|
10876
|
+
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
10877
|
}
|
|
10723
10878
|
|
|
10724
10879
|
/* Commands.User.Reflect.graph : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Doc AnsiStyle */
|
|
@@ -10736,58 +10891,48 @@ function Commands_User_Reflect_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
|
10736
10891
|
|
|
10737
10892
|
/* Commands.User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
10738
10893
|
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(
|
|
10894
|
+
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_678(), $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_678(), $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
10895
|
}
|
|
10741
10896
|
|
|
10742
10897
|
/* Commands.User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Nat -> Doc AnsiStyle */
|
|
10743
10898
|
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,
|
|
10899
|
+
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_669(), csegen_688(), 4, $1, '\u{b7}'), Commands_User_replicatex27($6, csegen_689(), csegen_689(), 7, $3, '\u{25e6}')), Commands_User_replicatex27($6, csegen_690(), csegen_690(), 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_690(), csegen_690(), 5, $5, '>'), Commands_User_replicatex27($6, csegen_669(), csegen_688(), 4, $4, '\u{b7}')))));
|
|
10745
10900
|
}
|
|
10746
10901
|
|
|
10747
|
-
/* Theme.
|
|
10748
|
-
function
|
|
10902
|
+
/* Theme.4411:1332:maybeAnnotate */
|
|
10903
|
+
function Theme_n__4411_1332_maybeAnnotate($0, $1, $2, $3, $4) {
|
|
10749
10904
|
return Prelude_Types_maybe(() => $7 => $7, () => $9 => $a => Text_PrettyPrint_Prettyprinter_Doc_annotate($3($9), $a), $4);
|
|
10750
10905
|
}
|
|
10751
10906
|
|
|
10752
|
-
/* Theme.
|
|
10753
|
-
function
|
|
10907
|
+
/* Theme.4411:1331:go */
|
|
10908
|
+
function Theme_n__4411_1331_go($0, $1, $2, $3, $4, $5, $6) {
|
|
10754
10909
|
switch($3) {
|
|
10755
|
-
case 1: return $8 =>
|
|
10756
|
-
case 0: return $f =>
|
|
10910
|
+
case 1: return $8 => Theme_n__4411_1329_colorsAnn($0, $1, $2, $4, $8);
|
|
10911
|
+
case 0: return $f => Theme_n__4411_1329_colorsAnn($0, $1, $2, $5, $f);
|
|
10757
10912
|
}
|
|
10758
10913
|
}
|
|
10759
10914
|
|
|
10760
|
-
/* Theme.
|
|
10761
|
-
function
|
|
10915
|
+
/* Theme.4411:1330:configTheme */
|
|
10916
|
+
function Theme_n__4411_1330_configTheme($0, $1, $2) {
|
|
10762
10917
|
return $2.a15;
|
|
10763
10918
|
}
|
|
10764
10919
|
|
|
10765
|
-
/* Theme.
|
|
10766
|
-
function
|
|
10767
|
-
return
|
|
10920
|
+
/* Theme.4411:1329:colorsAnn */
|
|
10921
|
+
function Theme_n__4411_1329_colorsAnn($0, $1, $2, $3, $4) {
|
|
10922
|
+
return Theme_n__4411_1332_maybeAnnotate($0, $1, $2, $c => Text_PrettyPrint_Prettyprinter_Render_Terminal_color($c), $3.a1)(Theme_n__4411_1332_maybeAnnotate($0, $1, $2, $17 => Text_PrettyPrint_Prettyprinter_Render_Terminal_bgColor($17), $3.a2)($4));
|
|
10768
10923
|
}
|
|
10769
10924
|
|
|
10770
10925
|
/* Theme.theme : Config => SemanticColor d l -> Doc AnsiStyle -> Doc AnsiStyle */
|
|
10771
10926
|
function Theme_theme($0, $1, $2, $3) {
|
|
10772
|
-
return
|
|
10927
|
+
return Theme_n__4411_1331_go($1, $2, $0, Theme_n__4411_1330_configTheme($1, $2, $0), $1, $2, $3);
|
|
10773
10928
|
}
|
|
10774
10929
|
|
|
10775
|
-
/* Theme.cs : List Color ->
|
|
10776
|
-
|
|
10777
|
-
|
|
10778
|
-
|
|
10779
|
-
|
|
10780
|
-
|
|
10781
|
-
case undefined: /* cons */ {
|
|
10782
|
-
switch($0.a2.a2.h) {
|
|
10783
|
-
case 0: /* nil */ return {a1: {a1: $0.a1}, a2: {a1: $0.a2.a1}};
|
|
10784
|
-
default: return {a1: {h: 0}, a2: {h: 0}};
|
|
10785
|
-
}
|
|
10786
|
-
}
|
|
10787
|
-
default: return {a1: {h: 0}, a2: {h: 0}};
|
|
10788
|
-
}
|
|
10789
|
-
}
|
|
10790
|
-
default: return {a1: {h: 0}, a2: {h: 0}};
|
|
10930
|
+
/* Theme.cs : (colors : List Color) -> Either (length colors = 1) (length colors = 2) =>
|
|
10931
|
+
Colors */
|
|
10932
|
+
function Theme_cs($0, $1) {
|
|
10933
|
+
switch($0.a2.h) {
|
|
10934
|
+
case 0: /* nil */ return {a1: {a1: $0.a1}, a2: {h: 0}};
|
|
10935
|
+
case undefined: /* cons */ return {a1: {a1: $0.a1}, a2: {a1: $0.a2.a1}};
|
|
10791
10936
|
}
|
|
10792
10937
|
}
|
|
10793
10938
|
|
|
@@ -10838,7 +10983,7 @@ function Commands_PullRequest_with__listOpenPRs_1391($0, $1, $2, $3, $4) {
|
|
|
10838
10983
|
}
|
|
10839
10984
|
|
|
10840
10985
|
/* Commands.PullRequest.case block in case block in case block in identifyOrCreatePR,createPR */
|
|
10841
|
-
function
|
|
10986
|
+
function Commands_PullRequest_case__casex20blockx20inx20casex20blockx20inx20identifyOrCreatePRx2ccreatePR_3538($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a, $b) {
|
|
10842
10987
|
const $1b = $1c => $1d => $1e => {
|
|
10843
10988
|
const $2d = $2e => $2f => $30 => {
|
|
10844
10989
|
const $41 = title => $42 => $43 => {
|
|
@@ -10847,119 +10992,94 @@ function Commands_PullRequest_case__casex20blockx20inx20casex20blockx20inx20iden
|
|
|
10847
10992
|
let $51;
|
|
10848
10993
|
switch($52.h) {
|
|
10849
10994
|
case 0: /* nothing */ {
|
|
10850
|
-
$51 = Util_Prompting_inlineDescription(csegen_74()(),
|
|
10995
|
+
$51 = Util_Prompting_inlineDescription(csegen_74()(), Commands_PullRequest_n__11100_3054_inlineDescriptionPrompt($0, $1, $2, $3, $4, $5), $9.a2);
|
|
10851
10996
|
break;
|
|
10852
10997
|
}
|
|
10853
10998
|
case undefined: /* just */ {
|
|
10854
|
-
$51 = $62 => $63 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10999
|
+
$51 = $62 => $63 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_695(), Util_Prompting_editorDescription(csegen_74()(), $52.a1, {a1: templateFilePath}, $9.a2), $62, $63);
|
|
10855
11000
|
break;
|
|
10856
11001
|
}
|
|
10857
11002
|
}
|
|
10858
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($51, description => $
|
|
11003
|
+
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
11004
|
};
|
|
10860
11005
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($46 => $47 => Util_relativeToRoot($0, '.github/PULL_REQUEST_TEMPLATE.md', $46, $47), $4d, $42, $43);
|
|
10861
11006
|
};
|
|
10862
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($33 => $34 => Data_Promise_map_Functor_x28Promisex20x24ex29($37 => ($9.a1+Data_String_trim($37)),
|
|
11007
|
+
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
11008
|
};
|
|
10864
11009
|
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
11010
|
};
|
|
10866
11011
|
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
11012
|
}
|
|
10868
11013
|
|
|
10869
|
-
/* Commands.PullRequest.
|
|
10870
|
-
function
|
|
11014
|
+
/* Commands.PullRequest.10007:1999:userNotice */
|
|
11015
|
+
function Commands_PullRequest_n__10007_1999_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
10871
11016
|
switch($6.h) {
|
|
10872
11017
|
case 0: /* nothing */ {
|
|
10873
11018
|
switch($2.h) {
|
|
10874
11019
|
case 0: /* nil */ return 'no users';
|
|
10875
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1:
|
|
11020
|
+
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
11021
|
}
|
|
10877
11022
|
}
|
|
10878
|
-
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $1f => $1f, {a1:
|
|
11023
|
+
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
11024
|
}
|
|
10880
11025
|
}
|
|
10881
11026
|
|
|
10882
|
-
/* Commands.PullRequest.
|
|
10883
|
-
function
|
|
11027
|
+
/* Commands.PullRequest.10007:1998:teamNotice */
|
|
11028
|
+
function Commands_PullRequest_n__10007_1998_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
10884
11029
|
switch($6.h) {
|
|
10885
11030
|
case 0: /* nil */ return '';
|
|
10886
11031
|
case undefined: /* cons */ {
|
|
10887
11032
|
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:
|
|
11033
|
+
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}}});
|
|
11034
|
+
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
11035
|
}
|
|
10891
11036
|
}
|
|
10892
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $36 => $36, {a1: ' and teams ', a2: {a1:
|
|
11037
|
+
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
11038
|
}
|
|
10894
11039
|
}
|
|
10895
11040
|
|
|
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) {
|
|
11041
|
+
/* Commands.PullRequest.11100:3055:prCreationUrl */
|
|
11042
|
+
function Commands_PullRequest_n__11100_3055_prCreationUrl($0, $1, $2, $3, $4, $5) {
|
|
10923
11043
|
const $6 = $5.a3;
|
|
10924
11044
|
const $8 = $5.a2;
|
|
10925
11045
|
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
11046
|
}
|
|
10927
11047
|
|
|
10928
|
-
/* Commands.PullRequest.
|
|
10929
|
-
function
|
|
11048
|
+
/* Commands.PullRequest.10007:1997:prComment */
|
|
11049
|
+
function Commands_PullRequest_n__10007_1997_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
10930
11050
|
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
11051
|
}
|
|
10932
11052
|
|
|
10933
|
-
/* Commands.PullRequest.
|
|
10934
|
-
function
|
|
10935
|
-
return
|
|
11053
|
+
/* Commands.PullRequest.10007:1996:namePrComment */
|
|
11054
|
+
function Commands_PullRequest_n__10007_1996_namePrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11055
|
+
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
11056
|
}
|
|
10937
11057
|
|
|
10938
|
-
/* Commands.PullRequest.
|
|
10939
|
-
function
|
|
10940
|
-
return
|
|
11058
|
+
/* Commands.PullRequest.10007:1995:mentionPrComment */
|
|
11059
|
+
function Commands_PullRequest_n__10007_1995_mentionPrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11060
|
+
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
11061
|
}
|
|
10942
11062
|
|
|
10943
|
-
/* Commands.PullRequest.
|
|
10944
|
-
function
|
|
11063
|
+
/* Commands.PullRequest.11100:3054:inlineDescriptionPrompt */
|
|
11064
|
+
function Commands_PullRequest_n__11100_3054_inlineDescriptionPrompt($0, $1, $2, $3, $4, $5) {
|
|
10945
11065
|
return 'What would you like the description to be (two blank lines to finish)?';
|
|
10946
11066
|
}
|
|
10947
11067
|
|
|
10948
|
-
/* Commands.PullRequest.
|
|
10949
|
-
function
|
|
11068
|
+
/* Commands.PullRequest.11100:3053:getBaseBranch */
|
|
11069
|
+
function Commands_PullRequest_n__11100_3053_getBaseBranch($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10950
11070
|
switch($3.h) {
|
|
10951
11071
|
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)),
|
|
11072
|
+
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
11073
|
}
|
|
10954
11074
|
}
|
|
10955
11075
|
|
|
10956
|
-
/* Commands.PullRequest.
|
|
10957
|
-
function
|
|
11076
|
+
/* Commands.PullRequest.9769:1725:forkedReviews */
|
|
11077
|
+
function Commands_PullRequest_n__9769_1725_forkedReviews($0, $1, $2, $3) {
|
|
10958
11078
|
return FFI_Concurrency_fork(csegen_74()(), ('reviews --json '+Prelude_Show_show_Show_Integer($3.a1)));
|
|
10959
11079
|
}
|
|
10960
11080
|
|
|
10961
|
-
/* Commands.PullRequest.
|
|
10962
|
-
function
|
|
11081
|
+
/* Commands.PullRequest.9192:1180:filterString */
|
|
11082
|
+
function Commands_PullRequest_n__9192_1180_filterString($0, $1, $2, $3, $4) {
|
|
10963
11083
|
switch($4.h) {
|
|
10964
11084
|
case 0: /* nothing */ return 'none';
|
|
10965
11085
|
case undefined: /* just */ {
|
|
@@ -10971,27 +11091,13 @@ function Commands_PullRequest_n__9176_1180_filterString($0, $1, $2, $3, $4) {
|
|
|
10971
11091
|
}
|
|
10972
11092
|
}
|
|
10973
11093
|
|
|
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) {
|
|
11094
|
+
/* Commands.PullRequest.10007:1994:csv */
|
|
11095
|
+
function Commands_PullRequest_n__10007_1994_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
10990
11096
|
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
11097
|
}
|
|
10992
11098
|
|
|
10993
|
-
/* Commands.PullRequest.
|
|
10994
|
-
function
|
|
11099
|
+
/* Commands.PullRequest.11100:3052:createPR */
|
|
11100
|
+
function Commands_PullRequest_n__11100_3052_createPR($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10995
11101
|
const $3b = $3c => $3d => $3e => {
|
|
10996
11102
|
const $4c = $4d => $4e => $4f => {
|
|
10997
11103
|
switch($4d) {
|
|
@@ -11008,37 +11114,37 @@ function Commands_PullRequest_n__11084_3052_createPR($0, $1, $2, $3, $4, $5, $6,
|
|
|
11008
11114
|
};
|
|
11009
11115
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($69 => $6a => FFI_Git_unpushedCommits($0, $69, $6a), $6f, $65, $66);
|
|
11010
11116
|
};
|
|
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 =>
|
|
11117
|
+
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
11118
|
}
|
|
11013
11119
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $60, $61);
|
|
11014
11120
|
}
|
|
11015
11121
|
};
|
|
11016
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($53 => $54 =>
|
|
11122
|
+
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
11123
|
}
|
|
11018
11124
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $4e, $4f);
|
|
11019
11125
|
}
|
|
11020
11126
|
};
|
|
11021
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($41 => $42 =>
|
|
11127
|
+
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
11128
|
};
|
|
11023
11129
|
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
11130
|
}
|
|
11025
11131
|
|
|
11026
|
-
/* Commands.PullRequest.
|
|
11027
|
-
function
|
|
11132
|
+
/* Commands.PullRequest.11100:3051:continueGivenUncommittedChanges */
|
|
11133
|
+
function Commands_PullRequest_n__11100_3051_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11028
11134
|
const $10 = $11 => $12 => $13 => {
|
|
11029
11135
|
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),
|
|
11136
|
+
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_709(), $25, $26), $12, $13);
|
|
11031
11137
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $12, $13);
|
|
11032
11138
|
}
|
|
11033
11139
|
};
|
|
11034
11140
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => FFI_Git_uncommittedChanges($0, $a, $b), $10, $6, $7);
|
|
11035
11141
|
}
|
|
11036
11142
|
|
|
11037
|
-
/* Commands.PullRequest.
|
|
11038
|
-
function
|
|
11143
|
+
/* Commands.PullRequest.11100:3050:continueGivenStagedChanges */
|
|
11144
|
+
function Commands_PullRequest_n__11100_3050_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11039
11145
|
const $10 = $11 => $12 => $13 => {
|
|
11040
11146
|
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),
|
|
11147
|
+
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_709(), $25, $26), $12, $13);
|
|
11042
11148
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $12, $13);
|
|
11043
11149
|
}
|
|
11044
11150
|
};
|
|
@@ -11047,12 +11153,12 @@ function Commands_PullRequest_n__11084_3050_continueGivenStagedChanges($0, $1, $
|
|
|
11047
11153
|
|
|
11048
11154
|
/* Commands.PullRequest.(.allReviewers) : PRHistory -> (List String, List String) */
|
|
11049
11155
|
function Commands_PullRequest_rf__allReviewers($0) {
|
|
11050
|
-
return Prelude_Interfaces_mapHom(
|
|
11156
|
+
return Prelude_Interfaces_mapHom(csegen_603(), $6 => Prelude_Types_join_Monad_List(Prelude_Types_List_mapAppend({h: 0}, $c => $c.a7, $6)))($0);
|
|
11051
11157
|
}
|
|
11052
11158
|
|
|
11053
11159
|
/* Commands.PullRequest.reviewsForPrs : Config => Octokit => List PullRequest -> Promise' (List Review) */
|
|
11054
11160
|
function Commands_PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
|
|
11055
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(),
|
|
11161
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(), csegen_630(), 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
11162
|
}
|
|
11057
11163
|
|
|
11058
11164
|
/* Commands.PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise' (List Review) */
|
|
@@ -11103,7 +11209,7 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11103
11209
|
break;
|
|
11104
11210
|
}
|
|
11105
11211
|
case 0: {
|
|
11106
|
-
$38 =
|
|
11212
|
+
$38 = csegen_407()();
|
|
11107
11213
|
break;
|
|
11108
11214
|
}
|
|
11109
11215
|
}
|
|
@@ -11139,8 +11245,8 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11139
11245
|
return $7f => {
|
|
11140
11246
|
switch($0.a8) {
|
|
11141
11247
|
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,
|
|
11248
|
+
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);
|
|
11249
|
+
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
11250
|
}
|
|
11145
11251
|
};
|
|
11146
11252
|
}
|
|
@@ -11164,11 +11270,11 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11164
11270
|
let $bf;
|
|
11165
11271
|
switch($c0) {
|
|
11166
11272
|
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:
|
|
11273
|
+
$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
11274
|
break;
|
|
11169
11275
|
}
|
|
11170
11276
|
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:
|
|
11277
|
+
$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
11278
|
break;
|
|
11173
11279
|
}
|
|
11174
11280
|
}
|
|
@@ -11222,7 +11328,7 @@ function Commands_PullRequest_listOpenPRs($0, $1, $2, $3) {
|
|
|
11222
11328
|
|
|
11223
11329
|
/* Commands.PullRequest.list' : Maybe GitHubPRState -> Pagination _ _ _ () -> Promise' (List PullRequest) */
|
|
11224
11330
|
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(),
|
|
11331
|
+
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
11332
|
}
|
|
11227
11333
|
|
|
11228
11334
|
/* Commands.PullRequest.identifyOrCreatePR : Config => Git => Octokit => {default False _ : Bool} ->
|
|
@@ -11242,8 +11348,8 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6, $7)
|
|
|
11242
11348
|
return $21 => {
|
|
11243
11349
|
const $2a = $2b => $2c => $2d => {
|
|
11244
11350
|
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:
|
|
11351
|
+
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);
|
|
11352
|
+
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
11353
|
}
|
|
11248
11354
|
};
|
|
11249
11355
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(System_File_Meta_isTTY(csegen_74()(), System_File_Virtual_stdout()), $2a, $13, $21);
|
|
@@ -11257,7 +11363,7 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6, $7)
|
|
|
11257
11363
|
|
|
11258
11364
|
/* Commands.PullRequest.forkedPRs : Maybe GitHubPRState -> Nat -> Nat -> Nat -> () -> Promise' Future */
|
|
11259
11365
|
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:
|
|
11366
|
+
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
11367
|
}
|
|
11262
11368
|
|
|
11263
11369
|
/* Commands.PullRequest.empty : PRHistory */
|
|
@@ -11379,7 +11485,7 @@ function Util_Github_n__2629_823_go($0, $1) {
|
|
|
11379
11485
|
|
|
11380
11486
|
/* Util.Github.parseGithubIssueNumber : String -> Maybe String */
|
|
11381
11487
|
function Util_Github_parseGithubIssueNumber($0) {
|
|
11382
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
11488
|
+
return Prelude_Types_map_Functor_Maybe(csegen_746(), 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
11489
|
}
|
|
11384
11490
|
|
|
11385
11491
|
/* Util.Jira.2629:820:startOver */
|
|
@@ -11439,7 +11545,7 @@ function Util_Jira_n__2629_818_go($0, $1) {
|
|
|
11439
11545
|
|
|
11440
11546
|
/* Util.Jira.parseJiraSlug : String -> Maybe String */
|
|
11441
11547
|
function Util_Jira_parseJiraSlug($0) {
|
|
11442
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
11548
|
+
return Prelude_Types_map_Functor_Maybe(csegen_746(), 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
11549
|
}
|
|
11444
11550
|
|
|
11445
11551
|
/* Data.Pagination.with block in metaPages' */
|
|
@@ -11708,6 +11814,60 @@ function Data_List_DeleteBy_deleteByx27($0, $1, $2) {
|
|
|
11708
11814
|
}
|
|
11709
11815
|
}
|
|
11710
11816
|
|
|
11817
|
+
/* Commands.Quick.5799:5628:issuePrompt */
|
|
11818
|
+
function Commands_Quick_n__5799_5628_issuePrompt($0, $1, $2, $3) {
|
|
11819
|
+
return 'What would you like the issue description to be (two blank lines to finish)?';
|
|
11820
|
+
}
|
|
11821
|
+
|
|
11822
|
+
/* Commands.Quick.5799:5627:branchPrefix */
|
|
11823
|
+
function Commands_Quick_n__5799_5627_branchPrefix($0, $1, $2, $3) {
|
|
11824
|
+
return Data_String_toLower(Commands_Quick_show_Show_IssueCategory($2));
|
|
11825
|
+
}
|
|
11826
|
+
|
|
11827
|
+
/* Commands.Quick.show */
|
|
11828
|
+
function Commands_Quick_show_Show_IssueCategory($0) {
|
|
11829
|
+
switch($0) {
|
|
11830
|
+
case 0: return 'Bugfix';
|
|
11831
|
+
case 1: return 'Feature';
|
|
11832
|
+
}
|
|
11833
|
+
}
|
|
11834
|
+
|
|
11835
|
+
/* Commands.Quick.quickStartNewWork : Config => Git => Octokit => IssueCategory -> Promise' () */
|
|
11836
|
+
function Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5) {
|
|
11837
|
+
const $14 = $15 => $16 => $17 => {
|
|
11838
|
+
const $1c = $1d => $1e => $1f => {
|
|
11839
|
+
const $2e = $2f => $30 => $31 => {
|
|
11840
|
+
const $35 = issueTitle => $36 => $37 => {
|
|
11841
|
+
const $3a = Data_Config_rf__editor($0);
|
|
11842
|
+
let $39;
|
|
11843
|
+
switch($3a.h) {
|
|
11844
|
+
case 0: /* nothing */ {
|
|
11845
|
+
$39 = Util_Prompting_inlineDescription(csegen_74()(), Commands_Quick_n__5799_5628_issuePrompt($1, $2, $3, $0), '');
|
|
11846
|
+
break;
|
|
11847
|
+
}
|
|
11848
|
+
case undefined: /* just */ {
|
|
11849
|
+
$39 = $48 => $49 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_695(), Util_Prompting_editorDescription(csegen_74()(), $3a.a1, {h: 0}, ''), $48, $49);
|
|
11850
|
+
break;
|
|
11851
|
+
}
|
|
11852
|
+
}
|
|
11853
|
+
const $57 = issueBody => $58 => $59 => {
|
|
11854
|
+
const $64 = issue => {
|
|
11855
|
+
const $65 = Prelude_Types_foldMap_Foldable_List(csegen_51()(), $6b => $6b, {a1: Commands_Quick_n__5799_5627_branchPrefix($1, $2, $3, $0), a2: {a1: '/', a2: {a1: Prelude_Show_show_Show_Integer(issue.a1), a2: {a1: '/', a2: {h: 0}}}}});
|
|
11856
|
+
return $7d => $7e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($81 => $82 => $83 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($86 => Prelude_IO_prim__putStr('What would you like the branch to be named?\n', $86), $81, $82, $83), $8e => $8f => $90 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($93 => $94 => $95 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($98 => Prelude_IO_prim__putStr($65, $98), $93, $94, $95), $a0 => $a1 => $a2 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_758(), branchSlug => FFI_Git_checkoutBranch($1, 1, Prelude_Types_foldMap_Foldable_List(csegen_51()(), $b0 => $b0, {a1: $65, a2: {a1: branchSlug, a2: {h: 0}}})), $a1, $a2), $8f, $90), $7d, $7e);
|
|
11857
|
+
};
|
|
11858
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_createIssue($2, $0.a2, $0.a3, issueTitle, issueBody), $64, $58, $59);
|
|
11859
|
+
};
|
|
11860
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($39, $57, $36, $37);
|
|
11861
|
+
};
|
|
11862
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_758(), $35, $30, $31);
|
|
11863
|
+
};
|
|
11864
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($22 => $23 => $24 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($27 => Prelude_IO_prim__putStr('What would you like the issue title to be?\n', $27), $22, $23, $24), $2e, $1e, $1f);
|
|
11865
|
+
};
|
|
11866
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $1c, $16, $17);
|
|
11867
|
+
};
|
|
11868
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8 => $9 => $a => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d => Prelude_IO_prim__putStr('Creating a new GitHub issue and branch.\n', $d), $8, $9, $a), $14, $4, $5);
|
|
11869
|
+
}
|
|
11870
|
+
|
|
11711
11871
|
/* Commands.Label.unslugifyLabel : List String -> String -> String */
|
|
11712
11872
|
function Commands_Label_unslugifyLabel($0, $1) {
|
|
11713
11873
|
const $2 = Data_List_find($5 => Prelude_EqOrd_x3dx3d_Eq_String($5, $1), $0);
|
|
@@ -11722,36 +11882,36 @@ function Commands_Label_addLabels($0, $1, $2, $3, $4, $5) {
|
|
|
11722
11882
|
return FFI_GitHub_addPullLabels($1, $0.a2, $0.a3, $2.a1, $3, $4, $5);
|
|
11723
11883
|
}
|
|
11724
11884
|
|
|
11725
|
-
/* Commands.Graph.
|
|
11726
|
-
function
|
|
11727
|
-
return Theme_theme($7,
|
|
11885
|
+
/* Commands.Graph.7730:7016:pendingDot */
|
|
11886
|
+
function Commands_Graph_n__7730_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11887
|
+
return Theme_theme($7, csegen_690(), csegen_688(), 6)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
|
|
11728
11888
|
}
|
|
11729
11889
|
|
|
11730
|
-
/* Commands.Graph.
|
|
11731
|
-
function
|
|
11890
|
+
/* Commands.Graph.7730:7015:note */
|
|
11891
|
+
function Commands_Graph_n__7730_7015_note($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
11732
11892
|
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
11893
|
}
|
|
11734
11894
|
|
|
11735
|
-
/* Commands.Graph.
|
|
11736
|
-
function
|
|
11737
|
-
return Theme_theme($7,
|
|
11895
|
+
/* Commands.Graph.7730:7014:missedDot */
|
|
11896
|
+
function Commands_Graph_n__7730_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11897
|
+
return Theme_theme($7, csegen_689(), csegen_689(), 7)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
|
|
11738
11898
|
}
|
|
11739
11899
|
|
|
11740
|
-
/* Commands.Graph.
|
|
11741
|
-
function
|
|
11900
|
+
/* Commands.Graph.7730:7013:maxValue */
|
|
11901
|
+
function Commands_Graph_n__7730_7013_maxValue($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
11742
11902
|
switch($8.h) {
|
|
11743
11903
|
case 0: /* nil */ return 0n;
|
|
11744
|
-
case undefined: /* cons */ return Prelude_Types_max_Ord_Nat($8.a1.a2,
|
|
11904
|
+
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
11905
|
}
|
|
11746
11906
|
}
|
|
11747
11907
|
|
|
11748
|
-
/* Commands.Graph.
|
|
11749
|
-
function
|
|
11908
|
+
/* Commands.Graph.7327:6605:link */
|
|
11909
|
+
function Commands_Graph_n__7327_6605_link($0, $1, $2, $3) {
|
|
11750
11910
|
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
11911
|
}
|
|
11752
11912
|
|
|
11753
|
-
/* Commands.Graph.
|
|
11754
|
-
function
|
|
11913
|
+
/* Commands.Graph.7730:7012:header */
|
|
11914
|
+
function Commands_Graph_n__7730_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11755
11915
|
let $3b;
|
|
11756
11916
|
switch(Prelude_Types_null_Foldable_Maybe($3)) {
|
|
11757
11917
|
case 1: {
|
|
@@ -11759,58 +11919,58 @@ function Commands_Graph_n__7729_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11759
11919
|
break;
|
|
11760
11920
|
}
|
|
11761
11921
|
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(
|
|
11922
|
+
$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
11923
|
break;
|
|
11764
11924
|
}
|
|
11765
11925
|
}
|
|
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(
|
|
11926
|
+
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_762()}};
|
|
11927
|
+
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};
|
|
11928
|
+
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
11929
|
const $f = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $14};
|
|
11770
11930
|
const $b = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: $f};
|
|
11771
11931
|
const $9 = Data_List_catMaybes($b);
|
|
11772
11932
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep($9);
|
|
11773
11933
|
}
|
|
11774
11934
|
|
|
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:
|
|
11935
|
+
/* Commands.Graph.7327:6604:header */
|
|
11936
|
+
function Commands_Graph_n__7327_6604_header($0, $1, $2, $3) {
|
|
11937
|
+
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_762()}}}));
|
|
11778
11938
|
}
|
|
11779
11939
|
|
|
11780
|
-
/* Commands.Graph.
|
|
11781
|
-
function
|
|
11940
|
+
/* Commands.Graph.7327:6603:graphable */
|
|
11941
|
+
function Commands_Graph_n__7327_6603_graphable($0, $1, $2, $3, $4) {
|
|
11782
11942
|
return {a1: $4.a1.a3, a2: (Prelude_Types_List_lengthTR($4.a2)+1n)};
|
|
11783
11943
|
}
|
|
11784
11944
|
|
|
11785
|
-
/* Commands.Graph.
|
|
11786
|
-
function
|
|
11787
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
11945
|
+
/* Commands.Graph.7730:7011:footer */
|
|
11946
|
+
function Commands_Graph_n__7730_7011_footer($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11947
|
+
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
11948
|
}
|
|
11789
11949
|
|
|
11790
|
-
/* Commands.Graph.
|
|
11791
|
-
function
|
|
11950
|
+
/* Commands.Graph.6760:6183:countInParens */
|
|
11951
|
+
function Commands_Graph_n__6760_6183_countInParens($0, $1, $2, $3, $4) {
|
|
11792
11952
|
switch(Prelude_Types_x3e_Ord_Nat($4.a2, 4n)) {
|
|
11793
11953
|
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
11954
|
case 0: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('');
|
|
11795
11955
|
}
|
|
11796
11956
|
}
|
|
11797
11957
|
|
|
11798
|
-
/* Commands.Graph.
|
|
11799
|
-
function
|
|
11800
|
-
return Theme_theme($7,
|
|
11958
|
+
/* Commands.Graph.7730:7010:completedBox */
|
|
11959
|
+
function Commands_Graph_n__7730_7010_completedBox($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11960
|
+
return Theme_theme($7, csegen_669(), csegen_669(), 3)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25aa}'));
|
|
11801
11961
|
}
|
|
11802
11962
|
|
|
11803
|
-
/* Commands.Graph.
|
|
11804
|
-
function
|
|
11963
|
+
/* Commands.Graph.6760:6182:coloredLabel */
|
|
11964
|
+
function Commands_Graph_n__6760_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
11805
11965
|
switch((($4.a2===0n)?1:0)) {
|
|
11806
|
-
case 1: return Theme_theme($0,
|
|
11966
|
+
case 1: return Theme_theme($0, csegen_669(), csegen_669(), 0)($2.a1(undefined)($4.a1));
|
|
11807
11967
|
case 0: {
|
|
11808
11968
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 2n)) {
|
|
11809
11969
|
case 1: return $2.a1(undefined)($4.a1);
|
|
11810
11970
|
case 0: {
|
|
11811
11971
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 6n)) {
|
|
11812
|
-
case 1: return Theme_theme($0,
|
|
11813
|
-
case 0: return Theme_theme($0,
|
|
11972
|
+
case 1: return Theme_theme($0, csegen_690(), csegen_688(), 1)($2.a1(undefined)($4.a1));
|
|
11973
|
+
case 0: return Theme_theme($0, csegen_689(), csegen_689(), 2)($2.a1(undefined)($4.a1));
|
|
11814
11974
|
}
|
|
11815
11975
|
}
|
|
11816
11976
|
}
|
|
@@ -11818,8 +11978,8 @@ function Commands_Graph_n__6759_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
|
11818
11978
|
}
|
|
11819
11979
|
}
|
|
11820
11980
|
|
|
11821
|
-
/* Commands.Graph.
|
|
11822
|
-
function
|
|
11981
|
+
/* Commands.Graph.7730:7009:augment */
|
|
11982
|
+
function Commands_Graph_n__7730_7009_augment($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
11823
11983
|
return {a1: $9, a2: Prelude_Types_maybe(() => 0n, () => $f => $f, Data_SortedMap_lookup($9.a1, $8))};
|
|
11824
11984
|
}
|
|
11825
11985
|
|
|
@@ -11865,7 +12025,7 @@ function Commands_Graph_length_HasLength_Date($0) {
|
|
|
11865
12025
|
|
|
11866
12026
|
/* Commands.Graph.label */
|
|
11867
12027
|
function Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $1, $2, $3, $4) {
|
|
11868
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
12028
|
+
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
12029
|
}
|
|
11870
12030
|
|
|
11871
12031
|
/* Commands.Graph.label */
|
|
@@ -11919,11 +12079,11 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11919
12079
|
break;
|
|
11920
12080
|
}
|
|
11921
12081
|
case undefined: /* just */ {
|
|
11922
|
-
$17 = Prelude_Types_List_mapAppend({h: 0}, $26 =>
|
|
12082
|
+
$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
12083
|
break;
|
|
11924
12084
|
}
|
|
11925
12085
|
}
|
|
11926
|
-
const $33 = Prelude_Types_maybe(() => 0n, () => $37 => $37, Prelude_Types_map_Functor_Maybe($3b =>
|
|
12086
|
+
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
12087
|
const $49 = Prelude_Types_foldr_Foldable_List($4c => $4d => Data_Nat_maximum(Commands_Graph_labelLength_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $3, $4c), $4d), 0n, $17);
|
|
11928
12088
|
switch($8.h) {
|
|
11929
12089
|
case 0: /* nil */ return Text_PrettyPrint_Prettyprinter_Doc_emptyDoc();
|
|
@@ -11941,8 +12101,8 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11941
12101
|
}
|
|
11942
12102
|
}
|
|
11943
12103
|
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:
|
|
12104
|
+
const $6d = {a1: $6e, a2: {a1: Commands_Graph_n__7730_7011_footer($1, $2, $3, $7, $6, $5, $4, $0), a2: {h: 0}}};
|
|
12105
|
+
const $62 = {a1: Commands_Graph_n__7730_7012_header($1, $2, $3, $7, $6, $5, $4, $0), a2: $6d};
|
|
11946
12106
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep($62);
|
|
11947
12107
|
}
|
|
11948
12108
|
}
|
|
@@ -11950,9 +12110,9 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11950
12110
|
|
|
11951
12111
|
/* Commands.Graph.healthGraph : Config => List PullRequest -> String -> String -> Doc AnsiStyle */
|
|
11952
12112
|
function Commands_Graph_healthGraph($0, $1, $2, $3) {
|
|
11953
|
-
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(
|
|
12113
|
+
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(csegen_328(), $11 => $11.a2, $b, $c), csegen_643(), $7, $8), Data_List_sortBy(csegen_644(), $1));
|
|
11954
12114
|
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:
|
|
12115
|
+
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_778(), $36), a2: $41 => maxLabelLength => Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $45 => Commands_Graph_length_HasLength_Date($45), csegen_778(), $41, maxLabelLength), a3: $4d => Commands_Graph_labelLength_Graphable_x28PRsOnDatex20x24dateTyx29($0, $51 => Commands_Graph_length_HasLength_Date($51), csegen_778(), $4d), a4: $58 => Commands_Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29($0, $5c => Commands_Graph_length_HasLength_Date($5c), csegen_778(), $58), a5: $63 => Commands_Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29($0, $67 => Commands_Graph_length_HasLength_Date($67), csegen_778(), $63), a6: $6e => Commands_Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29($0, $72 => Commands_Graph_length_HasLength_Date($72), csegen_778(), $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
12116
|
}
|
|
11957
12117
|
|
|
11958
12118
|
/* Commands.Graph.graphOne : Config -> Graphable g => Nat -> Nat -> Nat -> g -> Doc AnsiStyle */
|
|
@@ -11975,7 +12135,7 @@ function Commands_Graph_countPadRight($0, $1, $2) {
|
|
|
11975
12135
|
|
|
11976
12136
|
/* Commands.Graph.bar : Config -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
11977
12137
|
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,
|
|
12138
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0, csegen_689(), csegen_689(), 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_690(), csegen_688(), 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_669(), csegen_669(), 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
12139
|
}
|
|
11980
12140
|
|
|
11981
12141
|
|