@mattpolzin/harmony 6.3.0 → 6.3.1
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- package/harmony +890 -625
- package/man/harmony.1 +1 -1
- package/package.json +1 -1
package/harmony
CHANGED
|
@@ -533,7 +533,8 @@ const digIssue = issue => {
|
|
|
533
533
|
created_at: issue.created_at,
|
|
534
534
|
title: issue.title,
|
|
535
535
|
body: issue.body,
|
|
536
|
-
assignee: issue.assignee ? issue.assignee.login : null
|
|
536
|
+
assignee: issue.assignee ? issue.assignee.login : null,
|
|
537
|
+
linked_pr_count: null
|
|
537
538
|
}
|
|
538
539
|
}
|
|
539
540
|
const digIssues = issueJson =>
|
|
@@ -566,6 +567,54 @@ const okit_list_open_issues = (octokit, owner, repo, onSuccess, onFailure) =>
|
|
|
566
567
|
onFailure
|
|
567
568
|
)
|
|
568
569
|
|
|
570
|
+
// Get GraphQL Issue Data
|
|
571
|
+
const digGraphQlIssue = issue => {
|
|
572
|
+
return {
|
|
573
|
+
graphql_id: issue.id,
|
|
574
|
+
issue_number: issue.number,
|
|
575
|
+
author: issue.author.login,
|
|
576
|
+
// state: issue.state.toLowerCase(),
|
|
577
|
+
created_at: issue.createdAt,
|
|
578
|
+
title: issue.title,
|
|
579
|
+
body: issue.body,
|
|
580
|
+
assignee: issue.assignedActors.nodes.map(a => a.login).at(0) || null,
|
|
581
|
+
linked_pr_count: issue.closedByPullRequestsReferences.nodes.length
|
|
582
|
+
}
|
|
583
|
+
}
|
|
584
|
+
const digGraphQlIssues = issueJson =>
|
|
585
|
+
issueJson.map(digGraphQlIssue)
|
|
586
|
+
|
|
587
|
+
const graphql_issue_selections = `
|
|
588
|
+
id
|
|
589
|
+
number
|
|
590
|
+
author { ... on Actor { login } }
|
|
591
|
+
state
|
|
592
|
+
createdAt
|
|
593
|
+
title
|
|
594
|
+
body
|
|
595
|
+
assignedActors(first: 10) { nodes { ... on Actor { login } } }
|
|
596
|
+
closedByPullRequestsReferences(first: 10) { nodes { ... on PullRequest { number } } }
|
|
597
|
+
`
|
|
598
|
+
|
|
599
|
+
const okit_list_open_issues_graphql = (octokit, owner, repo, onSuccess, onFailure) =>
|
|
600
|
+
idris__okit_unpromisify(
|
|
601
|
+
octokit.graphql({
|
|
602
|
+
query: `query listIssues($owner: String!, $repo: String!) {
|
|
603
|
+
repository(owner: $owner, name: $repo) {
|
|
604
|
+
issues(states: [OPEN], orderBy: {field: UPDATED_AT, direction: DESC}, first: 30) {
|
|
605
|
+
nodes { ... on Issue {
|
|
606
|
+
${graphql_issue_selections}
|
|
607
|
+
}}
|
|
608
|
+
}
|
|
609
|
+
}
|
|
610
|
+
}`,
|
|
611
|
+
owner,
|
|
612
|
+
repo
|
|
613
|
+
}),
|
|
614
|
+
r => onSuccess(JSON.stringify(digGraphQlIssues(r.repository.issues.nodes))),
|
|
615
|
+
onFailure
|
|
616
|
+
)
|
|
617
|
+
|
|
569
618
|
// list team members
|
|
570
619
|
const digUserLogins = usersJson =>
|
|
571
620
|
usersJson.map(u => u.login)
|
|
@@ -940,7 +989,7 @@ const FFI_GitHub_prim__listPullRequests = okit_list_pull_requests;
|
|
|
940
989
|
const FFI_GitHub_prim__listPRsForBranch = okit_list_pull_requests_for_branch;
|
|
941
990
|
const FFI_GitHub_prim__listOrgMembers = okit_list_org_members;
|
|
942
991
|
const FFI_GitHub_prim__listMyTeams = okit_list_my_teams;
|
|
943
|
-
const FFI_GitHub_prim__listIssues =
|
|
992
|
+
const FFI_GitHub_prim__listIssues = okit_list_open_issues_graphql;
|
|
944
993
|
const FFI_GitHub_prim__getUser = okit_get_user;
|
|
945
994
|
const FFI_GitHub_prim__getSelf = okit_get_self;
|
|
946
995
|
const FFI_GitHub_prim__getRepoDefaultBranch = okit_get_repo_default_branch;
|
|
@@ -986,7 +1035,7 @@ function x24tcOpt_1($0) {
|
|
|
986
1035
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
987
1036
|
default: {
|
|
988
1037
|
const $17 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
989
|
-
const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($0.a1.a1.a1,
|
|
1038
|
+
const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($0.a1.a1.a1, csegen_834(), $1e, $1f), $17, $0.a6);
|
|
990
1039
|
switch($1b.a1.h) {
|
|
991
1040
|
case 0: /* nothing */ {
|
|
992
1041
|
switch($0.a8) {
|
|
@@ -1001,7 +1050,7 @@ function x24tcOpt_1($0) {
|
|
|
1001
1050
|
}
|
|
1002
1051
|
default: {
|
|
1003
1052
|
const $64 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1004
|
-
const $68 = Data_List_DeleteBy_deleteByx27($6b => $6c => Prelude_Basics_on($0.a1.a1.a1,
|
|
1053
|
+
const $68 = Data_List_DeleteBy_deleteByx27($6b => $6c => Prelude_Basics_on($0.a1.a1.a1, csegen_834(), $6b, $6c), $64, $0.a6);
|
|
1005
1054
|
switch($68.a1.h) {
|
|
1006
1055
|
case 0: /* nothing */ {
|
|
1007
1056
|
switch($0.a8) {
|
|
@@ -1026,7 +1075,7 @@ function x24tcOpt_1($0) {
|
|
|
1026
1075
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
1027
1076
|
default: {
|
|
1028
1077
|
const $b5 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1029
|
-
const $b9 = Data_List_DeleteBy_deleteByx27($bc => $bd => Prelude_Basics_on($0.a1.a1.a1,
|
|
1078
|
+
const $b9 = Data_List_DeleteBy_deleteByx27($bc => $bd => Prelude_Basics_on($0.a1.a1.a1, csegen_834(), $bc, $bd), $b5, $0.a6);
|
|
1030
1079
|
switch($b9.a1.h) {
|
|
1031
1080
|
case 0: /* nothing */ {
|
|
1032
1081
|
switch($0.a8) {
|
|
@@ -1041,7 +1090,7 @@ function x24tcOpt_1($0) {
|
|
|
1041
1090
|
}
|
|
1042
1091
|
default: {
|
|
1043
1092
|
const $102 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1044
|
-
const $106 = Data_List_DeleteBy_deleteByx27($109 => $10a => Prelude_Basics_on($0.a1.a1.a1,
|
|
1093
|
+
const $106 = Data_List_DeleteBy_deleteByx27($109 => $10a => Prelude_Basics_on($0.a1.a1.a1, csegen_834(), $109, $10a), $102, $0.a6);
|
|
1045
1094
|
switch($106.a1.h) {
|
|
1046
1095
|
case 0: /* nothing */ {
|
|
1047
1096
|
switch($0.a8) {
|
|
@@ -1106,7 +1155,7 @@ function Prelude_Show_n__3215_12601_showx27($0, $1, $2, $3) {
|
|
|
1106
1155
|
/* {$tcOpt:4} */
|
|
1107
1156
|
function x24tcOpt_4($0) {
|
|
1108
1157
|
switch($0.h) {
|
|
1109
|
-
case 1: /* {TcContinue4:1} */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5(), a6: $0.a9, a7: {a1: {a1: $0.a6.a3, a2: {a1:
|
|
1158
|
+
case 1: /* {TcContinue4:1} */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5(), a6: $0.a9, a7: {a1: {a1: $0.a6.a3, a2: {a1: Commands_Graph_n__7330_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a8), a2: $0.a11}}}};
|
|
1110
1159
|
case 2: /* {TcContinue4:2} */ {
|
|
1111
1160
|
switch($0.a5.h) {
|
|
1112
1161
|
case 0: /* nothing */ {
|
|
@@ -1125,7 +1174,7 @@ function x24tcOpt_4($0) {
|
|
|
1125
1174
|
case undefined: /* cons */ return {h: 0 /* {TcDone:4} */, a1: $0.a7.a1.a2};
|
|
1126
1175
|
default: {
|
|
1127
1176
|
switch($0.a7.h) {
|
|
1128
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1:
|
|
1177
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1: Commands_Graph_n__7330_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1129
1178
|
case undefined: /* just */ {
|
|
1130
1179
|
const $39 = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1131
1180
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1139,7 +1188,7 @@ function x24tcOpt_4($0) {
|
|
|
1139
1188
|
}
|
|
1140
1189
|
default: {
|
|
1141
1190
|
switch($0.a7.h) {
|
|
1142
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1:
|
|
1191
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1: Commands_Graph_n__7330_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1143
1192
|
case undefined: /* just */ {
|
|
1144
1193
|
const $73 = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1145
1194
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1153,7 +1202,7 @@ function x24tcOpt_4($0) {
|
|
|
1153
1202
|
}
|
|
1154
1203
|
default: {
|
|
1155
1204
|
switch($0.a7.h) {
|
|
1156
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1:
|
|
1205
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1: Commands_Graph_n__7330_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1157
1206
|
case undefined: /* just */ {
|
|
1158
1207
|
const $ad = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1159
1208
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1177,7 +1226,7 @@ function x24tcOpt_4($0) {
|
|
|
1177
1226
|
case undefined: /* cons */ return {h: 0 /* {TcDone:4} */, a1: $0.a7.a1.a2};
|
|
1178
1227
|
default: {
|
|
1179
1228
|
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:
|
|
1229
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1: Commands_Graph_n__7330_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1181
1230
|
case undefined: /* just */ {
|
|
1182
1231
|
const $ec = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1183
1232
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1191,7 +1240,7 @@ function x24tcOpt_4($0) {
|
|
|
1191
1240
|
}
|
|
1192
1241
|
default: {
|
|
1193
1242
|
switch($0.a7.h) {
|
|
1194
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1:
|
|
1243
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1: Commands_Graph_n__7330_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1195
1244
|
case undefined: /* just */ {
|
|
1196
1245
|
const $126 = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1197
1246
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1205,7 +1254,7 @@ function x24tcOpt_4($0) {
|
|
|
1205
1254
|
}
|
|
1206
1255
|
default: {
|
|
1207
1256
|
switch($0.a7.h) {
|
|
1208
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1:
|
|
1257
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1: Commands_Graph_n__7330_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1209
1258
|
case undefined: /* just */ {
|
|
1210
1259
|
const $160 = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1211
1260
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1229,7 +1278,7 @@ function x24tcOpt_4($0) {
|
|
|
1229
1278
|
case undefined: /* cons */ return {h: 0 /* {TcDone:4} */, a1: $0.a7.a1.a2};
|
|
1230
1279
|
default: {
|
|
1231
1280
|
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:
|
|
1281
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1: Commands_Graph_n__7330_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1233
1282
|
case undefined: /* just */ {
|
|
1234
1283
|
const $19f = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1235
1284
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1243,7 +1292,7 @@ function x24tcOpt_4($0) {
|
|
|
1243
1292
|
}
|
|
1244
1293
|
default: {
|
|
1245
1294
|
switch($0.a7.h) {
|
|
1246
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1:
|
|
1295
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1: Commands_Graph_n__7330_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1247
1296
|
case undefined: /* just */ {
|
|
1248
1297
|
const $1d9 = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1249
1298
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1257,7 +1306,7 @@ function x24tcOpt_4($0) {
|
|
|
1257
1306
|
}
|
|
1258
1307
|
default: {
|
|
1259
1308
|
switch($0.a7.h) {
|
|
1260
|
-
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1:
|
|
1309
|
+
case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a1(), a6: $0.a6.a2, a7: {a1: {a1: $0.a6.a1.a1.a3, a2: {a1: Commands_Graph_n__7330_6603_graphable($0.a1, $0.a2, $0.a3, $0.a4, $0.a6.a1), a2: {h: 0}}}}};
|
|
1261
1310
|
case undefined: /* just */ {
|
|
1262
1311
|
const $213 = {a1: $0.a6.a1.a1, a2: $0.a6.a1.a2};
|
|
1263
1312
|
switch(((Data_Date_nextMonth($0.a7.a1.a1.a2)===$0.a6.a1.a1.a3.a2)?1:0)) {
|
|
@@ -1279,18 +1328,18 @@ function x24tcOpt_4($0) {
|
|
|
1279
1328
|
}
|
|
1280
1329
|
}
|
|
1281
1330
|
|
|
1282
|
-
/* Commands.Graph.
|
|
1283
|
-
function
|
|
1331
|
+
/* Commands.Graph.7351:6732:insertNext */
|
|
1332
|
+
function Commands_Graph_n__7351_6732_insertNext($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a) {
|
|
1284
1333
|
return __tailRec(x24tcOpt_4, {h: 1 /* {TcContinue4:1} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6, a8: $7, a9: $8, a10: $9, a11: $a});
|
|
1285
1334
|
}
|
|
1286
1335
|
|
|
1287
|
-
/* Commands.Graph.
|
|
1288
|
-
function
|
|
1336
|
+
/* Commands.Graph.7330:6606:unfoldGraph */
|
|
1337
|
+
function Commands_Graph_n__7330_6606_unfoldGraph($0, $1, $2, $3, $4, $5, $6) {
|
|
1289
1338
|
return __tailRec(x24tcOpt_4, {h: 2 /* {TcContinue4:2} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6});
|
|
1290
1339
|
}
|
|
1291
1340
|
|
|
1292
|
-
/* Commands.Graph.
|
|
1293
|
-
function
|
|
1341
|
+
/* Commands.Graph.7351:6733:insertPlaceholder */
|
|
1342
|
+
function Commands_Graph_n__7351_6733_insertPlaceholder($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a) {
|
|
1294
1343
|
return __tailRec(x24tcOpt_4, {h: 3 /* {TcContinue4:3} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6, a8: $7, a9: $8, a10: $9, a11: $a});
|
|
1295
1344
|
}
|
|
1296
1345
|
|
|
@@ -1630,7 +1679,7 @@ function x24tcOpt_14($0) {
|
|
|
1630
1679
|
default: return {h: 0 /* {TcDone:14} */, a1: Data_List_Suffix_Result0_failInParen($c4 => JSON_Parser_interpolate_Interpolation_JSToken($c4), $0.a6, {h: 0 /* Symbol */, a1: '{'}, $0.a7)};
|
|
1631
1680
|
}
|
|
1632
1681
|
}
|
|
1633
|
-
case 2: /* EOI */ return {h: 0 /* {TcDone:14} */, a1: {h: 1 /* Fail0 */, a1: {a1:
|
|
1682
|
+
case 2: /* EOI */ return {h: 0 /* {TcDone:14} */, a1: {h: 1 /* Fail0 */, a1: {a1: csegen_280(), a2: $0.a6}}};
|
|
1634
1683
|
default: return {h: 0 /* {TcDone:14} */, a1: Data_List_Suffix_Result0_failInParen($d3 => JSON_Parser_interpolate_Interpolation_JSToken($d3), $0.a6, {h: 0 /* Symbol */, a1: '{'}, $0.a7)};
|
|
1635
1684
|
}
|
|
1636
1685
|
}
|
|
@@ -1648,7 +1697,7 @@ function x24tcOpt_14($0) {
|
|
|
1648
1697
|
switch($0.a7.a1.a1.a1.h) {
|
|
1649
1698
|
case 0: /* nil */ {
|
|
1650
1699
|
switch($0.a7.a1.a1.a2) {
|
|
1651
|
-
case 'end of input': return {h: 0 /* {TcDone:14} */, a1: {h: 1 /* Fail0 */, a1: {a1:
|
|
1700
|
+
case 'end of input': return {h: 0 /* {TcDone:14} */, a1: {h: 1 /* Fail0 */, a1: {a1: csegen_280(), a2: $0.a6}}};
|
|
1652
1701
|
default: return {h: 0 /* {TcDone:14} */, a1: Data_List_Suffix_Result0_failInParen($fa => JSON_Parser_interpolate_Interpolation_JSToken($fa), $0.a6, {h: 0 /* Symbol */, a1: '{'}, $0.a7)};
|
|
1653
1702
|
}
|
|
1654
1703
|
}
|
|
@@ -2408,7 +2457,7 @@ function x24tcOpt_46($0) {
|
|
|
2408
2457
|
default: return {h: 0 /* {TcDone:46} */, a1: Data_List_Suffix_Result0_failInParen($1e => JSON_Parser_interpolate_Interpolation_JSToken($1e), $0.a3, {h: 0 /* Symbol */, a1: '['}, $0.a4)};
|
|
2409
2458
|
}
|
|
2410
2459
|
}
|
|
2411
|
-
case 2: /* EOI */ return {h: 0 /* {TcDone:46} */, a1: {h: 1 /* Fail0 */, a1: {a1:
|
|
2460
|
+
case 2: /* EOI */ return {h: 0 /* {TcDone:46} */, a1: {h: 1 /* Fail0 */, a1: {a1: csegen_281(), a2: $0.a3}}};
|
|
2412
2461
|
default: return {h: 0 /* {TcDone:46} */, a1: Data_List_Suffix_Result0_failInParen($2d => JSON_Parser_interpolate_Interpolation_JSToken($2d), $0.a3, {h: 0 /* Symbol */, a1: '['}, $0.a4)};
|
|
2413
2462
|
}
|
|
2414
2463
|
}
|
|
@@ -2426,7 +2475,7 @@ function x24tcOpt_46($0) {
|
|
|
2426
2475
|
switch($0.a4.a1.a1.a1.h) {
|
|
2427
2476
|
case 0: /* nil */ {
|
|
2428
2477
|
switch($0.a4.a1.a1.a2) {
|
|
2429
|
-
case 'end of input': return {h: 0 /* {TcDone:46} */, a1: {h: 1 /* Fail0 */, a1: {a1:
|
|
2478
|
+
case 'end of input': return {h: 0 /* {TcDone:46} */, a1: {h: 1 /* Fail0 */, a1: {a1: csegen_281(), a2: $0.a3}}};
|
|
2430
2479
|
default: return {h: 0 /* {TcDone:46} */, a1: Data_List_Suffix_Result0_failInParen($54 => JSON_Parser_interpolate_Interpolation_JSToken($54), $0.a3, {h: 0 /* Symbol */, a1: '['}, $0.a4)};
|
|
2431
2480
|
}
|
|
2432
2481
|
}
|
|
@@ -2725,18 +2774,18 @@ const csegen_275 = __lazy(function () {
|
|
|
2725
2774
|
return {a1: x => JSON_Parser_showImpl(x), a2: d => x => JSON_Parser_showImpl(x)};
|
|
2726
2775
|
});
|
|
2727
2776
|
|
|
2728
|
-
/* {csegen:
|
|
2729
|
-
const
|
|
2777
|
+
/* {csegen:280} */
|
|
2778
|
+
const csegen_280 = __lazy(function () {
|
|
2730
2779
|
return {h: 8 /* Unclosed */, a1: JSON_Parser_interpolate_Interpolation_JSToken({h: 0 /* Symbol */, a1: '{'})};
|
|
2731
2780
|
});
|
|
2732
2781
|
|
|
2733
|
-
/* {csegen:
|
|
2734
|
-
const
|
|
2782
|
+
/* {csegen:281} */
|
|
2783
|
+
const csegen_281 = __lazy(function () {
|
|
2735
2784
|
return {h: 8 /* Unclosed */, a1: JSON_Parser_interpolate_Interpolation_JSToken({h: 0 /* Symbol */, a1: '['})};
|
|
2736
2785
|
});
|
|
2737
2786
|
|
|
2738
|
-
/* {csegen:
|
|
2739
|
-
const
|
|
2787
|
+
/* {csegen:286} */
|
|
2788
|
+
const csegen_286 = __lazy(function () {
|
|
2740
2789
|
return $0 => {
|
|
2741
2790
|
const $1 = JSON_Parser_parseJSON({h: 0}, $0);
|
|
2742
2791
|
switch($1.h) {
|
|
@@ -2746,38 +2795,43 @@ const csegen_285 = __lazy(function () {
|
|
|
2746
2795
|
};
|
|
2747
2796
|
});
|
|
2748
2797
|
|
|
2749
|
-
/* {csegen:
|
|
2750
|
-
const
|
|
2798
|
+
/* {csegen:293} */
|
|
2799
|
+
const csegen_293 = __lazy(function () {
|
|
2751
2800
|
return $0 => $1 => (($0===$1)?1:0);
|
|
2752
2801
|
});
|
|
2753
2802
|
|
|
2754
|
-
/* {csegen:
|
|
2755
|
-
const
|
|
2803
|
+
/* {csegen:296} */
|
|
2804
|
+
const csegen_296 = __lazy(function () {
|
|
2756
2805
|
return $0 => $1 => Prelude_EqOrd_compare_Ord_Integer($0, $1);
|
|
2757
2806
|
});
|
|
2758
2807
|
|
|
2759
|
-
/* {csegen:
|
|
2760
|
-
const
|
|
2808
|
+
/* {csegen:301} */
|
|
2809
|
+
const csegen_301 = __lazy(function () {
|
|
2761
2810
|
return $0 => $1 => Prelude_Types_max_Ord_Nat($0, $1);
|
|
2762
2811
|
});
|
|
2763
2812
|
|
|
2764
|
-
/* {csegen:
|
|
2765
|
-
const
|
|
2813
|
+
/* {csegen:314} */
|
|
2814
|
+
const csegen_314 = __lazy(function () {
|
|
2766
2815
|
return $0 => Language_JSON_Accessors_array($3 => Data_PullRequest_parsePR($3), $0);
|
|
2767
2816
|
});
|
|
2768
2817
|
|
|
2769
|
-
/* {csegen:
|
|
2770
|
-
const
|
|
2818
|
+
/* {csegen:338} */
|
|
2819
|
+
const csegen_338 = __lazy(function () {
|
|
2820
|
+
return () => $0 => Language_JSON_Accessors_optional($3 => Language_JSON_Accessors_string($3), $0);
|
|
2821
|
+
});
|
|
2822
|
+
|
|
2823
|
+
/* {csegen:370} */
|
|
2824
|
+
const csegen_370 = __lazy(function () {
|
|
2771
2825
|
return {a1: csegen_76(), a2: $3 => $4 => Prelude_EqOrd_compare_Ord_String($3, $4), a3: $9 => $a => Prelude_EqOrd_x3c_Ord_String($9, $a), a4: $f => $10 => Prelude_EqOrd_x3e_Ord_String($f, $10), a5: $15 => $16 => Prelude_EqOrd_x3cx3d_Ord_String($15, $16), a6: $1b => $1c => Prelude_EqOrd_x3ex3d_Ord_String($1b, $1c), a7: $21 => $22 => Prelude_EqOrd_max_Ord_String($21, $22), a8: $27 => $28 => Prelude_EqOrd_min_Ord_String($27, $28)};
|
|
2772
2826
|
});
|
|
2773
2827
|
|
|
2774
|
-
/* {csegen:
|
|
2775
|
-
const
|
|
2828
|
+
/* {csegen:373} */
|
|
2829
|
+
const csegen_373 = __lazy(function () {
|
|
2776
2830
|
return {a1: $1 => $2 => Prelude_EqOrd_x3dx3d_Eq_Integer($1, $2), a2: $7 => $8 => Prelude_EqOrd_x2fx3d_Eq_Integer($7, $8)};
|
|
2777
2831
|
});
|
|
2778
2832
|
|
|
2779
|
-
/* {csegen:
|
|
2780
|
-
const
|
|
2833
|
+
/* {csegen:381} */
|
|
2834
|
+
const csegen_381 = __lazy(function () {
|
|
2781
2835
|
return $0 => {
|
|
2782
2836
|
const $1 = Language_JSON_Accessors_string($0);
|
|
2783
2837
|
switch($1.h) {
|
|
@@ -2787,93 +2841,93 @@ const csegen_380 = __lazy(function () {
|
|
|
2787
2841
|
};
|
|
2788
2842
|
});
|
|
2789
2843
|
|
|
2790
|
-
/* {csegen:
|
|
2791
|
-
const
|
|
2844
|
+
/* {csegen:388} */
|
|
2845
|
+
const csegen_388 = __lazy(function () {
|
|
2792
2846
|
return {a1: $1 => $2 => _add32s($1, $2), a2: $6 => $7 => _mul32s($6, $7), a3: $b => Number(_truncBigInt32($b))};
|
|
2793
2847
|
});
|
|
2794
2848
|
|
|
2795
|
-
/* {csegen:
|
|
2796
|
-
const
|
|
2849
|
+
/* {csegen:408} */
|
|
2850
|
+
const csegen_408 = __lazy(function () {
|
|
2797
2851
|
return $0 => Prelude_EqOrd_x3dx3d_Eq_Char($0, '/');
|
|
2798
2852
|
});
|
|
2799
2853
|
|
|
2800
|
-
/* {csegen:
|
|
2801
|
-
const
|
|
2802
|
-
return $0 => $0.a1;
|
|
2854
|
+
/* {csegen:414} */
|
|
2855
|
+
const csegen_414 = __lazy(function () {
|
|
2856
|
+
return () => $0 => $0.a1;
|
|
2803
2857
|
});
|
|
2804
2858
|
|
|
2805
|
-
/* {csegen:
|
|
2806
|
-
const
|
|
2859
|
+
/* {csegen:427} */
|
|
2860
|
+
const csegen_427 = __lazy(function () {
|
|
2807
2861
|
return () => $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Number(_truncUBigInt32($4)), System_time(csegen_48()()), $0, $1);
|
|
2808
2862
|
});
|
|
2809
2863
|
|
|
2810
|
-
/* {csegen:
|
|
2811
|
-
const
|
|
2864
|
+
/* {csegen:432} */
|
|
2865
|
+
const csegen_432 = __lazy(function () {
|
|
2812
2866
|
return $0 => $1 => $2 => $3 => Prelude_Types_map_Functor_Maybe($2, $3);
|
|
2813
2867
|
});
|
|
2814
2868
|
|
|
2815
|
-
/* {csegen:
|
|
2816
|
-
const
|
|
2869
|
+
/* {csegen:453} */
|
|
2870
|
+
const csegen_453 = __lazy(function () {
|
|
2817
2871
|
return () => $0 => $1 => $2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($5 => Prelude_IO_prim__putStr('\n', $5), $0, $1, $2);
|
|
2818
2872
|
});
|
|
2819
2873
|
|
|
2820
|
-
/* {csegen:
|
|
2821
|
-
const
|
|
2874
|
+
/* {csegen:455} */
|
|
2875
|
+
const csegen_455 = __lazy(function () {
|
|
2822
2876
|
return () => $0 => $1 => $2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($5 => Prelude_IO_prim__getStr($5), $0, $1, $2);
|
|
2823
2877
|
});
|
|
2824
2878
|
|
|
2825
|
-
/* {csegen:
|
|
2826
|
-
const
|
|
2879
|
+
/* {csegen:459} */
|
|
2880
|
+
const csegen_459 = __lazy(function () {
|
|
2827
2881
|
return () => $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 0}, $0, $1);
|
|
2828
2882
|
});
|
|
2829
2883
|
|
|
2830
|
-
/* {csegen:
|
|
2831
|
-
const
|
|
2884
|
+
/* {csegen:473} */
|
|
2885
|
+
const csegen_473 = __lazy(function () {
|
|
2832
2886
|
return {a1: Commands_Help_argument(0, '...'), a2: {h: 0}};
|
|
2833
2887
|
});
|
|
2834
2888
|
|
|
2835
|
-
/* {csegen:
|
|
2836
|
-
const
|
|
2837
|
-
return {a1: Commands_Help_argument(0, '#<label>'), a2:
|
|
2889
|
+
/* {csegen:478} */
|
|
2890
|
+
const csegen_478 = __lazy(function () {
|
|
2891
|
+
return {a1: Commands_Help_argument(0, '#<label>'), a2: csegen_473()};
|
|
2838
2892
|
});
|
|
2839
2893
|
|
|
2840
|
-
/* {csegen:
|
|
2841
|
-
const
|
|
2894
|
+
/* {csegen:648} */
|
|
2895
|
+
const csegen_648 = __lazy(function () {
|
|
2842
2896
|
return $0 => $1 => System_Git_currentBranch($0, $1);
|
|
2843
2897
|
});
|
|
2844
2898
|
|
|
2845
|
-
/* {csegen:
|
|
2846
|
-
const
|
|
2899
|
+
/* {csegen:662} */
|
|
2900
|
+
const csegen_662 = __lazy(function () {
|
|
2847
2901
|
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)})};
|
|
2848
2902
|
});
|
|
2849
2903
|
|
|
2850
|
-
/* {csegen:
|
|
2851
|
-
const
|
|
2904
|
+
/* {csegen:666} */
|
|
2905
|
+
const csegen_666 = __lazy(function () {
|
|
2852
2906
|
return {a1: {h: 0}, a2: {a1: '-i', a2: {h: 0}}};
|
|
2853
2907
|
});
|
|
2854
2908
|
|
|
2855
|
-
/* {csegen:
|
|
2856
|
-
const
|
|
2909
|
+
/* {csegen:671} */
|
|
2910
|
+
const csegen_671 = __lazy(function () {
|
|
2857
2911
|
return $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $0, $1);
|
|
2858
2912
|
});
|
|
2859
2913
|
|
|
2860
|
-
/* {csegen:
|
|
2861
|
-
const
|
|
2914
|
+
/* {csegen:695} */
|
|
2915
|
+
const csegen_695 = __lazy(function () {
|
|
2862
2916
|
return {a1: csegen_9(), a2: a => ({h: 0}), a3: a => $4 => $5 => Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, $5)};
|
|
2863
2917
|
});
|
|
2864
2918
|
|
|
2865
|
-
/* {csegen:
|
|
2866
|
-
const
|
|
2867
|
-
return $0 => Data_List_sort(
|
|
2919
|
+
/* {csegen:696} */
|
|
2920
|
+
const csegen_696 = __lazy(function () {
|
|
2921
|
+
return $0 => Data_List_sort(csegen_370(), $0);
|
|
2868
2922
|
});
|
|
2869
2923
|
|
|
2870
|
-
/* {csegen:
|
|
2871
|
-
const
|
|
2924
|
+
/* {csegen:698} */
|
|
2925
|
+
const csegen_698 = __lazy(function () {
|
|
2872
2926
|
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_66(), $0, $1, $2);
|
|
2873
2927
|
});
|
|
2874
2928
|
|
|
2875
|
-
/* {csegen:
|
|
2876
|
-
const
|
|
2929
|
+
/* {csegen:705} */
|
|
2930
|
+
const csegen_705 = __lazy(function () {
|
|
2877
2931
|
return $0 => {
|
|
2878
2932
|
switch($0.h) {
|
|
2879
2933
|
case 0: /* nothing */ return 1;
|
|
@@ -2882,83 +2936,83 @@ const csegen_704 = __lazy(function () {
|
|
|
2882
2936
|
};
|
|
2883
2937
|
});
|
|
2884
2938
|
|
|
2885
|
-
/* {csegen:709} */
|
|
2886
|
-
const csegen_709 = __lazy(function () {
|
|
2887
|
-
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2888
|
-
});
|
|
2889
|
-
|
|
2890
2939
|
/* {csegen:710} */
|
|
2891
2940
|
const csegen_710 = __lazy(function () {
|
|
2892
|
-
return $0 => $0
|
|
2941
|
+
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2893
2942
|
});
|
|
2894
2943
|
|
|
2895
2944
|
/* {csegen:711} */
|
|
2896
2945
|
const csegen_711 = __lazy(function () {
|
|
2897
|
-
return $0 => $
|
|
2946
|
+
return $0 => $0.a3;
|
|
2898
2947
|
});
|
|
2899
2948
|
|
|
2900
|
-
/* {csegen:
|
|
2901
|
-
const
|
|
2949
|
+
/* {csegen:712} */
|
|
2950
|
+
const csegen_712 = __lazy(function () {
|
|
2951
|
+
return $0 => $1 => Prelude_Basics_on(csegen_710(), csegen_711(), $0, $1);
|
|
2952
|
+
});
|
|
2953
|
+
|
|
2954
|
+
/* {csegen:734} */
|
|
2955
|
+
const csegen_734 = __lazy(function () {
|
|
2902
2956
|
return $0 => $0.a3;
|
|
2903
2957
|
});
|
|
2904
2958
|
|
|
2905
|
-
/* {csegen:
|
|
2906
|
-
const
|
|
2959
|
+
/* {csegen:737} */
|
|
2960
|
+
const csegen_737 = __lazy(function () {
|
|
2907
2961
|
return Theme_cs({a1: 2, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2908
2962
|
});
|
|
2909
2963
|
|
|
2910
|
-
/* {csegen:
|
|
2911
|
-
const
|
|
2964
|
+
/* {csegen:740} */
|
|
2965
|
+
const csegen_740 = __lazy(function () {
|
|
2912
2966
|
return $0 => $0.a1;
|
|
2913
2967
|
});
|
|
2914
2968
|
|
|
2915
|
-
/* {csegen:
|
|
2916
|
-
const
|
|
2969
|
+
/* {csegen:747} */
|
|
2970
|
+
const csegen_747 = __lazy(function () {
|
|
2917
2971
|
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}}}));
|
|
2918
2972
|
});
|
|
2919
2973
|
|
|
2920
|
-
/* {csegen:756} */
|
|
2921
|
-
const csegen_756 = __lazy(function () {
|
|
2922
|
-
return Theme_cs({a1: 0, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2923
|
-
});
|
|
2924
|
-
|
|
2925
2974
|
/* {csegen:757} */
|
|
2926
2975
|
const csegen_757 = __lazy(function () {
|
|
2927
|
-
return Theme_cs({a1:
|
|
2976
|
+
return Theme_cs({a1: 0, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2928
2977
|
});
|
|
2929
2978
|
|
|
2930
2979
|
/* {csegen:758} */
|
|
2931
2980
|
const csegen_758 = __lazy(function () {
|
|
2981
|
+
return Theme_cs({a1: 1, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2982
|
+
});
|
|
2983
|
+
|
|
2984
|
+
/* {csegen:759} */
|
|
2985
|
+
const csegen_759 = __lazy(function () {
|
|
2932
2986
|
return Theme_cs({a1: 3, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2933
2987
|
});
|
|
2934
2988
|
|
|
2935
|
-
/* {csegen:
|
|
2936
|
-
const
|
|
2989
|
+
/* {csegen:783} */
|
|
2990
|
+
const csegen_783 = __lazy(function () {
|
|
2937
2991
|
return $0 => Prelude_Types_either(() => $3 => '', () => $5 => $5, $0);
|
|
2938
2992
|
});
|
|
2939
2993
|
|
|
2940
|
-
/* {csegen:
|
|
2941
|
-
const
|
|
2994
|
+
/* {csegen:790} */
|
|
2995
|
+
const csegen_790 = __lazy(function () {
|
|
2942
2996
|
return $0 => Util_Prompting_yesNoPrompt(csegen_48()(), 1, 'Would you like to continue creating a Pull Request anyway?');
|
|
2943
2997
|
});
|
|
2944
2998
|
|
|
2945
|
-
/* {csegen:
|
|
2946
|
-
const
|
|
2999
|
+
/* {csegen:829} */
|
|
3000
|
+
const csegen_829 = __lazy(function () {
|
|
2947
3001
|
return $0 => Prelude_Types_fastPack(Prelude_Types_List_reverse($0));
|
|
2948
3002
|
});
|
|
2949
3003
|
|
|
2950
|
-
/* {csegen:
|
|
2951
|
-
const
|
|
3004
|
+
/* {csegen:834} */
|
|
3005
|
+
const csegen_834 = __lazy(function () {
|
|
2952
3006
|
return $0 => $0.a1;
|
|
2953
3007
|
});
|
|
2954
3008
|
|
|
2955
|
-
/* {csegen:
|
|
2956
|
-
const
|
|
3009
|
+
/* {csegen:844} */
|
|
3010
|
+
const csegen_844 = __lazy(function () {
|
|
2957
3011
|
return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}};
|
|
2958
3012
|
});
|
|
2959
3013
|
|
|
2960
|
-
/* {csegen:
|
|
2961
|
-
const
|
|
3014
|
+
/* {csegen:860} */
|
|
3015
|
+
const csegen_860 = __lazy(function () {
|
|
2962
3016
|
return {a1: ann => $1 => Commands_Graph_pretty_Pretty_Date($1), a2: ann => $5 => $6 => Commands_Graph_prettyPrec_Pretty_Date($5, $6)};
|
|
2963
3017
|
});
|
|
2964
3018
|
|
|
@@ -2974,7 +3028,7 @@ function Main_case__casex20blockx20inx20casex20blockx20inx20casex20blockx20inx20
|
|
|
2974
3028
|
case 0: /* nil */ {
|
|
2975
3029
|
const $1c = $1d => $1e => $1f => {
|
|
2976
3030
|
switch($1d.h) {
|
|
2977
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($23 => $24 => $25 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($28 => FFI_GitHub_octokit($1d.a1, $28), $23, $24, $25), $30 => $31 =>
|
|
3031
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($23 => $24 => $25 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($28 => FFI_GitHub_octokit($1d.a1, $28), $23, $24, $25), $30 => $31 => Main_n__9025_1301_gitCompletions($0, $1, $2, $3, $4, $6, () => $30, $31), $1e, $1f);
|
|
2978
3032
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 0}, $1e, $1f);
|
|
2979
3033
|
}
|
|
2980
3034
|
};
|
|
@@ -2985,35 +3039,35 @@ function Main_case__casex20blockx20inx20casex20blockx20inx20casex20blockx20inx20
|
|
|
2985
3039
|
};
|
|
2986
3040
|
}
|
|
2987
3041
|
|
|
2988
|
-
/* Main.
|
|
2989
|
-
function
|
|
3042
|
+
/* Main.9025:1302:trivialCompletions */
|
|
3043
|
+
function Main_n__9025_1302_trivialCompletions($0, $1, $2, $3, $4) {
|
|
2990
3044
|
return ShellCompletion_Common_cmdOpts($3, $2, $1, $0);
|
|
2991
3045
|
}
|
|
2992
3046
|
|
|
2993
|
-
/* Main.
|
|
2994
|
-
function
|
|
3047
|
+
/* Main.9436:1728:parsePg */
|
|
3048
|
+
function Main_n__9436_1728_parsePg($0, $1, $2, $3, $4, $5) {
|
|
2995
3049
|
return Data_String_parsePositive(csegen_2(), $5);
|
|
2996
3050
|
}
|
|
2997
3051
|
|
|
2998
|
-
/* Main.
|
|
2999
|
-
function
|
|
3052
|
+
/* Main.9436:1727:parseLim */
|
|
3053
|
+
function Main_n__9436_1727_parseLim($0, $1, $2, $3, $4) {
|
|
3000
3054
|
return Prelude_Interfaces_x3cx3dx3c(csegen_14(), x => Data_Fin_natToFin(x, 101n), $d => Data_String_parsePositive(csegen_2(), $d));
|
|
3001
3055
|
}
|
|
3002
3056
|
|
|
3003
|
-
/* Main.
|
|
3004
|
-
function
|
|
3057
|
+
/* Main.9025:1301:gitCompletions */
|
|
3058
|
+
function Main_n__9025_1301_gitCompletions($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
3005
3059
|
return ShellCompletion_Common_githubOpts($5, $6, $3, $2, $1, $0, $7);
|
|
3006
3060
|
}
|
|
3007
3061
|
|
|
3008
|
-
/* Main.
|
|
3009
|
-
function
|
|
3062
|
+
/* Main.9025:1300:ffiCompletions */
|
|
3063
|
+
function Main_n__9025_1300_ffiCompletions($0, $1, $2, $3, $4) {
|
|
3010
3064
|
return ShellCompletion_Common_ffiOpts(csegen_31()(), $3, $2, $1, $0);
|
|
3011
3065
|
}
|
|
3012
3066
|
|
|
3013
|
-
/* Main.
|
|
3014
|
-
function
|
|
3067
|
+
/* Main.9025:1299:completions */
|
|
3068
|
+
function Main_n__9025_1299_completions($0, $1, $2, $3, $4, $5) {
|
|
3015
3069
|
return $6 => {
|
|
3016
|
-
const $7 =
|
|
3070
|
+
const $7 = Main_n__9025_1302_trivialCompletions($0, $1, $2, $3, $4);
|
|
3017
3071
|
switch($7.h) {
|
|
3018
3072
|
case 0: /* nothing */ {
|
|
3019
3073
|
const $1e = $1f => $20 => $21 => {
|
|
@@ -3034,7 +3088,7 @@ function Main_n__8992_1299_completions($0, $1, $2, $3, $4, $5) {
|
|
|
3034
3088
|
case undefined: /* just */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29($1f.a1, $20, $21);
|
|
3035
3089
|
}
|
|
3036
3090
|
};
|
|
3037
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($10 => $11 => $12 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29(
|
|
3091
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($10 => $11 => $12 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29(Main_n__9025_1300_ffiCompletions($0, $1, $2, $3, $4), $10, $11, $12), $1e, $5, $6);
|
|
3038
3092
|
}
|
|
3039
3093
|
case undefined: /* just */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29($7.a1, $5, $6);
|
|
3040
3094
|
}
|
|
@@ -3067,8 +3121,8 @@ function Main_shouldUseColors($0) {
|
|
|
3067
3121
|
function Main_shellCompletion($0, $1, $2, $3, $4) {
|
|
3068
3122
|
const $6 = $7 => $8 => {
|
|
3069
3123
|
switch($1) {
|
|
3070
|
-
case 0: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c =>
|
|
3071
|
-
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($28 =>
|
|
3124
|
+
case 0: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c => Main_n__9025_1299_completions($4, $3, $2, $1, $0, $c), $15 => $16 => $17 => $18 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1b => Prelude_IO_prim__putStr(Data_String_fastUnlines($15), $1b), $16, $17, $18), $7, $8);
|
|
3125
|
+
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($28 => Main_n__9025_1299_completions($4, $3, $2, $1, $0, $28), $31 => $32 => $33 => $34 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($37 => Prelude_IO_prim__putStr(Data_String_Extra_join('~', csegen_66(), $31), $37), $32, $33, $34), $7, $8);
|
|
3072
3126
|
}
|
|
3073
3127
|
};
|
|
3074
3128
|
return Main_resolvex27x27($6);
|
|
@@ -3286,7 +3340,7 @@ function Main_handleAuthenticatedArgs($0, $1, $2) {
|
|
|
3286
3340
|
}
|
|
3287
3341
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe($b2, filter => ({a1: {a1: filter, a2: {a1: $af.a1, a2: $af.a2}}}));
|
|
3288
3342
|
};
|
|
3289
|
-
const $91 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $99 => $9a => ({a1: $99, a2: $9a})},
|
|
3343
|
+
const $91 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $99 => $9a => ({a1: $99, a2: $9a})}, Main_n__9436_1727_parseLim($1, $2.a2.a2.a1, $2.a2.a2.a2.a1, $2.a2.a2.a2.a2.a1, $0)($2.a2.a2.a2.a1)), Main_n__9436_1728_parsePg($1, $2.a2.a2.a1, $2.a2.a2.a2.a1, $2.a2.a2.a2.a2.a1, $0, $2.a2.a2.a2.a2.a1)), $ae);
|
|
3290
3344
|
return $bf => {
|
|
3291
3345
|
switch($91.h) {
|
|
3292
3346
|
case undefined: /* just */ return $c1 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequestsJsonStr($1, $0.a2, $0.a3, $91.a1.a1, $91.a1.a2.a1, $91.a1.a2.a2), pullsJsonStr => $d0 => $d1 => $d2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d5 => Prelude_IO_prim__putStr(pullsJsonStr, $d5), $d0, $d1, $d2), $bf, $c1);
|
|
@@ -5291,6 +5345,11 @@ function Prelude_Show_show_Show_Bits32($0) {
|
|
|
5291
5345
|
return Prelude_Show_showPrec_Show_Bits32({h: 0 /* Open */}, $0);
|
|
5292
5346
|
}
|
|
5293
5347
|
|
|
5348
|
+
/* Prelude.Show.show */
|
|
5349
|
+
function Prelude_Show_show_Show_x28Maybex20x24ax29($0, $1) {
|
|
5350
|
+
return Prelude_Show_showPrec_Show_x28Maybex20x24ax29($0, {h: 0 /* Open */}, $1);
|
|
5351
|
+
}
|
|
5352
|
+
|
|
5294
5353
|
/* Prelude.Show.show */
|
|
5295
5354
|
function Prelude_Show_show_Show_x28Listx20x24ax29($0, $1) {
|
|
5296
5355
|
return ('['+(Prelude_Show_n__3215_12601_showx27($0, $1, '', $1)+']'));
|
|
@@ -5321,6 +5380,14 @@ function Prelude_Show_showPrec_Show_Bits32($0, $1) {
|
|
|
5321
5380
|
return Prelude_Show_primNumShow($4 => (''+$4), $0, $1);
|
|
5322
5381
|
}
|
|
5323
5382
|
|
|
5383
|
+
/* Prelude.Show.showPrec */
|
|
5384
|
+
function Prelude_Show_showPrec_Show_x28Maybex20x24ax29($0, $1, $2) {
|
|
5385
|
+
switch($2.h) {
|
|
5386
|
+
case 0: /* nothing */ return 'Nothing';
|
|
5387
|
+
case undefined: /* just */ return Prelude_Show_showCon($1, 'Just', Prelude_Show_showArg($0, $2.a1));
|
|
5388
|
+
}
|
|
5389
|
+
}
|
|
5390
|
+
|
|
5324
5391
|
/* Prelude.Show.compare */
|
|
5325
5392
|
function Prelude_Show_compare_Ord_Prec($0, $1) {
|
|
5326
5393
|
switch($0.h) {
|
|
@@ -5392,6 +5459,16 @@ function Prelude_Show_showLitChar($0) {
|
|
|
5392
5459
|
}
|
|
5393
5460
|
}
|
|
5394
5461
|
|
|
5462
|
+
/* Prelude.Show.showCon : Prec -> String -> String -> String */
|
|
5463
|
+
function Prelude_Show_showCon($0, $1, $2) {
|
|
5464
|
+
return Prelude_Show_showParens(Prelude_Show_x3ex3d_Ord_Prec($0, {h: 6 /* App */}), ($1+$2));
|
|
5465
|
+
}
|
|
5466
|
+
|
|
5467
|
+
/* Prelude.Show.showArg : Show a => a -> String */
|
|
5468
|
+
function Prelude_Show_showArg($0, $1) {
|
|
5469
|
+
return (' '+$0.a2({h: 6 /* App */})($1));
|
|
5470
|
+
}
|
|
5471
|
+
|
|
5395
5472
|
/* Prelude.Show.protectEsc : (Char -> Bool) -> String -> String -> String */
|
|
5396
5473
|
function Prelude_Show_protectEsc($0, $1, $2) {
|
|
5397
5474
|
let $5;
|
|
@@ -6298,6 +6375,38 @@ function Data_Promise_bind($0, $1, $2, $3) {
|
|
|
6298
6375
|
return $4($3);
|
|
6299
6376
|
}
|
|
6300
6377
|
|
|
6378
|
+
/* ShellCompletion.Common.case block in describe,assigned */
|
|
6379
|
+
function ShellCompletion_Common_case__describex2cassigned_14860($0, $1, $2, $3) {
|
|
6380
|
+
switch($3.h) {
|
|
6381
|
+
case 0: /* nothing */ return '';
|
|
6382
|
+
case undefined: /* just */ {
|
|
6383
|
+
switch(Prelude_EqOrd_x3dx3d_Eq_String($3.a1, $2)) {
|
|
6384
|
+
case 1: return '{yours} ';
|
|
6385
|
+
case 0: return '{taken} ';
|
|
6386
|
+
}
|
|
6387
|
+
}
|
|
6388
|
+
}
|
|
6389
|
+
}
|
|
6390
|
+
|
|
6391
|
+
/* ShellCompletion.Common.case block in describe,openPrs */
|
|
6392
|
+
function ShellCompletion_Common_case__describex2copenPrs_14782($0, $1, $2) {
|
|
6393
|
+
switch($2.h) {
|
|
6394
|
+
case undefined: /* just */ {
|
|
6395
|
+
switch($2.a1) {
|
|
6396
|
+
case 0n: return '';
|
|
6397
|
+
default: {
|
|
6398
|
+
const $5 = ($2.a1-1n);
|
|
6399
|
+
switch($5) {
|
|
6400
|
+
case 0n: return '{1 PR} ';
|
|
6401
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1: '{', a2: {a1: Prelude_Show_show_Show_Nat($2.a1), a2: {a1: ' PRs} ', a2: {h: 0}}}});
|
|
6402
|
+
}
|
|
6403
|
+
}
|
|
6404
|
+
}
|
|
6405
|
+
}
|
|
6406
|
+
case 0: /* nothing */ return '';
|
|
6407
|
+
}
|
|
6408
|
+
}
|
|
6409
|
+
|
|
6301
6410
|
/* ShellCompletion.Common.case block in optsForRequestCmd,slugsOrLoginsOrLabels */
|
|
6302
6411
|
function ShellCompletion_Common_case__optsForRequestCmdx2cslugsOrLoginsOrLabels_14147($0, $1, $2, $3) {
|
|
6303
6412
|
switch($3.h) {
|
|
@@ -6321,14 +6430,27 @@ function ShellCompletion_Common_case__optsForRequestCmdx2cslugsOrLoginsOrLabels_
|
|
|
6321
6430
|
}
|
|
6322
6431
|
}
|
|
6323
6432
|
|
|
6324
|
-
/* ShellCompletion.Common.
|
|
6325
|
-
function
|
|
6433
|
+
/* ShellCompletion.Common.6549:14141:slugsOrLoginsOrLabels */
|
|
6434
|
+
function ShellCompletion_Common_n__6549_14141_slugsOrLoginsOrLabels($0, $1, $2) {
|
|
6326
6435
|
return ShellCompletion_Common_case__optsForRequestCmdx2cslugsOrLoginsOrLabels_14147($0, $1, $2, Data_String_asList($0));
|
|
6327
6436
|
}
|
|
6328
6437
|
|
|
6438
|
+
/* ShellCompletion.Common.7174:14776:openPrs */
|
|
6439
|
+
function ShellCompletion_Common_n__7174_14776_openPrs($0, $1) {
|
|
6440
|
+
return ShellCompletion_Common_case__describex2copenPrs_14782($0, $1, $0.a7);
|
|
6441
|
+
}
|
|
6442
|
+
|
|
6443
|
+
/* ShellCompletion.Common.7174:14775:assigned */
|
|
6444
|
+
function ShellCompletion_Common_n__7174_14775_assigned($0, $1, $2) {
|
|
6445
|
+
switch($2.h) {
|
|
6446
|
+
case 0: /* nothing */ return '';
|
|
6447
|
+
case undefined: /* just */ return ShellCompletion_Common_case__describex2cassigned_14860($0, $1, $2.a1, $0.a6);
|
|
6448
|
+
}
|
|
6449
|
+
}
|
|
6450
|
+
|
|
6329
6451
|
/* ShellCompletion.Common.optsForRequestCmd : Config => CompletionStyle -> String -> List String */
|
|
6330
6452
|
function ShellCompletion_Common_optsForRequestCmd($0, $1, $2) {
|
|
6331
|
-
return Prelude_Types_List_tailRecAppend(ShellCompletion_Util_withPrefix($1, $2, ShellCompletion_Common_allRequestCmdOpts($1)),
|
|
6453
|
+
return Prelude_Types_List_tailRecAppend(ShellCompletion_Util_withPrefix($1, $2, ShellCompletion_Common_allRequestCmdOpts($1)), ShellCompletion_Common_n__6549_14141_slugsOrLoginsOrLabels($2, $1, $0));
|
|
6332
6454
|
}
|
|
6333
6455
|
|
|
6334
6456
|
/* ShellCompletion.Common.optsForPrIntoOption : HasIO io => String -> io (Maybe (List String)) */
|
|
@@ -6365,7 +6487,10 @@ function ShellCompletion_Common_githubOpts($0, $1, $2, $3, $4, $5, $6) {
|
|
|
6365
6487
|
const $12 = issues => {
|
|
6366
6488
|
const $13 = ShellCompletion_Util_unhashify($4);
|
|
6367
6489
|
const $16 = $17 => ShellCompletion_Util_stringify($2, Data_CompletionStyle_completionResult($2, $17));
|
|
6368
|
-
|
|
6490
|
+
const $1e = $1f => $20 => Prelude_Basics_on($23 => $24 => ShellCompletion_Common_compareIssues($0.a15, $23, $24), $2b => Builtin_snd($2b), $1f, $20);
|
|
6491
|
+
const $30 = $31 => ShellCompletion_Common_describe($0.a15, $31);
|
|
6492
|
+
const $36 = Prelude_Types_List_mapMaybeAppend({h: 0}, i => Prelude_Types_map_Functor_Maybe($3c => ({a1: $3c, a2: i}), ShellCompletion_Common_hashifyIfPrefix($13, i.a1)), issues);
|
|
6493
|
+
return $45 => $46 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_List_mapAppend({h: 0}, $4c => $16({a1: $4c.a1, a2: $30($4c.a2)}), Data_List_sortBy($1e, $36)), $45, $46);
|
|
6369
6494
|
};
|
|
6370
6495
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listIssues($1(), $0.a2, $0.a3), $12, $6, $7);
|
|
6371
6496
|
}
|
|
@@ -6389,6 +6514,11 @@ function ShellCompletion_Common_ffiOpts($0, $1, $2, $3, $4) {
|
|
|
6389
6514
|
}
|
|
6390
6515
|
}
|
|
6391
6516
|
|
|
6517
|
+
/* ShellCompletion.Common.describe : Maybe String -> Issue -> String */
|
|
6518
|
+
function ShellCompletion_Common_describe($0, $1) {
|
|
6519
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $7 => $7, {a1: ShellCompletion_Common_n__7174_14775_assigned($1, $0, $0), a2: {a1: ShellCompletion_Common_n__7174_14776_openPrs($1, $0), a2: {a1: $1.a2, a2: {h: 0}}}});
|
|
6520
|
+
}
|
|
6521
|
+
|
|
6392
6522
|
/* ShellCompletion.Common.configuredOpts : Config => CompletionStyle -> String -> String -> String -> List String */
|
|
6393
6523
|
function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
6394
6524
|
switch($2) {
|
|
@@ -6501,6 +6631,118 @@ function ShellCompletion_Common_configuredOpts($0, $1, $2, $3, $4) {
|
|
|
6501
6631
|
}
|
|
6502
6632
|
}
|
|
6503
6633
|
|
|
6634
|
+
/* ShellCompletion.Common.compareIssues : Maybe String -> Issue -> Issue -> Ordering */
|
|
6635
|
+
function ShellCompletion_Common_compareIssues($0, $1, $2) {
|
|
6636
|
+
switch($1.a7.h) {
|
|
6637
|
+
case undefined: /* just */ {
|
|
6638
|
+
switch($2.a7.h) {
|
|
6639
|
+
case undefined: /* just */ {
|
|
6640
|
+
switch(Prelude_EqOrd_compare_Ord_Integer($1.a7.a1, $2.a7.a1)) {
|
|
6641
|
+
case 0: return 0;
|
|
6642
|
+
case 2: return 2;
|
|
6643
|
+
case 1: return ShellCompletion_Common_compareAssignees($0, $1.a6, $2.a6);
|
|
6644
|
+
}
|
|
6645
|
+
}
|
|
6646
|
+
case 0: /* nothing */ return 2;
|
|
6647
|
+
}
|
|
6648
|
+
}
|
|
6649
|
+
case 0: /* nothing */ {
|
|
6650
|
+
switch($2.a7.h) {
|
|
6651
|
+
case undefined: /* just */ return 0;
|
|
6652
|
+
case 0: /* nothing */ return ShellCompletion_Common_compareAssignees($0, $1.a6, $2.a6);
|
|
6653
|
+
}
|
|
6654
|
+
}
|
|
6655
|
+
}
|
|
6656
|
+
}
|
|
6657
|
+
|
|
6658
|
+
/* ShellCompletion.Common.compareAssignees : Maybe String -> Maybe String -> Maybe String -> Ordering */
|
|
6659
|
+
function ShellCompletion_Common_compareAssignees($0, $1, $2) {
|
|
6660
|
+
switch($0.h) {
|
|
6661
|
+
case 0: /* nothing */ return 1;
|
|
6662
|
+
default: {
|
|
6663
|
+
switch($1.h) {
|
|
6664
|
+
case 0: /* nothing */ {
|
|
6665
|
+
switch($2.h) {
|
|
6666
|
+
case 0: /* nothing */ return 1;
|
|
6667
|
+
default: {
|
|
6668
|
+
switch($1.h) {
|
|
6669
|
+
case 0: /* nothing */ {
|
|
6670
|
+
switch(Prelude_EqOrd_x3dx3d_Eq_String($0.a1, $2.a1)) {
|
|
6671
|
+
case 1: return 2;
|
|
6672
|
+
case 0: return 0;
|
|
6673
|
+
}
|
|
6674
|
+
}
|
|
6675
|
+
case undefined: /* just */ {
|
|
6676
|
+
switch($2.h) {
|
|
6677
|
+
case 0: /* nothing */ {
|
|
6678
|
+
switch(Prelude_EqOrd_x3dx3d_Eq_String($0.a1, $1.a1)) {
|
|
6679
|
+
case 1: return 0;
|
|
6680
|
+
case 0: return 2;
|
|
6681
|
+
}
|
|
6682
|
+
}
|
|
6683
|
+
case undefined: /* just */ {
|
|
6684
|
+
switch(Prelude_EqOrd_x3dx3d_Eq_String($1.a1, $2.a1)) {
|
|
6685
|
+
case 1: return 1;
|
|
6686
|
+
case 0: {
|
|
6687
|
+
switch(Prelude_EqOrd_x3dx3d_Eq_String($0.a1, $2.a1)) {
|
|
6688
|
+
case 1: return 2;
|
|
6689
|
+
case 0: {
|
|
6690
|
+
switch(Prelude_EqOrd_x3dx3d_Eq_String($0.a1, $1.a1)) {
|
|
6691
|
+
case 1: return 0;
|
|
6692
|
+
case 0: return 1;
|
|
6693
|
+
}
|
|
6694
|
+
}
|
|
6695
|
+
}
|
|
6696
|
+
}
|
|
6697
|
+
}
|
|
6698
|
+
}
|
|
6699
|
+
}
|
|
6700
|
+
}
|
|
6701
|
+
}
|
|
6702
|
+
}
|
|
6703
|
+
}
|
|
6704
|
+
}
|
|
6705
|
+
default: {
|
|
6706
|
+
switch($1.h) {
|
|
6707
|
+
case 0: /* nothing */ {
|
|
6708
|
+
switch(Prelude_EqOrd_x3dx3d_Eq_String($0.a1, $2.a1)) {
|
|
6709
|
+
case 1: return 2;
|
|
6710
|
+
case 0: return 0;
|
|
6711
|
+
}
|
|
6712
|
+
}
|
|
6713
|
+
case undefined: /* just */ {
|
|
6714
|
+
switch($2.h) {
|
|
6715
|
+
case 0: /* nothing */ {
|
|
6716
|
+
switch(Prelude_EqOrd_x3dx3d_Eq_String($0.a1, $1.a1)) {
|
|
6717
|
+
case 1: return 0;
|
|
6718
|
+
case 0: return 2;
|
|
6719
|
+
}
|
|
6720
|
+
}
|
|
6721
|
+
case undefined: /* just */ {
|
|
6722
|
+
switch(Prelude_EqOrd_x3dx3d_Eq_String($1.a1, $2.a1)) {
|
|
6723
|
+
case 1: return 1;
|
|
6724
|
+
case 0: {
|
|
6725
|
+
switch(Prelude_EqOrd_x3dx3d_Eq_String($0.a1, $2.a1)) {
|
|
6726
|
+
case 1: return 2;
|
|
6727
|
+
case 0: {
|
|
6728
|
+
switch(Prelude_EqOrd_x3dx3d_Eq_String($0.a1, $1.a1)) {
|
|
6729
|
+
case 1: return 0;
|
|
6730
|
+
case 0: return 1;
|
|
6731
|
+
}
|
|
6732
|
+
}
|
|
6733
|
+
}
|
|
6734
|
+
}
|
|
6735
|
+
}
|
|
6736
|
+
}
|
|
6737
|
+
}
|
|
6738
|
+
}
|
|
6739
|
+
}
|
|
6740
|
+
}
|
|
6741
|
+
}
|
|
6742
|
+
}
|
|
6743
|
+
}
|
|
6744
|
+
}
|
|
6745
|
+
|
|
6504
6746
|
/* ShellCompletion.Common.cmdOpts : CompletionStyle -> String -> String -> String -> Maybe (List String) */
|
|
6505
6747
|
function ShellCompletion_Common_cmdOpts($0, $1, $2, $3) {
|
|
6506
6748
|
switch($2) {
|
|
@@ -7931,37 +8173,37 @@ function FFI_promiseIO($0, $1, $2) {
|
|
|
7931
8173
|
return Data_Promise_promisify(ok => notOk => $0(res => ok(res))(err => notOk(err)), $1, $2);
|
|
7932
8174
|
}
|
|
7933
8175
|
|
|
7934
|
-
/* FFI.GitHub.
|
|
7935
|
-
function
|
|
8176
|
+
/* FFI.GitHub.6785:10099:unexpectedPayload */
|
|
8177
|
+
function FFI_GitHub_n__6785_10099_unexpectedPayload($0, $1) {
|
|
7936
8178
|
return FFI_GitHub_internalError(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9 => $9, {a1: 'Unexpected error JSON: ', a2: {a1: $0, a2: {h: 0}}}));
|
|
7937
8179
|
}
|
|
7938
8180
|
|
|
7939
|
-
/* FFI.GitHub.
|
|
7940
|
-
function
|
|
8181
|
+
/* FFI.GitHub.6785:10098:parse */
|
|
8182
|
+
function FFI_GitHub_n__6785_10098_parse($0, $1) {
|
|
7941
8183
|
switch($1.h) {
|
|
7942
8184
|
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}}))));
|
|
7943
8185
|
default: return {h: 0 /* Left */, a1: 'Expected an Object containing error and status keys'};
|
|
7944
8186
|
}
|
|
7945
8187
|
}
|
|
7946
8188
|
|
|
7947
|
-
/* FFI.GitHub.
|
|
7948
|
-
function
|
|
8189
|
+
/* FFI.GitHub.8352:11712:errString */
|
|
8190
|
+
function FFI_GitHub_n__8352_11712_errString($0, $1) {
|
|
7949
8191
|
switch($1.h) {
|
|
7950
8192
|
case 0: /* nothing */ return 'You can only use teams with repositories belonging to GitHub organizations';
|
|
7951
8193
|
case undefined: /* just */ return $1.a1;
|
|
7952
8194
|
}
|
|
7953
8195
|
}
|
|
7954
8196
|
|
|
7955
|
-
/* FFI.GitHub.
|
|
7956
|
-
function
|
|
8197
|
+
/* FFI.GitHub.7181:10523:errString */
|
|
8198
|
+
function FFI_GitHub_n__7181_10523_errString($0, $1) {
|
|
7957
8199
|
switch($1.h) {
|
|
7958
8200
|
case 0: /* nothing */ return 'You can only list teams for repositories belonging to GitHub organizations';
|
|
7959
8201
|
case undefined: /* just */ return $1.a1;
|
|
7960
8202
|
}
|
|
7961
8203
|
}
|
|
7962
8204
|
|
|
7963
|
-
/* FFI.GitHub.
|
|
7964
|
-
function
|
|
8205
|
+
/* FFI.GitHub.6918:10232:errMsg */
|
|
8206
|
+
function FFI_GitHub_n__6918_10232_errMsg($0) {
|
|
7965
8207
|
return Prelude_Types_either(() => csegen_270()(), () => csegen_270()(), $0);
|
|
7966
8208
|
}
|
|
7967
8209
|
|
|
@@ -8005,7 +8247,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
8005
8247
|
let $2;
|
|
8006
8248
|
switch($3.h) {
|
|
8007
8249
|
case 0: /* Left */ {
|
|
8008
|
-
$2 = {h: 0 /* Left */, a1:
|
|
8250
|
+
$2 = {h: 0 /* Left */, a1: FFI_GitHub_n__6785_10099_unexpectedPayload($0, $3.a1)};
|
|
8009
8251
|
break;
|
|
8010
8252
|
}
|
|
8011
8253
|
case 1: /* Right */ {
|
|
@@ -8014,7 +8256,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
8014
8256
|
}
|
|
8015
8257
|
}
|
|
8016
8258
|
const $c = json => {
|
|
8017
|
-
const $d =
|
|
8259
|
+
const $d = FFI_GitHub_n__6785_10098_parse($0, json);
|
|
8018
8260
|
switch($d.h) {
|
|
8019
8261
|
case 0: /* Left */ return {h: 0 /* Left */, a1: FFI_GitHub_internalError($d.a1)};
|
|
8020
8262
|
case 1: /* Right */ return {h: 1 /* Right */, a1: $d.a1};
|
|
@@ -8116,7 +8358,7 @@ function FFI_GitHub_internalError($0) {
|
|
|
8116
8358
|
|
|
8117
8359
|
/* FFI.GitHub.ignoreStatus : Promise String a -> Promise String a */
|
|
8118
8360
|
function FFI_GitHub_ignoreStatus($0, $1, $2) {
|
|
8119
|
-
return Data_Promise_mapError($5 =>
|
|
8361
|
+
return Data_Promise_mapError($5 => FFI_GitHub_n__6918_10232_errMsg(FFI_GitHub_parseError($5)), $0, $1, $2);
|
|
8120
8362
|
}
|
|
8121
8363
|
|
|
8122
8364
|
/* FFI.GitHub.getUser : Octokit => String -> Promise String User */
|
|
@@ -8146,12 +8388,12 @@ function FFI_GitHub_getIssue($0, $1, $2, $3) {
|
|
|
8146
8388
|
|
|
8147
8389
|
/* FFI.GitHub.forceListTeams : Octokit => String -> Promise' (List String) */
|
|
8148
8390
|
function FFI_GitHub_forceListTeams($0, $1, $2, $3) {
|
|
8149
|
-
return Data_Promise_mapError($6 =>
|
|
8391
|
+
return Data_Promise_mapError($6 => FFI_GitHub_n__7181_10523_errString($0, $6), $b => $c => FFI_GitHub_listTeams($0, $1, $b, $c), $2, $3);
|
|
8150
8392
|
}
|
|
8151
8393
|
|
|
8152
8394
|
/* FFI.GitHub.forceListTeamMembers : Octokit => String -> String -> Promise' (List String) */
|
|
8153
8395
|
function FFI_GitHub_forceListTeamMembers($0, $1, $2, $3, $4) {
|
|
8154
|
-
return Data_Promise_mapError($7 =>
|
|
8396
|
+
return Data_Promise_mapError($7 => FFI_GitHub_n__8352_11712_errString($0, $7), $c => $d => FFI_GitHub_listTeamMembers($0, $1, $2, $c, $d), $3, $4);
|
|
8155
8397
|
}
|
|
8156
8398
|
|
|
8157
8399
|
/* FFI.GitHub.createPR : Octokit => {default False _ : Bool} ->
|
|
@@ -8182,8 +8424,8 @@ function FFI_GitHub_addPullLabels($0, $1, $2, $3, $4, $5, $6) {
|
|
|
8182
8424
|
return Data_Promise_map_Functor_x28Promisex20x24ex29($9 => Data_String_lines($9), $d => $e => FFI_GitHub_ignoreStatus($11 => $12 => FFI_promiseIO($15 => $16 => $17 => FFI_GitHub_prim__addLabels($0, $1, $2, $3, Data_String_Extra_join(',', csegen_66(), $4), $15, $16, $17), $11, $12), $d, $e), $5, $6);
|
|
8183
8425
|
}
|
|
8184
8426
|
|
|
8185
|
-
/* Language.JSON.Accessors.
|
|
8186
|
-
function
|
|
8427
|
+
/* Language.JSON.Accessors.6810:9909:lookup' */
|
|
8428
|
+
function Language_JSON_Accessors_n__6810_9909_lookupx27($0, $1, $2, $3, $4) {
|
|
8187
8429
|
return Data_Either_maybeToEither(() => Prelude_Types_foldMap_Foldable_List(csegen_86()(), $c => $c, {a1: 'Missing required key: ', a2: {a1: $3, a2: {a1: '.', a2: {h: 0}}}}), Data_List_lookup(csegen_76(), $3, $4));
|
|
8188
8430
|
}
|
|
8189
8431
|
|
|
@@ -8234,12 +8476,28 @@ function Language_JSON_Accessors_object($0) {
|
|
|
8234
8476
|
}
|
|
8235
8477
|
}
|
|
8236
8478
|
|
|
8479
|
+
/* Language.JSON.Accessors.nat : JSON -> Either String Nat */
|
|
8480
|
+
function Language_JSON_Accessors_nat($0) {
|
|
8481
|
+
const $5 = $6 => {
|
|
8482
|
+
let $c;
|
|
8483
|
+
switch($6.h) {
|
|
8484
|
+
case 1: /* JInteger */ {
|
|
8485
|
+
$c = {a1: $6.a1};
|
|
8486
|
+
break;
|
|
8487
|
+
}
|
|
8488
|
+
default: $c = {h: 0};
|
|
8489
|
+
}
|
|
8490
|
+
return Prelude_Types_map_Functor_Maybe($9 => Prelude_Types_prim__integerToNat($9), $c);
|
|
8491
|
+
};
|
|
8492
|
+
return Language_JSON_Accessors_access(csegen_275(), 'natural number', $5, $0);
|
|
8493
|
+
}
|
|
8494
|
+
|
|
8237
8495
|
/* Language.JSON.Accessors.lookupAll : Vect n String -> List (String, JSON) -> Either String (Vect n JSON) */
|
|
8238
8496
|
function Language_JSON_Accessors_lookupAll($0, $1) {
|
|
8239
8497
|
switch($0.h) {
|
|
8240
8498
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
8241
8499
|
case undefined: /* cons */ {
|
|
8242
|
-
const $4 =
|
|
8500
|
+
const $4 = Language_JSON_Accessors_n__6810_9909_lookupx27($0.a1, $0.a2, $1, $0.a1, $1);
|
|
8243
8501
|
switch($4.h) {
|
|
8244
8502
|
case 1: /* Right */ {
|
|
8245
8503
|
const $b = Language_JSON_Accessors_lookupAll($0.a2, $1);
|
|
@@ -8961,7 +9219,7 @@ function Data_List_Suffix_Result0_fail($0, $1) {
|
|
|
8961
9219
|
|
|
8962
9220
|
/* Data.User.parseUserString : String -> Either String User */
|
|
8963
9221
|
function Data_User_parseUserString($0) {
|
|
8964
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_239(),
|
|
9222
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_239(), csegen_286(), $7 => Data_User_parseUser($7), $0);
|
|
8965
9223
|
}
|
|
8966
9224
|
|
|
8967
9225
|
/* Data.User.parseUser : JSON -> Either String User */
|
|
@@ -9125,7 +9383,7 @@ function Data_Date_max_Ord_Date($0, $1) {
|
|
|
9125
9383
|
|
|
9126
9384
|
/* Data.Date.compare */
|
|
9127
9385
|
function Data_Date_compare_Ord_Date($0, $1) {
|
|
9128
|
-
return Prelude_Types_compare_Ord_x28Listx20x24ax29({a1: {a1:
|
|
9386
|
+
return Prelude_Types_compare_Ord_x28Listx20x24ax29({a1: {a1: csegen_293(), a2: $a => $b => Prelude_Types_x2fx3d_Eq_Nat($a, $b)}, a2: csegen_296(), 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_301(), 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}}}});
|
|
9129
9387
|
}
|
|
9130
9388
|
|
|
9131
9389
|
/* Data.Date.> */
|
|
@@ -9212,12 +9470,12 @@ function Data_Date_nextMonth($0) {
|
|
|
9212
9470
|
|
|
9213
9471
|
/* Data.Issue.parseIssuesString : String -> Either String (List Issue) */
|
|
9214
9472
|
function Data_Issue_parseIssuesString($0) {
|
|
9215
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_239(),
|
|
9473
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_239(), csegen_286(), $7 => Language_JSON_Accessors_array($a => Data_Issue_parseIssue($a), $7), $0);
|
|
9216
9474
|
}
|
|
9217
9475
|
|
|
9218
9476
|
/* Data.Issue.parseIssueString : String -> Either String Issue */
|
|
9219
9477
|
function Data_Issue_parseIssueString($0) {
|
|
9220
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_239(),
|
|
9478
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_239(), csegen_286(), $7 => Data_Issue_parseIssue($7), $0);
|
|
9221
9479
|
}
|
|
9222
9480
|
|
|
9223
9481
|
/* Data.Issue.parseIssue : JSON -> Either String Issue */
|
|
@@ -9238,7 +9496,7 @@ function Data_Issue_parseIssue($0) {
|
|
|
9238
9496
|
break;
|
|
9239
9497
|
}
|
|
9240
9498
|
}
|
|
9241
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($2b, body => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($18.a2.a2.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_235(), $46 => Data_Issue_parseDateTime($46), Language_JSON_Accessors_string($18.a2.a2.a2.a2.a1)), createdAt => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_optional($51 => Language_JSON_Accessors_string($51), $18.a2.a2.a2.a2.a2.a1), assignee => ({h: 1 /* Right */, a1: {a1: number, a2: title, a3: body, a4: createdAt, a5: author, a6: assignee}})))));
|
|
9499
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($2b, body => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($18.a2.a2.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_235(), $46 => Data_Issue_parseDateTime($46), Language_JSON_Accessors_string($18.a2.a2.a2.a2.a1)), createdAt => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_optional($51 => Language_JSON_Accessors_string($51), $18.a2.a2.a2.a2.a2.a1), assignee => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Types_maybe(() => ({h: 1 /* Right */, a1: {h: 0}}), () => $5c => Language_JSON_Accessors_optional($5f => Language_JSON_Accessors_nat($5f), $5c), Data_List_lookup(csegen_76(), 'linked_pr_count', issue)), linkedPRCount => ({h: 1 /* Right */, a1: {a1: number, a2: title, a3: body, a4: createdAt, a5: author, a6: assignee, a7: linkedPRCount}}))))));
|
|
9242
9500
|
};
|
|
9243
9501
|
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($18.a2.a1), $29);
|
|
9244
9502
|
};
|
|
@@ -9307,12 +9565,12 @@ function Data_PullRequest_parseState($0, $1) {
|
|
|
9307
9565
|
|
|
9308
9566
|
/* Data.PullRequest.parsePullRequestsString : String -> Either String (List PullRequest) */
|
|
9309
9567
|
function Data_PullRequest_parsePullRequestsString($0) {
|
|
9310
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_239(),
|
|
9568
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_239(), csegen_286(), csegen_314(), $0);
|
|
9311
9569
|
}
|
|
9312
9570
|
|
|
9313
9571
|
/* Data.PullRequest.parsePullRequestString : String -> Either String PullRequest */
|
|
9314
9572
|
function Data_PullRequest_parsePullRequestString($0) {
|
|
9315
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_239(),
|
|
9573
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_239(), csegen_286(), $7 => Data_PullRequest_parsePR($7), $0);
|
|
9316
9574
|
}
|
|
9317
9575
|
|
|
9318
9576
|
/* Data.PullRequest.parsePR : JSON -> Either String PullRequest */
|
|
@@ -9335,31 +9593,32 @@ function Data_PullRequest_isAuthor($0, $1) {
|
|
|
9335
9593
|
return Prelude_EqOrd_x3dx3d_Eq_String($1.a5, $0);
|
|
9336
9594
|
}
|
|
9337
9595
|
|
|
9338
|
-
/* Data.Config.
|
|
9339
|
-
function
|
|
9596
|
+
/* Data.Config.9737:7112:personalAccessToken */
|
|
9597
|
+
function Data_Config_n__9737_7112_personalAccessToken($0) {
|
|
9340
9598
|
return Prelude_Types_maybe(() => 'Not set (will use $GITHUB_PAT or $GH_TOKEN environment variable)', () => $4 => Data_Config_show_Show_x28Hiddenx20x24ax29($4), $0.a14);
|
|
9341
9599
|
}
|
|
9342
9600
|
|
|
9343
|
-
/* Data.Config.
|
|
9344
|
-
function
|
|
9601
|
+
/* Data.Config.10327:7693:parseConfigJson */
|
|
9602
|
+
function Data_Config_n__10327_7693_parseConfigJson($0, $1) {
|
|
9345
9603
|
switch($1.h) {
|
|
9346
9604
|
case 6: /* JObject */ {
|
|
9347
9605
|
const $22 = $23 => {
|
|
9348
9606
|
const $32 = Data_List_lookup(csegen_76(), 'githubPAT', $1.a1);
|
|
9349
|
-
const $38 = Data_List_lookup(csegen_76(), '
|
|
9350
|
-
const $
|
|
9351
|
-
|
|
9352
|
-
|
|
9607
|
+
const $38 = Data_List_lookup(csegen_76(), 'githubUser', $1.a1);
|
|
9608
|
+
const $3e = Data_List_lookup(csegen_76(), 'branchParsing', $1.a1);
|
|
9609
|
+
const $46 = Language_JSON_Accessors_integer($23.a1);
|
|
9610
|
+
let $45;
|
|
9611
|
+
switch($46.h) {
|
|
9353
9612
|
case 0: /* Left */ {
|
|
9354
|
-
$
|
|
9613
|
+
$45 = {h: 0 /* Left */, a1: $46.a1};
|
|
9355
9614
|
break;
|
|
9356
9615
|
}
|
|
9357
9616
|
case 1: /* Right */ {
|
|
9358
|
-
$
|
|
9617
|
+
$45 = {h: 1 /* Right */, a1: Number(_truncUBigInt32($46.a1))};
|
|
9359
9618
|
break;
|
|
9360
9619
|
}
|
|
9361
9620
|
}
|
|
9362
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($
|
|
9621
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($45, ua => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($23.a2.a1), o => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($23.a2.a2.a1), r => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($23.a2.a2.a2.a2.a2.a2.a1), dr => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($23.a2.a2.a2.a1), mb => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($23.a2.a2.a2.a2.a2.a2.a2.a2.a2.a1), at => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($23.a2.a2.a2.a2.a2.a2.a2.a2.a2.a2.a1), au => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Data_Config_commentConfig($23.a2.a2.a2.a2.a2.a2.a2.a2.a2.a2.a2.a1), ca => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Types_maybe(() => ({h: 1 /* Right */, a1: 1}), () => $76 => Data_Config_branchConfig($76), $3e), bp => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($7f => Language_JSON_Accessors_string($7f), $23.a2.a2.a2.a2.a1), ts => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($88 => Language_JSON_Accessors_string($88), $23.a2.a2.a2.a2.a2.a2.a2.a1), rl => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($91 => Language_JSON_Accessors_string($91), $23.a2.a2.a2.a2.a2.a1), om => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($9a => Language_JSON_Accessors_integer($9a), $23.a2.a2.a2.a2.a2.a2.a2.a2.a1), ip => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Types_maybe(() => ({h: 1 /* Right */, a1: {h: 0}}), () => csegen_338()(), $32), gp => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Types_maybe(() => ({h: 1 /* Right */, a1: {h: 0}}), () => csegen_338()(), $38), gu => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_stringy('dark or light', $b8 => Data_Theme_parseString($b8), $23.a2.a2.a2.a2.a2.a2.a2.a2.a2.a2.a2.a2.a1), th => ({h: 1 /* Right */, a1: {a1: ua, a2: o, a3: r, a4: dr, a5: mb, a6: at, a7: au, a8: ca, a9: bp, a10: ts, a11: rl, a12: om, a13: ip, a14: Prelude_Types_map_Functor_Maybe($ce => $ce, gp), a15: gu, a16: th, a17: $0}})))))))))))))))));
|
|
9363
9622
|
};
|
|
9364
9623
|
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'updatedAt', a2: {a1: 'org', a2: {a1: 'repo', a2: {a1: 'mainBranch', a2: {a1: 'teamSlugs', a2: {a1: 'orgMembers', a2: {a1: 'defaultRemote', a2: {a1: 'repoLabels', a2: {a1: 'ignoredPRs', a2: {a1: 'requestTeams', a2: {a1: 'requestUsers', a2: {a1: 'commentOnRequest', a2: {a1: 'theme', a2: {h: 0}}}}}}}}}}}}}}, $1.a1), $22);
|
|
9365
9624
|
}
|
|
@@ -9379,7 +9638,7 @@ function Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($0) {
|
|
|
9379
9638
|
|
|
9380
9639
|
/* Data.Config.show */
|
|
9381
9640
|
function Data_Config_show_Show_Config($0) {
|
|
9382
|
-
return Data_String_fastUnlines({a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9 => $9, {a1: ' updatedAt: ', a2: {a1: Prelude_Show_show_Show_Bits32($0.a1), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $19 => $19, {a1: ' theme: ', a2: {a1: Data_Theme_show_Show_Theme($0.
|
|
9641
|
+
return Data_String_fastUnlines({a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9 => $9, {a1: ' updatedAt: ', a2: {a1: Prelude_Show_show_Show_Bits32($0.a1), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $19 => $19, {a1: ' theme: ', a2: {a1: Data_Theme_show_Show_Theme($0.a16), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $29 => $29, {a1: ' org or user: ', a2: {a1: Prelude_Show_show_Show_String($0.a2), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $39 => $39, {a1: ' repo: ', a2: {a1: Prelude_Show_show_Show_String($0.a3), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $49 => $49, {a1: ' defaultRemote: ', a2: {a1: Prelude_Show_show_Show_String($0.a4), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $59 => $59, {a1: ' mainBranch: ', a2: {a1: Prelude_Show_show_Show_String($0.a5), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $69 => $69, {a1: ' requestTeams: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a6), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $79 => $79, {a1: ' requestUsers: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a7), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $89 => $89, {a1: 'commentOnRequest: ', a2: {a1: Data_Config_CommentStrategy_show_Show_CommentStrategy($0.a8), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $99 => $99, {a1: ' branchParsing: ', a2: {a1: Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($0.a9), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $a9 => $a9, {a1: ' teamSlugs: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_88(), $0.a10), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $bb => $bb, {a1: ' repoLabels: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_88(), $0.a11), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $cd => $cd, {a1: ' orgMembers: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_88(), $0.a12), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $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_86()(), $f7 => $f7, {a1: ' githubPAT: ', a2: {a1: Data_Config_n__9737_7112_personalAccessToken($0), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_86()(), $106 => $106, {a1: ' githubUser: ', a2: {a1: Prelude_Show_show_Show_x28Maybex20x24ax29(csegen_88(), $0.a15), a2: {h: 0}}}), a2: {h: 0}}}}}}}}}}}}}}}}});
|
|
9383
9642
|
}
|
|
9384
9643
|
|
|
9385
9644
|
/* Data.Config.CommentStrategy.show */
|
|
@@ -9398,22 +9657,22 @@ function Data_Config_show_Show_x28Hiddenx20x24ax29($0) {
|
|
|
9398
9657
|
|
|
9399
9658
|
/* Data.Config.(.filepath) : Config -> String */
|
|
9400
9659
|
function Data_Config_rf__filepath($0) {
|
|
9401
|
-
return $0.
|
|
9660
|
+
return $0.a17.a1;
|
|
9402
9661
|
}
|
|
9403
9662
|
|
|
9404
9663
|
/* Data.Config.(.editor) : Config -> Maybe String */
|
|
9405
9664
|
function Data_Config_rf__editor($0) {
|
|
9406
|
-
return $0.
|
|
9665
|
+
return $0.a17.a4;
|
|
9407
9666
|
}
|
|
9408
9667
|
|
|
9409
9668
|
/* Data.Config.(.columns) : Config -> Nat */
|
|
9410
9669
|
function Data_Config_rf__columns($0) {
|
|
9411
|
-
return $0.
|
|
9670
|
+
return $0.a17.a3;
|
|
9412
9671
|
}
|
|
9413
9672
|
|
|
9414
9673
|
/* Data.Config.(.colors) : Config -> Bool */
|
|
9415
9674
|
function Data_Config_rf__colors($0) {
|
|
9416
|
-
return $0.
|
|
9675
|
+
return $0.a17.a2;
|
|
9417
9676
|
}
|
|
9418
9677
|
|
|
9419
9678
|
/* Data.Config.settableProps : List SomeSettableProp */
|
|
@@ -9458,7 +9717,7 @@ function Data_Config_propHelpx27($0) {
|
|
|
9458
9717
|
|
|
9459
9718
|
/* Data.Config.parseConfig : Ephemeral -> String -> Either String Config */
|
|
9460
9719
|
function Data_Config_parseConfig($0, $1) {
|
|
9461
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_239(),
|
|
9720
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_239(), csegen_286(), $8 => Data_Config_n__10327_7693_parseConfigJson($0, $8), $1);
|
|
9462
9721
|
}
|
|
9463
9722
|
|
|
9464
9723
|
/* Data.Config.CommentStrategy.parseCommentConfig : String -> Maybe CommentStrategy */
|
|
@@ -9484,12 +9743,12 @@ function Data_Config_ParseBranchStrategy_parseBranchConfig($0) {
|
|
|
9484
9743
|
|
|
9485
9744
|
/* Data.Config.longestSettablePropName : Nat */
|
|
9486
9745
|
const Data_Config_longestSettablePropName = __lazy(function () {
|
|
9487
|
-
return Prelude_Types_foldr_Foldable_List(
|
|
9746
|
+
return Prelude_Types_foldr_Foldable_List(csegen_301(), 0n, Prelude_Types_List_mapAppend({h: 0}, $8 => Prelude_Types_String_length(Data_Config_propNamex27($8)), Data_Config_settableProps()));
|
|
9488
9747
|
});
|
|
9489
9748
|
|
|
9490
9749
|
/* Data.Config.json : Config -> JSON */
|
|
9491
9750
|
function Data_Config_json($0) {
|
|
9492
|
-
return {h: 6 /* JObject */, a1: {a1: {a1: 'requestTeams', a2: {h: 3 /* JBool */, a1: $0.a6}}, a2: {a1: {a1: 'requestUsers', a2: {h: 3 /* JBool */, a1: $0.a7}}, a2: {a1: {a1: 'commentOnRequest', a2: {h: 4 /* JString */, a1: Data_Config_CommentStrategy_show_Show_CommentStrategy($0.a8)}}, a2: {a1: {a1: 'branchParsing', a2: {h: 4 /* JString */, a1: Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($0.a9)}}, a2: {a1: {a1: 'org', a2: {h: 4 /* JString */, a1: $0.a2}}, a2: {a1: {a1: 'repo', a2: {h: 4 /* JString */, a1: $0.a3}}, a2: {a1: {a1: 'defaultRemote', a2: {h: 4 /* JString */, a1: $0.a4}}, a2: {a1: {a1: 'mainBranch', a2: {h: 4 /* JString */, a1: $0.a5}}, a2: {a1: {a1: 'theme', a2: {h: 4 /* JString */, a1: Data_Theme_show_Show_Theme($0.
|
|
9751
|
+
return {h: 6 /* JObject */, a1: {a1: {a1: 'requestTeams', a2: {h: 3 /* JBool */, a1: $0.a6}}, a2: {a1: {a1: 'requestUsers', a2: {h: 3 /* JBool */, a1: $0.a7}}, a2: {a1: {a1: 'commentOnRequest', a2: {h: 4 /* JString */, a1: Data_Config_CommentStrategy_show_Show_CommentStrategy($0.a8)}}, a2: {a1: {a1: 'branchParsing', a2: {h: 4 /* JString */, a1: Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($0.a9)}}, a2: {a1: {a1: 'org', a2: {h: 4 /* JString */, a1: $0.a2}}, a2: {a1: {a1: 'repo', a2: {h: 4 /* JString */, a1: $0.a3}}, a2: {a1: {a1: 'defaultRemote', a2: {h: 4 /* JString */, a1: $0.a4}}, a2: {a1: {a1: 'mainBranch', a2: {h: 4 /* JString */, a1: $0.a5}}, a2: {a1: {a1: 'theme', a2: {h: 4 /* JString */, a1: Data_Theme_show_Show_Theme($0.a16)}}, a2: {a1: {a1: 'orgMembers', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $3d => ({h: 4 /* JString */, a1: $3d}), Data_List_sort(csegen_370(), $0.a12))}}, a2: {a1: {a1: 'teamSlugs', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $4c => ({h: 4 /* JString */, a1: $4c}), Data_List_sort(csegen_370(), $0.a10))}}, a2: {a1: {a1: 'repoLabels', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $5b => ({h: 4 /* JString */, a1: $5b}), Data_List_sort(csegen_370(), $0.a11))}}, a2: {a1: {a1: 'ignoredPRs', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $6a => ({h: 1 /* JInteger */, a1: $6a}), Data_List_sort({a1: csegen_373(), a2: csegen_296(), a3: $74 => $75 => Prelude_EqOrd_x3c_Ord_Integer($74, $75), a4: $7a => $7b => Prelude_EqOrd_x3e_Ord_Integer($7a, $7b), a5: $80 => $81 => Prelude_EqOrd_x3cx3d_Ord_Integer($80, $81), a6: $86 => $87 => Prelude_EqOrd_x3ex3d_Ord_Integer($86, $87), a7: $8c => $8d => Prelude_EqOrd_max_Ord_Integer($8c, $8d), a8: $92 => $93 => Prelude_EqOrd_min_Ord_Integer($92, $93)}, $0.a13))}}, a2: {a1: {a1: 'githubPAT', a2: Prelude_Types_maybe(() => ({h: 0 /* JNull */}), () => $9f => ({h: 4 /* JString */, a1: $9f}), $0.a14)}, a2: {a1: {a1: 'githubUser', a2: Prelude_Types_maybe(() => ({h: 0 /* JNull */}), () => $a9 => ({h: 4 /* JString */, a1: $a9}), $0.a15)}, a2: {a1: {a1: 'updatedAt', a2: {h: 1 /* JInteger */, a1: BigInt($0.a1)}}, a2: {h: 0}}}}}}}}}}}}}}}}}};
|
|
9493
9752
|
}
|
|
9494
9753
|
|
|
9495
9754
|
/* Data.Config.filename : String */
|
|
@@ -9499,12 +9758,12 @@ const Data_Config_filename = __lazy(function () {
|
|
|
9499
9758
|
|
|
9500
9759
|
/* Data.Config.commentConfig : JSON -> Either String CommentStrategy */
|
|
9501
9760
|
function Data_Config_commentConfig($0) {
|
|
9502
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_239(),
|
|
9761
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_239(), csegen_381(), $7 => Data_Either_maybeToEither(() => '', Data_Config_CommentStrategy_parseCommentConfig($7)), $0);
|
|
9503
9762
|
}
|
|
9504
9763
|
|
|
9505
9764
|
/* Data.Config.branchConfig : JSON -> Either String ParseBranchStrategy */
|
|
9506
9765
|
function Data_Config_branchConfig($0) {
|
|
9507
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_239(),
|
|
9766
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_239(), csegen_381(), $7 => Data_Either_maybeToEither(() => '', Data_Config_ParseBranchStrategy_parseBranchConfig($7)), $0);
|
|
9508
9767
|
}
|
|
9509
9768
|
|
|
9510
9769
|
/* Data.Theme.show */
|
|
@@ -9535,13 +9794,13 @@ function Util_Prompting_with__yesNoPromptx2cyesUnlessNo_1370($0, $1, $2, $3, $4,
|
|
|
9535
9794
|
}
|
|
9536
9795
|
}
|
|
9537
9796
|
|
|
9538
|
-
/* Util.Prompting.
|
|
9539
|
-
function
|
|
9797
|
+
/* Util.Prompting.5838:1362:yesUnlessNo */
|
|
9798
|
+
function Util_Prompting_n__5838_1362_yesUnlessNo($0, $1, $2, $3) {
|
|
9540
9799
|
return Util_Prompting_with__yesNoPromptx2cyesUnlessNo_1370(undefined, $0, $1, $2, $3, Data_String_toLower($3));
|
|
9541
9800
|
}
|
|
9542
9801
|
|
|
9543
|
-
/* Util.Prompting.
|
|
9544
|
-
function
|
|
9802
|
+
/* Util.Prompting.6403:1907:readTemplate */
|
|
9803
|
+
function Util_Prompting_n__6403_1907_readTemplate($0, $1, $2, $3, $4) {
|
|
9545
9804
|
const $11 = $12 => {
|
|
9546
9805
|
switch($12) {
|
|
9547
9806
|
case 0: return $0.a1.a1.a2(undefined)('');
|
|
@@ -9559,8 +9818,8 @@ function Util_Prompting_n__6397_1907_readTemplate($0, $1, $2, $3, $4) {
|
|
|
9559
9818
|
return $0.a1.a2(undefined)(undefined)(System_File_Meta_exists($0, $4))($11);
|
|
9560
9819
|
}
|
|
9561
9820
|
|
|
9562
|
-
/* Util.
|
|
9563
|
-
function
|
|
9821
|
+
/* Util.5725:1244:getMoreLines */
|
|
9822
|
+
function Util_n__5725_1244_getMoreLines($0, $1, $2) {
|
|
9564
9823
|
switch($2.h) {
|
|
9565
9824
|
case 0: /* nothing */ return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1));
|
|
9566
9825
|
case undefined: /* just */ {
|
|
@@ -9571,13 +9830,13 @@ function Util_n__5719_1244_getMoreLines($0, $1, $2) {
|
|
|
9571
9830
|
case '': {
|
|
9572
9831
|
switch(line) {
|
|
9573
9832
|
case '': return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1.a2));
|
|
9574
|
-
default: return
|
|
9833
|
+
default: return Util_n__5725_1244_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
9575
9834
|
}
|
|
9576
9835
|
}
|
|
9577
|
-
default: return
|
|
9836
|
+
default: return Util_n__5725_1244_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
9578
9837
|
}
|
|
9579
9838
|
}
|
|
9580
|
-
default: return
|
|
9839
|
+
default: return Util_n__5725_1244_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
9581
9840
|
}
|
|
9582
9841
|
};
|
|
9583
9842
|
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);
|
|
@@ -9585,13 +9844,13 @@ function Util_n__5719_1244_getMoreLines($0, $1, $2) {
|
|
|
9585
9844
|
}
|
|
9586
9845
|
}
|
|
9587
9846
|
|
|
9588
|
-
/* Util.Prompting.
|
|
9589
|
-
function
|
|
9847
|
+
/* Util.Prompting.6060:1566:defaultStr */
|
|
9848
|
+
function Util_Prompting_n__6060_1566_defaultStr($0, $1) {
|
|
9590
9849
|
return Prelude_Types_maybe(() => '', () => $5 => Util_Prompting_enterForDefaultStr($5), $0);
|
|
9591
9850
|
}
|
|
9592
9851
|
|
|
9593
|
-
/* Util.Prompting.
|
|
9594
|
-
function
|
|
9852
|
+
/* Util.Prompting.5838:1361:defaultAnswerStr */
|
|
9853
|
+
function Util_Prompting_n__5838_1361_defaultAnswerStr($0, $1, $2) {
|
|
9595
9854
|
switch($1) {
|
|
9596
9855
|
case 0: return 'y/N';
|
|
9597
9856
|
case 1: return 'Y/n';
|
|
@@ -9600,7 +9859,7 @@ function Util_Prompting_n__5832_1361_defaultAnswerStr($0, $1, $2) {
|
|
|
9600
9859
|
|
|
9601
9860
|
/* Util.Prompting.yesNoPrompt : HasIO io => {default True _ : Bool} -> String -> io Bool */
|
|
9602
9861
|
function Util_Prompting_yesNoPrompt($0, $1, $2) {
|
|
9603
|
-
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($11 => Prelude_IO_prim__putStr(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $19 => $19, {a1: $2, a2: {a1: ' [', a2: {a1:
|
|
9862
|
+
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($11 => Prelude_IO_prim__putStr(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $19 => $19, {a1: $2, a2: {a1: ' [', a2: {a1: Util_Prompting_n__5838_1361_defaultAnswerStr($0, $1, $2), a2: {a1: '] ', a2: {h: 0}}}}}), $11)))($29 => $0.a1.a1.a1(undefined)(undefined)($34 => Util_Prompting_n__5838_1362_yesUnlessNo($0, $1, $2, Data_String_trim($34)))($0.a2(undefined)($42 => Prelude_IO_prim__getStr($42))));
|
|
9604
9863
|
}
|
|
9605
9864
|
|
|
9606
9865
|
/* Util.whenNothing : Applicative f => Maybe a -> f () -> f () */
|
|
@@ -9637,7 +9896,7 @@ function Util_Prompting_prepareDescriptionFile($0, $1, $2, $3) {
|
|
|
9637
9896
|
const $20 = Prelude_Types_foldMap_Foldable_List(csegen_86()(), $26 => $26, {a1: $2, a2: {a1: '\n', a2: {a1: templateContents, a2: {h: 0}}}});
|
|
9638
9897
|
return $0.a1.a1.a1(undefined)(undefined)($38 => undefined)(System_File_ReadWrite_writeFile($0, $3, $20));
|
|
9639
9898
|
};
|
|
9640
|
-
return $0.a1.a2(undefined)(undefined)(Prelude_Types_maybe(() => $0.a1.a1.a2(undefined)(''), () => $17 =>
|
|
9899
|
+
return $0.a1.a2(undefined)(undefined)(Prelude_Types_maybe(() => $0.a1.a1.a2(undefined)(''), () => $17 => Util_Prompting_n__6403_1907_readTemplate($0, $3, $2, $1, $17), $1))($1f);
|
|
9641
9900
|
}
|
|
9642
9901
|
|
|
9643
9902
|
/* Util.Prompting.orIfEmpty : Maybe String -> String -> String */
|
|
@@ -9720,7 +9979,7 @@ function Util_Prompting_inlineDescription($0, $1, $2) {
|
|
|
9720
9979
|
|
|
9721
9980
|
/* Util.getManyLines : HasIO io => Fuel -> io (List String) */
|
|
9722
9981
|
function Util_getManyLines($0, $1) {
|
|
9723
|
-
return
|
|
9982
|
+
return Util_n__5725_1244_getMoreLines($0, {h: 0}, $1);
|
|
9724
9983
|
}
|
|
9725
9984
|
|
|
9726
9985
|
/* Util.Prompting.getLineEnterForDefault : HasIO io => String -> Maybe String -> io String */
|
|
@@ -9735,7 +9994,7 @@ function Util_Prompting_enterForDefaultStr($0) {
|
|
|
9735
9994
|
|
|
9736
9995
|
/* Util.Prompting.enterForDefaultPrompt : String -> Maybe String -> String */
|
|
9737
9996
|
function Util_Prompting_enterForDefaultPrompt($0, $1) {
|
|
9738
|
-
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $7 => $7, {a1: $0, a2: {a1:
|
|
9997
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $7 => $7, {a1: $0, a2: {a1: Util_Prompting_n__6060_1566_defaultStr($1, $0), a2: {h: 0}}});
|
|
9739
9998
|
}
|
|
9740
9999
|
|
|
9741
10000
|
/* Util.Prompting.editorDescription : HasIO io => String -> Maybe String -> String -> io (Either FileError String) */
|
|
@@ -9793,7 +10052,7 @@ function System_getEnv($0, $1) {
|
|
|
9793
10052
|
function System_getArgs($0) {
|
|
9794
10053
|
const $12 = n => {
|
|
9795
10054
|
switch(Prelude_EqOrd_x3e_Ord_Int(n, Number(_truncBigInt32(0n)))) {
|
|
9796
|
-
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:
|
|
10055
|
+
case 1: return Prelude_Basics_flip($1a => $1b => Prelude_Types_traverse_Traversable_List($0.a1.a1, $1a, $1b), Prelude_Types_rangeFromTo_Range_x24a({a1: {a1: csegen_388(), 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_388(), 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)));
|
|
9797
10056
|
case 0: return $0.a1.a1.a2(undefined)({h: 0});
|
|
9798
10057
|
}
|
|
9799
10058
|
};
|
|
@@ -9825,7 +10084,7 @@ function FFI_Term_termCols($0) {
|
|
|
9825
10084
|
}
|
|
9826
10085
|
|
|
9827
10086
|
/* Config.with block in getConfig */
|
|
9828
|
-
function
|
|
10087
|
+
function Config_with__getConfig_2409($0, $1, $2, $3) {
|
|
9829
10088
|
return $4 => {
|
|
9830
10089
|
switch($1.h) {
|
|
9831
10090
|
case 0: /* nothing */ return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $d => $d, {a1: $0, a2: {a1: ' cannot get read via `config` command.', a2: {h: 0}}}), $3, $4);
|
|
@@ -9835,7 +10094,7 @@ function Config_with__getConfig_2380($0, $1, $2, $3) {
|
|
|
9835
10094
|
}
|
|
9836
10095
|
|
|
9837
10096
|
/* Config.with block in with block in setConfig */
|
|
9838
|
-
function
|
|
10097
|
+
function Config_with__withx20blockx20inx20setConfig_2239($0, $1, $2, $3, $4, $5, $6) {
|
|
9839
10098
|
return $7 => {
|
|
9840
10099
|
switch($5.h) {
|
|
9841
10100
|
case 0: /* nothing */ return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $10 => $10, {a1: $4, a2: {a1: ' is not a valid value for ', a2: {a1: $1, a2: {a1: '.', a2: {h: 0}}}}}), $6, $7);
|
|
@@ -9845,15 +10104,15 @@ function Config_with__withx20blockx20inx20setConfig_2210($0, $1, $2, $3, $4, $5,
|
|
|
9845
10104
|
}
|
|
9846
10105
|
|
|
9847
10106
|
/* Config.with block in setConfig */
|
|
9848
|
-
function
|
|
10107
|
+
function Config_with__setConfig_2205($0, $1, $2, $3) {
|
|
9849
10108
|
switch($1.h) {
|
|
9850
10109
|
case 0: /* nothing */ return $5 => $6 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1: $0, a2: {a1: ' cannot be set via `config` command.', a2: {h: 0}}}), $5, $6);
|
|
9851
|
-
case undefined: /* just */ return $16 =>
|
|
10110
|
+
case undefined: /* just */ return $16 => Config_with__withx20blockx20inx20setConfig_2239(undefined, $0, $1.a1, $3, $2, Config_propSetter($1.a1, $3)($2), $16);
|
|
9852
10111
|
}
|
|
9853
10112
|
}
|
|
9854
10113
|
|
|
9855
10114
|
/* Config.with block in parseBool */
|
|
9856
|
-
function
|
|
10115
|
+
function Config_with__parseBool_1717($0, $1) {
|
|
9857
10116
|
switch($1) {
|
|
9858
10117
|
case 'yes': return {a1: 1};
|
|
9859
10118
|
case 'true': return {a1: 1};
|
|
@@ -9864,7 +10123,7 @@ function Config_with__parseBool_1696($0, $1) {
|
|
|
9864
10123
|
}
|
|
9865
10124
|
|
|
9866
10125
|
/* Config.with block in dropPrefix',drop' */
|
|
9867
|
-
function
|
|
10126
|
+
function Config_with__dropPrefixx27x2cdropx27_1542($0, $1, $2) {
|
|
9868
10127
|
switch($2.h) {
|
|
9869
10128
|
case 0: /* Yes */ return {a1: $2.a1.a1};
|
|
9870
10129
|
case 1: /* No */ return {h: 0};
|
|
@@ -9872,7 +10131,7 @@ function Config_with__dropPrefixx27x2cdropx27_1521($0, $1, $2) {
|
|
|
9872
10131
|
}
|
|
9873
10132
|
|
|
9874
10133
|
/* Config.case block in parseGitHubURI,parseSuffix */
|
|
9875
|
-
function
|
|
10134
|
+
function Config_case__parseGitHubURIx2cparseSuffix_1603($0, $1, $2) {
|
|
9876
10135
|
const $b = $c => {
|
|
9877
10136
|
switch($c.h) {
|
|
9878
10137
|
case undefined: /* cons */ {
|
|
@@ -9889,63 +10148,63 @@ function Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, $2) {
|
|
|
9889
10148
|
default: return {h: 0};
|
|
9890
10149
|
}
|
|
9891
10150
|
};
|
|
9892
|
-
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(
|
|
10151
|
+
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_408(), $2.a1)}, $b);
|
|
9893
10152
|
}
|
|
9894
10153
|
|
|
9895
|
-
/* Config.
|
|
9896
|
-
function
|
|
10154
|
+
/* Config.9736:2561:themePrompt */
|
|
10155
|
+
function Config_n__9736_2561_themePrompt($0, $1, $2, $3, $4) {
|
|
9897
10156
|
const $5 = Util_Prompting_enterForDefaultStr('dark');
|
|
9898
10157
|
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($16 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1f => $1f, {a1: 'Would you like harmony configured for a \'dark\' or \'light\' terminal background?', a2: {a1: $5, a2: {h: 0}}})+'\n'), $16)))($28 => Util_Prompting_offerRetry($4, 'The theme must be either \'dark\' or \'light\'. Which would you prefer?', 'Could not parse the input as a valid theme; will use \'dark\' for now.', () => 1, $4.a1.a1.a1(undefined)(undefined)($39 => Data_Theme_parseString(Util_Prompting_orIfEmpty({a1: 'dark'}, Data_String_trim($39))))($4.a2(undefined)($48 => Prelude_IO_prim__getStr($48)))));
|
|
9899
10158
|
}
|
|
9900
10159
|
|
|
9901
|
-
/* Config.
|
|
9902
|
-
function
|
|
10160
|
+
/* Config.9736:2560:repo */
|
|
10161
|
+
function Config_n__9736_2560_repo($0, $1, $2, $3, $4) {
|
|
9903
10162
|
return Prelude_Types_map_Functor_Maybe(csegen_270()(), $4);
|
|
9904
10163
|
}
|
|
9905
10164
|
|
|
9906
|
-
/* Config.
|
|
9907
|
-
function
|
|
9908
|
-
return
|
|
10165
|
+
/* Config.8795:1583:parseSuffix */
|
|
10166
|
+
function Config_n__8795_1583_parseSuffix($0, $1) {
|
|
10167
|
+
return Config_case__parseGitHubURIx2cparseSuffix_1603($0, $1, Data_String_break$($8 => Prelude_EqOrd_x3dx3d_Eq_Char($8, '.'), $1));
|
|
9909
10168
|
}
|
|
9910
10169
|
|
|
9911
|
-
/* Config.
|
|
9912
|
-
function
|
|
9913
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b =>
|
|
10170
|
+
/* Config.8795:1582:parseSSH */
|
|
10171
|
+
function Config_n__8795_1582_parseSSH($0, $1) {
|
|
10172
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b => Config_n__8795_1583_parseSuffix($0, $b), $1);
|
|
9914
10173
|
}
|
|
9915
10174
|
|
|
9916
|
-
/* Config.
|
|
9917
|
-
function
|
|
9918
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b =>
|
|
10175
|
+
/* Config.8795:1581:parseHTTPS */
|
|
10176
|
+
function Config_n__8795_1581_parseHTTPS($0, $1) {
|
|
10177
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b => Config_n__8795_1583_parseSuffix($0, $b), $1);
|
|
9919
10178
|
}
|
|
9920
10179
|
|
|
9921
|
-
/* Config.
|
|
9922
|
-
function
|
|
9923
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
10180
|
+
/* Config.9736:2559:org */
|
|
10181
|
+
function Config_n__9736_2559_org($0, $1, $2, $3, $4) {
|
|
10182
|
+
return Prelude_Types_map_Functor_Maybe(csegen_414()(), $4);
|
|
9924
10183
|
}
|
|
9925
10184
|
|
|
9926
|
-
/* Config.
|
|
9927
|
-
function
|
|
10185
|
+
/* Config.8505:1301:oneDayAgo */
|
|
10186
|
+
function Config_n__8505_1301_oneDayAgo($0, $1, $2) {
|
|
9928
10187
|
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(Number(_truncUBigInt32((now-86400n)))));
|
|
9929
10188
|
}
|
|
9930
10189
|
|
|
9931
|
-
/* Config.
|
|
9932
|
-
function
|
|
10190
|
+
/* Config.9639:2452:help */
|
|
10191
|
+
function Config_n__9639_2452_help($0, $1) {
|
|
9933
10192
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1.a1)), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $14 => $14, {a1: ': ', a2: {a1: (Data_String_replicate(Prelude_Types_prim__integerToNat((Data_Config_longestSettablePropName()-Prelude_Types_String_length($1.a1))), ' ')+$1.a2), a2: {h: 0}}})));
|
|
9934
10193
|
}
|
|
9935
10194
|
|
|
9936
|
-
/* Config.
|
|
9937
|
-
function
|
|
9938
|
-
return
|
|
10195
|
+
/* Config.8748:1534:drop' */
|
|
10196
|
+
function Config_n__8748_1534_dropx27($0, $1) {
|
|
10197
|
+
return Config_with__dropPrefixx27x2cdropx27_1542($0, $1, Data_List_PrefixSuffix_dropPrefix($8 => $9 => Decidable_Equality_decEq_DecEq_Char($8, $9), Prelude_Types_fastUnpack($0), $1));
|
|
9939
10198
|
}
|
|
9940
10199
|
|
|
9941
|
-
/* Config.
|
|
9942
|
-
function
|
|
10200
|
+
/* Config.9736:2557:commentConfigPrompt */
|
|
10201
|
+
function Config_n__9736_2557_commentConfigPrompt($0, $1, $2, $3, $4) {
|
|
9943
10202
|
const $5 = Util_Prompting_enterForDefaultStr('name');
|
|
9944
10203
|
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($16 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1f => $1f, {a1: 'What kind of comment would you like Harmony to leave when it requests reviewers? [none/name/at-mention]', a2: {a1: $5, a2: {h: 0}}})+'\n'), $16)))($28 => Util_Prompting_offerRetry($4, 'The comment strategy must be \'none\', \'name\', or \'at-mention\'. Which would you prefer?', 'Could not parse the input as a valid option; will use \'name\' for now.', () => 1, $4.a1.a1.a1(undefined)(undefined)($39 => Data_Config_CommentStrategy_parseCommentConfig(Util_Prompting_orIfEmpty({a1: 'name'}, Data_String_trim($39))))($4.a2(undefined)($48 => Prelude_IO_prim__getStr($48)))));
|
|
9945
10204
|
}
|
|
9946
10205
|
|
|
9947
|
-
/* Config.
|
|
9948
|
-
function
|
|
10206
|
+
/* Config.8637:1427:checkRequestSettings */
|
|
10207
|
+
function Config_n__8637_1427_checkRequestSettings($0, $1) {
|
|
9949
10208
|
let $2;
|
|
9950
10209
|
switch($1.a6) {
|
|
9951
10210
|
case 1: {
|
|
@@ -9963,8 +10222,8 @@ function Config_n__8569_1406_checkRequestSettings($0, $1) {
|
|
|
9963
10222
|
}
|
|
9964
10223
|
}
|
|
9965
10224
|
|
|
9966
|
-
/* Config.
|
|
9967
|
-
function
|
|
10225
|
+
/* Config.9736:2556:branchParsingPrompt */
|
|
10226
|
+
function Config_n__9736_2556_branchParsingPrompt($0, $1, $2, $3, $4) {
|
|
9968
10227
|
const $5 = Util_Prompting_enterForDefaultStr('none');
|
|
9969
10228
|
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($16 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1f => $1f, {a1: 'Would you like harmony to parse branch names for \'jira\' slugs or \'github\' issue numbers to use as part of new PR title or body?', a2: {a1: $5, a2: {h: 0}}})+'\n'), $16)))($28 => Util_Prompting_offerRetry($4, 'Branch parsing must be \'none\', \'jira\', or \'github\'. Which would you prefer?', 'Could not parse the input as a valid option; will use \'none\' for now.', () => 0, $4.a1.a1.a1(undefined)(undefined)($39 => Data_Config_ParseBranchStrategy_parseBranchConfig(Util_Prompting_orIfEmpty({a1: 'none'}, Data_String_trim($39))))($4.a2(undefined)($48 => Prelude_IO_prim__getStr($48)))));
|
|
9970
10229
|
}
|
|
@@ -10001,7 +10260,7 @@ function Config_syncIfOld($0, $1, $2, $3) {
|
|
|
10001
10260
|
case 0: return $1b => Data_Promise_pure_Applicative_x28Promisex20x24ex29($1, $e, $1b);
|
|
10002
10261
|
}
|
|
10003
10262
|
};
|
|
10004
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10263
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__8505_1301_oneDayAgo($0, $1, csegen_48()()), $c, $2, $3);
|
|
10005
10264
|
}
|
|
10006
10265
|
|
|
10007
10266
|
/* Config.syncConfig : Config => Octokit => Bool -> Promise' Config */
|
|
@@ -10009,11 +10268,14 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
10009
10268
|
const $16 = teamSlugs => $17 => $18 => {
|
|
10010
10269
|
const $2a = orgMembers => $2b => $2c => {
|
|
10011
10270
|
const $39 = labelNames => $3a => $3b => {
|
|
10012
|
-
const $
|
|
10013
|
-
const $
|
|
10014
|
-
|
|
10271
|
+
const $49 = githubUser => $4a => $4b => {
|
|
10272
|
+
const $50 = updatedAt => {
|
|
10273
|
+
const $51 = {a1: updatedAt, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: $0.a8, a9: $0.a9, a10: teamSlugs, a11: labelNames, a12: orgMembers, a13: $0.a13, a14: $0.a14, a15: {a1: githubUser}, a16: $0.a16, a17: $0.a17};
|
|
10274
|
+
return $65 => $66 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($69 => $6a => Data_Promise_map_Functor_x28Promisex20x24ex29($6d => undefined, $6f => $70 => Config_writeConfig($51, $6f, $70), $69, $6a), $78 => $79 => $7a => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_40()(), $2, () => $83 => $84 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($87 => $88 => $89 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($8c => Prelude_IO_prim__putStr('Your updated configuration is:\n', $8c), $87, $88, $89), $94 => $95 => $96 => $97 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($9a => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($51)+'\n'), $9a), $95, $96, $97), $83, $84)), $a8 => $a9 => $aa => Data_Promise_pure_Applicative_x28Promisex20x24ex29($51, $a9, $aa), $79, $7a), $65, $66);
|
|
10275
|
+
};
|
|
10276
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_427()(), $50, $4a, $4b);
|
|
10015
10277
|
};
|
|
10016
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10278
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_414()(), FFI_GitHub_getSelf($1), $3e, $3f), $49, $3a, $3b);
|
|
10017
10279
|
};
|
|
10018
10280
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2f => $30 => FFI_GitHub_listRepoLabels($1, $0.a2, $0.a3, $2f, $30), $39, $2b, $2c);
|
|
10019
10281
|
};
|
|
@@ -10024,26 +10286,26 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
10024
10286
|
|
|
10025
10287
|
/* Config.settablePropsWithHelp : Config => String */
|
|
10026
10288
|
function Config_settablePropsWithHelp($0) {
|
|
10027
|
-
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 =>
|
|
10289
|
+
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 => Config_n__9639_2452_help($0, $9), Data_Config_settablePropNamesAndHelp())));
|
|
10028
10290
|
}
|
|
10029
10291
|
|
|
10030
10292
|
/* Config.setConfig : Config => String -> String -> Promise' Config */
|
|
10031
10293
|
function Config_setConfig($0, $1, $2) {
|
|
10032
|
-
return
|
|
10294
|
+
return Config_with__setConfig_2205($1, Data_Config_settablePropNamed($1), $2, $0);
|
|
10033
10295
|
}
|
|
10034
10296
|
|
|
10035
10297
|
/* Config.propSetter : SettableProp n h -> Config -> String -> Maybe Config */
|
|
10036
10298
|
function Config_propSetter($0, $1) {
|
|
10037
10299
|
return $2 => {
|
|
10038
10300
|
switch($0) {
|
|
10039
|
-
case 0: return Config_update(
|
|
10040
|
-
case 1: return Config_update(
|
|
10041
|
-
case 2: return Config_update(
|
|
10042
|
-
case 3: return Config_update(
|
|
10043
|
-
case 4: return Config_update(
|
|
10044
|
-
case 5: return Config_update(
|
|
10045
|
-
case 6: return Config_update(
|
|
10046
|
-
case 7: return Config_update(
|
|
10301
|
+
case 0: return Config_update(csegen_432(), $8 => Config_parseBool($8), b => $c => ({a1: $c.a1, a2: $c.a2, a3: $c.a3, a4: $c.a4, a5: $c.a5, a6: b, a7: $c.a7, a8: $c.a8, a9: $c.a9, a10: $c.a10, a11: $c.a11, a12: $c.a12, a13: $c.a13, a14: $c.a14, a15: $c.a15, a16: $c.a16, a17: $c.a17}), $1, $2);
|
|
10302
|
+
case 1: return Config_update(csegen_432(), $25 => Config_parseBool($25), b => $29 => ({a1: $29.a1, a2: $29.a2, a3: $29.a3, a4: $29.a4, a5: $29.a5, a6: $29.a6, a7: b, a8: $29.a8, a9: $29.a9, a10: $29.a10, a11: $29.a11, a12: $29.a12, a13: $29.a13, a14: $29.a14, a15: $29.a15, a16: $29.a16, a17: $29.a17}), $1, $2);
|
|
10303
|
+
case 2: return Config_update(csegen_432(), $42 => Data_Config_CommentStrategy_parseCommentConfig(Data_String_toLower($42)), b => $48 => ({a1: $48.a1, a2: $48.a2, a3: $48.a3, a4: $48.a4, a5: $48.a5, a6: $48.a6, a7: $48.a7, a8: b, a9: $48.a9, a10: $48.a10, a11: $48.a11, a12: $48.a12, a13: $48.a13, a14: $48.a14, a15: $48.a15, a16: $48.a16, a17: $48.a17}), $1, $2);
|
|
10304
|
+
case 3: return Config_update(csegen_432(), $61 => Data_Config_ParseBranchStrategy_parseBranchConfig(Data_String_toLower($61)), s => $67 => ({a1: $67.a1, a2: $67.a2, a3: $67.a3, a4: $67.a4, a5: $67.a5, a6: $67.a6, a7: $67.a7, a8: $67.a8, a9: s, a10: $67.a10, a11: $67.a11, a12: $67.a12, a13: $67.a13, a14: $67.a14, a15: $67.a15, a16: $67.a16, a17: $67.a17}), $1, $2);
|
|
10305
|
+
case 4: return Config_update(csegen_432(), $80 => ({a1: $80}), s => $83 => ({a1: $83.a1, a2: $83.a2, a3: $83.a3, a4: s, a5: $83.a5, a6: $83.a6, a7: $83.a7, a8: $83.a8, a9: $83.a9, a10: $83.a10, a11: $83.a11, a12: $83.a12, a13: $83.a13, a14: $83.a14, a15: $83.a15, a16: $83.a16, a17: $83.a17}), $1, $2);
|
|
10306
|
+
case 5: return Config_update(csegen_432(), $9c => ({a1: $9c}), s => $9f => ({a1: $9f.a1, a2: $9f.a2, a3: $9f.a3, a4: $9f.a4, a5: s, a6: $9f.a6, a7: $9f.a7, a8: $9f.a8, a9: $9f.a9, a10: $9f.a10, a11: $9f.a11, a12: $9f.a12, a13: $9f.a13, a14: $9f.a14, a15: $9f.a15, a16: $9f.a16, a17: $9f.a17}), $1, $2);
|
|
10307
|
+
case 6: return Config_update(csegen_432(), $b8 => Data_Theme_parseString($b8), t => $bc => ({a1: $bc.a1, a2: $bc.a2, a3: $bc.a3, a4: $bc.a4, a5: $bc.a5, a6: $bc.a6, a7: $bc.a7, a8: $bc.a8, a9: $bc.a9, a10: $bc.a10, a11: $bc.a11, a12: $bc.a12, a13: $bc.a13, a14: $bc.a14, a15: $bc.a15, a16: t, a17: $bc.a17}), $1, $2);
|
|
10308
|
+
case 7: return Config_update(csegen_432(), $d5 => ({a1: $d5}), s => $d8 => ({a1: $d8.a1, a2: $d8.a2, a3: $d8.a3, a4: $d8.a4, a5: $d8.a5, a6: $d8.a6, a7: $d8.a7, a8: $d8.a8, a9: $d8.a9, a10: $d8.a10, a11: $d8.a11, a12: $d8.a12, a13: $d8.a13, a14: {a1: s}, a15: $d8.a15, a16: $d8.a16, a17: $d8.a17}), $1, $2);
|
|
10047
10309
|
}
|
|
10048
10310
|
};
|
|
10049
10311
|
}
|
|
@@ -10057,7 +10319,7 @@ function Config_propGetter($0, $1) {
|
|
|
10057
10319
|
case 3: return Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($1.a9);
|
|
10058
10320
|
case 4: return Prelude_Show_show_Show_String($1.a4);
|
|
10059
10321
|
case 5: return Prelude_Show_show_Show_String($1.a5);
|
|
10060
|
-
case 6: return Data_Theme_show_Show_Theme($1.
|
|
10322
|
+
case 6: return Data_Theme_show_Show_Theme($1.a16);
|
|
10061
10323
|
case 7: return Prelude_Types_maybe(() => 'Not set (will use $GITHUB_PAT or $GH_TOKEN environment variable)', () => x => Data_Config_show_Show_x28Hiddenx20x24ax29(x), $1.a14);
|
|
10062
10324
|
}
|
|
10063
10325
|
}
|
|
@@ -10073,12 +10335,12 @@ function Config_preferOriginRemote($0) {
|
|
|
10073
10335
|
|
|
10074
10336
|
/* Config.parseGitHubURI : String -> Maybe GitRemote */
|
|
10075
10337
|
function Config_parseGitHubURI($0) {
|
|
10076
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
10338
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(Config_n__8795_1581_parseHTTPS($0, $0), () => Config_n__8795_1582_parseSSH($0, $0));
|
|
10077
10339
|
}
|
|
10078
10340
|
|
|
10079
10341
|
/* Config.parseBool : String -> Maybe Bool */
|
|
10080
10342
|
function Config_parseBool($0) {
|
|
10081
|
-
return
|
|
10343
|
+
return Config_with__parseBool_1717($0, Data_String_toLower($0));
|
|
10082
10344
|
}
|
|
10083
10345
|
|
|
10084
10346
|
/* Config.nonOrgFallback : Lazy a -> Promise OrgError a -> Promise String a */
|
|
@@ -10162,7 +10424,7 @@ function Config_loadConfig($0, $1, $2, $3) {
|
|
|
10162
10424
|
|
|
10163
10425
|
/* Config.getConfig : Config => String -> Promise' String */
|
|
10164
10426
|
function Config_getConfig($0, $1) {
|
|
10165
|
-
return $2 =>
|
|
10427
|
+
return $2 => Config_with__getConfig_2409($1, Data_Config_settablePropNamed($1), $0, $2);
|
|
10166
10428
|
}
|
|
10167
10429
|
|
|
10168
10430
|
/* Config.findConfig : HasIO io => String -> Fuel -> io (Maybe String) */
|
|
@@ -10184,7 +10446,7 @@ function Config_findConfig($0, $1, $2) {
|
|
|
10184
10446
|
|
|
10185
10447
|
/* Config.dropPrefix' : String -> String -> Maybe String */
|
|
10186
10448
|
function Config_dropPrefixx27($0, $1) {
|
|
10187
|
-
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4),
|
|
10449
|
+
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4), Config_n__8748_1534_dropx27($0, Prelude_Types_fastUnpack($1)));
|
|
10188
10450
|
}
|
|
10189
10451
|
|
|
10190
10452
|
/* Config.createConfig : Maybe String -> Bool -> Nat -> Maybe String -> Promise' Config */
|
|
@@ -10201,7 +10463,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10201
10463
|
default: return {a1: Data_String_trim($65)};
|
|
10202
10464
|
}
|
|
10203
10465
|
};
|
|
10204
|
-
return Data_Promise_map_Functor_x28Promisex20x24ex29($64,
|
|
10466
|
+
return Data_Promise_map_Functor_x28Promisex20x24ex29($64, csegen_455()(), $61, $62);
|
|
10205
10467
|
};
|
|
10206
10468
|
const $71 = configPAT => $72 => $73 => {
|
|
10207
10469
|
const $7f = $80 => $81 => $82 => {
|
|
@@ -10234,9 +10496,12 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10234
10496
|
return $1af => $1b0 => {
|
|
10235
10497
|
const $1c1 = teamSlugs => $1c2 => $1c3 => {
|
|
10236
10498
|
const $1d4 = orgMembers => $1d5 => $1d6 => {
|
|
10237
|
-
const $1e1 = repoLabels => {
|
|
10238
|
-
const $
|
|
10239
|
-
|
|
10499
|
+
const $1e1 = repoLabels => $1e2 => $1e3 => {
|
|
10500
|
+
const $1f1 = githubUser => {
|
|
10501
|
+
const $1f2 = {a1: updatedAt, a2: org, a3: repo, a4: defaultRemote, a5: mainBranch, a6: requestTeams, a7: requestUsers, a8: commentOnRequest, a9: branchParsing, a10: teamSlugs, a11: repoLabels, a12: orgMembers, a13: {h: 0}, a14: Prelude_Types_map_Functor_Maybe($203 => $203, configPAT), a15: {a1: githubUser}, a16: theme, a17: $19e};
|
|
10502
|
+
return $209 => $20a => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($20d => $20e => Data_Promise_map_Functor_x28Promisex20x24ex29($211 => undefined, $213 => $214 => Config_writeConfig($1f2, $213, $214), $20d, $20e), $21c => $21d => $21e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($221 => $222 => $223 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($226 => Prelude_IO_prim__putStr('Your new configuration is:\n', $226), $221, $222, $223), $22e => $22f => $230 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($233 => $234 => $235 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($238 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($1f2)+'\n'), $238), $233, $234, $235), $244 => $245 => $246 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Types_either(() => $24b => Util_renderIO($1f2, csegen_48()(), $24b), () => csegen_35()(), Config_checkConfigConsistency($1f2)), $259 => $25a => $25b => Data_Promise_pure_Applicative_x28Promisex20x24ex29($1f2, $25a, $25b), $245, $246), $22f, $230), $21d, $21e), $209, $20a);
|
|
10503
|
+
};
|
|
10504
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e6 => $1e7 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_414()(), FFI_GitHub_getSelf(_), $1e6, $1e7), $1f1, $1e2, $1e3);
|
|
10240
10505
|
};
|
|
10241
10506
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d9 => $1da => FFI_GitHub_listRepoLabels(_, org, repo, $1d9, $1da), $1e1, $1d5, $1d6);
|
|
10242
10507
|
};
|
|
@@ -10245,7 +10510,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10245
10510
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1b3 => $1b4 => Config_nonOrgFallback(() => ({h: 0}), $1b8 => $1b9 => FFI_GitHub_listTeams(_, org, $1b8, $1b9), $1b3, $1b4), $1c1, $1af, $1b0);
|
|
10246
10511
|
};
|
|
10247
10512
|
};
|
|
10248
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10513
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_427()(), $19d, $197, $198);
|
|
10249
10514
|
};
|
|
10250
10515
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($18e => $18f => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $18e, $18f), $196, $18a, $18b);
|
|
10251
10516
|
};
|
|
@@ -10253,41 +10518,41 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10253
10518
|
};
|
|
10254
10519
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($16b => $16c => $16d => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($170 => FFI_GitHub_octokit($80.a1, $170), $16b, $16c, $16d), $177, $167, $168);
|
|
10255
10520
|
};
|
|
10256
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10521
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_453()(), $165, $15f, $160);
|
|
10257
10522
|
};
|
|
10258
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10523
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9736_2561_themePrompt($3, $2, $1, $0, csegen_48()()), $15e, $152, $153);
|
|
10259
10524
|
};
|
|
10260
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10525
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_453()(), $150, $14a, $14b);
|
|
10261
10526
|
};
|
|
10262
10527
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_48()(), 1, 'Would you like harmony to request reviews from individual users when it requests a teams review?'), $149, $13f, $140);
|
|
10263
10528
|
};
|
|
10264
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10529
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_453()(), $13d, $137, $138);
|
|
10265
10530
|
};
|
|
10266
10531
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_48()(), 1, 'Would you like harmony to request reviews from teams when it requests reviewers?'), $136, $12c, $12d);
|
|
10267
10532
|
};
|
|
10268
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10533
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_453()(), $12a, $124, $125);
|
|
10269
10534
|
};
|
|
10270
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10535
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9736_2556_branchParsingPrompt($3, $2, $1, $0, csegen_48()()), $123, $117, $118);
|
|
10271
10536
|
};
|
|
10272
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10537
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_453()(), $115, $10f, $110);
|
|
10273
10538
|
};
|
|
10274
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10539
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9736_2557_commentConfigPrompt($3, $2, $1, $0, csegen_48()()), $10e, $102, $103);
|
|
10275
10540
|
};
|
|
10276
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10541
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_453()(), $100, $fa, $fb);
|
|
10277
10542
|
};
|
|
10278
10543
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What GitHub remote repo would you like to use harmony for?', {a1: remoteGuess}), $f9, $ee, $ef);
|
|
10279
10544
|
};
|
|
10280
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10545
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_453()(), $ec, $e6, $e7);
|
|
10281
10546
|
};
|
|
10282
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What repository would you like to use harmony for?',
|
|
10547
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What repository would you like to use harmony for?', Config_n__9736_2560_repo($3, $2, $1, $0, defaultOrgAndRepo)), $e5, $d5, $d6);
|
|
10283
10548
|
};
|
|
10284
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10549
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_453()(), $d3, $cd, $ce);
|
|
10285
10550
|
};
|
|
10286
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What GitHub org would you like to use harmony for?',
|
|
10551
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What GitHub org would you like to use harmony for?', Config_n__9736_2559_org($3, $2, $1, $0, defaultOrgAndRepo)), $cc, $bc, $bd);
|
|
10287
10552
|
};
|
|
10288
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10553
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_453()(), $ba, $b4, $b5);
|
|
10289
10554
|
};
|
|
10290
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9a => $9b => Data_Promise_x3cx7cx3e_Alternative_x28Promisex20Stringx29($9e => $9f => Data_Promise_map_Functor_x28Promisex20x24ex29($a2 => Config_parseGitHubURI($a2), $a6 => $a7 => System_Git_remoteURI(remoteGuess, $a6, $a7), $9e, $9f), () =>
|
|
10555
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9a => $9b => Data_Promise_x3cx7cx3e_Alternative_x28Promisex20Stringx29($9e => $9f => Data_Promise_map_Functor_x28Promisex20x24ex29($a2 => Config_parseGitHubURI($a2), $a6 => $a7 => System_Git_remoteURI(remoteGuess, $a6, $a7), $9e, $9f), () => csegen_459()(), $9a, $9b), $b3, $96, $97);
|
|
10291
10556
|
};
|
|
10292
10557
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($86 => $87 => Data_Promise_map_Functor_x28Promisex20x24ex29($8a => Config_preferOriginRemote($8a), $8e => $8f => System_Git_listRemotes($8e, $8f), $86, $87), $95, $81, $82);
|
|
10293
10558
|
}
|
|
@@ -10302,19 +10567,19 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10302
10567
|
};
|
|
10303
10568
|
return $2e();
|
|
10304
10569
|
};
|
|
10305
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10570
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_453()(), $2c, $26, $27);
|
|
10306
10571
|
};
|
|
10307
10572
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8 => $9 => $a => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $16 => $16, {a1: 'Creating a new configuration (storing in ', a2: {a1: Data_Config_filename(), a2: {a1: ')...', a2: {h: 0}}}})+'\n'), $d), $8, $9, $a), $24, $4, $5);
|
|
10308
10573
|
}
|
|
10309
10574
|
|
|
10310
10575
|
/* Config.checkConfigConsistency : Config -> Either (Doc AnsiStyle) () */
|
|
10311
10576
|
function Config_checkConfigConsistency($0) {
|
|
10312
|
-
return
|
|
10577
|
+
return Config_n__8637_1427_checkRequestSettings($0, $0);
|
|
10313
10578
|
}
|
|
10314
10579
|
|
|
10315
10580
|
/* Config.addIgnoredPRs : Config -> List Integer -> Promise' Config */
|
|
10316
10581
|
function Config_addIgnoredPRs($0, $1, $2, $3) {
|
|
10317
|
-
return Config_writeConfig({a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: $0.a8, a9: $0.a9, a10: $0.a10, a11: $0.a11, a12: $0.a12, a13: Data_List_nub(
|
|
10582
|
+
return Config_writeConfig({a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: $0.a8, a9: $0.a9, a10: $0.a10, a11: $0.a11, a12: $0.a12, a13: Data_List_nub(csegen_373(), Prelude_Types_List_tailRecAppend($0.a13, $1)), a14: $0.a14, a15: $0.a15, a16: $0.a16, a17: $0.a17}, $2, $3);
|
|
10318
10583
|
}
|
|
10319
10584
|
|
|
10320
10585
|
/* Data.List.PrefixSuffix.with block in with block in dropPrefix */
|
|
@@ -10366,21 +10631,21 @@ function AppVersion_printVersion($0) {
|
|
|
10366
10631
|
|
|
10367
10632
|
/* AppVersion.appVersion : String */
|
|
10368
10633
|
const AppVersion_appVersion = __lazy(function () {
|
|
10369
|
-
return '6.3.
|
|
10634
|
+
return '6.3.1';
|
|
10370
10635
|
});
|
|
10371
10636
|
|
|
10372
10637
|
/* Commands.Help.subcommandHelp' : String -> Doc AnsiStyle */
|
|
10373
10638
|
function Commands_Help_subcommandHelpx27($0) {
|
|
10374
10639
|
switch($0) {
|
|
10375
|
-
case 'label': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<label>'), a2:
|
|
10376
|
-
case 'request': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<team-slug> | +<user-login>'), a2:
|
|
10640
|
+
case 'label': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<label>'), a2: csegen_473()}, {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}});
|
|
10641
|
+
case 'request': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<team-slug> | +<user-login>'), a2: csegen_478()}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $2b => $2b, {a1: 'Request review from the given team(s) and one lucky member from one\nof those teams to review the PR for the current branch.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $38 => $38, {a1: 'Also request reviews from any users with logins specified. You specify\nthese additional users by prefixing their logins with \'+\'.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally apply any number of labels by prefixing them with \'#\'.'), a2: {h: 0}}}});
|
|
10377
10642
|
case 'config': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<property>'), a2: {a1: Commands_Help_argument(0, '<value>'), a2: {h: 0}}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $5f => $5f, {a1: 'Get or set the value of a configuration property. Not all properties\ncan be set and read via this subcommand.', a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_line()), Commands_Help_argumentx27('properties')), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(':'), a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_align(Text_PrettyPrint_Prettyprinter_Doc_concatWith(a => b => Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(a, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(','), a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_softline()), b), Prelude_Types_List_mapAppend({h: 0}, $88 => Commands_Help_option($88), Data_Config_settablePropNames())))), a2: {h: 0}});
|
|
10378
|
-
case 'pr': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--ready'), a2: {a1: Commands_Help_argument(0, '--draft'), a2: {a1: Commands_Help_argument(0, '-i/--into {<branch-name>}'), a2:
|
|
10643
|
+
case 'pr': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--ready'), a2: {a1: Commands_Help_argument(0, '--draft'), a2: {a1: Commands_Help_argument(0, '-i/--into {<branch-name>}'), a2: csegen_478()}}}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Identify an existing PR or create a new one for the current branch.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally apply any number of labels by prefixing them with \'#\'.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally mark a new or existing PR as a draft with the --draft flag.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally mark an existing PR as ready for review with the --ready flag.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally specify the branch to merge into with the --into option.'), a2: {h: 0}}}}}});
|
|
10379
10644
|
case 'contribute': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '-c/--checkout | -l/--list'), a2: {a1: Commands_Help_argument(0, '-<num>'), a2: {a1: Commands_Help_argument(0, '-i/--ignore {<uri>/<pr-number>}'), a2: {h: 0}}}}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $d1 => $d1, {a1: 'Contribute to an open PR. Prints a URL. Prioritizes PRs you are\nrequested to review but will also return other PRs.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $de => $de, {a1: 'Use dash followed by a number (e.g. \'-3\') to skip that number of\npotential PRs and return the next.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $eb => $eb, {a1: 'Specify a PR to ignore (only affects the local Harmony config on\nthis machine) if you would like to more permanently skip a potential\nPR. Do this with the \'--ignore\' option followed by a GitHub URI or\nPull Request number.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $f8 => $f8, {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}}}}});
|
|
10380
10645
|
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}});
|
|
10381
10646
|
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}});
|
|
10382
10647
|
case 'version': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print version'), a2: {h: 0}});
|
|
10383
|
-
case 'quick': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--bugfix'), a2: {a1: Commands_Help_argument(0, '<title> | #<issue-number>'), a2:
|
|
10648
|
+
case 'quick': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--bugfix'), a2: {a1: Commands_Help_argument(0, '<title> | #<issue-number>'), a2: csegen_473()}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Quickly spin up new work with a GitHub issue and associated feature branch. If you have harmony configured to parse GitHub issue numbers ('), a2: {a1: Commands_Help_shell('harmony config branchParsing github'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(') then any PR created from the new branch will automatically link to the new ticket in its description.'), a2: {h: 0}}}}), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $14b => $14b, {a1: 'By default the branch will have the \'feature\' prefix. If the\n--bugfix flag is specified, the \'bugfix\' prefix will be used.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $158 => $158, {a1: 'If your only argument (possibly in addition to the bugfix flag) is\n#<issue-number> for an existing GitHub issue then the new branch will\npoint at that existing issue. Otherwise, all additional arguments other\nthan --bugfix will be used as the issue title. If you don\'t give any\narguments then you will be prompted to enter the issue title\ninteractively. You will also be prompted for the issue description.', a2: {h: 0}})), a2: {h: 0}}}});
|
|
10384
10649
|
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}});
|
|
10385
10650
|
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}});
|
|
10386
10651
|
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}});
|
|
@@ -10515,7 +10780,7 @@ function Commands_case__casex20blockx20inx20graph_22300($0, $1, $2, $3, $4, $5,
|
|
|
10515
10780
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 0}, $d, $e);
|
|
10516
10781
|
}
|
|
10517
10782
|
};
|
|
10518
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c, completedReviews => Util_renderIO($2, csegen_48()(), Commands_Graph_reviewsGraph($2, $2e => Commands_Graph_length_HasLength_String($2e),
|
|
10783
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c, completedReviews => Util_renderIO($2, csegen_48()(), Commands_Graph_reviewsGraph($2, $2e => Commands_Graph_length_HasLength_String($2e), csegen_370(), {a1: ann => $35 => Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($35), a2: ann => $39 => $3a => Text_PrettyPrint_Prettyprinter_Doc_prettyPrec_Pretty_String($39, $3a)}, $7.a2, $7.a1, $5, completedReviews)), $8, $9);
|
|
10519
10784
|
};
|
|
10520
10785
|
}
|
|
10521
10786
|
|
|
@@ -10579,7 +10844,7 @@ function Commands_case__request_21539($0, $1, $2, $3, $4) {
|
|
|
10579
10844
|
case 1: /* Hypothetical */ return Data_Promise_reject('You cannot request review on a PR that has not been created yet and you cannot create the PR in this non-TTY shell', $2a, $2b);
|
|
10580
10845
|
}
|
|
10581
10846
|
};
|
|
10582
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10847
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_648(), $1b => $1c => $1d => Commands_PullRequest_identifyOrCreatePR($0, $1, 0, {h: 0}, $1b, $1c, $1d), $15, $16), $28, $6, $8);
|
|
10583
10848
|
}
|
|
10584
10849
|
}
|
|
10585
10850
|
};
|
|
@@ -10587,7 +10852,7 @@ function Commands_case__request_21539($0, $1, $2, $3, $4) {
|
|
|
10587
10852
|
|
|
10588
10853
|
/* Commands.case block in case block in request,partitionedArgs */
|
|
10589
10854
|
function Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_21463($0, $1, $2, $3, $4, $5, $6) {
|
|
10590
|
-
const $8 = Prelude_Interfaces_mapHom(
|
|
10855
|
+
const $8 = Prelude_Interfaces_mapHom(csegen_662(), $e => Prelude_Types_List_mapAppend({h: 0}, $12 => Data_String_Extra_drop(1n, $12), $e))({a1: $4, a2: $6.a1});
|
|
10591
10856
|
return {a1: $8.a1, a2: {a1: $6.a2, a2: $8.a2}};
|
|
10592
10857
|
}
|
|
10593
10858
|
|
|
@@ -10596,30 +10861,30 @@ function Commands_case__requestx2cpartitionedArgs_21442($0, $1, $2, $3, $4) {
|
|
|
10596
10861
|
return Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_21463($0, $1, $2, $3, $4.a1, $4.a2, Data_List_partition($10 => Util_String_isHashPrefix($10), $4.a2));
|
|
10597
10862
|
}
|
|
10598
10863
|
|
|
10599
|
-
/* Commands.
|
|
10600
|
-
function
|
|
10864
|
+
/* Commands.9040:20478:recombineIntoArgs */
|
|
10865
|
+
function Commands_n__9040_20478_recombineIntoArgs($0, $1) {
|
|
10601
10866
|
switch($1.h) {
|
|
10602
10867
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
10603
10868
|
case undefined: /* cons */ {
|
|
10604
10869
|
switch($1.a1) {
|
|
10605
10870
|
case '-i': {
|
|
10606
10871
|
switch($1.a2.h) {
|
|
10607
|
-
case 0: /* nil */ return
|
|
10872
|
+
case 0: /* nil */ return csegen_666();
|
|
10608
10873
|
case undefined: /* cons */ {
|
|
10609
|
-
const $8 =
|
|
10874
|
+
const $8 = Commands_n__9040_20475_parseIntoOpt($0, $1.a2.a1);
|
|
10610
10875
|
switch($8.h) {
|
|
10611
10876
|
case undefined: /* just */ {
|
|
10612
|
-
const $c =
|
|
10877
|
+
const $c = Commands_n__9040_20478_recombineIntoArgs($0, $1.a2.a2);
|
|
10613
10878
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
10614
10879
|
}
|
|
10615
10880
|
case 0: /* nothing */ {
|
|
10616
|
-
const $14 =
|
|
10881
|
+
const $14 = Commands_n__9040_20478_recombineIntoArgs($0, $1.a2.a2);
|
|
10617
10882
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
10618
10883
|
}
|
|
10619
10884
|
}
|
|
10620
10885
|
}
|
|
10621
10886
|
default: {
|
|
10622
|
-
const $1e =
|
|
10887
|
+
const $1e = Commands_n__9040_20478_recombineIntoArgs($0, $1.a2);
|
|
10623
10888
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
10624
10889
|
}
|
|
10625
10890
|
}
|
|
@@ -10628,26 +10893,26 @@ function Commands_n__9028_20478_recombineIntoArgs($0, $1) {
|
|
|
10628
10893
|
switch($1.a2.h) {
|
|
10629
10894
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--into', a2: {h: 0}}};
|
|
10630
10895
|
case undefined: /* cons */ {
|
|
10631
|
-
const $2b =
|
|
10896
|
+
const $2b = Commands_n__9040_20475_parseIntoOpt($0, $1.a2.a1);
|
|
10632
10897
|
switch($2b.h) {
|
|
10633
10898
|
case undefined: /* just */ {
|
|
10634
|
-
const $2f =
|
|
10899
|
+
const $2f = Commands_n__9040_20478_recombineIntoArgs($0, $1.a2.a2);
|
|
10635
10900
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
10636
10901
|
}
|
|
10637
10902
|
case 0: /* nothing */ {
|
|
10638
|
-
const $37 =
|
|
10903
|
+
const $37 = Commands_n__9040_20478_recombineIntoArgs($0, $1.a2.a2);
|
|
10639
10904
|
return {a1: $37.a1, a2: {a1: '--into', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
10640
10905
|
}
|
|
10641
10906
|
}
|
|
10642
10907
|
}
|
|
10643
10908
|
default: {
|
|
10644
|
-
const $41 =
|
|
10909
|
+
const $41 = Commands_n__9040_20478_recombineIntoArgs($0, $1.a2);
|
|
10645
10910
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
10646
10911
|
}
|
|
10647
10912
|
}
|
|
10648
10913
|
}
|
|
10649
10914
|
default: {
|
|
10650
|
-
const $49 =
|
|
10915
|
+
const $49 = Commands_n__9040_20478_recombineIntoArgs($0, $1.a2);
|
|
10651
10916
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
10652
10917
|
}
|
|
10653
10918
|
}
|
|
@@ -10655,30 +10920,30 @@ function Commands_n__9028_20478_recombineIntoArgs($0, $1) {
|
|
|
10655
10920
|
}
|
|
10656
10921
|
}
|
|
10657
10922
|
|
|
10658
|
-
/* Commands.
|
|
10659
|
-
function
|
|
10923
|
+
/* Commands.11191:22520:recombineIgnoreArgs */
|
|
10924
|
+
function Commands_n__11191_22520_recombineIgnoreArgs($0, $1) {
|
|
10660
10925
|
switch($1.h) {
|
|
10661
10926
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
10662
10927
|
case undefined: /* cons */ {
|
|
10663
10928
|
switch($1.a1) {
|
|
10664
10929
|
case '-i': {
|
|
10665
10930
|
switch($1.a2.h) {
|
|
10666
|
-
case 0: /* nil */ return
|
|
10931
|
+
case 0: /* nil */ return csegen_666();
|
|
10667
10932
|
case undefined: /* cons */ {
|
|
10668
|
-
const $8 =
|
|
10933
|
+
const $8 = Commands_n__11191_22517_parseIgnoreOpt($0, $1.a2.a1);
|
|
10669
10934
|
switch($8.h) {
|
|
10670
10935
|
case undefined: /* just */ {
|
|
10671
|
-
const $c =
|
|
10936
|
+
const $c = Commands_n__11191_22520_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10672
10937
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
10673
10938
|
}
|
|
10674
10939
|
case 0: /* nothing */ {
|
|
10675
|
-
const $14 =
|
|
10940
|
+
const $14 = Commands_n__11191_22520_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10676
10941
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
10677
10942
|
}
|
|
10678
10943
|
}
|
|
10679
10944
|
}
|
|
10680
10945
|
default: {
|
|
10681
|
-
const $1e =
|
|
10946
|
+
const $1e = Commands_n__11191_22520_recombineIgnoreArgs($0, $1.a2);
|
|
10682
10947
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
10683
10948
|
}
|
|
10684
10949
|
}
|
|
@@ -10687,26 +10952,26 @@ function Commands_n__11179_22520_recombineIgnoreArgs($0, $1) {
|
|
|
10687
10952
|
switch($1.a2.h) {
|
|
10688
10953
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
|
|
10689
10954
|
case undefined: /* cons */ {
|
|
10690
|
-
const $2b =
|
|
10955
|
+
const $2b = Commands_n__11191_22517_parseIgnoreOpt($0, $1.a2.a1);
|
|
10691
10956
|
switch($2b.h) {
|
|
10692
10957
|
case undefined: /* just */ {
|
|
10693
|
-
const $2f =
|
|
10958
|
+
const $2f = Commands_n__11191_22520_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10694
10959
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
10695
10960
|
}
|
|
10696
10961
|
case 0: /* nothing */ {
|
|
10697
|
-
const $37 =
|
|
10962
|
+
const $37 = Commands_n__11191_22520_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10698
10963
|
return {a1: $37.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
10699
10964
|
}
|
|
10700
10965
|
}
|
|
10701
10966
|
}
|
|
10702
10967
|
default: {
|
|
10703
|
-
const $41 =
|
|
10968
|
+
const $41 = Commands_n__11191_22520_recombineIgnoreArgs($0, $1.a2);
|
|
10704
10969
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
10705
10970
|
}
|
|
10706
10971
|
}
|
|
10707
10972
|
}
|
|
10708
10973
|
default: {
|
|
10709
|
-
const $49 =
|
|
10974
|
+
const $49 = Commands_n__11191_22520_recombineIgnoreArgs($0, $1.a2);
|
|
10710
10975
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
10711
10976
|
}
|
|
10712
10977
|
}
|
|
@@ -10714,23 +10979,23 @@ function Commands_n__11179_22520_recombineIgnoreArgs($0, $1) {
|
|
|
10714
10979
|
}
|
|
10715
10980
|
}
|
|
10716
10981
|
|
|
10717
|
-
/* Commands.
|
|
10718
|
-
function
|
|
10982
|
+
/* Commands.10405:21764:putNameLn */
|
|
10983
|
+
function Commands_n__10405_21764_putNameLn($0, $1, $2, $3) {
|
|
10719
10984
|
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}}}});
|
|
10720
10985
|
}
|
|
10721
10986
|
|
|
10722
|
-
/* Commands.
|
|
10723
|
-
function
|
|
10724
|
-
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $e =>
|
|
10987
|
+
/* Commands.8788:20218:putLabels */
|
|
10988
|
+
function Commands_n__8788_20218_putLabels($0, $1, $2, $3) {
|
|
10989
|
+
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $e => Commands_n__8788_20217_putLabel($0, $1, $2, $e), $3)));
|
|
10725
10990
|
}
|
|
10726
10991
|
|
|
10727
|
-
/* Commands.
|
|
10728
|
-
function
|
|
10992
|
+
/* Commands.8788:20217:putLabel */
|
|
10993
|
+
function Commands_n__8788_20217_putLabel($0, $1, $2, $3) {
|
|
10729
10994
|
return Text_PrettyPrint_Prettyprinter_Doc_enclose(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\"'), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\"'), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3)));
|
|
10730
10995
|
}
|
|
10731
10996
|
|
|
10732
|
-
/* Commands.
|
|
10733
|
-
function
|
|
10997
|
+
/* Commands.11543:22875:printDetails */
|
|
10998
|
+
function Commands_n__11543_22875_printDetails($0, $1, $2, $3) {
|
|
10734
10999
|
const $4 = Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a8));
|
|
10735
11000
|
const $c = Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' \u{251c} title: '), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a2));
|
|
10736
11001
|
const $15 = Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' \u{251c} created:'), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date($3.a3)));
|
|
@@ -10739,8 +11004,8 @@ function Commands_n__11531_22875_printDetails($0, $1, $2, $3) {
|
|
|
10739
11004
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: $4, a2: {a1: $c, a2: {a1: $15, a2: {a1: $20, a2: {a1: $2e, a2: {h: 0}}}}}});
|
|
10740
11005
|
}
|
|
10741
11006
|
|
|
10742
|
-
/* Commands.
|
|
10743
|
-
function
|
|
11007
|
+
/* Commands.11543:22874:pickOne */
|
|
11008
|
+
function Commands_n__11543_22874_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10744
11009
|
const $8 = Data_List_headx27(Data_List_drop($4, Prelude_Types_List_tailRecAppend($6, $7)));
|
|
10745
11010
|
return $11 => $12 => {
|
|
10746
11011
|
switch($8.h) {
|
|
@@ -10754,7 +11019,7 @@ function Commands_n__11531_22874_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
10754
11019
|
break;
|
|
10755
11020
|
}
|
|
10756
11021
|
case 0: /* nothing */ {
|
|
10757
|
-
$19 =
|
|
11022
|
+
$19 = csegen_671();
|
|
10758
11023
|
break;
|
|
10759
11024
|
}
|
|
10760
11025
|
}
|
|
@@ -10764,31 +11029,31 @@ function Commands_n__11531_22874_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
10764
11029
|
};
|
|
10765
11030
|
}
|
|
10766
11031
|
|
|
10767
|
-
/* Commands.
|
|
10768
|
-
function
|
|
11032
|
+
/* Commands.10035:21430:partitionedArgs */
|
|
11033
|
+
function Commands_n__10035_21430_partitionedArgs($0, $1, $2, $3) {
|
|
10769
11034
|
return Commands_case__requestx2cpartitionedArgs_21442($0, $1, $2, $3, Data_List_partition($c => Data_String_isPrefixOf('+', $c), $3));
|
|
10770
11035
|
}
|
|
10771
11036
|
|
|
10772
|
-
/* Commands.
|
|
10773
|
-
function
|
|
11037
|
+
/* Commands.10573:21952:parseTeamArg */
|
|
11038
|
+
function Commands_n__10573_21952_parseTeamArg($0, $1) {
|
|
10774
11039
|
return {a1: {a1: $1}};
|
|
10775
11040
|
}
|
|
10776
11041
|
|
|
10777
|
-
/* Commands.
|
|
10778
|
-
function
|
|
11042
|
+
/* Commands.11191:22519:parseSkipArg */
|
|
11043
|
+
function Commands_n__11191_22519_parseSkipArg($0, $1) {
|
|
10779
11044
|
return Commands_case__parseContributeArgsx2cparseSkipArg_22566($0, $1, Data_String_strM($1));
|
|
10780
11045
|
}
|
|
10781
11046
|
|
|
10782
|
-
/* Commands.
|
|
10783
|
-
function
|
|
11047
|
+
/* Commands.9040:20477:parseReadyFlag */
|
|
11048
|
+
function Commands_n__9040_20477_parseReadyFlag($0, $1) {
|
|
10784
11049
|
switch($1) {
|
|
10785
11050
|
case '--ready': return {a1: {h: 1 /* Ready */}};
|
|
10786
11051
|
default: return {h: 0};
|
|
10787
11052
|
}
|
|
10788
11053
|
}
|
|
10789
11054
|
|
|
10790
|
-
/* Commands.
|
|
10791
|
-
function
|
|
11055
|
+
/* Commands.11191:22518:parseListFlag */
|
|
11056
|
+
function Commands_n__11191_22518_parseListFlag($0, $1) {
|
|
10792
11057
|
switch($1) {
|
|
10793
11058
|
case '-l': return {a1: {h: 0 /* List */}};
|
|
10794
11059
|
case '--list': return {a1: {h: 0 /* List */}};
|
|
@@ -10796,8 +11061,8 @@ function Commands_n__11179_22518_parseListFlag($0, $1) {
|
|
|
10796
11061
|
}
|
|
10797
11062
|
}
|
|
10798
11063
|
|
|
10799
|
-
/* Commands.
|
|
10800
|
-
function
|
|
11064
|
+
/* Commands.9040:20476:parseLabelArg */
|
|
11065
|
+
function Commands_n__9040_20476_parseLabelArg($0, $1) {
|
|
10801
11066
|
const $2 = Data_String_strM($1);
|
|
10802
11067
|
switch($2.h) {
|
|
10803
11068
|
case undefined: /* cons */ {
|
|
@@ -10810,29 +11075,29 @@ function Commands_n__9028_20476_parseLabelArg($0, $1) {
|
|
|
10810
11075
|
}
|
|
10811
11076
|
}
|
|
10812
11077
|
|
|
10813
|
-
/* Commands.
|
|
10814
|
-
function
|
|
11078
|
+
/* Commands.9040:20475:parseIntoOpt */
|
|
11079
|
+
function Commands_n__9040_20475_parseIntoOpt($0, $1) {
|
|
10815
11080
|
const $2 = Util_String_nonEmpty($1);
|
|
10816
11081
|
return Prelude_Types_map_Functor_Maybe($7 => $7, $2);
|
|
10817
11082
|
}
|
|
10818
11083
|
|
|
10819
|
-
/* Commands.
|
|
10820
|
-
function
|
|
10821
|
-
const $2 = Data_String_split(
|
|
11084
|
+
/* Commands.11191:22517:parseIgnoreOpt */
|
|
11085
|
+
function Commands_n__11191_22517_parseIgnoreOpt($0, $1) {
|
|
11086
|
+
const $2 = Data_String_split(csegen_408(), $1);
|
|
10822
11087
|
const $7 = Data_List1_last($2);
|
|
10823
11088
|
return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
|
|
10824
11089
|
}
|
|
10825
11090
|
|
|
10826
|
-
/* Commands.
|
|
10827
|
-
function
|
|
11091
|
+
/* Commands.9040:20474:parseDraftFlag */
|
|
11092
|
+
function Commands_n__9040_20474_parseDraftFlag($0, $1) {
|
|
10828
11093
|
switch($1) {
|
|
10829
11094
|
case '--draft': return {a1: {h: 0 /* Draft */}};
|
|
10830
11095
|
default: return {h: 0};
|
|
10831
11096
|
}
|
|
10832
11097
|
}
|
|
10833
11098
|
|
|
10834
|
-
/* Commands.
|
|
10835
|
-
function
|
|
11099
|
+
/* Commands.10573:21951:parseCompletedFlag */
|
|
11100
|
+
function Commands_n__10573_21951_parseCompletedFlag($0, $1) {
|
|
10836
11101
|
switch($1) {
|
|
10837
11102
|
case '-c': return {a1: {h: 0}};
|
|
10838
11103
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -10840,8 +11105,8 @@ function Commands_n__10561_21951_parseCompletedFlag($0, $1) {
|
|
|
10840
11105
|
}
|
|
10841
11106
|
}
|
|
10842
11107
|
|
|
10843
|
-
/* Commands.
|
|
10844
|
-
function
|
|
11108
|
+
/* Commands.11191:22516:parseCheckoutFlag */
|
|
11109
|
+
function Commands_n__11191_22516_parseCheckoutFlag($0, $1) {
|
|
10845
11110
|
switch($1) {
|
|
10846
11111
|
case '-c': return {a1: {h: 1 /* Checkout */}};
|
|
10847
11112
|
case '--checkout': return {a1: {h: 1 /* Checkout */}};
|
|
@@ -10849,8 +11114,8 @@ function Commands_n__11179_22516_parseCheckoutFlag($0, $1) {
|
|
|
10849
11114
|
}
|
|
10850
11115
|
}
|
|
10851
11116
|
|
|
10852
|
-
/* Commands.
|
|
10853
|
-
function
|
|
11117
|
+
/* Commands.9506:20943:markAsReady */
|
|
11118
|
+
function Commands_n__9506_20943_markAsReady($0, $1, $2) {
|
|
10854
11119
|
const $6 = $7 => {
|
|
10855
11120
|
switch($7.h) {
|
|
10856
11121
|
case 1: /* Ready */ return 1;
|
|
@@ -10861,8 +11126,8 @@ function Commands_n__9494_20943_markAsReady($0, $1, $2) {
|
|
|
10861
11126
|
return Data_Maybe_isJust($4);
|
|
10862
11127
|
}
|
|
10863
11128
|
|
|
10864
|
-
/* Commands.
|
|
10865
|
-
function
|
|
11129
|
+
/* Commands.9506:20942:markAsDraft */
|
|
11130
|
+
function Commands_n__9506_20942_markAsDraft($0, $1, $2) {
|
|
10866
11131
|
const $6 = $7 => {
|
|
10867
11132
|
switch($7.h) {
|
|
10868
11133
|
case 0: /* Draft */ return 1;
|
|
@@ -10873,8 +11138,8 @@ function Commands_n__9494_20942_markAsDraft($0, $1, $2) {
|
|
|
10873
11138
|
return Data_Maybe_isJust($4);
|
|
10874
11139
|
}
|
|
10875
11140
|
|
|
10876
|
-
/* Commands.
|
|
10877
|
-
function
|
|
11141
|
+
/* Commands.11543:22873:listSome */
|
|
11142
|
+
function Commands_n__11543_22873_listSome($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10878
11143
|
const $13 = $14 => {
|
|
10879
11144
|
let $19;
|
|
10880
11145
|
switch(Prelude_Types_null_Foldable_List($5)) {
|
|
@@ -10887,13 +11152,13 @@ function Commands_n__11531_22873_listSome($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
10887
11152
|
break;
|
|
10888
11153
|
}
|
|
10889
11154
|
}
|
|
10890
|
-
return Prelude_Interfaces_when(csegen_40()(), $19, () => $1e => $1f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11155
|
+
return Prelude_Interfaces_when(csegen_40()(), $19, () => $1e => $1f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_453()(), $25 => $26 => $27 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_renderIO($2, csegen_48()(), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_bold(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Your review not requested:'))), $37 => Commands_n__11543_22871_goListSome($0, $1, $2, 0, Data_List_take(5n, $5)), $26, $27), $1e, $1f));
|
|
10891
11156
|
};
|
|
10892
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11157
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_n__11543_22871_goListSome($0, $1, $2, 1, Data_List_drop($3, $4)), $13, $6, $7);
|
|
10893
11158
|
}
|
|
10894
11159
|
|
|
10895
|
-
/* Commands.
|
|
10896
|
-
function
|
|
11160
|
+
/* Commands.9506:20941:labelSlugs */
|
|
11161
|
+
function Commands_n__9506_20941_labelSlugs($0, $1, $2) {
|
|
10897
11162
|
const $4 = $5 => $6 => {
|
|
10898
11163
|
switch($5.h) {
|
|
10899
11164
|
case 3: /* Label */ return {a1: $5.a1, a2: $6};
|
|
@@ -10903,13 +11168,13 @@ function Commands_n__9494_20941_labelSlugs($0, $1, $2) {
|
|
|
10903
11168
|
return Prelude_Types_foldr_Foldable_List($4, {h: 0}, $2);
|
|
10904
11169
|
}
|
|
10905
11170
|
|
|
10906
|
-
/* Commands.
|
|
10907
|
-
function
|
|
11171
|
+
/* Commands.11543:22872:isNotIgnored */
|
|
11172
|
+
function Commands_n__11543_22872_isNotIgnored($0, $1, $2, $3, $4) {
|
|
10908
11173
|
return Data_Maybe_isNothing(Data_List_find($9 => Prelude_EqOrd_x3dx3d_Eq_Integer($9, $4.a1), $3.a13));
|
|
10909
11174
|
}
|
|
10910
11175
|
|
|
10911
|
-
/* Commands.
|
|
10912
|
-
function
|
|
11176
|
+
/* Commands.9506:20940:intoBranch */
|
|
11177
|
+
function Commands_n__9506_20940_intoBranch($0, $1, $2) {
|
|
10913
11178
|
const $c = $d => {
|
|
10914
11179
|
switch($d.h) {
|
|
10915
11180
|
case 2: /* Into */ return {a1: Util_String_value($d.a1)};
|
|
@@ -10919,11 +11184,11 @@ function Commands_n__9494_20940_intoBranch($0, $1, $2) {
|
|
|
10919
11184
|
return Prelude_Types_foldMap_Foldable_List({a1: $6 => $7 => Prelude_Types_x3cx2bx3e_Semigroup_x28Maybex20x24ax29($6, $7), a2: {h: 0}}, $c, $2);
|
|
10920
11185
|
}
|
|
10921
11186
|
|
|
10922
|
-
/* Commands.
|
|
10923
|
-
function
|
|
11187
|
+
/* Commands.11543:22871:goListSome */
|
|
11188
|
+
function Commands_n__11543_22871_goListSome($0, $1, $2, $3, $4) {
|
|
10924
11189
|
switch($4.h) {
|
|
10925
11190
|
case undefined: /* cons */ {
|
|
10926
|
-
const $6 =
|
|
11191
|
+
const $6 = Commands_n__11543_22875_printDetails($0, $1, $2, $4.a1);
|
|
10927
11192
|
let $13;
|
|
10928
11193
|
switch($3) {
|
|
10929
11194
|
case 1: {
|
|
@@ -10935,15 +11200,15 @@ function Commands_n__11531_22871_goListSome($0, $1, $2, $3, $4) {
|
|
|
10935
11200
|
break;
|
|
10936
11201
|
}
|
|
10937
11202
|
}
|
|
10938
|
-
const $11 = Text_PrettyPrint_Prettyprinter_Doc_indent($13, Prelude_Types_foldl_Foldable_List(acc => next => Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: acc, a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
11203
|
+
const $11 = Text_PrettyPrint_Prettyprinter_Doc_indent($13, Prelude_Types_foldl_Foldable_List(acc => next => Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: acc, a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_n__11543_22875_printDetails($0, $1, $2, next), a2: {h: 0}}}}), $6, $4.a2));
|
|
10939
11204
|
return Util_renderIO($2, csegen_48()(), $11);
|
|
10940
11205
|
}
|
|
10941
|
-
case 0: /* nil */ return
|
|
11206
|
+
case 0: /* nil */ return csegen_671();
|
|
10942
11207
|
}
|
|
10943
11208
|
}
|
|
10944
11209
|
|
|
10945
|
-
/* Commands.
|
|
10946
|
-
function
|
|
11210
|
+
/* Commands.12716:23965:go */
|
|
11211
|
+
function Commands_n__12716_23965_go($0, $1) {
|
|
10947
11212
|
switch($1.h) {
|
|
10948
11213
|
case undefined: /* cons */ {
|
|
10949
11214
|
switch($1.a1.h) {
|
|
@@ -10965,8 +11230,8 @@ function Commands_n__12704_23965_go($0, $1) {
|
|
|
10965
11230
|
}
|
|
10966
11231
|
}
|
|
10967
11232
|
|
|
10968
|
-
/* Commands.
|
|
10969
|
-
function
|
|
11233
|
+
/* Commands.12607:23856:go */
|
|
11234
|
+
function Commands_n__12607_23856_go($0, $1) {
|
|
10970
11235
|
switch($1.h) {
|
|
10971
11236
|
case 0: /* nothing */ return $0;
|
|
10972
11237
|
default: {
|
|
@@ -10978,15 +11243,15 @@ function Commands_n__12595_23856_go($0, $1) {
|
|
|
10978
11243
|
}
|
|
10979
11244
|
}
|
|
10980
11245
|
|
|
10981
|
-
/* Commands.
|
|
10982
|
-
function
|
|
11246
|
+
/* Commands.10405:21763:forkedUser */
|
|
11247
|
+
function Commands_n__10405_21763_forkedUser($0, $1, $2, $3) {
|
|
10983
11248
|
return FFI_Concurrency_fork(csegen_48()(), ('user --json '+$3));
|
|
10984
11249
|
}
|
|
10985
11250
|
|
|
10986
|
-
/* Commands.
|
|
10987
|
-
function
|
|
10988
|
-
switch(
|
|
10989
|
-
case 1: return
|
|
11251
|
+
/* Commands.9506:20939:conflictingDraftReadyArgs */
|
|
11252
|
+
function Commands_n__9506_20939_conflictingDraftReadyArgs($0, $1, $2) {
|
|
11253
|
+
switch(Commands_n__9506_20942_markAsDraft($0, $1, $2)) {
|
|
11254
|
+
case 1: return Commands_n__9506_20943_markAsReady($0, $1, $2);
|
|
10990
11255
|
case 0: return 0;
|
|
10991
11256
|
}
|
|
10992
11257
|
}
|
|
@@ -11005,12 +11270,12 @@ function Commands_titleOrNumberArg($0) {
|
|
|
11005
11270
|
}
|
|
11006
11271
|
};
|
|
11007
11272
|
const $3 = Prelude_Types_List_filterAppend({h: 0}, $6, $0);
|
|
11008
|
-
return
|
|
11273
|
+
return Commands_n__12716_23965_go($0, $3);
|
|
11009
11274
|
}
|
|
11010
11275
|
|
|
11011
11276
|
/* Commands.titleArg : List QuickArg -> Maybe String */
|
|
11012
11277
|
function Commands_titleArg($0) {
|
|
11013
|
-
return Prelude_Types_foldl_Foldable_List($3 => $4 =>
|
|
11278
|
+
return Prelude_Types_foldl_Foldable_List($3 => $4 => Commands_n__12607_23856_go($3, $4), {h: 0}, $0);
|
|
11014
11279
|
}
|
|
11015
11280
|
|
|
11016
11281
|
/* Commands.teamNameArg : GraphArg -> Maybe String */
|
|
@@ -11036,7 +11301,7 @@ function Commands_skipArg($0) {
|
|
|
11036
11301
|
|
|
11037
11302
|
/* Commands.request : Config => Octokit => List String -> {default False _ : Bool} -> Promise' () */
|
|
11038
11303
|
function Commands_request($0, $1, $2, $3) {
|
|
11039
|
-
return Commands_case__request_21539($0, $1, $3, $2,
|
|
11304
|
+
return Commands_case__request_21539($0, $1, $3, $2, Commands_n__10035_21430_partitionedArgs($0, $1, $3, $2));
|
|
11040
11305
|
}
|
|
11041
11306
|
|
|
11042
11307
|
/* Commands.reflect : Config => Octokit => Promise' () */
|
|
@@ -11068,7 +11333,7 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11068
11333
|
};
|
|
11069
11334
|
const $55 = $56 => $57 => $58 => {
|
|
11070
11335
|
let $5f;
|
|
11071
|
-
switch(Prelude_Types_null_Foldable_List(
|
|
11336
|
+
switch(Prelude_Types_null_Foldable_List(Commands_n__9506_20941_labelSlugs($0, $1, $2))) {
|
|
11072
11337
|
case 1: {
|
|
11073
11338
|
$5f = 0;
|
|
11074
11339
|
break;
|
|
@@ -11078,10 +11343,10 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11078
11343
|
break;
|
|
11079
11344
|
}
|
|
11080
11345
|
}
|
|
11081
|
-
const $5a = Prelude_Interfaces_when(csegen_40()(), $5f, () => $68 => $69 => Commands_label($0, $1,
|
|
11346
|
+
const $5a = Prelude_Interfaces_when(csegen_40()(), $5f, () => $68 => $69 => Commands_label($0, $1, Commands_n__9506_20941_labelSlugs($0, $1, $2), $68, $69));
|
|
11082
11347
|
const $74 = $75 => $76 => $77 => {
|
|
11083
11348
|
const $79 = $7a => {
|
|
11084
|
-
const $7b =
|
|
11349
|
+
const $7b = Commands_n__9506_20940_intoBranch($0, $1, $2);
|
|
11085
11350
|
switch($7b.h) {
|
|
11086
11351
|
case undefined: /* just */ {
|
|
11087
11352
|
return $80 => {
|
|
@@ -11096,7 +11361,7 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11096
11361
|
};
|
|
11097
11362
|
const $9f = $a0 => $a1 => $a2 => {
|
|
11098
11363
|
let $a9;
|
|
11099
|
-
switch(
|
|
11364
|
+
switch(Commands_n__9506_20942_markAsDraft($0, $1, $2)) {
|
|
11100
11365
|
case 1: {
|
|
11101
11366
|
switch($39.a2.a4) {
|
|
11102
11367
|
case 1: {
|
|
@@ -11125,11 +11390,11 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11125
11390
|
};
|
|
11126
11391
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_48()(), 0, 'Are you sure you want to convert the existing PR for the current branch to a draft?'), $c4, $ba, $bb);
|
|
11127
11392
|
};
|
|
11128
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11393
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_453()(), $b8, $b2, $b3);
|
|
11129
11394
|
});
|
|
11130
11395
|
const $f9 = $fa => {
|
|
11131
11396
|
let $ff;
|
|
11132
|
-
switch(
|
|
11397
|
+
switch(Commands_n__9506_20943_markAsReady($0, $1, $2)) {
|
|
11133
11398
|
case 1: {
|
|
11134
11399
|
$ff = $39.a2.a4;
|
|
11135
11400
|
break;
|
|
@@ -11149,7 +11414,7 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11149
11414
|
};
|
|
11150
11415
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_48()(), 0, 'Are you sure you want to mark the existing PR for the current branch ready for review?'), $119, $10f, $110);
|
|
11151
11416
|
};
|
|
11152
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11417
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_453()(), $10d, $107, $108);
|
|
11153
11418
|
});
|
|
11154
11419
|
};
|
|
11155
11420
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a4, $f9, $a1, $a2);
|
|
@@ -11163,9 +11428,9 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11163
11428
|
case 1: /* Hypothetical */ return $156 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($159 => Prelude_IO_prim__putStr(($39.a1+'\n'), $159), $3a, $3b, $156);
|
|
11164
11429
|
}
|
|
11165
11430
|
};
|
|
11166
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d => $1e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11431
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d => $1e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_648(), $23 => $24 => $25 => Commands_PullRequest_identifyOrCreatePR($0, $1, Commands_n__9506_20942_markAsDraft($0, $1, $2), Commands_n__9506_20940_intoBranch($0, $1, $2), $23, $24, $25), $1d, $1e), $38, $19, $1a);
|
|
11167
11432
|
};
|
|
11168
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_40()(),
|
|
11433
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_40()(), Commands_n__9506_20939_conflictingDraftReadyArgs($0, $1, $2), () => $11 => $12 => Data_Promise_reject('You cannot set a PR as ready for review and mark it as a draft at the same time.', $11, $12)), $17, $3, $4);
|
|
11169
11434
|
}
|
|
11170
11435
|
|
|
11171
11436
|
/* Commands.parseQuickArgs : List String -> List QuickArg */
|
|
@@ -11186,9 +11451,9 @@ function Commands_parsePrArgs($0) {
|
|
|
11186
11451
|
switch($0.h) {
|
|
11187
11452
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
11188
11453
|
default: {
|
|
11189
|
-
const $3 =
|
|
11454
|
+
const $3 = Commands_n__9040_20478_recombineIntoArgs($0, $0);
|
|
11190
11455
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 2 /* Into */, a1: $b}), $3.a1);
|
|
11191
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
11456
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_695(), $18 => Commands_n__9040_20477_parseReadyFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_695(), $22 => Commands_n__9040_20474_parseDraftFlag($0, $22), $27 => Commands_n__9040_20476_parseLabelArg($0, $27), $1d), $13), $3.a2);
|
|
11192
11457
|
return Data_Either_maybeToEither(() => Commands_prUsageError(), Prelude_Types_map_Functor_Maybe($34 => Prelude_Types_List_tailRecAppend($7, $34), $e));
|
|
11193
11458
|
}
|
|
11194
11459
|
}
|
|
@@ -11204,7 +11469,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11204
11469
|
switch($0.a2.a2.h) {
|
|
11205
11470
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
11206
11471
|
default: {
|
|
11207
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(
|
|
11472
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_695(), $10 => Commands_n__10573_21951_parseCompletedFlag($0, $10), $15 => Commands_n__10573_21952_parseTeamArg($0, $15), $b), $0);
|
|
11208
11473
|
switch($6.h) {
|
|
11209
11474
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
11210
11475
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -11213,7 +11478,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11213
11478
|
}
|
|
11214
11479
|
}
|
|
11215
11480
|
default: {
|
|
11216
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(
|
|
11481
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_695(), $27 => Commands_n__10573_21951_parseCompletedFlag($0, $27), $2c => Commands_n__10573_21952_parseTeamArg($0, $2c), $22), $0);
|
|
11217
11482
|
switch($1d.h) {
|
|
11218
11483
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
11219
11484
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -11222,7 +11487,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11222
11487
|
}
|
|
11223
11488
|
}
|
|
11224
11489
|
default: {
|
|
11225
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(
|
|
11490
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_695(), $3e => Commands_n__10573_21951_parseCompletedFlag($0, $3e), $43 => Commands_n__10573_21952_parseTeamArg($0, $43), $39), $0);
|
|
11226
11491
|
switch($34.h) {
|
|
11227
11492
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
11228
11493
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -11236,9 +11501,9 @@ function Commands_parseContributeArgs($0) {
|
|
|
11236
11501
|
switch($0.h) {
|
|
11237
11502
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
11238
11503
|
default: {
|
|
11239
|
-
const $3 =
|
|
11504
|
+
const $3 = Commands_n__11191_22520_recombineIgnoreArgs($0, $0);
|
|
11240
11505
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 2 /* Ignore */, a1: $b}), $3.a1);
|
|
11241
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
11506
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_695(), $18 => Commands_n__11191_22518_parseListFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_695(), $22 => Commands_n__11191_22519_parseSkipArg($0, $22), $27 => Commands_n__11191_22516_parseCheckoutFlag($0, $27), $1d), $13), $3.a2);
|
|
11242
11507
|
return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($34 => Prelude_Types_List_tailRecAppend($7, $34), $e));
|
|
11243
11508
|
}
|
|
11244
11509
|
}
|
|
@@ -11246,12 +11511,12 @@ function Commands_parseContributeArgs($0) {
|
|
|
11246
11511
|
|
|
11247
11512
|
/* Commands.listOrgTeams : Config => Octokit => Promise' () */
|
|
11248
11513
|
function Commands_listOrgTeams($0, $1, $2, $3) {
|
|
11249
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11514
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_696(), $c => $d => FFI_GitHub_forceListTeams($1, $0.a2, $c, $d), $6, $7), teamNames => Util_renderIO($0, csegen_48()(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $22 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($22)), teamNames))), $2, $3);
|
|
11250
11515
|
}
|
|
11251
11516
|
|
|
11252
11517
|
/* Commands.list : Config => Octokit => String -> Promise' () */
|
|
11253
11518
|
function Commands_list($0, $1, $2, $3, $4) {
|
|
11254
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11519
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_696(), $d => $e => FFI_GitHub_forceListTeamMembers($1, $0.a2, $2, $d, $e), $7, $8), teamMemberLogins => $19 => $1a => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_41()(), csegen_698(), Prelude_Types_traverse_Traversable_List(csegen_40()(), $29 => Commands_n__10405_21763_forkedUser($1, $2, $0, $29), teamMemberLogins)), teamMembersJson => $31 => $32 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Types_traverse_Traversable_List(csegen_40()(), $3a => $3b => Data_Promise_either(Data_User_parseUser($3a), $3b), teamMembersJson), teamMembers => Util_renderIO($0, csegen_48()(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $4e => Commands_n__10405_21764_putNameLn($1, $2, $0, $4e), teamMembers))), $31, $32), $19, $1a), $3, $4);
|
|
11255
11520
|
}
|
|
11256
11521
|
|
|
11257
11522
|
/* Commands.label : Config => Octokit => List String -> Promise' () */
|
|
@@ -11260,17 +11525,17 @@ function Commands_label($0, $1, $2, $3, $4) {
|
|
|
11260
11525
|
switch($1b.h) {
|
|
11261
11526
|
case 0: /* Actual */ {
|
|
11262
11527
|
const $1d = Prelude_Types_List_mapAppend({h: 0}, $21 => Commands_Label_unslugifyLabel($0.a11, $21), $2);
|
|
11263
|
-
return $27 => $28 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2b => $2c => Commands_Label_addLabels($0, $1, $1b.a2, $1d, $2b, $2c), allLabels => Util_renderIO($0, csegen_48()(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Added'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(
|
|
11528
|
+
return $27 => $28 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2b => $2c => Commands_Label_addLabels($0, $1, $1b.a2, $1d, $2b, $2c), allLabels => Util_renderIO($0, csegen_48()(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Added'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8788_20218_putLabels($1, $2, $0, $1d), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(' to PR.'), a2: {h: 0}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $5c => $5c, {a1: 'All labels for PR of ', a2: {a1: $1b.a2.a8, a2: {a1: ':', a2: {h: 0}}}})), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8788_20218_putLabels($1, $2, $0, allLabels), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('.'), a2: {h: 0}}))), a2: {h: 0}}})), $27, $28);
|
|
11264
11529
|
}
|
|
11265
11530
|
case 1: /* Hypothetical */ return $77 => $78 => Data_Promise_reject('You cannot label a PR that has not been created yet and you cannot create the PR in this non-TTY shell', $77, $78);
|
|
11266
11531
|
}
|
|
11267
11532
|
};
|
|
11268
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11533
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_648(), $d => $e => $f => Commands_PullRequest_identifyOrCreatePR($0, $1, 0, {h: 0}, $d, $e, $f), $7, $8), $1a, $3, $4);
|
|
11269
11534
|
}
|
|
11270
11535
|
|
|
11271
11536
|
/* Commands.issueCategory : List QuickArg -> IssueCategory */
|
|
11272
11537
|
function Commands_issueCategory($0) {
|
|
11273
|
-
return Prelude_Types_maybe(() => 1, () => $4 => 0, Data_List_find(
|
|
11538
|
+
return Prelude_Types_maybe(() => 1, () => $4 => 0, Data_List_find(csegen_705(), $0));
|
|
11274
11539
|
}
|
|
11275
11540
|
|
|
11276
11541
|
/* Commands.health : Config => Octokit => Promise' () */
|
|
@@ -11280,7 +11545,7 @@ function Commands_health($0, $1, $2, $3) {
|
|
|
11280
11545
|
|
|
11281
11546
|
/* Commands.graph : Config => Octokit => List GraphArg -> Promise' () */
|
|
11282
11547
|
function Commands_graph($0, $1, $2) {
|
|
11283
|
-
const $3 = Data_List_find(
|
|
11548
|
+
const $3 = Data_List_find(csegen_705(), $2);
|
|
11284
11549
|
return $8 => Commands_case__graph_22256($1, $2, $0, $3, Data_List_headx27(Prelude_Types_List_mapMaybeAppend({h: 0}, $14 => Commands_teamNameArg($14), $2)), $8);
|
|
11285
11550
|
}
|
|
11286
11551
|
|
|
@@ -11300,75 +11565,75 @@ function Commands_contribute($0, $1, $2, $3, $4) {
|
|
|
11300
11565
|
};
|
|
11301
11566
|
const $12 = Prelude_Types_List_filterAppend({h: 0}, $15, openPrs);
|
|
11302
11567
|
return $1a => $1b => {
|
|
11303
|
-
const $
|
|
11304
|
-
const $
|
|
11305
|
-
return $
|
|
11306
|
-
const $
|
|
11307
|
-
switch(Prelude_Types_null_Foldable_List($
|
|
11308
|
-
case 1: return Data_Promise_pure_Applicative_x28Promisex20x24ex29($0, $
|
|
11309
|
-
case 0: return Config_addIgnoredPRs($0, $
|
|
11568
|
+
const $29 = myLogin => {
|
|
11569
|
+
const $2a = Commands_ignorePRNums($2);
|
|
11570
|
+
return $2d => $2e => {
|
|
11571
|
+
const $30 = $31 => $32 => {
|
|
11572
|
+
switch(Prelude_Types_null_Foldable_List($2a)) {
|
|
11573
|
+
case 1: return Data_Promise_pure_Applicative_x28Promisex20x24ex29($0, $31, $32);
|
|
11574
|
+
case 0: return Config_addIgnoredPRs($0, $2a, $31, $32);
|
|
11310
11575
|
}
|
|
11311
11576
|
};
|
|
11312
|
-
const $
|
|
11313
|
-
const $
|
|
11314
|
-
const $
|
|
11315
|
-
switch($
|
|
11577
|
+
const $3f = configx27 => {
|
|
11578
|
+
const $40 = Data_Maybe_fromMaybe(() => 0n, Data_List_headx27(Prelude_Types_List_mapMaybeAppend({h: 0}, $49 => Commands_skipArg($49), $2)));
|
|
11579
|
+
const $4f = $50 => {
|
|
11580
|
+
switch($50.h) {
|
|
11316
11581
|
case 1: /* Checkout */ return 1;
|
|
11317
11582
|
default: return 0;
|
|
11318
11583
|
}
|
|
11319
11584
|
};
|
|
11320
|
-
const $
|
|
11321
|
-
const $
|
|
11322
|
-
switch($
|
|
11585
|
+
const $4d = Data_List_find($4f, $2);
|
|
11586
|
+
const $55 = $56 => {
|
|
11587
|
+
switch($56.h) {
|
|
11323
11588
|
case 0: /* List */ return 1;
|
|
11324
11589
|
default: return 0;
|
|
11325
11590
|
}
|
|
11326
11591
|
};
|
|
11327
|
-
const $
|
|
11328
|
-
return $
|
|
11329
|
-
let $
|
|
11330
|
-
switch(Data_Maybe_isJust($
|
|
11592
|
+
const $53 = Data_List_find($55, $2);
|
|
11593
|
+
return $59 => $5a => {
|
|
11594
|
+
let $61;
|
|
11595
|
+
switch(Data_Maybe_isJust($4d)) {
|
|
11331
11596
|
case 1: {
|
|
11332
|
-
$
|
|
11597
|
+
$61 = Data_Maybe_isJust($53);
|
|
11333
11598
|
break;
|
|
11334
11599
|
}
|
|
11335
11600
|
case 0: {
|
|
11336
|
-
$
|
|
11601
|
+
$61 = 0;
|
|
11337
11602
|
break;
|
|
11338
11603
|
}
|
|
11339
11604
|
}
|
|
11340
|
-
const $
|
|
11341
|
-
const $
|
|
11342
|
-
const $
|
|
11343
|
-
switch(Data_PullRequest_isAuthor(myLogin, $
|
|
11605
|
+
const $5c = Prelude_Interfaces_when(csegen_40()(), $61, () => $68 => $69 => Data_Promise_reject('The --checkout and --list options are mutually exclusive', $68, $69));
|
|
11606
|
+
const $6e = $6f => {
|
|
11607
|
+
const $74 = $75 => {
|
|
11608
|
+
switch(Data_PullRequest_isAuthor(myLogin, $75)) {
|
|
11344
11609
|
case 1: return 0;
|
|
11345
11610
|
case 0: return 1;
|
|
11346
11611
|
}
|
|
11347
11612
|
};
|
|
11348
|
-
const $
|
|
11349
|
-
const $
|
|
11350
|
-
const $
|
|
11351
|
-
const $
|
|
11352
|
-
let $
|
|
11353
|
-
switch($
|
|
11613
|
+
const $71 = Prelude_Types_List_filterAppend({h: 0}, $74, $12);
|
|
11614
|
+
const $7b = Prelude_Types_List_filterAppend({h: 0}, $7f => Commands_n__11543_22872_isNotIgnored($1, $2, $0, configx27, $7f), $71);
|
|
11615
|
+
const $87 = Data_List_partition($8a => Data_PullRequest_isRequestedReviewer(myLogin, $8a), $7b);
|
|
11616
|
+
const $8f = Prelude_Interfaces_mapHom(csegen_662(), $95 => Data_List_sortBy(csegen_712(), $95))($87);
|
|
11617
|
+
let $70;
|
|
11618
|
+
switch($53.h) {
|
|
11354
11619
|
case 0: /* nothing */ {
|
|
11355
|
-
$
|
|
11620
|
+
$70 = () => Commands_n__11543_22874_pickOne($1, $2, $0, configx27, $40, $4d, $8f.a1, $8f.a2);
|
|
11356
11621
|
break;
|
|
11357
11622
|
}
|
|
11358
11623
|
case undefined: /* just */ {
|
|
11359
|
-
$
|
|
11624
|
+
$70 = () => $a5 => $a6 => Commands_n__11543_22873_listSome($1, $2, $0, $40, $8f.a1, $8f.a2, $a5, $a6);
|
|
11360
11625
|
break;
|
|
11361
11626
|
}
|
|
11362
11627
|
}
|
|
11363
|
-
return $
|
|
11628
|
+
return $70();
|
|
11364
11629
|
};
|
|
11365
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11630
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($5c, $6e, $59, $5a);
|
|
11366
11631
|
};
|
|
11367
11632
|
};
|
|
11368
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11633
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($30, $3f, $2d, $2e);
|
|
11369
11634
|
};
|
|
11370
11635
|
};
|
|
11371
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => $1f => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11636
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => $1f => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_414()(), FFI_GitHub_getSelf($1), $1e, $1f), $29, $1a, $1b);
|
|
11372
11637
|
};
|
|
11373
11638
|
};
|
|
11374
11639
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequests($1, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $11, $3, $4);
|
|
@@ -11382,7 +11647,7 @@ function Commands_branch($0, $1, $2) {
|
|
|
11382
11647
|
const $b = Prelude_Types_foldMap_Foldable_List(csegen_86()(), $11 => $11, {a1: 'https://github.com/', a2: {a1: $7, a2: {a1: '/', a2: {a1: $9, a2: {a1: '/tree/', a2: {a1: branch, a2: {h: 0}}}}}}});
|
|
11383
11648
|
return $1f => $20 => $21 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($24 => Prelude_IO_prim__putStr(($b+'\n'), $24), $1f, $20, $21);
|
|
11384
11649
|
};
|
|
11385
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11650
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_648(), $6, $1, $2);
|
|
11386
11651
|
}
|
|
11387
11652
|
|
|
11388
11653
|
/* Commands.(<||>) : Alternative t => (a -> t b) -> (a -> t b) -> a -> t b */
|
|
@@ -11602,67 +11867,67 @@ function Data_SortedMap_Dependent_empty($0) {
|
|
|
11602
11867
|
|
|
11603
11868
|
/* Commands.User.Reflect.case block in case block in reflectOnSelf */
|
|
11604
11869
|
function Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
11605
|
-
const $b = Prelude_Interfaces_mapHom(
|
|
11870
|
+
const $b = Prelude_Interfaces_mapHom(csegen_662(), $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_734(), $11))))({a1: $7, a2: $9.a1});
|
|
11606
11871
|
return Util_renderIO($0, csegen_48()(), Commands_User_Reflect_print(Prelude_Types_String_length(Commands_User_Reflect_intro()), Prelude_Types_List_lengthTR($4), Prelude_Types_List_lengthTR($9.a1), Prelude_Types_List_lengthTR($9.a2), Prelude_Types_List_lengthTR($8), Prelude_Types_List_lengthTR($7), $5, $b.a1, $b.a2, $0));
|
|
11607
11872
|
}
|
|
11608
11873
|
|
|
11609
|
-
/* Commands.User.Me.
|
|
11610
|
-
function
|
|
11874
|
+
/* Commands.User.Me.7628:2049:ul */
|
|
11875
|
+
function Commands_User_Me_n__7628_2049_ul($0, $1, $2, $3, $4) {
|
|
11611
11876
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
11612
11877
|
}
|
|
11613
11878
|
|
|
11614
|
-
/* Commands.User.Me.
|
|
11615
|
-
function
|
|
11616
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
11879
|
+
/* Commands.User.Me.7628:2048:teams */
|
|
11880
|
+
function Commands_User_Me_n__7628_2048_teams($0, $1, $2, $3) {
|
|
11881
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_User_Me_n__7628_2049_ul($0, $1, $2, $3, 'GitHub Teams:'), a2: Prelude_Types_List_mapAppend({h: 0}, $11 => Commands_User_Me_n__7628_2046_it($0, $1, $2, $3, $11), $0)});
|
|
11617
11882
|
}
|
|
11618
11883
|
|
|
11619
|
-
/* Commands.User.Me.
|
|
11620
|
-
function
|
|
11621
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'),
|
|
11884
|
+
/* Commands.User.Me.7628:2047:login */
|
|
11885
|
+
function Commands_User_Me_n__7628_2047_login($0, $1, $2, $3) {
|
|
11886
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'), Commands_User_Me_n__7628_2043_dataVal($0, $1, $2, $3, $1.a1));
|
|
11622
11887
|
}
|
|
11623
11888
|
|
|
11624
|
-
/* Commands.User.Reflect.
|
|
11625
|
-
function
|
|
11889
|
+
/* Commands.User.Reflect.6683:1075:ital */
|
|
11890
|
+
function Commands_User_Reflect_n__6683_1075_ital($0, $1) {
|
|
11626
11891
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
11627
11892
|
}
|
|
11628
11893
|
|
|
11629
|
-
/* Commands.User.Me.
|
|
11630
|
-
function
|
|
11894
|
+
/* Commands.User.Me.7628:2046:it */
|
|
11895
|
+
function Commands_User_Me_n__7628_2046_it($0, $1, $2, $3, $4) {
|
|
11631
11896
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
11632
11897
|
}
|
|
11633
11898
|
|
|
11634
|
-
/* Commands.User.Me.
|
|
11635
|
-
function
|
|
11899
|
+
/* Commands.User.Me.7778:2196:handleUnsetEmail */
|
|
11900
|
+
function Commands_User_Me_n__7778_2196_handleUnsetEmail($0, $1, $2) {
|
|
11636
11901
|
switch($2) {
|
|
11637
11902
|
case '': return {h: 0};
|
|
11638
11903
|
default: return {a1: $2};
|
|
11639
11904
|
}
|
|
11640
11905
|
}
|
|
11641
11906
|
|
|
11642
|
-
/* Commands.User.Me.
|
|
11643
|
-
function
|
|
11644
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'),
|
|
11907
|
+
/* Commands.User.Me.7628:2045:fullName */
|
|
11908
|
+
function Commands_User_Me_n__7628_2045_fullName($0, $1, $2, $3) {
|
|
11909
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'), Commands_User_Me_n__7628_2043_dataVal($0, $1, $2, $3, $1.a2));
|
|
11645
11910
|
}
|
|
11646
11911
|
|
|
11647
|
-
/* Commands.User.Me.
|
|
11648
|
-
function
|
|
11912
|
+
/* Commands.User.Me.7628:2044:email */
|
|
11913
|
+
function Commands_User_Me_n__7628_2044_email($0, $1, $2, $3) {
|
|
11649
11914
|
let $8;
|
|
11650
11915
|
switch($2.h) {
|
|
11651
11916
|
case undefined: /* just */ {
|
|
11652
|
-
$8 =
|
|
11917
|
+
$8 = Commands_User_Me_n__7628_2043_dataVal($0, $1, $2, $3, $2.a1);
|
|
11653
11918
|
break;
|
|
11654
11919
|
}
|
|
11655
11920
|
case 0: /* nothing */ {
|
|
11656
|
-
$8 =
|
|
11921
|
+
$8 = Commands_User_Me_n__7628_2046_it($0, $1, $2, $3, 'Not set');
|
|
11657
11922
|
break;
|
|
11658
11923
|
}
|
|
11659
11924
|
}
|
|
11660
11925
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Git Email:'), $8);
|
|
11661
11926
|
}
|
|
11662
11927
|
|
|
11663
|
-
/* Commands.User.Me.
|
|
11664
|
-
function
|
|
11665
|
-
return Theme_theme($3,
|
|
11928
|
+
/* Commands.User.Me.7628:2043:dataVal */
|
|
11929
|
+
function Commands_User_Me_n__7628_2043_dataVal($0, $1, $2, $3, $4) {
|
|
11930
|
+
return Theme_theme($3, csegen_737(), Theme_cs({a1: 4, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined}), 8)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
11666
11931
|
}
|
|
11667
11932
|
|
|
11668
11933
|
/* Commands.User.Reflect.rightTitle : String */
|
|
@@ -11683,22 +11948,22 @@ function Commands_User_replicatex27($0, $1, $2, $3, $4, $5) {
|
|
|
11683
11948
|
/* Commands.User.Reflect.reflectOnSelf : Config => Octokit => Promise' () */
|
|
11684
11949
|
function Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
11685
11950
|
const $c = prs => $d => $e => {
|
|
11686
|
-
const $
|
|
11687
|
-
const $
|
|
11688
|
-
const $
|
|
11689
|
-
const $
|
|
11690
|
-
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $
|
|
11951
|
+
const $1c = myLogin => $1d => $1e => {
|
|
11952
|
+
const $3a = reviews => {
|
|
11953
|
+
const $3b = Prelude_Types_map_Functor_Maybe(csegen_740(), Data_List_headx27(Data_List_sortBy($44 => $45 => Prelude_Basics_on(csegen_710(), csegen_740(), $44, $45), reviews)));
|
|
11954
|
+
const $4e = Prelude_Interfaces_mapHom(csegen_662(), $54 => Prelude_Types_List_filterAppend({h: 0}, $58 => Prelude_EqOrd_x3dx3d_Eq_String($58.a5, myLogin), $54))(prs);
|
|
11955
|
+
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(csegen_662(), $6f => Prelude_Types_List_filterAppend({h: 0}, $73 => Prelude_Types_foldMap_Foldable_List(csegen_115(), $78 => Prelude_EqOrd_x3dx3d_Eq_String($78, myLogin), $73.a7), $6f))(prs));
|
|
11691
11956
|
};
|
|
11692
|
-
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($
|
|
11957
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(Commands_User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2e => $2f => Prelude_Basics_on(csegen_710(), csegen_734(), $2e, $2f), Commands_PullRequest_combined(prs))))), $3a, $1d, $1e);
|
|
11693
11958
|
};
|
|
11694
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11959
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_414()(), FFI_GitHub_getSelf($1), $11, $12), $1c, $d, $e);
|
|
11695
11960
|
};
|
|
11696
11961
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_listPartitionedPRs($0, $1, 4n, Commands_User_Reflect_prCount()), $c, $2, $3);
|
|
11697
11962
|
}
|
|
11698
11963
|
|
|
11699
11964
|
/* Commands.User.Me.printInfoOnSelf : Config => Octokit => Promise' () */
|
|
11700
11965
|
function Commands_User_Me_printInfoOnSelf($0, $1, $2, $3) {
|
|
11701
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29($a =>
|
|
11966
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29($a => Commands_User_Me_n__7778_2196_handleUnsetEmail($1, $0, $a), $10 => $11 => System_Git_userEmail($10, $11), $6, $7), gitEmail => $18 => $19 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getSelf($1), githubUser => $1f => $20 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($23 => $24 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_696(), $29 => $2a => FFI_GitHub_listMyTeams($1, $29, $2a), $23, $24), githubTeams => Util_renderIO($0, csegen_48()(), Commands_User_Me_print($0, gitEmail, githubUser, githubTeams)), $1f, $20), $18, $19), $2, $3);
|
|
11702
11967
|
}
|
|
11703
11968
|
|
|
11704
11969
|
/* Commands.User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Config =>
|
|
@@ -11709,7 +11974,7 @@ function Commands_User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
|
11709
11974
|
|
|
11710
11975
|
/* Commands.User.Me.print : Config -> Maybe String -> User -> List String -> Doc AnsiStyle */
|
|
11711
11976
|
function Commands_User_Me_print($0, $1, $2, $3) {
|
|
11712
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
11977
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7628_2044_email($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7628_2045_fullName($3, $2, $1, $0), a2: {a1: Commands_User_Me_n__7628_2047_login($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7628_2048_teams($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}}}}});
|
|
11713
11978
|
}
|
|
11714
11979
|
|
|
11715
11980
|
/* Commands.User.Reflect.prCount : Fin 101 */
|
|
@@ -11729,15 +11994,15 @@ const Commands_User_Reflect_intro = __lazy(function () {
|
|
|
11729
11994
|
|
|
11730
11995
|
/* Commands.User.Reflect.header : Nat -> Doc AnsiStyle */
|
|
11731
11996
|
function Commands_User_Reflect_header($0) {
|
|
11732
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1:
|
|
11997
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Commands_User_Reflect_n__6683_1075_ital($0, Commands_User_Reflect_leftTitle()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' '), a2: {a1: Commands_User_Reflect_n__6683_1075_ital($0, Commands_User_Reflect_rightTitle()), a2: {h: 0}}}}));
|
|
11733
11998
|
}
|
|
11734
11999
|
|
|
11735
12000
|
/* Commands.User.Reflect.graph : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Doc AnsiStyle */
|
|
11736
12001
|
function Commands_User_Reflect_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
11737
12002
|
const $7 = ($2+$3);
|
|
11738
12003
|
const $a = ($5+$4);
|
|
11739
|
-
const $d = Prelude_Types_foldr_Foldable_List(
|
|
11740
|
-
const $1c = Prelude_Types_foldr_Foldable_List(
|
|
12004
|
+
const $d = Prelude_Types_foldr_Foldable_List(csegen_301(), Prelude_Types_String_length(Commands_User_Reflect_leftTitle()), {a1: ($7+$1), a2: {a1: $a, a2: {h: 0}}});
|
|
12005
|
+
const $1c = Prelude_Types_foldr_Foldable_List(csegen_301(), Prelude_Types_String_length(Commands_User_Reflect_rightTitle()), {a1: $7, a2: {a1: $a, a2: {h: 0}}});
|
|
11741
12006
|
const $29 = (($d+$1c)+3n);
|
|
11742
12007
|
const $2e = ((Number($0)/2.0)-(Number($29)/2.0));
|
|
11743
12008
|
const $37 = (Prelude_Types_prim__integerToNat(BigInt(Math.trunc($2e)))+Prelude_Types_prim__integerToNat(($d-Prelude_Types_String_length(Commands_User_Reflect_leftTitle()))));
|
|
@@ -11747,40 +12012,40 @@ function Commands_User_Reflect_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
|
11747
12012
|
|
|
11748
12013
|
/* Commands.User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
11749
12014
|
function Commands_User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
11750
|
-
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(
|
|
12015
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Commands_User_Reflect_intro()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Requested Reviews:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('unreviewed:')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($2)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(csegen_747(), $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_747(), $7), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('closed:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($4)), a2: {h: 0}}})}, a2: {h: 0}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $d0 => $d0, {a1: '*review count (not PR count) of most recent ', a2: {a1: Data_Fin_show_Show_x28Finx20x24nx29(Commands_User_Reflect_reviewDetailsCount()), a2: {a1: ' PRs.', a2: {h: 0}}}}))), a2: {h: 0}}}}}}}}}});
|
|
11751
12016
|
}
|
|
11752
12017
|
|
|
11753
12018
|
/* Commands.User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Nat -> Doc AnsiStyle */
|
|
11754
12019
|
function Commands_User_Reflect_chart($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11755
|
-
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,
|
|
12020
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($7)), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_User_replicatex27($6, csegen_737(), csegen_757(), 4, $1, '\u{b7}'), Commands_User_replicatex27($6, csegen_758(), csegen_758(), 7, $3, '\u{25e6}')), Commands_User_replicatex27($6, csegen_759(), csegen_759(), 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_759(), csegen_759(), 5, $5, '>'), Commands_User_replicatex27($6, csegen_737(), csegen_757(), 4, $4, '\u{b7}')))));
|
|
11756
12021
|
}
|
|
11757
12022
|
|
|
11758
|
-
/* Theme.
|
|
11759
|
-
function
|
|
12023
|
+
/* Theme.4414:1332:maybeAnnotate */
|
|
12024
|
+
function Theme_n__4414_1332_maybeAnnotate($0, $1, $2, $3, $4) {
|
|
11760
12025
|
return Prelude_Types_maybe(() => $7 => $7, () => $9 => $a => Text_PrettyPrint_Prettyprinter_Doc_annotate($3($9), $a), $4);
|
|
11761
12026
|
}
|
|
11762
12027
|
|
|
11763
|
-
/* Theme.
|
|
11764
|
-
function
|
|
12028
|
+
/* Theme.4414:1331:go */
|
|
12029
|
+
function Theme_n__4414_1331_go($0, $1, $2, $3, $4, $5, $6) {
|
|
11765
12030
|
switch($3) {
|
|
11766
|
-
case 1: return $8 =>
|
|
11767
|
-
case 0: return $f =>
|
|
12031
|
+
case 1: return $8 => Theme_n__4414_1329_colorsAnn($0, $1, $2, $4, $8);
|
|
12032
|
+
case 0: return $f => Theme_n__4414_1329_colorsAnn($0, $1, $2, $5, $f);
|
|
11768
12033
|
}
|
|
11769
12034
|
}
|
|
11770
12035
|
|
|
11771
|
-
/* Theme.
|
|
11772
|
-
function
|
|
11773
|
-
return $2.
|
|
12036
|
+
/* Theme.4414:1330:configTheme */
|
|
12037
|
+
function Theme_n__4414_1330_configTheme($0, $1, $2) {
|
|
12038
|
+
return $2.a16;
|
|
11774
12039
|
}
|
|
11775
12040
|
|
|
11776
|
-
/* Theme.
|
|
11777
|
-
function
|
|
11778
|
-
return
|
|
12041
|
+
/* Theme.4414:1329:colorsAnn */
|
|
12042
|
+
function Theme_n__4414_1329_colorsAnn($0, $1, $2, $3, $4) {
|
|
12043
|
+
return Theme_n__4414_1332_maybeAnnotate($0, $1, $2, $c => Text_PrettyPrint_Prettyprinter_Render_Terminal_color($c), $3.a1)(Theme_n__4414_1332_maybeAnnotate($0, $1, $2, $17 => Text_PrettyPrint_Prettyprinter_Render_Terminal_bgColor($17), $3.a2)($4));
|
|
11779
12044
|
}
|
|
11780
12045
|
|
|
11781
12046
|
/* Theme.theme : Config => SemanticColor d l -> Doc AnsiStyle -> Doc AnsiStyle */
|
|
11782
12047
|
function Theme_theme($0, $1, $2, $3) {
|
|
11783
|
-
return
|
|
12048
|
+
return Theme_n__4414_1331_go($1, $2, $0, Theme_n__4414_1330_configTheme($1, $2, $0), $1, $2, $3);
|
|
11784
12049
|
}
|
|
11785
12050
|
|
|
11786
12051
|
/* Theme.cs : (colors : List Color) -> Either (length colors = 1) (length colors = 2) =>
|
|
@@ -11843,109 +12108,109 @@ function Commands_PullRequest_case__githubInferredBranchInfo_2987($0, $1, $2, $3
|
|
|
11843
12108
|
return $5 => {
|
|
11844
12109
|
switch($3.h) {
|
|
11845
12110
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(Commands_PullRequest_noInferredData(), $4, $5);
|
|
11846
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getIssue($0, $2.a2, $2.a3, $3.a1), issue => $16 => $17 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1a => $1b =>
|
|
12111
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getIssue($0, $2.a2, $2.a3, $3.a1), issue => $16 => $17 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1a => $1b => Commands_PullRequest_n__11133_2919_issueDescriptionPrefix($0, $1, $2, issue, $1a, $1b), $24 => $25 => $26 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: {h: 0}, a2: {a1: ($24+('\n\n'+Commands_PullRequest_n__11133_2921_relatedToPrefix($0, $1, $2, $3.a1)))}, a3: {a1: issue.a2}}, $25, $26), $16, $17), $4, $5);
|
|
11847
12112
|
}
|
|
11848
12113
|
};
|
|
11849
12114
|
}
|
|
11850
12115
|
|
|
11851
|
-
/* Commands.PullRequest.
|
|
11852
|
-
function
|
|
12116
|
+
/* Commands.PullRequest.10150:1999:userNotice */
|
|
12117
|
+
function Commands_PullRequest_n__10150_1999_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
11853
12118
|
switch($6.h) {
|
|
11854
12119
|
case 0: /* nothing */ {
|
|
11855
12120
|
switch($2.h) {
|
|
11856
12121
|
case 0: /* nil */ return 'no users';
|
|
11857
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1:
|
|
12122
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1: Commands_PullRequest_n__10150_1994_csv($0, $1, $2, $3, $4, $5, $2), a2: {h: 0}});
|
|
11858
12123
|
}
|
|
11859
12124
|
}
|
|
11860
|
-
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1f => $1f, {a1:
|
|
12125
|
+
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1f => $1f, {a1: Commands_PullRequest_n__10150_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: $2}), a2: {h: 0}});
|
|
11861
12126
|
}
|
|
11862
12127
|
}
|
|
11863
12128
|
|
|
11864
|
-
/* Commands.PullRequest.
|
|
11865
|
-
function
|
|
12129
|
+
/* Commands.PullRequest.10150:1998:teamNotice */
|
|
12130
|
+
function Commands_PullRequest_n__10150_1998_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
11866
12131
|
switch($6.h) {
|
|
11867
12132
|
case 0: /* nil */ return '';
|
|
11868
12133
|
case undefined: /* cons */ {
|
|
11869
12134
|
switch($6.a2.h) {
|
|
11870
|
-
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1: ' and team ', a2: {a1:
|
|
11871
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $23 => $23, {a1: ' and teams ', a2: {a1:
|
|
12135
|
+
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e => $e, {a1: ' and team ', a2: {a1: Commands_PullRequest_n__10150_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: {h: 0}}), a2: {h: 0}}});
|
|
12136
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $23 => $23, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10150_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
11872
12137
|
}
|
|
11873
12138
|
}
|
|
11874
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $36 => $36, {a1: ' and teams ', a2: {a1:
|
|
12139
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $36 => $36, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10150_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
11875
12140
|
}
|
|
11876
12141
|
}
|
|
11877
12142
|
|
|
11878
|
-
/* Commands.PullRequest.
|
|
11879
|
-
function
|
|
12143
|
+
/* Commands.PullRequest.11133:2921:relatedToPrefix */
|
|
12144
|
+
function Commands_PullRequest_n__11133_2921_relatedToPrefix($0, $1, $2, $3) {
|
|
11880
12145
|
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9 => $9, {a1: 'Related to #', a2: {a1: $3, a2: {h: 0}}});
|
|
11881
12146
|
}
|
|
11882
12147
|
|
|
11883
|
-
/* Commands.PullRequest.
|
|
11884
|
-
function
|
|
11885
|
-
return Util_Prompting_offerRetry(csegen_48()(), 'PR title cannot be an empty string.', Prelude_Types_foldMap_Foldable_List(csegen_86()(), $11 => $11, {a1: 'Did not find a non-empty value for a PR title. Will use \'', a2: {a1: 'New PR', a2: {a1: '\'', a2: {h: 0}}}}), () => 'New PR', $1b => $1c => Data_Promise_map_Functor_x28Promisex20x24ex29($1f =>
|
|
12148
|
+
/* Commands.PullRequest.11476:3260:prTitlePrompt */
|
|
12149
|
+
function Commands_PullRequest_n__11476_3260_prTitlePrompt($0, $1, $2, $3, $4, $5) {
|
|
12150
|
+
return Util_Prompting_offerRetry(csegen_48()(), 'PR title cannot be an empty string.', Prelude_Types_foldMap_Foldable_List(csegen_86()(), $11 => $11, {a1: 'Did not find a non-empty value for a PR title. Will use \'', a2: {a1: 'New PR', a2: {a1: '\'', a2: {h: 0}}}}), () => 'New PR', $1b => $1c => Data_Promise_map_Functor_x28Promisex20x24ex29($1f => Commands_PullRequest_n__11476_3259_notEmptyString($0, $1, $2, $3, $4, $1f), Util_Prompting_getLineEnterForDefault(csegen_48()(), 'What would you like the title to be?', $5), $1b, $1c));
|
|
11886
12151
|
}
|
|
11887
12152
|
|
|
11888
|
-
/* Commands.PullRequest.
|
|
11889
|
-
function
|
|
12153
|
+
/* Commands.PullRequest.10150:1997:prComment */
|
|
12154
|
+
function Commands_PullRequest_n__10150_1997_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11890
12155
|
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $c => $c, {a1: ':musical_note: Harmoniously requested review from ', a2: {a1: $6, a2: {a1: '.', a2: {h: 0}}}});
|
|
11891
12156
|
}
|
|
11892
12157
|
|
|
11893
|
-
/* Commands.PullRequest.
|
|
11894
|
-
function
|
|
12158
|
+
/* Commands.PullRequest.11476:3259:notEmptyString */
|
|
12159
|
+
function Commands_PullRequest_n__11476_3259_notEmptyString($0, $1, $2, $3, $4, $5) {
|
|
11895
12160
|
switch($5) {
|
|
11896
12161
|
case '': return {h: 0};
|
|
11897
12162
|
default: return {a1: $5};
|
|
11898
12163
|
}
|
|
11899
12164
|
}
|
|
11900
12165
|
|
|
11901
|
-
/* Commands.PullRequest.
|
|
11902
|
-
function
|
|
11903
|
-
return
|
|
12166
|
+
/* Commands.PullRequest.10150:1996:namePrComment */
|
|
12167
|
+
function Commands_PullRequest_n__10150_1996_namePrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
12168
|
+
return Commands_PullRequest_n__10150_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $14 => $14, {a1: $6.a2, a2: {h: 0}}));
|
|
11904
12169
|
}
|
|
11905
12170
|
|
|
11906
|
-
/* Commands.PullRequest.
|
|
11907
|
-
function
|
|
11908
|
-
return
|
|
12171
|
+
/* Commands.PullRequest.10150:1995:mentionPrComment */
|
|
12172
|
+
function Commands_PullRequest_n__10150_1995_mentionPrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
12173
|
+
return Commands_PullRequest_n__10150_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $14 => $14, {a1: '@', a2: {a1: $6, a2: {h: 0}}}));
|
|
11909
12174
|
}
|
|
11910
12175
|
|
|
11911
|
-
/* Commands.PullRequest.
|
|
11912
|
-
function
|
|
12176
|
+
/* Commands.PullRequest.11133:2920:issueNumber */
|
|
12177
|
+
function Commands_PullRequest_n__11133_2920_issueNumber($0, $1, $2) {
|
|
11913
12178
|
return Util_Github_parseGithubIssueNumber($1);
|
|
11914
12179
|
}
|
|
11915
12180
|
|
|
11916
|
-
/* Commands.PullRequest.
|
|
11917
|
-
function
|
|
12181
|
+
/* Commands.PullRequest.11133:2919:issueDescriptionPrefix */
|
|
12182
|
+
function Commands_PullRequest_n__11133_2919_issueDescriptionPrefix($0, $1, $2, $3, $4, $5) {
|
|
11918
12183
|
return Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $d => $d, {a1: '<!--\n## GitHub Issue\n', a2: {a1: $3.a2, a2: {a1: '\n--\n', a2: {a1: $3.a3, a2: {a1: '\n-->', a2: {h: 0}}}}}}), $4, $5);
|
|
11919
12184
|
}
|
|
11920
12185
|
|
|
11921
|
-
/* Commands.PullRequest.
|
|
11922
|
-
function
|
|
12186
|
+
/* Commands.PullRequest.11334:3113:into */
|
|
12187
|
+
function Commands_PullRequest_n__11334_3113_into($0, $1, $2, $3) {
|
|
11923
12188
|
switch($0.h) {
|
|
11924
12189
|
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $a => $a, {a1: $0.a1, a2: {a1: '...', a2: {h: 0}}});
|
|
11925
12190
|
case 0: /* nothing */ return '';
|
|
11926
12191
|
}
|
|
11927
12192
|
}
|
|
11928
12193
|
|
|
11929
|
-
/* Commands.PullRequest.
|
|
11930
|
-
function
|
|
12194
|
+
/* Commands.PullRequest.11476:3258:inlineDescriptionPrompt */
|
|
12195
|
+
function Commands_PullRequest_n__11476_3258_inlineDescriptionPrompt($0, $1, $2, $3, $4) {
|
|
11931
12196
|
return 'What would you like the description to be (two blank lines to finish)?';
|
|
11932
12197
|
}
|
|
11933
12198
|
|
|
11934
|
-
/* Commands.PullRequest.
|
|
11935
|
-
function
|
|
12199
|
+
/* Commands.PullRequest.11476:3257:getBaseBranch */
|
|
12200
|
+
function Commands_PullRequest_n__11476_3257_getBaseBranch($0, $1, $2, $3, $4, $5, $6) {
|
|
11936
12201
|
switch($2.h) {
|
|
11937
12202
|
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => $c => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($f => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $18 => $18, {a1: 'Will merge into ', a2: {a1: $2.a1, a2: {a1: '.', a2: {h: 0}}}})+'\n'), $f), $a, $b, $c), $26 => $27 => $28 => Data_Promise_pure_Applicative_x28Promisex20x24ex29($2.a1, $27, $28), $5, $6);
|
|
11938
|
-
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($31 => $32 => $33 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($36 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $3f => $3f, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $4.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $36), $31, $32, $33), $4e => $4f => $50 => Data_Promise_map_Functor_x28Promisex20x24ex29($53 => Util_Prompting_orIfEmpty({a1: $4.a5}, Data_String_trim($53)),
|
|
12203
|
+
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($31 => $32 => $33 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($36 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $3f => $3f, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $4.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $36), $31, $32, $33), $4e => $4f => $50 => Data_Promise_map_Functor_x28Promisex20x24ex29($53 => Util_Prompting_orIfEmpty({a1: $4.a5}, Data_String_trim($53)), csegen_455()(), $4f, $50), $5, $6);
|
|
11939
12204
|
}
|
|
11940
12205
|
}
|
|
11941
12206
|
|
|
11942
|
-
/* Commands.PullRequest.
|
|
11943
|
-
function
|
|
12207
|
+
/* Commands.PullRequest.9912:1725:forkedReviews */
|
|
12208
|
+
function Commands_PullRequest_n__9912_1725_forkedReviews($0, $1, $2, $3) {
|
|
11944
12209
|
return FFI_Concurrency_fork(csegen_48()(), ('reviews --json '+Prelude_Show_show_Show_Integer($3.a1)));
|
|
11945
12210
|
}
|
|
11946
12211
|
|
|
11947
|
-
/* Commands.PullRequest.
|
|
11948
|
-
function
|
|
12212
|
+
/* Commands.PullRequest.9335:1180:filterString */
|
|
12213
|
+
function Commands_PullRequest_n__9335_1180_filterString($0, $1, $2, $3, $4) {
|
|
11949
12214
|
switch($4.h) {
|
|
11950
12215
|
case 0: /* nothing */ return 'none';
|
|
11951
12216
|
case undefined: /* just */ {
|
|
@@ -11957,13 +12222,13 @@ function Commands_PullRequest_n__9316_1180_filterString($0, $1, $2, $3, $4) {
|
|
|
11957
12222
|
}
|
|
11958
12223
|
}
|
|
11959
12224
|
|
|
11960
|
-
/* Commands.PullRequest.
|
|
11961
|
-
function
|
|
12225
|
+
/* Commands.PullRequest.10150:1994:csv */
|
|
12226
|
+
function Commands_PullRequest_n__10150_1994_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
11962
12227
|
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)));
|
|
11963
12228
|
}
|
|
11964
12229
|
|
|
11965
|
-
/* Commands.PullRequest.
|
|
11966
|
-
function
|
|
12230
|
+
/* Commands.PullRequest.11476:3256:createPR */
|
|
12231
|
+
function Commands_PullRequest_n__11476_3256_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
11967
12232
|
const $38 = $39 => $3a => $3b => {
|
|
11968
12233
|
const $48 = $49 => $4a => $4b => {
|
|
11969
12234
|
switch($49) {
|
|
@@ -11993,11 +12258,11 @@ function Commands_PullRequest_n__11457_3256_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
11993
12258
|
let $132;
|
|
11994
12259
|
switch($133.h) {
|
|
11995
12260
|
case 0: /* nothing */ {
|
|
11996
|
-
$132 = Util_Prompting_inlineDescription(csegen_48()(),
|
|
12261
|
+
$132 = Util_Prompting_inlineDescription(csegen_48()(), Commands_PullRequest_n__11476_3258_inlineDescriptionPrompt($0, $1, $2, $3, $4), $108);
|
|
11997
12262
|
break;
|
|
11998
12263
|
}
|
|
11999
12264
|
case undefined: /* just */ {
|
|
12000
|
-
$132 = $142 => $143 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
12265
|
+
$132 = $142 => $143 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_783(), Util_Prompting_editorDescription(csegen_48()(), $133.a1, {a1: templateFilePath}, $108), $142, $143);
|
|
12001
12266
|
break;
|
|
12002
12267
|
}
|
|
12003
12268
|
}
|
|
@@ -12005,12 +12270,12 @@ function Commands_PullRequest_n__11457_3256_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
12005
12270
|
};
|
|
12006
12271
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($128 => $129 => Util_relativeToRoot('.github/PULL_REQUEST_TEMPLATE.md', $128, $129), $12e, $124, $125);
|
|
12007
12272
|
};
|
|
12008
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($111 => $112 => Data_Promise_map_Functor_x28Promisex20x24ex29($115 => ($103+$115),
|
|
12273
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($111 => $112 => Data_Promise_map_Functor_x28Promisex20x24ex29($115 => ($103+$115), Commands_PullRequest_n__11476_3260_prTitlePrompt($0, $1, $2, $3, $4, inferredBranchInfo.a3), $111, $112), $123, $10d, $10e);
|
|
12009
12274
|
};
|
|
12010
12275
|
};
|
|
12011
12276
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_getInferredBranchInfo($4, $0, $1), $102, $fa, $fb);
|
|
12012
12277
|
};
|
|
12013
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ef => $f0 =>
|
|
12278
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ef => $f0 => Commands_PullRequest_n__11476_3257_getBaseBranch($0, $1, $2, $3, $4, $ef, $f0), $f9, $eb, $ec);
|
|
12014
12279
|
};
|
|
12015
12280
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ce => $cf => $d0 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d3 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $dc => $dc, {a1: 'Creating a new PR for the current branch (', a2: {a1: $1, a2: {a1: ').', a2: {h: 0}}}})+'\n'), $d3), $ce, $cf, $d0), $e9, $ca, $cb);
|
|
12016
12281
|
};
|
|
@@ -12019,32 +12284,32 @@ function Commands_PullRequest_n__11457_3256_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
12019
12284
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $5b, $5c);
|
|
12020
12285
|
}
|
|
12021
12286
|
};
|
|
12022
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4f => $50 =>
|
|
12287
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4f => $50 => Commands_PullRequest_n__11476_3254_continueGivenStagedChanges($0, $1, $2, $3, $4, $4f, $50), $59, $4a, $4b);
|
|
12023
12288
|
}
|
|
12024
12289
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $4a, $4b);
|
|
12025
12290
|
}
|
|
12026
12291
|
};
|
|
12027
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f =>
|
|
12292
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f => Commands_PullRequest_n__11476_3255_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $3e, $3f), $48, $3a, $3b);
|
|
12028
12293
|
};
|
|
12029
12294
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => $a => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($d => $e => System_Git_remoteTrackingBranch($d, $e), $13 => Util_whenNothing(csegen_40()(), $13, $1a => $1b => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => $1f => $20 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($23 => Prelude_IO_prim__putStr('Creating a new remote branch...\n', $23), $1e, $1f, $20), $2b => $2c => $2d => System_Git_pushNewBranch($4.a4, $1, $2c, $2d), $1a, $1b)), $9, $a), $38, $5, $6);
|
|
12030
12295
|
}
|
|
12031
12296
|
|
|
12032
|
-
/* Commands.PullRequest.
|
|
12033
|
-
function
|
|
12297
|
+
/* Commands.PullRequest.11476:3255:continueGivenUncommittedChanges */
|
|
12298
|
+
function Commands_PullRequest_n__11476_3255_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
12034
12299
|
const $e = $f => $10 => $11 => {
|
|
12035
12300
|
switch($f.h) {
|
|
12036
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => $17 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1a => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1a), $15, $16, $17), $22 => $23 => $24 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($27 => $28 => $29 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2c => Prelude_IO_prim__putStr(($f.a1+'\n'), $2c), $27, $28, $29),
|
|
12301
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => $17 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1a => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1a), $15, $16, $17), $22 => $23 => $24 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($27 => $28 => $29 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2c => Prelude_IO_prim__putStr(($f.a1+'\n'), $2c), $27, $28, $29), csegen_790(), $23, $24), $10, $11);
|
|
12037
12302
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $10, $11);
|
|
12038
12303
|
}
|
|
12039
12304
|
};
|
|
12040
12305
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => $a => System_Git_uncommittedChanges($9, $a), $e, $5, $6);
|
|
12041
12306
|
}
|
|
12042
12307
|
|
|
12043
|
-
/* Commands.PullRequest.
|
|
12044
|
-
function
|
|
12308
|
+
/* Commands.PullRequest.11476:3254:continueGivenStagedChanges */
|
|
12309
|
+
function Commands_PullRequest_n__11476_3254_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
12045
12310
|
const $e = $f => $10 => $11 => {
|
|
12046
12311
|
switch($f.h) {
|
|
12047
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => $17 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1a => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1a), $15, $16, $17), $22 => $23 => $24 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($27 => $28 => $29 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2c => Prelude_IO_prim__putStr(($f.a1+'\n'), $2c), $27, $28, $29),
|
|
12312
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => $17 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1a => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1a), $15, $16, $17), $22 => $23 => $24 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($27 => $28 => $29 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2c => Prelude_IO_prim__putStr(($f.a1+'\n'), $2c), $27, $28, $29), csegen_790(), $23, $24), $10, $11);
|
|
12048
12313
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $10, $11);
|
|
12049
12314
|
}
|
|
12050
12315
|
};
|
|
@@ -12053,12 +12318,12 @@ function Commands_PullRequest_n__11457_3254_continueGivenStagedChanges($0, $1, $
|
|
|
12053
12318
|
|
|
12054
12319
|
/* Commands.PullRequest.(.allReviewers) : PRHistory -> (List String, List String) */
|
|
12055
12320
|
function Commands_PullRequest_rf__allReviewers($0) {
|
|
12056
|
-
return Prelude_Interfaces_mapHom(
|
|
12321
|
+
return Prelude_Interfaces_mapHom(csegen_662(), $6 => Prelude_Types_join_Monad_List(Prelude_Types_List_mapAppend({h: 0}, $c => $c.a7, $6)))($0);
|
|
12057
12322
|
}
|
|
12058
12323
|
|
|
12059
12324
|
/* Commands.PullRequest.reviewsForPrs : Config => Octokit => List PullRequest -> Promise' (List Review) */
|
|
12060
12325
|
function Commands_PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
|
|
12061
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_41()(),
|
|
12326
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_41()(), csegen_698(), Prelude_Types_traverse_Traversable_List(csegen_40()(), $13 => Commands_PullRequest_n__9912_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_234(), $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);
|
|
12062
12327
|
}
|
|
12063
12328
|
|
|
12064
12329
|
/* Commands.PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise' (List Review) */
|
|
@@ -12088,9 +12353,9 @@ function Commands_PullRequest_reviewsByUser($0, $1, $2, $3) {
|
|
|
12088
12353
|
List PullRequest -> Promise' (SortedMap String (List Review)) */
|
|
12089
12354
|
function Commands_PullRequest_reviewsByEachUser($0, $1, $2, $3, $4) {
|
|
12090
12355
|
const $f = reviews => {
|
|
12091
|
-
const $10 = Data_List_groupAllWith(
|
|
12356
|
+
const $10 = Data_List_groupAllWith(csegen_370(), $15 => $15.a2, reviews);
|
|
12092
12357
|
const $18 = Prelude_Types_List_mapAppend({h: 0}, rs => ({a1: rs.a1.a2, a2: rs}), $10);
|
|
12093
|
-
return $21 => $22 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Data_SortedMap_fromList(
|
|
12358
|
+
return $21 => $22 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Data_SortedMap_fromList(csegen_370(), $18), $21, $22);
|
|
12094
12359
|
};
|
|
12095
12360
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Commands_PullRequest_reviewsForPrs($0, $1, $2, $7, $8), $f, $3, $4);
|
|
12096
12361
|
}
|
|
@@ -12104,12 +12369,12 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12104
12369
|
let $38;
|
|
12105
12370
|
switch($0.a7) {
|
|
12106
12371
|
case 1: {
|
|
12107
|
-
const $3b = Commands_Reviewer_chooseReviewers(
|
|
12372
|
+
const $3b = Commands_Reviewer_chooseReviewers(csegen_370(), $14.a2, $14.a1, teamMembers, {h: 0}, $2.a5);
|
|
12108
12373
|
$38 = Commands_Reviewer_randomReviewer(csegen_48()(), $3b);
|
|
12109
12374
|
break;
|
|
12110
12375
|
}
|
|
12111
12376
|
case 0: {
|
|
12112
|
-
$38 =
|
|
12377
|
+
$38 = csegen_459()();
|
|
12113
12378
|
break;
|
|
12114
12379
|
}
|
|
12115
12380
|
}
|
|
@@ -12145,8 +12410,8 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12145
12410
|
return $7f => {
|
|
12146
12411
|
switch($0.a8) {
|
|
12147
12412
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $7d, $7f);
|
|
12148
|
-
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
12149
|
-
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,
|
|
12413
|
+
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, Commands_PullRequest_n__10150_1995_mentionPrComment($1, $5, $4, $3, $2, $0, chosenUser.a1), $7d, $7f);
|
|
12414
|
+
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getUser($1, chosenUser.a1), user => $9f => $a0 => FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, Commands_PullRequest_n__10150_1996_namePrComment($1, $5, $4, $3, $2, $0, user), $9f, $a0), $7d, $7f);
|
|
12150
12415
|
}
|
|
12151
12416
|
};
|
|
12152
12417
|
}
|
|
@@ -12170,11 +12435,11 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12170
12435
|
let $bf;
|
|
12171
12436
|
switch($c0) {
|
|
12172
12437
|
case 1: {
|
|
12173
|
-
$bf = () => $c5 => $c6 => $c7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($ca => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Could not pick a user from the given Team ')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('(perhaps the only option was the author of the pull request?).'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e8 => $e8, {a1: 'Requested review from ', a2: {a1:
|
|
12438
|
+
$bf = () => $c5 => $c6 => $c7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($ca => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Could not pick a user from the given Team ')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('(perhaps the only option was the author of the pull request?).'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $e8 => $e8, {a1: 'Requested review from ', a2: {a1: Commands_PullRequest_n__10150_1998_teamNotice($1, $5, $4, $3, $2, $0, $53), a2: {a1: ' for the open PR ', a2: {h: 0}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $101 => $101, {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}}}}))+'\n'), $ca), $c5, $c6, $c7);
|
|
12174
12439
|
break;
|
|
12175
12440
|
}
|
|
12176
12441
|
case 0: {
|
|
12177
|
-
$bf = () => $112 => $113 => $114 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($117 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $128 => $128, {a1: 'Requested review from ', a2: {a1:
|
|
12442
|
+
$bf = () => $112 => $113 => $114 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($117 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $128 => $128, {a1: 'Requested review from ', a2: {a1: Commands_PullRequest_n__10150_1999_userNotice($1, $5, $4, $3, $2, $0, chosenUser), a2: {a1: Commands_PullRequest_n__10150_1998_teamNotice($1, $5, $4, $3, $2, $0, $53), a2: {a1: ' for the open PR ', a2: {h: 0}}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $14b => $14b, {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}}))+'\n'), $117), $112, $113, $114);
|
|
12178
12443
|
break;
|
|
12179
12444
|
}
|
|
12180
12445
|
}
|
|
@@ -12192,7 +12457,7 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12192
12457
|
|
|
12193
12458
|
/* Commands.PullRequest.prCreationUrl : String -> String -> String -> Maybe String -> String */
|
|
12194
12459
|
function Commands_PullRequest_prCreationUrl($0, $1, $2, $3) {
|
|
12195
|
-
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9 => $9, {a1: 'https://github.com/', a2: {a1: $0, a2: {a1: '/', a2: {a1: $1, a2: {a1: '/compare/', a2: {a1:
|
|
12460
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9 => $9, {a1: 'https://github.com/', a2: {a1: $0, a2: {a1: '/', a2: {a1: $1, a2: {a1: '/compare/', a2: {a1: Commands_PullRequest_n__11334_3113_into($3, $2, $1, $0), a2: {a1: $2, a2: {a1: '?expand=1', a2: {h: 0}}}}}}}}});
|
|
12196
12461
|
}
|
|
12197
12462
|
|
|
12198
12463
|
/* Commands.PullRequest.partition' : Pagination _ _ _ () -> Promise' PRHistory */
|
|
@@ -12229,7 +12494,7 @@ function Commands_PullRequest_listOpenPRs($0, $1, $2, $3) {
|
|
|
12229
12494
|
|
|
12230
12495
|
/* Commands.PullRequest.list' : Maybe GitHubPRState -> Pagination _ _ _ () -> Promise' (List PullRequest) */
|
|
12231
12496
|
function Commands_PullRequest_listx27($0, $1, $2, $3) {
|
|
12232
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_41()(), $b => $c => $d => FFI_Concurrency_promiseAll({a1: acc => elem => func => init => input => Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a2: elem => acc => func => init => input => Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a3: elem => $1b => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1b), a4: elem => acc => m => $1f => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1f, funcM, init, input), a5: elem => $26 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($26), a6: a => m => $2a => f => $2b => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($2a, f, $2b)}, $b, $c, $d), Data_Pagination_traversex27(csegen_40()(), $39 => $3a => $3b => $3c => Commands_PullRequest_forkedPRs($0, $39, $3a, $3b, $3c), $1)), prJsons => $45 => $46 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($49 => Data_Promise_either(Prelude_Types_traverse_Traversable_List(csegen_234(),
|
|
12497
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_41()(), $b => $c => $d => FFI_Concurrency_promiseAll({a1: acc => elem => func => init => input => Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a2: elem => acc => func => init => input => Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a3: elem => $1b => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1b), a4: elem => acc => m => $1f => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1f, funcM, init, input), a5: elem => $26 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($26), a6: a => m => $2a => f => $2b => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($2a, f, $2b)}, $b, $c, $d), Data_Pagination_traversex27(csegen_40()(), $39 => $3a => $3b => $3c => Commands_PullRequest_forkedPRs($0, $39, $3a, $3b, $3c), $1)), prJsons => $45 => $46 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($49 => Data_Promise_either(Prelude_Types_traverse_Traversable_List(csegen_234(), csegen_314(), prJsons), $49), pulls => $54 => $55 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_join_Monad_List(pulls), $54, $55), $45, $46), $2, $3);
|
|
12233
12498
|
}
|
|
12234
12499
|
|
|
12235
12500
|
/* Commands.PullRequest.identifyOrCreatePR : Config => Octokit => {default False _ : Bool} ->
|
|
@@ -12249,7 +12514,7 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
12249
12514
|
return $20 => {
|
|
12250
12515
|
const $29 = $2a => $2b => $2c => {
|
|
12251
12516
|
switch($2a) {
|
|
12252
|
-
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($30 => ({h: 0 /* Actual */, a1: 1, a2: $30}), $34 => $35 =>
|
|
12517
|
+
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($30 => ({h: 0 /* Actual */, a1: 1, a2: $30}), $34 => $35 => Commands_PullRequest_n__11476_3256_createPR($1, $4, $3, $2, $0, $34, $35), $2b, $2c);
|
|
12253
12518
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1: Commands_PullRequest_prCreationUrl($0.a2, $0.a3, $4, $3)}, $2b, $2c);
|
|
12254
12519
|
}
|
|
12255
12520
|
};
|
|
@@ -12264,7 +12529,7 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
12264
12529
|
|
|
12265
12530
|
/* Commands.PullRequest.githubInferredBranchInfo : Config => Octokit => String -> Promise' BranchInferredData */
|
|
12266
12531
|
function Commands_PullRequest_githubInferredBranchInfo($0, $1, $2) {
|
|
12267
|
-
return $3 => Commands_PullRequest_case__githubInferredBranchInfo_2987($1, $2, $0,
|
|
12532
|
+
return $3 => Commands_PullRequest_case__githubInferredBranchInfo_2987($1, $2, $0, Commands_PullRequest_n__11133_2920_issueNumber($1, $2, $0), $3);
|
|
12268
12533
|
}
|
|
12269
12534
|
|
|
12270
12535
|
/* Commands.PullRequest.getInferredBranchInfo : Config => Octokit => String -> Promise' BranchInferredData */
|
|
@@ -12278,7 +12543,7 @@ function Commands_PullRequest_getInferredBranchInfo($0, $1, $2) {
|
|
|
12278
12543
|
|
|
12279
12544
|
/* Commands.PullRequest.forkedPRs : Maybe GitHubPRState -> Nat -> Nat -> Nat -> () -> Promise' Future */
|
|
12280
12545
|
function Commands_PullRequest_forkedPRs($0, $1, $2, $3, $4) {
|
|
12281
|
-
return FFI_Concurrency_fork(csegen_48()(), Prelude_Types_foldMap_Foldable_List(csegen_86()(), $f => $f, {a1: 'pulls --json ', a2: {a1:
|
|
12546
|
+
return FFI_Concurrency_fork(csegen_48()(), Prelude_Types_foldMap_Foldable_List(csegen_86()(), $f => $f, {a1: 'pulls --json ', a2: {a1: Commands_PullRequest_n__9335_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}}}}}}}));
|
|
12282
12547
|
}
|
|
12283
12548
|
|
|
12284
12549
|
/* Commands.PullRequest.empty : PRHistory */
|
|
@@ -12405,7 +12670,7 @@ function Util_Github_n__2629_823_go($0, $1) {
|
|
|
12405
12670
|
|
|
12406
12671
|
/* Util.Github.parseGithubIssueNumber : String -> Maybe String */
|
|
12407
12672
|
function Util_Github_parseGithubIssueNumber($0) {
|
|
12408
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
12673
|
+
return Prelude_Types_map_Functor_Maybe(csegen_829(), 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))));
|
|
12409
12674
|
}
|
|
12410
12675
|
|
|
12411
12676
|
/* Util.Jira.2629:820:startOver */
|
|
@@ -12465,7 +12730,7 @@ function Util_Jira_n__2629_818_go($0, $1) {
|
|
|
12465
12730
|
|
|
12466
12731
|
/* Util.Jira.parseJiraSlug : String -> Maybe String */
|
|
12467
12732
|
function Util_Jira_parseJiraSlug($0) {
|
|
12468
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
12733
|
+
return Prelude_Types_map_Functor_Maybe(csegen_829(), Util_Jira_n__2629_819_guardSuccess(Prelude_Types_foldl_Foldable_List($9 => $a => Util_Jira_n__2629_818_go($9, $a), Util_Jira_n__2629_820_startOver(), Prelude_Types_fastUnpack($0))));
|
|
12469
12734
|
}
|
|
12470
12735
|
|
|
12471
12736
|
/* Data.Pagination.with block in metaPages' */
|
|
@@ -12697,7 +12962,7 @@ function Data_ReviewScore_n__3521_1043_weightReviews($0, $1, $2, $3, $4, $5) {
|
|
|
12697
12962
|
|
|
12698
12963
|
/* Data.ReviewScore.3521:1042:sort' */
|
|
12699
12964
|
function Data_ReviewScore_n__3521_1042_sortx27($0, $1, $2, $3, $4) {
|
|
12700
|
-
return Data_List_sortBy($7 => $8 => Prelude_Basics_on(
|
|
12965
|
+
return Data_List_sortBy($7 => $8 => Prelude_Basics_on(csegen_296(), $d => $d.a3, $7, $8), $4);
|
|
12701
12966
|
}
|
|
12702
12967
|
|
|
12703
12968
|
/* Data.ReviewScore.3548:1196:calc */
|
|
@@ -12734,13 +12999,13 @@ function Data_List_DeleteBy_deleteByx27($0, $1, $2) {
|
|
|
12734
12999
|
}
|
|
12735
13000
|
}
|
|
12736
13001
|
|
|
12737
|
-
/* Commands.Quick.
|
|
12738
|
-
function
|
|
13002
|
+
/* Commands.Quick.5936:5675:issuePrompt */
|
|
13003
|
+
function Commands_Quick_n__5936_5675_issuePrompt($0, $1, $2) {
|
|
12739
13004
|
return 'What would you like the issue description to be (two blank lines to finish)?';
|
|
12740
13005
|
}
|
|
12741
13006
|
|
|
12742
|
-
/* Commands.Quick.
|
|
12743
|
-
function
|
|
13007
|
+
/* Commands.Quick.6102:5840:branchPrefix */
|
|
13008
|
+
function Commands_Quick_n__6102_5840_branchPrefix($0, $1, $2, $3) {
|
|
12744
13009
|
return Data_String_toLower(Commands_Quick_show_Show_IssueCategory($2));
|
|
12745
13010
|
}
|
|
12746
13011
|
|
|
@@ -12770,10 +13035,10 @@ function Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5) {
|
|
|
12770
13035
|
}
|
|
12771
13036
|
}
|
|
12772
13037
|
const $21 = issue => {
|
|
12773
|
-
const $22 = Prelude_Types_foldMap_Foldable_List(csegen_86()(), $28 => $28, {a1:
|
|
13038
|
+
const $22 = Prelude_Types_foldMap_Foldable_List(csegen_86()(), $28 => $28, {a1: Commands_Quick_n__6102_5840_branchPrefix($1, $3, $2, $0), a2: {a1: '/', a2: {a1: Prelude_Show_show_Show_Integer(issue.a1), a2: {a1: '/', a2: {h: 0}}}}});
|
|
12774
13039
|
const $3a = Commands_Quick_branchNameSuggestion(issue.a2);
|
|
12775
13040
|
const $3e = ($22+$3a);
|
|
12776
|
-
return $41 => $42 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($45 => $46 => $47 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($4a => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $53 => $53, {a1: 'What would you like the branch to be named? ', a2: {a1: Util_Prompting_enterForDefaultStr($3e), a2: {h: 0}}})+'\n'), $4a), $45, $46, $47), $61 => $62 => $63 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($66 => $67 => $68 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($6b => Prelude_IO_prim__putStr($22, $6b), $66, $67, $68), $73 => $74 => $75 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($78 => $79 => Data_Promise_map_Functor_x28Promisex20x24ex29($7c => Util_Prompting_orIfEmpty({a1: $3a}, Data_String_trim($7c)),
|
|
13041
|
+
return $41 => $42 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($45 => $46 => $47 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($4a => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_86()(), $53 => $53, {a1: 'What would you like the branch to be named? ', a2: {a1: Util_Prompting_enterForDefaultStr($3e), a2: {h: 0}}})+'\n'), $4a), $45, $46, $47), $61 => $62 => $63 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($66 => $67 => $68 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($6b => Prelude_IO_prim__putStr($22, $6b), $66, $67, $68), $73 => $74 => $75 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($78 => $79 => Data_Promise_map_Functor_x28Promisex20x24ex29($7c => Util_Prompting_orIfEmpty({a1: $3a}, Data_String_trim($7c)), csegen_455()(), $78, $79), branchSlug => System_Git_checkoutBranch(1, Prelude_Types_foldMap_Foldable_List(csegen_86()(), $91 => $91, {a1: $22, a2: {a1: branchSlug, a2: {h: 0}}})), $74, $75), $62, $63), $41, $42);
|
|
12777
13042
|
};
|
|
12778
13043
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7, $21, $4, $5);
|
|
12779
13044
|
}
|
|
@@ -12790,7 +13055,7 @@ function Commands_Quick_createNewIssue($0, $1, $2, $3, $4) {
|
|
|
12790
13055
|
const $20 = $21 => $22 => {
|
|
12791
13056
|
switch($2.h) {
|
|
12792
13057
|
case undefined: /* just */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29($2.a1, $21, $22);
|
|
12793
|
-
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2a => $2b => $2c => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2f => Prelude_IO_prim__putStr('What would you like the issue title to be?\n', $2f), $2a, $2b, $2c), $37 => $38 => $39 => Data_Promise_map_Functor_x28Promisex20x24ex29($3c => Data_String_trim($3c),
|
|
13058
|
+
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2a => $2b => $2c => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2f => Prelude_IO_prim__putStr('What would you like the issue title to be?\n', $2f), $2a, $2b, $2c), $37 => $38 => $39 => Data_Promise_map_Functor_x28Promisex20x24ex29($3c => Data_String_trim($3c), csegen_455()(), $38, $39), $21, $22);
|
|
12794
13059
|
}
|
|
12795
13060
|
};
|
|
12796
13061
|
const $46 = issueTitle => $47 => $48 => {
|
|
@@ -12798,11 +13063,11 @@ function Commands_Quick_createNewIssue($0, $1, $2, $3, $4) {
|
|
|
12798
13063
|
let $4a;
|
|
12799
13064
|
switch($4b.h) {
|
|
12800
13065
|
case 0: /* nothing */ {
|
|
12801
|
-
$4a = Util_Prompting_inlineDescription(csegen_48()(),
|
|
13066
|
+
$4a = Util_Prompting_inlineDescription(csegen_48()(), Commands_Quick_n__5936_5675_issuePrompt($1, $2, $0), '');
|
|
12802
13067
|
break;
|
|
12803
13068
|
}
|
|
12804
13069
|
case undefined: /* just */ {
|
|
12805
|
-
$4a = $58 => $59 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
13070
|
+
$4a = $58 => $59 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_783(), Util_Prompting_editorDescription(csegen_48()(), $4b.a1, {h: 0}, ''), $58, $59);
|
|
12806
13071
|
break;
|
|
12807
13072
|
}
|
|
12808
13073
|
}
|
|
@@ -12810,7 +13075,7 @@ function Commands_Quick_createNewIssue($0, $1, $2, $3, $4) {
|
|
|
12810
13075
|
};
|
|
12811
13076
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($20, $46, $1d, $1e);
|
|
12812
13077
|
};
|
|
12813
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
13078
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_453()(), $1b, $15, $16);
|
|
12814
13079
|
};
|
|
12815
13080
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => $9 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($c => Prelude_IO_prim__putStr('Creating a new GitHub issue and branch.\n', $c), $7, $8, $9), $13, $3, $4);
|
|
12816
13081
|
}
|
|
@@ -12834,36 +13099,36 @@ function Commands_Label_addLabels($0, $1, $2, $3, $4, $5) {
|
|
|
12834
13099
|
return FFI_GitHub_addPullLabels($1, $0.a2, $0.a3, $2.a1, $3, $4, $5);
|
|
12835
13100
|
}
|
|
12836
13101
|
|
|
12837
|
-
/* Commands.Graph.
|
|
12838
|
-
function
|
|
12839
|
-
return Theme_theme($7,
|
|
13102
|
+
/* Commands.Graph.7733:7016:pendingDot */
|
|
13103
|
+
function Commands_Graph_n__7733_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13104
|
+
return Theme_theme($7, csegen_759(), csegen_757(), 6)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
|
|
12840
13105
|
}
|
|
12841
13106
|
|
|
12842
|
-
/* Commands.Graph.
|
|
12843
|
-
function
|
|
13107
|
+
/* Commands.Graph.7733:7015:note */
|
|
13108
|
+
function Commands_Graph_n__7733_7015_note($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
12844
13109
|
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);
|
|
12845
13110
|
}
|
|
12846
13111
|
|
|
12847
|
-
/* Commands.Graph.
|
|
12848
|
-
function
|
|
12849
|
-
return Theme_theme($7,
|
|
13112
|
+
/* Commands.Graph.7733:7014:missedDot */
|
|
13113
|
+
function Commands_Graph_n__7733_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13114
|
+
return Theme_theme($7, csegen_758(), csegen_758(), 7)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
|
|
12850
13115
|
}
|
|
12851
13116
|
|
|
12852
|
-
/* Commands.Graph.
|
|
12853
|
-
function
|
|
13117
|
+
/* Commands.Graph.7733:7013:maxValue */
|
|
13118
|
+
function Commands_Graph_n__7733_7013_maxValue($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
12854
13119
|
switch($8.h) {
|
|
12855
13120
|
case 0: /* nil */ return 0n;
|
|
12856
|
-
case undefined: /* cons */ return Prelude_Types_max_Ord_Nat($8.a1.a2,
|
|
13121
|
+
case undefined: /* cons */ return Prelude_Types_max_Ord_Nat($8.a1.a2, Commands_Graph_n__7733_7013_maxValue($0, $1, $2, $3, $4, $5, $6, $7, $8.a2));
|
|
12857
13122
|
}
|
|
12858
13123
|
}
|
|
12859
13124
|
|
|
12860
|
-
/* Commands.Graph.
|
|
12861
|
-
function
|
|
13125
|
+
/* Commands.Graph.7330:6605:link */
|
|
13126
|
+
function Commands_Graph_n__7330_6605_link($0, $1, $2, $3) {
|
|
12862
13127
|
return Prelude_Types_foldMap_Foldable_List(csegen_86()(), $9 => $9, {a1: 'https://github.com/', a2: {a1: $1, a2: {a1: '/', a2: {a1: $0, a2: {a1: '/pulls?q=is%3Apr+is%3Aopen+sort%3Acreated-asc', a2: {h: 0}}}}}});
|
|
12863
13128
|
}
|
|
12864
13129
|
|
|
12865
|
-
/* Commands.Graph.
|
|
12866
|
-
function
|
|
13130
|
+
/* Commands.Graph.7733:7012:header */
|
|
13131
|
+
function Commands_Graph_n__7733_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
12867
13132
|
let $3b;
|
|
12868
13133
|
switch(Prelude_Types_null_Foldable_Maybe($3)) {
|
|
12869
13134
|
case 1: {
|
|
@@ -12871,58 +13136,58 @@ function Commands_Graph_n__7727_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12871
13136
|
break;
|
|
12872
13137
|
}
|
|
12873
13138
|
case 0: {
|
|
12874
|
-
$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(
|
|
13139
|
+
$3b = {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('1x the number of completed reviews'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Commands_Graph_n__7733_7010_completedBox($0, $1, $2, $3, $4, $5, $6, $7)))};
|
|
12875
13140
|
break;
|
|
12876
13141
|
}
|
|
12877
13142
|
}
|
|
12878
|
-
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
12879
|
-
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(
|
|
12880
|
-
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(
|
|
13143
|
+
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__7733_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__7733_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7))))}, a2: csegen_844()}};
|
|
13144
|
+
const $27 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('1x the number of closed PRs with unanswered review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Commands_Graph_n__7733_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $3a};
|
|
13145
|
+
const $14 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('4x the number of open review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Commands_Graph_n__7733_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $27};
|
|
12881
13146
|
const $f = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $14};
|
|
12882
13147
|
const $b = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: $f};
|
|
12883
13148
|
const $9 = Data_List_catMaybes($b);
|
|
12884
13149
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep($9);
|
|
12885
13150
|
}
|
|
12886
13151
|
|
|
12887
|
-
/* Commands.Graph.
|
|
12888
|
-
function
|
|
12889
|
-
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:
|
|
13152
|
+
/* Commands.Graph.7330:6604:header */
|
|
13153
|
+
function Commands_Graph_n__7330_6604_header($0, $1, $2, $3) {
|
|
13154
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Open Pull Requests grouped by month created.')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: csegen_844()}}}));
|
|
12890
13155
|
}
|
|
12891
13156
|
|
|
12892
|
-
/* Commands.Graph.
|
|
12893
|
-
function
|
|
13157
|
+
/* Commands.Graph.7330:6603:graphable */
|
|
13158
|
+
function Commands_Graph_n__7330_6603_graphable($0, $1, $2, $3, $4) {
|
|
12894
13159
|
return {a1: $4.a1.a3, a2: (Prelude_Types_List_lengthTR($4.a2)+1n)};
|
|
12895
13160
|
}
|
|
12896
13161
|
|
|
12897
|
-
/* Commands.Graph.
|
|
12898
|
-
function
|
|
12899
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
13162
|
+
/* Commands.Graph.7733:7011:footer */
|
|
13163
|
+
function Commands_Graph_n__7733_7011_footer($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13164
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_Graph_n__7733_7015_note($0, $1, $2, $3, $4, $5, $6, $7, Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_86()(), $1f => $1f, {a1: 'It is a strongly held opinion of Harmony that the above graph is not a measure of each developers\' productivity.\nIt is a proxy for each developers\' existing PR review workload that may help to understand how Harmony is\nchoosing reviewers or similarly help one developer decide which other developers have capacity to help review\ntheir work.', a2: {h: 0}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}});
|
|
12900
13165
|
}
|
|
12901
13166
|
|
|
12902
|
-
/* Commands.Graph.
|
|
12903
|
-
function
|
|
13167
|
+
/* Commands.Graph.6763:6183:countInParens */
|
|
13168
|
+
function Commands_Graph_n__6763_6183_countInParens($0, $1, $2, $3, $4) {
|
|
12904
13169
|
switch(Prelude_Types_x3e_Ord_Nat($4.a2, 4n)) {
|
|
12905
13170
|
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)));
|
|
12906
13171
|
case 0: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('');
|
|
12907
13172
|
}
|
|
12908
13173
|
}
|
|
12909
13174
|
|
|
12910
|
-
/* Commands.Graph.
|
|
12911
|
-
function
|
|
12912
|
-
return Theme_theme($7,
|
|
13175
|
+
/* Commands.Graph.7733:7010:completedBox */
|
|
13176
|
+
function Commands_Graph_n__7733_7010_completedBox($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
13177
|
+
return Theme_theme($7, csegen_737(), csegen_737(), 3)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25aa}'));
|
|
12913
13178
|
}
|
|
12914
13179
|
|
|
12915
|
-
/* Commands.Graph.
|
|
12916
|
-
function
|
|
13180
|
+
/* Commands.Graph.6763:6182:coloredLabel */
|
|
13181
|
+
function Commands_Graph_n__6763_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
12917
13182
|
switch((($4.a2===0n)?1:0)) {
|
|
12918
|
-
case 1: return Theme_theme($0,
|
|
13183
|
+
case 1: return Theme_theme($0, csegen_737(), csegen_737(), 0)($2.a1(undefined)($4.a1));
|
|
12919
13184
|
case 0: {
|
|
12920
13185
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 2n)) {
|
|
12921
13186
|
case 1: return $2.a1(undefined)($4.a1);
|
|
12922
13187
|
case 0: {
|
|
12923
13188
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 6n)) {
|
|
12924
|
-
case 1: return Theme_theme($0,
|
|
12925
|
-
case 0: return Theme_theme($0,
|
|
13189
|
+
case 1: return Theme_theme($0, csegen_759(), csegen_757(), 1)($2.a1(undefined)($4.a1));
|
|
13190
|
+
case 0: return Theme_theme($0, csegen_758(), csegen_758(), 2)($2.a1(undefined)($4.a1));
|
|
12926
13191
|
}
|
|
12927
13192
|
}
|
|
12928
13193
|
}
|
|
@@ -12930,8 +13195,8 @@ function Commands_Graph_n__6757_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
|
12930
13195
|
}
|
|
12931
13196
|
}
|
|
12932
13197
|
|
|
12933
|
-
/* Commands.Graph.
|
|
12934
|
-
function
|
|
13198
|
+
/* Commands.Graph.7733:7009:augment */
|
|
13199
|
+
function Commands_Graph_n__7733_7009_augment($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
12935
13200
|
return {a1: $9, a2: Prelude_Types_maybe(() => 0n, () => $f => $f, Data_SortedMap_lookup($9.a1, $8))};
|
|
12936
13201
|
}
|
|
12937
13202
|
|
|
@@ -12977,7 +13242,7 @@ function Commands_Graph_length_HasLength_Date($0) {
|
|
|
12977
13242
|
|
|
12978
13243
|
/* Commands.Graph.label */
|
|
12979
13244
|
function Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $1, $2, $3, $4) {
|
|
12980
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
13245
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__6763_6182_coloredLabel($0, $1, $2, $4, $3), Commands_Graph_n__6763_6183_countInParens($0, $1, $2, $4, $3));
|
|
12981
13246
|
}
|
|
12982
13247
|
|
|
12983
13248
|
/* Commands.Graph.label */
|
|
@@ -13031,11 +13296,11 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
13031
13296
|
break;
|
|
13032
13297
|
}
|
|
13033
13298
|
case undefined: /* just */ {
|
|
13034
|
-
$17 = Prelude_Types_List_mapAppend({h: 0}, $26 =>
|
|
13299
|
+
$17 = Prelude_Types_List_mapAppend({h: 0}, $26 => Commands_Graph_n__7733_7009_augment($1, $2, $3, $7, $6, $5, $4, $0, $7.a1, $26), $8);
|
|
13035
13300
|
break;
|
|
13036
13301
|
}
|
|
13037
13302
|
}
|
|
13038
|
-
const $33 = Prelude_Types_maybe(() => 0n, () => $37 => $37, Prelude_Types_map_Functor_Maybe($3b =>
|
|
13303
|
+
const $33 = Prelude_Types_maybe(() => 0n, () => $37 => $37, Prelude_Types_map_Functor_Maybe($3b => Commands_Graph_n__7733_7013_maxValue($1, $2, $3, $7, $6, $5, $4, $0, Data_SortedMap_toList($3b)), $7));
|
|
13039
13304
|
const $49 = Prelude_Types_foldr_Foldable_List($4c => $4d => Data_Nat_maximum(Commands_Graph_labelLength_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $3, $4c), $4d), 0n, $17);
|
|
13040
13305
|
switch($8.h) {
|
|
13041
13306
|
case 0: /* nil */ return Text_PrettyPrint_Prettyprinter_Doc_emptyDoc();
|
|
@@ -13053,8 +13318,8 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
13053
13318
|
}
|
|
13054
13319
|
}
|
|
13055
13320
|
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);
|
|
13056
|
-
const $6d = {a1: $6e, a2: {a1:
|
|
13057
|
-
const $62 = {a1:
|
|
13321
|
+
const $6d = {a1: $6e, a2: {a1: Commands_Graph_n__7733_7011_footer($1, $2, $3, $7, $6, $5, $4, $0), a2: {h: 0}}};
|
|
13322
|
+
const $62 = {a1: Commands_Graph_n__7733_7012_header($1, $2, $3, $7, $6, $5, $4, $0), a2: $6d};
|
|
13058
13323
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep($62);
|
|
13059
13324
|
}
|
|
13060
13325
|
}
|
|
@@ -13062,9 +13327,9 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
13062
13327
|
|
|
13063
13328
|
/* Commands.Graph.healthGraph : Config => List PullRequest -> String -> String -> Doc AnsiStyle */
|
|
13064
13329
|
function Commands_Graph_healthGraph($0, $1, $2, $3) {
|
|
13065
|
-
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(
|
|
13330
|
+
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(csegen_293(), $11 => $11.a2, $b, $c), csegen_711(), $7, $8), Data_List_sortBy(csegen_712(), $1));
|
|
13066
13331
|
const $1e = Prelude_Types_foldr_Foldable_List(xs => m => Prelude_Types_max_Ord_Nat(Data_List1_length(xs), m), 1n, $4);
|
|
13067
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
13332
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_Graph_n__7330_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_860(), $36), a2: $41 => maxLabelLength => Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $45 => Commands_Graph_length_HasLength_Date($45), csegen_860(), $41, maxLabelLength), a3: $4d => Commands_Graph_labelLength_Graphable_x28PRsOnDatex20x24dateTyx29($0, $51 => Commands_Graph_length_HasLength_Date($51), csegen_860(), $4d), a4: $58 => Commands_Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29($0, $5c => Commands_Graph_length_HasLength_Date($5c), csegen_860(), $58), a5: $63 => Commands_Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29($0, $67 => Commands_Graph_length_HasLength_Date($67), csegen_860(), $63), a6: $6e => Commands_Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29($0, $72 => Commands_Graph_length_HasLength_Date($72), csegen_860(), $6e)}, $1e, 0n, 0n, Commands_Graph_n__7330_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__7330_6605_link($3, $2, $1, $0)), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}});
|
|
13068
13333
|
}
|
|
13069
13334
|
|
|
13070
13335
|
/* Commands.Graph.graphOne : Config -> Graphable g => Nat -> Nat -> Nat -> g -> Doc AnsiStyle */
|
|
@@ -13087,7 +13352,7 @@ function Commands_Graph_countPadRight($0, $1, $2) {
|
|
|
13087
13352
|
|
|
13088
13353
|
/* Commands.Graph.bar : Config -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
13089
13354
|
function Commands_Graph_bar($0, $1, $2, $3, $4) {
|
|
13090
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0,
|
|
13355
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0, csegen_758(), csegen_758(), 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_759(), csegen_757(), 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_737(), csegen_737(), 3)(Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $4, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{25aa}')))), a2: {h: 0}}}}));
|
|
13091
13356
|
}
|
|
13092
13357
|
|
|
13093
13358
|
|