@mattpolzin/harmony 5.6.0 → 5.8.0
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- package/README.md +26 -7
- package/harmony +850 -720
- package/man/harmony.1 +38 -8
- package/package.json +1 -1
package/harmony
CHANGED
|
@@ -649,6 +649,7 @@ const digIssue = issue => {
|
|
|
649
649
|
author: issue.user.login,
|
|
650
650
|
created_at: issue.created_at,
|
|
651
651
|
title: issue.title,
|
|
652
|
+
body: issue.body,
|
|
652
653
|
assignee: issue.assignee ? issue.assignee.login : null
|
|
653
654
|
}
|
|
654
655
|
}
|
|
@@ -656,7 +657,7 @@ const digIssues = issueJson =>
|
|
|
656
657
|
issueJson.map(digIssue)
|
|
657
658
|
|
|
658
659
|
// Create Issue
|
|
659
|
-
// Executes callback with stringified JSON {"issue_number": Int, "author": String, "created_at": Date, "title": String, "assignee": String?}
|
|
660
|
+
// Executes callback with stringified JSON {"issue_number": Int, "author": String, "created_at": Date, "title": String, "body": String?, "assignee": String?}
|
|
660
661
|
const okit_create_issue = (octokit, owner, repo, title, body, onSuccess, onFailure) =>
|
|
661
662
|
idris__okit_unpromisify(
|
|
662
663
|
octokit.rest.issues.create({ owner, repo, title, body }),
|
|
@@ -664,6 +665,15 @@ const okit_create_issue = (octokit, owner, repo, title, body, onSuccess, onFailu
|
|
|
664
665
|
onFailure
|
|
665
666
|
)
|
|
666
667
|
|
|
668
|
+
// Get a single Issue
|
|
669
|
+
// Executes callback with stringified JSON {"issue_number": Int, "author": String, "created_at": Date, "title": String, "body": String?, "assignee": String?}
|
|
670
|
+
const okit_get_issue = (octokit, owner, repo, issue_number, onSuccess, onFailure) =>
|
|
671
|
+
idris__okit_unpromisify(
|
|
672
|
+
octokit.rest.issues.get({ owner, repo, issue_number }),
|
|
673
|
+
r => onSuccess(JSON.stringify(digIssue(r.data))),
|
|
674
|
+
onFailure
|
|
675
|
+
)
|
|
676
|
+
|
|
667
677
|
// list team members
|
|
668
678
|
const digUserLogins = usersJson =>
|
|
669
679
|
usersJson.map(u => u.login)
|
|
@@ -980,6 +990,7 @@ const FFI_GitHub_prim__getUser = okit_get_user;
|
|
|
980
990
|
const FFI_GitHub_prim__getSelf = okit_get_self;
|
|
981
991
|
const FFI_GitHub_prim__getRepoDefaultBranch = okit_get_repo_default_branch;
|
|
982
992
|
const FFI_GitHub_prim__getPullRequestGraphQlId = okit_get_pr_graphql_id;
|
|
993
|
+
const FFI_GitHub_prim__getIssue = okit_get_issue;
|
|
983
994
|
const FFI_GitHub_prim__createPR = okit_create_pr;
|
|
984
995
|
const FFI_GitHub_prim__createIssue = okit_create_issue;
|
|
985
996
|
const FFI_GitHub_prim__createComment = okit_create_comment;
|
|
@@ -1010,7 +1021,7 @@ function x24tcOpt_1($0) {
|
|
|
1010
1021
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
1011
1022
|
default: {
|
|
1012
1023
|
const $17 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1013
|
-
const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($0.a1.a1.a1,
|
|
1024
|
+
const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($0.a1.a1.a1, csegen_759(), $1e, $1f), $17, $0.a6);
|
|
1014
1025
|
switch($1b.a1.h) {
|
|
1015
1026
|
case 0: /* nothing */ {
|
|
1016
1027
|
switch($0.a8) {
|
|
@@ -1025,7 +1036,7 @@ function x24tcOpt_1($0) {
|
|
|
1025
1036
|
}
|
|
1026
1037
|
default: {
|
|
1027
1038
|
const $64 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1028
|
-
const $68 = Data_List_DeleteBy_deleteByx27($6b => $6c => Prelude_Basics_on($0.a1.a1.a1,
|
|
1039
|
+
const $68 = Data_List_DeleteBy_deleteByx27($6b => $6c => Prelude_Basics_on($0.a1.a1.a1, csegen_759(), $6b, $6c), $64, $0.a6);
|
|
1029
1040
|
switch($68.a1.h) {
|
|
1030
1041
|
case 0: /* nothing */ {
|
|
1031
1042
|
switch($0.a8) {
|
|
@@ -1050,7 +1061,7 @@ function x24tcOpt_1($0) {
|
|
|
1050
1061
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
1051
1062
|
default: {
|
|
1052
1063
|
const $b5 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1053
|
-
const $b9 = Data_List_DeleteBy_deleteByx27($bc => $bd => Prelude_Basics_on($0.a1.a1.a1,
|
|
1064
|
+
const $b9 = Data_List_DeleteBy_deleteByx27($bc => $bd => Prelude_Basics_on($0.a1.a1.a1, csegen_759(), $bc, $bd), $b5, $0.a6);
|
|
1054
1065
|
switch($b9.a1.h) {
|
|
1055
1066
|
case 0: /* nothing */ {
|
|
1056
1067
|
switch($0.a8) {
|
|
@@ -1065,7 +1076,7 @@ function x24tcOpt_1($0) {
|
|
|
1065
1076
|
}
|
|
1066
1077
|
default: {
|
|
1067
1078
|
const $102 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1068
|
-
const $106 = Data_List_DeleteBy_deleteByx27($109 => $10a => Prelude_Basics_on($0.a1.a1.a1,
|
|
1079
|
+
const $106 = Data_List_DeleteBy_deleteByx27($109 => $10a => Prelude_Basics_on($0.a1.a1.a1, csegen_759(), $109, $10a), $102, $0.a6);
|
|
1069
1080
|
switch($106.a1.h) {
|
|
1070
1081
|
case 0: /* nothing */ {
|
|
1071
1082
|
switch($0.a8) {
|
|
@@ -1104,8 +1115,8 @@ function x24tcOpt_2($0) {
|
|
|
1104
1115
|
}
|
|
1105
1116
|
}
|
|
1106
1117
|
|
|
1107
|
-
/* Data.List.
|
|
1108
|
-
function
|
|
1118
|
+
/* Data.List.7787:8509:splitRec */
|
|
1119
|
+
function Data_List_n__7787_8509_splitRec($0, $1, $2, $3, $4) {
|
|
1109
1120
|
return __tailRec(x24tcOpt_2, {h: 1 /* {TcContinue2:1} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4});
|
|
1110
1121
|
}
|
|
1111
1122
|
|
|
@@ -1122,8 +1133,8 @@ function x24tcOpt_3($0) {
|
|
|
1122
1133
|
}
|
|
1123
1134
|
}
|
|
1124
1135
|
|
|
1125
|
-
/* Prelude.Show.
|
|
1126
|
-
function
|
|
1136
|
+
/* Prelude.Show.3215:12601:show' */
|
|
1137
|
+
function Prelude_Show_n__3215_12601_showx27($0, $1, $2, $3) {
|
|
1127
1138
|
return __tailRec(x24tcOpt_3, {h: 1 /* {TcContinue3:1} */, a1: $0, a2: $1, a3: $2, a4: $3});
|
|
1128
1139
|
}
|
|
1129
1140
|
|
|
@@ -1328,8 +1339,8 @@ function x24tcOpt_5($0) {
|
|
|
1328
1339
|
}
|
|
1329
1340
|
}
|
|
1330
1341
|
|
|
1331
|
-
/* Text.PrettyPrint.Prettyprinter.Doc.
|
|
1332
|
-
function
|
|
1342
|
+
/* Text.PrettyPrint.Prettyprinter.Doc.8985:8927:initialIndentation */
|
|
1343
|
+
function Text_PrettyPrint_Prettyprinter_Doc_n__8985_8927_initialIndentation($0, $1, $2, $3) {
|
|
1333
1344
|
return __tailRec(x24tcOpt_5, {h: 1 /* {TcContinue5:1} */, a1: $0, a2: $1, a3: $2, a4: $3});
|
|
1334
1345
|
}
|
|
1335
1346
|
|
|
@@ -1367,7 +1378,7 @@ function Prelude_Types_compare_Ord_x28Listx20x24ax29($0, $1, $2) {
|
|
|
1367
1378
|
}
|
|
1368
1379
|
|
|
1369
1380
|
/* Prelude.Types.case block in compare */
|
|
1370
|
-
function
|
|
1381
|
+
function Prelude_Types_case__compare_6803($0, $1, $2, $3, $4, $5) {
|
|
1371
1382
|
return __tailRec(x24tcOpt_6, {h: 2 /* {TcContinue6:2} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5});
|
|
1372
1383
|
}
|
|
1373
1384
|
|
|
@@ -1404,13 +1415,13 @@ function Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29($0, $1, $2) {
|
|
|
1404
1415
|
function x24tcOpt_8($0) {
|
|
1405
1416
|
switch($0.a2.h) {
|
|
1406
1417
|
case 0: /* Leaf */ return {h: 0 /* {TcDone:8} */, a1: $0.a1({a1: $0.a2.a1, a2: $0.a2.a2})};
|
|
1407
|
-
case 1: /* Branch2 */ return {h: 1 /* {TcContinue8:1} */, a1: $9 => ({a1: $9, a2:
|
|
1408
|
-
case 2: /* Branch3 */ return {h: 1 /* {TcContinue8:1} */, a1: $11 => ({a1: $11, a2:
|
|
1418
|
+
case 1: /* Branch2 */ return {h: 1 /* {TcContinue8:1} */, a1: $9 => ({a1: $9, a2: Data_SortedMap_Dependent_n__6828_9064_treeToListx27($0.a1, $0.a2.a3)}), a2: $0.a2.a1};
|
|
1419
|
+
case 2: /* Branch3 */ return {h: 1 /* {TcContinue8:1} */, a1: $11 => ({a1: $11, a2: Data_SortedMap_Dependent_n__6828_9064_treeToListx27($16 => ({a1: $16, a2: Data_SortedMap_Dependent_n__6828_9064_treeToListx27($0.a1, $0.a2.a5)}), $0.a2.a3)}), a2: $0.a2.a1};
|
|
1409
1420
|
}
|
|
1410
1421
|
}
|
|
1411
1422
|
|
|
1412
|
-
/* Data.SortedMap.Dependent.
|
|
1413
|
-
function
|
|
1423
|
+
/* Data.SortedMap.Dependent.6828:9064:treeToList' */
|
|
1424
|
+
function Data_SortedMap_Dependent_n__6828_9064_treeToListx27($0, $1) {
|
|
1414
1425
|
return __tailRec(x24tcOpt_8, {h: 1 /* {TcContinue8:1} */, a1: $0, a2: $1});
|
|
1415
1426
|
}
|
|
1416
1427
|
|
|
@@ -1697,7 +1708,7 @@ function JSON_Parser_object($0, $1, $2) {
|
|
|
1697
1708
|
}
|
|
1698
1709
|
|
|
1699
1710
|
/* JSON.Parser.case block in object */
|
|
1700
|
-
function
|
|
1711
|
+
function JSON_Parser_case__object_22917($0, $1, $2, $3, $4, $5, $6) {
|
|
1701
1712
|
return __tailRec(x24tcOpt_14, {h: 2 /* {TcContinue14:2} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6});
|
|
1702
1713
|
}
|
|
1703
1714
|
|
|
@@ -1708,14 +1719,14 @@ function x24tcOpt_15($0) {
|
|
|
1708
1719
|
case undefined: /* cons */ {
|
|
1709
1720
|
switch(Prelude_Types_elemBy(csegen_147(), $0.a2, $0.a3.a1)($0.a1)) {
|
|
1710
1721
|
case 1: return {h: 1 /* {TcContinue15:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3.a2};
|
|
1711
|
-
case 0: return {h: 0 /* {TcDone:15} */, a1: {a1: $0.a3.a1, a2:
|
|
1722
|
+
case 0: return {h: 0 /* {TcDone:15} */, a1: {a1: $0.a3.a1, a2: Data_List_n__4934_5733_nubByx27({a1: $0.a3.a1, a2: $0.a1}, $0.a2, $0.a3.a2)}};
|
|
1712
1723
|
}
|
|
1713
1724
|
}
|
|
1714
1725
|
}
|
|
1715
1726
|
}
|
|
1716
1727
|
|
|
1717
|
-
/* Data.List.
|
|
1718
|
-
function
|
|
1728
|
+
/* Data.List.4934:5733:nubBy' */
|
|
1729
|
+
function Data_List_n__4934_5733_nubByx27($0, $1, $2) {
|
|
1719
1730
|
return __tailRec(x24tcOpt_15, {h: 1 /* {TcContinue15:1} */, a1: $0, a2: $1, a3: $2});
|
|
1720
1731
|
}
|
|
1721
1732
|
|
|
@@ -1745,7 +1756,7 @@ function x24tcOpt_16($0) {
|
|
|
1745
1756
|
}
|
|
1746
1757
|
|
|
1747
1758
|
/* Data.String.with block in ltrim */
|
|
1748
|
-
function
|
|
1759
|
+
function Data_String_with__ltrim_9864($0, $1) {
|
|
1749
1760
|
return __tailRec(x24tcOpt_16, {h: 1 /* {TcContinue16:1} */, a1: $0, a2: $1});
|
|
1750
1761
|
}
|
|
1751
1762
|
|
|
@@ -1857,16 +1868,16 @@ function x24tcOpt_21($0) {
|
|
|
1857
1868
|
case 0: /* nil */ return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: {h: 0}}};
|
|
1858
1869
|
case undefined: /* cons */ {
|
|
1859
1870
|
switch($0.a3.a1) {
|
|
1860
|
-
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1871
|
+
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3989_9702_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1861
1872
|
case '\r': {
|
|
1862
1873
|
switch($0.a3.a2.h) {
|
|
1863
1874
|
case undefined: /* cons */ {
|
|
1864
1875
|
switch($0.a3.a2.a1) {
|
|
1865
|
-
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1866
|
-
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1876
|
+
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3989_9702_linesHelp($0.a1, {h: 0}, $0.a3.a2.a2)}};
|
|
1877
|
+
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3989_9702_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1867
1878
|
}
|
|
1868
1879
|
}
|
|
1869
|
-
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1880
|
+
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3989_9702_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1870
1881
|
}
|
|
1871
1882
|
}
|
|
1872
1883
|
default: return {h: 1 /* {TcContinue21:1} */, a1: $0.a1, a2: {a1: $0.a3.a1, a2: $0.a2}, a3: $0.a3.a2};
|
|
@@ -1881,16 +1892,16 @@ function x24tcOpt_21($0) {
|
|
|
1881
1892
|
case 0: /* nil */ return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: {h: 0}}};
|
|
1882
1893
|
case undefined: /* cons */ {
|
|
1883
1894
|
switch($0.a3.a1) {
|
|
1884
|
-
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1895
|
+
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3989_9702_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1885
1896
|
case '\r': {
|
|
1886
1897
|
switch($0.a3.a2.h) {
|
|
1887
1898
|
case undefined: /* cons */ {
|
|
1888
1899
|
switch($0.a3.a2.a1) {
|
|
1889
|
-
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1890
|
-
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1900
|
+
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3989_9702_linesHelp($0.a1, {h: 0}, $0.a3.a2.a2)}};
|
|
1901
|
+
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3989_9702_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1891
1902
|
}
|
|
1892
1903
|
}
|
|
1893
|
-
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1904
|
+
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3989_9702_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1894
1905
|
}
|
|
1895
1906
|
}
|
|
1896
1907
|
default: return {h: 1 /* {TcContinue21:1} */, a1: $0.a1, a2: {a1: $0.a3.a1, a2: $0.a2}, a3: $0.a3.a2};
|
|
@@ -1901,8 +1912,8 @@ function x24tcOpt_21($0) {
|
|
|
1901
1912
|
}
|
|
1902
1913
|
}
|
|
1903
1914
|
|
|
1904
|
-
/* Data.String.3989:
|
|
1905
|
-
function
|
|
1915
|
+
/* Data.String.3989:9702:linesHelp */
|
|
1916
|
+
function Data_String_n__3989_9702_linesHelp($0, $1, $2) {
|
|
1906
1917
|
return __tailRec(x24tcOpt_21, {h: 1 /* {TcContinue21:1} */, a1: $0, a2: $1, a3: $2});
|
|
1907
1918
|
}
|
|
1908
1919
|
|
|
@@ -1936,14 +1947,14 @@ function Prelude_Types_List_lengthPlus($0, $1) {
|
|
|
1936
1947
|
function x24tcOpt_24($0) {
|
|
1937
1948
|
switch($0.a6.h) {
|
|
1938
1949
|
case 0: /* Nil */ return {h: 0 /* {TcDone:24} */, a1: {h: 0 /* SEmpty */}};
|
|
1939
|
-
case 2: /* UndoAnn */ return {h: 0 /* {TcDone:24} */, a1: {h: 5 /* SAnnPop */, a1:
|
|
1950
|
+
case 2: /* UndoAnn */ return {h: 0 /* {TcDone:24} */, a1: {h: 5 /* SAnnPop */, a1: Text_PrettyPrint_Prettyprinter_Doc_n__8985_8926_best($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, $0.a6.a1)}};
|
|
1940
1951
|
case 1: /* Cons */ {
|
|
1941
1952
|
switch($0.a6.a2.h) {
|
|
1942
1953
|
case 0: /* Empty */ return {h: 1 /* {TcContinue24:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6.a3};
|
|
1943
|
-
case 1: /* Chara */ return {h: 0 /* {TcDone:24} */, a1: {h: 1 /* SChar */, a1: $0.a6.a2.a1, a2: () =>
|
|
1944
|
-
case 2: /* Text */ return {h: 0 /* {TcDone:24} */, a1: {h: 2 /* SText */, a1: $0.a6.a2.a1, a2: $0.a6.a2.a2, a3: () =>
|
|
1954
|
+
case 1: /* Chara */ return {h: 0 /* {TcDone:24} */, a1: {h: 1 /* SChar */, a1: $0.a6.a2.a1, a2: () => Text_PrettyPrint_Prettyprinter_Doc_n__8985_8926_best($0.a1, $0.a2, $0.a3, $0.a4, _add32s($0.a5, 1), $0.a6.a3)}};
|
|
1955
|
+
case 2: /* Text */ return {h: 0 /* {TcDone:24} */, a1: {h: 2 /* SText */, a1: $0.a6.a2.a1, a2: $0.a6.a2.a2, a3: () => Text_PrettyPrint_Prettyprinter_Doc_n__8985_8926_best($0.a1, $0.a2, $0.a3, $0.a4, _add32s($0.a5, $0.a6.a2.a1), $0.a6.a3)}};
|
|
1945
1956
|
case 3: /* Line */ {
|
|
1946
|
-
const $2d =
|
|
1957
|
+
const $2d = Text_PrettyPrint_Prettyprinter_Doc_n__8985_8926_best($0.a1, $0.a2, $0.a3, $0.a6.a1, $0.a6.a1, $0.a6.a3);
|
|
1947
1958
|
let $35;
|
|
1948
1959
|
switch($2d.h) {
|
|
1949
1960
|
case 0: /* SEmpty */ {
|
|
@@ -1962,21 +1973,21 @@ function x24tcOpt_24($0) {
|
|
|
1962
1973
|
case 5: /* Cat */ return {h: 1 /* {TcContinue24:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a1, a3: {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a2, a3: $0.a6.a3}}};
|
|
1963
1974
|
case 6: /* Nest */ return {h: 1 /* {TcContinue24:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1 /* Cons */, a1: _add32s($0.a6.a1, $0.a6.a2.a1), a2: $0.a6.a2.a2, a3: $0.a6.a3}};
|
|
1964
1975
|
case 7: /* Union */ {
|
|
1965
|
-
const $5d =
|
|
1966
|
-
const $69 =
|
|
1967
|
-
return {h: 0 /* {TcDone:24} */, a1:
|
|
1976
|
+
const $5d = Text_PrettyPrint_Prettyprinter_Doc_n__8985_8926_best($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a1(), a3: $0.a6.a3});
|
|
1977
|
+
const $69 = Text_PrettyPrint_Prettyprinter_Doc_n__8985_8926_best($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a2(), a3: $0.a6.a3});
|
|
1978
|
+
return {h: 0 /* {TcDone:24} */, a1: Text_PrettyPrint_Prettyprinter_Doc_n__8985_8928_selectNicer($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, $5d, () => $69)};
|
|
1968
1979
|
}
|
|
1969
1980
|
case 8: /* Column */ return {h: 1 /* {TcContinue24:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a1($0.a5), a3: $0.a6.a3}};
|
|
1970
1981
|
case 9: /* WithPageWidth */ return {h: 1 /* {TcContinue24:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a1($0.a2), a3: $0.a6.a3}};
|
|
1971
1982
|
case 10: /* Nesting */ return {h: 1 /* {TcContinue24:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a1($0.a6.a1), a3: $0.a6.a3}};
|
|
1972
|
-
case 11: /* Annotated */ return {h: 0 /* {TcDone:24} */, a1: {h: 4 /* SAnnPush */, a1: $0.a6.a2.a1, a2:
|
|
1983
|
+
case 11: /* Annotated */ return {h: 0 /* {TcDone:24} */, a1: {h: 4 /* SAnnPush */, a1: $0.a6.a2.a1, a2: Text_PrettyPrint_Prettyprinter_Doc_n__8985_8926_best($0.a1, $0.a2, $0.a3, $0.a4, $0.a5, {h: 1 /* Cons */, a1: $0.a6.a1, a2: $0.a6.a2.a2, a3: {h: 2 /* UndoAnn */, a1: $0.a6.a3}})}};
|
|
1973
1984
|
}
|
|
1974
1985
|
}
|
|
1975
1986
|
}
|
|
1976
1987
|
}
|
|
1977
1988
|
|
|
1978
|
-
/* Text.PrettyPrint.Prettyprinter.Doc.
|
|
1979
|
-
function
|
|
1989
|
+
/* Text.PrettyPrint.Prettyprinter.Doc.8985:8926:best */
|
|
1990
|
+
function Text_PrettyPrint_Prettyprinter_Doc_n__8985_8926_best($0, $1, $2, $3, $4, $5) {
|
|
1980
1991
|
return __tailRec(x24tcOpt_24, {h: 1 /* {TcContinue24:1} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5});
|
|
1981
1992
|
}
|
|
1982
1993
|
|
|
@@ -2488,7 +2499,7 @@ function JSON_Parser_array($0, $1, $2) {
|
|
|
2488
2499
|
}
|
|
2489
2500
|
|
|
2490
2501
|
/* JSON.Parser.case block in array */
|
|
2491
|
-
function
|
|
2502
|
+
function JSON_Parser_case__array_22663($0, $1, $2, $3) {
|
|
2492
2503
|
return __tailRec(x24tcOpt_47, {h: 2 /* {TcContinue47:2} */, a1: $0, a2: $1, a3: $2, a4: $3});
|
|
2493
2504
|
}
|
|
2494
2505
|
|
|
@@ -2816,168 +2827,178 @@ const csegen_328 = __lazy(function () {
|
|
|
2816
2827
|
return $0 => $1 => (($0===$1)?1:0);
|
|
2817
2828
|
});
|
|
2818
2829
|
|
|
2819
|
-
/* {csegen:
|
|
2820
|
-
const
|
|
2830
|
+
/* {csegen:346} */
|
|
2831
|
+
const csegen_346 = __lazy(function () {
|
|
2821
2832
|
return $0 => Language_JSON_Accessors_array($3 => Data_PullRequest_parsePR($3), $0);
|
|
2822
2833
|
});
|
|
2823
2834
|
|
|
2824
|
-
/* {csegen:
|
|
2825
|
-
const
|
|
2835
|
+
/* {csegen:359} */
|
|
2836
|
+
const csegen_359 = __lazy(function () {
|
|
2826
2837
|
return $0 => Prelude_EqOrd_x3dx3d_Eq_Char($0, '/');
|
|
2827
2838
|
});
|
|
2828
2839
|
|
|
2829
|
-
/* {csegen:
|
|
2830
|
-
const
|
|
2840
|
+
/* {csegen:365} */
|
|
2841
|
+
const csegen_365 = __lazy(function () {
|
|
2831
2842
|
return () => $0 => $0.a1;
|
|
2832
2843
|
});
|
|
2833
2844
|
|
|
2834
|
-
/* {csegen:
|
|
2835
|
-
const
|
|
2845
|
+
/* {csegen:378} */
|
|
2846
|
+
const csegen_378 = __lazy(function () {
|
|
2836
2847
|
return () => $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Number(_truncUBigInt32($4)), System_time(csegen_74()()), $0, $1);
|
|
2837
2848
|
});
|
|
2838
2849
|
|
|
2839
|
-
/* {csegen:
|
|
2840
|
-
const
|
|
2850
|
+
/* {csegen:383} */
|
|
2851
|
+
const csegen_383 = __lazy(function () {
|
|
2841
2852
|
return $0 => $1 => $2 => $3 => Prelude_Types_map_Functor_Maybe($2, $3);
|
|
2842
2853
|
});
|
|
2843
2854
|
|
|
2844
|
-
/* {csegen:
|
|
2845
|
-
const
|
|
2855
|
+
/* {csegen:404} */
|
|
2856
|
+
const csegen_404 = __lazy(function () {
|
|
2846
2857
|
return () => $0 => $1 => $2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($5 => Prelude_IO_prim__putStr('\n', $5), $0, $1, $2);
|
|
2847
2858
|
});
|
|
2848
2859
|
|
|
2849
|
-
/* {csegen:
|
|
2850
|
-
const
|
|
2860
|
+
/* {csegen:406} */
|
|
2861
|
+
const csegen_406 = __lazy(function () {
|
|
2851
2862
|
return () => $0 => $1 => $2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($5 => Prelude_IO_prim__getStr($5), $0, $1, $2);
|
|
2852
2863
|
});
|
|
2853
2864
|
|
|
2854
|
-
/* {csegen:
|
|
2855
|
-
const
|
|
2865
|
+
/* {csegen:408} */
|
|
2866
|
+
const csegen_408 = __lazy(function () {
|
|
2856
2867
|
return () => $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 0}, $0, $1);
|
|
2857
2868
|
});
|
|
2858
2869
|
|
|
2859
|
-
/* {csegen:
|
|
2860
|
-
const
|
|
2870
|
+
/* {csegen:422} */
|
|
2871
|
+
const csegen_422 = __lazy(function () {
|
|
2861
2872
|
return {a1: Commands_Help_argument(0, '...'), a2: {h: 0}};
|
|
2862
2873
|
});
|
|
2863
2874
|
|
|
2864
|
-
/* {csegen:
|
|
2865
|
-
const
|
|
2866
|
-
return {a1: Commands_Help_argument(0, '#<label>'), a2:
|
|
2875
|
+
/* {csegen:427} */
|
|
2876
|
+
const csegen_427 = __lazy(function () {
|
|
2877
|
+
return {a1: Commands_Help_argument(0, '#<label>'), a2: csegen_422()};
|
|
2867
2878
|
});
|
|
2868
2879
|
|
|
2869
|
-
/* {csegen:
|
|
2870
|
-
const
|
|
2880
|
+
/* {csegen:608} */
|
|
2881
|
+
const csegen_608 = __lazy(function () {
|
|
2871
2882
|
return {a1: d => b => c => a => $1 => $2 => $3 => ({a1: $1($3.a1), a2: $2($3.a2)}), a2: b => c => a => $c => $d => ({a1: $c($d.a1), a2: $d.a2}), a3: a => d => b => $14 => $15 => ({a1: $15.a1, a2: $14($15.a2)})};
|
|
2872
2883
|
});
|
|
2873
2884
|
|
|
2874
|
-
/* {csegen:
|
|
2875
|
-
const
|
|
2885
|
+
/* {csegen:612} */
|
|
2886
|
+
const csegen_612 = __lazy(function () {
|
|
2876
2887
|
return {a1: {h: 0}, a2: {a1: '-i', a2: {h: 0}}};
|
|
2877
2888
|
});
|
|
2878
2889
|
|
|
2879
|
-
/* {csegen:
|
|
2880
|
-
const
|
|
2890
|
+
/* {csegen:617} */
|
|
2891
|
+
const csegen_617 = __lazy(function () {
|
|
2881
2892
|
return $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $0, $1);
|
|
2882
2893
|
});
|
|
2883
2894
|
|
|
2884
|
-
/* {csegen:
|
|
2885
|
-
const
|
|
2895
|
+
/* {csegen:633} */
|
|
2896
|
+
const csegen_633 = __lazy(function () {
|
|
2886
2897
|
return {a1: csegen_9(), a2: a => ({h: 0}), a3: a => $4 => $5 => Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, $5)};
|
|
2887
2898
|
});
|
|
2888
2899
|
|
|
2889
|
-
/* {csegen:
|
|
2890
|
-
const
|
|
2900
|
+
/* {csegen:634} */
|
|
2901
|
+
const csegen_634 = __lazy(function () {
|
|
2891
2902
|
return $0 => Data_List_sort(csegen_240(), $0);
|
|
2892
2903
|
});
|
|
2893
2904
|
|
|
2894
|
-
/* {csegen:
|
|
2895
|
-
const
|
|
2905
|
+
/* {csegen:636} */
|
|
2906
|
+
const csegen_636 = __lazy(function () {
|
|
2896
2907
|
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_147(), $0, $1, $2);
|
|
2897
2908
|
});
|
|
2898
2909
|
|
|
2899
|
-
/* {csegen:642} */
|
|
2900
|
-
const csegen_642 = __lazy(function () {
|
|
2901
|
-
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2902
|
-
});
|
|
2903
|
-
|
|
2904
2910
|
/* {csegen:643} */
|
|
2905
2911
|
const csegen_643 = __lazy(function () {
|
|
2906
|
-
return $0 =>
|
|
2912
|
+
return $0 => {
|
|
2913
|
+
switch($0.h) {
|
|
2914
|
+
case 0: /* nothing */ return 1;
|
|
2915
|
+
default: return 0;
|
|
2916
|
+
}
|
|
2917
|
+
};
|
|
2907
2918
|
});
|
|
2908
2919
|
|
|
2909
|
-
/* {csegen:
|
|
2910
|
-
const
|
|
2911
|
-
return $0 => $1 =>
|
|
2920
|
+
/* {csegen:648} */
|
|
2921
|
+
const csegen_648 = __lazy(function () {
|
|
2922
|
+
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2912
2923
|
});
|
|
2913
2924
|
|
|
2914
|
-
/* {csegen:
|
|
2915
|
-
const
|
|
2925
|
+
/* {csegen:649} */
|
|
2926
|
+
const csegen_649 = __lazy(function () {
|
|
2916
2927
|
return $0 => $0.a3;
|
|
2917
2928
|
});
|
|
2918
2929
|
|
|
2919
|
-
/* {csegen:
|
|
2920
|
-
const
|
|
2921
|
-
return
|
|
2930
|
+
/* {csegen:650} */
|
|
2931
|
+
const csegen_650 = __lazy(function () {
|
|
2932
|
+
return $0 => $1 => Prelude_Basics_on(csegen_648(), csegen_649(), $0, $1);
|
|
2922
2933
|
});
|
|
2923
2934
|
|
|
2924
2935
|
/* {csegen:672} */
|
|
2925
2936
|
const csegen_672 = __lazy(function () {
|
|
2926
|
-
return $0 => $0.
|
|
2937
|
+
return $0 => $0.a3;
|
|
2938
|
+
});
|
|
2939
|
+
|
|
2940
|
+
/* {csegen:675} */
|
|
2941
|
+
const csegen_675 = __lazy(function () {
|
|
2942
|
+
return Theme_cs({a1: 2, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2927
2943
|
});
|
|
2928
2944
|
|
|
2929
2945
|
/* {csegen:678} */
|
|
2930
2946
|
const csegen_678 = __lazy(function () {
|
|
2947
|
+
return $0 => $0.a1;
|
|
2948
|
+
});
|
|
2949
|
+
|
|
2950
|
+
/* {csegen:684} */
|
|
2951
|
+
const csegen_684 = __lazy(function () {
|
|
2931
2952
|
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}}}));
|
|
2932
2953
|
});
|
|
2933
2954
|
|
|
2934
|
-
/* {csegen:
|
|
2935
|
-
const
|
|
2955
|
+
/* {csegen:694} */
|
|
2956
|
+
const csegen_694 = __lazy(function () {
|
|
2936
2957
|
return Theme_cs({a1: 0, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2937
2958
|
});
|
|
2938
2959
|
|
|
2939
|
-
/* {csegen:
|
|
2940
|
-
const
|
|
2960
|
+
/* {csegen:695} */
|
|
2961
|
+
const csegen_695 = __lazy(function () {
|
|
2941
2962
|
return Theme_cs({a1: 1, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2942
2963
|
});
|
|
2943
2964
|
|
|
2944
|
-
/* {csegen:
|
|
2945
|
-
const
|
|
2965
|
+
/* {csegen:696} */
|
|
2966
|
+
const csegen_696 = __lazy(function () {
|
|
2946
2967
|
return Theme_cs({a1: 3, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2947
2968
|
});
|
|
2948
2969
|
|
|
2949
|
-
/* {csegen:
|
|
2950
|
-
const
|
|
2970
|
+
/* {csegen:710} */
|
|
2971
|
+
const csegen_710 = __lazy(function () {
|
|
2951
2972
|
return $0 => Prelude_Types_either(() => $3 => '', () => $5 => $5, $0);
|
|
2952
2973
|
});
|
|
2953
2974
|
|
|
2954
|
-
/* {csegen:
|
|
2955
|
-
const
|
|
2975
|
+
/* {csegen:716} */
|
|
2976
|
+
const csegen_716 = __lazy(function () {
|
|
2956
2977
|
return $0 => Util_Prompting_yesNoPrompt(csegen_74()(), 1, 'Would you like to continue creating a Pull Request anyway?');
|
|
2957
2978
|
});
|
|
2958
2979
|
|
|
2959
|
-
/* {csegen:
|
|
2960
|
-
const
|
|
2980
|
+
/* {csegen:754} */
|
|
2981
|
+
const csegen_754 = __lazy(function () {
|
|
2961
2982
|
return $0 => Prelude_Types_fastPack(Prelude_Types_List_reverse($0));
|
|
2962
2983
|
});
|
|
2963
2984
|
|
|
2964
|
-
/* {csegen:
|
|
2965
|
-
const
|
|
2985
|
+
/* {csegen:759} */
|
|
2986
|
+
const csegen_759 = __lazy(function () {
|
|
2966
2987
|
return $0 => $0.a1;
|
|
2967
2988
|
});
|
|
2968
2989
|
|
|
2969
|
-
/* {csegen:
|
|
2970
|
-
const
|
|
2971
|
-
return $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Data_String_trim($4),
|
|
2990
|
+
/* {csegen:766} */
|
|
2991
|
+
const csegen_766 = __lazy(function () {
|
|
2992
|
+
return $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Data_String_trim($4), csegen_406()(), $0, $1);
|
|
2972
2993
|
});
|
|
2973
2994
|
|
|
2974
|
-
/* {csegen:
|
|
2975
|
-
const
|
|
2995
|
+
/* {csegen:771} */
|
|
2996
|
+
const csegen_771 = __lazy(function () {
|
|
2976
2997
|
return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}};
|
|
2977
2998
|
});
|
|
2978
2999
|
|
|
2979
|
-
/* {csegen:
|
|
2980
|
-
const
|
|
3000
|
+
/* {csegen:787} */
|
|
3001
|
+
const csegen_787 = __lazy(function () {
|
|
2981
3002
|
return {a1: ann => $1 => Commands_Graph_pretty_Pretty_Date($1), a2: ann => $5 => $6 => Commands_Graph_prettyPrec_Pretty_Date($5, $6)};
|
|
2982
3003
|
});
|
|
2983
3004
|
|
|
@@ -2986,23 +3007,23 @@ function prim__sub_Integer($0, $1) {
|
|
|
2986
3007
|
return ($0-$1);
|
|
2987
3008
|
}
|
|
2988
3009
|
|
|
2989
|
-
/* Main.
|
|
2990
|
-
function
|
|
3010
|
+
/* Main.8893:1556:parsePg */
|
|
3011
|
+
function Main_n__8893_1556_parsePg($0, $1, $2, $3, $4, $5, $6) {
|
|
2991
3012
|
return Data_String_parsePositive(csegen_2(), $6);
|
|
2992
3013
|
}
|
|
2993
3014
|
|
|
2994
|
-
/* Main.
|
|
2995
|
-
function
|
|
3015
|
+
/* Main.8893:1555:parseLim */
|
|
3016
|
+
function Main_n__8893_1555_parseLim($0, $1, $2, $3, $4, $5) {
|
|
2996
3017
|
return Prelude_Interfaces_x3cx3dx3c(csegen_14(), x => Data_Fin_natToFin(x, 101n), $e => Data_String_parsePositive(csegen_2(), $e));
|
|
2997
3018
|
}
|
|
2998
3019
|
|
|
2999
|
-
/* Main.
|
|
3000
|
-
function
|
|
3020
|
+
/* Main.8695:1303:ffiOpts */
|
|
3021
|
+
function Main_n__8695_1303_ffiOpts($0, $1, $2, $3) {
|
|
3001
3022
|
return BashCompletion_ffiOpts($0, $3, $2, $1);
|
|
3002
3023
|
}
|
|
3003
3024
|
|
|
3004
|
-
/* Main.
|
|
3005
|
-
function
|
|
3025
|
+
/* Main.8695:1302:configuredOpts */
|
|
3026
|
+
function Main_n__8695_1302_configuredOpts($0, $1, $2, $3) {
|
|
3006
3027
|
const $13 = $14 => {
|
|
3007
3028
|
switch($14.h) {
|
|
3008
3029
|
case 1: /* Right */ return $0.a1.a1.a2(undefined)(BashCompletion_opts($14.a1, $3, $2, $1));
|
|
@@ -3247,7 +3268,7 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3247
3268
|
}
|
|
3248
3269
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe($b5, filter => ({a1: {a1: filter, a2: {a1: $b2.a1, a2: $b2.a2}}}));
|
|
3249
3270
|
};
|
|
3250
|
-
const $92 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $9a => $9b => ({a1: $9a, a2: $9b})},
|
|
3271
|
+
const $92 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $9a => $9b => ({a1: $9a, a2: $9b})}, Main_n__8893_1555_parseLim($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0)($3.a2.a2.a2.a1)), Main_n__8893_1556_parsePg($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0, $3.a2.a2.a2.a2.a1)), $b1);
|
|
3251
3272
|
return $c2 => {
|
|
3252
3273
|
switch($92.h) {
|
|
3253
3274
|
case undefined: /* just */ return $c4 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequestsJsonStr($2, $0.a2, $0.a3, $92.a1.a1, $92.a1.a2.a1, $92.a1.a2.a2), pullsJsonStr => $d3 => $d4 => $d5 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d8 => Prelude_IO_prim__putStr(pullsJsonStr, $d8), $d3, $d4, $d5), $c2, $c4);
|
|
@@ -3325,79 +3346,59 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3325
3346
|
}
|
|
3326
3347
|
};
|
|
3327
3348
|
}
|
|
3328
|
-
case 'quick':
|
|
3329
|
-
switch($3.a2.h) {
|
|
3330
|
-
case 0: /* nil */ return $24d => $24e => Commands_quick($0, $1, $2, 1, $24d, $24e);
|
|
3331
|
-
case undefined: /* cons */ {
|
|
3332
|
-
return $256 => {
|
|
3333
|
-
switch($3.a2.a1) {
|
|
3334
|
-
case '--bugfix': {
|
|
3335
|
-
return $258 => {
|
|
3336
|
-
switch($3.a2.a2.h) {
|
|
3337
|
-
case 0: /* nil */ return Commands_quick($0, $1, $2, 0, $256, $258);
|
|
3338
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $268 => $268, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $256, $258);
|
|
3339
|
-
}
|
|
3340
|
-
};
|
|
3341
|
-
}
|
|
3342
|
-
default: return $276 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $27e => $27e, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $256, $276);
|
|
3343
|
-
}
|
|
3344
|
-
};
|
|
3345
|
-
}
|
|
3346
|
-
default: return $28c => $28d => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $295 => $295, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $28c, $28d);
|
|
3347
|
-
}
|
|
3348
|
-
}
|
|
3349
|
+
case 'quick': return $24c => $24d => Commands_quick($0, $1, $2, Commands_parseQuickArgs($3.a2), $24c, $24d);
|
|
3349
3350
|
case 'health': {
|
|
3350
|
-
return $
|
|
3351
|
+
return $257 => $258 => {
|
|
3351
3352
|
switch($3.a2.h) {
|
|
3352
|
-
case undefined: /* cons */ return Data_Promise_reject('The health command does not take any arguments.', $
|
|
3353
|
-
case 0: /* nil */ return Commands_health($0, $2, $
|
|
3354
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
3353
|
+
case undefined: /* cons */ return Data_Promise_reject('The health command does not take any arguments.', $257, $258);
|
|
3354
|
+
case 0: /* nil */ return Commands_health($0, $2, $257, $258);
|
|
3355
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $26a => $26a, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $257, $258);
|
|
3355
3356
|
}
|
|
3356
3357
|
};
|
|
3357
3358
|
}
|
|
3358
3359
|
case 'pr': {
|
|
3359
|
-
const $
|
|
3360
|
-
switch($
|
|
3361
|
-
case 1: /* Right */ return $
|
|
3362
|
-
case 0: /* Left */ return Main_exitError(csegen_74()(), $
|
|
3360
|
+
const $278 = Commands_parsePrArgs($3.a2);
|
|
3361
|
+
switch($278.h) {
|
|
3362
|
+
case 1: /* Right */ return $27b => $27c => Commands_pr($0, $1, $2, $278.a1, $27b, $27c);
|
|
3363
|
+
case 0: /* Left */ return Main_exitError(csegen_74()(), $278.a1);
|
|
3363
3364
|
}
|
|
3364
3365
|
}
|
|
3365
3366
|
case 'reflect': {
|
|
3366
|
-
return $
|
|
3367
|
+
return $289 => $28a => {
|
|
3367
3368
|
switch($3.a2.h) {
|
|
3368
|
-
case 0: /* nil */ return Commands_reflect($0, $2, $
|
|
3369
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
3369
|
+
case 0: /* nil */ return Commands_reflect($0, $2, $289, $28a);
|
|
3370
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $298 => $298, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $289, $28a);
|
|
3370
3371
|
}
|
|
3371
3372
|
};
|
|
3372
3373
|
}
|
|
3373
3374
|
case 'contribute': {
|
|
3374
|
-
const $
|
|
3375
|
-
switch($
|
|
3376
|
-
case 1: /* Right */ return $
|
|
3377
|
-
case 0: /* Left */ return Main_exitError(csegen_74()(), $
|
|
3375
|
+
const $2a6 = Commands_parseContributeArgs($3.a2);
|
|
3376
|
+
switch($2a6.h) {
|
|
3377
|
+
case 1: /* Right */ return $2a9 => $2aa => Commands_contribute($0, $1, $2, $2a6.a1, $2a9, $2aa);
|
|
3378
|
+
case 0: /* Left */ return Main_exitError(csegen_74()(), $2a6.a1);
|
|
3378
3379
|
}
|
|
3379
3380
|
}
|
|
3380
3381
|
case 'list': {
|
|
3381
|
-
return $
|
|
3382
|
+
return $2b7 => {
|
|
3382
3383
|
switch($3.a2.h) {
|
|
3383
|
-
case 0: /* nil */ return $
|
|
3384
|
+
case 0: /* nil */ return $2b9 => Commands_listOrgTeams($0, $2, $2b7, $2b9);
|
|
3384
3385
|
case undefined: /* cons */ {
|
|
3385
|
-
return $
|
|
3386
|
+
return $2bf => {
|
|
3386
3387
|
switch($3.a2.a2.h) {
|
|
3387
|
-
case 0: /* nil */ return Commands_list($0, $2, $3.a2.a1, $
|
|
3388
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
3388
|
+
case 0: /* nil */ return Commands_list($0, $2, $3.a2.a1, $2b7, $2bf);
|
|
3389
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $2ce => $2ce, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $2b7, $2bf);
|
|
3389
3390
|
}
|
|
3390
3391
|
};
|
|
3391
3392
|
}
|
|
3392
|
-
default: return $
|
|
3393
|
+
default: return $2dc => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $2e4 => $2e4, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $2b7, $2dc);
|
|
3393
3394
|
}
|
|
3394
3395
|
};
|
|
3395
3396
|
}
|
|
3396
3397
|
case 'graph': {
|
|
3397
|
-
const $
|
|
3398
|
-
switch($
|
|
3399
|
-
case 1: /* Right */ return Commands_graph($0, $2, $
|
|
3400
|
-
case 0: /* Left */ return Main_exitError(csegen_74()(), $
|
|
3398
|
+
const $2f2 = Commands_parseGraphArgs($3.a2);
|
|
3399
|
+
switch($2f2.h) {
|
|
3400
|
+
case 1: /* Right */ return Commands_graph($0, $2, $2f2.a1);
|
|
3401
|
+
case 0: /* Left */ return Main_exitError(csegen_74()(), $2f2.a1);
|
|
3401
3402
|
}
|
|
3402
3403
|
}
|
|
3403
3404
|
case 'rq': {
|
|
@@ -3423,18 +3424,18 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3423
3424
|
}
|
|
3424
3425
|
}
|
|
3425
3426
|
case 'label': {
|
|
3426
|
-
return $
|
|
3427
|
+
return $326 => $327 => {
|
|
3427
3428
|
switch($3.a2.h) {
|
|
3428
|
-
case 0: /* nil */ return Data_Promise_reject('The label command expects one or more labels as arguments.', $
|
|
3429
|
-
case undefined: /* cons */ return Commands_label($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2}, $
|
|
3430
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
3429
|
+
case 0: /* nil */ return Data_Promise_reject('The label command expects one or more labels as arguments.', $326, $327);
|
|
3430
|
+
case undefined: /* cons */ return Commands_label($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2}, $326, $327);
|
|
3431
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $33d => $33d, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $326, $327);
|
|
3431
3432
|
}
|
|
3432
3433
|
};
|
|
3433
3434
|
}
|
|
3434
|
-
default: return $
|
|
3435
|
+
default: return $34b => $34c => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $354 => $354, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $34b, $34c);
|
|
3435
3436
|
}
|
|
3436
3437
|
}
|
|
3437
|
-
default: return $
|
|
3438
|
+
default: return $362 => $363 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $36b => $36b, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $362, $363);
|
|
3438
3439
|
}
|
|
3439
3440
|
}
|
|
3440
3441
|
|
|
@@ -3506,10 +3507,10 @@ function Main_exitError($0, $1) {
|
|
|
3506
3507
|
/* Main.bashCompletion : HasIO io => String -> String -> String -> io () */
|
|
3507
3508
|
function Main_bashCompletion($0, $1, $2, $3) {
|
|
3508
3509
|
const $4 = BashCompletion_cmdOpts($1, $2, $3);
|
|
3509
|
-
const $9 = Prelude_Types_maybe(() =>
|
|
3510
|
+
const $9 = Prelude_Types_maybe(() => Main_n__8695_1303_ffiOpts($0, $3, $2, $1), () => $12 => $0.a1.a1.a2(undefined)({a1: $12}), $4);
|
|
3510
3511
|
const $26 = $27 => {
|
|
3511
3512
|
switch($27.h) {
|
|
3512
|
-
case 0: /* nothing */ return
|
|
3513
|
+
case 0: /* nothing */ return Main_n__8695_1302_configuredOpts($0, $3, $2, $1);
|
|
3513
3514
|
case undefined: /* just */ return $0.a1.a1.a2(undefined)($27.a1);
|
|
3514
3515
|
}
|
|
3515
3516
|
};
|
|
@@ -3517,18 +3518,18 @@ function Main_bashCompletion($0, $1, $2, $3) {
|
|
|
3517
3518
|
return $0.a1.a2(undefined)(undefined)($1c)($3f => $0.a2(undefined)($45 => Prelude_IO_prim__putStr(Data_String_fastUnlines($3f), $45)));
|
|
3518
3519
|
}
|
|
3519
3520
|
|
|
3520
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3521
|
-
function
|
|
3521
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4514:5068:writeOutput */
|
|
3522
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5068_writeOutput($0, $1, $2, $3) {
|
|
3522
3523
|
return Control_Monad_ST_modifySTRef($1, $7 => ($7+$2), $3);
|
|
3523
3524
|
}
|
|
3524
3525
|
|
|
3525
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3526
|
-
function
|
|
3526
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4514:5067:push */
|
|
3527
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5067_push($0, $1, $2, $3) {
|
|
3527
3528
|
return Control_Monad_ST_modifySTRef($1, $7 => ({a1: $2, a2: $7}), $3);
|
|
3528
3529
|
}
|
|
3529
3530
|
|
|
3530
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3531
|
-
function
|
|
3531
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4514:5066:pop */
|
|
3532
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5066_pop($0, $1, $2) {
|
|
3532
3533
|
const $9 = $a => $b => {
|
|
3533
3534
|
switch($a.h) {
|
|
3534
3535
|
case undefined: /* cons */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($f => ($1.value=$a.a2), $15 => $16 => ({a1: $a.a1}), $b);
|
|
@@ -3538,8 +3539,8 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5066_pop($0, $1,
|
|
|
3538
3539
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($5 => ($1.value), $9, $2);
|
|
3539
3540
|
}
|
|
3540
3541
|
|
|
3541
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3542
|
-
function
|
|
3542
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4514:5065:peek */
|
|
3543
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5065_peek($0, $1, $2) {
|
|
3543
3544
|
const $9 = $a => $b => {
|
|
3544
3545
|
switch($a.h) {
|
|
3545
3546
|
case undefined: /* cons */ return {a1: $a.a1};
|
|
@@ -3549,36 +3550,36 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5065_peek($0, $1
|
|
|
3549
3550
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($5 => ($1.value), $9, $2);
|
|
3550
3551
|
}
|
|
3551
3552
|
|
|
3552
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3553
|
-
function
|
|
3553
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4514:5064:go */
|
|
3554
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5064_go($0, $1, $2, $3, $4) {
|
|
3554
3555
|
switch($3.h) {
|
|
3555
3556
|
case 0: /* SEmpty */ return undefined;
|
|
3556
|
-
case 1: /* SChar */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($8 =>
|
|
3557
|
-
case 2: /* SText */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($1d =>
|
|
3558
|
-
case 3: /* SLine */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($30 =>
|
|
3557
|
+
case 1: /* SChar */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($8 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5068_writeOutput($0, $2, Data_String_singleton($3.a1), $8), $11 => $12 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5064_go($0, $1, $2, $3.a2(), $12), $4);
|
|
3558
|
+
case 2: /* SText */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($1d => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5068_writeOutput($0, $2, $3.a2, $1d), $24 => $25 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5064_go($0, $1, $2, $3.a3(), $25), $4);
|
|
3559
|
+
case 3: /* SLine */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($30 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5068_writeOutput($0, $2, (Data_String_singleton('\n')+Text_PrettyPrint_Prettyprinter_Doc_textSpaces($3.a1)), $30), $3d => $3e => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5064_go($0, $1, $2, $3.a2, $3e), $4);
|
|
3559
3560
|
case 4: /* SAnnPush */ {
|
|
3560
3561
|
const $4d = $4e => {
|
|
3561
3562
|
switch($4e.h) {
|
|
3562
3563
|
case undefined: /* just */ {
|
|
3563
3564
|
const $50 = Prelude_Types_List_tailRecAppend($3.a1, $4e.a1);
|
|
3564
|
-
return $54 => Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($57 =>
|
|
3565
|
+
return $54 => Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($57 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5067_push($0, $1, $50, $57), $5e => $5f => Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($62 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5068_writeOutput($0, $2, Control_ANSI_SGR_escapeSGR($50), $62), $6b => $6c => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5064_go($0, $1, $2, $3.a2, $6c), $5f), $54);
|
|
3565
3566
|
}
|
|
3566
3567
|
case 0: /* nothing */ return $75 => ($1.value={h: 0});
|
|
3567
3568
|
}
|
|
3568
3569
|
};
|
|
3569
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($48 =>
|
|
3570
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($48 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5065_peek($0, $1, $48), $4d, $4);
|
|
3570
3571
|
}
|
|
3571
3572
|
case 5: /* SAnnPop */ {
|
|
3572
3573
|
const $82 = _ => $83 => {
|
|
3573
3574
|
const $8b = $8c => $8d => {
|
|
3574
3575
|
switch($8c.h) {
|
|
3575
|
-
case undefined: /* just */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($91 =>
|
|
3576
|
+
case undefined: /* just */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($91 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5068_writeOutput($0, $2, Control_ANSI_SGR_escapeSGR({a1: {h: 0 /* Reset */}, a2: $8c.a1}), $91), $9c => $9d => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5064_go($0, $1, $2, $3.a1, $9d), $8d);
|
|
3576
3577
|
case 0: /* nothing */ return ($1.value={h: 0});
|
|
3577
3578
|
}
|
|
3578
3579
|
};
|
|
3579
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($86 =>
|
|
3580
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($86 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5065_peek($0, $1, $86), $8b, $83);
|
|
3580
3581
|
};
|
|
3581
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($7d =>
|
|
3582
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($7d => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5066_pop($0, $1, $7d), $82, $4);
|
|
3582
3583
|
}
|
|
3583
3584
|
}
|
|
3584
3585
|
}
|
|
@@ -3608,7 +3609,7 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString($0) {
|
|
|
3608
3609
|
};
|
|
3609
3610
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($28 => (styleStackRef.value), $2c, $25);
|
|
3610
3611
|
};
|
|
3611
|
-
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($1c =>
|
|
3612
|
+
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($1c => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5064_go($0, styleStackRef, outputRef, $0, $1c), $23, $19);
|
|
3612
3613
|
};
|
|
3613
3614
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($14 => Control_Monad_ST_newSTRef('', $14), $18, $11);
|
|
3614
3615
|
};
|
|
@@ -3696,9 +3697,9 @@ function Text_PrettyPrint_Prettyprinter_Doc_case__changesUponFlattening_4540($0,
|
|
|
3696
3697
|
}
|
|
3697
3698
|
}
|
|
3698
3699
|
|
|
3699
|
-
/* Text.PrettyPrint.Prettyprinter.Doc.
|
|
3700
|
-
function
|
|
3701
|
-
switch($2($3)($4)(
|
|
3700
|
+
/* Text.PrettyPrint.Prettyprinter.Doc.8985:8928:selectNicer */
|
|
3701
|
+
function Text_PrettyPrint_Prettyprinter_Doc_n__8985_8928_selectNicer($0, $1, $2, $3, $4, $5, $6) {
|
|
3702
|
+
switch($2($3)($4)(Text_PrettyPrint_Prettyprinter_Doc_n__8985_8927_initialIndentation($0, $1, $2, $6()))($5)) {
|
|
3702
3703
|
case 1: return $5;
|
|
3703
3704
|
case 0: return $6();
|
|
3704
3705
|
}
|
|
@@ -3861,7 +3862,7 @@ const Text_PrettyPrint_Prettyprinter_Doc_line = __lazy(function () {
|
|
|
3861
3862
|
|
|
3862
3863
|
/* Text.PrettyPrint.Prettyprinter.Doc.layoutWadlerLeijen : FittingPredicate ann -> PageWidth -> Doc ann -> SimpleDocStream ann */
|
|
3863
3864
|
function Text_PrettyPrint_Prettyprinter_Doc_layoutWadlerLeijen($0, $1, $2) {
|
|
3864
|
-
return
|
|
3865
|
+
return Text_PrettyPrint_Prettyprinter_Doc_n__8985_8926_best($2, $1, $0, 0, 0, {h: 1 /* Cons */, a1: 0, a2: $2, a3: {h: 0 /* Nil */}});
|
|
3865
3866
|
}
|
|
3866
3867
|
|
|
3867
3868
|
/* Text.PrettyPrint.Prettyprinter.Doc.layoutUnbounded : Doc ann -> SimpleDocStream ann */
|
|
@@ -4060,7 +4061,7 @@ function Data_String_Extra_drop($0, $1) {
|
|
|
4060
4061
|
}
|
|
4061
4062
|
|
|
4062
4063
|
/* Data.String.with block in parsePositive,parsePosTrimmed */
|
|
4063
|
-
function
|
|
4064
|
+
function Data_String_with__parsePositivex2cparsePosTrimmed_10197($0, $1, $2, $3, $4) {
|
|
4064
4065
|
switch($3) {
|
|
4065
4066
|
case '': {
|
|
4066
4067
|
switch($4.h) {
|
|
@@ -4115,7 +4116,7 @@ function Data_String_with__parsePositivex2cparsePosTrimmed_10057($0, $1, $2, $3,
|
|
|
4115
4116
|
}
|
|
4116
4117
|
|
|
4117
4118
|
/* Data.String.with block in asList */
|
|
4118
|
-
function
|
|
4119
|
+
function Data_String_with__asList_9840($0, $1) {
|
|
4119
4120
|
switch($0) {
|
|
4120
4121
|
case '': {
|
|
4121
4122
|
switch($1.h) {
|
|
@@ -4127,17 +4128,17 @@ function Data_String_with__asList_9700($0, $1) {
|
|
|
4127
4128
|
}
|
|
4128
4129
|
}
|
|
4129
4130
|
|
|
4130
|
-
/* Data.String.3856:
|
|
4131
|
-
function
|
|
4131
|
+
/* Data.String.3856:9572:unlines' */
|
|
4132
|
+
function Data_String_n__3856_9572_unlinesx27($0) {
|
|
4132
4133
|
switch($0.h) {
|
|
4133
4134
|
case 0: /* nil */ return {h: 0};
|
|
4134
|
-
case undefined: /* cons */ return {a1: $0.a1, a2: {a1: '\n', a2:
|
|
4135
|
+
case undefined: /* cons */ return {a1: $0.a1, a2: {a1: '\n', a2: Data_String_n__3856_9572_unlinesx27($0.a2)}};
|
|
4135
4136
|
}
|
|
4136
4137
|
}
|
|
4137
4138
|
|
|
4138
|
-
/* Data.String.4465:
|
|
4139
|
-
function
|
|
4140
|
-
return
|
|
4139
|
+
/* Data.String.4465:10191:parsePosTrimmed */
|
|
4140
|
+
function Data_String_n__4465_10191_parsePosTrimmed($0, $1, $2) {
|
|
4141
|
+
return Data_String_with__parsePositivex2cparsePosTrimmed_10197(undefined, $0, $2, $2, Data_String_strM($2));
|
|
4141
4142
|
}
|
|
4142
4143
|
|
|
4143
4144
|
/* Data.String.trim : String -> String */
|
|
@@ -4186,17 +4187,17 @@ function Data_String_replicate($0, $1) {
|
|
|
4186
4187
|
|
|
4187
4188
|
/* Data.String.parsePositive : Num a => String -> Maybe a */
|
|
4188
4189
|
function Data_String_parsePositive($0, $1) {
|
|
4189
|
-
return
|
|
4190
|
+
return Data_String_n__4465_10191_parsePosTrimmed($0, $1, Data_String_trim($1));
|
|
4190
4191
|
}
|
|
4191
4192
|
|
|
4192
4193
|
/* Data.String.ltrim : String -> String */
|
|
4193
4194
|
function Data_String_ltrim($0) {
|
|
4194
|
-
return
|
|
4195
|
+
return Data_String_with__ltrim_9864($0, Data_String_asList($0));
|
|
4195
4196
|
}
|
|
4196
4197
|
|
|
4197
4198
|
/* Data.String.lines' : List Char -> List (List Char) */
|
|
4198
4199
|
function Data_String_linesx27($0) {
|
|
4199
|
-
return
|
|
4200
|
+
return Data_String_n__3989_9702_linesHelp($0, {h: 0}, $0);
|
|
4200
4201
|
}
|
|
4201
4202
|
|
|
4202
4203
|
/* Data.String.lines : String -> List String */
|
|
@@ -4216,7 +4217,7 @@ function Data_String_isPrefixOf($0, $1) {
|
|
|
4216
4217
|
|
|
4217
4218
|
/* Data.String.fastUnlines : List String -> String */
|
|
4218
4219
|
function Data_String_fastUnlines($0) {
|
|
4219
|
-
return Prelude_Types_fastConcat(
|
|
4220
|
+
return Prelude_Types_fastConcat(Data_String_n__3856_9572_unlinesx27($0));
|
|
4220
4221
|
}
|
|
4221
4222
|
|
|
4222
4223
|
/* Data.String.break : (Char -> Bool) -> String -> (String, String) */
|
|
@@ -4232,7 +4233,7 @@ function Data_String_break$($0, $1) {
|
|
|
4232
4233
|
|
|
4233
4234
|
/* Data.String.asList : (str : String) -> AsList str */
|
|
4234
4235
|
function Data_String_asList($0) {
|
|
4235
|
-
return
|
|
4236
|
+
return Data_String_with__asList_9840($0, Data_String_strM($0));
|
|
4236
4237
|
}
|
|
4237
4238
|
|
|
4238
4239
|
/* Data.Fin.show */
|
|
@@ -4255,6 +4256,30 @@ function Data_Fin_natToFin($0, $1) {
|
|
|
4255
4256
|
}
|
|
4256
4257
|
}
|
|
4257
4258
|
|
|
4259
|
+
/* Data.Maybe.isNothing : Maybe a -> Bool */
|
|
4260
|
+
function Data_Maybe_isNothing($0) {
|
|
4261
|
+
switch($0.h) {
|
|
4262
|
+
case 0: /* nothing */ return 1;
|
|
4263
|
+
case undefined: /* just */ return 0;
|
|
4264
|
+
}
|
|
4265
|
+
}
|
|
4266
|
+
|
|
4267
|
+
/* Data.Maybe.isJust : Maybe a -> Bool */
|
|
4268
|
+
function Data_Maybe_isJust($0) {
|
|
4269
|
+
switch($0.h) {
|
|
4270
|
+
case 0: /* nothing */ return 0;
|
|
4271
|
+
case undefined: /* just */ return 1;
|
|
4272
|
+
}
|
|
4273
|
+
}
|
|
4274
|
+
|
|
4275
|
+
/* Data.Maybe.fromMaybe : Lazy a -> Maybe a -> a */
|
|
4276
|
+
function Data_Maybe_fromMaybe($0, $1) {
|
|
4277
|
+
switch($1.h) {
|
|
4278
|
+
case 0: /* nothing */ return $0();
|
|
4279
|
+
case undefined: /* just */ return $1.a1;
|
|
4280
|
+
}
|
|
4281
|
+
}
|
|
4282
|
+
|
|
4258
4283
|
/* Prelude.Uninhabited.void : (0 _ : Void) -> a */
|
|
4259
4284
|
const Prelude_Uninhabited_void$ = __lazy(function () {
|
|
4260
4285
|
_crashExp('No clauses in Prelude.Uninhabited.void');
|
|
@@ -5201,8 +5226,8 @@ function Prelude_Interfaces_x2ax3e($0, $1, $2) {
|
|
|
5201
5226
|
return $4($2);
|
|
5202
5227
|
}
|
|
5203
5228
|
|
|
5204
|
-
/* Prelude.Show.2434:
|
|
5205
|
-
function
|
|
5229
|
+
/* Prelude.Show.2434:11880:asciiTab */
|
|
5230
|
+
function Prelude_Show_n__2434_11880_asciiTab($0) {
|
|
5206
5231
|
return {a1: 'NUL', a2: {a1: 'SOH', a2: {a1: 'STX', a2: {a1: 'ETX', a2: {a1: 'EOT', a2: {a1: 'ENQ', a2: {a1: 'ACK', a2: {a1: 'BEL', a2: {a1: 'BS', a2: {a1: 'HT', a2: {a1: 'LF', a2: {a1: 'VT', a2: {a1: 'FF', a2: {a1: 'CR', a2: {a1: 'SO', a2: {a1: 'SI', a2: {a1: 'DLE', a2: {a1: 'DC1', a2: {a1: 'DC2', a2: {a1: 'DC3', a2: {a1: 'DC4', a2: {a1: 'NAK', a2: {a1: 'SYN', a2: {a1: 'ETB', a2: {a1: 'CAN', a2: {a1: 'EM', a2: {a1: 'SUB', a2: {a1: 'ESC', a2: {a1: 'FS', a2: {a1: 'GS', a2: {a1: 'RS', a2: {a1: 'US', a2: {h: 0}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}};
|
|
5207
5232
|
}
|
|
5208
5233
|
|
|
@@ -5246,7 +5271,7 @@ function Prelude_Show_show_Show_Bits32($0) {
|
|
|
5246
5271
|
|
|
5247
5272
|
/* Prelude.Show.show */
|
|
5248
5273
|
function Prelude_Show_show_Show_x28Listx20x24ax29($0, $1) {
|
|
5249
|
-
return ('['+(
|
|
5274
|
+
return ('['+(Prelude_Show_n__3215_12601_showx27($0, $1, '', $1)+']'));
|
|
5250
5275
|
}
|
|
5251
5276
|
|
|
5252
5277
|
/* Prelude.Show.showPrec */
|
|
@@ -5330,7 +5355,7 @@ function Prelude_Show_showLitChar($0) {
|
|
|
5330
5355
|
case '\u{5c}': return $23 => ('\u{5c}\u{5c}'+$23);
|
|
5331
5356
|
default: {
|
|
5332
5357
|
return $26 => {
|
|
5333
|
-
const $27 = Prelude_Types_getAt(Prelude_Types_prim__integerToNat(BigInt($0.codePointAt(0))),
|
|
5358
|
+
const $27 = Prelude_Types_getAt(Prelude_Types_prim__integerToNat(BigInt($0.codePointAt(0))), Prelude_Show_n__2434_11880_asciiTab($0));
|
|
5334
5359
|
switch($27.h) {
|
|
5335
5360
|
case undefined: /* just */ return ('\u{5c}'+($27.a1+$26));
|
|
5336
5361
|
case 0: /* nothing */ {
|
|
@@ -5532,30 +5557,6 @@ function Data_Nat_divx27($0, $1, $2) {
|
|
|
5532
5557
|
}
|
|
5533
5558
|
}
|
|
5534
5559
|
|
|
5535
|
-
/* Data.Maybe.isNothing : Maybe a -> Bool */
|
|
5536
|
-
function Data_Maybe_isNothing($0) {
|
|
5537
|
-
switch($0.h) {
|
|
5538
|
-
case 0: /* nothing */ return 1;
|
|
5539
|
-
case undefined: /* just */ return 0;
|
|
5540
|
-
}
|
|
5541
|
-
}
|
|
5542
|
-
|
|
5543
|
-
/* Data.Maybe.isJust : Maybe a -> Bool */
|
|
5544
|
-
function Data_Maybe_isJust($0) {
|
|
5545
|
-
switch($0.h) {
|
|
5546
|
-
case 0: /* nothing */ return 0;
|
|
5547
|
-
case undefined: /* just */ return 1;
|
|
5548
|
-
}
|
|
5549
|
-
}
|
|
5550
|
-
|
|
5551
|
-
/* Data.Maybe.fromMaybe : Lazy a -> Maybe a -> a */
|
|
5552
|
-
function Data_Maybe_fromMaybe($0, $1) {
|
|
5553
|
-
switch($1.h) {
|
|
5554
|
-
case 0: /* nothing */ return $0();
|
|
5555
|
-
case undefined: /* just */ return $1.a1;
|
|
5556
|
-
}
|
|
5557
|
-
}
|
|
5558
|
-
|
|
5559
5560
|
/* Data.List1.map */
|
|
5560
5561
|
function Data_List1_map_Functor_List1($0, $1) {
|
|
5561
5562
|
return {a1: $0($1.a1), a2: Prelude_Types_List_mapAppend({h: 0}, $0, $1.a2)};
|
|
@@ -5576,17 +5577,17 @@ function Data_List1_last($0) {
|
|
|
5576
5577
|
return Data_List1_n__3044_2644_loop($0.a1, $0.a2, $0.a1, $0.a2);
|
|
5577
5578
|
}
|
|
5578
5579
|
|
|
5579
|
-
/* Data.List.
|
|
5580
|
-
function
|
|
5581
|
-
return
|
|
5580
|
+
/* Data.List.7787:8508:split */
|
|
5581
|
+
function Data_List_n__7787_8508_split($0, $1, $2) {
|
|
5582
|
+
return Data_List_n__7787_8509_splitRec($0, $1, $2, $2, $9 => $9);
|
|
5582
5583
|
}
|
|
5583
5584
|
|
|
5584
|
-
/* Data.List.
|
|
5585
|
-
function
|
|
5585
|
+
/* Data.List.8493:9196:go */
|
|
5586
|
+
function Data_List_n__8493_9196_go($0, $1, $2, $3, $4) {
|
|
5586
5587
|
switch($4.h) {
|
|
5587
5588
|
case 0: /* nil */ return {a1: Data_List1_singleton($3), a2: {h: 0}};
|
|
5588
5589
|
case undefined: /* cons */ {
|
|
5589
|
-
const $a =
|
|
5590
|
+
const $a = Data_List_n__8493_9196_go($0, $1, $2, $4.a1, $4.a2);
|
|
5590
5591
|
switch($2($3)($4.a1)) {
|
|
5591
5592
|
case 1: return {a1: {a1: $3, a2: $a.a1}, a2: $a.a2};
|
|
5592
5593
|
case 0: return {a1: Data_List1_singleton($3), a2: {a1: $a.a1, a2: $a.a2}};
|
|
@@ -5676,13 +5677,13 @@ function Data_List_sortBy($0, $1) {
|
|
|
5676
5677
|
switch($1.a2.h) {
|
|
5677
5678
|
case 0: /* nil */ return {a1: $1.a1, a2: {h: 0}};
|
|
5678
5679
|
default: {
|
|
5679
|
-
const $6 =
|
|
5680
|
+
const $6 = Data_List_n__7787_8508_split($1, $0, $1);
|
|
5680
5681
|
return Data_List_mergeBy($0, Data_List_sortBy($0, $6.a1), Data_List_sortBy($0, $6.a2));
|
|
5681
5682
|
}
|
|
5682
5683
|
}
|
|
5683
5684
|
}
|
|
5684
5685
|
default: {
|
|
5685
|
-
const $15 =
|
|
5686
|
+
const $15 = Data_List_n__7787_8508_split($1, $0, $1);
|
|
5686
5687
|
return Data_List_mergeBy($0, Data_List_sortBy($0, $15.a1), Data_List_sortBy($0, $15.a2));
|
|
5687
5688
|
}
|
|
5688
5689
|
}
|
|
@@ -5725,7 +5726,7 @@ function Data_List_partition($0, $1) {
|
|
|
5725
5726
|
|
|
5726
5727
|
/* Data.List.nubBy : (a -> a -> Bool) -> List a -> List a */
|
|
5727
5728
|
function Data_List_nubBy($0, $1) {
|
|
5728
|
-
return
|
|
5729
|
+
return Data_List_n__4934_5733_nubByx27({h: 0}, $0, $1);
|
|
5729
5730
|
}
|
|
5730
5731
|
|
|
5731
5732
|
/* Data.List.nub : Eq a => List a -> List a */
|
|
@@ -5802,7 +5803,7 @@ function Data_List_groupBy($0, $1) {
|
|
|
5802
5803
|
switch($1.h) {
|
|
5803
5804
|
case 0: /* nil */ return {h: 0};
|
|
5804
5805
|
case undefined: /* cons */ {
|
|
5805
|
-
const $3 =
|
|
5806
|
+
const $3 = Data_List_n__8493_9196_go($1.a1, $1.a2, $0, $1.a1, $1.a2);
|
|
5806
5807
|
return {a1: $3.a1, a2: $3.a2};
|
|
5807
5808
|
}
|
|
5808
5809
|
}
|
|
@@ -5977,7 +5978,7 @@ const ZshCompletion_script = __lazy(function () {
|
|
|
5977
5978
|
});
|
|
5978
5979
|
|
|
5979
5980
|
/* BashCompletion.case block in case block in unhashify */
|
|
5980
|
-
function
|
|
5981
|
+
function BashCompletion_case__casex20blockx20inx20unhashify_13171($0, $1, $2) {
|
|
5981
5982
|
switch($0) {
|
|
5982
5983
|
case '': {
|
|
5983
5984
|
switch($2.h) {
|
|
@@ -6000,7 +6001,7 @@ function BashCompletion_case__casex20blockx20inx20unhashify_10889($0, $1, $2) {
|
|
|
6000
6001
|
}
|
|
6001
6002
|
|
|
6002
6003
|
/* BashCompletion.case block in unhashify */
|
|
6003
|
-
function
|
|
6004
|
+
function BashCompletion_case__unhashify_13151($0, $1) {
|
|
6004
6005
|
switch($0) {
|
|
6005
6006
|
case '': {
|
|
6006
6007
|
switch($1.h) {
|
|
@@ -6010,7 +6011,7 @@ function BashCompletion_case__unhashify_10869($0, $1) {
|
|
|
6010
6011
|
case '#': return $1.a2;
|
|
6011
6012
|
case '\u{5c}': {
|
|
6012
6013
|
const $6 = ('\u{5c}'+$1.a2);
|
|
6013
|
-
return
|
|
6014
|
+
return BashCompletion_case__casex20blockx20inx20unhashify_13171($1.a2, $6, Data_String_strM($1.a2));
|
|
6014
6015
|
}
|
|
6015
6016
|
default: return $0;
|
|
6016
6017
|
}
|
|
@@ -6022,7 +6023,7 @@ function BashCompletion_case__unhashify_10869($0, $1) {
|
|
|
6022
6023
|
case '#': return $1.a2;
|
|
6023
6024
|
case '\u{5c}': {
|
|
6024
6025
|
const $11 = ('\u{5c}'+$1.a2);
|
|
6025
|
-
return
|
|
6026
|
+
return BashCompletion_case__casex20blockx20inx20unhashify_13171($1.a2, $11, Data_String_strM($1.a2));
|
|
6026
6027
|
}
|
|
6027
6028
|
default: return $0;
|
|
6028
6029
|
}
|
|
@@ -6030,8 +6031,8 @@ function BashCompletion_case__unhashify_10869($0, $1) {
|
|
|
6030
6031
|
}
|
|
6031
6032
|
}
|
|
6032
6033
|
|
|
6033
|
-
/* BashCompletion.
|
|
6034
|
-
function
|
|
6034
|
+
/* BashCompletion.5303:13978:slugsOrLoginsOrLabels */
|
|
6035
|
+
function BashCompletion_n__5303_13978_slugsOrLoginsOrLabels($0, $1) {
|
|
6035
6036
|
switch(Data_String_isPrefixOf('+', $0)) {
|
|
6036
6037
|
case 1: return Prelude_Types_List_mapAppend({h: 0}, $9 => ('+'+$9), $1.a12);
|
|
6037
6038
|
case 0: {
|
|
@@ -6050,7 +6051,7 @@ function BashCompletion_unslugify($0) {
|
|
|
6050
6051
|
|
|
6051
6052
|
/* BashCompletion.unhashify : String -> String */
|
|
6052
6053
|
function BashCompletion_unhashify($0) {
|
|
6053
|
-
return
|
|
6054
|
+
return BashCompletion_case__unhashify_13151($0, Data_String_strM($0));
|
|
6054
6055
|
}
|
|
6055
6056
|
|
|
6056
6057
|
/* BashCompletion.slugify : String -> String */
|
|
@@ -6067,7 +6068,7 @@ const BashCompletion_script = __lazy(function () {
|
|
|
6067
6068
|
function BashCompletion_optsForRequestCmd($0, $1) {
|
|
6068
6069
|
switch(Data_String_isPrefixOf($1, '--dry')) {
|
|
6069
6070
|
case 1: return {a1: '--dry', a2: {h: 0}};
|
|
6070
|
-
case 0: return
|
|
6071
|
+
case 0: return BashCompletion_n__5303_13978_slugsOrLoginsOrLabels($1, $0);
|
|
6071
6072
|
}
|
|
6072
6073
|
}
|
|
6073
6074
|
|
|
@@ -6279,7 +6280,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6279
6280
|
case 'quick': {
|
|
6280
6281
|
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6281
6282
|
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6282
|
-
case 0:
|
|
6283
|
+
case 0: {
|
|
6284
|
+
switch(Data_String_isPrefixOf($1, '--bugfix')) {
|
|
6285
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6286
|
+
case 0: return {a1: {h: 0}};
|
|
6287
|
+
}
|
|
6288
|
+
}
|
|
6283
6289
|
}
|
|
6284
6290
|
}
|
|
6285
6291
|
default: return {h: 0};
|
|
@@ -6295,7 +6301,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6295
6301
|
case 'quick': {
|
|
6296
6302
|
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6297
6303
|
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6298
|
-
case 0:
|
|
6304
|
+
case 0: {
|
|
6305
|
+
switch(Data_String_isPrefixOf($1, '--bugfix')) {
|
|
6306
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6307
|
+
case 0: return {a1: {h: 0}};
|
|
6308
|
+
}
|
|
6309
|
+
}
|
|
6299
6310
|
}
|
|
6300
6311
|
}
|
|
6301
6312
|
default: return {h: 0};
|
|
@@ -6308,7 +6319,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6308
6319
|
case 'quick': {
|
|
6309
6320
|
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6310
6321
|
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6311
|
-
case 0:
|
|
6322
|
+
case 0: {
|
|
6323
|
+
switch(Data_String_isPrefixOf($1, '--bugfix')) {
|
|
6324
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6325
|
+
case 0: return {a1: {h: 0}};
|
|
6326
|
+
}
|
|
6327
|
+
}
|
|
6312
6328
|
}
|
|
6313
6329
|
}
|
|
6314
6330
|
default: return {h: 0};
|
|
@@ -6454,7 +6470,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6454
6470
|
}
|
|
6455
6471
|
default: {
|
|
6456
6472
|
switch($2) {
|
|
6457
|
-
case 'harmony': return {a1: Prelude_Types_List_filterAppend({h: 0}, $
|
|
6473
|
+
case 'harmony': return {a1: Prelude_Types_List_filterAppend({h: 0}, $df => Data_String_isPrefixOf($1, $df), BashCompletion_allRootCmds())};
|
|
6458
6474
|
default: {
|
|
6459
6475
|
switch($0) {
|
|
6460
6476
|
case 'sync': return {a1: {h: 0}};
|
|
@@ -6469,7 +6485,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6469
6485
|
case 'help': return {a1: BashCompletion_allRootCmds()};
|
|
6470
6486
|
default: {
|
|
6471
6487
|
switch($2) {
|
|
6472
|
-
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $
|
|
6488
|
+
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $f4 => Data_String_isPrefixOf($1, $f4), BashCompletion_allRootCmds())};
|
|
6473
6489
|
default: return {h: 0};
|
|
6474
6490
|
}
|
|
6475
6491
|
}
|
|
@@ -6477,7 +6493,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6477
6493
|
}
|
|
6478
6494
|
default: {
|
|
6479
6495
|
switch($2) {
|
|
6480
|
-
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $
|
|
6496
|
+
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $ff => Data_String_isPrefixOf($1, $ff), BashCompletion_allRootCmds())};
|
|
6481
6497
|
default: return {h: 0};
|
|
6482
6498
|
}
|
|
6483
6499
|
}
|
|
@@ -6493,7 +6509,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6493
6509
|
case 'quick': {
|
|
6494
6510
|
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6495
6511
|
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6496
|
-
case 0:
|
|
6512
|
+
case 0: {
|
|
6513
|
+
switch(Data_String_isPrefixOf($1, '--bugfix')) {
|
|
6514
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6515
|
+
case 0: return {a1: {h: 0}};
|
|
6516
|
+
}
|
|
6517
|
+
}
|
|
6497
6518
|
}
|
|
6498
6519
|
}
|
|
6499
6520
|
default: return {h: 0};
|
|
@@ -6509,7 +6530,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6509
6530
|
case 'quick': {
|
|
6510
6531
|
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6511
6532
|
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6512
|
-
case 0:
|
|
6533
|
+
case 0: {
|
|
6534
|
+
switch(Data_String_isPrefixOf($1, '--bugfix')) {
|
|
6535
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6536
|
+
case 0: return {a1: {h: 0}};
|
|
6537
|
+
}
|
|
6538
|
+
}
|
|
6513
6539
|
}
|
|
6514
6540
|
}
|
|
6515
6541
|
default: return {h: 0};
|
|
@@ -6522,7 +6548,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6522
6548
|
case 'quick': {
|
|
6523
6549
|
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6524
6550
|
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6525
|
-
case 0:
|
|
6551
|
+
case 0: {
|
|
6552
|
+
switch(Data_String_isPrefixOf($1, '--bugfix')) {
|
|
6553
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6554
|
+
case 0: return {a1: {h: 0}};
|
|
6555
|
+
}
|
|
6556
|
+
}
|
|
6526
6557
|
}
|
|
6527
6558
|
}
|
|
6528
6559
|
default: return {h: 0};
|
|
@@ -6673,7 +6704,7 @@ const BashCompletion_allRootCmds = __lazy(function () {
|
|
|
6673
6704
|
});
|
|
6674
6705
|
|
|
6675
6706
|
/* FFI.Git.case block in unpushedCommits */
|
|
6676
|
-
function
|
|
6707
|
+
function FFI_Git_case__unpushedCommits_12925($0, $1, $2) {
|
|
6677
6708
|
switch($1) {
|
|
6678
6709
|
case '': {
|
|
6679
6710
|
switch($2.h) {
|
|
@@ -6686,7 +6717,7 @@ function FFI_Git_case__unpushedCommits_10643($0, $1, $2) {
|
|
|
6686
6717
|
}
|
|
6687
6718
|
|
|
6688
6719
|
/* FFI.Git.case block in stagedChanges */
|
|
6689
|
-
function
|
|
6720
|
+
function FFI_Git_case__stagedChanges_12860($0, $1, $2) {
|
|
6690
6721
|
switch($1) {
|
|
6691
6722
|
case '': {
|
|
6692
6723
|
switch($2.h) {
|
|
@@ -6699,7 +6730,7 @@ function FFI_Git_case__stagedChanges_10578($0, $1, $2) {
|
|
|
6699
6730
|
}
|
|
6700
6731
|
|
|
6701
6732
|
/* FFI.Git.case block in uncommittedChanges */
|
|
6702
|
-
function
|
|
6733
|
+
function FFI_Git_case__uncommittedChanges_12795($0, $1, $2) {
|
|
6703
6734
|
switch($1) {
|
|
6704
6735
|
case '': {
|
|
6705
6736
|
switch($2.h) {
|
|
@@ -6712,7 +6743,7 @@ function FFI_Git_case__uncommittedChanges_10513($0, $1, $2) {
|
|
|
6712
6743
|
}
|
|
6713
6744
|
|
|
6714
6745
|
/* FFI.Git.case block in remoteTrackingBranch */
|
|
6715
|
-
function
|
|
6746
|
+
function FFI_Git_case__remoteTrackingBranch_12730($0, $1, $2) {
|
|
6716
6747
|
switch($1) {
|
|
6717
6748
|
case '': {
|
|
6718
6749
|
switch($2.h) {
|
|
@@ -6731,17 +6762,17 @@ function FFI_Git_userEmail($0, $1, $2) {
|
|
|
6731
6762
|
|
|
6732
6763
|
/* FFI.Git.unpushedCommits : Git => Promise' (Maybe String) */
|
|
6733
6764
|
function FFI_Git_unpushedCommits($0, $1, $2) {
|
|
6734
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__unpushedCommits($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(
|
|
6765
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__unpushedCommits($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(FFI_Git_case__unpushedCommits_12925($0, str, Data_String_strM(str)), $14, $15), $1, $2);
|
|
6735
6766
|
}
|
|
6736
6767
|
|
|
6737
6768
|
/* FFI.Git.uncommittedChanges : Git => Promise' (Maybe String) */
|
|
6738
6769
|
function FFI_Git_uncommittedChanges($0, $1, $2) {
|
|
6739
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__uncommittedChanges($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(
|
|
6770
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__uncommittedChanges($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(FFI_Git_case__uncommittedChanges_12795($0, str, Data_String_strM(str)), $14, $15), $1, $2);
|
|
6740
6771
|
}
|
|
6741
6772
|
|
|
6742
6773
|
/* FFI.Git.stagedChanges : Git => Promise' (Maybe String) */
|
|
6743
6774
|
function FFI_Git_stagedChanges($0, $1, $2) {
|
|
6744
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__stagedChanges($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(
|
|
6775
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__stagedChanges($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(FFI_Git_case__stagedChanges_12860($0, str, Data_String_strM(str)), $14, $15), $1, $2);
|
|
6745
6776
|
}
|
|
6746
6777
|
|
|
6747
6778
|
/* FFI.Git.rootDir : Git => Promise' String */
|
|
@@ -6756,7 +6787,7 @@ function FFI_Git_remoteURI($0, $1, $2, $3) {
|
|
|
6756
6787
|
|
|
6757
6788
|
/* FFI.Git.remoteTrackingBranch : Git => Promise' (Maybe String) */
|
|
6758
6789
|
function FFI_Git_remoteTrackingBranch($0, $1, $2) {
|
|
6759
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__remoteTrackingBranch($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(
|
|
6790
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__remoteTrackingBranch($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(FFI_Git_case__remoteTrackingBranch_12730($0, str, Data_String_strM(str)), $14, $15), $1, $2);
|
|
6760
6791
|
}
|
|
6761
6792
|
|
|
6762
6793
|
/* FFI.Git.pushNewBranch : Git => String -> String -> Promise' () */
|
|
@@ -6926,13 +6957,13 @@ function Data_Promise_bind($0, $1, $2, $3) {
|
|
|
6926
6957
|
return $4($3);
|
|
6927
6958
|
}
|
|
6928
6959
|
|
|
6929
|
-
/* Data.Config.
|
|
6930
|
-
function
|
|
6960
|
+
/* Data.Config.9658:7042:personalAccessToken */
|
|
6961
|
+
function Data_Config_n__9658_7042_personalAccessToken($0) {
|
|
6931
6962
|
return Prelude_Types_maybe(() => 'Not set (will use $GITHUB_PAT or $GH_TOKEN environment variable)', () => $4 => Data_Config_show_Show_x28Hiddenx20x24ax29($4), $0.a14);
|
|
6932
6963
|
}
|
|
6933
6964
|
|
|
6934
|
-
/* Data.Config.
|
|
6935
|
-
function
|
|
6965
|
+
/* Data.Config.10214:7588:parseConfigJson */
|
|
6966
|
+
function Data_Config_n__10214_7588_parseConfigJson($0, $1) {
|
|
6936
6967
|
switch($1.h) {
|
|
6937
6968
|
case 6: /* JObject */ {
|
|
6938
6969
|
const $20 = $21 => {
|
|
@@ -7000,7 +7031,7 @@ function Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($0) {
|
|
|
7000
7031
|
|
|
7001
7032
|
/* Data.Config.show */
|
|
7002
7033
|
function Data_Config_show_Show_Config($0) {
|
|
7003
|
-
return Data_String_fastUnlines({a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $9 => $9, {a1: ' updatedAt: ', a2: {a1: Prelude_Show_show_Show_Bits32($0.a1), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $19 => $19, {a1: ' theme: ', a2: {a1: Data_Theme_show_Show_Theme($0.a15), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $29 => $29, {a1: ' org or user: ', a2: {a1: Prelude_Show_show_Show_String($0.a2), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $39 => $39, {a1: ' repo: ', a2: {a1: Prelude_Show_show_Show_String($0.a3), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $49 => $49, {a1: ' defaultRemote: ', a2: {a1: Prelude_Show_show_Show_String($0.a4), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $59 => $59, {a1: ' mainBranch: ', a2: {a1: Prelude_Show_show_Show_String($0.a5), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $69 => $69, {a1: ' requestTeams: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a6), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $79 => $79, {a1: ' requestUsers: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a7), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $89 => $89, {a1: 'commentOnRequest: ', a2: {a1: Data_Config_CommentStrategy_show_Show_CommentStrategy($0.a8), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $99 => $99, {a1: ' branchParsing: ', a2: {a1: Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($0.a9), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $a9 => $a9, {a1: ' teamSlugs: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $0.a10), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $bb => $bb, {a1: ' repoLabels: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $0.a11), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $cd => $cd, {a1: ' orgMembers: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $0.a12), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $df => $df, {a1: ' ignoredPRs: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29({a1: x => Prelude_Show_show_Show_Integer(x), a2: d => x => Prelude_Show_showPrec_Show_Integer(d, x)}, $0.a13), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $f7 => $f7, {a1: ' githubPAT: ', a2: {a1:
|
|
7034
|
+
return Data_String_fastUnlines({a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $9 => $9, {a1: ' updatedAt: ', a2: {a1: Prelude_Show_show_Show_Bits32($0.a1), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $19 => $19, {a1: ' theme: ', a2: {a1: Data_Theme_show_Show_Theme($0.a15), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $29 => $29, {a1: ' org or user: ', a2: {a1: Prelude_Show_show_Show_String($0.a2), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $39 => $39, {a1: ' repo: ', a2: {a1: Prelude_Show_show_Show_String($0.a3), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $49 => $49, {a1: ' defaultRemote: ', a2: {a1: Prelude_Show_show_Show_String($0.a4), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $59 => $59, {a1: ' mainBranch: ', a2: {a1: Prelude_Show_show_Show_String($0.a5), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $69 => $69, {a1: ' requestTeams: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a6), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $79 => $79, {a1: ' requestUsers: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a7), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $89 => $89, {a1: 'commentOnRequest: ', a2: {a1: Data_Config_CommentStrategy_show_Show_CommentStrategy($0.a8), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $99 => $99, {a1: ' branchParsing: ', a2: {a1: Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($0.a9), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $a9 => $a9, {a1: ' teamSlugs: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $0.a10), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $bb => $bb, {a1: ' repoLabels: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $0.a11), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $cd => $cd, {a1: ' orgMembers: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $0.a12), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $df => $df, {a1: ' ignoredPRs: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29({a1: x => Prelude_Show_show_Show_Integer(x), a2: d => x => Prelude_Show_showPrec_Show_Integer(d, x)}, $0.a13), a2: {h: 0}}}), a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $f7 => $f7, {a1: ' githubPAT: ', a2: {a1: Data_Config_n__9658_7042_personalAccessToken($0), a2: {h: 0}}}), a2: {h: 0}}}}}}}}}}}}}}}});
|
|
7004
7035
|
}
|
|
7005
7036
|
|
|
7006
7037
|
/* Data.Config.CommentStrategy.show */
|
|
@@ -7087,7 +7118,7 @@ function Data_Config_propHelpx27($0) {
|
|
|
7087
7118
|
|
|
7088
7119
|
/* Data.Config.parseConfig : Ephemeral -> String -> Either String Config */
|
|
7089
7120
|
function Data_Config_parseConfig($0, $1) {
|
|
7090
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_227(), csegen_228(), $8 =>
|
|
7121
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_227(), csegen_228(), $8 => Data_Config_n__10214_7588_parseConfigJson($0, $8), $1);
|
|
7091
7122
|
}
|
|
7092
7123
|
|
|
7093
7124
|
/* Data.Config.CommentStrategy.parseCommentConfig : String -> Maybe CommentStrategy */
|
|
@@ -7144,8 +7175,8 @@ function Data_Config_boolToCommentConfig($0) {
|
|
|
7144
7175
|
}
|
|
7145
7176
|
}
|
|
7146
7177
|
|
|
7147
|
-
/* Language.JSON.Accessors.
|
|
7148
|
-
function
|
|
7178
|
+
/* Language.JSON.Accessors.6303:18297:lookup' */
|
|
7179
|
+
function Language_JSON_Accessors_n__6303_18297_lookupx27($0, $1, $2, $3, $4) {
|
|
7149
7180
|
return Data_Either_maybeToEither(() => Prelude_Types_foldMap_Foldable_List(csegen_51()(), $c => $c, {a1: 'Missing required key: ', a2: {a1: $3, a2: {a1: '.', a2: {h: 0}}}}), Data_List_lookup(csegen_40(), $3, $4));
|
|
7150
7181
|
}
|
|
7151
7182
|
|
|
@@ -7201,7 +7232,7 @@ function Language_JSON_Accessors_lookupAll($0, $1) {
|
|
|
7201
7232
|
switch($0.h) {
|
|
7202
7233
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
7203
7234
|
case undefined: /* cons */ {
|
|
7204
|
-
const $4 =
|
|
7235
|
+
const $4 = Language_JSON_Accessors_n__6303_18297_lookupx27($0.a1, $0.a2, $1, $0.a1, $1);
|
|
7205
7236
|
switch($4.h) {
|
|
7206
7237
|
case 1: /* Right */ {
|
|
7207
7238
|
const $b = Language_JSON_Accessors_lookupAll($0.a2, $1);
|
|
@@ -7252,7 +7283,7 @@ function Language_JSON_Accessors_access($0, $1, $2, $3) {
|
|
|
7252
7283
|
}
|
|
7253
7284
|
|
|
7254
7285
|
/* JSON.Parser.case block in case block in parseJSON */
|
|
7255
|
-
function
|
|
7286
|
+
function JSON_Parser_case__casex20blockx20inx20parseJSON_23279($0, $1, $2, $3) {
|
|
7256
7287
|
switch($3.h) {
|
|
7257
7288
|
case 1: /* Fail0 */ return {h: 0 /* Left */, a1: Text_ParseError_toParseError($1, $0, $3.a1)};
|
|
7258
7289
|
case 0: /* Succ0 */ {
|
|
@@ -7280,9 +7311,9 @@ function JSON_Parser_case__casex20blockx20inx20parseJSON_20997($0, $1, $2, $3) {
|
|
|
7280
7311
|
}
|
|
7281
7312
|
|
|
7282
7313
|
/* JSON.Parser.case block in parseJSON */
|
|
7283
|
-
function
|
|
7314
|
+
function JSON_Parser_case__parseJSON_23259($0, $1, $2) {
|
|
7284
7315
|
switch($2.h) {
|
|
7285
|
-
case 1: /* Right */ return
|
|
7316
|
+
case 1: /* Right */ return JSON_Parser_case__casex20blockx20inx20parseJSON_23279($0, $1, $2.a1, JSON_Parser_value($2.a1));
|
|
7286
7317
|
case 0: /* Left */ return {h: 0 /* Left */, a1: Text_ParseError_toParseError($1, $0, $2.a1)};
|
|
7287
7318
|
}
|
|
7288
7319
|
}
|
|
@@ -7545,7 +7576,7 @@ function JSON_Parser_showImpl($0) {
|
|
|
7545
7576
|
|
|
7546
7577
|
/* JSON.Parser.parseJSON : Origin -> String -> Either (ParseError Void) JSON */
|
|
7547
7578
|
function JSON_Parser_parseJSON($0, $1) {
|
|
7548
|
-
return
|
|
7579
|
+
return JSON_Parser_case__parseJSON_23259($1, $0, JSON_Parser_lexJSON($1));
|
|
7549
7580
|
}
|
|
7550
7581
|
|
|
7551
7582
|
/* JSON.Parser.numberToken : SnocList Char -> JSToken */
|
|
@@ -8453,37 +8484,37 @@ function FFI_Term_termCols($0) {
|
|
|
8453
8484
|
}
|
|
8454
8485
|
}
|
|
8455
8486
|
|
|
8456
|
-
/* FFI.GitHub.
|
|
8457
|
-
function
|
|
8487
|
+
/* FFI.GitHub.6769:18487:unexpectedPayload */
|
|
8488
|
+
function FFI_GitHub_n__6769_18487_unexpectedPayload($0, $1) {
|
|
8458
8489
|
return FFI_GitHub_internalError(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $9 => $9, {a1: 'Unexpected error JSON: ', a2: {a1: $0, a2: {h: 0}}}));
|
|
8459
8490
|
}
|
|
8460
8491
|
|
|
8461
|
-
/* FFI.GitHub.
|
|
8462
|
-
function
|
|
8492
|
+
/* FFI.GitHub.6769:18486:parse */
|
|
8493
|
+
function FFI_GitHub_n__6769_18486_parse($0, $1) {
|
|
8463
8494
|
switch($1.h) {
|
|
8464
8495
|
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}}))));
|
|
8465
8496
|
default: return {h: 0 /* Left */, a1: 'Expected an Object containing error and status keys'};
|
|
8466
8497
|
}
|
|
8467
8498
|
}
|
|
8468
8499
|
|
|
8469
|
-
/* FFI.GitHub.
|
|
8470
|
-
function
|
|
8500
|
+
/* FFI.GitHub.8254:20015:errString */
|
|
8501
|
+
function FFI_GitHub_n__8254_20015_errString($0, $1) {
|
|
8471
8502
|
switch($1.h) {
|
|
8472
8503
|
case 0: /* nothing */ return 'You can only use teams with repositories belonging to GitHub organizations';
|
|
8473
8504
|
case undefined: /* just */ return $1.a1;
|
|
8474
8505
|
}
|
|
8475
8506
|
}
|
|
8476
8507
|
|
|
8477
|
-
/* FFI.GitHub.
|
|
8478
|
-
function
|
|
8508
|
+
/* FFI.GitHub.7165:18911:errString */
|
|
8509
|
+
function FFI_GitHub_n__7165_18911_errString($0, $1) {
|
|
8479
8510
|
switch($1.h) {
|
|
8480
8511
|
case 0: /* nothing */ return 'You can only list teams for repositories belonging to GitHub organizations';
|
|
8481
8512
|
case undefined: /* just */ return $1.a1;
|
|
8482
8513
|
}
|
|
8483
8514
|
}
|
|
8484
8515
|
|
|
8485
|
-
/* FFI.GitHub.
|
|
8486
|
-
function
|
|
8516
|
+
/* FFI.GitHub.6902:18620:errMsg */
|
|
8517
|
+
function FFI_GitHub_n__6902_18620_errMsg($0) {
|
|
8487
8518
|
return Prelude_Types_either(() => csegen_318()(), () => csegen_318()(), $0);
|
|
8488
8519
|
}
|
|
8489
8520
|
|
|
@@ -8527,7 +8558,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
8527
8558
|
let $2;
|
|
8528
8559
|
switch($3.h) {
|
|
8529
8560
|
case 0: /* Left */ {
|
|
8530
|
-
$2 = {h: 0 /* Left */, a1:
|
|
8561
|
+
$2 = {h: 0 /* Left */, a1: FFI_GitHub_n__6769_18487_unexpectedPayload($0, $3.a1)};
|
|
8531
8562
|
break;
|
|
8532
8563
|
}
|
|
8533
8564
|
case 1: /* Right */ {
|
|
@@ -8536,7 +8567,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
8536
8567
|
}
|
|
8537
8568
|
}
|
|
8538
8569
|
const $c = json => {
|
|
8539
|
-
const $d =
|
|
8570
|
+
const $d = FFI_GitHub_n__6769_18486_parse($0, json);
|
|
8540
8571
|
switch($d.h) {
|
|
8541
8572
|
case 0: /* Left */ return {h: 0 /* Left */, a1: FFI_GitHub_internalError($d.a1)};
|
|
8542
8573
|
case 1: /* Right */ return {h: 1 /* Right */, a1: $d.a1};
|
|
@@ -8628,7 +8659,7 @@ function FFI_GitHub_internalError($0) {
|
|
|
8628
8659
|
|
|
8629
8660
|
/* FFI.GitHub.ignoreStatus : Promise String a -> Promise String a */
|
|
8630
8661
|
function FFI_GitHub_ignoreStatus($0, $1, $2) {
|
|
8631
|
-
return Data_Promise_mapError($5 =>
|
|
8662
|
+
return Data_Promise_mapError($5 => FFI_GitHub_n__6902_18620_errMsg(FFI_GitHub_parseError($5)), $0, $1, $2);
|
|
8632
8663
|
}
|
|
8633
8664
|
|
|
8634
8665
|
/* FFI.GitHub.getUser : Octokit => String -> Promise String User */
|
|
@@ -8651,14 +8682,19 @@ function FFI_GitHub_getPullRequestGraphQlId($0, $1, $2, $3, $4, $5) {
|
|
|
8651
8682
|
return Data_Promise_mapSnd_Bifunctor_Promise($8 => $8, $a => $b => FFI_GitHub_ignoreStatus($e => $f => FFI_promiseIO($12 => $13 => $14 => FFI_GitHub_prim__getPullRequestGraphQlId($0, $1, $2, $3, $12, $13, $14), $e, $f), $a, $b), $4, $5);
|
|
8652
8683
|
}
|
|
8653
8684
|
|
|
8685
|
+
/* FFI.GitHub.getIssue : Octokit => String -> String -> String -> Promise String Issue */
|
|
8686
|
+
function FFI_GitHub_getIssue($0, $1, $2, $3) {
|
|
8687
|
+
return FFI_GitHub_parsePrimResult($6 => Data_Issue_parseIssueString($6), $a => $b => $c => FFI_GitHub_prim__getIssue($0, $1, $2, $3, $a, $b, $c));
|
|
8688
|
+
}
|
|
8689
|
+
|
|
8654
8690
|
/* FFI.GitHub.forceListTeams : Octokit => String -> Promise' (List String) */
|
|
8655
8691
|
function FFI_GitHub_forceListTeams($0, $1, $2, $3) {
|
|
8656
|
-
return Data_Promise_mapError($6 =>
|
|
8692
|
+
return Data_Promise_mapError($6 => FFI_GitHub_n__7165_18911_errString($0, $6), $b => $c => FFI_GitHub_listTeams($0, $1, $b, $c), $2, $3);
|
|
8657
8693
|
}
|
|
8658
8694
|
|
|
8659
8695
|
/* FFI.GitHub.forceListTeamMembers : Octokit => String -> String -> Promise' (List String) */
|
|
8660
8696
|
function FFI_GitHub_forceListTeamMembers($0, $1, $2, $3, $4) {
|
|
8661
|
-
return Data_Promise_mapError($7 =>
|
|
8697
|
+
return Data_Promise_mapError($7 => FFI_GitHub_n__8254_20015_errString($0, $7), $c => $d => FFI_GitHub_listTeamMembers($0, $1, $2, $c, $d), $3, $4);
|
|
8662
8698
|
}
|
|
8663
8699
|
|
|
8664
8700
|
/* FFI.GitHub.createPR : Octokit => {default False _ : Bool} ->
|
|
@@ -8734,8 +8770,8 @@ function Data_Review_isAuthor($0, $1) {
|
|
|
8734
8770
|
return Prelude_EqOrd_x3dx3d_Eq_String($1.a2, $0);
|
|
8735
8771
|
}
|
|
8736
8772
|
|
|
8737
|
-
/* Data.Date.4986:
|
|
8738
|
-
function
|
|
8773
|
+
/* Data.Date.4986:11849:parseNat */
|
|
8774
|
+
function Data_Date_n__4986_11849_parseNat($0, $1, $2) {
|
|
8739
8775
|
switch($2) {
|
|
8740
8776
|
case '0': return {a1: 0n};
|
|
8741
8777
|
case '1': return {a1: 1n};
|
|
@@ -8751,12 +8787,12 @@ function Data_Date_n__4986_11759_parseNat($0, $1, $2) {
|
|
|
8751
8787
|
}
|
|
8752
8788
|
}
|
|
8753
8789
|
|
|
8754
|
-
/* Data.Date.5103:
|
|
8755
|
-
function
|
|
8790
|
+
/* Data.Date.5103:11967:guardSuccess */
|
|
8791
|
+
function Data_Date_n__5103_11967_guardSuccess($0) {
|
|
8756
8792
|
switch($0.h) {
|
|
8757
8793
|
case undefined: /* cons */ {
|
|
8758
8794
|
switch($0.a1.h) {
|
|
8759
|
-
case 3: /* 5103:
|
|
8795
|
+
case 3: /* 5103:11956:Day */ {
|
|
8760
8796
|
switch($0.a2.h) {
|
|
8761
8797
|
case undefined: /* cons */ {
|
|
8762
8798
|
switch($0.a2.a2.h) {
|
|
@@ -8774,28 +8810,28 @@ function Data_Date_n__5103_11877_guardSuccess($0) {
|
|
|
8774
8810
|
}
|
|
8775
8811
|
}
|
|
8776
8812
|
|
|
8777
|
-
/* Data.Date.5103:
|
|
8778
|
-
function
|
|
8813
|
+
/* Data.Date.5103:11966:go */
|
|
8814
|
+
function Data_Date_n__5103_11966_go($0, $1) {
|
|
8779
8815
|
switch($0.a1.h) {
|
|
8780
|
-
case 4: /* 5103:
|
|
8781
|
-
case 0: /* 5103:
|
|
8816
|
+
case 4: /* 5103:11957:Fail */ return {a1: {h: 4 /* 5103:11957:Fail */}, a2: undefined};
|
|
8817
|
+
case 0: /* 5103:11964:Start */ {
|
|
8782
8818
|
switch(Prelude_Types_isDigit($1)) {
|
|
8783
|
-
case 1: return {a1: {h: 1 /* 5103:
|
|
8784
|
-
case 0: return {a1: {h: 4 /* 5103:
|
|
8819
|
+
case 1: return {a1: {h: 1 /* 5103:11959:P */, a1: 0}, a2: {a1: $1, a2: {h: 0}}};
|
|
8820
|
+
case 0: return {a1: {h: 4 /* 5103:11957:Fail */}, a2: undefined};
|
|
8785
8821
|
}
|
|
8786
8822
|
}
|
|
8787
|
-
case 1: /* 5103:
|
|
8823
|
+
case 1: /* 5103:11959:P */ {
|
|
8788
8824
|
switch($0.a1.a1) {
|
|
8789
8825
|
case 0: {
|
|
8790
8826
|
switch($1) {
|
|
8791
8827
|
case '-': {
|
|
8792
8828
|
const $12 = Data_Date_parsePositiveReversed($0.a2);
|
|
8793
8829
|
switch($12.h) {
|
|
8794
|
-
case 0: /* nothing */ return {a1: {h: 4 /* 5103:
|
|
8795
|
-
case undefined: /* just */ return {a1: {h: 2 /* 5103:
|
|
8830
|
+
case 0: /* nothing */ return {a1: {h: 4 /* 5103:11957:Fail */}, a2: undefined};
|
|
8831
|
+
case undefined: /* just */ return {a1: {h: 2 /* 5103:11963:S */, a1: 0}, a2: $12.a1};
|
|
8796
8832
|
}
|
|
8797
8833
|
}
|
|
8798
|
-
default: return {a1: {h: 1 /* 5103:
|
|
8834
|
+
default: return {a1: {h: 1 /* 5103:11959:P */, a1: 0}, a2: {a1: $1, a2: $0.a2}};
|
|
8799
8835
|
}
|
|
8800
8836
|
}
|
|
8801
8837
|
case 1: {
|
|
@@ -8803,32 +8839,32 @@ function Data_Date_n__5103_11876_go($0, $1) {
|
|
|
8803
8839
|
case '-': {
|
|
8804
8840
|
const $21 = Data_Date_parsePositiveReversed($0.a2.a2);
|
|
8805
8841
|
switch($21.h) {
|
|
8806
|
-
case 0: /* nothing */ return {a1: {h: 4 /* 5103:
|
|
8807
|
-
case undefined: /* just */ return {a1: {h: 2 /* 5103:
|
|
8842
|
+
case 0: /* nothing */ return {a1: {h: 4 /* 5103:11957:Fail */}, a2: undefined};
|
|
8843
|
+
case undefined: /* just */ return {a1: {h: 2 /* 5103:11963:S */, a1: 1}, a2: {a1: $0.a2.a1, a2: $21.a1}};
|
|
8808
8844
|
}
|
|
8809
8845
|
}
|
|
8810
|
-
default: return {a1: {h: 1 /* 5103:
|
|
8846
|
+
default: return {a1: {h: 1 /* 5103:11959:P */, a1: 1}, a2: {a1: $0.a2.a1, a2: {a1: $1, a2: $0.a2.a2}}};
|
|
8811
8847
|
}
|
|
8812
8848
|
}
|
|
8813
8849
|
}
|
|
8814
8850
|
}
|
|
8815
|
-
case 2: /* 5103:
|
|
8851
|
+
case 2: /* 5103:11963:S */ {
|
|
8816
8852
|
switch($0.a1.a1) {
|
|
8817
8853
|
case 0: {
|
|
8818
8854
|
switch(Prelude_Types_isDigit($1)) {
|
|
8819
|
-
case 1: return {a1: {h: 1 /* 5103:
|
|
8820
|
-
case 0: return {a1: {h: 4 /* 5103:
|
|
8855
|
+
case 1: return {a1: {h: 1 /* 5103:11959:P */, a1: 1}, a2: {a1: $0.a2, a2: {a1: $1, a2: {h: 0}}}};
|
|
8856
|
+
case 0: return {a1: {h: 4 /* 5103:11957:Fail */}, a2: undefined};
|
|
8821
8857
|
}
|
|
8822
8858
|
}
|
|
8823
8859
|
case 1: {
|
|
8824
8860
|
switch(Prelude_Types_isDigit($1)) {
|
|
8825
|
-
case 1: return {a1: {h: 3 /* 5103:
|
|
8826
|
-
case 0: return {a1: {h: 4 /* 5103:
|
|
8861
|
+
case 1: return {a1: {h: 3 /* 5103:11956:Day */}, a2: {a1: $0.a2.a1, a2: {a1: $0.a2.a2, a2: {a1: $1, a2: {h: 0}}}}};
|
|
8862
|
+
case 0: return {a1: {h: 4 /* 5103:11957:Fail */}, a2: undefined};
|
|
8827
8863
|
}
|
|
8828
8864
|
}
|
|
8829
8865
|
}
|
|
8830
8866
|
}
|
|
8831
|
-
case 3: /* 5103:
|
|
8867
|
+
case 3: /* 5103:11956:Day */ return {a1: {h: 3 /* 5103:11956:Day */}, a2: {a1: $0.a2.a1, a2: {a1: $0.a2.a2.a1, a2: {a1: $1, a2: $0.a2.a2.a2}}}};
|
|
8832
8868
|
}
|
|
8833
8869
|
}
|
|
8834
8870
|
|
|
@@ -8908,7 +8944,7 @@ function Data_Date_showYearAndMonth($0) {
|
|
|
8908
8944
|
function Data_Date_parsePositiveReversed($0) {
|
|
8909
8945
|
switch($0.h) {
|
|
8910
8946
|
case 0: /* nil */ return {a1: 0n};
|
|
8911
|
-
case undefined: /* cons */ return Prelude_Types_x3ex3ex3d_Monad_Maybe(
|
|
8947
|
+
case undefined: /* cons */ return Prelude_Types_x3ex3ex3d_Monad_Maybe(Data_Date_n__4986_11849_parseNat($0.a1, $0.a2, $0.a1), n => Prelude_Types_x3ex3ex3d_Monad_Maybe(Data_Date_parsePositiveReversed($0.a2), $f => ({a1: (n+($f*10n))})));
|
|
8912
8948
|
}
|
|
8913
8949
|
}
|
|
8914
8950
|
|
|
@@ -8921,7 +8957,7 @@ function Data_Date_parseDateTimeString($0) {
|
|
|
8921
8957
|
|
|
8922
8958
|
/* Data.Date.parseDateString : String -> Maybe Date */
|
|
8923
8959
|
function Data_Date_parseDateString($0) {
|
|
8924
|
-
return
|
|
8960
|
+
return Data_Date_n__5103_11967_guardSuccess(Prelude_Types_foldl_Foldable_List($5 => $6 => Data_Date_n__5103_11966_go($5, $6), {a1: {h: 0 /* 5103:11964:Start */}, a2: undefined}, Prelude_Types_fastUnpack($0)));
|
|
8925
8961
|
}
|
|
8926
8962
|
|
|
8927
8963
|
/* Data.Date.pad : Nat -> String */
|
|
@@ -8947,7 +8983,31 @@ function Data_Issue_parseIssueString($0) {
|
|
|
8947
8983
|
|
|
8948
8984
|
/* Data.Issue.parseIssue : JSON -> Either String Issue */
|
|
8949
8985
|
function Data_Issue_parseIssue($0) {
|
|
8950
|
-
|
|
8986
|
+
const $5 = issue => {
|
|
8987
|
+
const $17 = $18 => {
|
|
8988
|
+
const $24 = number => {
|
|
8989
|
+
const $29 = title => {
|
|
8990
|
+
const $2c = Language_JSON_Accessors_optional($2f => Language_JSON_Accessors_string($2f), $18.a2.a2.a1);
|
|
8991
|
+
let $2b;
|
|
8992
|
+
switch($2c.h) {
|
|
8993
|
+
case 0: /* Left */ {
|
|
8994
|
+
$2b = {h: 0 /* Left */, a1: $2c.a1};
|
|
8995
|
+
break;
|
|
8996
|
+
}
|
|
8997
|
+
case 1: /* Right */ {
|
|
8998
|
+
$2b = {h: 1 /* Right */, a1: Prelude_Types_maybe(() => '', () => $38 => $38, $2c.a1)};
|
|
8999
|
+
break;
|
|
9000
|
+
}
|
|
9001
|
+
}
|
|
9002
|
+
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_223(), $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}})))));
|
|
9003
|
+
};
|
|
9004
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($18.a2.a1), $29);
|
|
9005
|
+
};
|
|
9006
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($18.a1), $24);
|
|
9007
|
+
};
|
|
9008
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'issue_number', a2: {a1: 'title', a2: {a1: 'body', a2: {a1: 'author', a2: {a1: 'created_at', a2: {a1: 'assignee', a2: {h: 0}}}}}}}, issue), $17);
|
|
9009
|
+
};
|
|
9010
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), $5);
|
|
8951
9011
|
}
|
|
8952
9012
|
|
|
8953
9013
|
/* Data.Issue.parseDateTime : String -> Either String Date */
|
|
@@ -9008,7 +9068,7 @@ function Data_PullRequest_parseState($0, $1) {
|
|
|
9008
9068
|
|
|
9009
9069
|
/* Data.PullRequest.parsePullRequestsString : String -> Either String (List PullRequest) */
|
|
9010
9070
|
function Data_PullRequest_parsePullRequestsString($0) {
|
|
9011
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_227(), csegen_228(),
|
|
9071
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_227(), csegen_228(), csegen_346(), $0);
|
|
9012
9072
|
}
|
|
9013
9073
|
|
|
9014
9074
|
/* Data.PullRequest.parsePullRequestString : String -> Either String PullRequest */
|
|
@@ -9101,47 +9161,47 @@ function Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, $2) {
|
|
|
9101
9161
|
default: return {h: 0};
|
|
9102
9162
|
}
|
|
9103
9163
|
};
|
|
9104
|
-
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(
|
|
9164
|
+
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_359(), $2.a1)}, $b);
|
|
9105
9165
|
}
|
|
9106
9166
|
|
|
9107
|
-
/* Config.
|
|
9108
|
-
function
|
|
9109
|
-
const $6 =
|
|
9110
|
-
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($1c => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {a1: 'Would you like harmony configured for a \'dark\' or \'light\' terminal background', a2: {a1: $6, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $1c)))($30 =>
|
|
9167
|
+
/* Config.9599:2540:themePrompt */
|
|
9168
|
+
function Config_n__9599_2540_themePrompt($0, $1, $2, $3, $4, $5) {
|
|
9169
|
+
const $6 = Config_n__9599_2536_enterForDefaultStr($0, $1, $2, $3, $4, 'dark');
|
|
9170
|
+
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($1c => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {a1: 'Would you like harmony configured for a \'dark\' or \'light\' terminal background', a2: {a1: $6, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $1c)))($30 => Config_n__9599_2537_offerRetry($0, $1, $2, $3, $4, $5, 'The theme must be either \'dark\' or \'light\'. Which would you prefer?', 'Could not parse the input as a valid theme; will use \'dark\' for now.', () => 1, $5.a1.a1.a1(undefined)(undefined)($46 => Data_Theme_parseString(Util_Prompting_orIfEmpty({a1: 'dark'}, Data_String_trim($46))))($5.a2(undefined)($55 => Prelude_IO_prim__getStr($55)))));
|
|
9111
9171
|
}
|
|
9112
9172
|
|
|
9113
|
-
/* Config.
|
|
9114
|
-
function
|
|
9173
|
+
/* Config.9599:2539:repo */
|
|
9174
|
+
function Config_n__9599_2539_repo($0, $1, $2, $3, $4, $5) {
|
|
9115
9175
|
return Prelude_Types_map_Functor_Maybe(csegen_318()(), $5);
|
|
9116
9176
|
}
|
|
9117
9177
|
|
|
9118
|
-
/* Config.
|
|
9119
|
-
function
|
|
9178
|
+
/* Config.8666:1562:parseSuffix */
|
|
9179
|
+
function Config_n__8666_1562_parseSuffix($0, $1) {
|
|
9120
9180
|
return Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, Data_String_break$($8 => Prelude_EqOrd_x3dx3d_Eq_Char($8, '.'), $1));
|
|
9121
9181
|
}
|
|
9122
9182
|
|
|
9123
|
-
/* Config.
|
|
9124
|
-
function
|
|
9125
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b =>
|
|
9183
|
+
/* Config.8666:1561:parseSSH */
|
|
9184
|
+
function Config_n__8666_1561_parseSSH($0, $1) {
|
|
9185
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b => Config_n__8666_1562_parseSuffix($0, $b), $1);
|
|
9126
9186
|
}
|
|
9127
9187
|
|
|
9128
|
-
/* Config.
|
|
9129
|
-
function
|
|
9130
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b =>
|
|
9188
|
+
/* Config.8666:1560:parseHTTPS */
|
|
9189
|
+
function Config_n__8666_1560_parseHTTPS($0, $1) {
|
|
9190
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b => Config_n__8666_1562_parseSuffix($0, $b), $1);
|
|
9131
9191
|
}
|
|
9132
9192
|
|
|
9133
|
-
/* Config.
|
|
9134
|
-
function
|
|
9135
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
9193
|
+
/* Config.9599:2538:org */
|
|
9194
|
+
function Config_n__9599_2538_org($0, $1, $2, $3, $4, $5) {
|
|
9195
|
+
return Prelude_Types_map_Functor_Maybe(csegen_365()(), $5);
|
|
9136
9196
|
}
|
|
9137
9197
|
|
|
9138
|
-
/* Config.
|
|
9139
|
-
function
|
|
9198
|
+
/* Config.8377:1281:oneDayAgo */
|
|
9199
|
+
function Config_n__8377_1281_oneDayAgo($0, $1, $2) {
|
|
9140
9200
|
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(Number(_truncUBigInt32((now-86400n)))));
|
|
9141
9201
|
}
|
|
9142
9202
|
|
|
9143
|
-
/* Config.
|
|
9144
|
-
function
|
|
9203
|
+
/* Config.9599:2537:offerRetry */
|
|
9204
|
+
function Config_n__9599_2537_offerRetry($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
9145
9205
|
const $13 = $14 => {
|
|
9146
9206
|
switch($14.h) {
|
|
9147
9207
|
case 0: /* nothing */ {
|
|
@@ -9162,34 +9222,34 @@ function Config_n__9586_2537_offerRetry($0, $1, $2, $3, $4, $5, $6, $7, $8, $9)
|
|
|
9162
9222
|
return $5.a1.a2(undefined)(undefined)($9)($13);
|
|
9163
9223
|
}
|
|
9164
9224
|
|
|
9165
|
-
/* Config.
|
|
9166
|
-
function
|
|
9225
|
+
/* Config.9502:2423:help */
|
|
9226
|
+
function Config_n__9502_2423_help($0, $1) {
|
|
9167
9227
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1.a1)), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $14 => $14, {a1: ': ', a2: {a1: (Data_String_replicate(Prelude_Types_prim__integerToNat((Data_Config_longestSettablePropName()-Prelude_Types_String_length($1.a1))), ' ')+$1.a2), a2: {h: 0}}})));
|
|
9168
9228
|
}
|
|
9169
9229
|
|
|
9170
|
-
/* Config.
|
|
9171
|
-
function
|
|
9230
|
+
/* Config.9599:2536:enterForDefaultStr */
|
|
9231
|
+
function Config_n__9599_2536_enterForDefaultStr($0, $1, $2, $3, $4, $5) {
|
|
9172
9232
|
return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $b => $b, {a1: ' (ENTER for default: ', a2: {a1: $5, a2: {a1: ')', a2: {h: 0}}}});
|
|
9173
9233
|
}
|
|
9174
9234
|
|
|
9175
|
-
/* Config.
|
|
9176
|
-
function
|
|
9235
|
+
/* Config.8619:1513:drop' */
|
|
9236
|
+
function Config_n__8619_1513_dropx27($0, $1) {
|
|
9177
9237
|
return Config_with__dropPrefixx27x2cdropx27_1521($0, $1, Data_List_PrefixSuffix_dropPrefix($8 => $9 => Decidable_Equality_decEq_DecEq_Char($8, $9), Prelude_Types_fastUnpack($0), $1));
|
|
9178
9238
|
}
|
|
9179
9239
|
|
|
9180
|
-
/* Config.
|
|
9181
|
-
function
|
|
9182
|
-
return Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($c =>
|
|
9240
|
+
/* Config.9599:2535:defaultStr */
|
|
9241
|
+
function Config_n__9599_2535_defaultStr($0, $1, $2, $3, $4, $5, $6) {
|
|
9242
|
+
return Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($c => Config_n__9599_2536_enterForDefaultStr($0, $1, $2, $3, $4, $5($c)), $6));
|
|
9183
9243
|
}
|
|
9184
9244
|
|
|
9185
|
-
/* Config.
|
|
9186
|
-
function
|
|
9187
|
-
const $6 =
|
|
9188
|
-
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($1c => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {a1: 'What kind of comment would you like Harmony to leave when it requests reviewers? [none/name/at-mention]', a2: {a1: $6, a2: {h: 0}}})+'\n'), $1c)))($2e =>
|
|
9245
|
+
/* Config.9599:2534:commentConfigPrompt */
|
|
9246
|
+
function Config_n__9599_2534_commentConfigPrompt($0, $1, $2, $3, $4, $5) {
|
|
9247
|
+
const $6 = Config_n__9599_2536_enterForDefaultStr($0, $1, $2, $3, $4, 'name');
|
|
9248
|
+
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($1c => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {a1: 'What kind of comment would you like Harmony to leave when it requests reviewers? [none/name/at-mention]', a2: {a1: $6, a2: {h: 0}}})+'\n'), $1c)))($2e => Config_n__9599_2537_offerRetry($0, $1, $2, $3, $4, $5, 'The comment strategy must be \'none\', \'name\', or \'at-mention\'. Which would you prefer?', 'Could not parse the input as a valid option; will use \'name\' for now.', () => 1, $5.a1.a1.a1(undefined)(undefined)($44 => Data_Config_CommentStrategy_parseCommentConfig(Util_Prompting_orIfEmpty({a1: 'name'}, Data_String_trim($44))))($5.a2(undefined)($53 => Prelude_IO_prim__getStr($53)))));
|
|
9189
9249
|
}
|
|
9190
9250
|
|
|
9191
|
-
/* Config.
|
|
9192
|
-
function
|
|
9251
|
+
/* Config.8508:1406:checkRequestSettings */
|
|
9252
|
+
function Config_n__8508_1406_checkRequestSettings($0, $1) {
|
|
9193
9253
|
let $2;
|
|
9194
9254
|
switch($1.a6) {
|
|
9195
9255
|
case 1: {
|
|
@@ -9207,10 +9267,10 @@ function Config_n__8495_1406_checkRequestSettings($0, $1) {
|
|
|
9207
9267
|
}
|
|
9208
9268
|
}
|
|
9209
9269
|
|
|
9210
|
-
/* Config.
|
|
9211
|
-
function
|
|
9212
|
-
const $6 =
|
|
9213
|
-
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($1c => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {a1: 'Would you like harmony to parse branch names for \'jira\' slugs or \'github\' issue numbers to use as part of new PR title or body', a2: {a1: $6, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $1c)))($30 =>
|
|
9270
|
+
/* Config.9599:2533:branchParsingPrompt */
|
|
9271
|
+
function Config_n__9599_2533_branchParsingPrompt($0, $1, $2, $3, $4, $5) {
|
|
9272
|
+
const $6 = Config_n__9599_2536_enterForDefaultStr($0, $1, $2, $3, $4, 'none');
|
|
9273
|
+
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($1c => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {a1: 'Would you like harmony to parse branch names for \'jira\' slugs or \'github\' issue numbers to use as part of new PR title or body', a2: {a1: $6, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $1c)))($30 => Config_n__9599_2537_offerRetry($0, $1, $2, $3, $4, $5, 'Branch parsing must be \'none\', \'jira\', or \'github\'. Which would you prefer?', 'Could not parse the input as a valid option; will use \'none\' for now.', () => 0, $5.a1.a1.a1(undefined)(undefined)($46 => Data_Config_ParseBranchStrategy_parseBranchConfig(Util_Prompting_orIfEmpty({a1: 'none'}, Data_String_trim($46))))($5.a2(undefined)($55 => Prelude_IO_prim__getStr($55)))));
|
|
9214
9274
|
}
|
|
9215
9275
|
|
|
9216
9276
|
/* Config.show */
|
|
@@ -9245,7 +9305,7 @@ function Config_syncIfOld($0, $1, $2, $3) {
|
|
|
9245
9305
|
case 0: return $1b => Data_Promise_pure_Applicative_x28Promisex20x24ex29($1, $e, $1b);
|
|
9246
9306
|
}
|
|
9247
9307
|
};
|
|
9248
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9308
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__8377_1281_oneDayAgo($0, $1, csegen_74()()), $c, $2, $3);
|
|
9249
9309
|
}
|
|
9250
9310
|
|
|
9251
9311
|
/* Config.syncConfig : Config => Octokit => Bool -> Promise' Config */
|
|
@@ -9257,7 +9317,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
9257
9317
|
const $41 = {a1: updatedAt, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: $0.a8, a9: $0.a9, a10: teamSlugs, a11: labelNames, a12: orgMembers, a13: $0.a13, a14: $0.a14, a15: $0.a15, a16: $0.a16};
|
|
9258
9318
|
return $53 => $54 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($57 => $58 => Data_Promise_map_Functor_x28Promisex20x24ex29($5b => undefined, $5d => $5e => Config_writeConfig($41, $5d, $5e), $57, $58), $66 => $67 => $68 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_66()(), $2, () => $71 => $72 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($75 => $76 => $77 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($7a => Prelude_IO_prim__putStr('Your updated configuration is:\n', $7a), $75, $76, $77), $82 => $83 => $84 => $85 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($88 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($41)+'\n'), $88), $83, $84, $85), $71, $72)), $96 => $97 => $98 => Data_Promise_pure_Applicative_x28Promisex20x24ex29($41, $97, $98), $67, $68), $53, $54);
|
|
9259
9319
|
};
|
|
9260
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9320
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_378()(), $40, $3a, $3b);
|
|
9261
9321
|
};
|
|
9262
9322
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2f => $30 => FFI_GitHub_listRepoLabels($1, $0.a2, $0.a3, $2f, $30), $39, $2b, $2c);
|
|
9263
9323
|
};
|
|
@@ -9268,7 +9328,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
9268
9328
|
|
|
9269
9329
|
/* Config.settablePropsWithHelp : Config => String */
|
|
9270
9330
|
function Config_settablePropsWithHelp($0) {
|
|
9271
|
-
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 =>
|
|
9331
|
+
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 => Config_n__9502_2423_help($0, $9), Data_Config_settablePropNamesAndHelp())));
|
|
9272
9332
|
}
|
|
9273
9333
|
|
|
9274
9334
|
/* Config.setConfig : Config => String -> String -> Promise' Config */
|
|
@@ -9280,14 +9340,14 @@ function Config_setConfig($0, $1, $2) {
|
|
|
9280
9340
|
function Config_propSetter($0, $1) {
|
|
9281
9341
|
return $2 => {
|
|
9282
9342
|
switch($0) {
|
|
9283
|
-
case 0: return Config_update(
|
|
9284
|
-
case 1: return Config_update(
|
|
9285
|
-
case 2: return Config_update(
|
|
9286
|
-
case 3: return Config_update(
|
|
9287
|
-
case 4: return Config_update(
|
|
9288
|
-
case 5: return Config_update(
|
|
9289
|
-
case 6: return Config_update(
|
|
9290
|
-
case 7: return Config_update(
|
|
9343
|
+
case 0: return Config_update(csegen_383(), $8 => Config_parseBool($8), b => $c => ({a1: $c.a1, a2: $c.a2, a3: $c.a3, a4: $c.a4, a5: $c.a5, a6: b, a7: $c.a7, a8: $c.a8, a9: $c.a9, a10: $c.a10, a11: $c.a11, a12: $c.a12, a13: $c.a13, a14: $c.a14, a15: $c.a15, a16: $c.a16}), $1, $2);
|
|
9344
|
+
case 1: return Config_update(csegen_383(), $24 => Config_parseBool($24), b => $28 => ({a1: $28.a1, a2: $28.a2, a3: $28.a3, a4: $28.a4, a5: $28.a5, a6: $28.a6, a7: b, a8: $28.a8, a9: $28.a9, a10: $28.a10, a11: $28.a11, a12: $28.a12, a13: $28.a13, a14: $28.a14, a15: $28.a15, a16: $28.a16}), $1, $2);
|
|
9345
|
+
case 2: return Config_update(csegen_383(), $40 => Data_Config_CommentStrategy_parseCommentConfig(Data_String_toLower($40)), b => $46 => ({a1: $46.a1, a2: $46.a2, a3: $46.a3, a4: $46.a4, a5: $46.a5, a6: $46.a6, a7: $46.a7, a8: b, a9: $46.a9, a10: $46.a10, a11: $46.a11, a12: $46.a12, a13: $46.a13, a14: $46.a14, a15: $46.a15, a16: $46.a16}), $1, $2);
|
|
9346
|
+
case 3: return Config_update(csegen_383(), $5e => Data_Config_ParseBranchStrategy_parseBranchConfig(Data_String_toLower($5e)), s => $64 => ({a1: $64.a1, a2: $64.a2, a3: $64.a3, a4: $64.a4, a5: $64.a5, a6: $64.a6, a7: $64.a7, a8: $64.a8, a9: s, a10: $64.a10, a11: $64.a11, a12: $64.a12, a13: $64.a13, a14: $64.a14, a15: $64.a15, a16: $64.a16}), $1, $2);
|
|
9347
|
+
case 4: return Config_update(csegen_383(), $7c => ({a1: $7c}), s => $7f => ({a1: $7f.a1, a2: $7f.a2, a3: $7f.a3, a4: s, a5: $7f.a5, a6: $7f.a6, a7: $7f.a7, a8: $7f.a8, a9: $7f.a9, a10: $7f.a10, a11: $7f.a11, a12: $7f.a12, a13: $7f.a13, a14: $7f.a14, a15: $7f.a15, a16: $7f.a16}), $1, $2);
|
|
9348
|
+
case 5: return Config_update(csegen_383(), $97 => ({a1: $97}), s => $9a => ({a1: $9a.a1, a2: $9a.a2, a3: $9a.a3, a4: $9a.a4, a5: s, a6: $9a.a6, a7: $9a.a7, a8: $9a.a8, a9: $9a.a9, a10: $9a.a10, a11: $9a.a11, a12: $9a.a12, a13: $9a.a13, a14: $9a.a14, a15: $9a.a15, a16: $9a.a16}), $1, $2);
|
|
9349
|
+
case 6: return Config_update(csegen_383(), $b2 => Data_Theme_parseString($b2), t => $b6 => ({a1: $b6.a1, a2: $b6.a2, a3: $b6.a3, a4: $b6.a4, a5: $b6.a5, a6: $b6.a6, a7: $b6.a7, a8: $b6.a8, a9: $b6.a9, a10: $b6.a10, a11: $b6.a11, a12: $b6.a12, a13: $b6.a13, a14: $b6.a14, a15: t, a16: $b6.a16}), $1, $2);
|
|
9350
|
+
case 7: return Config_update(csegen_383(), $ce => ({a1: $ce}), s => $d1 => ({a1: $d1.a1, a2: $d1.a2, a3: $d1.a3, a4: $d1.a4, a5: $d1.a5, a6: $d1.a6, a7: $d1.a7, a8: $d1.a8, a9: $d1.a9, a10: $d1.a10, a11: $d1.a11, a12: $d1.a12, a13: $d1.a13, a14: {a1: s}, a15: $d1.a15, a16: $d1.a16}), $1, $2);
|
|
9291
9351
|
}
|
|
9292
9352
|
};
|
|
9293
9353
|
}
|
|
@@ -9317,7 +9377,7 @@ function Config_preferOriginRemote($0) {
|
|
|
9317
9377
|
|
|
9318
9378
|
/* Config.parseGitHubURI : String -> Maybe GitRemote */
|
|
9319
9379
|
function Config_parseGitHubURI($0) {
|
|
9320
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
9380
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(Config_n__8666_1560_parseHTTPS($0, $0), () => Config_n__8666_1561_parseSSH($0, $0));
|
|
9321
9381
|
}
|
|
9322
9382
|
|
|
9323
9383
|
/* Config.parseBool : String -> Maybe Bool */
|
|
@@ -9428,14 +9488,14 @@ function Config_findConfig($0, $1, $2) {
|
|
|
9428
9488
|
|
|
9429
9489
|
/* Config.dropPrefix' : String -> String -> Maybe String */
|
|
9430
9490
|
function Config_dropPrefixx27($0, $1) {
|
|
9431
|
-
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4),
|
|
9491
|
+
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4), Config_n__8619_1513_dropx27($0, Prelude_Types_fastUnpack($1)));
|
|
9432
9492
|
}
|
|
9433
9493
|
|
|
9434
9494
|
/* Config.createConfig : Git => Maybe String -> Bool -> Nat -> Maybe String -> Promise' Config */
|
|
9435
9495
|
function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
9436
9496
|
const $25 = $26 => $27 => $28 => {
|
|
9437
9497
|
const $2d = $2e => {
|
|
9438
|
-
const $30 =
|
|
9498
|
+
const $30 = Config_n__9599_2536_enterForDefaultStr($0, $4, $3, $2, $1, 'unset');
|
|
9439
9499
|
const $2f = () => $38 => $39 => {
|
|
9440
9500
|
const $63 = $64 => $65 => $66 => {
|
|
9441
9501
|
const $68 = $69 => $6a => {
|
|
@@ -9445,7 +9505,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9445
9505
|
default: return {a1: Data_String_trim($6d)};
|
|
9446
9506
|
}
|
|
9447
9507
|
};
|
|
9448
|
-
return Data_Promise_map_Functor_x28Promisex20x24ex29($6c,
|
|
9508
|
+
return Data_Promise_map_Functor_x28Promisex20x24ex29($6c, csegen_406()(), $69, $6a);
|
|
9449
9509
|
};
|
|
9450
9510
|
const $79 = configPAT => $7a => $7b => {
|
|
9451
9511
|
const $87 = $88 => $89 => $8a => {
|
|
@@ -9454,17 +9514,17 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9454
9514
|
const $9e = remoteGuess => $9f => $a0 => {
|
|
9455
9515
|
const $bd = defaultOrgAndRepo => $be => $bf => {
|
|
9456
9516
|
const $c4 = $c5 => {
|
|
9457
|
-
const $c7 =
|
|
9517
|
+
const $c7 = Config_n__9599_2535_defaultStr($0, $4, $3, $2, $1, csegen_365()(), defaultOrgAndRepo);
|
|
9458
9518
|
const $c6 = () => $d2 => $d3 => {
|
|
9459
9519
|
const $f1 = $f2 => $f3 => $f4 => {
|
|
9460
9520
|
const $10d = org => $10e => $10f => {
|
|
9461
9521
|
const $114 = $115 => {
|
|
9462
|
-
const $117 =
|
|
9522
|
+
const $117 = Config_n__9599_2535_defaultStr($0, $4, $3, $2, $1, csegen_318()(), defaultOrgAndRepo);
|
|
9463
9523
|
const $116 = () => $122 => $123 => {
|
|
9464
9524
|
const $141 = $142 => $143 => $144 => {
|
|
9465
9525
|
const $15d = repo => $15e => $15f => {
|
|
9466
9526
|
const $164 = $165 => {
|
|
9467
|
-
const $167 =
|
|
9527
|
+
const $167 = Config_n__9599_2536_enterForDefaultStr($0, $4, $3, $2, $1, remoteGuess);
|
|
9468
9528
|
const $166 = () => $16f => $170 => {
|
|
9469
9529
|
const $18e = $18f => $190 => $191 => {
|
|
9470
9530
|
const $1a4 = defaultRemote => $1a5 => $1a6 => {
|
|
@@ -9498,7 +9558,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9498
9558
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($261 => $262 => Config_nonOrgFallback(() => ({h: 0}), $266 => $267 => FFI_GitHub_listTeams(_, org, $266, $267), $261, $262), $26f, $25d, $25e);
|
|
9499
9559
|
};
|
|
9500
9560
|
};
|
|
9501
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9561
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_378()(), $24b, $245, $246);
|
|
9502
9562
|
};
|
|
9503
9563
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($23c => $23d => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $23c, $23d), $244, $238, $239);
|
|
9504
9564
|
};
|
|
@@ -9506,53 +9566,53 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9506
9566
|
};
|
|
9507
9567
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($219 => $21a => $21b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($21e => FFI_GitHub_octokit($88.a1, $21e), $219, $21a, $21b), $225, $215, $216);
|
|
9508
9568
|
};
|
|
9509
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9569
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $213, $20d, $20e);
|
|
9510
9570
|
};
|
|
9511
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9571
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9599_2540_themePrompt($0, $4, $3, $2, $1, csegen_74()()), $20c, $1ff, $200);
|
|
9512
9572
|
};
|
|
9513
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9573
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1fd, $1f7, $1f8);
|
|
9514
9574
|
};
|
|
9515
9575
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_74()(), 1, 'Would you like harmony to request reviews from individual users when it requests a teams review?'), $1f6, $1ec, $1ed);
|
|
9516
9576
|
};
|
|
9517
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9577
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1ea, $1e4, $1e5);
|
|
9518
9578
|
};
|
|
9519
9579
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_74()(), 1, 'Would you like harmony to request reviews from teams when it requests reviewers?'), $1e3, $1d9, $1da);
|
|
9520
9580
|
};
|
|
9521
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9581
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1d7, $1d1, $1d2);
|
|
9522
9582
|
};
|
|
9523
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9583
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9599_2533_branchParsingPrompt($0, $4, $3, $2, $1, csegen_74()()), $1d0, $1c3, $1c4);
|
|
9524
9584
|
};
|
|
9525
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9585
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1c1, $1bb, $1bc);
|
|
9526
9586
|
};
|
|
9527
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9587
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9599_2534_commentConfigPrompt($0, $4, $3, $2, $1, csegen_74()()), $1ba, $1ad, $1ae);
|
|
9528
9588
|
};
|
|
9529
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9589
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1ab, $1a5, $1a6);
|
|
9530
9590
|
};
|
|
9531
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($194 => $195 => Data_Promise_map_Functor_x28Promisex20x24ex29($198 => Util_Prompting_orIfEmpty({a1: remoteGuess}, Data_String_trim($198)),
|
|
9591
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($194 => $195 => Data_Promise_map_Functor_x28Promisex20x24ex29($198 => Util_Prompting_orIfEmpty({a1: remoteGuess}, Data_String_trim($198)), csegen_406()(), $194, $195), $1a4, $190, $191);
|
|
9532
9592
|
};
|
|
9533
9593
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($173 => $174 => $175 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($178 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $181 => $181, {a1: 'What GitHub remote repo would you like to use harmony for', a2: {a1: $167, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $178), $173, $174, $175), $18e, $16f, $170);
|
|
9534
9594
|
};
|
|
9535
9595
|
return $166();
|
|
9536
9596
|
};
|
|
9537
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9597
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $164, $15e, $15f);
|
|
9538
9598
|
};
|
|
9539
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($147 => $148 => Data_Promise_map_Functor_x28Promisex20x24ex29($14b => Util_Prompting_orIfEmpty(
|
|
9599
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($147 => $148 => Data_Promise_map_Functor_x28Promisex20x24ex29($14b => Util_Prompting_orIfEmpty(Config_n__9599_2539_repo($0, $4, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($14b)), csegen_406()(), $147, $148), $15d, $143, $144);
|
|
9540
9600
|
};
|
|
9541
9601
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($126 => $127 => $128 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($12b => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $134 => $134, {a1: 'What repository would you like to use harmony for', a2: {a1: $117, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $12b), $126, $127, $128), $141, $122, $123);
|
|
9542
9602
|
};
|
|
9543
9603
|
return $116();
|
|
9544
9604
|
};
|
|
9545
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9605
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $114, $10e, $10f);
|
|
9546
9606
|
};
|
|
9547
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f7 => $f8 => Data_Promise_map_Functor_x28Promisex20x24ex29($fb => Util_Prompting_orIfEmpty(
|
|
9607
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f7 => $f8 => Data_Promise_map_Functor_x28Promisex20x24ex29($fb => Util_Prompting_orIfEmpty(Config_n__9599_2538_org($0, $4, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($fb)), csegen_406()(), $f7, $f8), $10d, $f3, $f4);
|
|
9548
9608
|
};
|
|
9549
9609
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($d6 => $d7 => $d8 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($db => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e4 => $e4, {a1: 'What GitHub org would you like to use harmony for', a2: {a1: $c7, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $db), $d6, $d7, $d8), $f1, $d2, $d3);
|
|
9550
9610
|
};
|
|
9551
9611
|
return $c6();
|
|
9552
9612
|
};
|
|
9553
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9613
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $c4, $be, $bf);
|
|
9554
9614
|
};
|
|
9555
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a3 => $a4 => Data_Promise_x3cx7cx3e_Alternative_x28Promisex20Stringx29($a7 => $a8 => Data_Promise_map_Functor_x28Promisex20x24ex29($ab => Config_parseGitHubURI($ab), $af => $b0 => FFI_Git_remoteURI($0, remoteGuess, $af, $b0), $a7, $a8), () =>
|
|
9615
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a3 => $a4 => Data_Promise_x3cx7cx3e_Alternative_x28Promisex20Stringx29($a7 => $a8 => Data_Promise_map_Functor_x28Promisex20x24ex29($ab => Config_parseGitHubURI($ab), $af => $b0 => FFI_Git_remoteURI($0, remoteGuess, $af, $b0), $a7, $a8), () => csegen_408()(), $a3, $a4), $bd, $9f, $a0);
|
|
9556
9616
|
};
|
|
9557
9617
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8e => $8f => Data_Promise_map_Functor_x28Promisex20x24ex29($92 => Config_preferOriginRemote($92), $96 => $97 => FFI_Git_listRemotes($0, $96, $97), $8e, $8f), $9e, $89, $8a);
|
|
9558
9618
|
}
|
|
@@ -9567,14 +9627,14 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9567
9627
|
};
|
|
9568
9628
|
return $2f();
|
|
9569
9629
|
};
|
|
9570
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9630
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $2d, $27, $28);
|
|
9571
9631
|
};
|
|
9572
9632
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => $a => $b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($e => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $17 => $17, {a1: 'Creating a new configuration (storing in ', a2: {a1: Data_Config_filename(), a2: {a1: ')...', a2: {h: 0}}}})+'\n'), $e), $9, $a, $b), $25, $5, $6);
|
|
9573
9633
|
}
|
|
9574
9634
|
|
|
9575
9635
|
/* Config.checkConfigConsistency : Config -> Either (Doc AnsiStyle) () */
|
|
9576
9636
|
function Config_checkConfigConsistency($0) {
|
|
9577
|
-
return
|
|
9637
|
+
return Config_n__8508_1406_checkRequestSettings($0, $0);
|
|
9578
9638
|
}
|
|
9579
9639
|
|
|
9580
9640
|
/* Config.addIgnoredPRs : Config -> List Integer -> Promise' Config */
|
|
@@ -9583,7 +9643,7 @@ function Config_addIgnoredPRs($0, $1, $2, $3) {
|
|
|
9583
9643
|
}
|
|
9584
9644
|
|
|
9585
9645
|
/* Data.List.PrefixSuffix.with block in with block in dropPrefix */
|
|
9586
|
-
function
|
|
9646
|
+
function Data_List_PrefixSuffix_with__withx20blockx20inx20dropPrefix_5919($0, $1, $2, $3, $4, $5) {
|
|
9587
9647
|
switch($4.h) {
|
|
9588
9648
|
case 1: /* No */ return {h: 1 /* No */, a1: $8 => $4.a1({a1: $8.a1, a2: Builtin_snd(Data_List_PrefixSuffix_prefixSuffixConsInjective($8.a2))})};
|
|
9589
9649
|
case 0: /* Yes */ return {h: 0 /* Yes */, a1: {a1: $4.a1.a1, a2: {a1: {a1: $5, a2: $3}, a2: $4.a1.a1}}};
|
|
@@ -9591,10 +9651,10 @@ function Data_List_PrefixSuffix_with__withx20blockx20inx20dropPrefix_3637($0, $1
|
|
|
9591
9651
|
}
|
|
9592
9652
|
|
|
9593
9653
|
/* Data.List.PrefixSuffix.with block in dropPrefix */
|
|
9594
|
-
function
|
|
9654
|
+
function Data_List_PrefixSuffix_with__dropPrefix_5882($0, $1, $2, $3, $4, $5, $6) {
|
|
9595
9655
|
switch($4.h) {
|
|
9596
9656
|
case 1: /* No */ return {h: 1 /* No */, a1: $9 => Data_List_PrefixSuffix_prefixDifferentVoid($4.a1, $9)};
|
|
9597
|
-
case 0: /* Yes */ return
|
|
9657
|
+
case 0: /* Yes */ return Data_List_PrefixSuffix_with__withx20blockx20inx20dropPrefix_5919(undefined, $1, $6, $5, Data_List_PrefixSuffix_dropPrefix($1, $5, $6), $2);
|
|
9598
9658
|
}
|
|
9599
9659
|
}
|
|
9600
9660
|
|
|
@@ -9618,7 +9678,7 @@ function Data_List_PrefixSuffix_dropPrefix($0, $1, $2) {
|
|
|
9618
9678
|
case undefined: /* cons */ {
|
|
9619
9679
|
switch($2.h) {
|
|
9620
9680
|
case 0: /* nil */ return {h: 1 /* No */, a1: $b => Prelude_Uninhabited_void$()};
|
|
9621
|
-
case undefined: /* cons */ return
|
|
9681
|
+
case undefined: /* cons */ return Data_List_PrefixSuffix_with__dropPrefix_5882(undefined, $0, $1.a1, $2.a1, $0($1.a1)($2.a1), $1.a2, $2.a2);
|
|
9622
9682
|
}
|
|
9623
9683
|
}
|
|
9624
9684
|
}
|
|
@@ -9631,21 +9691,21 @@ function AppVersion_printVersion($0) {
|
|
|
9631
9691
|
|
|
9632
9692
|
/* AppVersion.appVersion : String */
|
|
9633
9693
|
const AppVersion_appVersion = __lazy(function () {
|
|
9634
|
-
return '5.
|
|
9694
|
+
return '5.8.0';
|
|
9635
9695
|
});
|
|
9636
9696
|
|
|
9637
9697
|
/* Commands.Help.subcommandHelp' : String -> Doc AnsiStyle */
|
|
9638
9698
|
function Commands_Help_subcommandHelpx27($0) {
|
|
9639
9699
|
switch($0) {
|
|
9640
|
-
case 'label': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<label>'), a2:
|
|
9641
|
-
case 'request': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<team-slug> | +<user-login>'), a2:
|
|
9700
|
+
case 'label': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<label>'), a2: csegen_422()}, {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}});
|
|
9701
|
+
case 'request': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<team-slug> | +<user-login>'), a2: csegen_427()}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $2b => $2b, {a1: 'Request review from the given team(s) and one lucky member from one\nof those teams to review the PR for the current branch.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $38 => $38, {a1: 'Also request reviews from any users with logins specified. You specify\nthese additional users by prefixing their logins with \'+\'.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally apply any number of labels by prefixing them with \'#\'.'), a2: {h: 0}}}});
|
|
9642
9702
|
case 'config': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<property>'), a2: {a1: Commands_Help_argument(0, '<value>'), a2: {h: 0}}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $5f => $5f, {a1: 'Get or set the value of a configuration property. Not all properties\ncan be set and read via this subcommand.', a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_line()), Commands_Help_argumentx27('properties')), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(':'), a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_align(Text_PrettyPrint_Prettyprinter_Doc_concatWith(a => b => Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(a, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(','), a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_softline()), b), Prelude_Types_List_mapAppend({h: 0}, $88 => Commands_Help_option($88), Data_Config_settablePropNames())))), a2: {h: 0}});
|
|
9643
|
-
case 'pr': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--draft'), a2: {a1: Commands_Help_argument(0, '-i/--into {<branch-name>}'), a2:
|
|
9703
|
+
case 'pr': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--draft'), a2: {a1: Commands_Help_argument(0, '-i/--into {<branch-name>}'), a2: csegen_427()}}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Identify an existing PR or create a new one for the current branch.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally apply any number of labels by prefixing them with \'#\'.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally mark a new or existing PR as a draft with the --draft flag.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally specify the branch to merge into with the --into option.'), a2: {h: 0}}}}});
|
|
9644
9704
|
case 'contribute': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '-c/--checkout | -l/--list'), a2: {a1: Commands_Help_argument(0, '-<num>'), a2: {a1: Commands_Help_argument(0, '-i/--ignore {<uri>/<pr-number>}'), a2: {h: 0}}}}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $c8 => $c8, {a1: 'Contribute to an open PR. Prints a URL. Prioritizes PRs you are\nrequested to review but will also return other PRs.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $d5 => $d5, {a1: 'Use dash followed by a number (e.g. \'-3\') to skip that number of\npotential PRs and return the next.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e2 => $e2, {a1: 'Specify a PR to ignore (only affects the local Harmony config on\nthis machine) if you would like to more permanently skip a potential\nPR. Do this with the \'--ignore\' option followed by a GitHub URI or\nPull Request number.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $ef => $ef, {a1: 'Use --list to list multiple PRs instead of just one. This option \nsupports skipping PRs but does not support the checkout option because\nthere is no single PR that should be checked out.', a2: {h: 0}})), a2: {h: 0}}}}});
|
|
9645
9705
|
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}});
|
|
9646
9706
|
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}});
|
|
9647
9707
|
case 'version': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print version'), a2: {h: 0}});
|
|
9648
|
-
case 'quick': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--bugfix'), a2: {
|
|
9708
|
+
case 'quick': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--bugfix'), a2: {a1: Commands_Help_argument(0, '<title>'), a2: csegen_422()}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Quickly spin up new work with a GitHub issue and associated feature branch. If you have harmony configured to parse GitHub issue numbers ('), a2: {a1: Commands_Help_shell('harmony config branchParsing github'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(') then any PR created from the new branch will automatically link to the new ticket in its description.'), a2: {h: 0}}}}), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $142 => $142, {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_51()(), $14f => $14f, {a1: 'All additional arguments other than --bugfix will be used as the issue\ntitle. If you don\'t give any arguments then you will be prompted to enter\nthe issue title interactively. You will also be prompted for the issue\ndescription.', a2: {h: 0}})), a2: {h: 0}}}});
|
|
9649
9709
|
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}});
|
|
9650
9710
|
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}});
|
|
9651
9711
|
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}});
|
|
@@ -9653,7 +9713,7 @@ function Commands_Help_subcommandHelpx27($0) {
|
|
|
9653
9713
|
case 'list': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '<team-slug>'), a2: {h: 0}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('List all teams or the members of the given GitHub Team.'), a2: {h: 0}});
|
|
9654
9714
|
case 'health': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Graph all open PRs grouped by the month they were created.'), a2: {h: 0}});
|
|
9655
9715
|
case 'rq': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Alias for \'request\' command.'), a2: {h: 0}});
|
|
9656
|
-
default: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
9716
|
+
default: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $198 => $198, {a1: 'Unreconized command: ', a2: {a1: $0, a2: {h: 0}}}));
|
|
9657
9717
|
}
|
|
9658
9718
|
}
|
|
9659
9719
|
|
|
@@ -9759,7 +9819,7 @@ function Text_PrettyPrint_Prettyprinter_Util_reflow($0) {
|
|
|
9759
9819
|
}
|
|
9760
9820
|
|
|
9761
9821
|
/* Commands.case block in parseContributeArgs,parseSkipArg */
|
|
9762
|
-
function
|
|
9822
|
+
function Commands_case__parseContributeArgsx2cparseSkipArg_22481($0, $1, $2) {
|
|
9763
9823
|
switch($2.h) {
|
|
9764
9824
|
case undefined: /* cons */ {
|
|
9765
9825
|
switch($2.a1) {
|
|
@@ -9772,7 +9832,7 @@ function Commands_case__parseContributeArgsx2cparseSkipArg_20199($0, $1, $2) {
|
|
|
9772
9832
|
}
|
|
9773
9833
|
|
|
9774
9834
|
/* Commands.case block in case block in graph */
|
|
9775
|
-
function
|
|
9835
|
+
function Commands_case__casex20blockx20inx20graph_22215($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
9776
9836
|
return $9 => {
|
|
9777
9837
|
const $c = $d => $e => {
|
|
9778
9838
|
switch(Data_Maybe_isJust($3)) {
|
|
@@ -9785,17 +9845,17 @@ function Commands_case__casex20blockx20inx20graph_19933($0, $1, $2, $3, $4, $5,
|
|
|
9785
9845
|
}
|
|
9786
9846
|
|
|
9787
9847
|
/* Commands.case block in graph */
|
|
9788
|
-
function
|
|
9848
|
+
function Commands_case__graph_22171($0, $1, $2, $3, $4, $5) {
|
|
9789
9849
|
return $6 => {
|
|
9790
9850
|
switch($4.h) {
|
|
9791
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => FFI_GitHub_forceListTeamMembers($0, $2.a2, $4.a1, $a, $b), teamMemberLogins => $14 => $15 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_listPartitionedPRs($2, $0, 4n, 100n), prs => $1e =>
|
|
9851
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => FFI_GitHub_forceListTeamMembers($0, $2.a2, $4.a1, $a, $b), teamMemberLogins => $14 => $15 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_listPartitionedPRs($2, $0, 4n, 100n), prs => $1e => Commands_case__casex20blockx20inx20graph_22215($0, $1, $2, $3, $4.a1, teamMemberLogins, prs, Commands_PullRequest_rf__allReviewers(prs), $1e), $14, $15), $5, $6);
|
|
9792
9852
|
case 0: /* nothing */ return Data_Promise_reject('The graph command expects the name of a GitHub Team as an argument.', $5, $6);
|
|
9793
9853
|
}
|
|
9794
9854
|
};
|
|
9795
9855
|
}
|
|
9796
9856
|
|
|
9797
9857
|
/* Commands.case block in request */
|
|
9798
|
-
function
|
|
9858
|
+
function Commands_case__request_21441($0, $1, $2, $3, $4, $5) {
|
|
9799
9859
|
return $7 => $9 => {
|
|
9800
9860
|
let $a;
|
|
9801
9861
|
switch(Prelude_Types_null_Foldable_List($5.a1)) {
|
|
@@ -9851,40 +9911,40 @@ function Commands_case__request_19159($0, $1, $2, $3, $4, $5) {
|
|
|
9851
9911
|
}
|
|
9852
9912
|
|
|
9853
9913
|
/* Commands.case block in case block in request,partitionedArgs */
|
|
9854
|
-
function
|
|
9855
|
-
const $9 = Prelude_Interfaces_mapHom(
|
|
9914
|
+
function Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_21361($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
9915
|
+
const $9 = Prelude_Interfaces_mapHom(csegen_608(), $f => Prelude_Types_List_mapAppend({h: 0}, $13 => Data_String_Extra_drop(1n, $13), $f))({a1: $5, a2: $7.a1});
|
|
9856
9916
|
return {a1: $9.a1, a2: {a1: $7.a2, a2: $9.a2}};
|
|
9857
9917
|
}
|
|
9858
9918
|
|
|
9859
9919
|
/* Commands.case block in request,partitionedArgs */
|
|
9860
|
-
function
|
|
9861
|
-
return
|
|
9920
|
+
function Commands_case__requestx2cpartitionedArgs_21338($0, $1, $2, $3, $4, $5) {
|
|
9921
|
+
return Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_21361($0, $1, $2, $3, $4, $5.a1, $5.a2, Data_List_partition($12 => BashCompletion_isHashPrefix($12), $5.a2));
|
|
9862
9922
|
}
|
|
9863
9923
|
|
|
9864
|
-
/* Commands.
|
|
9865
|
-
function
|
|
9924
|
+
/* Commands.8950:20495:recombineIntoArgs */
|
|
9925
|
+
function Commands_n__8950_20495_recombineIntoArgs($0, $1) {
|
|
9866
9926
|
switch($1.h) {
|
|
9867
9927
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
9868
9928
|
case undefined: /* cons */ {
|
|
9869
9929
|
switch($1.a1) {
|
|
9870
9930
|
case '-i': {
|
|
9871
9931
|
switch($1.a2.h) {
|
|
9872
|
-
case 0: /* nil */ return
|
|
9932
|
+
case 0: /* nil */ return csegen_612();
|
|
9873
9933
|
case undefined: /* cons */ {
|
|
9874
|
-
const $8 =
|
|
9934
|
+
const $8 = Commands_n__8950_20493_parseIntoOpt($0, $1.a2.a1);
|
|
9875
9935
|
switch($8.h) {
|
|
9876
9936
|
case undefined: /* just */ {
|
|
9877
|
-
const $c =
|
|
9937
|
+
const $c = Commands_n__8950_20495_recombineIntoArgs($0, $1.a2.a2);
|
|
9878
9938
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
9879
9939
|
}
|
|
9880
9940
|
case 0: /* nothing */ {
|
|
9881
|
-
const $14 =
|
|
9941
|
+
const $14 = Commands_n__8950_20495_recombineIntoArgs($0, $1.a2.a2);
|
|
9882
9942
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
9883
9943
|
}
|
|
9884
9944
|
}
|
|
9885
9945
|
}
|
|
9886
9946
|
default: {
|
|
9887
|
-
const $1e =
|
|
9947
|
+
const $1e = Commands_n__8950_20495_recombineIntoArgs($0, $1.a2);
|
|
9888
9948
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
9889
9949
|
}
|
|
9890
9950
|
}
|
|
@@ -9893,26 +9953,26 @@ function Commands_n__8933_18213_recombineIntoArgs($0, $1) {
|
|
|
9893
9953
|
switch($1.a2.h) {
|
|
9894
9954
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--into', a2: {h: 0}}};
|
|
9895
9955
|
case undefined: /* cons */ {
|
|
9896
|
-
const $2b =
|
|
9956
|
+
const $2b = Commands_n__8950_20493_parseIntoOpt($0, $1.a2.a1);
|
|
9897
9957
|
switch($2b.h) {
|
|
9898
9958
|
case undefined: /* just */ {
|
|
9899
|
-
const $2f =
|
|
9959
|
+
const $2f = Commands_n__8950_20495_recombineIntoArgs($0, $1.a2.a2);
|
|
9900
9960
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
9901
9961
|
}
|
|
9902
9962
|
case 0: /* nothing */ {
|
|
9903
|
-
const $37 =
|
|
9963
|
+
const $37 = Commands_n__8950_20495_recombineIntoArgs($0, $1.a2.a2);
|
|
9904
9964
|
return {a1: $37.a1, a2: {a1: '--into', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
9905
9965
|
}
|
|
9906
9966
|
}
|
|
9907
9967
|
}
|
|
9908
9968
|
default: {
|
|
9909
|
-
const $41 =
|
|
9969
|
+
const $41 = Commands_n__8950_20495_recombineIntoArgs($0, $1.a2);
|
|
9910
9970
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
9911
9971
|
}
|
|
9912
9972
|
}
|
|
9913
9973
|
}
|
|
9914
9974
|
default: {
|
|
9915
|
-
const $49 =
|
|
9975
|
+
const $49 = Commands_n__8950_20495_recombineIntoArgs($0, $1.a2);
|
|
9916
9976
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
9917
9977
|
}
|
|
9918
9978
|
}
|
|
@@ -9920,30 +9980,30 @@ function Commands_n__8933_18213_recombineIntoArgs($0, $1) {
|
|
|
9920
9980
|
}
|
|
9921
9981
|
}
|
|
9922
9982
|
|
|
9923
|
-
/* Commands.
|
|
9924
|
-
function
|
|
9983
|
+
/* Commands.11002:22435:recombineIgnoreArgs */
|
|
9984
|
+
function Commands_n__11002_22435_recombineIgnoreArgs($0, $1) {
|
|
9925
9985
|
switch($1.h) {
|
|
9926
9986
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
9927
9987
|
case undefined: /* cons */ {
|
|
9928
9988
|
switch($1.a1) {
|
|
9929
9989
|
case '-i': {
|
|
9930
9990
|
switch($1.a2.h) {
|
|
9931
|
-
case 0: /* nil */ return
|
|
9991
|
+
case 0: /* nil */ return csegen_612();
|
|
9932
9992
|
case undefined: /* cons */ {
|
|
9933
|
-
const $8 =
|
|
9993
|
+
const $8 = Commands_n__11002_22432_parseIgnoreOpt($0, $1.a2.a1);
|
|
9934
9994
|
switch($8.h) {
|
|
9935
9995
|
case undefined: /* just */ {
|
|
9936
|
-
const $c =
|
|
9996
|
+
const $c = Commands_n__11002_22435_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9937
9997
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
9938
9998
|
}
|
|
9939
9999
|
case 0: /* nothing */ {
|
|
9940
|
-
const $14 =
|
|
10000
|
+
const $14 = Commands_n__11002_22435_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9941
10001
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
9942
10002
|
}
|
|
9943
10003
|
}
|
|
9944
10004
|
}
|
|
9945
10005
|
default: {
|
|
9946
|
-
const $1e =
|
|
10006
|
+
const $1e = Commands_n__11002_22435_recombineIgnoreArgs($0, $1.a2);
|
|
9947
10007
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
9948
10008
|
}
|
|
9949
10009
|
}
|
|
@@ -9952,26 +10012,26 @@ function Commands_n__10985_20153_recombineIgnoreArgs($0, $1) {
|
|
|
9952
10012
|
switch($1.a2.h) {
|
|
9953
10013
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
|
|
9954
10014
|
case undefined: /* cons */ {
|
|
9955
|
-
const $2b =
|
|
10015
|
+
const $2b = Commands_n__11002_22432_parseIgnoreOpt($0, $1.a2.a1);
|
|
9956
10016
|
switch($2b.h) {
|
|
9957
10017
|
case undefined: /* just */ {
|
|
9958
|
-
const $2f =
|
|
10018
|
+
const $2f = Commands_n__11002_22435_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9959
10019
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
9960
10020
|
}
|
|
9961
10021
|
case 0: /* nothing */ {
|
|
9962
|
-
const $37 =
|
|
10022
|
+
const $37 = Commands_n__11002_22435_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9963
10023
|
return {a1: $37.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
9964
10024
|
}
|
|
9965
10025
|
}
|
|
9966
10026
|
}
|
|
9967
10027
|
default: {
|
|
9968
|
-
const $41 =
|
|
10028
|
+
const $41 = Commands_n__11002_22435_recombineIgnoreArgs($0, $1.a2);
|
|
9969
10029
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
9970
10030
|
}
|
|
9971
10031
|
}
|
|
9972
10032
|
}
|
|
9973
10033
|
default: {
|
|
9974
|
-
const $49 =
|
|
10034
|
+
const $49 = Commands_n__11002_22435_recombineIgnoreArgs($0, $1.a2);
|
|
9975
10035
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
9976
10036
|
}
|
|
9977
10037
|
}
|
|
@@ -9979,23 +10039,23 @@ function Commands_n__10985_20153_recombineIgnoreArgs($0, $1) {
|
|
|
9979
10039
|
}
|
|
9980
10040
|
}
|
|
9981
10041
|
|
|
9982
|
-
/* Commands.
|
|
9983
|
-
function
|
|
10042
|
+
/* Commands.10216:21679:putNameLn */
|
|
10043
|
+
function Commands_n__10216_21679_putNameLn($0, $1, $2, $3) {
|
|
9984
10044
|
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}}}});
|
|
9985
10045
|
}
|
|
9986
10046
|
|
|
9987
|
-
/* Commands.
|
|
9988
|
-
function
|
|
9989
|
-
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $f =>
|
|
10047
|
+
/* Commands.8688:20231:putLabels */
|
|
10048
|
+
function Commands_n__8688_20231_putLabels($0, $1, $2, $3, $4) {
|
|
10049
|
+
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $f => Commands_n__8688_20230_putLabel($0, $1, $2, $3, $f), $4)));
|
|
9990
10050
|
}
|
|
9991
10051
|
|
|
9992
|
-
/* Commands.
|
|
9993
|
-
function
|
|
10052
|
+
/* Commands.8688:20230:putLabel */
|
|
10053
|
+
function Commands_n__8688_20230_putLabel($0, $1, $2, $3, $4) {
|
|
9994
10054
|
return Text_PrettyPrint_Prettyprinter_Doc_enclose(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\"'), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\"'), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4)));
|
|
9995
10055
|
}
|
|
9996
10056
|
|
|
9997
|
-
/* Commands.
|
|
9998
|
-
function
|
|
10057
|
+
/* Commands.11354:22796:printDetails */
|
|
10058
|
+
function Commands_n__11354_22796_printDetails($0, $1, $2, $3, $4) {
|
|
9999
10059
|
const $5 = Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4.a8));
|
|
10000
10060
|
const $d = Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' \u{251c} title: '), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4.a2));
|
|
10001
10061
|
const $16 = Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' \u{251c} created:'), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date($4.a3)));
|
|
@@ -10004,8 +10064,8 @@ function Commands_n__11337_20514_printDetails($0, $1, $2, $3, $4) {
|
|
|
10004
10064
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: $5, a2: {a1: $d, a2: {a1: $16, a2: {a1: $21, a2: {a1: $2f, a2: {h: 0}}}}}});
|
|
10005
10065
|
}
|
|
10006
10066
|
|
|
10007
|
-
/* Commands.
|
|
10008
|
-
function
|
|
10067
|
+
/* Commands.11354:22795:pickOne */
|
|
10068
|
+
function Commands_n__11354_22795_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10009
10069
|
const $9 = Data_List_headx27(Data_List_drop($5, Prelude_Types_List_tailRecAppend($7, $8)));
|
|
10010
10070
|
return $12 => $13 => {
|
|
10011
10071
|
switch($9.h) {
|
|
@@ -10019,7 +10079,7 @@ function Commands_n__11337_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
10019
10079
|
break;
|
|
10020
10080
|
}
|
|
10021
10081
|
case 0: /* nothing */ {
|
|
10022
|
-
$1a =
|
|
10082
|
+
$1a = csegen_617();
|
|
10023
10083
|
break;
|
|
10024
10084
|
}
|
|
10025
10085
|
}
|
|
@@ -10029,23 +10089,23 @@ function Commands_n__11337_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
10029
10089
|
};
|
|
10030
10090
|
}
|
|
10031
10091
|
|
|
10032
|
-
/* Commands.
|
|
10033
|
-
function
|
|
10034
|
-
return
|
|
10092
|
+
/* Commands.9816:21326:partitionedArgs */
|
|
10093
|
+
function Commands_n__9816_21326_partitionedArgs($0, $1, $2, $3, $4) {
|
|
10094
|
+
return Commands_case__requestx2cpartitionedArgs_21338($0, $1, $2, $3, $4, Data_List_partition($e => Data_String_isPrefixOf('+', $e), $4));
|
|
10035
10095
|
}
|
|
10036
10096
|
|
|
10037
|
-
/* Commands.
|
|
10038
|
-
function
|
|
10097
|
+
/* Commands.10384:21867:parseTeamArg */
|
|
10098
|
+
function Commands_n__10384_21867_parseTeamArg($0, $1) {
|
|
10039
10099
|
return {a1: {a1: $1}};
|
|
10040
10100
|
}
|
|
10041
10101
|
|
|
10042
|
-
/* Commands.
|
|
10043
|
-
function
|
|
10044
|
-
return
|
|
10102
|
+
/* Commands.11002:22434:parseSkipArg */
|
|
10103
|
+
function Commands_n__11002_22434_parseSkipArg($0, $1) {
|
|
10104
|
+
return Commands_case__parseContributeArgsx2cparseSkipArg_22481($0, $1, Data_String_strM($1));
|
|
10045
10105
|
}
|
|
10046
10106
|
|
|
10047
|
-
/* Commands.
|
|
10048
|
-
function
|
|
10107
|
+
/* Commands.11002:22433:parseListFlag */
|
|
10108
|
+
function Commands_n__11002_22433_parseListFlag($0, $1) {
|
|
10049
10109
|
switch($1) {
|
|
10050
10110
|
case '-l': return {a1: {h: 0 /* List */}};
|
|
10051
10111
|
case '--list': return {a1: {h: 0 /* List */}};
|
|
@@ -10053,8 +10113,8 @@ function Commands_n__10985_20151_parseListFlag($0, $1) {
|
|
|
10053
10113
|
}
|
|
10054
10114
|
}
|
|
10055
10115
|
|
|
10056
|
-
/* Commands.
|
|
10057
|
-
function
|
|
10116
|
+
/* Commands.8950:20494:parseLabelArg */
|
|
10117
|
+
function Commands_n__8950_20494_parseLabelArg($0, $1) {
|
|
10058
10118
|
const $2 = Data_String_strM($1);
|
|
10059
10119
|
switch($2.h) {
|
|
10060
10120
|
case undefined: /* cons */ {
|
|
@@ -10067,29 +10127,29 @@ function Commands_n__8933_18212_parseLabelArg($0, $1) {
|
|
|
10067
10127
|
}
|
|
10068
10128
|
}
|
|
10069
10129
|
|
|
10070
|
-
/* Commands.
|
|
10071
|
-
function
|
|
10130
|
+
/* Commands.8950:20493:parseIntoOpt */
|
|
10131
|
+
function Commands_n__8950_20493_parseIntoOpt($0, $1) {
|
|
10072
10132
|
const $2 = Util_String_nonEmpty($1);
|
|
10073
10133
|
return Prelude_Types_map_Functor_Maybe($7 => $7, $2);
|
|
10074
10134
|
}
|
|
10075
10135
|
|
|
10076
|
-
/* Commands.
|
|
10077
|
-
function
|
|
10078
|
-
const $2 = Data_String_split(
|
|
10136
|
+
/* Commands.11002:22432:parseIgnoreOpt */
|
|
10137
|
+
function Commands_n__11002_22432_parseIgnoreOpt($0, $1) {
|
|
10138
|
+
const $2 = Data_String_split(csegen_359(), $1);
|
|
10079
10139
|
const $7 = Data_List1_last($2);
|
|
10080
10140
|
return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
|
|
10081
10141
|
}
|
|
10082
10142
|
|
|
10083
|
-
/* Commands.
|
|
10084
|
-
function
|
|
10143
|
+
/* Commands.8950:20492:parseDraftFlag */
|
|
10144
|
+
function Commands_n__8950_20492_parseDraftFlag($0, $1) {
|
|
10085
10145
|
switch($1) {
|
|
10086
10146
|
case '--draft': return {a1: {h: 0 /* Draft */}};
|
|
10087
10147
|
default: return {h: 0};
|
|
10088
10148
|
}
|
|
10089
10149
|
}
|
|
10090
10150
|
|
|
10091
|
-
/* Commands.
|
|
10092
|
-
function
|
|
10151
|
+
/* Commands.10384:21866:parseCompletedFlag */
|
|
10152
|
+
function Commands_n__10384_21866_parseCompletedFlag($0, $1) {
|
|
10093
10153
|
switch($1) {
|
|
10094
10154
|
case '-c': return {a1: {h: 0}};
|
|
10095
10155
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -10097,8 +10157,8 @@ function Commands_n__10367_19584_parseCompletedFlag($0, $1) {
|
|
|
10097
10157
|
}
|
|
10098
10158
|
}
|
|
10099
10159
|
|
|
10100
|
-
/* Commands.
|
|
10101
|
-
function
|
|
10160
|
+
/* Commands.11002:22431:parseCheckoutFlag */
|
|
10161
|
+
function Commands_n__11002_22431_parseCheckoutFlag($0, $1) {
|
|
10102
10162
|
switch($1) {
|
|
10103
10163
|
case '-c': return {a1: {h: 1 /* Checkout */}};
|
|
10104
10164
|
case '--checkout': return {a1: {h: 1 /* Checkout */}};
|
|
@@ -10106,8 +10166,8 @@ function Commands_n__10985_20149_parseCheckoutFlag($0, $1) {
|
|
|
10106
10166
|
}
|
|
10107
10167
|
}
|
|
10108
10168
|
|
|
10109
|
-
/* Commands.
|
|
10110
|
-
function
|
|
10169
|
+
/* Commands.11354:22794:listSome */
|
|
10170
|
+
function Commands_n__11354_22794_listSome($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10111
10171
|
const $15 = $16 => {
|
|
10112
10172
|
let $1b;
|
|
10113
10173
|
switch(Prelude_Types_null_Foldable_List($6)) {
|
|
@@ -10120,13 +10180,13 @@ function Commands_n__11337_20512_listSome($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
10120
10180
|
break;
|
|
10121
10181
|
}
|
|
10122
10182
|
}
|
|
10123
|
-
return Prelude_Interfaces_when(csegen_66()(), $1b, () => $20 => $21 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10183
|
+
return Prelude_Interfaces_when(csegen_66()(), $1b, () => $20 => $21 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $27 => $28 => $29 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_renderIO($3, csegen_74()(), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_bold(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Your review not requested:'))), $39 => Commands_n__11354_22792_goListSome($0, $1, $2, $3, 0, Data_List_take(5n, $6)), $28, $29), $20, $21));
|
|
10124
10184
|
};
|
|
10125
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10185
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_n__11354_22792_goListSome($0, $1, $2, $3, 1, Data_List_drop($4, $5)), $15, $7, $8);
|
|
10126
10186
|
}
|
|
10127
10187
|
|
|
10128
|
-
/* Commands.
|
|
10129
|
-
function
|
|
10188
|
+
/* Commands.9376:20923:labelSlugs */
|
|
10189
|
+
function Commands_n__9376_20923_labelSlugs($0, $1, $2, $3) {
|
|
10130
10190
|
const $5 = $6 => $7 => {
|
|
10131
10191
|
switch($6.h) {
|
|
10132
10192
|
case 2: /* Label */ return {a1: $6.a1, a2: $7};
|
|
@@ -10136,13 +10196,13 @@ function Commands_n__9359_18641_labelSlugs($0, $1, $2, $3) {
|
|
|
10136
10196
|
return Prelude_Types_foldr_Foldable_List($5, {h: 0}, $3);
|
|
10137
10197
|
}
|
|
10138
10198
|
|
|
10139
|
-
/* Commands.
|
|
10140
|
-
function
|
|
10199
|
+
/* Commands.11354:22793:isNotIgnored */
|
|
10200
|
+
function Commands_n__11354_22793_isNotIgnored($0, $1, $2, $3, $4, $5) {
|
|
10141
10201
|
return Data_Maybe_isNothing(Data_List_find($a => Prelude_EqOrd_x3dx3d_Eq_Integer($a, $5.a1), $4.a13));
|
|
10142
10202
|
}
|
|
10143
10203
|
|
|
10144
|
-
/* Commands.
|
|
10145
|
-
function
|
|
10204
|
+
/* Commands.9376:20922:isDraft */
|
|
10205
|
+
function Commands_n__9376_20922_isDraft($0, $1, $2, $3) {
|
|
10146
10206
|
const $7 = $8 => {
|
|
10147
10207
|
switch($8.h) {
|
|
10148
10208
|
case 0: /* Draft */ return 1;
|
|
@@ -10153,8 +10213,8 @@ function Commands_n__9359_18640_isDraft($0, $1, $2, $3) {
|
|
|
10153
10213
|
return Data_Maybe_isJust($5);
|
|
10154
10214
|
}
|
|
10155
10215
|
|
|
10156
|
-
/* Commands.
|
|
10157
|
-
function
|
|
10216
|
+
/* Commands.9376:20921:intoBranch */
|
|
10217
|
+
function Commands_n__9376_20921_intoBranch($0, $1, $2, $3) {
|
|
10158
10218
|
const $d = $e => {
|
|
10159
10219
|
switch($e.h) {
|
|
10160
10220
|
case 1: /* Into */ return {a1: Util_String_value($e.a1)};
|
|
@@ -10164,11 +10224,11 @@ function Commands_n__9359_18639_intoBranch($0, $1, $2, $3) {
|
|
|
10164
10224
|
return Prelude_Types_foldMap_Foldable_List({a1: $7 => $8 => Prelude_Types_x3cx2bx3e_Semigroup_x28Maybex20x24ax29($7, $8), a2: {h: 0}}, $d, $3);
|
|
10165
10225
|
}
|
|
10166
10226
|
|
|
10167
|
-
/* Commands.
|
|
10168
|
-
function
|
|
10227
|
+
/* Commands.11354:22792:goListSome */
|
|
10228
|
+
function Commands_n__11354_22792_goListSome($0, $1, $2, $3, $4, $5) {
|
|
10169
10229
|
switch($5.h) {
|
|
10170
10230
|
case undefined: /* cons */ {
|
|
10171
|
-
const $7 =
|
|
10231
|
+
const $7 = Commands_n__11354_22796_printDetails($0, $1, $2, $3, $5.a1);
|
|
10172
10232
|
let $15;
|
|
10173
10233
|
switch($4) {
|
|
10174
10234
|
case 1: {
|
|
@@ -10180,15 +10240,28 @@ function Commands_n__11337_20510_goListSome($0, $1, $2, $3, $4, $5) {
|
|
|
10180
10240
|
break;
|
|
10181
10241
|
}
|
|
10182
10242
|
}
|
|
10183
|
-
const $13 = Text_PrettyPrint_Prettyprinter_Doc_indent($15, Prelude_Types_foldl_Foldable_List(acc => next => Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: acc, a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
10243
|
+
const $13 = Text_PrettyPrint_Prettyprinter_Doc_indent($15, Prelude_Types_foldl_Foldable_List(acc => next => Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: acc, a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_n__11354_22796_printDetails($0, $1, $2, $3, next), a2: {h: 0}}}}), $7, $5.a2));
|
|
10184
10244
|
return Util_renderIO($3, csegen_74()(), $13);
|
|
10185
10245
|
}
|
|
10186
|
-
case 0: /* nil */ return
|
|
10246
|
+
case 0: /* nil */ return csegen_617();
|
|
10247
|
+
}
|
|
10248
|
+
}
|
|
10249
|
+
|
|
10250
|
+
/* Commands.12468:23815:go */
|
|
10251
|
+
function Commands_n__12468_23815_go($0, $1) {
|
|
10252
|
+
switch($1.h) {
|
|
10253
|
+
case 0: /* nothing */ return $0;
|
|
10254
|
+
default: {
|
|
10255
|
+
switch($0.h) {
|
|
10256
|
+
case 0: /* nothing */ return {a1: $1.a1};
|
|
10257
|
+
case undefined: /* just */ return {a1: Prelude_Types_foldMap_Foldable_List(csegen_51()(), $d => $d, {a1: $0.a1, a2: {a1: ' ', a2: {a1: $1.a1, a2: {h: 0}}}})};
|
|
10258
|
+
}
|
|
10259
|
+
}
|
|
10187
10260
|
}
|
|
10188
10261
|
}
|
|
10189
10262
|
|
|
10190
|
-
/* Commands.
|
|
10191
|
-
function
|
|
10263
|
+
/* Commands.10216:21678:forkedUser */
|
|
10264
|
+
function Commands_n__10216_21678_forkedUser($0, $1, $2, $3) {
|
|
10192
10265
|
return FFI_Concurrency_fork(csegen_74()(), ('user --json '+$3));
|
|
10193
10266
|
}
|
|
10194
10267
|
|
|
@@ -10197,6 +10270,11 @@ function Commands_whoami($0, $1, $2, $3, $4) {
|
|
|
10197
10270
|
return Commands_User_Me_printInfoOnSelf($0, $2, $1, $3, $4);
|
|
10198
10271
|
}
|
|
10199
10272
|
|
|
10273
|
+
/* Commands.titleArg : List QuickArg -> Maybe String */
|
|
10274
|
+
function Commands_titleArg($0) {
|
|
10275
|
+
return Prelude_Types_foldl_Foldable_List($3 => $4 => Commands_n__12468_23815_go($3, $4), {h: 0}, $0);
|
|
10276
|
+
}
|
|
10277
|
+
|
|
10200
10278
|
/* Commands.teamNameArg : GraphArg -> Maybe String */
|
|
10201
10279
|
function Commands_teamNameArg($0) {
|
|
10202
10280
|
switch($0.h) {
|
|
@@ -10221,7 +10299,7 @@ function Commands_skipArg($0) {
|
|
|
10221
10299
|
/* Commands.request : Config => Git => Octokit => List String -> {default False _ : Bool} ->
|
|
10222
10300
|
Promise' () */
|
|
10223
10301
|
function Commands_request($0, $1, $2, $3, $4) {
|
|
10224
|
-
return
|
|
10302
|
+
return Commands_case__request_21441($0, $1, $2, $4, $3, Commands_n__9816_21326_partitionedArgs($0, $1, $2, $4, $3));
|
|
10225
10303
|
}
|
|
10226
10304
|
|
|
10227
10305
|
/* Commands.reflect : Config => Octokit => Promise' () */
|
|
@@ -10229,9 +10307,9 @@ function Commands_reflect($0, $1, $2, $3) {
|
|
|
10229
10307
|
return Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3);
|
|
10230
10308
|
}
|
|
10231
10309
|
|
|
10232
|
-
/* Commands.quick : Config => Git => Octokit =>
|
|
10310
|
+
/* Commands.quick : Config => Git => Octokit => List QuickArg -> Promise' () */
|
|
10233
10311
|
function Commands_quick($0, $1, $2, $3, $4, $5) {
|
|
10234
|
-
return Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5);
|
|
10312
|
+
return Commands_Quick_quickStartNewWork($0, $1, $2, Commands_issueCategory($3), Commands_titleArg($3), $4, $5);
|
|
10235
10313
|
}
|
|
10236
10314
|
|
|
10237
10315
|
/* Commands.prUsageError : String */
|
|
@@ -10252,7 +10330,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10252
10330
|
};
|
|
10253
10331
|
const $48 = $49 => $4a => $4b => {
|
|
10254
10332
|
let $52;
|
|
10255
|
-
switch(Prelude_Types_null_Foldable_List(
|
|
10333
|
+
switch(Prelude_Types_null_Foldable_List(Commands_n__9376_20923_labelSlugs($0, $1, $2, $3))) {
|
|
10256
10334
|
case 1: {
|
|
10257
10335
|
$52 = 0;
|
|
10258
10336
|
break;
|
|
@@ -10262,10 +10340,10 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10262
10340
|
break;
|
|
10263
10341
|
}
|
|
10264
10342
|
}
|
|
10265
|
-
const $4d = Prelude_Interfaces_when(csegen_66()(), $52, () => $5c => $5d => Commands_label($0, $1, $2,
|
|
10343
|
+
const $4d = Prelude_Interfaces_when(csegen_66()(), $52, () => $5c => $5d => Commands_label($0, $1, $2, Commands_n__9376_20923_labelSlugs($0, $1, $2, $3), $5c, $5d));
|
|
10266
10344
|
const $6a = $6b => $6c => $6d => {
|
|
10267
10345
|
const $6f = $70 => {
|
|
10268
|
-
const $71 =
|
|
10346
|
+
const $71 = Commands_n__9376_20921_intoBranch($0, $1, $2, $3);
|
|
10269
10347
|
switch($71.h) {
|
|
10270
10348
|
case undefined: /* just */ {
|
|
10271
10349
|
return $77 => {
|
|
@@ -10280,7 +10358,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10280
10358
|
};
|
|
10281
10359
|
const $96 = $97 => {
|
|
10282
10360
|
let $9c;
|
|
10283
|
-
switch(
|
|
10361
|
+
switch(Commands_n__9376_20922_isDraft($0, $1, $2, $3)) {
|
|
10284
10362
|
case 1: {
|
|
10285
10363
|
switch($2c.a2.a4) {
|
|
10286
10364
|
case 1: {
|
|
@@ -10309,7 +10387,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10309
10387
|
};
|
|
10310
10388
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_74()(), 0, 'Are you sure you want to convert the existing PR for the current branch to a draft?'), $b8, $ae, $af);
|
|
10311
10389
|
};
|
|
10312
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10390
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $ac, $a6, $a7);
|
|
10313
10391
|
});
|
|
10314
10392
|
};
|
|
10315
10393
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6f, $96, $6c, $6d);
|
|
@@ -10321,7 +10399,20 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10321
10399
|
case 1: /* Hypothetical */ return $f4 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($f7 => Prelude_IO_prim__putStr(($2c.a1+'\n'), $f7), $2d, $2e, $f4);
|
|
10322
10400
|
}
|
|
10323
10401
|
};
|
|
10324
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8 => $9 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c => $d => FFI_Git_currentBranch($1, $c, $d), $13 => $14 => $15 => Commands_PullRequest_identifyOrCreatePR($0, $1, $2,
|
|
10402
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8 => $9 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c => $d => FFI_Git_currentBranch($1, $c, $d), $13 => $14 => $15 => Commands_PullRequest_identifyOrCreatePR($0, $1, $2, Commands_n__9376_20922_isDraft($0, $1, $2, $3), Commands_n__9376_20921_intoBranch($0, $1, $2, $3), $13, $14, $15), $8, $9), $2b, $4, $5);
|
|
10403
|
+
}
|
|
10404
|
+
|
|
10405
|
+
/* Commands.parseQuickArgs : List String -> List QuickArg */
|
|
10406
|
+
function Commands_parseQuickArgs($0) {
|
|
10407
|
+
switch($0.h) {
|
|
10408
|
+
case 0: /* nil */ return {h: 0};
|
|
10409
|
+
case undefined: /* cons */ {
|
|
10410
|
+
switch($0.a1) {
|
|
10411
|
+
case '--bugfix': return {a1: {h: 0}, a2: Commands_parseQuickArgs($0.a2)};
|
|
10412
|
+
default: return {a1: {a1: $0.a1}, a2: Commands_parseQuickArgs($0.a2)};
|
|
10413
|
+
}
|
|
10414
|
+
}
|
|
10415
|
+
}
|
|
10325
10416
|
}
|
|
10326
10417
|
|
|
10327
10418
|
/* Commands.parsePrArgs : List String -> Either String (List PrArg) */
|
|
@@ -10329,9 +10420,9 @@ function Commands_parsePrArgs($0) {
|
|
|
10329
10420
|
switch($0.h) {
|
|
10330
10421
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
10331
10422
|
default: {
|
|
10332
|
-
const $3 =
|
|
10423
|
+
const $3 = Commands_n__8950_20495_recombineIntoArgs($0, $0);
|
|
10333
10424
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 1 /* Into */, a1: $b}), $3.a1);
|
|
10334
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
10425
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_633(), $18 => Commands_n__8950_20492_parseDraftFlag($0, $18), $1d => Commands_n__8950_20494_parseLabelArg($0, $1d), $13), $3.a2);
|
|
10335
10426
|
return Data_Either_maybeToEither(() => Commands_prUsageError(), Prelude_Types_map_Functor_Maybe($29 => Prelude_Types_List_tailRecAppend($7, $29), $e));
|
|
10336
10427
|
}
|
|
10337
10428
|
}
|
|
@@ -10347,7 +10438,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10347
10438
|
switch($0.a2.a2.h) {
|
|
10348
10439
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
10349
10440
|
default: {
|
|
10350
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(
|
|
10441
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_633(), $10 => Commands_n__10384_21866_parseCompletedFlag($0, $10), $15 => Commands_n__10384_21867_parseTeamArg($0, $15), $b), $0);
|
|
10351
10442
|
switch($6.h) {
|
|
10352
10443
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
10353
10444
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10356,7 +10447,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10356
10447
|
}
|
|
10357
10448
|
}
|
|
10358
10449
|
default: {
|
|
10359
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(
|
|
10450
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_633(), $27 => Commands_n__10384_21866_parseCompletedFlag($0, $27), $2c => Commands_n__10384_21867_parseTeamArg($0, $2c), $22), $0);
|
|
10360
10451
|
switch($1d.h) {
|
|
10361
10452
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
10362
10453
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10365,7 +10456,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10365
10456
|
}
|
|
10366
10457
|
}
|
|
10367
10458
|
default: {
|
|
10368
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(
|
|
10459
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_633(), $3e => Commands_n__10384_21866_parseCompletedFlag($0, $3e), $43 => Commands_n__10384_21867_parseTeamArg($0, $43), $39), $0);
|
|
10369
10460
|
switch($34.h) {
|
|
10370
10461
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
10371
10462
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10379,9 +10470,9 @@ function Commands_parseContributeArgs($0) {
|
|
|
10379
10470
|
switch($0.h) {
|
|
10380
10471
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
10381
10472
|
default: {
|
|
10382
|
-
const $3 =
|
|
10473
|
+
const $3 = Commands_n__11002_22435_recombineIgnoreArgs($0, $0);
|
|
10383
10474
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 2 /* Ignore */, a1: $b}), $3.a1);
|
|
10384
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
10475
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_633(), $18 => Commands_n__11002_22433_parseListFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_633(), $22 => Commands_n__11002_22434_parseSkipArg($0, $22), $27 => Commands_n__11002_22431_parseCheckoutFlag($0, $27), $1d), $13), $3.a2);
|
|
10385
10476
|
return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($34 => Prelude_Types_List_tailRecAppend($7, $34), $e));
|
|
10386
10477
|
}
|
|
10387
10478
|
}
|
|
@@ -10389,12 +10480,12 @@ function Commands_parseContributeArgs($0) {
|
|
|
10389
10480
|
|
|
10390
10481
|
/* Commands.listOrgTeams : Config => Octokit => Promise' () */
|
|
10391
10482
|
function Commands_listOrgTeams($0, $1, $2, $3) {
|
|
10392
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10483
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_634(), $c => $d => FFI_GitHub_forceListTeams($1, $0.a2, $c, $d), $6, $7), teamNames => Util_renderIO($0, csegen_74()(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $22 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($22)), teamNames))), $2, $3);
|
|
10393
10484
|
}
|
|
10394
10485
|
|
|
10395
10486
|
/* Commands.list : Config => Octokit => String -> Promise' () */
|
|
10396
10487
|
function Commands_list($0, $1, $2, $3, $4) {
|
|
10397
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10488
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_634(), $d => $e => FFI_GitHub_forceListTeamMembers($1, $0.a2, $2, $d, $e), $7, $8), teamMemberLogins => $19 => $1a => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(), csegen_636(), Prelude_Types_traverse_Traversable_List(csegen_66()(), $29 => Commands_n__10216_21678_forkedUser($1, $2, $0, $29), teamMemberLogins)), teamMembersJson => $31 => $32 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Types_traverse_Traversable_List(csegen_66()(), $3a => $3b => Data_Promise_either(Data_User_parseUser($3a), $3b), teamMembersJson), teamMembers => Util_renderIO($0, csegen_74()(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $4e => Commands_n__10216_21679_putNameLn($1, $2, $0, $4e), teamMembers))), $31, $32), $19, $1a), $3, $4);
|
|
10398
10489
|
}
|
|
10399
10490
|
|
|
10400
10491
|
/* Commands.label : Config => Git => Octokit => List String -> Promise' () */
|
|
@@ -10403,7 +10494,7 @@ function Commands_label($0, $1, $2, $3, $4, $5) {
|
|
|
10403
10494
|
switch($22.h) {
|
|
10404
10495
|
case 0: /* Actual */ {
|
|
10405
10496
|
const $24 = Prelude_Types_List_mapAppend({h: 0}, $28 => Commands_Label_unslugifyLabel($0.a11, $28), $3);
|
|
10406
|
-
return $2e => $2f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($32 => $33 => Commands_Label_addLabels($0, $2, $22.a2, $24, $32, $33), allLabels => Util_renderIO($0, csegen_74()(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Added'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(
|
|
10497
|
+
return $2e => $2f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($32 => $33 => Commands_Label_addLabels($0, $2, $22.a2, $24, $32, $33), allLabels => Util_renderIO($0, csegen_74()(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Added'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8688_20231_putLabels($1, $2, $3, $0, $24), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(' to PR.'), a2: {h: 0}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $64 => $64, {a1: 'All labels for PR of ', a2: {a1: $22.a2.a8, a2: {a1: ':', a2: {h: 0}}}})), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8688_20231_putLabels($1, $2, $3, $0, allLabels), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('.'), a2: {h: 0}}))), a2: {h: 0}}})), $2e, $2f);
|
|
10407
10498
|
}
|
|
10408
10499
|
case 1: /* Hypothetical */ return $80 => $81 => Data_Promise_reject('You cannot label a PR that has not been created yet and you cannot create the PR in this non-TTY shell', $80, $81);
|
|
10409
10500
|
}
|
|
@@ -10411,6 +10502,11 @@ function Commands_label($0, $1, $2, $3, $4, $5) {
|
|
|
10411
10502
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8 => $9 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c => $d => FFI_Git_currentBranch($1, $c, $d), $13 => $14 => $15 => Commands_PullRequest_identifyOrCreatePR($0, $1, $2, 0, {h: 0}, $13, $14, $15), $8, $9), $21, $4, $5);
|
|
10412
10503
|
}
|
|
10413
10504
|
|
|
10505
|
+
/* Commands.issueCategory : List QuickArg -> IssueCategory */
|
|
10506
|
+
function Commands_issueCategory($0) {
|
|
10507
|
+
return Prelude_Types_maybe(() => 1, () => $4 => 0, Data_List_find(csegen_643(), $0));
|
|
10508
|
+
}
|
|
10509
|
+
|
|
10414
10510
|
/* Commands.health : Config => Octokit => Promise' () */
|
|
10415
10511
|
function Commands_health($0, $1, $2, $3) {
|
|
10416
10512
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_listOpenPRs($0, $1, 4n, 100n), prs => Util_renderIO($0, csegen_74()(), Commands_Graph_healthGraph($0, prs, $0.a2, $0.a3)), $2, $3);
|
|
@@ -10418,14 +10514,8 @@ function Commands_health($0, $1, $2, $3) {
|
|
|
10418
10514
|
|
|
10419
10515
|
/* Commands.graph : Config => Octokit => List GraphArg -> Promise' () */
|
|
10420
10516
|
function Commands_graph($0, $1, $2) {
|
|
10421
|
-
const $
|
|
10422
|
-
|
|
10423
|
-
case 0: /* nothing */ return 1;
|
|
10424
|
-
default: return 0;
|
|
10425
|
-
}
|
|
10426
|
-
};
|
|
10427
|
-
const $3 = Data_List_find($5, $2);
|
|
10428
|
-
return $9 => Commands_case__graph_19889($1, $2, $0, $3, Data_List_headx27(Prelude_Types_List_mapMaybeAppend({h: 0}, $15 => Commands_teamNameArg($15), $2)), $9);
|
|
10517
|
+
const $3 = Data_List_find(csegen_643(), $2);
|
|
10518
|
+
return $8 => Commands_case__graph_22171($1, $2, $0, $3, Data_List_headx27(Prelude_Types_List_mapMaybeAppend({h: 0}, $14 => Commands_teamNameArg($14), $2)), $8);
|
|
10429
10519
|
}
|
|
10430
10520
|
|
|
10431
10521
|
/* Commands.contributeUsageError : String */
|
|
@@ -10490,17 +10580,17 @@ function Commands_contribute($0, $1, $2, $3, $4, $5) {
|
|
|
10490
10580
|
}
|
|
10491
10581
|
};
|
|
10492
10582
|
const $72 = Prelude_Types_List_filterAppend({h: 0}, $75, $13);
|
|
10493
|
-
const $7c = Prelude_Types_List_filterAppend({h: 0}, $80 =>
|
|
10583
|
+
const $7c = Prelude_Types_List_filterAppend({h: 0}, $80 => Commands_n__11354_22793_isNotIgnored($1, $2, $3, $0, configx27, $80), $72);
|
|
10494
10584
|
const $89 = Data_List_partition($8c => Data_PullRequest_isRequestedReviewer(myLogin, $8c), $7c);
|
|
10495
|
-
const $91 = Prelude_Interfaces_mapHom(
|
|
10585
|
+
const $91 = Prelude_Interfaces_mapHom(csegen_608(), $97 => Data_List_sortBy(csegen_650(), $97))($89);
|
|
10496
10586
|
let $71;
|
|
10497
10587
|
switch($54.h) {
|
|
10498
10588
|
case 0: /* nothing */ {
|
|
10499
|
-
$71 = () =>
|
|
10589
|
+
$71 = () => Commands_n__11354_22795_pickOne($1, $2, $3, $0, configx27, $41, $4e, $91.a1, $91.a2);
|
|
10500
10590
|
break;
|
|
10501
10591
|
}
|
|
10502
10592
|
case undefined: /* just */ {
|
|
10503
|
-
$71 = () => $a8 => $a9 =>
|
|
10593
|
+
$71 = () => $a8 => $a9 => Commands_n__11354_22794_listSome($1, $2, $3, $0, $41, $91.a1, $91.a2, $a8, $a9);
|
|
10504
10594
|
break;
|
|
10505
10595
|
}
|
|
10506
10596
|
}
|
|
@@ -10512,7 +10602,7 @@ function Commands_contribute($0, $1, $2, $3, $4, $5) {
|
|
|
10512
10602
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($31, $40, $2e, $2f);
|
|
10513
10603
|
};
|
|
10514
10604
|
};
|
|
10515
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1f => $20 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10605
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1f => $20 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_365()(), FFI_GitHub_getSelf($2), $1f, $20), $2a, $1b, $1c);
|
|
10516
10606
|
};
|
|
10517
10607
|
};
|
|
10518
10608
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequests($2, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $12, $4, $5);
|
|
@@ -10534,8 +10624,8 @@ function Commands_x3cx7cx7cx3e($0, $1, $2, $3) {
|
|
|
10534
10624
|
return $0.a3(undefined)($1($3))(() => $2($3));
|
|
10535
10625
|
}
|
|
10536
10626
|
|
|
10537
|
-
/* FFI.Concurrency.
|
|
10538
|
-
function
|
|
10627
|
+
/* FFI.Concurrency.5718:20235:both */
|
|
10628
|
+
function FFI_Concurrency_n__5718_20235_both($0, $1, $2, $3, $4) {
|
|
10539
10629
|
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($13 => FFI_Concurrency_prim__singleton($3, $13)))(xx27 => $0.a1.a2(undefined)(undefined)($0.a1.a2(undefined)(undefined)($4)($2b => $0.a2(undefined)($31 => FFI_Concurrency_prim__both(xx27, $2b, $31))))(nested => $0.a2(undefined)($3c => FFI_Concurrency_prim__flatten(nested, $3c))));
|
|
10540
10630
|
}
|
|
10541
10631
|
|
|
@@ -10578,7 +10668,7 @@ function FFI_Concurrency_fork($0, $1) {
|
|
|
10578
10668
|
|
|
10579
10669
|
/* FFI.Concurrency.all : HasIO io => Foldable t => t Future -> io Future */
|
|
10580
10670
|
function FFI_Concurrency_all($0, $1, $2) {
|
|
10581
|
-
return $1.a1(undefined)(undefined)($c => $d =>
|
|
10671
|
+
return $1.a1(undefined)(undefined)($c => $d => FFI_Concurrency_n__5718_20235_both($0, $1, $2, $c, $d))($0.a2(undefined)($1a => FFI_Concurrency_prim__neutral($1a)))($2);
|
|
10582
10672
|
}
|
|
10583
10673
|
|
|
10584
10674
|
/* Data.SortedMap.map */
|
|
@@ -10618,7 +10708,7 @@ function Data_SortedMap_empty($0) {
|
|
|
10618
10708
|
|
|
10619
10709
|
/* Data.SortedMap.Dependent.treeToList : Tree n k v o -> List (x : k ** v x) */
|
|
10620
10710
|
function Data_SortedMap_Dependent_treeToList($0) {
|
|
10621
|
-
return
|
|
10711
|
+
return Data_SortedMap_Dependent_n__6828_9064_treeToListx27($3 => ({a1: $3, a2: {h: 0}}), $0);
|
|
10622
10712
|
}
|
|
10623
10713
|
|
|
10624
10714
|
/* Data.SortedMap.Dependent.treeMap : (a x -> b x) -> Tree n k a o -> Tree n k b o */
|
|
@@ -10746,67 +10836,67 @@ function Data_SortedMap_Dependent_empty($0) {
|
|
|
10746
10836
|
|
|
10747
10837
|
/* Commands.User.Reflect.case block in case block in reflectOnSelf */
|
|
10748
10838
|
function Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
10749
|
-
const $b = Prelude_Interfaces_mapHom(
|
|
10839
|
+
const $b = Prelude_Interfaces_mapHom(csegen_608(), $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_672(), $11))))({a1: $7, a2: $9.a1});
|
|
10750
10840
|
return Util_renderIO($0, csegen_74()(), Commands_User_Reflect_print(Prelude_Types_String_length(Commands_User_Reflect_intro()), Prelude_Types_List_lengthTR($4), Prelude_Types_List_lengthTR($9.a1), Prelude_Types_List_lengthTR($9.a2), Prelude_Types_List_lengthTR($8), Prelude_Types_List_lengthTR($7), $5, $b.a1, $b.a2, $0));
|
|
10751
10841
|
}
|
|
10752
10842
|
|
|
10753
|
-
/* Commands.User.Me.
|
|
10754
|
-
function
|
|
10843
|
+
/* Commands.User.Me.7549:2049:ul */
|
|
10844
|
+
function Commands_User_Me_n__7549_2049_ul($0, $1, $2, $3, $4) {
|
|
10755
10845
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
10756
10846
|
}
|
|
10757
10847
|
|
|
10758
|
-
/* Commands.User.Me.
|
|
10759
|
-
function
|
|
10760
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
10848
|
+
/* Commands.User.Me.7549:2048:teams */
|
|
10849
|
+
function Commands_User_Me_n__7549_2048_teams($0, $1, $2, $3) {
|
|
10850
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_User_Me_n__7549_2049_ul($0, $1, $2, $3, 'GitHub Teams:'), a2: Prelude_Types_List_mapAppend({h: 0}, $11 => Commands_User_Me_n__7549_2046_it($0, $1, $2, $3, $11), $0)});
|
|
10761
10851
|
}
|
|
10762
10852
|
|
|
10763
|
-
/* Commands.User.Me.
|
|
10764
|
-
function
|
|
10765
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'),
|
|
10853
|
+
/* Commands.User.Me.7549:2047:login */
|
|
10854
|
+
function Commands_User_Me_n__7549_2047_login($0, $1, $2, $3) {
|
|
10855
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'), Commands_User_Me_n__7549_2043_dataVal($0, $1, $2, $3, $1.a1));
|
|
10766
10856
|
}
|
|
10767
10857
|
|
|
10768
|
-
/* Commands.User.Reflect.
|
|
10769
|
-
function
|
|
10858
|
+
/* Commands.User.Reflect.6604:1075:ital */
|
|
10859
|
+
function Commands_User_Reflect_n__6604_1075_ital($0, $1) {
|
|
10770
10860
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
10771
10861
|
}
|
|
10772
10862
|
|
|
10773
|
-
/* Commands.User.Me.
|
|
10774
|
-
function
|
|
10863
|
+
/* Commands.User.Me.7549:2046:it */
|
|
10864
|
+
function Commands_User_Me_n__7549_2046_it($0, $1, $2, $3, $4) {
|
|
10775
10865
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
10776
10866
|
}
|
|
10777
10867
|
|
|
10778
|
-
/* Commands.User.Me.
|
|
10779
|
-
function
|
|
10868
|
+
/* Commands.User.Me.7699:2202:handleUnsetEmail */
|
|
10869
|
+
function Commands_User_Me_n__7699_2202_handleUnsetEmail($0, $1, $2, $3) {
|
|
10780
10870
|
switch($3) {
|
|
10781
10871
|
case '': return {h: 0};
|
|
10782
10872
|
default: return {a1: $3};
|
|
10783
10873
|
}
|
|
10784
10874
|
}
|
|
10785
10875
|
|
|
10786
|
-
/* Commands.User.Me.
|
|
10787
|
-
function
|
|
10788
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'),
|
|
10876
|
+
/* Commands.User.Me.7549:2045:fullName */
|
|
10877
|
+
function Commands_User_Me_n__7549_2045_fullName($0, $1, $2, $3) {
|
|
10878
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'), Commands_User_Me_n__7549_2043_dataVal($0, $1, $2, $3, $1.a2));
|
|
10789
10879
|
}
|
|
10790
10880
|
|
|
10791
|
-
/* Commands.User.Me.
|
|
10792
|
-
function
|
|
10881
|
+
/* Commands.User.Me.7549:2044:email */
|
|
10882
|
+
function Commands_User_Me_n__7549_2044_email($0, $1, $2, $3) {
|
|
10793
10883
|
let $8;
|
|
10794
10884
|
switch($2.h) {
|
|
10795
10885
|
case undefined: /* just */ {
|
|
10796
|
-
$8 =
|
|
10886
|
+
$8 = Commands_User_Me_n__7549_2043_dataVal($0, $1, $2, $3, $2.a1);
|
|
10797
10887
|
break;
|
|
10798
10888
|
}
|
|
10799
10889
|
case 0: /* nothing */ {
|
|
10800
|
-
$8 =
|
|
10890
|
+
$8 = Commands_User_Me_n__7549_2046_it($0, $1, $2, $3, 'Not set');
|
|
10801
10891
|
break;
|
|
10802
10892
|
}
|
|
10803
10893
|
}
|
|
10804
10894
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Git Email:'), $8);
|
|
10805
10895
|
}
|
|
10806
10896
|
|
|
10807
|
-
/* Commands.User.Me.
|
|
10808
|
-
function
|
|
10809
|
-
return Theme_theme($3,
|
|
10897
|
+
/* Commands.User.Me.7549:2043:dataVal */
|
|
10898
|
+
function Commands_User_Me_n__7549_2043_dataVal($0, $1, $2, $3, $4) {
|
|
10899
|
+
return Theme_theme($3, csegen_675(), Theme_cs({a1: 4, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined}), 8)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
10810
10900
|
}
|
|
10811
10901
|
|
|
10812
10902
|
/* Commands.User.Reflect.rightTitle : String */
|
|
@@ -10829,20 +10919,20 @@ function Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
|
10829
10919
|
const $c = prs => $d => $e => {
|
|
10830
10920
|
const $1c = myLogin => $1d => $1e => {
|
|
10831
10921
|
const $3a = reviews => {
|
|
10832
|
-
const $3b = Prelude_Types_map_Functor_Maybe(
|
|
10833
|
-
const $4e = Prelude_Interfaces_mapHom(
|
|
10834
|
-
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(
|
|
10922
|
+
const $3b = Prelude_Types_map_Functor_Maybe(csegen_678(), Data_List_headx27(Data_List_sortBy($44 => $45 => Prelude_Basics_on(csegen_648(), csegen_678(), $44, $45), reviews)));
|
|
10923
|
+
const $4e = Prelude_Interfaces_mapHom(csegen_608(), $54 => Prelude_Types_List_filterAppend({h: 0}, $58 => Prelude_EqOrd_x3dx3d_Eq_String($58.a5, myLogin), $54))(prs);
|
|
10924
|
+
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(csegen_608(), $6f => Prelude_Types_List_filterAppend({h: 0}, $73 => Prelude_Types_foldMap_Foldable_List(csegen_97(), $78 => Prelude_EqOrd_x3dx3d_Eq_String($78, myLogin), $73.a7), $6f))(prs));
|
|
10835
10925
|
};
|
|
10836
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(Commands_User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2e => $2f => Prelude_Basics_on(
|
|
10926
|
+
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_648(), csegen_672(), $2e, $2f), Commands_PullRequest_combined(prs))))), $3a, $1d, $1e);
|
|
10837
10927
|
};
|
|
10838
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10928
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_365()(), FFI_GitHub_getSelf($1), $11, $12), $1c, $d, $e);
|
|
10839
10929
|
};
|
|
10840
10930
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_listPartitionedPRs($0, $1, 4n, Commands_User_Reflect_prCount()), $c, $2, $3);
|
|
10841
10931
|
}
|
|
10842
10932
|
|
|
10843
10933
|
/* Commands.User.Me.printInfoOnSelf : Config => Octokit => Git => Promise' () */
|
|
10844
10934
|
function Commands_User_Me_printInfoOnSelf($0, $1, $2, $3, $4) {
|
|
10845
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29($b =>
|
|
10935
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29($b => Commands_User_Me_n__7699_2202_handleUnsetEmail($1, $2, $0, $b), $12 => $13 => FFI_Git_userEmail($2, $12, $13), $7, $8), gitEmail => $1b => $1c => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getSelf($1), githubUser => $22 => $23 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($26 => $27 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_634(), $2c => $2d => FFI_GitHub_listMyTeams($1, $2c, $2d), $26, $27), githubTeams => Util_renderIO($0, csegen_74()(), Commands_User_Me_print($0, gitEmail, githubUser, githubTeams)), $22, $23), $1b, $1c), $3, $4);
|
|
10846
10936
|
}
|
|
10847
10937
|
|
|
10848
10938
|
/* Commands.User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Config =>
|
|
@@ -10853,7 +10943,7 @@ function Commands_User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
|
10853
10943
|
|
|
10854
10944
|
/* Commands.User.Me.print : Config -> Maybe String -> User -> List String -> Doc AnsiStyle */
|
|
10855
10945
|
function Commands_User_Me_print($0, $1, $2, $3) {
|
|
10856
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
10946
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7549_2044_email($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7549_2045_fullName($3, $2, $1, $0), a2: {a1: Commands_User_Me_n__7549_2047_login($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7549_2048_teams($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}}}}});
|
|
10857
10947
|
}
|
|
10858
10948
|
|
|
10859
10949
|
/* Commands.User.Reflect.prCount : Fin 101 */
|
|
@@ -10873,7 +10963,7 @@ const Commands_User_Reflect_intro = __lazy(function () {
|
|
|
10873
10963
|
|
|
10874
10964
|
/* Commands.User.Reflect.header : Nat -> Doc AnsiStyle */
|
|
10875
10965
|
function Commands_User_Reflect_header($0) {
|
|
10876
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1:
|
|
10966
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Commands_User_Reflect_n__6604_1075_ital($0, Commands_User_Reflect_leftTitle()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' '), a2: {a1: Commands_User_Reflect_n__6604_1075_ital($0, Commands_User_Reflect_rightTitle()), a2: {h: 0}}}}));
|
|
10877
10967
|
}
|
|
10878
10968
|
|
|
10879
10969
|
/* Commands.User.Reflect.graph : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Doc AnsiStyle */
|
|
@@ -10891,12 +10981,12 @@ function Commands_User_Reflect_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
|
10891
10981
|
|
|
10892
10982
|
/* Commands.User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
10893
10983
|
function Commands_User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10894
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Commands_User_Reflect_intro()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Requested Reviews:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('unreviewed:')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($2)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(
|
|
10984
|
+
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_684(), $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_684(), $7), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('closed:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($4)), a2: {h: 0}}})}, a2: {h: 0}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $d0 => $d0, {a1: '*review count (not PR count) of most recent ', a2: {a1: Data_Fin_show_Show_x28Finx20x24nx29(Commands_User_Reflect_reviewDetailsCount()), a2: {a1: ' PRs.', a2: {h: 0}}}}))), a2: {h: 0}}}}}}}}}});
|
|
10895
10985
|
}
|
|
10896
10986
|
|
|
10897
10987
|
/* Commands.User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Nat -> Doc AnsiStyle */
|
|
10898
10988
|
function Commands_User_Reflect_chart($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10899
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($7)), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_User_replicatex27($6,
|
|
10989
|
+
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_675(), csegen_694(), 4, $1, '\u{b7}'), Commands_User_replicatex27($6, csegen_695(), csegen_695(), 7, $3, '\u{25e6}')), Commands_User_replicatex27($6, csegen_696(), csegen_696(), 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_696(), csegen_696(), 5, $5, '>'), Commands_User_replicatex27($6, csegen_675(), csegen_694(), 4, $4, '\u{b7}')))));
|
|
10900
10990
|
}
|
|
10901
10991
|
|
|
10902
10992
|
/* Theme.4411:1332:maybeAnnotate */
|
|
@@ -10982,104 +11072,100 @@ function Commands_PullRequest_with__listOpenPRs_1391($0, $1, $2, $3, $4) {
|
|
|
10982
11072
|
}
|
|
10983
11073
|
}
|
|
10984
11074
|
|
|
10985
|
-
/* Commands.PullRequest.case block in
|
|
10986
|
-
function
|
|
10987
|
-
|
|
10988
|
-
|
|
10989
|
-
|
|
10990
|
-
|
|
10991
|
-
|
|
10992
|
-
let $51;
|
|
10993
|
-
switch($52.h) {
|
|
10994
|
-
case 0: /* nothing */ {
|
|
10995
|
-
$51 = Util_Prompting_inlineDescription(csegen_74()(), Commands_PullRequest_n__11100_3054_inlineDescriptionPrompt($0, $1, $2, $3, $4, $5), $9.a2);
|
|
10996
|
-
break;
|
|
10997
|
-
}
|
|
10998
|
-
case undefined: /* just */ {
|
|
10999
|
-
$51 = $62 => $63 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_695(), Util_Prompting_editorDescription(csegen_74()(), $52.a1, {a1: templateFilePath}, $9.a2), $62, $63);
|
|
11000
|
-
break;
|
|
11001
|
-
}
|
|
11002
|
-
}
|
|
11003
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($51, description => $73 => $74 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($77 => $78 => $79 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($7c => Prelude_IO_prim__putStr('Creating PR...\n', $7c), $77, $78, $79), $84 => $85 => $86 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($89 => $8a => $8b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($8e => Prelude_IO_prim__putStr(($2+'\n'), $8e), $89, $8a, $8b), $98 => FFI_GitHub_createPR($1, $4, $5.a2, $5.a3, $2, $8, title, description), $85, $86), $73, $74), $4e, $4f);
|
|
11004
|
-
};
|
|
11005
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($46 => $47 => Util_relativeToRoot($0, '.github/PULL_REQUEST_TEMPLATE.md', $46, $47), $4d, $42, $43);
|
|
11006
|
-
};
|
|
11007
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($33 => $34 => Data_Promise_map_Functor_x28Promisex20x24ex29($37 => ($9.a1+Data_String_trim($37)), csegen_405()(), $33, $34), $41, $2f, $30);
|
|
11008
|
-
};
|
|
11009
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($21 => $22 => $23 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($26 => Prelude_IO_prim__putStr($9.a1, $26), $21, $22, $23), $2d, $1d, $1e);
|
|
11075
|
+
/* Commands.PullRequest.case block in githubTitleAndBodyPrefix */
|
|
11076
|
+
function Commands_PullRequest_case__githubTitleAndBodyPrefix_2919($0, $1, $2, $3, $4) {
|
|
11077
|
+
return $5 => {
|
|
11078
|
+
switch($3.h) {
|
|
11079
|
+
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: '', a2: ''}, $4, $5);
|
|
11080
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f => $10 => Commands_PullRequest_n__10961_2841_issueDescriptionPrefix($0, $1, $2, $3.a1, $f, $10), $19 => $1a => $1b => Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: '', a2: ($19+('\n\n'+Commands_PullRequest_n__10961_2843_relatedToPrefix($0, $1, $2, $3.a1)))}, $1a, $1b), $4, $5);
|
|
11081
|
+
}
|
|
11010
11082
|
};
|
|
11011
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f => $10 => $11 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($14 => Prelude_IO_prim__putStr('What would you like the title to be?\n', $14), $f, $10, $11), $1b, $a, $b);
|
|
11012
11083
|
}
|
|
11013
11084
|
|
|
11014
|
-
/* Commands.PullRequest.
|
|
11015
|
-
function
|
|
11085
|
+
/* Commands.PullRequest.10067:1999:userNotice */
|
|
11086
|
+
function Commands_PullRequest_n__10067_1999_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
11016
11087
|
switch($6.h) {
|
|
11017
11088
|
case 0: /* nothing */ {
|
|
11018
11089
|
switch($2.h) {
|
|
11019
11090
|
case 0: /* nil */ return 'no users';
|
|
11020
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1:
|
|
11091
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1: Commands_PullRequest_n__10067_1994_csv($0, $1, $2, $3, $4, $5, $2), a2: {h: 0}});
|
|
11021
11092
|
}
|
|
11022
11093
|
}
|
|
11023
|
-
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $1f => $1f, {a1:
|
|
11094
|
+
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $1f => $1f, {a1: Commands_PullRequest_n__10067_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: $2}), a2: {h: 0}});
|
|
11024
11095
|
}
|
|
11025
11096
|
}
|
|
11026
11097
|
|
|
11027
|
-
/* Commands.PullRequest.
|
|
11028
|
-
function
|
|
11098
|
+
/* Commands.PullRequest.10067:1998:teamNotice */
|
|
11099
|
+
function Commands_PullRequest_n__10067_1998_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
11029
11100
|
switch($6.h) {
|
|
11030
11101
|
case 0: /* nil */ return '';
|
|
11031
11102
|
case undefined: /* cons */ {
|
|
11032
11103
|
switch($6.a2.h) {
|
|
11033
|
-
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1: ' and team ', a2: {a1:
|
|
11034
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $23 => $23, {a1: ' and teams ', a2: {a1:
|
|
11104
|
+
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1: ' and team ', a2: {a1: Commands_PullRequest_n__10067_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: {h: 0}}), a2: {h: 0}}});
|
|
11105
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $23 => $23, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10067_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
11035
11106
|
}
|
|
11036
11107
|
}
|
|
11037
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $36 => $36, {a1: ' and teams ', a2: {a1:
|
|
11108
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $36 => $36, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10067_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
11038
11109
|
}
|
|
11039
11110
|
}
|
|
11040
11111
|
|
|
11041
|
-
/* Commands.PullRequest.
|
|
11042
|
-
function
|
|
11112
|
+
/* Commands.PullRequest.10961:2843:relatedToPrefix */
|
|
11113
|
+
function Commands_PullRequest_n__10961_2843_relatedToPrefix($0, $1, $2, $3) {
|
|
11114
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $9 => $9, {a1: 'Related to #', a2: {a1: $3, a2: {h: 0}}});
|
|
11115
|
+
}
|
|
11116
|
+
|
|
11117
|
+
/* Commands.PullRequest.11195:3087:prCreationUrl */
|
|
11118
|
+
function Commands_PullRequest_n__11195_3087_prCreationUrl($0, $1, $2, $3, $4, $5) {
|
|
11043
11119
|
const $6 = $5.a3;
|
|
11044
11120
|
const $8 = $5.a2;
|
|
11045
11121
|
return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $f => $f, {a1: 'https://github.com/', a2: {a1: $8, a2: {a1: '/', a2: {a1: $6, a2: {a1: '/compare/', a2: {a1: $2, a2: {a1: '?expand=1', a2: {h: 0}}}}}}}});
|
|
11046
11122
|
}
|
|
11047
11123
|
|
|
11048
|
-
/* Commands.PullRequest.
|
|
11049
|
-
function
|
|
11124
|
+
/* Commands.PullRequest.10067:1997:prComment */
|
|
11125
|
+
function Commands_PullRequest_n__10067_1997_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11050
11126
|
return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $c => $c, {a1: ':musical_note: Harmoniously requested review from ', a2: {a1: $6, a2: {a1: '.', a2: {h: 0}}}});
|
|
11051
11127
|
}
|
|
11052
11128
|
|
|
11053
|
-
/* Commands.PullRequest.
|
|
11054
|
-
function
|
|
11055
|
-
return
|
|
11129
|
+
/* Commands.PullRequest.10067:1996:namePrComment */
|
|
11130
|
+
function Commands_PullRequest_n__10067_1996_namePrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11131
|
+
return Commands_PullRequest_n__10067_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_51()(), $14 => $14, {a1: $6.a2, a2: {h: 0}}));
|
|
11132
|
+
}
|
|
11133
|
+
|
|
11134
|
+
/* Commands.PullRequest.10067:1995:mentionPrComment */
|
|
11135
|
+
function Commands_PullRequest_n__10067_1995_mentionPrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11136
|
+
return Commands_PullRequest_n__10067_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_51()(), $14 => $14, {a1: '@', a2: {a1: $6, a2: {h: 0}}}));
|
|
11056
11137
|
}
|
|
11057
11138
|
|
|
11058
|
-
/* Commands.PullRequest.
|
|
11059
|
-
function
|
|
11060
|
-
return
|
|
11139
|
+
/* Commands.PullRequest.10961:2842:issueNumber */
|
|
11140
|
+
function Commands_PullRequest_n__10961_2842_issueNumber($0, $1, $2) {
|
|
11141
|
+
return Util_Github_parseGithubIssueNumber($1);
|
|
11061
11142
|
}
|
|
11062
11143
|
|
|
11063
|
-
/* Commands.PullRequest.
|
|
11064
|
-
function
|
|
11144
|
+
/* Commands.PullRequest.10961:2841:issueDescriptionPrefix */
|
|
11145
|
+
function Commands_PullRequest_n__10961_2841_issueDescriptionPrefix($0, $1, $2, $3, $4, $5) {
|
|
11146
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getIssue($0, $2.a2, $2.a3, $3), issue => $10 => $11 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $19 => $19, {a1: '<!--\n## GitHub Issue\n', a2: {a1: issue.a2, a2: {a1: '\n--\n', a2: {a1: issue.a3, a2: {a1: '\n-->', a2: {h: 0}}}}}}), $10, $11), $4, $5);
|
|
11147
|
+
}
|
|
11148
|
+
|
|
11149
|
+
/* Commands.PullRequest.11195:3086:inlineDescriptionPrompt */
|
|
11150
|
+
function Commands_PullRequest_n__11195_3086_inlineDescriptionPrompt($0, $1, $2, $3, $4, $5) {
|
|
11065
11151
|
return 'What would you like the description to be (two blank lines to finish)?';
|
|
11066
11152
|
}
|
|
11067
11153
|
|
|
11068
|
-
/* Commands.PullRequest.
|
|
11069
|
-
function
|
|
11154
|
+
/* Commands.PullRequest.11195:3085:getBaseBranch */
|
|
11155
|
+
function Commands_PullRequest_n__11195_3085_getBaseBranch($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11070
11156
|
switch($3.h) {
|
|
11071
11157
|
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($b => $c => $d => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($10 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $19 => $19, {a1: 'Will merge into ', a2: {a1: $3.a1, a2: {a1: '.', a2: {h: 0}}}})+'\n'), $10), $b, $c, $d), $27 => $28 => $29 => Data_Promise_pure_Applicative_x28Promisex20x24ex29($3.a1, $28, $29), $6, $7);
|
|
11072
|
-
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($32 => $33 => $34 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($37 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $40 => $40, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $5.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $37), $32, $33, $34), $4f => $50 => $51 => Data_Promise_map_Functor_x28Promisex20x24ex29($54 => Util_Prompting_orIfEmpty({a1: $5.a5}, Data_String_trim($54)),
|
|
11158
|
+
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($32 => $33 => $34 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($37 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $40 => $40, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $5.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $37), $32, $33, $34), $4f => $50 => $51 => Data_Promise_map_Functor_x28Promisex20x24ex29($54 => Util_Prompting_orIfEmpty({a1: $5.a5}, Data_String_trim($54)), csegen_406()(), $50, $51), $6, $7);
|
|
11073
11159
|
}
|
|
11074
11160
|
}
|
|
11075
11161
|
|
|
11076
|
-
/* Commands.PullRequest.
|
|
11077
|
-
function
|
|
11162
|
+
/* Commands.PullRequest.9829:1725:forkedReviews */
|
|
11163
|
+
function Commands_PullRequest_n__9829_1725_forkedReviews($0, $1, $2, $3) {
|
|
11078
11164
|
return FFI_Concurrency_fork(csegen_74()(), ('reviews --json '+Prelude_Show_show_Show_Integer($3.a1)));
|
|
11079
11165
|
}
|
|
11080
11166
|
|
|
11081
|
-
/* Commands.PullRequest.
|
|
11082
|
-
function
|
|
11167
|
+
/* Commands.PullRequest.9252:1180:filterString */
|
|
11168
|
+
function Commands_PullRequest_n__9252_1180_filterString($0, $1, $2, $3, $4) {
|
|
11083
11169
|
switch($4.h) {
|
|
11084
11170
|
case 0: /* nothing */ return 'none';
|
|
11085
11171
|
case undefined: /* just */ {
|
|
@@ -11091,13 +11177,13 @@ function Commands_PullRequest_n__9192_1180_filterString($0, $1, $2, $3, $4) {
|
|
|
11091
11177
|
}
|
|
11092
11178
|
}
|
|
11093
11179
|
|
|
11094
|
-
/* Commands.PullRequest.
|
|
11095
|
-
function
|
|
11180
|
+
/* Commands.PullRequest.10067:1994:csv */
|
|
11181
|
+
function Commands_PullRequest_n__10067_1994_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
11096
11182
|
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)));
|
|
11097
11183
|
}
|
|
11098
11184
|
|
|
11099
|
-
/* Commands.PullRequest.
|
|
11100
|
-
function
|
|
11185
|
+
/* Commands.PullRequest.11195:3084:createPR */
|
|
11186
|
+
function Commands_PullRequest_n__11195_3084_createPR($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11101
11187
|
const $3b = $3c => $3d => $3e => {
|
|
11102
11188
|
const $4c = $4d => $4e => $4f => {
|
|
11103
11189
|
switch($4d) {
|
|
@@ -11114,37 +11200,73 @@ function Commands_PullRequest_n__11100_3052_createPR($0, $1, $2, $3, $4, $5, $6,
|
|
|
11114
11200
|
};
|
|
11115
11201
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($69 => $6a => FFI_Git_unpushedCommits($0, $69, $6a), $6f, $65, $66);
|
|
11116
11202
|
};
|
|
11117
|
-
|
|
11203
|
+
const $cf = $d0 => $d1 => $d2 => {
|
|
11204
|
+
const $f0 = $f1 => $f2 => $f3 => {
|
|
11205
|
+
const $101 = baseBranch => $102 => $103 => {
|
|
11206
|
+
const $10a = $10b => $10c => $10d => {
|
|
11207
|
+
const $11d = $11e => $11f => $120 => {
|
|
11208
|
+
const $12f = $130 => $131 => $132 => {
|
|
11209
|
+
const $143 = title => $144 => $145 => {
|
|
11210
|
+
const $14f = templateFilePath => $150 => $151 => {
|
|
11211
|
+
const $154 = Data_Config_rf__editor($5);
|
|
11212
|
+
let $153;
|
|
11213
|
+
switch($154.h) {
|
|
11214
|
+
case 0: /* nothing */ {
|
|
11215
|
+
$153 = Util_Prompting_inlineDescription(csegen_74()(), Commands_PullRequest_n__11195_3086_inlineDescriptionPrompt($0, $1, $2, $3, $4, $5), $10b.a2);
|
|
11216
|
+
break;
|
|
11217
|
+
}
|
|
11218
|
+
case undefined: /* just */ {
|
|
11219
|
+
$153 = $164 => $165 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_710(), Util_Prompting_editorDescription(csegen_74()(), $154.a1, {a1: templateFilePath}, $10b.a2), $164, $165);
|
|
11220
|
+
break;
|
|
11221
|
+
}
|
|
11222
|
+
}
|
|
11223
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($153, description => $175 => $176 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($179 => $17a => $17b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($17e => Prelude_IO_prim__putStr('Creating PR...\n', $17e), $179, $17a, $17b), $186 => $187 => $188 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($18b => $18c => $18d => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($190 => Prelude_IO_prim__putStr(($2+'\n'), $190), $18b, $18c, $18d), $19a => FFI_GitHub_createPR($1, $4, $5.a2, $5.a3, $2, baseBranch, title, description), $187, $188), $175, $176), $150, $151);
|
|
11224
|
+
};
|
|
11225
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($148 => $149 => Util_relativeToRoot($0, '.github/PULL_REQUEST_TEMPLATE.md', $148, $149), $14f, $144, $145);
|
|
11226
|
+
};
|
|
11227
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($135 => $136 => Data_Promise_map_Functor_x28Promisex20x24ex29($139 => ($10b.a1+Data_String_trim($139)), csegen_406()(), $135, $136), $143, $131, $132);
|
|
11228
|
+
};
|
|
11229
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($123 => $124 => $125 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($128 => Prelude_IO_prim__putStr($10b.a1, $128), $123, $124, $125), $12f, $11f, $120);
|
|
11230
|
+
};
|
|
11231
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($111 => $112 => $113 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($116 => Prelude_IO_prim__putStr('What would you like the title to be?\n', $116), $111, $112, $113), $11d, $10c, $10d);
|
|
11232
|
+
};
|
|
11233
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_getTitleAndBodyPrefix($5, $1, $2), $10a, $102, $103);
|
|
11234
|
+
};
|
|
11235
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f6 => $f7 => Commands_PullRequest_n__11195_3085_getBaseBranch($0, $1, $2, $3, $4, $5, $f6, $f7), $101, $f2, $f3);
|
|
11236
|
+
};
|
|
11237
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($d5 => $d6 => $d7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($da => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e3 => $e3, {a1: 'Creating a new PR for the current branch (', a2: {a1: $2, a2: {a1: ').', a2: {h: 0}}}})+'\n'), $da), $d5, $d6, $d7), $f0, $d1, $d2);
|
|
11238
|
+
};
|
|
11239
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($64, $cf, $60, $61);
|
|
11118
11240
|
}
|
|
11119
11241
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $60, $61);
|
|
11120
11242
|
}
|
|
11121
11243
|
};
|
|
11122
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($53 => $54 =>
|
|
11244
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($53 => $54 => Commands_PullRequest_n__11195_3082_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $53, $54), $5e, $4e, $4f);
|
|
11123
11245
|
}
|
|
11124
11246
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $4e, $4f);
|
|
11125
11247
|
}
|
|
11126
11248
|
};
|
|
11127
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($41 => $42 =>
|
|
11249
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($41 => $42 => Commands_PullRequest_n__11195_3083_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $41, $42), $4c, $3d, $3e);
|
|
11128
11250
|
};
|
|
11129
11251
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($e => $f => FFI_Git_remoteTrackingBranch($0, $e, $f), $15 => Util_whenNothing(csegen_66()(), $15, $1c => $1d => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($20 => $21 => $22 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($25 => Prelude_IO_prim__putStr('Creating a new remote branch...\n', $25), $20, $21, $22), $2d => $2e => $2f => FFI_Git_pushNewBranch($0, $5.a4, $2, $2e, $2f), $1c, $1d)), $a, $b), $3b, $6, $7);
|
|
11130
11252
|
}
|
|
11131
11253
|
|
|
11132
|
-
/* Commands.PullRequest.
|
|
11133
|
-
function
|
|
11254
|
+
/* Commands.PullRequest.11195:3083:continueGivenUncommittedChanges */
|
|
11255
|
+
function Commands_PullRequest_n__11195_3083_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11134
11256
|
const $10 = $11 => $12 => $13 => {
|
|
11135
11257
|
switch($11.h) {
|
|
11136
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1c), $17, $18, $19), $24 => $25 => $26 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29 => $2a => $2b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2e => Prelude_IO_prim__putStr(($11.a1+'\n'), $2e), $29, $2a, $2b),
|
|
11258
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1c), $17, $18, $19), $24 => $25 => $26 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29 => $2a => $2b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2e => Prelude_IO_prim__putStr(($11.a1+'\n'), $2e), $29, $2a, $2b), csegen_716(), $25, $26), $12, $13);
|
|
11137
11259
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $12, $13);
|
|
11138
11260
|
}
|
|
11139
11261
|
};
|
|
11140
11262
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => FFI_Git_uncommittedChanges($0, $a, $b), $10, $6, $7);
|
|
11141
11263
|
}
|
|
11142
11264
|
|
|
11143
|
-
/* Commands.PullRequest.
|
|
11144
|
-
function
|
|
11265
|
+
/* Commands.PullRequest.11195:3082:continueGivenStagedChanges */
|
|
11266
|
+
function Commands_PullRequest_n__11195_3082_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11145
11267
|
const $10 = $11 => $12 => $13 => {
|
|
11146
11268
|
switch($11.h) {
|
|
11147
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1c), $17, $18, $19), $24 => $25 => $26 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29 => $2a => $2b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2e => Prelude_IO_prim__putStr(($11.a1+'\n'), $2e), $29, $2a, $2b),
|
|
11269
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1c), $17, $18, $19), $24 => $25 => $26 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29 => $2a => $2b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2e => Prelude_IO_prim__putStr(($11.a1+'\n'), $2e), $29, $2a, $2b), csegen_716(), $25, $26), $12, $13);
|
|
11148
11270
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $12, $13);
|
|
11149
11271
|
}
|
|
11150
11272
|
};
|
|
@@ -11153,12 +11275,12 @@ function Commands_PullRequest_n__11100_3050_continueGivenStagedChanges($0, $1, $
|
|
|
11153
11275
|
|
|
11154
11276
|
/* Commands.PullRequest.(.allReviewers) : PRHistory -> (List String, List String) */
|
|
11155
11277
|
function Commands_PullRequest_rf__allReviewers($0) {
|
|
11156
|
-
return Prelude_Interfaces_mapHom(
|
|
11278
|
+
return Prelude_Interfaces_mapHom(csegen_608(), $6 => Prelude_Types_join_Monad_List(Prelude_Types_List_mapAppend({h: 0}, $c => $c.a7, $6)))($0);
|
|
11157
11279
|
}
|
|
11158
11280
|
|
|
11159
11281
|
/* Commands.PullRequest.reviewsForPrs : Config => Octokit => List PullRequest -> Promise' (List Review) */
|
|
11160
11282
|
function Commands_PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
|
|
11161
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(),
|
|
11283
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(), csegen_636(), Prelude_Types_traverse_Traversable_List(csegen_66()(), $13 => Commands_PullRequest_n__9829_1725_forkedReviews($0, $1, $2, $13), $2)), reviewsJson => $1b => $1c => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1f => Data_Promise_either(Prelude_Types_traverse_Traversable_List(csegen_222(), $26 => Language_JSON_Accessors_array($29 => Data_Review_parseReview($29), $26), reviewsJson), $1f), reviews => $30 => $31 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_join_Monad_List(reviews), $30, $31), $1b, $1c), $3, $4);
|
|
11162
11284
|
}
|
|
11163
11285
|
|
|
11164
11286
|
/* Commands.PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise' (List Review) */
|
|
@@ -11209,7 +11331,7 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11209
11331
|
break;
|
|
11210
11332
|
}
|
|
11211
11333
|
case 0: {
|
|
11212
|
-
$38 =
|
|
11334
|
+
$38 = csegen_408()();
|
|
11213
11335
|
break;
|
|
11214
11336
|
}
|
|
11215
11337
|
}
|
|
@@ -11245,8 +11367,8 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11245
11367
|
return $7f => {
|
|
11246
11368
|
switch($0.a8) {
|
|
11247
11369
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $7d, $7f);
|
|
11248
|
-
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
11249
|
-
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getUser($1, chosenUser.a1), user => $9f => $a0 => FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
11370
|
+
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, Commands_PullRequest_n__10067_1995_mentionPrComment($1, $5, $4, $3, $2, $0, chosenUser.a1), $7d, $7f);
|
|
11371
|
+
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__10067_1996_namePrComment($1, $5, $4, $3, $2, $0, user), $9f, $a0), $7d, $7f);
|
|
11250
11372
|
}
|
|
11251
11373
|
};
|
|
11252
11374
|
}
|
|
@@ -11270,11 +11392,11 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11270
11392
|
let $bf;
|
|
11271
11393
|
switch($c0) {
|
|
11272
11394
|
case 1: {
|
|
11273
|
-
$bf = () => $c5 => $c6 => $c7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($ca => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Could not pick a user from the given Team ')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('(perhaps the only option was the author of the pull request?).'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e8 => $e8, {a1: 'Requested review from ', a2: {a1:
|
|
11395
|
+
$bf = () => $c5 => $c6 => $c7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($ca => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Could not pick a user from the given Team ')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('(perhaps the only option was the author of the pull request?).'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e8 => $e8, {a1: 'Requested review from ', a2: {a1: Commands_PullRequest_n__10067_1998_teamNotice($1, $5, $4, $3, $2, $0, $53), a2: {a1: ' for the open PR ', a2: {h: 0}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $101 => $101, {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}}}}))+'\n'), $ca), $c5, $c6, $c7);
|
|
11274
11396
|
break;
|
|
11275
11397
|
}
|
|
11276
11398
|
case 0: {
|
|
11277
|
-
$bf = () => $112 => $113 => $114 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($117 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $128 => $128, {a1: 'Requested review from ', a2: {a1:
|
|
11399
|
+
$bf = () => $112 => $113 => $114 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($117 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $128 => $128, {a1: 'Requested review from ', a2: {a1: Commands_PullRequest_n__10067_1999_userNotice($1, $5, $4, $3, $2, $0, chosenUser), a2: {a1: Commands_PullRequest_n__10067_1998_teamNotice($1, $5, $4, $3, $2, $0, $53), a2: {a1: ' for the open PR ', a2: {h: 0}}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $14b => $14b, {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}}))+'\n'), $117), $112, $113, $114);
|
|
11278
11400
|
break;
|
|
11279
11401
|
}
|
|
11280
11402
|
}
|
|
@@ -11300,15 +11422,6 @@ function Commands_PullRequest_partition($0) {
|
|
|
11300
11422
|
return Prelude_Basics_uncurry(csegen_94(), Data_List_partition($7 => Data_PullRequest_x3dx3d_Eq_PRState($7.a6, 0), $0));
|
|
11301
11423
|
}
|
|
11302
11424
|
|
|
11303
|
-
/* Commands.PullRequest.parseTitleAndBodyPrefix : Config => String -> (String, String) */
|
|
11304
|
-
function Commands_PullRequest_parseTitleAndBodyPrefix($0, $1) {
|
|
11305
|
-
switch($0.a9) {
|
|
11306
|
-
case 1: return {a1: Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($a => ($a+' - '), Util_Jira_parseJiraSlug($1))), a2: ''};
|
|
11307
|
-
case 2: return {a1: '', a2: Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($18 => ('Related to #'+$18), Util_Github_parseGithubIssueNumber($1)))};
|
|
11308
|
-
case 0: return {a1: '', a2: ''};
|
|
11309
|
-
}
|
|
11310
|
-
}
|
|
11311
|
-
|
|
11312
11425
|
/* Commands.PullRequest.listReviewers : Config => Octokit => {default 0 _ : Nat} -> Fin 101 -> Promise' (List String,
|
|
11313
11426
|
List String) */
|
|
11314
11427
|
function Commands_PullRequest_listReviewers($0, $1, $2, $3, $4, $5) {
|
|
@@ -11328,7 +11441,7 @@ function Commands_PullRequest_listOpenPRs($0, $1, $2, $3) {
|
|
|
11328
11441
|
|
|
11329
11442
|
/* Commands.PullRequest.list' : Maybe GitHubPRState -> Pagination _ _ _ () -> Promise' (List PullRequest) */
|
|
11330
11443
|
function Commands_PullRequest_listx27($0, $1, $2, $3) {
|
|
11331
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(), $b => $c => $d => FFI_Concurrency_promiseAll({a1: acc => elem => func => init => input => Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a2: elem => acc => func => init => input => Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a3: elem => $1b => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1b), a4: elem => acc => m => $1f => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1f, funcM, init, input), a5: elem => $26 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($26), a6: a => m => $2a => f => $2b => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($2a, f, $2b)}, $b, $c, $d), Data_Pagination_traversex27(csegen_66()(), $39 => $3a => $3b => $3c => Commands_PullRequest_forkedPRs($0, $39, $3a, $3b, $3c), $1)), prJsons => $45 => $46 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($49 => Data_Promise_either(Prelude_Types_traverse_Traversable_List(csegen_222(),
|
|
11444
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(), $b => $c => $d => FFI_Concurrency_promiseAll({a1: acc => elem => func => init => input => Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a2: elem => acc => func => init => input => Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a3: elem => $1b => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1b), a4: elem => acc => m => $1f => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1f, funcM, init, input), a5: elem => $26 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($26), a6: a => m => $2a => f => $2b => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($2a, f, $2b)}, $b, $c, $d), Data_Pagination_traversex27(csegen_66()(), $39 => $3a => $3b => $3c => Commands_PullRequest_forkedPRs($0, $39, $3a, $3b, $3c), $1)), prJsons => $45 => $46 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($49 => Data_Promise_either(Prelude_Types_traverse_Traversable_List(csegen_222(), csegen_346(), prJsons), $49), pulls => $54 => $55 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_join_Monad_List(pulls), $54, $55), $45, $46), $2, $3);
|
|
11332
11445
|
}
|
|
11333
11446
|
|
|
11334
11447
|
/* Commands.PullRequest.identifyOrCreatePR : Config => Git => Octokit => {default False _ : Bool} ->
|
|
@@ -11348,8 +11461,8 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6, $7)
|
|
|
11348
11461
|
return $21 => {
|
|
11349
11462
|
const $2a = $2b => $2c => $2d => {
|
|
11350
11463
|
switch($2b) {
|
|
11351
|
-
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($31 => ({h: 0 /* Actual */, a1: 1, a2: $31}), $35 => $36 =>
|
|
11352
|
-
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1:
|
|
11464
|
+
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($31 => ({h: 0 /* Actual */, a1: 1, a2: $31}), $35 => $36 => Commands_PullRequest_n__11195_3084_createPR($1, $2, $5, $4, $3, $0, $35, $36), $2c, $2d);
|
|
11465
|
+
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1: Commands_PullRequest_n__11195_3087_prCreationUrl($1, $2, $5, $4, $3, $0)}, $2c, $2d);
|
|
11353
11466
|
}
|
|
11354
11467
|
};
|
|
11355
11468
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(System_File_Meta_isTTY(csegen_74()(), System_File_Virtual_stdout()), $2a, $13, $21);
|
|
@@ -11361,9 +11474,23 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6, $7)
|
|
|
11361
11474
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPRsForBranch($2, $0.a2, $0.a3, $5), $11, $6, $7);
|
|
11362
11475
|
}
|
|
11363
11476
|
|
|
11477
|
+
/* Commands.PullRequest.githubTitleAndBodyPrefix : Config => Octokit => String -> Promise' (String, String) */
|
|
11478
|
+
function Commands_PullRequest_githubTitleAndBodyPrefix($0, $1, $2) {
|
|
11479
|
+
return $3 => Commands_PullRequest_case__githubTitleAndBodyPrefix_2919($1, $2, $0, Commands_PullRequest_n__10961_2842_issueNumber($1, $2, $0), $3);
|
|
11480
|
+
}
|
|
11481
|
+
|
|
11482
|
+
/* Commands.PullRequest.getTitleAndBodyPrefix : Config => Octokit => String -> Promise' (String, String) */
|
|
11483
|
+
function Commands_PullRequest_getTitleAndBodyPrefix($0, $1, $2) {
|
|
11484
|
+
switch($0.a9) {
|
|
11485
|
+
case 1: return $5 => $6 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($f => ($f+' - '), Util_Jira_parseJiraSlug($2))), a2: ''}, $5, $6);
|
|
11486
|
+
case 2: return Commands_PullRequest_githubTitleAndBodyPrefix($0, $1, $2);
|
|
11487
|
+
case 0: return $1c => $1d => Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: '', a2: ''}, $1c, $1d);
|
|
11488
|
+
}
|
|
11489
|
+
}
|
|
11490
|
+
|
|
11364
11491
|
/* Commands.PullRequest.forkedPRs : Maybe GitHubPRState -> Nat -> Nat -> Nat -> () -> Promise' Future */
|
|
11365
11492
|
function Commands_PullRequest_forkedPRs($0, $1, $2, $3, $4) {
|
|
11366
|
-
return FFI_Concurrency_fork(csegen_74()(), Prelude_Types_foldMap_Foldable_List(csegen_51()(), $f => $f, {a1: 'pulls --json ', a2: {a1:
|
|
11493
|
+
return FFI_Concurrency_fork(csegen_74()(), Prelude_Types_foldMap_Foldable_List(csegen_51()(), $f => $f, {a1: 'pulls --json ', a2: {a1: Commands_PullRequest_n__9252_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}}}}}}}));
|
|
11367
11494
|
}
|
|
11368
11495
|
|
|
11369
11496
|
/* Commands.PullRequest.empty : PRHistory */
|
|
@@ -11485,7 +11612,7 @@ function Util_Github_n__2629_823_go($0, $1) {
|
|
|
11485
11612
|
|
|
11486
11613
|
/* Util.Github.parseGithubIssueNumber : String -> Maybe String */
|
|
11487
11614
|
function Util_Github_parseGithubIssueNumber($0) {
|
|
11488
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
11615
|
+
return Prelude_Types_map_Functor_Maybe(csegen_754(), 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))));
|
|
11489
11616
|
}
|
|
11490
11617
|
|
|
11491
11618
|
/* Util.Jira.2629:820:startOver */
|
|
@@ -11545,30 +11672,30 @@ function Util_Jira_n__2629_818_go($0, $1) {
|
|
|
11545
11672
|
|
|
11546
11673
|
/* Util.Jira.parseJiraSlug : String -> Maybe String */
|
|
11547
11674
|
function Util_Jira_parseJiraSlug($0) {
|
|
11548
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
11675
|
+
return Prelude_Types_map_Functor_Maybe(csegen_754(), 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))));
|
|
11549
11676
|
}
|
|
11550
11677
|
|
|
11551
11678
|
/* Data.Pagination.with block in metaPages' */
|
|
11552
|
-
function
|
|
11679
|
+
function Data_Pagination_with__metaPagesx27_7597($0, $1, $2, $3, $4, $5, $6) {
|
|
11553
11680
|
const $7 = $8 => Data_Pagination_divNatNZLemma($0, $1, $6);
|
|
11554
11681
|
return Data_Pagination_pagesHelper(0n, $0, $3, $7(undefined), $5);
|
|
11555
11682
|
}
|
|
11556
11683
|
|
|
11557
11684
|
/* Data.Pagination.with block in with block in divNatNZLemma */
|
|
11558
|
-
function
|
|
11685
|
+
function Data_Pagination_with__withx20blockx20inx20divNatNZLemma_7538($0, $1, $2, $3, $4, $5) {
|
|
11559
11686
|
return Prelude_Uninhabited_void$();
|
|
11560
11687
|
}
|
|
11561
11688
|
|
|
11562
11689
|
/* Data.Pagination.with block in divNatNZLemma */
|
|
11563
|
-
function
|
|
11690
|
+
function Data_Pagination_with__divNatNZLemma_7520($0, $1, $2, $3, $4, $5) {
|
|
11564
11691
|
switch($2) {
|
|
11565
11692
|
case 0: return 1n;
|
|
11566
|
-
case 1: return
|
|
11693
|
+
case 1: return Data_Pagination_with__withx20blockx20inx20divNatNZLemma_7538($1, $0, $5, $c => Data_Nat_LTEImpliesNotGT($5, $c), $3, undefined);
|
|
11567
11694
|
}
|
|
11568
11695
|
}
|
|
11569
11696
|
|
|
11570
11697
|
/* Data.Pagination.with block in pagesHelper */
|
|
11571
|
-
function
|
|
11698
|
+
function Data_Pagination_with__pagesHelper_7380($0, $1, $2, $3, $4, $5) {
|
|
11572
11699
|
switch($2.h) {
|
|
11573
11700
|
case 0: /* Yes */ {
|
|
11574
11701
|
const $7 = Data_Pagination_lemma($0, $1, $2.a1);
|
|
@@ -11579,12 +11706,12 @@ function Data_Pagination_with__pagesHelper_7266($0, $1, $2, $3, $4, $5) {
|
|
|
11579
11706
|
}
|
|
11580
11707
|
|
|
11581
11708
|
/* Data.Pagination.with block in nonTerminalPage */
|
|
11582
|
-
function
|
|
11709
|
+
function Data_Pagination_with__nonTerminalPage_7359($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11583
11710
|
return {h: 0 /* NonTerminal */, a1: $7, a2: $1, a3: $0, a4: $5, a5: $6, a6: undefined, a7: Data_Pagination_pagesHelper(($7+1n), $0, $1, $6, $5)};
|
|
11584
11711
|
}
|
|
11585
11712
|
|
|
11586
11713
|
/* Data.Pagination.with block in lemma */
|
|
11587
|
-
function
|
|
11714
|
+
function Data_Pagination_with__lemma_7262($0, $1, $2, $3, $4) {
|
|
11588
11715
|
return {a1: ($3.a1+1n), a2: {a1: undefined, a2: 1n}};
|
|
11589
11716
|
}
|
|
11590
11717
|
|
|
@@ -11633,21 +11760,21 @@ function Data_Pagination_traversex27($0, $1, $2) {
|
|
|
11633
11760
|
/* Data.Pagination.pagesHelper : (page : Nat) -> (remainingItems : Nat) -> (perPage : Nat) -> GT perPage 0 =>
|
|
11634
11761
|
GT remainingItems 0 => PaginationShape remainingItems perPage page */
|
|
11635
11762
|
function Data_Pagination_pagesHelper($0, $1, $2, $3, $4) {
|
|
11636
|
-
return
|
|
11763
|
+
return Data_Pagination_with__pagesHelper_7380($2, $1, Data_Nat_isLT($2, $1), $3, $4, $0);
|
|
11637
11764
|
}
|
|
11638
11765
|
|
|
11639
11766
|
/* Data.Pagination.nonTerminalPage : (page : Nat) -> (remainingItems : Nat) -> (perPage : Nat) ->
|
|
11640
11767
|
{auto 0 _ : remainder + perPage = remainingItems} -> GT perPage 0 =>
|
|
11641
11768
|
GT remainder 0 => PaginationShape remainingItems perPage page */
|
|
11642
11769
|
function Data_Pagination_nonTerminalPage($0, $1, $2, $3, $4, $5) {
|
|
11643
|
-
return
|
|
11770
|
+
return Data_Pagination_with__nonTerminalPage_7359($0, $3, $2, undefined, undefined, $5, $4, $1);
|
|
11644
11771
|
}
|
|
11645
11772
|
|
|
11646
11773
|
/* Data.Pagination.metaPages' : (items : Nat) -> (pages : Nat) -> GT items 0 => {auto 0 pagesOk : GT pages 0} ->
|
|
11647
11774
|
LTE pages items =>
|
|
11648
11775
|
PaginationShape items (divNatNZ items pages (gtIsNonZero pagesOk)) 0 */
|
|
11649
11776
|
function Data_Pagination_metaPagesx27($0, $1, $2, $3) {
|
|
11650
|
-
return
|
|
11777
|
+
return Data_Pagination_with__metaPagesx27_7597($0, $1, undefined, Data_Nat_divNatNZ($0, $1), undefined, $2, $3);
|
|
11651
11778
|
}
|
|
11652
11779
|
|
|
11653
11780
|
/* Data.Pagination.metaPages : (items : Nat) -> (perPage : Nat) -> GT items 0 => GT perPage 0 =>
|
|
@@ -11671,7 +11798,7 @@ function Data_Pagination_lemma($0, $1, $2) {
|
|
|
11671
11798
|
case 0n: _crashExp('Nat case not covered');
|
|
11672
11799
|
default: {
|
|
11673
11800
|
const $8 = ($2-1n);
|
|
11674
|
-
return
|
|
11801
|
+
return Data_Pagination_with__lemma_7262($0, $4, $8, Data_Pagination_lemmax27($0, $4, $8), $1);
|
|
11675
11802
|
}
|
|
11676
11803
|
}
|
|
11677
11804
|
}
|
|
@@ -11693,7 +11820,7 @@ function Data_Pagination_divNatNZLemma($0, $1, $2) {
|
|
|
11693
11820
|
case 0n: _crashExp('Nat case not covered');
|
|
11694
11821
|
default: {
|
|
11695
11822
|
const $a = ($1-1n);
|
|
11696
|
-
return
|
|
11823
|
+
return Data_Pagination_with__divNatNZLemma_7520($a, $6, Data_Nat_lte(($6+1n), $a), undefined, undefined, $2);
|
|
11697
11824
|
}
|
|
11698
11825
|
}
|
|
11699
11826
|
}
|
|
@@ -11814,14 +11941,14 @@ function Data_List_DeleteBy_deleteByx27($0, $1, $2) {
|
|
|
11814
11941
|
}
|
|
11815
11942
|
}
|
|
11816
11943
|
|
|
11817
|
-
/* Commands.Quick.
|
|
11818
|
-
function
|
|
11944
|
+
/* Commands.Quick.5813:5631:issuePrompt */
|
|
11945
|
+
function Commands_Quick_n__5813_5631_issuePrompt($0, $1, $2, $3, $4) {
|
|
11819
11946
|
return 'What would you like the issue description to be (two blank lines to finish)?';
|
|
11820
11947
|
}
|
|
11821
11948
|
|
|
11822
|
-
/* Commands.Quick.
|
|
11823
|
-
function
|
|
11824
|
-
return Data_String_toLower(Commands_Quick_show_Show_IssueCategory($
|
|
11949
|
+
/* Commands.Quick.5813:5630:branchPrefix */
|
|
11950
|
+
function Commands_Quick_n__5813_5630_branchPrefix($0, $1, $2, $3, $4) {
|
|
11951
|
+
return Data_String_toLower(Commands_Quick_show_Show_IssueCategory($3));
|
|
11825
11952
|
}
|
|
11826
11953
|
|
|
11827
11954
|
/* Commands.Quick.show */
|
|
@@ -11832,40 +11959,43 @@ function Commands_Quick_show_Show_IssueCategory($0) {
|
|
|
11832
11959
|
}
|
|
11833
11960
|
}
|
|
11834
11961
|
|
|
11835
|
-
/* Commands.Quick.quickStartNewWork : Config => Git => Octokit => IssueCategory -> Promise' () */
|
|
11836
|
-
function Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5) {
|
|
11837
|
-
const $
|
|
11838
|
-
const $
|
|
11839
|
-
const $
|
|
11840
|
-
|
|
11841
|
-
|
|
11842
|
-
|
|
11843
|
-
|
|
11844
|
-
|
|
11845
|
-
|
|
11846
|
-
|
|
11847
|
-
|
|
11848
|
-
|
|
11849
|
-
|
|
11850
|
-
|
|
11851
|
-
|
|
11962
|
+
/* Commands.Quick.quickStartNewWork : Config => Git => Octokit => IssueCategory -> Maybe String -> Promise' () */
|
|
11963
|
+
function Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5, $6) {
|
|
11964
|
+
const $15 = $16 => $17 => $18 => {
|
|
11965
|
+
const $1d = $1e => $1f => $20 => {
|
|
11966
|
+
const $22 = $23 => $24 => {
|
|
11967
|
+
switch($4.h) {
|
|
11968
|
+
case undefined: /* just */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29($4.a1, $23, $24);
|
|
11969
|
+
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2c => $2d => $2e => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($31 => Prelude_IO_prim__putStr('What would you like the issue title to be?\n', $31), $2c, $2d, $2e), $39 => csegen_766(), $23, $24);
|
|
11970
|
+
}
|
|
11971
|
+
};
|
|
11972
|
+
const $3d = issueTitle => $3e => $3f => {
|
|
11973
|
+
const $42 = Data_Config_rf__editor($0);
|
|
11974
|
+
let $41;
|
|
11975
|
+
switch($42.h) {
|
|
11976
|
+
case 0: /* nothing */ {
|
|
11977
|
+
$41 = Util_Prompting_inlineDescription(csegen_74()(), Commands_Quick_n__5813_5631_issuePrompt($1, $2, $4, $3, $0), '');
|
|
11978
|
+
break;
|
|
11852
11979
|
}
|
|
11853
|
-
|
|
11854
|
-
|
|
11855
|
-
|
|
11856
|
-
|
|
11857
|
-
|
|
11858
|
-
|
|
11980
|
+
case undefined: /* just */ {
|
|
11981
|
+
$41 = $51 => $52 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_710(), Util_Prompting_editorDescription(csegen_74()(), $42.a1, {h: 0}, ''), $51, $52);
|
|
11982
|
+
break;
|
|
11983
|
+
}
|
|
11984
|
+
}
|
|
11985
|
+
const $60 = issueBody => $61 => $62 => {
|
|
11986
|
+
const $6d = issue => {
|
|
11987
|
+
const $6e = Prelude_Types_foldMap_Foldable_List(csegen_51()(), $74 => $74, {a1: Commands_Quick_n__5813_5630_branchPrefix($1, $2, $4, $3, $0), a2: {a1: '/', a2: {a1: Prelude_Show_show_Show_Integer(issue.a1), a2: {a1: '/', a2: {h: 0}}}}});
|
|
11988
|
+
return $87 => $88 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8b => $8c => $8d => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($90 => Prelude_IO_prim__putStr('What would you like the branch to be named?\n', $90), $8b, $8c, $8d), $98 => $99 => $9a => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9d => $9e => $9f => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($a2 => Prelude_IO_prim__putStr($6e, $a2), $9d, $9e, $9f), $aa => $ab => $ac => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_766(), branchSlug => FFI_Git_checkoutBranch($1, 1, Prelude_Types_foldMap_Foldable_List(csegen_51()(), $ba => $ba, {a1: $6e, a2: {a1: branchSlug, a2: {h: 0}}})), $ab, $ac), $99, $9a), $87, $88);
|
|
11859
11989
|
};
|
|
11860
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11990
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_createIssue($2, $0.a2, $0.a3, issueTitle, issueBody), $6d, $61, $62);
|
|
11861
11991
|
};
|
|
11862
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11992
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($41, $60, $3e, $3f);
|
|
11863
11993
|
};
|
|
11864
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($22
|
|
11994
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($22, $3d, $1f, $20);
|
|
11865
11995
|
};
|
|
11866
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11996
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1d, $17, $18);
|
|
11867
11997
|
};
|
|
11868
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11998
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => $a => $b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($e => Prelude_IO_prim__putStr('Creating a new GitHub issue and branch.\n', $e), $9, $a, $b), $15, $5, $6);
|
|
11869
11999
|
}
|
|
11870
12000
|
|
|
11871
12001
|
/* Commands.Label.unslugifyLabel : List String -> String -> String */
|
|
@@ -11884,7 +12014,7 @@ function Commands_Label_addLabels($0, $1, $2, $3, $4, $5) {
|
|
|
11884
12014
|
|
|
11885
12015
|
/* Commands.Graph.7730:7016:pendingDot */
|
|
11886
12016
|
function Commands_Graph_n__7730_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11887
|
-
return Theme_theme($7,
|
|
12017
|
+
return Theme_theme($7, csegen_696(), csegen_694(), 6)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
|
|
11888
12018
|
}
|
|
11889
12019
|
|
|
11890
12020
|
/* Commands.Graph.7730:7015:note */
|
|
@@ -11894,7 +12024,7 @@ function Commands_Graph_n__7730_7015_note($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
11894
12024
|
|
|
11895
12025
|
/* Commands.Graph.7730:7014:missedDot */
|
|
11896
12026
|
function Commands_Graph_n__7730_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11897
|
-
return Theme_theme($7,
|
|
12027
|
+
return Theme_theme($7, csegen_695(), csegen_695(), 7)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
|
|
11898
12028
|
}
|
|
11899
12029
|
|
|
11900
12030
|
/* Commands.Graph.7730:7013:maxValue */
|
|
@@ -11923,7 +12053,7 @@ function Commands_Graph_n__7730_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11923
12053
|
break;
|
|
11924
12054
|
}
|
|
11925
12055
|
}
|
|
11926
|
-
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__7730_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('overlayed on'), Commands_Graph_n__7730_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7))))}, a2:
|
|
12056
|
+
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__7730_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('overlayed on'), Commands_Graph_n__7730_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7))))}, a2: csegen_771()}};
|
|
11927
12057
|
const $27 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('1x the number of closed PRs with unanswered review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Commands_Graph_n__7730_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $3a};
|
|
11928
12058
|
const $14 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('4x the number of open review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Commands_Graph_n__7730_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $27};
|
|
11929
12059
|
const $f = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $14};
|
|
@@ -11934,7 +12064,7 @@ function Commands_Graph_n__7730_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11934
12064
|
|
|
11935
12065
|
/* Commands.Graph.7327:6604:header */
|
|
11936
12066
|
function Commands_Graph_n__7327_6604_header($0, $1, $2, $3) {
|
|
11937
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Open Pull Requests grouped by month created.')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2:
|
|
12067
|
+
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_771()}}}));
|
|
11938
12068
|
}
|
|
11939
12069
|
|
|
11940
12070
|
/* Commands.Graph.7327:6603:graphable */
|
|
@@ -11957,20 +12087,20 @@ function Commands_Graph_n__6760_6183_countInParens($0, $1, $2, $3, $4) {
|
|
|
11957
12087
|
|
|
11958
12088
|
/* Commands.Graph.7730:7010:completedBox */
|
|
11959
12089
|
function Commands_Graph_n__7730_7010_completedBox($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11960
|
-
return Theme_theme($7,
|
|
12090
|
+
return Theme_theme($7, csegen_675(), csegen_675(), 3)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25aa}'));
|
|
11961
12091
|
}
|
|
11962
12092
|
|
|
11963
12093
|
/* Commands.Graph.6760:6182:coloredLabel */
|
|
11964
12094
|
function Commands_Graph_n__6760_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
11965
12095
|
switch((($4.a2===0n)?1:0)) {
|
|
11966
|
-
case 1: return Theme_theme($0,
|
|
12096
|
+
case 1: return Theme_theme($0, csegen_675(), csegen_675(), 0)($2.a1(undefined)($4.a1));
|
|
11967
12097
|
case 0: {
|
|
11968
12098
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 2n)) {
|
|
11969
12099
|
case 1: return $2.a1(undefined)($4.a1);
|
|
11970
12100
|
case 0: {
|
|
11971
12101
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 6n)) {
|
|
11972
|
-
case 1: return Theme_theme($0,
|
|
11973
|
-
case 0: return Theme_theme($0,
|
|
12102
|
+
case 1: return Theme_theme($0, csegen_696(), csegen_694(), 1)($2.a1(undefined)($4.a1));
|
|
12103
|
+
case 0: return Theme_theme($0, csegen_695(), csegen_695(), 2)($2.a1(undefined)($4.a1));
|
|
11974
12104
|
}
|
|
11975
12105
|
}
|
|
11976
12106
|
}
|
|
@@ -12110,9 +12240,9 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12110
12240
|
|
|
12111
12241
|
/* Commands.Graph.healthGraph : Config => List PullRequest -> String -> String -> Doc AnsiStyle */
|
|
12112
12242
|
function Commands_Graph_healthGraph($0, $1, $2, $3) {
|
|
12113
|
-
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(csegen_328(), $11 => $11.a2, $b, $c),
|
|
12243
|
+
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(csegen_328(), $11 => $11.a2, $b, $c), csegen_649(), $7, $8), Data_List_sortBy(csegen_650(), $1));
|
|
12114
12244
|
const $1e = Prelude_Types_foldr_Foldable_List(xs => m => Prelude_Types_max_Ord_Nat(Data_List1_length(xs), m), 1n, $4);
|
|
12115
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_Graph_n__7327_6604_header($3, $2, $1, $0), a2: {a1: Commands_Graph_graph($0, {a1: $36 => Commands_Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29($0, $3a => Commands_Graph_length_HasLength_Date($3a),
|
|
12245
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_Graph_n__7327_6604_header($3, $2, $1, $0), a2: {a1: Commands_Graph_graph($0, {a1: $36 => Commands_Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29($0, $3a => Commands_Graph_length_HasLength_Date($3a), csegen_787(), $36), a2: $41 => maxLabelLength => Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $45 => Commands_Graph_length_HasLength_Date($45), csegen_787(), $41, maxLabelLength), a3: $4d => Commands_Graph_labelLength_Graphable_x28PRsOnDatex20x24dateTyx29($0, $51 => Commands_Graph_length_HasLength_Date($51), csegen_787(), $4d), a4: $58 => Commands_Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29($0, $5c => Commands_Graph_length_HasLength_Date($5c), csegen_787(), $58), a5: $63 => Commands_Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29($0, $67 => Commands_Graph_length_HasLength_Date($67), csegen_787(), $63), a6: $6e => Commands_Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29($0, $72 => Commands_Graph_length_HasLength_Date($72), csegen_787(), $6e)}, $1e, 0n, 0n, Commands_Graph_n__7327_6606_unfoldGraph($3, $2, $1, $0, Data_Fuel_limit(48n), $4, {h: 0})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Commands_Graph_n__7327_6605_link($3, $2, $1, $0)), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}});
|
|
12116
12246
|
}
|
|
12117
12247
|
|
|
12118
12248
|
/* Commands.Graph.graphOne : Config -> Graphable g => Nat -> Nat -> Nat -> g -> Doc AnsiStyle */
|
|
@@ -12135,7 +12265,7 @@ function Commands_Graph_countPadRight($0, $1, $2) {
|
|
|
12135
12265
|
|
|
12136
12266
|
/* Commands.Graph.bar : Config -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
12137
12267
|
function Commands_Graph_bar($0, $1, $2, $3, $4) {
|
|
12138
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0,
|
|
12268
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0, csegen_695(), csegen_695(), 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_696(), csegen_694(), 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_675(), csegen_675(), 3)(Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $4, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{25aa}')))), a2: {h: 0}}}}));
|
|
12139
12269
|
}
|
|
12140
12270
|
|
|
12141
12271
|
|