@mattpolzin/harmony 5.7.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 +11 -6
- package/harmony +706 -629
- package/man/harmony.1 +21 -7
- package/package.json +1 -1
package/harmony
CHANGED
|
@@ -657,7 +657,7 @@ const digIssues = issueJson =>
|
|
|
657
657
|
issueJson.map(digIssue)
|
|
658
658
|
|
|
659
659
|
// Create Issue
|
|
660
|
-
// 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?}
|
|
661
661
|
const okit_create_issue = (octokit, owner, repo, title, body, onSuccess, onFailure) =>
|
|
662
662
|
idris__okit_unpromisify(
|
|
663
663
|
octokit.rest.issues.create({ owner, repo, title, body }),
|
|
@@ -666,7 +666,7 @@ const okit_create_issue = (octokit, owner, repo, title, body, onSuccess, onFailu
|
|
|
666
666
|
)
|
|
667
667
|
|
|
668
668
|
// Get a single Issue
|
|
669
|
-
// Executes callback with stringified JSON {"issue_number": Int, "author": String, "created_at": Date, "title": String, "assignee": String?}
|
|
669
|
+
// Executes callback with stringified JSON {"issue_number": Int, "author": String, "created_at": Date, "title": String, "body": String?, "assignee": String?}
|
|
670
670
|
const okit_get_issue = (octokit, owner, repo, issue_number, onSuccess, onFailure) =>
|
|
671
671
|
idris__okit_unpromisify(
|
|
672
672
|
octokit.rest.issues.get({ owner, repo, issue_number }),
|
|
@@ -1021,7 +1021,7 @@ function x24tcOpt_1($0) {
|
|
|
1021
1021
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
1022
1022
|
default: {
|
|
1023
1023
|
const $17 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1024
|
-
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);
|
|
1025
1025
|
switch($1b.a1.h) {
|
|
1026
1026
|
case 0: /* nothing */ {
|
|
1027
1027
|
switch($0.a8) {
|
|
@@ -1036,7 +1036,7 @@ function x24tcOpt_1($0) {
|
|
|
1036
1036
|
}
|
|
1037
1037
|
default: {
|
|
1038
1038
|
const $64 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1039
|
-
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);
|
|
1040
1040
|
switch($68.a1.h) {
|
|
1041
1041
|
case 0: /* nothing */ {
|
|
1042
1042
|
switch($0.a8) {
|
|
@@ -1061,7 +1061,7 @@ function x24tcOpt_1($0) {
|
|
|
1061
1061
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
1062
1062
|
default: {
|
|
1063
1063
|
const $b5 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1064
|
-
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);
|
|
1065
1065
|
switch($b9.a1.h) {
|
|
1066
1066
|
case 0: /* nothing */ {
|
|
1067
1067
|
switch($0.a8) {
|
|
@@ -1076,7 +1076,7 @@ function x24tcOpt_1($0) {
|
|
|
1076
1076
|
}
|
|
1077
1077
|
default: {
|
|
1078
1078
|
const $102 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1079
|
-
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);
|
|
1080
1080
|
switch($106.a1.h) {
|
|
1081
1081
|
case 0: /* nothing */ {
|
|
1082
1082
|
switch($0.a8) {
|
|
@@ -1115,8 +1115,8 @@ function x24tcOpt_2($0) {
|
|
|
1115
1115
|
}
|
|
1116
1116
|
}
|
|
1117
1117
|
|
|
1118
|
-
/* Data.List.
|
|
1119
|
-
function
|
|
1118
|
+
/* Data.List.7787:8509:splitRec */
|
|
1119
|
+
function Data_List_n__7787_8509_splitRec($0, $1, $2, $3, $4) {
|
|
1120
1120
|
return __tailRec(x24tcOpt_2, {h: 1 /* {TcContinue2:1} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4});
|
|
1121
1121
|
}
|
|
1122
1122
|
|
|
@@ -1339,8 +1339,8 @@ function x24tcOpt_5($0) {
|
|
|
1339
1339
|
}
|
|
1340
1340
|
}
|
|
1341
1341
|
|
|
1342
|
-
/* Text.PrettyPrint.Prettyprinter.Doc.
|
|
1343
|
-
function
|
|
1342
|
+
/* Text.PrettyPrint.Prettyprinter.Doc.8985:8927:initialIndentation */
|
|
1343
|
+
function Text_PrettyPrint_Prettyprinter_Doc_n__8985_8927_initialIndentation($0, $1, $2, $3) {
|
|
1344
1344
|
return __tailRec(x24tcOpt_5, {h: 1 /* {TcContinue5:1} */, a1: $0, a2: $1, a3: $2, a4: $3});
|
|
1345
1345
|
}
|
|
1346
1346
|
|
|
@@ -1415,13 +1415,13 @@ function Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29($0, $1, $2) {
|
|
|
1415
1415
|
function x24tcOpt_8($0) {
|
|
1416
1416
|
switch($0.a2.h) {
|
|
1417
1417
|
case 0: /* Leaf */ return {h: 0 /* {TcDone:8} */, a1: $0.a1({a1: $0.a2.a1, a2: $0.a2.a2})};
|
|
1418
|
-
case 1: /* Branch2 */ return {h: 1 /* {TcContinue8:1} */, a1: $9 => ({a1: $9, a2:
|
|
1419
|
-
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};
|
|
1420
1420
|
}
|
|
1421
1421
|
}
|
|
1422
1422
|
|
|
1423
|
-
/* Data.SortedMap.Dependent.
|
|
1424
|
-
function
|
|
1423
|
+
/* Data.SortedMap.Dependent.6828:9064:treeToList' */
|
|
1424
|
+
function Data_SortedMap_Dependent_n__6828_9064_treeToListx27($0, $1) {
|
|
1425
1425
|
return __tailRec(x24tcOpt_8, {h: 1 /* {TcContinue8:1} */, a1: $0, a2: $1});
|
|
1426
1426
|
}
|
|
1427
1427
|
|
|
@@ -1708,7 +1708,7 @@ function JSON_Parser_object($0, $1, $2) {
|
|
|
1708
1708
|
}
|
|
1709
1709
|
|
|
1710
1710
|
/* JSON.Parser.case block in object */
|
|
1711
|
-
function
|
|
1711
|
+
function JSON_Parser_case__object_22917($0, $1, $2, $3, $4, $5, $6) {
|
|
1712
1712
|
return __tailRec(x24tcOpt_14, {h: 2 /* {TcContinue14:2} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6});
|
|
1713
1713
|
}
|
|
1714
1714
|
|
|
@@ -1719,14 +1719,14 @@ function x24tcOpt_15($0) {
|
|
|
1719
1719
|
case undefined: /* cons */ {
|
|
1720
1720
|
switch(Prelude_Types_elemBy(csegen_147(), $0.a2, $0.a3.a1)($0.a1)) {
|
|
1721
1721
|
case 1: return {h: 1 /* {TcContinue15:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3.a2};
|
|
1722
|
-
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)}};
|
|
1723
1723
|
}
|
|
1724
1724
|
}
|
|
1725
1725
|
}
|
|
1726
1726
|
}
|
|
1727
1727
|
|
|
1728
|
-
/* Data.List.
|
|
1729
|
-
function
|
|
1728
|
+
/* Data.List.4934:5733:nubBy' */
|
|
1729
|
+
function Data_List_n__4934_5733_nubByx27($0, $1, $2) {
|
|
1730
1730
|
return __tailRec(x24tcOpt_15, {h: 1 /* {TcContinue15:1} */, a1: $0, a2: $1, a3: $2});
|
|
1731
1731
|
}
|
|
1732
1732
|
|
|
@@ -1756,7 +1756,7 @@ function x24tcOpt_16($0) {
|
|
|
1756
1756
|
}
|
|
1757
1757
|
|
|
1758
1758
|
/* Data.String.with block in ltrim */
|
|
1759
|
-
function
|
|
1759
|
+
function Data_String_with__ltrim_9864($0, $1) {
|
|
1760
1760
|
return __tailRec(x24tcOpt_16, {h: 1 /* {TcContinue16:1} */, a1: $0, a2: $1});
|
|
1761
1761
|
}
|
|
1762
1762
|
|
|
@@ -1868,16 +1868,16 @@ function x24tcOpt_21($0) {
|
|
|
1868
1868
|
case 0: /* nil */ return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: {h: 0}}};
|
|
1869
1869
|
case undefined: /* cons */ {
|
|
1870
1870
|
switch($0.a3.a1) {
|
|
1871
|
-
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)}};
|
|
1872
1872
|
case '\r': {
|
|
1873
1873
|
switch($0.a3.a2.h) {
|
|
1874
1874
|
case undefined: /* cons */ {
|
|
1875
1875
|
switch($0.a3.a2.a1) {
|
|
1876
|
-
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1877
|
-
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)}};
|
|
1878
1878
|
}
|
|
1879
1879
|
}
|
|
1880
|
-
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)}};
|
|
1881
1881
|
}
|
|
1882
1882
|
}
|
|
1883
1883
|
default: return {h: 1 /* {TcContinue21:1} */, a1: $0.a1, a2: {a1: $0.a3.a1, a2: $0.a2}, a3: $0.a3.a2};
|
|
@@ -1892,16 +1892,16 @@ function x24tcOpt_21($0) {
|
|
|
1892
1892
|
case 0: /* nil */ return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: {h: 0}}};
|
|
1893
1893
|
case undefined: /* cons */ {
|
|
1894
1894
|
switch($0.a3.a1) {
|
|
1895
|
-
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)}};
|
|
1896
1896
|
case '\r': {
|
|
1897
1897
|
switch($0.a3.a2.h) {
|
|
1898
1898
|
case undefined: /* cons */ {
|
|
1899
1899
|
switch($0.a3.a2.a1) {
|
|
1900
|
-
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1901
|
-
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)}};
|
|
1902
1902
|
}
|
|
1903
1903
|
}
|
|
1904
|
-
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)}};
|
|
1905
1905
|
}
|
|
1906
1906
|
}
|
|
1907
1907
|
default: return {h: 1 /* {TcContinue21:1} */, a1: $0.a1, a2: {a1: $0.a3.a1, a2: $0.a2}, a3: $0.a3.a2};
|
|
@@ -1912,8 +1912,8 @@ function x24tcOpt_21($0) {
|
|
|
1912
1912
|
}
|
|
1913
1913
|
}
|
|
1914
1914
|
|
|
1915
|
-
/* Data.String.3989:
|
|
1916
|
-
function
|
|
1915
|
+
/* Data.String.3989:9702:linesHelp */
|
|
1916
|
+
function Data_String_n__3989_9702_linesHelp($0, $1, $2) {
|
|
1917
1917
|
return __tailRec(x24tcOpt_21, {h: 1 /* {TcContinue21:1} */, a1: $0, a2: $1, a3: $2});
|
|
1918
1918
|
}
|
|
1919
1919
|
|
|
@@ -1947,14 +1947,14 @@ function Prelude_Types_List_lengthPlus($0, $1) {
|
|
|
1947
1947
|
function x24tcOpt_24($0) {
|
|
1948
1948
|
switch($0.a6.h) {
|
|
1949
1949
|
case 0: /* Nil */ return {h: 0 /* {TcDone:24} */, a1: {h: 0 /* SEmpty */}};
|
|
1950
|
-
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)}};
|
|
1951
1951
|
case 1: /* Cons */ {
|
|
1952
1952
|
switch($0.a6.a2.h) {
|
|
1953
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};
|
|
1954
|
-
case 1: /* Chara */ return {h: 0 /* {TcDone:24} */, a1: {h: 1 /* SChar */, a1: $0.a6.a2.a1, a2: () =>
|
|
1955
|
-
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)}};
|
|
1956
1956
|
case 3: /* Line */ {
|
|
1957
|
-
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);
|
|
1958
1958
|
let $35;
|
|
1959
1959
|
switch($2d.h) {
|
|
1960
1960
|
case 0: /* SEmpty */ {
|
|
@@ -1973,21 +1973,21 @@ function x24tcOpt_24($0) {
|
|
|
1973
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}}};
|
|
1974
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}};
|
|
1975
1975
|
case 7: /* Union */ {
|
|
1976
|
-
const $5d =
|
|
1977
|
-
const $69 =
|
|
1978
|
-
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)};
|
|
1979
1979
|
}
|
|
1980
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}};
|
|
1981
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}};
|
|
1982
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}};
|
|
1983
|
-
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}})}};
|
|
1984
1984
|
}
|
|
1985
1985
|
}
|
|
1986
1986
|
}
|
|
1987
1987
|
}
|
|
1988
1988
|
|
|
1989
|
-
/* Text.PrettyPrint.Prettyprinter.Doc.
|
|
1990
|
-
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) {
|
|
1991
1991
|
return __tailRec(x24tcOpt_24, {h: 1 /* {TcContinue24:1} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5});
|
|
1992
1992
|
}
|
|
1993
1993
|
|
|
@@ -2499,7 +2499,7 @@ function JSON_Parser_array($0, $1, $2) {
|
|
|
2499
2499
|
}
|
|
2500
2500
|
|
|
2501
2501
|
/* JSON.Parser.case block in array */
|
|
2502
|
-
function
|
|
2502
|
+
function JSON_Parser_case__array_22663($0, $1, $2, $3) {
|
|
2503
2503
|
return __tailRec(x24tcOpt_47, {h: 2 /* {TcContinue47:2} */, a1: $0, a2: $1, a3: $2, a4: $3});
|
|
2504
2504
|
}
|
|
2505
2505
|
|
|
@@ -2877,118 +2877,128 @@ const csegen_427 = __lazy(function () {
|
|
|
2877
2877
|
return {a1: Commands_Help_argument(0, '#<label>'), a2: csegen_422()};
|
|
2878
2878
|
});
|
|
2879
2879
|
|
|
2880
|
-
/* {csegen:
|
|
2881
|
-
const
|
|
2880
|
+
/* {csegen:608} */
|
|
2881
|
+
const csegen_608 = __lazy(function () {
|
|
2882
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)})};
|
|
2883
2883
|
});
|
|
2884
2884
|
|
|
2885
|
-
/* {csegen:
|
|
2886
|
-
const
|
|
2885
|
+
/* {csegen:612} */
|
|
2886
|
+
const csegen_612 = __lazy(function () {
|
|
2887
2887
|
return {a1: {h: 0}, a2: {a1: '-i', a2: {h: 0}}};
|
|
2888
2888
|
});
|
|
2889
2889
|
|
|
2890
|
-
/* {csegen:
|
|
2891
|
-
const
|
|
2890
|
+
/* {csegen:617} */
|
|
2891
|
+
const csegen_617 = __lazy(function () {
|
|
2892
2892
|
return $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $0, $1);
|
|
2893
2893
|
});
|
|
2894
2894
|
|
|
2895
|
-
/* {csegen:
|
|
2896
|
-
const
|
|
2895
|
+
/* {csegen:633} */
|
|
2896
|
+
const csegen_633 = __lazy(function () {
|
|
2897
2897
|
return {a1: csegen_9(), a2: a => ({h: 0}), a3: a => $4 => $5 => Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, $5)};
|
|
2898
2898
|
});
|
|
2899
2899
|
|
|
2900
|
-
/* {csegen:
|
|
2901
|
-
const
|
|
2900
|
+
/* {csegen:634} */
|
|
2901
|
+
const csegen_634 = __lazy(function () {
|
|
2902
2902
|
return $0 => Data_List_sort(csegen_240(), $0);
|
|
2903
2903
|
});
|
|
2904
2904
|
|
|
2905
|
-
/* {csegen:
|
|
2906
|
-
const
|
|
2905
|
+
/* {csegen:636} */
|
|
2906
|
+
const csegen_636 = __lazy(function () {
|
|
2907
2907
|
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_147(), $0, $1, $2);
|
|
2908
2908
|
});
|
|
2909
2909
|
|
|
2910
2910
|
/* {csegen:643} */
|
|
2911
2911
|
const csegen_643 = __lazy(function () {
|
|
2912
|
+
return $0 => {
|
|
2913
|
+
switch($0.h) {
|
|
2914
|
+
case 0: /* nothing */ return 1;
|
|
2915
|
+
default: return 0;
|
|
2916
|
+
}
|
|
2917
|
+
};
|
|
2918
|
+
});
|
|
2919
|
+
|
|
2920
|
+
/* {csegen:648} */
|
|
2921
|
+
const csegen_648 = __lazy(function () {
|
|
2912
2922
|
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2913
2923
|
});
|
|
2914
2924
|
|
|
2915
|
-
/* {csegen:
|
|
2916
|
-
const
|
|
2925
|
+
/* {csegen:649} */
|
|
2926
|
+
const csegen_649 = __lazy(function () {
|
|
2917
2927
|
return $0 => $0.a3;
|
|
2918
2928
|
});
|
|
2919
2929
|
|
|
2920
|
-
/* {csegen:
|
|
2921
|
-
const
|
|
2922
|
-
return $0 => $1 => Prelude_Basics_on(
|
|
2930
|
+
/* {csegen:650} */
|
|
2931
|
+
const csegen_650 = __lazy(function () {
|
|
2932
|
+
return $0 => $1 => Prelude_Basics_on(csegen_648(), csegen_649(), $0, $1);
|
|
2923
2933
|
});
|
|
2924
2934
|
|
|
2925
|
-
/* {csegen:
|
|
2926
|
-
const
|
|
2935
|
+
/* {csegen:672} */
|
|
2936
|
+
const csegen_672 = __lazy(function () {
|
|
2927
2937
|
return $0 => $0.a3;
|
|
2928
2938
|
});
|
|
2929
2939
|
|
|
2930
|
-
/* {csegen:
|
|
2931
|
-
const
|
|
2940
|
+
/* {csegen:675} */
|
|
2941
|
+
const csegen_675 = __lazy(function () {
|
|
2932
2942
|
return Theme_cs({a1: 2, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2933
2943
|
});
|
|
2934
2944
|
|
|
2935
|
-
/* {csegen:
|
|
2936
|
-
const
|
|
2945
|
+
/* {csegen:678} */
|
|
2946
|
+
const csegen_678 = __lazy(function () {
|
|
2937
2947
|
return $0 => $0.a1;
|
|
2938
2948
|
});
|
|
2939
2949
|
|
|
2940
|
-
/* {csegen:
|
|
2941
|
-
const
|
|
2950
|
+
/* {csegen:684} */
|
|
2951
|
+
const csegen_684 = __lazy(function () {
|
|
2942
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}}}));
|
|
2943
2953
|
});
|
|
2944
2954
|
|
|
2945
|
-
/* {csegen:
|
|
2946
|
-
const
|
|
2955
|
+
/* {csegen:694} */
|
|
2956
|
+
const csegen_694 = __lazy(function () {
|
|
2947
2957
|
return Theme_cs({a1: 0, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2948
2958
|
});
|
|
2949
2959
|
|
|
2950
|
-
/* {csegen:
|
|
2951
|
-
const
|
|
2960
|
+
/* {csegen:695} */
|
|
2961
|
+
const csegen_695 = __lazy(function () {
|
|
2952
2962
|
return Theme_cs({a1: 1, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2953
2963
|
});
|
|
2954
2964
|
|
|
2955
|
-
/* {csegen:
|
|
2956
|
-
const
|
|
2965
|
+
/* {csegen:696} */
|
|
2966
|
+
const csegen_696 = __lazy(function () {
|
|
2957
2967
|
return Theme_cs({a1: 3, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2958
2968
|
});
|
|
2959
2969
|
|
|
2960
|
-
/* {csegen:
|
|
2961
|
-
const
|
|
2970
|
+
/* {csegen:710} */
|
|
2971
|
+
const csegen_710 = __lazy(function () {
|
|
2962
2972
|
return $0 => Prelude_Types_either(() => $3 => '', () => $5 => $5, $0);
|
|
2963
2973
|
});
|
|
2964
2974
|
|
|
2965
|
-
/* {csegen:
|
|
2966
|
-
const
|
|
2975
|
+
/* {csegen:716} */
|
|
2976
|
+
const csegen_716 = __lazy(function () {
|
|
2967
2977
|
return $0 => Util_Prompting_yesNoPrompt(csegen_74()(), 1, 'Would you like to continue creating a Pull Request anyway?');
|
|
2968
2978
|
});
|
|
2969
2979
|
|
|
2970
|
-
/* {csegen:
|
|
2971
|
-
const
|
|
2980
|
+
/* {csegen:754} */
|
|
2981
|
+
const csegen_754 = __lazy(function () {
|
|
2972
2982
|
return $0 => Prelude_Types_fastPack(Prelude_Types_List_reverse($0));
|
|
2973
2983
|
});
|
|
2974
2984
|
|
|
2975
|
-
/* {csegen:
|
|
2976
|
-
const
|
|
2985
|
+
/* {csegen:759} */
|
|
2986
|
+
const csegen_759 = __lazy(function () {
|
|
2977
2987
|
return $0 => $0.a1;
|
|
2978
2988
|
});
|
|
2979
2989
|
|
|
2980
|
-
/* {csegen:
|
|
2981
|
-
const
|
|
2990
|
+
/* {csegen:766} */
|
|
2991
|
+
const csegen_766 = __lazy(function () {
|
|
2982
2992
|
return $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Data_String_trim($4), csegen_406()(), $0, $1);
|
|
2983
2993
|
});
|
|
2984
2994
|
|
|
2985
|
-
/* {csegen:
|
|
2986
|
-
const
|
|
2995
|
+
/* {csegen:771} */
|
|
2996
|
+
const csegen_771 = __lazy(function () {
|
|
2987
2997
|
return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}};
|
|
2988
2998
|
});
|
|
2989
2999
|
|
|
2990
|
-
/* {csegen:
|
|
2991
|
-
const
|
|
3000
|
+
/* {csegen:787} */
|
|
3001
|
+
const csegen_787 = __lazy(function () {
|
|
2992
3002
|
return {a1: ann => $1 => Commands_Graph_pretty_Pretty_Date($1), a2: ann => $5 => $6 => Commands_Graph_prettyPrec_Pretty_Date($5, $6)};
|
|
2993
3003
|
});
|
|
2994
3004
|
|
|
@@ -2997,23 +3007,23 @@ function prim__sub_Integer($0, $1) {
|
|
|
2997
3007
|
return ($0-$1);
|
|
2998
3008
|
}
|
|
2999
3009
|
|
|
3000
|
-
/* Main.
|
|
3001
|
-
function
|
|
3010
|
+
/* Main.8893:1556:parsePg */
|
|
3011
|
+
function Main_n__8893_1556_parsePg($0, $1, $2, $3, $4, $5, $6) {
|
|
3002
3012
|
return Data_String_parsePositive(csegen_2(), $6);
|
|
3003
3013
|
}
|
|
3004
3014
|
|
|
3005
|
-
/* Main.
|
|
3006
|
-
function
|
|
3015
|
+
/* Main.8893:1555:parseLim */
|
|
3016
|
+
function Main_n__8893_1555_parseLim($0, $1, $2, $3, $4, $5) {
|
|
3007
3017
|
return Prelude_Interfaces_x3cx3dx3c(csegen_14(), x => Data_Fin_natToFin(x, 101n), $e => Data_String_parsePositive(csegen_2(), $e));
|
|
3008
3018
|
}
|
|
3009
3019
|
|
|
3010
|
-
/* Main.
|
|
3011
|
-
function
|
|
3020
|
+
/* Main.8695:1303:ffiOpts */
|
|
3021
|
+
function Main_n__8695_1303_ffiOpts($0, $1, $2, $3) {
|
|
3012
3022
|
return BashCompletion_ffiOpts($0, $3, $2, $1);
|
|
3013
3023
|
}
|
|
3014
3024
|
|
|
3015
|
-
/* Main.
|
|
3016
|
-
function
|
|
3025
|
+
/* Main.8695:1302:configuredOpts */
|
|
3026
|
+
function Main_n__8695_1302_configuredOpts($0, $1, $2, $3) {
|
|
3017
3027
|
const $13 = $14 => {
|
|
3018
3028
|
switch($14.h) {
|
|
3019
3029
|
case 1: /* Right */ return $0.a1.a1.a2(undefined)(BashCompletion_opts($14.a1, $3, $2, $1));
|
|
@@ -3258,7 +3268,7 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3258
3268
|
}
|
|
3259
3269
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe($b5, filter => ({a1: {a1: filter, a2: {a1: $b2.a1, a2: $b2.a2}}}));
|
|
3260
3270
|
};
|
|
3261
|
-
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);
|
|
3262
3272
|
return $c2 => {
|
|
3263
3273
|
switch($92.h) {
|
|
3264
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);
|
|
@@ -3336,79 +3346,59 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3336
3346
|
}
|
|
3337
3347
|
};
|
|
3338
3348
|
}
|
|
3339
|
-
case 'quick':
|
|
3340
|
-
switch($3.a2.h) {
|
|
3341
|
-
case 0: /* nil */ return $24d => $24e => Commands_quick($0, $1, $2, 1, $24d, $24e);
|
|
3342
|
-
case undefined: /* cons */ {
|
|
3343
|
-
return $256 => {
|
|
3344
|
-
switch($3.a2.a1) {
|
|
3345
|
-
case '--bugfix': {
|
|
3346
|
-
return $258 => {
|
|
3347
|
-
switch($3.a2.a2.h) {
|
|
3348
|
-
case 0: /* nil */ return Commands_quick($0, $1, $2, 0, $256, $258);
|
|
3349
|
-
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);
|
|
3350
|
-
}
|
|
3351
|
-
};
|
|
3352
|
-
}
|
|
3353
|
-
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);
|
|
3354
|
-
}
|
|
3355
|
-
};
|
|
3356
|
-
}
|
|
3357
|
-
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);
|
|
3358
|
-
}
|
|
3359
|
-
}
|
|
3349
|
+
case 'quick': return $24c => $24d => Commands_quick($0, $1, $2, Commands_parseQuickArgs($3.a2), $24c, $24d);
|
|
3360
3350
|
case 'health': {
|
|
3361
|
-
return $
|
|
3351
|
+
return $257 => $258 => {
|
|
3362
3352
|
switch($3.a2.h) {
|
|
3363
|
-
case undefined: /* cons */ return Data_Promise_reject('The health command does not take any arguments.', $
|
|
3364
|
-
case 0: /* nil */ return Commands_health($0, $2, $
|
|
3365
|
-
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);
|
|
3366
3356
|
}
|
|
3367
3357
|
};
|
|
3368
3358
|
}
|
|
3369
3359
|
case 'pr': {
|
|
3370
|
-
const $
|
|
3371
|
-
switch($
|
|
3372
|
-
case 1: /* Right */ return $
|
|
3373
|
-
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);
|
|
3374
3364
|
}
|
|
3375
3365
|
}
|
|
3376
3366
|
case 'reflect': {
|
|
3377
|
-
return $
|
|
3367
|
+
return $289 => $28a => {
|
|
3378
3368
|
switch($3.a2.h) {
|
|
3379
|
-
case 0: /* nil */ return Commands_reflect($0, $2, $
|
|
3380
|
-
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);
|
|
3381
3371
|
}
|
|
3382
3372
|
};
|
|
3383
3373
|
}
|
|
3384
3374
|
case 'contribute': {
|
|
3385
|
-
const $
|
|
3386
|
-
switch($
|
|
3387
|
-
case 1: /* Right */ return $
|
|
3388
|
-
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);
|
|
3389
3379
|
}
|
|
3390
3380
|
}
|
|
3391
3381
|
case 'list': {
|
|
3392
|
-
return $
|
|
3382
|
+
return $2b7 => {
|
|
3393
3383
|
switch($3.a2.h) {
|
|
3394
|
-
case 0: /* nil */ return $
|
|
3384
|
+
case 0: /* nil */ return $2b9 => Commands_listOrgTeams($0, $2, $2b7, $2b9);
|
|
3395
3385
|
case undefined: /* cons */ {
|
|
3396
|
-
return $
|
|
3386
|
+
return $2bf => {
|
|
3397
3387
|
switch($3.a2.a2.h) {
|
|
3398
|
-
case 0: /* nil */ return Commands_list($0, $2, $3.a2.a1, $
|
|
3399
|
-
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);
|
|
3400
3390
|
}
|
|
3401
3391
|
};
|
|
3402
3392
|
}
|
|
3403
|
-
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);
|
|
3404
3394
|
}
|
|
3405
3395
|
};
|
|
3406
3396
|
}
|
|
3407
3397
|
case 'graph': {
|
|
3408
|
-
const $
|
|
3409
|
-
switch($
|
|
3410
|
-
case 1: /* Right */ return Commands_graph($0, $2, $
|
|
3411
|
-
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);
|
|
3412
3402
|
}
|
|
3413
3403
|
}
|
|
3414
3404
|
case 'rq': {
|
|
@@ -3434,18 +3424,18 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3434
3424
|
}
|
|
3435
3425
|
}
|
|
3436
3426
|
case 'label': {
|
|
3437
|
-
return $
|
|
3427
|
+
return $326 => $327 => {
|
|
3438
3428
|
switch($3.a2.h) {
|
|
3439
|
-
case 0: /* nil */ return Data_Promise_reject('The label command expects one or more labels as arguments.', $
|
|
3440
|
-
case undefined: /* cons */ return Commands_label($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2}, $
|
|
3441
|
-
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);
|
|
3442
3432
|
}
|
|
3443
3433
|
};
|
|
3444
3434
|
}
|
|
3445
|
-
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);
|
|
3446
3436
|
}
|
|
3447
3437
|
}
|
|
3448
|
-
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);
|
|
3449
3439
|
}
|
|
3450
3440
|
}
|
|
3451
3441
|
|
|
@@ -3517,10 +3507,10 @@ function Main_exitError($0, $1) {
|
|
|
3517
3507
|
/* Main.bashCompletion : HasIO io => String -> String -> String -> io () */
|
|
3518
3508
|
function Main_bashCompletion($0, $1, $2, $3) {
|
|
3519
3509
|
const $4 = BashCompletion_cmdOpts($1, $2, $3);
|
|
3520
|
-
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);
|
|
3521
3511
|
const $26 = $27 => {
|
|
3522
3512
|
switch($27.h) {
|
|
3523
|
-
case 0: /* nothing */ return
|
|
3513
|
+
case 0: /* nothing */ return Main_n__8695_1302_configuredOpts($0, $3, $2, $1);
|
|
3524
3514
|
case undefined: /* just */ return $0.a1.a1.a2(undefined)($27.a1);
|
|
3525
3515
|
}
|
|
3526
3516
|
};
|
|
@@ -3528,18 +3518,18 @@ function Main_bashCompletion($0, $1, $2, $3) {
|
|
|
3528
3518
|
return $0.a1.a2(undefined)(undefined)($1c)($3f => $0.a2(undefined)($45 => Prelude_IO_prim__putStr(Data_String_fastUnlines($3f), $45)));
|
|
3529
3519
|
}
|
|
3530
3520
|
|
|
3531
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3532
|
-
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) {
|
|
3533
3523
|
return Control_Monad_ST_modifySTRef($1, $7 => ($7+$2), $3);
|
|
3534
3524
|
}
|
|
3535
3525
|
|
|
3536
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3537
|
-
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) {
|
|
3538
3528
|
return Control_Monad_ST_modifySTRef($1, $7 => ({a1: $2, a2: $7}), $3);
|
|
3539
3529
|
}
|
|
3540
3530
|
|
|
3541
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3542
|
-
function
|
|
3531
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4514:5066:pop */
|
|
3532
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5066_pop($0, $1, $2) {
|
|
3543
3533
|
const $9 = $a => $b => {
|
|
3544
3534
|
switch($a.h) {
|
|
3545
3535
|
case undefined: /* cons */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($f => ($1.value=$a.a2), $15 => $16 => ({a1: $a.a1}), $b);
|
|
@@ -3549,8 +3539,8 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5066_pop($0, $1,
|
|
|
3549
3539
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($5 => ($1.value), $9, $2);
|
|
3550
3540
|
}
|
|
3551
3541
|
|
|
3552
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3553
|
-
function
|
|
3542
|
+
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.4514:5065:peek */
|
|
3543
|
+
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4514_5065_peek($0, $1, $2) {
|
|
3554
3544
|
const $9 = $a => $b => {
|
|
3555
3545
|
switch($a.h) {
|
|
3556
3546
|
case undefined: /* cons */ return {a1: $a.a1};
|
|
@@ -3560,36 +3550,36 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4508_5065_peek($0, $1
|
|
|
3560
3550
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($5 => ($1.value), $9, $2);
|
|
3561
3551
|
}
|
|
3562
3552
|
|
|
3563
|
-
/* Text.PrettyPrint.Prettyprinter.Render.Terminal.
|
|
3564
|
-
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) {
|
|
3565
3555
|
switch($3.h) {
|
|
3566
3556
|
case 0: /* SEmpty */ return undefined;
|
|
3567
|
-
case 1: /* SChar */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($8 =>
|
|
3568
|
-
case 2: /* SText */ return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($1d =>
|
|
3569
|
-
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);
|
|
3570
3560
|
case 4: /* SAnnPush */ {
|
|
3571
3561
|
const $4d = $4e => {
|
|
3572
3562
|
switch($4e.h) {
|
|
3573
3563
|
case undefined: /* just */ {
|
|
3574
3564
|
const $50 = Prelude_Types_List_tailRecAppend($3.a1, $4e.a1);
|
|
3575
|
-
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);
|
|
3576
3566
|
}
|
|
3577
3567
|
case 0: /* nothing */ return $75 => ($1.value={h: 0});
|
|
3578
3568
|
}
|
|
3579
3569
|
};
|
|
3580
|
-
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);
|
|
3581
3571
|
}
|
|
3582
3572
|
case 5: /* SAnnPop */ {
|
|
3583
3573
|
const $82 = _ => $83 => {
|
|
3584
3574
|
const $8b = $8c => $8d => {
|
|
3585
3575
|
switch($8c.h) {
|
|
3586
|
-
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);
|
|
3587
3577
|
case 0: /* nothing */ return ($1.value={h: 0});
|
|
3588
3578
|
}
|
|
3589
3579
|
};
|
|
3590
|
-
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);
|
|
3591
3581
|
};
|
|
3592
|
-
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);
|
|
3593
3583
|
}
|
|
3594
3584
|
}
|
|
3595
3585
|
}
|
|
@@ -3619,7 +3609,7 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString($0) {
|
|
|
3619
3609
|
};
|
|
3620
3610
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($28 => (styleStackRef.value), $2c, $25);
|
|
3621
3611
|
};
|
|
3622
|
-
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);
|
|
3623
3613
|
};
|
|
3624
3614
|
return Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($14 => Control_Monad_ST_newSTRef('', $14), $18, $11);
|
|
3625
3615
|
};
|
|
@@ -3707,9 +3697,9 @@ function Text_PrettyPrint_Prettyprinter_Doc_case__changesUponFlattening_4540($0,
|
|
|
3707
3697
|
}
|
|
3708
3698
|
}
|
|
3709
3699
|
|
|
3710
|
-
/* Text.PrettyPrint.Prettyprinter.Doc.
|
|
3711
|
-
function
|
|
3712
|
-
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)) {
|
|
3713
3703
|
case 1: return $5;
|
|
3714
3704
|
case 0: return $6();
|
|
3715
3705
|
}
|
|
@@ -3872,7 +3862,7 @@ const Text_PrettyPrint_Prettyprinter_Doc_line = __lazy(function () {
|
|
|
3872
3862
|
|
|
3873
3863
|
/* Text.PrettyPrint.Prettyprinter.Doc.layoutWadlerLeijen : FittingPredicate ann -> PageWidth -> Doc ann -> SimpleDocStream ann */
|
|
3874
3864
|
function Text_PrettyPrint_Prettyprinter_Doc_layoutWadlerLeijen($0, $1, $2) {
|
|
3875
|
-
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 */}});
|
|
3876
3866
|
}
|
|
3877
3867
|
|
|
3878
3868
|
/* Text.PrettyPrint.Prettyprinter.Doc.layoutUnbounded : Doc ann -> SimpleDocStream ann */
|
|
@@ -4071,7 +4061,7 @@ function Data_String_Extra_drop($0, $1) {
|
|
|
4071
4061
|
}
|
|
4072
4062
|
|
|
4073
4063
|
/* Data.String.with block in parsePositive,parsePosTrimmed */
|
|
4074
|
-
function
|
|
4064
|
+
function Data_String_with__parsePositivex2cparsePosTrimmed_10197($0, $1, $2, $3, $4) {
|
|
4075
4065
|
switch($3) {
|
|
4076
4066
|
case '': {
|
|
4077
4067
|
switch($4.h) {
|
|
@@ -4126,7 +4116,7 @@ function Data_String_with__parsePositivex2cparsePosTrimmed_10051($0, $1, $2, $3,
|
|
|
4126
4116
|
}
|
|
4127
4117
|
|
|
4128
4118
|
/* Data.String.with block in asList */
|
|
4129
|
-
function
|
|
4119
|
+
function Data_String_with__asList_9840($0, $1) {
|
|
4130
4120
|
switch($0) {
|
|
4131
4121
|
case '': {
|
|
4132
4122
|
switch($1.h) {
|
|
@@ -4138,17 +4128,17 @@ function Data_String_with__asList_9694($0, $1) {
|
|
|
4138
4128
|
}
|
|
4139
4129
|
}
|
|
4140
4130
|
|
|
4141
|
-
/* Data.String.3856:
|
|
4142
|
-
function
|
|
4131
|
+
/* Data.String.3856:9572:unlines' */
|
|
4132
|
+
function Data_String_n__3856_9572_unlinesx27($0) {
|
|
4143
4133
|
switch($0.h) {
|
|
4144
4134
|
case 0: /* nil */ return {h: 0};
|
|
4145
|
-
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)}};
|
|
4146
4136
|
}
|
|
4147
4137
|
}
|
|
4148
4138
|
|
|
4149
|
-
/* Data.String.4465:
|
|
4150
|
-
function
|
|
4151
|
-
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));
|
|
4152
4142
|
}
|
|
4153
4143
|
|
|
4154
4144
|
/* Data.String.trim : String -> String */
|
|
@@ -4197,17 +4187,17 @@ function Data_String_replicate($0, $1) {
|
|
|
4197
4187
|
|
|
4198
4188
|
/* Data.String.parsePositive : Num a => String -> Maybe a */
|
|
4199
4189
|
function Data_String_parsePositive($0, $1) {
|
|
4200
|
-
return
|
|
4190
|
+
return Data_String_n__4465_10191_parsePosTrimmed($0, $1, Data_String_trim($1));
|
|
4201
4191
|
}
|
|
4202
4192
|
|
|
4203
4193
|
/* Data.String.ltrim : String -> String */
|
|
4204
4194
|
function Data_String_ltrim($0) {
|
|
4205
|
-
return
|
|
4195
|
+
return Data_String_with__ltrim_9864($0, Data_String_asList($0));
|
|
4206
4196
|
}
|
|
4207
4197
|
|
|
4208
4198
|
/* Data.String.lines' : List Char -> List (List Char) */
|
|
4209
4199
|
function Data_String_linesx27($0) {
|
|
4210
|
-
return
|
|
4200
|
+
return Data_String_n__3989_9702_linesHelp($0, {h: 0}, $0);
|
|
4211
4201
|
}
|
|
4212
4202
|
|
|
4213
4203
|
/* Data.String.lines : String -> List String */
|
|
@@ -4227,7 +4217,7 @@ function Data_String_isPrefixOf($0, $1) {
|
|
|
4227
4217
|
|
|
4228
4218
|
/* Data.String.fastUnlines : List String -> String */
|
|
4229
4219
|
function Data_String_fastUnlines($0) {
|
|
4230
|
-
return Prelude_Types_fastConcat(
|
|
4220
|
+
return Prelude_Types_fastConcat(Data_String_n__3856_9572_unlinesx27($0));
|
|
4231
4221
|
}
|
|
4232
4222
|
|
|
4233
4223
|
/* Data.String.break : (Char -> Bool) -> String -> (String, String) */
|
|
@@ -4243,7 +4233,7 @@ function Data_String_break$($0, $1) {
|
|
|
4243
4233
|
|
|
4244
4234
|
/* Data.String.asList : (str : String) -> AsList str */
|
|
4245
4235
|
function Data_String_asList($0) {
|
|
4246
|
-
return
|
|
4236
|
+
return Data_String_with__asList_9840($0, Data_String_strM($0));
|
|
4247
4237
|
}
|
|
4248
4238
|
|
|
4249
4239
|
/* Data.Fin.show */
|
|
@@ -4266,6 +4256,30 @@ function Data_Fin_natToFin($0, $1) {
|
|
|
4266
4256
|
}
|
|
4267
4257
|
}
|
|
4268
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
|
+
|
|
4269
4283
|
/* Prelude.Uninhabited.void : (0 _ : Void) -> a */
|
|
4270
4284
|
const Prelude_Uninhabited_void$ = __lazy(function () {
|
|
4271
4285
|
_crashExp('No clauses in Prelude.Uninhabited.void');
|
|
@@ -5543,30 +5557,6 @@ function Data_Nat_divx27($0, $1, $2) {
|
|
|
5543
5557
|
}
|
|
5544
5558
|
}
|
|
5545
5559
|
|
|
5546
|
-
/* Data.Maybe.isNothing : Maybe a -> Bool */
|
|
5547
|
-
function Data_Maybe_isNothing($0) {
|
|
5548
|
-
switch($0.h) {
|
|
5549
|
-
case 0: /* nothing */ return 1;
|
|
5550
|
-
case undefined: /* just */ return 0;
|
|
5551
|
-
}
|
|
5552
|
-
}
|
|
5553
|
-
|
|
5554
|
-
/* Data.Maybe.isJust : Maybe a -> Bool */
|
|
5555
|
-
function Data_Maybe_isJust($0) {
|
|
5556
|
-
switch($0.h) {
|
|
5557
|
-
case 0: /* nothing */ return 0;
|
|
5558
|
-
case undefined: /* just */ return 1;
|
|
5559
|
-
}
|
|
5560
|
-
}
|
|
5561
|
-
|
|
5562
|
-
/* Data.Maybe.fromMaybe : Lazy a -> Maybe a -> a */
|
|
5563
|
-
function Data_Maybe_fromMaybe($0, $1) {
|
|
5564
|
-
switch($1.h) {
|
|
5565
|
-
case 0: /* nothing */ return $0();
|
|
5566
|
-
case undefined: /* just */ return $1.a1;
|
|
5567
|
-
}
|
|
5568
|
-
}
|
|
5569
|
-
|
|
5570
5560
|
/* Data.List1.map */
|
|
5571
5561
|
function Data_List1_map_Functor_List1($0, $1) {
|
|
5572
5562
|
return {a1: $0($1.a1), a2: Prelude_Types_List_mapAppend({h: 0}, $0, $1.a2)};
|
|
@@ -5587,17 +5577,17 @@ function Data_List1_last($0) {
|
|
|
5587
5577
|
return Data_List1_n__3044_2644_loop($0.a1, $0.a2, $0.a1, $0.a2);
|
|
5588
5578
|
}
|
|
5589
5579
|
|
|
5590
|
-
/* Data.List.
|
|
5591
|
-
function
|
|
5592
|
-
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);
|
|
5593
5583
|
}
|
|
5594
5584
|
|
|
5595
|
-
/* Data.List.
|
|
5596
|
-
function
|
|
5585
|
+
/* Data.List.8493:9196:go */
|
|
5586
|
+
function Data_List_n__8493_9196_go($0, $1, $2, $3, $4) {
|
|
5597
5587
|
switch($4.h) {
|
|
5598
5588
|
case 0: /* nil */ return {a1: Data_List1_singleton($3), a2: {h: 0}};
|
|
5599
5589
|
case undefined: /* cons */ {
|
|
5600
|
-
const $a =
|
|
5590
|
+
const $a = Data_List_n__8493_9196_go($0, $1, $2, $4.a1, $4.a2);
|
|
5601
5591
|
switch($2($3)($4.a1)) {
|
|
5602
5592
|
case 1: return {a1: {a1: $3, a2: $a.a1}, a2: $a.a2};
|
|
5603
5593
|
case 0: return {a1: Data_List1_singleton($3), a2: {a1: $a.a1, a2: $a.a2}};
|
|
@@ -5687,13 +5677,13 @@ function Data_List_sortBy($0, $1) {
|
|
|
5687
5677
|
switch($1.a2.h) {
|
|
5688
5678
|
case 0: /* nil */ return {a1: $1.a1, a2: {h: 0}};
|
|
5689
5679
|
default: {
|
|
5690
|
-
const $6 =
|
|
5680
|
+
const $6 = Data_List_n__7787_8508_split($1, $0, $1);
|
|
5691
5681
|
return Data_List_mergeBy($0, Data_List_sortBy($0, $6.a1), Data_List_sortBy($0, $6.a2));
|
|
5692
5682
|
}
|
|
5693
5683
|
}
|
|
5694
5684
|
}
|
|
5695
5685
|
default: {
|
|
5696
|
-
const $15 =
|
|
5686
|
+
const $15 = Data_List_n__7787_8508_split($1, $0, $1);
|
|
5697
5687
|
return Data_List_mergeBy($0, Data_List_sortBy($0, $15.a1), Data_List_sortBy($0, $15.a2));
|
|
5698
5688
|
}
|
|
5699
5689
|
}
|
|
@@ -5736,7 +5726,7 @@ function Data_List_partition($0, $1) {
|
|
|
5736
5726
|
|
|
5737
5727
|
/* Data.List.nubBy : (a -> a -> Bool) -> List a -> List a */
|
|
5738
5728
|
function Data_List_nubBy($0, $1) {
|
|
5739
|
-
return
|
|
5729
|
+
return Data_List_n__4934_5733_nubByx27({h: 0}, $0, $1);
|
|
5740
5730
|
}
|
|
5741
5731
|
|
|
5742
5732
|
/* Data.List.nub : Eq a => List a -> List a */
|
|
@@ -5813,7 +5803,7 @@ function Data_List_groupBy($0, $1) {
|
|
|
5813
5803
|
switch($1.h) {
|
|
5814
5804
|
case 0: /* nil */ return {h: 0};
|
|
5815
5805
|
case undefined: /* cons */ {
|
|
5816
|
-
const $3 =
|
|
5806
|
+
const $3 = Data_List_n__8493_9196_go($1.a1, $1.a2, $0, $1.a1, $1.a2);
|
|
5817
5807
|
return {a1: $3.a1, a2: $3.a2};
|
|
5818
5808
|
}
|
|
5819
5809
|
}
|
|
@@ -5988,7 +5978,7 @@ const ZshCompletion_script = __lazy(function () {
|
|
|
5988
5978
|
});
|
|
5989
5979
|
|
|
5990
5980
|
/* BashCompletion.case block in case block in unhashify */
|
|
5991
|
-
function
|
|
5981
|
+
function BashCompletion_case__casex20blockx20inx20unhashify_13171($0, $1, $2) {
|
|
5992
5982
|
switch($0) {
|
|
5993
5983
|
case '': {
|
|
5994
5984
|
switch($2.h) {
|
|
@@ -6011,7 +6001,7 @@ function BashCompletion_case__casex20blockx20inx20unhashify_10889($0, $1, $2) {
|
|
|
6011
6001
|
}
|
|
6012
6002
|
|
|
6013
6003
|
/* BashCompletion.case block in unhashify */
|
|
6014
|
-
function
|
|
6004
|
+
function BashCompletion_case__unhashify_13151($0, $1) {
|
|
6015
6005
|
switch($0) {
|
|
6016
6006
|
case '': {
|
|
6017
6007
|
switch($1.h) {
|
|
@@ -6021,7 +6011,7 @@ function BashCompletion_case__unhashify_10869($0, $1) {
|
|
|
6021
6011
|
case '#': return $1.a2;
|
|
6022
6012
|
case '\u{5c}': {
|
|
6023
6013
|
const $6 = ('\u{5c}'+$1.a2);
|
|
6024
|
-
return
|
|
6014
|
+
return BashCompletion_case__casex20blockx20inx20unhashify_13171($1.a2, $6, Data_String_strM($1.a2));
|
|
6025
6015
|
}
|
|
6026
6016
|
default: return $0;
|
|
6027
6017
|
}
|
|
@@ -6033,7 +6023,7 @@ function BashCompletion_case__unhashify_10869($0, $1) {
|
|
|
6033
6023
|
case '#': return $1.a2;
|
|
6034
6024
|
case '\u{5c}': {
|
|
6035
6025
|
const $11 = ('\u{5c}'+$1.a2);
|
|
6036
|
-
return
|
|
6026
|
+
return BashCompletion_case__casex20blockx20inx20unhashify_13171($1.a2, $11, Data_String_strM($1.a2));
|
|
6037
6027
|
}
|
|
6038
6028
|
default: return $0;
|
|
6039
6029
|
}
|
|
@@ -6041,8 +6031,8 @@ function BashCompletion_case__unhashify_10869($0, $1) {
|
|
|
6041
6031
|
}
|
|
6042
6032
|
}
|
|
6043
6033
|
|
|
6044
|
-
/* BashCompletion.
|
|
6045
|
-
function
|
|
6034
|
+
/* BashCompletion.5303:13978:slugsOrLoginsOrLabels */
|
|
6035
|
+
function BashCompletion_n__5303_13978_slugsOrLoginsOrLabels($0, $1) {
|
|
6046
6036
|
switch(Data_String_isPrefixOf('+', $0)) {
|
|
6047
6037
|
case 1: return Prelude_Types_List_mapAppend({h: 0}, $9 => ('+'+$9), $1.a12);
|
|
6048
6038
|
case 0: {
|
|
@@ -6061,7 +6051,7 @@ function BashCompletion_unslugify($0) {
|
|
|
6061
6051
|
|
|
6062
6052
|
/* BashCompletion.unhashify : String -> String */
|
|
6063
6053
|
function BashCompletion_unhashify($0) {
|
|
6064
|
-
return
|
|
6054
|
+
return BashCompletion_case__unhashify_13151($0, Data_String_strM($0));
|
|
6065
6055
|
}
|
|
6066
6056
|
|
|
6067
6057
|
/* BashCompletion.slugify : String -> String */
|
|
@@ -6078,7 +6068,7 @@ const BashCompletion_script = __lazy(function () {
|
|
|
6078
6068
|
function BashCompletion_optsForRequestCmd($0, $1) {
|
|
6079
6069
|
switch(Data_String_isPrefixOf($1, '--dry')) {
|
|
6080
6070
|
case 1: return {a1: '--dry', a2: {h: 0}};
|
|
6081
|
-
case 0: return
|
|
6071
|
+
case 0: return BashCompletion_n__5303_13978_slugsOrLoginsOrLabels($1, $0);
|
|
6082
6072
|
}
|
|
6083
6073
|
}
|
|
6084
6074
|
|
|
@@ -6290,7 +6280,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6290
6280
|
case 'quick': {
|
|
6291
6281
|
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6292
6282
|
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6293
|
-
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
|
+
}
|
|
6294
6289
|
}
|
|
6295
6290
|
}
|
|
6296
6291
|
default: return {h: 0};
|
|
@@ -6306,7 +6301,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6306
6301
|
case 'quick': {
|
|
6307
6302
|
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6308
6303
|
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6309
|
-
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
|
+
}
|
|
6310
6310
|
}
|
|
6311
6311
|
}
|
|
6312
6312
|
default: return {h: 0};
|
|
@@ -6319,7 +6319,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6319
6319
|
case 'quick': {
|
|
6320
6320
|
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6321
6321
|
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6322
|
-
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
|
+
}
|
|
6323
6328
|
}
|
|
6324
6329
|
}
|
|
6325
6330
|
default: return {h: 0};
|
|
@@ -6465,7 +6470,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6465
6470
|
}
|
|
6466
6471
|
default: {
|
|
6467
6472
|
switch($2) {
|
|
6468
|
-
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())};
|
|
6469
6474
|
default: {
|
|
6470
6475
|
switch($0) {
|
|
6471
6476
|
case 'sync': return {a1: {h: 0}};
|
|
@@ -6480,7 +6485,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6480
6485
|
case 'help': return {a1: BashCompletion_allRootCmds()};
|
|
6481
6486
|
default: {
|
|
6482
6487
|
switch($2) {
|
|
6483
|
-
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())};
|
|
6484
6489
|
default: return {h: 0};
|
|
6485
6490
|
}
|
|
6486
6491
|
}
|
|
@@ -6488,7 +6493,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6488
6493
|
}
|
|
6489
6494
|
default: {
|
|
6490
6495
|
switch($2) {
|
|
6491
|
-
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())};
|
|
6492
6497
|
default: return {h: 0};
|
|
6493
6498
|
}
|
|
6494
6499
|
}
|
|
@@ -6504,7 +6509,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6504
6509
|
case 'quick': {
|
|
6505
6510
|
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6506
6511
|
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6507
|
-
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
|
+
}
|
|
6508
6518
|
}
|
|
6509
6519
|
}
|
|
6510
6520
|
default: return {h: 0};
|
|
@@ -6520,7 +6530,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6520
6530
|
case 'quick': {
|
|
6521
6531
|
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6522
6532
|
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6523
|
-
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
|
+
}
|
|
6524
6539
|
}
|
|
6525
6540
|
}
|
|
6526
6541
|
default: return {h: 0};
|
|
@@ -6533,7 +6548,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6533
6548
|
case 'quick': {
|
|
6534
6549
|
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6535
6550
|
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6536
|
-
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
|
+
}
|
|
6537
6557
|
}
|
|
6538
6558
|
}
|
|
6539
6559
|
default: return {h: 0};
|
|
@@ -6684,7 +6704,7 @@ const BashCompletion_allRootCmds = __lazy(function () {
|
|
|
6684
6704
|
});
|
|
6685
6705
|
|
|
6686
6706
|
/* FFI.Git.case block in unpushedCommits */
|
|
6687
|
-
function
|
|
6707
|
+
function FFI_Git_case__unpushedCommits_12925($0, $1, $2) {
|
|
6688
6708
|
switch($1) {
|
|
6689
6709
|
case '': {
|
|
6690
6710
|
switch($2.h) {
|
|
@@ -6697,7 +6717,7 @@ function FFI_Git_case__unpushedCommits_10643($0, $1, $2) {
|
|
|
6697
6717
|
}
|
|
6698
6718
|
|
|
6699
6719
|
/* FFI.Git.case block in stagedChanges */
|
|
6700
|
-
function
|
|
6720
|
+
function FFI_Git_case__stagedChanges_12860($0, $1, $2) {
|
|
6701
6721
|
switch($1) {
|
|
6702
6722
|
case '': {
|
|
6703
6723
|
switch($2.h) {
|
|
@@ -6710,7 +6730,7 @@ function FFI_Git_case__stagedChanges_10578($0, $1, $2) {
|
|
|
6710
6730
|
}
|
|
6711
6731
|
|
|
6712
6732
|
/* FFI.Git.case block in uncommittedChanges */
|
|
6713
|
-
function
|
|
6733
|
+
function FFI_Git_case__uncommittedChanges_12795($0, $1, $2) {
|
|
6714
6734
|
switch($1) {
|
|
6715
6735
|
case '': {
|
|
6716
6736
|
switch($2.h) {
|
|
@@ -6723,7 +6743,7 @@ function FFI_Git_case__uncommittedChanges_10513($0, $1, $2) {
|
|
|
6723
6743
|
}
|
|
6724
6744
|
|
|
6725
6745
|
/* FFI.Git.case block in remoteTrackingBranch */
|
|
6726
|
-
function
|
|
6746
|
+
function FFI_Git_case__remoteTrackingBranch_12730($0, $1, $2) {
|
|
6727
6747
|
switch($1) {
|
|
6728
6748
|
case '': {
|
|
6729
6749
|
switch($2.h) {
|
|
@@ -6742,17 +6762,17 @@ function FFI_Git_userEmail($0, $1, $2) {
|
|
|
6742
6762
|
|
|
6743
6763
|
/* FFI.Git.unpushedCommits : Git => Promise' (Maybe String) */
|
|
6744
6764
|
function FFI_Git_unpushedCommits($0, $1, $2) {
|
|
6745
|
-
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);
|
|
6746
6766
|
}
|
|
6747
6767
|
|
|
6748
6768
|
/* FFI.Git.uncommittedChanges : Git => Promise' (Maybe String) */
|
|
6749
6769
|
function FFI_Git_uncommittedChanges($0, $1, $2) {
|
|
6750
|
-
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);
|
|
6751
6771
|
}
|
|
6752
6772
|
|
|
6753
6773
|
/* FFI.Git.stagedChanges : Git => Promise' (Maybe String) */
|
|
6754
6774
|
function FFI_Git_stagedChanges($0, $1, $2) {
|
|
6755
|
-
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);
|
|
6756
6776
|
}
|
|
6757
6777
|
|
|
6758
6778
|
/* FFI.Git.rootDir : Git => Promise' String */
|
|
@@ -6767,7 +6787,7 @@ function FFI_Git_remoteURI($0, $1, $2, $3) {
|
|
|
6767
6787
|
|
|
6768
6788
|
/* FFI.Git.remoteTrackingBranch : Git => Promise' (Maybe String) */
|
|
6769
6789
|
function FFI_Git_remoteTrackingBranch($0, $1, $2) {
|
|
6770
|
-
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);
|
|
6771
6791
|
}
|
|
6772
6792
|
|
|
6773
6793
|
/* FFI.Git.pushNewBranch : Git => String -> String -> Promise' () */
|
|
@@ -6937,13 +6957,13 @@ function Data_Promise_bind($0, $1, $2, $3) {
|
|
|
6937
6957
|
return $4($3);
|
|
6938
6958
|
}
|
|
6939
6959
|
|
|
6940
|
-
/* Data.Config.
|
|
6941
|
-
function
|
|
6960
|
+
/* Data.Config.9658:7042:personalAccessToken */
|
|
6961
|
+
function Data_Config_n__9658_7042_personalAccessToken($0) {
|
|
6942
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);
|
|
6943
6963
|
}
|
|
6944
6964
|
|
|
6945
|
-
/* Data.Config.
|
|
6946
|
-
function
|
|
6965
|
+
/* Data.Config.10214:7588:parseConfigJson */
|
|
6966
|
+
function Data_Config_n__10214_7588_parseConfigJson($0, $1) {
|
|
6947
6967
|
switch($1.h) {
|
|
6948
6968
|
case 6: /* JObject */ {
|
|
6949
6969
|
const $20 = $21 => {
|
|
@@ -7011,7 +7031,7 @@ function Data_Config_ParseBranchStrategy_show_Show_ParseBranchStrategy($0) {
|
|
|
7011
7031
|
|
|
7012
7032
|
/* Data.Config.show */
|
|
7013
7033
|
function Data_Config_show_Show_Config($0) {
|
|
7014
|
-
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}}}}}}}}}}}}}}}});
|
|
7015
7035
|
}
|
|
7016
7036
|
|
|
7017
7037
|
/* Data.Config.CommentStrategy.show */
|
|
@@ -7098,7 +7118,7 @@ function Data_Config_propHelpx27($0) {
|
|
|
7098
7118
|
|
|
7099
7119
|
/* Data.Config.parseConfig : Ephemeral -> String -> Either String Config */
|
|
7100
7120
|
function Data_Config_parseConfig($0, $1) {
|
|
7101
|
-
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);
|
|
7102
7122
|
}
|
|
7103
7123
|
|
|
7104
7124
|
/* Data.Config.CommentStrategy.parseCommentConfig : String -> Maybe CommentStrategy */
|
|
@@ -7155,8 +7175,8 @@ function Data_Config_boolToCommentConfig($0) {
|
|
|
7155
7175
|
}
|
|
7156
7176
|
}
|
|
7157
7177
|
|
|
7158
|
-
/* Language.JSON.Accessors.
|
|
7159
|
-
function
|
|
7178
|
+
/* Language.JSON.Accessors.6303:18297:lookup' */
|
|
7179
|
+
function Language_JSON_Accessors_n__6303_18297_lookupx27($0, $1, $2, $3, $4) {
|
|
7160
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));
|
|
7161
7181
|
}
|
|
7162
7182
|
|
|
@@ -7212,7 +7232,7 @@ function Language_JSON_Accessors_lookupAll($0, $1) {
|
|
|
7212
7232
|
switch($0.h) {
|
|
7213
7233
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
7214
7234
|
case undefined: /* cons */ {
|
|
7215
|
-
const $4 =
|
|
7235
|
+
const $4 = Language_JSON_Accessors_n__6303_18297_lookupx27($0.a1, $0.a2, $1, $0.a1, $1);
|
|
7216
7236
|
switch($4.h) {
|
|
7217
7237
|
case 1: /* Right */ {
|
|
7218
7238
|
const $b = Language_JSON_Accessors_lookupAll($0.a2, $1);
|
|
@@ -7263,7 +7283,7 @@ function Language_JSON_Accessors_access($0, $1, $2, $3) {
|
|
|
7263
7283
|
}
|
|
7264
7284
|
|
|
7265
7285
|
/* JSON.Parser.case block in case block in parseJSON */
|
|
7266
|
-
function
|
|
7286
|
+
function JSON_Parser_case__casex20blockx20inx20parseJSON_23279($0, $1, $2, $3) {
|
|
7267
7287
|
switch($3.h) {
|
|
7268
7288
|
case 1: /* Fail0 */ return {h: 0 /* Left */, a1: Text_ParseError_toParseError($1, $0, $3.a1)};
|
|
7269
7289
|
case 0: /* Succ0 */ {
|
|
@@ -7291,9 +7311,9 @@ function JSON_Parser_case__casex20blockx20inx20parseJSON_20997($0, $1, $2, $3) {
|
|
|
7291
7311
|
}
|
|
7292
7312
|
|
|
7293
7313
|
/* JSON.Parser.case block in parseJSON */
|
|
7294
|
-
function
|
|
7314
|
+
function JSON_Parser_case__parseJSON_23259($0, $1, $2) {
|
|
7295
7315
|
switch($2.h) {
|
|
7296
|
-
case 1: /* Right */ return
|
|
7316
|
+
case 1: /* Right */ return JSON_Parser_case__casex20blockx20inx20parseJSON_23279($0, $1, $2.a1, JSON_Parser_value($2.a1));
|
|
7297
7317
|
case 0: /* Left */ return {h: 0 /* Left */, a1: Text_ParseError_toParseError($1, $0, $2.a1)};
|
|
7298
7318
|
}
|
|
7299
7319
|
}
|
|
@@ -7556,7 +7576,7 @@ function JSON_Parser_showImpl($0) {
|
|
|
7556
7576
|
|
|
7557
7577
|
/* JSON.Parser.parseJSON : Origin -> String -> Either (ParseError Void) JSON */
|
|
7558
7578
|
function JSON_Parser_parseJSON($0, $1) {
|
|
7559
|
-
return
|
|
7579
|
+
return JSON_Parser_case__parseJSON_23259($1, $0, JSON_Parser_lexJSON($1));
|
|
7560
7580
|
}
|
|
7561
7581
|
|
|
7562
7582
|
/* JSON.Parser.numberToken : SnocList Char -> JSToken */
|
|
@@ -8464,37 +8484,37 @@ function FFI_Term_termCols($0) {
|
|
|
8464
8484
|
}
|
|
8465
8485
|
}
|
|
8466
8486
|
|
|
8467
|
-
/* FFI.GitHub.
|
|
8468
|
-
function
|
|
8487
|
+
/* FFI.GitHub.6769:18487:unexpectedPayload */
|
|
8488
|
+
function FFI_GitHub_n__6769_18487_unexpectedPayload($0, $1) {
|
|
8469
8489
|
return FFI_GitHub_internalError(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $9 => $9, {a1: 'Unexpected error JSON: ', a2: {a1: $0, a2: {h: 0}}}));
|
|
8470
8490
|
}
|
|
8471
8491
|
|
|
8472
|
-
/* FFI.GitHub.
|
|
8473
|
-
function
|
|
8492
|
+
/* FFI.GitHub.6769:18486:parse */
|
|
8493
|
+
function FFI_GitHub_n__6769_18486_parse($0, $1) {
|
|
8474
8494
|
switch($1.h) {
|
|
8475
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}}))));
|
|
8476
8496
|
default: return {h: 0 /* Left */, a1: 'Expected an Object containing error and status keys'};
|
|
8477
8497
|
}
|
|
8478
8498
|
}
|
|
8479
8499
|
|
|
8480
|
-
/* FFI.GitHub.
|
|
8481
|
-
function
|
|
8500
|
+
/* FFI.GitHub.8254:20015:errString */
|
|
8501
|
+
function FFI_GitHub_n__8254_20015_errString($0, $1) {
|
|
8482
8502
|
switch($1.h) {
|
|
8483
8503
|
case 0: /* nothing */ return 'You can only use teams with repositories belonging to GitHub organizations';
|
|
8484
8504
|
case undefined: /* just */ return $1.a1;
|
|
8485
8505
|
}
|
|
8486
8506
|
}
|
|
8487
8507
|
|
|
8488
|
-
/* FFI.GitHub.
|
|
8489
|
-
function
|
|
8508
|
+
/* FFI.GitHub.7165:18911:errString */
|
|
8509
|
+
function FFI_GitHub_n__7165_18911_errString($0, $1) {
|
|
8490
8510
|
switch($1.h) {
|
|
8491
8511
|
case 0: /* nothing */ return 'You can only list teams for repositories belonging to GitHub organizations';
|
|
8492
8512
|
case undefined: /* just */ return $1.a1;
|
|
8493
8513
|
}
|
|
8494
8514
|
}
|
|
8495
8515
|
|
|
8496
|
-
/* FFI.GitHub.
|
|
8497
|
-
function
|
|
8516
|
+
/* FFI.GitHub.6902:18620:errMsg */
|
|
8517
|
+
function FFI_GitHub_n__6902_18620_errMsg($0) {
|
|
8498
8518
|
return Prelude_Types_either(() => csegen_318()(), () => csegen_318()(), $0);
|
|
8499
8519
|
}
|
|
8500
8520
|
|
|
@@ -8538,7 +8558,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
8538
8558
|
let $2;
|
|
8539
8559
|
switch($3.h) {
|
|
8540
8560
|
case 0: /* Left */ {
|
|
8541
|
-
$2 = {h: 0 /* Left */, a1:
|
|
8561
|
+
$2 = {h: 0 /* Left */, a1: FFI_GitHub_n__6769_18487_unexpectedPayload($0, $3.a1)};
|
|
8542
8562
|
break;
|
|
8543
8563
|
}
|
|
8544
8564
|
case 1: /* Right */ {
|
|
@@ -8547,7 +8567,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
8547
8567
|
}
|
|
8548
8568
|
}
|
|
8549
8569
|
const $c = json => {
|
|
8550
|
-
const $d =
|
|
8570
|
+
const $d = FFI_GitHub_n__6769_18486_parse($0, json);
|
|
8551
8571
|
switch($d.h) {
|
|
8552
8572
|
case 0: /* Left */ return {h: 0 /* Left */, a1: FFI_GitHub_internalError($d.a1)};
|
|
8553
8573
|
case 1: /* Right */ return {h: 1 /* Right */, a1: $d.a1};
|
|
@@ -8639,7 +8659,7 @@ function FFI_GitHub_internalError($0) {
|
|
|
8639
8659
|
|
|
8640
8660
|
/* FFI.GitHub.ignoreStatus : Promise String a -> Promise String a */
|
|
8641
8661
|
function FFI_GitHub_ignoreStatus($0, $1, $2) {
|
|
8642
|
-
return Data_Promise_mapError($5 =>
|
|
8662
|
+
return Data_Promise_mapError($5 => FFI_GitHub_n__6902_18620_errMsg(FFI_GitHub_parseError($5)), $0, $1, $2);
|
|
8643
8663
|
}
|
|
8644
8664
|
|
|
8645
8665
|
/* FFI.GitHub.getUser : Octokit => String -> Promise String User */
|
|
@@ -8669,12 +8689,12 @@ function FFI_GitHub_getIssue($0, $1, $2, $3) {
|
|
|
8669
8689
|
|
|
8670
8690
|
/* FFI.GitHub.forceListTeams : Octokit => String -> Promise' (List String) */
|
|
8671
8691
|
function FFI_GitHub_forceListTeams($0, $1, $2, $3) {
|
|
8672
|
-
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);
|
|
8673
8693
|
}
|
|
8674
8694
|
|
|
8675
8695
|
/* FFI.GitHub.forceListTeamMembers : Octokit => String -> String -> Promise' (List String) */
|
|
8676
8696
|
function FFI_GitHub_forceListTeamMembers($0, $1, $2, $3, $4) {
|
|
8677
|
-
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);
|
|
8678
8698
|
}
|
|
8679
8699
|
|
|
8680
8700
|
/* FFI.GitHub.createPR : Octokit => {default False _ : Bool} ->
|
|
@@ -8750,8 +8770,8 @@ function Data_Review_isAuthor($0, $1) {
|
|
|
8750
8770
|
return Prelude_EqOrd_x3dx3d_Eq_String($1.a2, $0);
|
|
8751
8771
|
}
|
|
8752
8772
|
|
|
8753
|
-
/* Data.Date.4986:
|
|
8754
|
-
function
|
|
8773
|
+
/* Data.Date.4986:11849:parseNat */
|
|
8774
|
+
function Data_Date_n__4986_11849_parseNat($0, $1, $2) {
|
|
8755
8775
|
switch($2) {
|
|
8756
8776
|
case '0': return {a1: 0n};
|
|
8757
8777
|
case '1': return {a1: 1n};
|
|
@@ -8767,12 +8787,12 @@ function Data_Date_n__4986_11703_parseNat($0, $1, $2) {
|
|
|
8767
8787
|
}
|
|
8768
8788
|
}
|
|
8769
8789
|
|
|
8770
|
-
/* Data.Date.5103:
|
|
8771
|
-
function
|
|
8790
|
+
/* Data.Date.5103:11967:guardSuccess */
|
|
8791
|
+
function Data_Date_n__5103_11967_guardSuccess($0) {
|
|
8772
8792
|
switch($0.h) {
|
|
8773
8793
|
case undefined: /* cons */ {
|
|
8774
8794
|
switch($0.a1.h) {
|
|
8775
|
-
case 3: /* 5103:
|
|
8795
|
+
case 3: /* 5103:11956:Day */ {
|
|
8776
8796
|
switch($0.a2.h) {
|
|
8777
8797
|
case undefined: /* cons */ {
|
|
8778
8798
|
switch($0.a2.a2.h) {
|
|
@@ -8790,28 +8810,28 @@ function Data_Date_n__5103_11821_guardSuccess($0) {
|
|
|
8790
8810
|
}
|
|
8791
8811
|
}
|
|
8792
8812
|
|
|
8793
|
-
/* Data.Date.5103:
|
|
8794
|
-
function
|
|
8813
|
+
/* Data.Date.5103:11966:go */
|
|
8814
|
+
function Data_Date_n__5103_11966_go($0, $1) {
|
|
8795
8815
|
switch($0.a1.h) {
|
|
8796
|
-
case 4: /* 5103:
|
|
8797
|
-
case 0: /* 5103:
|
|
8816
|
+
case 4: /* 5103:11957:Fail */ return {a1: {h: 4 /* 5103:11957:Fail */}, a2: undefined};
|
|
8817
|
+
case 0: /* 5103:11964:Start */ {
|
|
8798
8818
|
switch(Prelude_Types_isDigit($1)) {
|
|
8799
|
-
case 1: return {a1: {h: 1 /* 5103:
|
|
8800
|
-
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};
|
|
8801
8821
|
}
|
|
8802
8822
|
}
|
|
8803
|
-
case 1: /* 5103:
|
|
8823
|
+
case 1: /* 5103:11959:P */ {
|
|
8804
8824
|
switch($0.a1.a1) {
|
|
8805
8825
|
case 0: {
|
|
8806
8826
|
switch($1) {
|
|
8807
8827
|
case '-': {
|
|
8808
8828
|
const $12 = Data_Date_parsePositiveReversed($0.a2);
|
|
8809
8829
|
switch($12.h) {
|
|
8810
|
-
case 0: /* nothing */ return {a1: {h: 4 /* 5103:
|
|
8811
|
-
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};
|
|
8812
8832
|
}
|
|
8813
8833
|
}
|
|
8814
|
-
default: return {a1: {h: 1 /* 5103:
|
|
8834
|
+
default: return {a1: {h: 1 /* 5103:11959:P */, a1: 0}, a2: {a1: $1, a2: $0.a2}};
|
|
8815
8835
|
}
|
|
8816
8836
|
}
|
|
8817
8837
|
case 1: {
|
|
@@ -8819,32 +8839,32 @@ function Data_Date_n__5103_11820_go($0, $1) {
|
|
|
8819
8839
|
case '-': {
|
|
8820
8840
|
const $21 = Data_Date_parsePositiveReversed($0.a2.a2);
|
|
8821
8841
|
switch($21.h) {
|
|
8822
|
-
case 0: /* nothing */ return {a1: {h: 4 /* 5103:
|
|
8823
|
-
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}};
|
|
8824
8844
|
}
|
|
8825
8845
|
}
|
|
8826
|
-
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}}};
|
|
8827
8847
|
}
|
|
8828
8848
|
}
|
|
8829
8849
|
}
|
|
8830
8850
|
}
|
|
8831
|
-
case 2: /* 5103:
|
|
8851
|
+
case 2: /* 5103:11963:S */ {
|
|
8832
8852
|
switch($0.a1.a1) {
|
|
8833
8853
|
case 0: {
|
|
8834
8854
|
switch(Prelude_Types_isDigit($1)) {
|
|
8835
|
-
case 1: return {a1: {h: 1 /* 5103:
|
|
8836
|
-
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};
|
|
8837
8857
|
}
|
|
8838
8858
|
}
|
|
8839
8859
|
case 1: {
|
|
8840
8860
|
switch(Prelude_Types_isDigit($1)) {
|
|
8841
|
-
case 1: return {a1: {h: 3 /* 5103:
|
|
8842
|
-
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};
|
|
8843
8863
|
}
|
|
8844
8864
|
}
|
|
8845
8865
|
}
|
|
8846
8866
|
}
|
|
8847
|
-
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}}}};
|
|
8848
8868
|
}
|
|
8849
8869
|
}
|
|
8850
8870
|
|
|
@@ -8924,7 +8944,7 @@ function Data_Date_showYearAndMonth($0) {
|
|
|
8924
8944
|
function Data_Date_parsePositiveReversed($0) {
|
|
8925
8945
|
switch($0.h) {
|
|
8926
8946
|
case 0: /* nil */ return {a1: 0n};
|
|
8927
|
-
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))})));
|
|
8928
8948
|
}
|
|
8929
8949
|
}
|
|
8930
8950
|
|
|
@@ -8937,7 +8957,7 @@ function Data_Date_parseDateTimeString($0) {
|
|
|
8937
8957
|
|
|
8938
8958
|
/* Data.Date.parseDateString : String -> Maybe Date */
|
|
8939
8959
|
function Data_Date_parseDateString($0) {
|
|
8940
|
-
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)));
|
|
8941
8961
|
}
|
|
8942
8962
|
|
|
8943
8963
|
/* Data.Date.pad : Nat -> String */
|
|
@@ -8963,7 +8983,31 @@ function Data_Issue_parseIssueString($0) {
|
|
|
8963
8983
|
|
|
8964
8984
|
/* Data.Issue.parseIssue : JSON -> Either String Issue */
|
|
8965
8985
|
function Data_Issue_parseIssue($0) {
|
|
8966
|
-
|
|
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);
|
|
8967
9011
|
}
|
|
8968
9012
|
|
|
8969
9013
|
/* Data.Issue.parseDateTime : String -> Either String Date */
|
|
@@ -9120,44 +9164,44 @@ function Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, $2) {
|
|
|
9120
9164
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_359(), $2.a1)}, $b);
|
|
9121
9165
|
}
|
|
9122
9166
|
|
|
9123
|
-
/* Config.
|
|
9124
|
-
function
|
|
9125
|
-
const $6 =
|
|
9126
|
-
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)))));
|
|
9127
9171
|
}
|
|
9128
9172
|
|
|
9129
|
-
/* Config.
|
|
9130
|
-
function
|
|
9173
|
+
/* Config.9599:2539:repo */
|
|
9174
|
+
function Config_n__9599_2539_repo($0, $1, $2, $3, $4, $5) {
|
|
9131
9175
|
return Prelude_Types_map_Functor_Maybe(csegen_318()(), $5);
|
|
9132
9176
|
}
|
|
9133
9177
|
|
|
9134
|
-
/* Config.
|
|
9135
|
-
function
|
|
9178
|
+
/* Config.8666:1562:parseSuffix */
|
|
9179
|
+
function Config_n__8666_1562_parseSuffix($0, $1) {
|
|
9136
9180
|
return Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, Data_String_break$($8 => Prelude_EqOrd_x3dx3d_Eq_Char($8, '.'), $1));
|
|
9137
9181
|
}
|
|
9138
9182
|
|
|
9139
|
-
/* Config.
|
|
9140
|
-
function
|
|
9141
|
-
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);
|
|
9142
9186
|
}
|
|
9143
9187
|
|
|
9144
|
-
/* Config.
|
|
9145
|
-
function
|
|
9146
|
-
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);
|
|
9147
9191
|
}
|
|
9148
9192
|
|
|
9149
|
-
/* Config.
|
|
9150
|
-
function
|
|
9193
|
+
/* Config.9599:2538:org */
|
|
9194
|
+
function Config_n__9599_2538_org($0, $1, $2, $3, $4, $5) {
|
|
9151
9195
|
return Prelude_Types_map_Functor_Maybe(csegen_365()(), $5);
|
|
9152
9196
|
}
|
|
9153
9197
|
|
|
9154
|
-
/* Config.
|
|
9155
|
-
function
|
|
9198
|
+
/* Config.8377:1281:oneDayAgo */
|
|
9199
|
+
function Config_n__8377_1281_oneDayAgo($0, $1, $2) {
|
|
9156
9200
|
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(Number(_truncUBigInt32((now-86400n)))));
|
|
9157
9201
|
}
|
|
9158
9202
|
|
|
9159
|
-
/* Config.
|
|
9160
|
-
function
|
|
9203
|
+
/* Config.9599:2537:offerRetry */
|
|
9204
|
+
function Config_n__9599_2537_offerRetry($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
9161
9205
|
const $13 = $14 => {
|
|
9162
9206
|
switch($14.h) {
|
|
9163
9207
|
case 0: /* nothing */ {
|
|
@@ -9178,34 +9222,34 @@ function Config_n__9588_2537_offerRetry($0, $1, $2, $3, $4, $5, $6, $7, $8, $9)
|
|
|
9178
9222
|
return $5.a1.a2(undefined)(undefined)($9)($13);
|
|
9179
9223
|
}
|
|
9180
9224
|
|
|
9181
|
-
/* Config.
|
|
9182
|
-
function
|
|
9225
|
+
/* Config.9502:2423:help */
|
|
9226
|
+
function Config_n__9502_2423_help($0, $1) {
|
|
9183
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}}})));
|
|
9184
9228
|
}
|
|
9185
9229
|
|
|
9186
|
-
/* Config.
|
|
9187
|
-
function
|
|
9230
|
+
/* Config.9599:2536:enterForDefaultStr */
|
|
9231
|
+
function Config_n__9599_2536_enterForDefaultStr($0, $1, $2, $3, $4, $5) {
|
|
9188
9232
|
return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $b => $b, {a1: ' (ENTER for default: ', a2: {a1: $5, a2: {a1: ')', a2: {h: 0}}}});
|
|
9189
9233
|
}
|
|
9190
9234
|
|
|
9191
|
-
/* Config.
|
|
9192
|
-
function
|
|
9235
|
+
/* Config.8619:1513:drop' */
|
|
9236
|
+
function Config_n__8619_1513_dropx27($0, $1) {
|
|
9193
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));
|
|
9194
9238
|
}
|
|
9195
9239
|
|
|
9196
|
-
/* Config.
|
|
9197
|
-
function
|
|
9198
|
-
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));
|
|
9199
9243
|
}
|
|
9200
9244
|
|
|
9201
|
-
/* Config.
|
|
9202
|
-
function
|
|
9203
|
-
const $6 =
|
|
9204
|
-
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)))));
|
|
9205
9249
|
}
|
|
9206
9250
|
|
|
9207
|
-
/* Config.
|
|
9208
|
-
function
|
|
9251
|
+
/* Config.8508:1406:checkRequestSettings */
|
|
9252
|
+
function Config_n__8508_1406_checkRequestSettings($0, $1) {
|
|
9209
9253
|
let $2;
|
|
9210
9254
|
switch($1.a6) {
|
|
9211
9255
|
case 1: {
|
|
@@ -9223,10 +9267,10 @@ function Config_n__8497_1406_checkRequestSettings($0, $1) {
|
|
|
9223
9267
|
}
|
|
9224
9268
|
}
|
|
9225
9269
|
|
|
9226
|
-
/* Config.
|
|
9227
|
-
function
|
|
9228
|
-
const $6 =
|
|
9229
|
-
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)))));
|
|
9230
9274
|
}
|
|
9231
9275
|
|
|
9232
9276
|
/* Config.show */
|
|
@@ -9261,7 +9305,7 @@ function Config_syncIfOld($0, $1, $2, $3) {
|
|
|
9261
9305
|
case 0: return $1b => Data_Promise_pure_Applicative_x28Promisex20x24ex29($1, $e, $1b);
|
|
9262
9306
|
}
|
|
9263
9307
|
};
|
|
9264
|
-
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);
|
|
9265
9309
|
}
|
|
9266
9310
|
|
|
9267
9311
|
/* Config.syncConfig : Config => Octokit => Bool -> Promise' Config */
|
|
@@ -9284,7 +9328,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
9284
9328
|
|
|
9285
9329
|
/* Config.settablePropsWithHelp : Config => String */
|
|
9286
9330
|
function Config_settablePropsWithHelp($0) {
|
|
9287
|
-
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())));
|
|
9288
9332
|
}
|
|
9289
9333
|
|
|
9290
9334
|
/* Config.setConfig : Config => String -> String -> Promise' Config */
|
|
@@ -9333,7 +9377,7 @@ function Config_preferOriginRemote($0) {
|
|
|
9333
9377
|
|
|
9334
9378
|
/* Config.parseGitHubURI : String -> Maybe GitRemote */
|
|
9335
9379
|
function Config_parseGitHubURI($0) {
|
|
9336
|
-
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));
|
|
9337
9381
|
}
|
|
9338
9382
|
|
|
9339
9383
|
/* Config.parseBool : String -> Maybe Bool */
|
|
@@ -9444,14 +9488,14 @@ function Config_findConfig($0, $1, $2) {
|
|
|
9444
9488
|
|
|
9445
9489
|
/* Config.dropPrefix' : String -> String -> Maybe String */
|
|
9446
9490
|
function Config_dropPrefixx27($0, $1) {
|
|
9447
|
-
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)));
|
|
9448
9492
|
}
|
|
9449
9493
|
|
|
9450
9494
|
/* Config.createConfig : Git => Maybe String -> Bool -> Nat -> Maybe String -> Promise' Config */
|
|
9451
9495
|
function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
9452
9496
|
const $25 = $26 => $27 => $28 => {
|
|
9453
9497
|
const $2d = $2e => {
|
|
9454
|
-
const $30 =
|
|
9498
|
+
const $30 = Config_n__9599_2536_enterForDefaultStr($0, $4, $3, $2, $1, 'unset');
|
|
9455
9499
|
const $2f = () => $38 => $39 => {
|
|
9456
9500
|
const $63 = $64 => $65 => $66 => {
|
|
9457
9501
|
const $68 = $69 => $6a => {
|
|
@@ -9470,17 +9514,17 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9470
9514
|
const $9e = remoteGuess => $9f => $a0 => {
|
|
9471
9515
|
const $bd = defaultOrgAndRepo => $be => $bf => {
|
|
9472
9516
|
const $c4 = $c5 => {
|
|
9473
|
-
const $c7 =
|
|
9517
|
+
const $c7 = Config_n__9599_2535_defaultStr($0, $4, $3, $2, $1, csegen_365()(), defaultOrgAndRepo);
|
|
9474
9518
|
const $c6 = () => $d2 => $d3 => {
|
|
9475
9519
|
const $f1 = $f2 => $f3 => $f4 => {
|
|
9476
9520
|
const $10d = org => $10e => $10f => {
|
|
9477
9521
|
const $114 = $115 => {
|
|
9478
|
-
const $117 =
|
|
9522
|
+
const $117 = Config_n__9599_2535_defaultStr($0, $4, $3, $2, $1, csegen_318()(), defaultOrgAndRepo);
|
|
9479
9523
|
const $116 = () => $122 => $123 => {
|
|
9480
9524
|
const $141 = $142 => $143 => $144 => {
|
|
9481
9525
|
const $15d = repo => $15e => $15f => {
|
|
9482
9526
|
const $164 = $165 => {
|
|
9483
|
-
const $167 =
|
|
9527
|
+
const $167 = Config_n__9599_2536_enterForDefaultStr($0, $4, $3, $2, $1, remoteGuess);
|
|
9484
9528
|
const $166 = () => $16f => $170 => {
|
|
9485
9529
|
const $18e = $18f => $190 => $191 => {
|
|
9486
9530
|
const $1a4 = defaultRemote => $1a5 => $1a6 => {
|
|
@@ -9524,7 +9568,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9524
9568
|
};
|
|
9525
9569
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $213, $20d, $20e);
|
|
9526
9570
|
};
|
|
9527
|
-
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);
|
|
9528
9572
|
};
|
|
9529
9573
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1fd, $1f7, $1f8);
|
|
9530
9574
|
};
|
|
@@ -9536,11 +9580,11 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9536
9580
|
};
|
|
9537
9581
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1d7, $1d1, $1d2);
|
|
9538
9582
|
};
|
|
9539
|
-
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);
|
|
9540
9584
|
};
|
|
9541
9585
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1c1, $1bb, $1bc);
|
|
9542
9586
|
};
|
|
9543
|
-
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);
|
|
9544
9588
|
};
|
|
9545
9589
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1ab, $1a5, $1a6);
|
|
9546
9590
|
};
|
|
@@ -9552,7 +9596,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9552
9596
|
};
|
|
9553
9597
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $164, $15e, $15f);
|
|
9554
9598
|
};
|
|
9555
|
-
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);
|
|
9556
9600
|
};
|
|
9557
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);
|
|
9558
9602
|
};
|
|
@@ -9560,7 +9604,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9560
9604
|
};
|
|
9561
9605
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $114, $10e, $10f);
|
|
9562
9606
|
};
|
|
9563
|
-
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);
|
|
9564
9608
|
};
|
|
9565
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);
|
|
9566
9610
|
};
|
|
@@ -9590,7 +9634,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9590
9634
|
|
|
9591
9635
|
/* Config.checkConfigConsistency : Config -> Either (Doc AnsiStyle) () */
|
|
9592
9636
|
function Config_checkConfigConsistency($0) {
|
|
9593
|
-
return
|
|
9637
|
+
return Config_n__8508_1406_checkRequestSettings($0, $0);
|
|
9594
9638
|
}
|
|
9595
9639
|
|
|
9596
9640
|
/* Config.addIgnoredPRs : Config -> List Integer -> Promise' Config */
|
|
@@ -9599,7 +9643,7 @@ function Config_addIgnoredPRs($0, $1, $2, $3) {
|
|
|
9599
9643
|
}
|
|
9600
9644
|
|
|
9601
9645
|
/* Data.List.PrefixSuffix.with block in with block in dropPrefix */
|
|
9602
|
-
function
|
|
9646
|
+
function Data_List_PrefixSuffix_with__withx20blockx20inx20dropPrefix_5919($0, $1, $2, $3, $4, $5) {
|
|
9603
9647
|
switch($4.h) {
|
|
9604
9648
|
case 1: /* No */ return {h: 1 /* No */, a1: $8 => $4.a1({a1: $8.a1, a2: Builtin_snd(Data_List_PrefixSuffix_prefixSuffixConsInjective($8.a2))})};
|
|
9605
9649
|
case 0: /* Yes */ return {h: 0 /* Yes */, a1: {a1: $4.a1.a1, a2: {a1: {a1: $5, a2: $3}, a2: $4.a1.a1}}};
|
|
@@ -9607,10 +9651,10 @@ function Data_List_PrefixSuffix_with__withx20blockx20inx20dropPrefix_3637($0, $1
|
|
|
9607
9651
|
}
|
|
9608
9652
|
|
|
9609
9653
|
/* Data.List.PrefixSuffix.with block in dropPrefix */
|
|
9610
|
-
function
|
|
9654
|
+
function Data_List_PrefixSuffix_with__dropPrefix_5882($0, $1, $2, $3, $4, $5, $6) {
|
|
9611
9655
|
switch($4.h) {
|
|
9612
9656
|
case 1: /* No */ return {h: 1 /* No */, a1: $9 => Data_List_PrefixSuffix_prefixDifferentVoid($4.a1, $9)};
|
|
9613
|
-
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);
|
|
9614
9658
|
}
|
|
9615
9659
|
}
|
|
9616
9660
|
|
|
@@ -9634,7 +9678,7 @@ function Data_List_PrefixSuffix_dropPrefix($0, $1, $2) {
|
|
|
9634
9678
|
case undefined: /* cons */ {
|
|
9635
9679
|
switch($2.h) {
|
|
9636
9680
|
case 0: /* nil */ return {h: 1 /* No */, a1: $b => Prelude_Uninhabited_void$()};
|
|
9637
|
-
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);
|
|
9638
9682
|
}
|
|
9639
9683
|
}
|
|
9640
9684
|
}
|
|
@@ -9647,7 +9691,7 @@ function AppVersion_printVersion($0) {
|
|
|
9647
9691
|
|
|
9648
9692
|
/* AppVersion.appVersion : String */
|
|
9649
9693
|
const AppVersion_appVersion = __lazy(function () {
|
|
9650
|
-
return '5.
|
|
9694
|
+
return '5.8.0';
|
|
9651
9695
|
});
|
|
9652
9696
|
|
|
9653
9697
|
/* Commands.Help.subcommandHelp' : String -> Doc AnsiStyle */
|
|
@@ -9661,7 +9705,7 @@ function Commands_Help_subcommandHelpx27($0) {
|
|
|
9661
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}});
|
|
9662
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}});
|
|
9663
9707
|
case 'version': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print version'), a2: {h: 0}});
|
|
9664
|
-
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}}}});
|
|
9665
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}});
|
|
9666
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}});
|
|
9667
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}});
|
|
@@ -9669,7 +9713,7 @@ function Commands_Help_subcommandHelpx27($0) {
|
|
|
9669
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}});
|
|
9670
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}});
|
|
9671
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}});
|
|
9672
|
-
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}}}));
|
|
9673
9717
|
}
|
|
9674
9718
|
}
|
|
9675
9719
|
|
|
@@ -9775,7 +9819,7 @@ function Text_PrettyPrint_Prettyprinter_Util_reflow($0) {
|
|
|
9775
9819
|
}
|
|
9776
9820
|
|
|
9777
9821
|
/* Commands.case block in parseContributeArgs,parseSkipArg */
|
|
9778
|
-
function
|
|
9822
|
+
function Commands_case__parseContributeArgsx2cparseSkipArg_22481($0, $1, $2) {
|
|
9779
9823
|
switch($2.h) {
|
|
9780
9824
|
case undefined: /* cons */ {
|
|
9781
9825
|
switch($2.a1) {
|
|
@@ -9788,7 +9832,7 @@ function Commands_case__parseContributeArgsx2cparseSkipArg_20199($0, $1, $2) {
|
|
|
9788
9832
|
}
|
|
9789
9833
|
|
|
9790
9834
|
/* Commands.case block in case block in graph */
|
|
9791
|
-
function
|
|
9835
|
+
function Commands_case__casex20blockx20inx20graph_22215($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
9792
9836
|
return $9 => {
|
|
9793
9837
|
const $c = $d => $e => {
|
|
9794
9838
|
switch(Data_Maybe_isJust($3)) {
|
|
@@ -9801,17 +9845,17 @@ function Commands_case__casex20blockx20inx20graph_19933($0, $1, $2, $3, $4, $5,
|
|
|
9801
9845
|
}
|
|
9802
9846
|
|
|
9803
9847
|
/* Commands.case block in graph */
|
|
9804
|
-
function
|
|
9848
|
+
function Commands_case__graph_22171($0, $1, $2, $3, $4, $5) {
|
|
9805
9849
|
return $6 => {
|
|
9806
9850
|
switch($4.h) {
|
|
9807
|
-
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);
|
|
9808
9852
|
case 0: /* nothing */ return Data_Promise_reject('The graph command expects the name of a GitHub Team as an argument.', $5, $6);
|
|
9809
9853
|
}
|
|
9810
9854
|
};
|
|
9811
9855
|
}
|
|
9812
9856
|
|
|
9813
9857
|
/* Commands.case block in request */
|
|
9814
|
-
function
|
|
9858
|
+
function Commands_case__request_21441($0, $1, $2, $3, $4, $5) {
|
|
9815
9859
|
return $7 => $9 => {
|
|
9816
9860
|
let $a;
|
|
9817
9861
|
switch(Prelude_Types_null_Foldable_List($5.a1)) {
|
|
@@ -9867,40 +9911,40 @@ function Commands_case__request_19159($0, $1, $2, $3, $4, $5) {
|
|
|
9867
9911
|
}
|
|
9868
9912
|
|
|
9869
9913
|
/* Commands.case block in case block in request,partitionedArgs */
|
|
9870
|
-
function
|
|
9871
|
-
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});
|
|
9872
9916
|
return {a1: $9.a1, a2: {a1: $7.a2, a2: $9.a2}};
|
|
9873
9917
|
}
|
|
9874
9918
|
|
|
9875
9919
|
/* Commands.case block in request,partitionedArgs */
|
|
9876
|
-
function
|
|
9877
|
-
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));
|
|
9878
9922
|
}
|
|
9879
9923
|
|
|
9880
|
-
/* Commands.
|
|
9881
|
-
function
|
|
9924
|
+
/* Commands.8950:20495:recombineIntoArgs */
|
|
9925
|
+
function Commands_n__8950_20495_recombineIntoArgs($0, $1) {
|
|
9882
9926
|
switch($1.h) {
|
|
9883
9927
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
9884
9928
|
case undefined: /* cons */ {
|
|
9885
9929
|
switch($1.a1) {
|
|
9886
9930
|
case '-i': {
|
|
9887
9931
|
switch($1.a2.h) {
|
|
9888
|
-
case 0: /* nil */ return
|
|
9932
|
+
case 0: /* nil */ return csegen_612();
|
|
9889
9933
|
case undefined: /* cons */ {
|
|
9890
|
-
const $8 =
|
|
9934
|
+
const $8 = Commands_n__8950_20493_parseIntoOpt($0, $1.a2.a1);
|
|
9891
9935
|
switch($8.h) {
|
|
9892
9936
|
case undefined: /* just */ {
|
|
9893
|
-
const $c =
|
|
9937
|
+
const $c = Commands_n__8950_20495_recombineIntoArgs($0, $1.a2.a2);
|
|
9894
9938
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
9895
9939
|
}
|
|
9896
9940
|
case 0: /* nothing */ {
|
|
9897
|
-
const $14 =
|
|
9941
|
+
const $14 = Commands_n__8950_20495_recombineIntoArgs($0, $1.a2.a2);
|
|
9898
9942
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
9899
9943
|
}
|
|
9900
9944
|
}
|
|
9901
9945
|
}
|
|
9902
9946
|
default: {
|
|
9903
|
-
const $1e =
|
|
9947
|
+
const $1e = Commands_n__8950_20495_recombineIntoArgs($0, $1.a2);
|
|
9904
9948
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
9905
9949
|
}
|
|
9906
9950
|
}
|
|
@@ -9909,26 +9953,26 @@ function Commands_n__8939_18213_recombineIntoArgs($0, $1) {
|
|
|
9909
9953
|
switch($1.a2.h) {
|
|
9910
9954
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--into', a2: {h: 0}}};
|
|
9911
9955
|
case undefined: /* cons */ {
|
|
9912
|
-
const $2b =
|
|
9956
|
+
const $2b = Commands_n__8950_20493_parseIntoOpt($0, $1.a2.a1);
|
|
9913
9957
|
switch($2b.h) {
|
|
9914
9958
|
case undefined: /* just */ {
|
|
9915
|
-
const $2f =
|
|
9959
|
+
const $2f = Commands_n__8950_20495_recombineIntoArgs($0, $1.a2.a2);
|
|
9916
9960
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
9917
9961
|
}
|
|
9918
9962
|
case 0: /* nothing */ {
|
|
9919
|
-
const $37 =
|
|
9963
|
+
const $37 = Commands_n__8950_20495_recombineIntoArgs($0, $1.a2.a2);
|
|
9920
9964
|
return {a1: $37.a1, a2: {a1: '--into', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
9921
9965
|
}
|
|
9922
9966
|
}
|
|
9923
9967
|
}
|
|
9924
9968
|
default: {
|
|
9925
|
-
const $41 =
|
|
9969
|
+
const $41 = Commands_n__8950_20495_recombineIntoArgs($0, $1.a2);
|
|
9926
9970
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
9927
9971
|
}
|
|
9928
9972
|
}
|
|
9929
9973
|
}
|
|
9930
9974
|
default: {
|
|
9931
|
-
const $49 =
|
|
9975
|
+
const $49 = Commands_n__8950_20495_recombineIntoArgs($0, $1.a2);
|
|
9932
9976
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
9933
9977
|
}
|
|
9934
9978
|
}
|
|
@@ -9936,30 +9980,30 @@ function Commands_n__8939_18213_recombineIntoArgs($0, $1) {
|
|
|
9936
9980
|
}
|
|
9937
9981
|
}
|
|
9938
9982
|
|
|
9939
|
-
/* Commands.
|
|
9940
|
-
function
|
|
9983
|
+
/* Commands.11002:22435:recombineIgnoreArgs */
|
|
9984
|
+
function Commands_n__11002_22435_recombineIgnoreArgs($0, $1) {
|
|
9941
9985
|
switch($1.h) {
|
|
9942
9986
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
9943
9987
|
case undefined: /* cons */ {
|
|
9944
9988
|
switch($1.a1) {
|
|
9945
9989
|
case '-i': {
|
|
9946
9990
|
switch($1.a2.h) {
|
|
9947
|
-
case 0: /* nil */ return
|
|
9991
|
+
case 0: /* nil */ return csegen_612();
|
|
9948
9992
|
case undefined: /* cons */ {
|
|
9949
|
-
const $8 =
|
|
9993
|
+
const $8 = Commands_n__11002_22432_parseIgnoreOpt($0, $1.a2.a1);
|
|
9950
9994
|
switch($8.h) {
|
|
9951
9995
|
case undefined: /* just */ {
|
|
9952
|
-
const $c =
|
|
9996
|
+
const $c = Commands_n__11002_22435_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9953
9997
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
9954
9998
|
}
|
|
9955
9999
|
case 0: /* nothing */ {
|
|
9956
|
-
const $14 =
|
|
10000
|
+
const $14 = Commands_n__11002_22435_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9957
10001
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
9958
10002
|
}
|
|
9959
10003
|
}
|
|
9960
10004
|
}
|
|
9961
10005
|
default: {
|
|
9962
|
-
const $1e =
|
|
10006
|
+
const $1e = Commands_n__11002_22435_recombineIgnoreArgs($0, $1.a2);
|
|
9963
10007
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
9964
10008
|
}
|
|
9965
10009
|
}
|
|
@@ -9968,26 +10012,26 @@ function Commands_n__10991_20153_recombineIgnoreArgs($0, $1) {
|
|
|
9968
10012
|
switch($1.a2.h) {
|
|
9969
10013
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
|
|
9970
10014
|
case undefined: /* cons */ {
|
|
9971
|
-
const $2b =
|
|
10015
|
+
const $2b = Commands_n__11002_22432_parseIgnoreOpt($0, $1.a2.a1);
|
|
9972
10016
|
switch($2b.h) {
|
|
9973
10017
|
case undefined: /* just */ {
|
|
9974
|
-
const $2f =
|
|
10018
|
+
const $2f = Commands_n__11002_22435_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9975
10019
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
9976
10020
|
}
|
|
9977
10021
|
case 0: /* nothing */ {
|
|
9978
|
-
const $37 =
|
|
10022
|
+
const $37 = Commands_n__11002_22435_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9979
10023
|
return {a1: $37.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
9980
10024
|
}
|
|
9981
10025
|
}
|
|
9982
10026
|
}
|
|
9983
10027
|
default: {
|
|
9984
|
-
const $41 =
|
|
10028
|
+
const $41 = Commands_n__11002_22435_recombineIgnoreArgs($0, $1.a2);
|
|
9985
10029
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
9986
10030
|
}
|
|
9987
10031
|
}
|
|
9988
10032
|
}
|
|
9989
10033
|
default: {
|
|
9990
|
-
const $49 =
|
|
10034
|
+
const $49 = Commands_n__11002_22435_recombineIgnoreArgs($0, $1.a2);
|
|
9991
10035
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
9992
10036
|
}
|
|
9993
10037
|
}
|
|
@@ -9995,23 +10039,23 @@ function Commands_n__10991_20153_recombineIgnoreArgs($0, $1) {
|
|
|
9995
10039
|
}
|
|
9996
10040
|
}
|
|
9997
10041
|
|
|
9998
|
-
/* Commands.
|
|
9999
|
-
function
|
|
10042
|
+
/* Commands.10216:21679:putNameLn */
|
|
10043
|
+
function Commands_n__10216_21679_putNameLn($0, $1, $2, $3) {
|
|
10000
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}}}});
|
|
10001
10045
|
}
|
|
10002
10046
|
|
|
10003
|
-
/* Commands.
|
|
10004
|
-
function
|
|
10005
|
-
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)));
|
|
10006
10050
|
}
|
|
10007
10051
|
|
|
10008
|
-
/* Commands.
|
|
10009
|
-
function
|
|
10052
|
+
/* Commands.8688:20230:putLabel */
|
|
10053
|
+
function Commands_n__8688_20230_putLabel($0, $1, $2, $3, $4) {
|
|
10010
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)));
|
|
10011
10055
|
}
|
|
10012
10056
|
|
|
10013
|
-
/* Commands.
|
|
10014
|
-
function
|
|
10057
|
+
/* Commands.11354:22796:printDetails */
|
|
10058
|
+
function Commands_n__11354_22796_printDetails($0, $1, $2, $3, $4) {
|
|
10015
10059
|
const $5 = Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4.a8));
|
|
10016
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));
|
|
10017
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)));
|
|
@@ -10020,8 +10064,8 @@ function Commands_n__11343_20514_printDetails($0, $1, $2, $3, $4) {
|
|
|
10020
10064
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: $5, a2: {a1: $d, a2: {a1: $16, a2: {a1: $21, a2: {a1: $2f, a2: {h: 0}}}}}});
|
|
10021
10065
|
}
|
|
10022
10066
|
|
|
10023
|
-
/* Commands.
|
|
10024
|
-
function
|
|
10067
|
+
/* Commands.11354:22795:pickOne */
|
|
10068
|
+
function Commands_n__11354_22795_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10025
10069
|
const $9 = Data_List_headx27(Data_List_drop($5, Prelude_Types_List_tailRecAppend($7, $8)));
|
|
10026
10070
|
return $12 => $13 => {
|
|
10027
10071
|
switch($9.h) {
|
|
@@ -10035,7 +10079,7 @@ function Commands_n__11343_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
10035
10079
|
break;
|
|
10036
10080
|
}
|
|
10037
10081
|
case 0: /* nothing */ {
|
|
10038
|
-
$1a =
|
|
10082
|
+
$1a = csegen_617();
|
|
10039
10083
|
break;
|
|
10040
10084
|
}
|
|
10041
10085
|
}
|
|
@@ -10045,23 +10089,23 @@ function Commands_n__11343_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
10045
10089
|
};
|
|
10046
10090
|
}
|
|
10047
10091
|
|
|
10048
|
-
/* Commands.
|
|
10049
|
-
function
|
|
10050
|
-
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));
|
|
10051
10095
|
}
|
|
10052
10096
|
|
|
10053
|
-
/* Commands.
|
|
10054
|
-
function
|
|
10097
|
+
/* Commands.10384:21867:parseTeamArg */
|
|
10098
|
+
function Commands_n__10384_21867_parseTeamArg($0, $1) {
|
|
10055
10099
|
return {a1: {a1: $1}};
|
|
10056
10100
|
}
|
|
10057
10101
|
|
|
10058
|
-
/* Commands.
|
|
10059
|
-
function
|
|
10060
|
-
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));
|
|
10061
10105
|
}
|
|
10062
10106
|
|
|
10063
|
-
/* Commands.
|
|
10064
|
-
function
|
|
10107
|
+
/* Commands.11002:22433:parseListFlag */
|
|
10108
|
+
function Commands_n__11002_22433_parseListFlag($0, $1) {
|
|
10065
10109
|
switch($1) {
|
|
10066
10110
|
case '-l': return {a1: {h: 0 /* List */}};
|
|
10067
10111
|
case '--list': return {a1: {h: 0 /* List */}};
|
|
@@ -10069,8 +10113,8 @@ function Commands_n__10991_20151_parseListFlag($0, $1) {
|
|
|
10069
10113
|
}
|
|
10070
10114
|
}
|
|
10071
10115
|
|
|
10072
|
-
/* Commands.
|
|
10073
|
-
function
|
|
10116
|
+
/* Commands.8950:20494:parseLabelArg */
|
|
10117
|
+
function Commands_n__8950_20494_parseLabelArg($0, $1) {
|
|
10074
10118
|
const $2 = Data_String_strM($1);
|
|
10075
10119
|
switch($2.h) {
|
|
10076
10120
|
case undefined: /* cons */ {
|
|
@@ -10083,29 +10127,29 @@ function Commands_n__8939_18212_parseLabelArg($0, $1) {
|
|
|
10083
10127
|
}
|
|
10084
10128
|
}
|
|
10085
10129
|
|
|
10086
|
-
/* Commands.
|
|
10087
|
-
function
|
|
10130
|
+
/* Commands.8950:20493:parseIntoOpt */
|
|
10131
|
+
function Commands_n__8950_20493_parseIntoOpt($0, $1) {
|
|
10088
10132
|
const $2 = Util_String_nonEmpty($1);
|
|
10089
10133
|
return Prelude_Types_map_Functor_Maybe($7 => $7, $2);
|
|
10090
10134
|
}
|
|
10091
10135
|
|
|
10092
|
-
/* Commands.
|
|
10093
|
-
function
|
|
10136
|
+
/* Commands.11002:22432:parseIgnoreOpt */
|
|
10137
|
+
function Commands_n__11002_22432_parseIgnoreOpt($0, $1) {
|
|
10094
10138
|
const $2 = Data_String_split(csegen_359(), $1);
|
|
10095
10139
|
const $7 = Data_List1_last($2);
|
|
10096
10140
|
return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
|
|
10097
10141
|
}
|
|
10098
10142
|
|
|
10099
|
-
/* Commands.
|
|
10100
|
-
function
|
|
10143
|
+
/* Commands.8950:20492:parseDraftFlag */
|
|
10144
|
+
function Commands_n__8950_20492_parseDraftFlag($0, $1) {
|
|
10101
10145
|
switch($1) {
|
|
10102
10146
|
case '--draft': return {a1: {h: 0 /* Draft */}};
|
|
10103
10147
|
default: return {h: 0};
|
|
10104
10148
|
}
|
|
10105
10149
|
}
|
|
10106
10150
|
|
|
10107
|
-
/* Commands.
|
|
10108
|
-
function
|
|
10151
|
+
/* Commands.10384:21866:parseCompletedFlag */
|
|
10152
|
+
function Commands_n__10384_21866_parseCompletedFlag($0, $1) {
|
|
10109
10153
|
switch($1) {
|
|
10110
10154
|
case '-c': return {a1: {h: 0}};
|
|
10111
10155
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -10113,8 +10157,8 @@ function Commands_n__10373_19584_parseCompletedFlag($0, $1) {
|
|
|
10113
10157
|
}
|
|
10114
10158
|
}
|
|
10115
10159
|
|
|
10116
|
-
/* Commands.
|
|
10117
|
-
function
|
|
10160
|
+
/* Commands.11002:22431:parseCheckoutFlag */
|
|
10161
|
+
function Commands_n__11002_22431_parseCheckoutFlag($0, $1) {
|
|
10118
10162
|
switch($1) {
|
|
10119
10163
|
case '-c': return {a1: {h: 1 /* Checkout */}};
|
|
10120
10164
|
case '--checkout': return {a1: {h: 1 /* Checkout */}};
|
|
@@ -10122,8 +10166,8 @@ function Commands_n__10991_20149_parseCheckoutFlag($0, $1) {
|
|
|
10122
10166
|
}
|
|
10123
10167
|
}
|
|
10124
10168
|
|
|
10125
|
-
/* Commands.
|
|
10126
|
-
function
|
|
10169
|
+
/* Commands.11354:22794:listSome */
|
|
10170
|
+
function Commands_n__11354_22794_listSome($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10127
10171
|
const $15 = $16 => {
|
|
10128
10172
|
let $1b;
|
|
10129
10173
|
switch(Prelude_Types_null_Foldable_List($6)) {
|
|
@@ -10136,13 +10180,13 @@ function Commands_n__11343_20512_listSome($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
10136
10180
|
break;
|
|
10137
10181
|
}
|
|
10138
10182
|
}
|
|
10139
|
-
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 =>
|
|
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));
|
|
10140
10184
|
};
|
|
10141
|
-
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);
|
|
10142
10186
|
}
|
|
10143
10187
|
|
|
10144
|
-
/* Commands.
|
|
10145
|
-
function
|
|
10188
|
+
/* Commands.9376:20923:labelSlugs */
|
|
10189
|
+
function Commands_n__9376_20923_labelSlugs($0, $1, $2, $3) {
|
|
10146
10190
|
const $5 = $6 => $7 => {
|
|
10147
10191
|
switch($6.h) {
|
|
10148
10192
|
case 2: /* Label */ return {a1: $6.a1, a2: $7};
|
|
@@ -10152,13 +10196,13 @@ function Commands_n__9365_18641_labelSlugs($0, $1, $2, $3) {
|
|
|
10152
10196
|
return Prelude_Types_foldr_Foldable_List($5, {h: 0}, $3);
|
|
10153
10197
|
}
|
|
10154
10198
|
|
|
10155
|
-
/* Commands.
|
|
10156
|
-
function
|
|
10199
|
+
/* Commands.11354:22793:isNotIgnored */
|
|
10200
|
+
function Commands_n__11354_22793_isNotIgnored($0, $1, $2, $3, $4, $5) {
|
|
10157
10201
|
return Data_Maybe_isNothing(Data_List_find($a => Prelude_EqOrd_x3dx3d_Eq_Integer($a, $5.a1), $4.a13));
|
|
10158
10202
|
}
|
|
10159
10203
|
|
|
10160
|
-
/* Commands.
|
|
10161
|
-
function
|
|
10204
|
+
/* Commands.9376:20922:isDraft */
|
|
10205
|
+
function Commands_n__9376_20922_isDraft($0, $1, $2, $3) {
|
|
10162
10206
|
const $7 = $8 => {
|
|
10163
10207
|
switch($8.h) {
|
|
10164
10208
|
case 0: /* Draft */ return 1;
|
|
@@ -10169,8 +10213,8 @@ function Commands_n__9365_18640_isDraft($0, $1, $2, $3) {
|
|
|
10169
10213
|
return Data_Maybe_isJust($5);
|
|
10170
10214
|
}
|
|
10171
10215
|
|
|
10172
|
-
/* Commands.
|
|
10173
|
-
function
|
|
10216
|
+
/* Commands.9376:20921:intoBranch */
|
|
10217
|
+
function Commands_n__9376_20921_intoBranch($0, $1, $2, $3) {
|
|
10174
10218
|
const $d = $e => {
|
|
10175
10219
|
switch($e.h) {
|
|
10176
10220
|
case 1: /* Into */ return {a1: Util_String_value($e.a1)};
|
|
@@ -10180,11 +10224,11 @@ function Commands_n__9365_18639_intoBranch($0, $1, $2, $3) {
|
|
|
10180
10224
|
return Prelude_Types_foldMap_Foldable_List({a1: $7 => $8 => Prelude_Types_x3cx2bx3e_Semigroup_x28Maybex20x24ax29($7, $8), a2: {h: 0}}, $d, $3);
|
|
10181
10225
|
}
|
|
10182
10226
|
|
|
10183
|
-
/* Commands.
|
|
10184
|
-
function
|
|
10227
|
+
/* Commands.11354:22792:goListSome */
|
|
10228
|
+
function Commands_n__11354_22792_goListSome($0, $1, $2, $3, $4, $5) {
|
|
10185
10229
|
switch($5.h) {
|
|
10186
10230
|
case undefined: /* cons */ {
|
|
10187
|
-
const $7 =
|
|
10231
|
+
const $7 = Commands_n__11354_22796_printDetails($0, $1, $2, $3, $5.a1);
|
|
10188
10232
|
let $15;
|
|
10189
10233
|
switch($4) {
|
|
10190
10234
|
case 1: {
|
|
@@ -10196,15 +10240,28 @@ function Commands_n__11343_20510_goListSome($0, $1, $2, $3, $4, $5) {
|
|
|
10196
10240
|
break;
|
|
10197
10241
|
}
|
|
10198
10242
|
}
|
|
10199
|
-
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));
|
|
10200
10244
|
return Util_renderIO($3, csegen_74()(), $13);
|
|
10201
10245
|
}
|
|
10202
|
-
case 0: /* nil */ return
|
|
10246
|
+
case 0: /* nil */ return csegen_617();
|
|
10203
10247
|
}
|
|
10204
10248
|
}
|
|
10205
10249
|
|
|
10206
|
-
/* Commands.
|
|
10207
|
-
function
|
|
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
|
+
}
|
|
10260
|
+
}
|
|
10261
|
+
}
|
|
10262
|
+
|
|
10263
|
+
/* Commands.10216:21678:forkedUser */
|
|
10264
|
+
function Commands_n__10216_21678_forkedUser($0, $1, $2, $3) {
|
|
10208
10265
|
return FFI_Concurrency_fork(csegen_74()(), ('user --json '+$3));
|
|
10209
10266
|
}
|
|
10210
10267
|
|
|
@@ -10213,6 +10270,11 @@ function Commands_whoami($0, $1, $2, $3, $4) {
|
|
|
10213
10270
|
return Commands_User_Me_printInfoOnSelf($0, $2, $1, $3, $4);
|
|
10214
10271
|
}
|
|
10215
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
|
+
|
|
10216
10278
|
/* Commands.teamNameArg : GraphArg -> Maybe String */
|
|
10217
10279
|
function Commands_teamNameArg($0) {
|
|
10218
10280
|
switch($0.h) {
|
|
@@ -10237,7 +10299,7 @@ function Commands_skipArg($0) {
|
|
|
10237
10299
|
/* Commands.request : Config => Git => Octokit => List String -> {default False _ : Bool} ->
|
|
10238
10300
|
Promise' () */
|
|
10239
10301
|
function Commands_request($0, $1, $2, $3, $4) {
|
|
10240
|
-
return
|
|
10302
|
+
return Commands_case__request_21441($0, $1, $2, $4, $3, Commands_n__9816_21326_partitionedArgs($0, $1, $2, $4, $3));
|
|
10241
10303
|
}
|
|
10242
10304
|
|
|
10243
10305
|
/* Commands.reflect : Config => Octokit => Promise' () */
|
|
@@ -10245,9 +10307,9 @@ function Commands_reflect($0, $1, $2, $3) {
|
|
|
10245
10307
|
return Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3);
|
|
10246
10308
|
}
|
|
10247
10309
|
|
|
10248
|
-
/* Commands.quick : Config => Git => Octokit =>
|
|
10310
|
+
/* Commands.quick : Config => Git => Octokit => List QuickArg -> Promise' () */
|
|
10249
10311
|
function Commands_quick($0, $1, $2, $3, $4, $5) {
|
|
10250
|
-
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);
|
|
10251
10313
|
}
|
|
10252
10314
|
|
|
10253
10315
|
/* Commands.prUsageError : String */
|
|
@@ -10268,7 +10330,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10268
10330
|
};
|
|
10269
10331
|
const $48 = $49 => $4a => $4b => {
|
|
10270
10332
|
let $52;
|
|
10271
|
-
switch(Prelude_Types_null_Foldable_List(
|
|
10333
|
+
switch(Prelude_Types_null_Foldable_List(Commands_n__9376_20923_labelSlugs($0, $1, $2, $3))) {
|
|
10272
10334
|
case 1: {
|
|
10273
10335
|
$52 = 0;
|
|
10274
10336
|
break;
|
|
@@ -10278,10 +10340,10 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10278
10340
|
break;
|
|
10279
10341
|
}
|
|
10280
10342
|
}
|
|
10281
|
-
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));
|
|
10282
10344
|
const $6a = $6b => $6c => $6d => {
|
|
10283
10345
|
const $6f = $70 => {
|
|
10284
|
-
const $71 =
|
|
10346
|
+
const $71 = Commands_n__9376_20921_intoBranch($0, $1, $2, $3);
|
|
10285
10347
|
switch($71.h) {
|
|
10286
10348
|
case undefined: /* just */ {
|
|
10287
10349
|
return $77 => {
|
|
@@ -10296,7 +10358,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10296
10358
|
};
|
|
10297
10359
|
const $96 = $97 => {
|
|
10298
10360
|
let $9c;
|
|
10299
|
-
switch(
|
|
10361
|
+
switch(Commands_n__9376_20922_isDraft($0, $1, $2, $3)) {
|
|
10300
10362
|
case 1: {
|
|
10301
10363
|
switch($2c.a2.a4) {
|
|
10302
10364
|
case 1: {
|
|
@@ -10337,7 +10399,20 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10337
10399
|
case 1: /* Hypothetical */ return $f4 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($f7 => Prelude_IO_prim__putStr(($2c.a1+'\n'), $f7), $2d, $2e, $f4);
|
|
10338
10400
|
}
|
|
10339
10401
|
};
|
|
10340
|
-
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
|
+
}
|
|
10341
10416
|
}
|
|
10342
10417
|
|
|
10343
10418
|
/* Commands.parsePrArgs : List String -> Either String (List PrArg) */
|
|
@@ -10345,9 +10420,9 @@ function Commands_parsePrArgs($0) {
|
|
|
10345
10420
|
switch($0.h) {
|
|
10346
10421
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
10347
10422
|
default: {
|
|
10348
|
-
const $3 =
|
|
10423
|
+
const $3 = Commands_n__8950_20495_recombineIntoArgs($0, $0);
|
|
10349
10424
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 1 /* Into */, a1: $b}), $3.a1);
|
|
10350
|
-
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);
|
|
10351
10426
|
return Data_Either_maybeToEither(() => Commands_prUsageError(), Prelude_Types_map_Functor_Maybe($29 => Prelude_Types_List_tailRecAppend($7, $29), $e));
|
|
10352
10427
|
}
|
|
10353
10428
|
}
|
|
@@ -10363,7 +10438,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10363
10438
|
switch($0.a2.a2.h) {
|
|
10364
10439
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
10365
10440
|
default: {
|
|
10366
|
-
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);
|
|
10367
10442
|
switch($6.h) {
|
|
10368
10443
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
10369
10444
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10372,7 +10447,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10372
10447
|
}
|
|
10373
10448
|
}
|
|
10374
10449
|
default: {
|
|
10375
|
-
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);
|
|
10376
10451
|
switch($1d.h) {
|
|
10377
10452
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
10378
10453
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10381,7 +10456,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10381
10456
|
}
|
|
10382
10457
|
}
|
|
10383
10458
|
default: {
|
|
10384
|
-
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);
|
|
10385
10460
|
switch($34.h) {
|
|
10386
10461
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
10387
10462
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10395,9 +10470,9 @@ function Commands_parseContributeArgs($0) {
|
|
|
10395
10470
|
switch($0.h) {
|
|
10396
10471
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
10397
10472
|
default: {
|
|
10398
|
-
const $3 =
|
|
10473
|
+
const $3 = Commands_n__11002_22435_recombineIgnoreArgs($0, $0);
|
|
10399
10474
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 2 /* Ignore */, a1: $b}), $3.a1);
|
|
10400
|
-
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);
|
|
10401
10476
|
return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($34 => Prelude_Types_List_tailRecAppend($7, $34), $e));
|
|
10402
10477
|
}
|
|
10403
10478
|
}
|
|
@@ -10405,12 +10480,12 @@ function Commands_parseContributeArgs($0) {
|
|
|
10405
10480
|
|
|
10406
10481
|
/* Commands.listOrgTeams : Config => Octokit => Promise' () */
|
|
10407
10482
|
function Commands_listOrgTeams($0, $1, $2, $3) {
|
|
10408
|
-
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);
|
|
10409
10484
|
}
|
|
10410
10485
|
|
|
10411
10486
|
/* Commands.list : Config => Octokit => String -> Promise' () */
|
|
10412
10487
|
function Commands_list($0, $1, $2, $3, $4) {
|
|
10413
|
-
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);
|
|
10414
10489
|
}
|
|
10415
10490
|
|
|
10416
10491
|
/* Commands.label : Config => Git => Octokit => List String -> Promise' () */
|
|
@@ -10419,7 +10494,7 @@ function Commands_label($0, $1, $2, $3, $4, $5) {
|
|
|
10419
10494
|
switch($22.h) {
|
|
10420
10495
|
case 0: /* Actual */ {
|
|
10421
10496
|
const $24 = Prelude_Types_List_mapAppend({h: 0}, $28 => Commands_Label_unslugifyLabel($0.a11, $28), $3);
|
|
10422
|
-
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);
|
|
10423
10498
|
}
|
|
10424
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);
|
|
10425
10500
|
}
|
|
@@ -10427,6 +10502,11 @@ function Commands_label($0, $1, $2, $3, $4, $5) {
|
|
|
10427
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);
|
|
10428
10503
|
}
|
|
10429
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
|
+
|
|
10430
10510
|
/* Commands.health : Config => Octokit => Promise' () */
|
|
10431
10511
|
function Commands_health($0, $1, $2, $3) {
|
|
10432
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);
|
|
@@ -10434,14 +10514,8 @@ function Commands_health($0, $1, $2, $3) {
|
|
|
10434
10514
|
|
|
10435
10515
|
/* Commands.graph : Config => Octokit => List GraphArg -> Promise' () */
|
|
10436
10516
|
function Commands_graph($0, $1, $2) {
|
|
10437
|
-
const $
|
|
10438
|
-
|
|
10439
|
-
case 0: /* nothing */ return 1;
|
|
10440
|
-
default: return 0;
|
|
10441
|
-
}
|
|
10442
|
-
};
|
|
10443
|
-
const $3 = Data_List_find($5, $2);
|
|
10444
|
-
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);
|
|
10445
10519
|
}
|
|
10446
10520
|
|
|
10447
10521
|
/* Commands.contributeUsageError : String */
|
|
@@ -10506,17 +10580,17 @@ function Commands_contribute($0, $1, $2, $3, $4, $5) {
|
|
|
10506
10580
|
}
|
|
10507
10581
|
};
|
|
10508
10582
|
const $72 = Prelude_Types_List_filterAppend({h: 0}, $75, $13);
|
|
10509
|
-
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);
|
|
10510
10584
|
const $89 = Data_List_partition($8c => Data_PullRequest_isRequestedReviewer(myLogin, $8c), $7c);
|
|
10511
|
-
const $91 = Prelude_Interfaces_mapHom(
|
|
10585
|
+
const $91 = Prelude_Interfaces_mapHom(csegen_608(), $97 => Data_List_sortBy(csegen_650(), $97))($89);
|
|
10512
10586
|
let $71;
|
|
10513
10587
|
switch($54.h) {
|
|
10514
10588
|
case 0: /* nothing */ {
|
|
10515
|
-
$71 = () =>
|
|
10589
|
+
$71 = () => Commands_n__11354_22795_pickOne($1, $2, $3, $0, configx27, $41, $4e, $91.a1, $91.a2);
|
|
10516
10590
|
break;
|
|
10517
10591
|
}
|
|
10518
10592
|
case undefined: /* just */ {
|
|
10519
|
-
$71 = () => $a8 => $a9 =>
|
|
10593
|
+
$71 = () => $a8 => $a9 => Commands_n__11354_22794_listSome($1, $2, $3, $0, $41, $91.a1, $91.a2, $a8, $a9);
|
|
10520
10594
|
break;
|
|
10521
10595
|
}
|
|
10522
10596
|
}
|
|
@@ -10550,8 +10624,8 @@ function Commands_x3cx7cx7cx3e($0, $1, $2, $3) {
|
|
|
10550
10624
|
return $0.a3(undefined)($1($3))(() => $2($3));
|
|
10551
10625
|
}
|
|
10552
10626
|
|
|
10553
|
-
/* FFI.Concurrency.
|
|
10554
|
-
function
|
|
10627
|
+
/* FFI.Concurrency.5718:20235:both */
|
|
10628
|
+
function FFI_Concurrency_n__5718_20235_both($0, $1, $2, $3, $4) {
|
|
10555
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))));
|
|
10556
10630
|
}
|
|
10557
10631
|
|
|
@@ -10594,7 +10668,7 @@ function FFI_Concurrency_fork($0, $1) {
|
|
|
10594
10668
|
|
|
10595
10669
|
/* FFI.Concurrency.all : HasIO io => Foldable t => t Future -> io Future */
|
|
10596
10670
|
function FFI_Concurrency_all($0, $1, $2) {
|
|
10597
|
-
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);
|
|
10598
10672
|
}
|
|
10599
10673
|
|
|
10600
10674
|
/* Data.SortedMap.map */
|
|
@@ -10634,7 +10708,7 @@ function Data_SortedMap_empty($0) {
|
|
|
10634
10708
|
|
|
10635
10709
|
/* Data.SortedMap.Dependent.treeToList : Tree n k v o -> List (x : k ** v x) */
|
|
10636
10710
|
function Data_SortedMap_Dependent_treeToList($0) {
|
|
10637
|
-
return
|
|
10711
|
+
return Data_SortedMap_Dependent_n__6828_9064_treeToListx27($3 => ({a1: $3, a2: {h: 0}}), $0);
|
|
10638
10712
|
}
|
|
10639
10713
|
|
|
10640
10714
|
/* Data.SortedMap.Dependent.treeMap : (a x -> b x) -> Tree n k a o -> Tree n k b o */
|
|
@@ -10762,67 +10836,67 @@ function Data_SortedMap_Dependent_empty($0) {
|
|
|
10762
10836
|
|
|
10763
10837
|
/* Commands.User.Reflect.case block in case block in reflectOnSelf */
|
|
10764
10838
|
function Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
10765
|
-
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});
|
|
10766
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));
|
|
10767
10841
|
}
|
|
10768
10842
|
|
|
10769
|
-
/* Commands.User.Me.
|
|
10770
|
-
function
|
|
10843
|
+
/* Commands.User.Me.7549:2049:ul */
|
|
10844
|
+
function Commands_User_Me_n__7549_2049_ul($0, $1, $2, $3, $4) {
|
|
10771
10845
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
10772
10846
|
}
|
|
10773
10847
|
|
|
10774
|
-
/* Commands.User.Me.
|
|
10775
|
-
function
|
|
10776
|
-
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)});
|
|
10777
10851
|
}
|
|
10778
10852
|
|
|
10779
|
-
/* Commands.User.Me.
|
|
10780
|
-
function
|
|
10781
|
-
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));
|
|
10782
10856
|
}
|
|
10783
10857
|
|
|
10784
|
-
/* Commands.User.Reflect.
|
|
10785
|
-
function
|
|
10858
|
+
/* Commands.User.Reflect.6604:1075:ital */
|
|
10859
|
+
function Commands_User_Reflect_n__6604_1075_ital($0, $1) {
|
|
10786
10860
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
10787
10861
|
}
|
|
10788
10862
|
|
|
10789
|
-
/* Commands.User.Me.
|
|
10790
|
-
function
|
|
10863
|
+
/* Commands.User.Me.7549:2046:it */
|
|
10864
|
+
function Commands_User_Me_n__7549_2046_it($0, $1, $2, $3, $4) {
|
|
10791
10865
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
10792
10866
|
}
|
|
10793
10867
|
|
|
10794
|
-
/* Commands.User.Me.
|
|
10795
|
-
function
|
|
10868
|
+
/* Commands.User.Me.7699:2202:handleUnsetEmail */
|
|
10869
|
+
function Commands_User_Me_n__7699_2202_handleUnsetEmail($0, $1, $2, $3) {
|
|
10796
10870
|
switch($3) {
|
|
10797
10871
|
case '': return {h: 0};
|
|
10798
10872
|
default: return {a1: $3};
|
|
10799
10873
|
}
|
|
10800
10874
|
}
|
|
10801
10875
|
|
|
10802
|
-
/* Commands.User.Me.
|
|
10803
|
-
function
|
|
10804
|
-
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));
|
|
10805
10879
|
}
|
|
10806
10880
|
|
|
10807
|
-
/* Commands.User.Me.
|
|
10808
|
-
function
|
|
10881
|
+
/* Commands.User.Me.7549:2044:email */
|
|
10882
|
+
function Commands_User_Me_n__7549_2044_email($0, $1, $2, $3) {
|
|
10809
10883
|
let $8;
|
|
10810
10884
|
switch($2.h) {
|
|
10811
10885
|
case undefined: /* just */ {
|
|
10812
|
-
$8 =
|
|
10886
|
+
$8 = Commands_User_Me_n__7549_2043_dataVal($0, $1, $2, $3, $2.a1);
|
|
10813
10887
|
break;
|
|
10814
10888
|
}
|
|
10815
10889
|
case 0: /* nothing */ {
|
|
10816
|
-
$8 =
|
|
10890
|
+
$8 = Commands_User_Me_n__7549_2046_it($0, $1, $2, $3, 'Not set');
|
|
10817
10891
|
break;
|
|
10818
10892
|
}
|
|
10819
10893
|
}
|
|
10820
10894
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Git Email:'), $8);
|
|
10821
10895
|
}
|
|
10822
10896
|
|
|
10823
|
-
/* Commands.User.Me.
|
|
10824
|
-
function
|
|
10825
|
-
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));
|
|
10826
10900
|
}
|
|
10827
10901
|
|
|
10828
10902
|
/* Commands.User.Reflect.rightTitle : String */
|
|
@@ -10845,11 +10919,11 @@ function Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
|
10845
10919
|
const $c = prs => $d => $e => {
|
|
10846
10920
|
const $1c = myLogin => $1d => $1e => {
|
|
10847
10921
|
const $3a = reviews => {
|
|
10848
|
-
const $3b = Prelude_Types_map_Functor_Maybe(
|
|
10849
|
-
const $4e = Prelude_Interfaces_mapHom(
|
|
10850
|
-
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));
|
|
10851
10925
|
};
|
|
10852
|
-
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);
|
|
10853
10927
|
};
|
|
10854
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);
|
|
10855
10929
|
};
|
|
@@ -10858,7 +10932,7 @@ function Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
|
10858
10932
|
|
|
10859
10933
|
/* Commands.User.Me.printInfoOnSelf : Config => Octokit => Git => Promise' () */
|
|
10860
10934
|
function Commands_User_Me_printInfoOnSelf($0, $1, $2, $3, $4) {
|
|
10861
|
-
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);
|
|
10862
10936
|
}
|
|
10863
10937
|
|
|
10864
10938
|
/* Commands.User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Config =>
|
|
@@ -10869,7 +10943,7 @@ function Commands_User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
|
10869
10943
|
|
|
10870
10944
|
/* Commands.User.Me.print : Config -> Maybe String -> User -> List String -> Doc AnsiStyle */
|
|
10871
10945
|
function Commands_User_Me_print($0, $1, $2, $3) {
|
|
10872
|
-
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}}}}}}}}});
|
|
10873
10947
|
}
|
|
10874
10948
|
|
|
10875
10949
|
/* Commands.User.Reflect.prCount : Fin 101 */
|
|
@@ -10889,7 +10963,7 @@ const Commands_User_Reflect_intro = __lazy(function () {
|
|
|
10889
10963
|
|
|
10890
10964
|
/* Commands.User.Reflect.header : Nat -> Doc AnsiStyle */
|
|
10891
10965
|
function Commands_User_Reflect_header($0) {
|
|
10892
|
-
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}}}}));
|
|
10893
10967
|
}
|
|
10894
10968
|
|
|
10895
10969
|
/* Commands.User.Reflect.graph : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Doc AnsiStyle */
|
|
@@ -10907,12 +10981,12 @@ function Commands_User_Reflect_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
|
10907
10981
|
|
|
10908
10982
|
/* Commands.User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
10909
10983
|
function Commands_User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10910
|
-
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}}}}}}}}}});
|
|
10911
10985
|
}
|
|
10912
10986
|
|
|
10913
10987
|
/* Commands.User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Nat -> Doc AnsiStyle */
|
|
10914
10988
|
function Commands_User_Reflect_chart($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10915
|
-
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}')))));
|
|
10916
10990
|
}
|
|
10917
10991
|
|
|
10918
10992
|
/* Theme.4411:1332:maybeAnnotate */
|
|
@@ -11003,95 +11077,95 @@ function Commands_PullRequest_case__githubTitleAndBodyPrefix_2919($0, $1, $2, $3
|
|
|
11003
11077
|
return $5 => {
|
|
11004
11078
|
switch($3.h) {
|
|
11005
11079
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: '', a2: ''}, $4, $5);
|
|
11006
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f => $10 =>
|
|
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);
|
|
11007
11081
|
}
|
|
11008
11082
|
};
|
|
11009
11083
|
}
|
|
11010
11084
|
|
|
11011
|
-
/* Commands.PullRequest.
|
|
11012
|
-
function
|
|
11085
|
+
/* Commands.PullRequest.10067:1999:userNotice */
|
|
11086
|
+
function Commands_PullRequest_n__10067_1999_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
11013
11087
|
switch($6.h) {
|
|
11014
11088
|
case 0: /* nothing */ {
|
|
11015
11089
|
switch($2.h) {
|
|
11016
11090
|
case 0: /* nil */ return 'no users';
|
|
11017
|
-
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}});
|
|
11018
11092
|
}
|
|
11019
11093
|
}
|
|
11020
|
-
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}});
|
|
11021
11095
|
}
|
|
11022
11096
|
}
|
|
11023
11097
|
|
|
11024
|
-
/* Commands.PullRequest.
|
|
11025
|
-
function
|
|
11098
|
+
/* Commands.PullRequest.10067:1998:teamNotice */
|
|
11099
|
+
function Commands_PullRequest_n__10067_1998_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
11026
11100
|
switch($6.h) {
|
|
11027
11101
|
case 0: /* nil */ return '';
|
|
11028
11102
|
case undefined: /* cons */ {
|
|
11029
11103
|
switch($6.a2.h) {
|
|
11030
|
-
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1: ' and team ', a2: {a1:
|
|
11031
|
-
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}}});
|
|
11032
11106
|
}
|
|
11033
11107
|
}
|
|
11034
|
-
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}}});
|
|
11035
11109
|
}
|
|
11036
11110
|
}
|
|
11037
11111
|
|
|
11038
|
-
/* Commands.PullRequest.
|
|
11039
|
-
function
|
|
11112
|
+
/* Commands.PullRequest.10961:2843:relatedToPrefix */
|
|
11113
|
+
function Commands_PullRequest_n__10961_2843_relatedToPrefix($0, $1, $2, $3) {
|
|
11040
11114
|
return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $9 => $9, {a1: 'Related to #', a2: {a1: $3, a2: {h: 0}}});
|
|
11041
11115
|
}
|
|
11042
11116
|
|
|
11043
|
-
/* Commands.PullRequest.
|
|
11044
|
-
function
|
|
11117
|
+
/* Commands.PullRequest.11195:3087:prCreationUrl */
|
|
11118
|
+
function Commands_PullRequest_n__11195_3087_prCreationUrl($0, $1, $2, $3, $4, $5) {
|
|
11045
11119
|
const $6 = $5.a3;
|
|
11046
11120
|
const $8 = $5.a2;
|
|
11047
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}}}}}}}});
|
|
11048
11122
|
}
|
|
11049
11123
|
|
|
11050
|
-
/* Commands.PullRequest.
|
|
11051
|
-
function
|
|
11124
|
+
/* Commands.PullRequest.10067:1997:prComment */
|
|
11125
|
+
function Commands_PullRequest_n__10067_1997_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11052
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}}}});
|
|
11053
11127
|
}
|
|
11054
11128
|
|
|
11055
|
-
/* Commands.PullRequest.
|
|
11056
|
-
function
|
|
11057
|
-
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}}));
|
|
11058
11132
|
}
|
|
11059
11133
|
|
|
11060
|
-
/* Commands.PullRequest.
|
|
11061
|
-
function
|
|
11062
|
-
return
|
|
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}}}));
|
|
11063
11137
|
}
|
|
11064
11138
|
|
|
11065
|
-
/* Commands.PullRequest.
|
|
11066
|
-
function
|
|
11139
|
+
/* Commands.PullRequest.10961:2842:issueNumber */
|
|
11140
|
+
function Commands_PullRequest_n__10961_2842_issueNumber($0, $1, $2) {
|
|
11067
11141
|
return Util_Github_parseGithubIssueNumber($1);
|
|
11068
11142
|
}
|
|
11069
11143
|
|
|
11070
|
-
/* Commands.PullRequest.
|
|
11071
|
-
function
|
|
11144
|
+
/* Commands.PullRequest.10961:2841:issueDescriptionPrefix */
|
|
11145
|
+
function Commands_PullRequest_n__10961_2841_issueDescriptionPrefix($0, $1, $2, $3, $4, $5) {
|
|
11072
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);
|
|
11073
11147
|
}
|
|
11074
11148
|
|
|
11075
|
-
/* Commands.PullRequest.
|
|
11076
|
-
function
|
|
11149
|
+
/* Commands.PullRequest.11195:3086:inlineDescriptionPrompt */
|
|
11150
|
+
function Commands_PullRequest_n__11195_3086_inlineDescriptionPrompt($0, $1, $2, $3, $4, $5) {
|
|
11077
11151
|
return 'What would you like the description to be (two blank lines to finish)?';
|
|
11078
11152
|
}
|
|
11079
11153
|
|
|
11080
|
-
/* Commands.PullRequest.
|
|
11081
|
-
function
|
|
11154
|
+
/* Commands.PullRequest.11195:3085:getBaseBranch */
|
|
11155
|
+
function Commands_PullRequest_n__11195_3085_getBaseBranch($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11082
11156
|
switch($3.h) {
|
|
11083
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);
|
|
11084
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);
|
|
11085
11159
|
}
|
|
11086
11160
|
}
|
|
11087
11161
|
|
|
11088
|
-
/* Commands.PullRequest.
|
|
11089
|
-
function
|
|
11162
|
+
/* Commands.PullRequest.9829:1725:forkedReviews */
|
|
11163
|
+
function Commands_PullRequest_n__9829_1725_forkedReviews($0, $1, $2, $3) {
|
|
11090
11164
|
return FFI_Concurrency_fork(csegen_74()(), ('reviews --json '+Prelude_Show_show_Show_Integer($3.a1)));
|
|
11091
11165
|
}
|
|
11092
11166
|
|
|
11093
|
-
/* Commands.PullRequest.
|
|
11094
|
-
function
|
|
11167
|
+
/* Commands.PullRequest.9252:1180:filterString */
|
|
11168
|
+
function Commands_PullRequest_n__9252_1180_filterString($0, $1, $2, $3, $4) {
|
|
11095
11169
|
switch($4.h) {
|
|
11096
11170
|
case 0: /* nothing */ return 'none';
|
|
11097
11171
|
case undefined: /* just */ {
|
|
@@ -11103,13 +11177,13 @@ function Commands_PullRequest_n__9246_1180_filterString($0, $1, $2, $3, $4) {
|
|
|
11103
11177
|
}
|
|
11104
11178
|
}
|
|
11105
11179
|
|
|
11106
|
-
/* Commands.PullRequest.
|
|
11107
|
-
function
|
|
11180
|
+
/* Commands.PullRequest.10067:1994:csv */
|
|
11181
|
+
function Commands_PullRequest_n__10067_1994_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
11108
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)));
|
|
11109
11183
|
}
|
|
11110
11184
|
|
|
11111
|
-
/* Commands.PullRequest.
|
|
11112
|
-
function
|
|
11185
|
+
/* Commands.PullRequest.11195:3084:createPR */
|
|
11186
|
+
function Commands_PullRequest_n__11195_3084_createPR($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11113
11187
|
const $3b = $3c => $3d => $3e => {
|
|
11114
11188
|
const $4c = $4d => $4e => $4f => {
|
|
11115
11189
|
switch($4d) {
|
|
@@ -11138,11 +11212,11 @@ function Commands_PullRequest_n__11189_3084_createPR($0, $1, $2, $3, $4, $5, $6,
|
|
|
11138
11212
|
let $153;
|
|
11139
11213
|
switch($154.h) {
|
|
11140
11214
|
case 0: /* nothing */ {
|
|
11141
|
-
$153 = Util_Prompting_inlineDescription(csegen_74()(),
|
|
11215
|
+
$153 = Util_Prompting_inlineDescription(csegen_74()(), Commands_PullRequest_n__11195_3086_inlineDescriptionPrompt($0, $1, $2, $3, $4, $5), $10b.a2);
|
|
11142
11216
|
break;
|
|
11143
11217
|
}
|
|
11144
11218
|
case undefined: /* just */ {
|
|
11145
|
-
$153 = $164 => $165 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11219
|
+
$153 = $164 => $165 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_710(), Util_Prompting_editorDescription(csegen_74()(), $154.a1, {a1: templateFilePath}, $10b.a2), $164, $165);
|
|
11146
11220
|
break;
|
|
11147
11221
|
}
|
|
11148
11222
|
}
|
|
@@ -11158,7 +11232,7 @@ function Commands_PullRequest_n__11189_3084_createPR($0, $1, $2, $3, $4, $5, $6,
|
|
|
11158
11232
|
};
|
|
11159
11233
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_getTitleAndBodyPrefix($5, $1, $2), $10a, $102, $103);
|
|
11160
11234
|
};
|
|
11161
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f6 => $f7 =>
|
|
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);
|
|
11162
11236
|
};
|
|
11163
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);
|
|
11164
11238
|
};
|
|
@@ -11167,32 +11241,32 @@ function Commands_PullRequest_n__11189_3084_createPR($0, $1, $2, $3, $4, $5, $6,
|
|
|
11167
11241
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $60, $61);
|
|
11168
11242
|
}
|
|
11169
11243
|
};
|
|
11170
|
-
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);
|
|
11171
11245
|
}
|
|
11172
11246
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $4e, $4f);
|
|
11173
11247
|
}
|
|
11174
11248
|
};
|
|
11175
|
-
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);
|
|
11176
11250
|
};
|
|
11177
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);
|
|
11178
11252
|
}
|
|
11179
11253
|
|
|
11180
|
-
/* Commands.PullRequest.
|
|
11181
|
-
function
|
|
11254
|
+
/* Commands.PullRequest.11195:3083:continueGivenUncommittedChanges */
|
|
11255
|
+
function Commands_PullRequest_n__11195_3083_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11182
11256
|
const $10 = $11 => $12 => $13 => {
|
|
11183
11257
|
switch($11.h) {
|
|
11184
|
-
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);
|
|
11185
11259
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $12, $13);
|
|
11186
11260
|
}
|
|
11187
11261
|
};
|
|
11188
11262
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => FFI_Git_uncommittedChanges($0, $a, $b), $10, $6, $7);
|
|
11189
11263
|
}
|
|
11190
11264
|
|
|
11191
|
-
/* Commands.PullRequest.
|
|
11192
|
-
function
|
|
11265
|
+
/* Commands.PullRequest.11195:3082:continueGivenStagedChanges */
|
|
11266
|
+
function Commands_PullRequest_n__11195_3082_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11193
11267
|
const $10 = $11 => $12 => $13 => {
|
|
11194
11268
|
switch($11.h) {
|
|
11195
|
-
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);
|
|
11196
11270
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $12, $13);
|
|
11197
11271
|
}
|
|
11198
11272
|
};
|
|
@@ -11201,12 +11275,12 @@ function Commands_PullRequest_n__11189_3082_continueGivenStagedChanges($0, $1, $
|
|
|
11201
11275
|
|
|
11202
11276
|
/* Commands.PullRequest.(.allReviewers) : PRHistory -> (List String, List String) */
|
|
11203
11277
|
function Commands_PullRequest_rf__allReviewers($0) {
|
|
11204
|
-
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);
|
|
11205
11279
|
}
|
|
11206
11280
|
|
|
11207
11281
|
/* Commands.PullRequest.reviewsForPrs : Config => Octokit => List PullRequest -> Promise' (List Review) */
|
|
11208
11282
|
function Commands_PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
|
|
11209
|
-
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);
|
|
11210
11284
|
}
|
|
11211
11285
|
|
|
11212
11286
|
/* Commands.PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise' (List Review) */
|
|
@@ -11293,8 +11367,8 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11293
11367
|
return $7f => {
|
|
11294
11368
|
switch($0.a8) {
|
|
11295
11369
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $7d, $7f);
|
|
11296
|
-
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
11297
|
-
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);
|
|
11298
11372
|
}
|
|
11299
11373
|
};
|
|
11300
11374
|
}
|
|
@@ -11318,11 +11392,11 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11318
11392
|
let $bf;
|
|
11319
11393
|
switch($c0) {
|
|
11320
11394
|
case 1: {
|
|
11321
|
-
$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);
|
|
11322
11396
|
break;
|
|
11323
11397
|
}
|
|
11324
11398
|
case 0: {
|
|
11325
|
-
$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);
|
|
11326
11400
|
break;
|
|
11327
11401
|
}
|
|
11328
11402
|
}
|
|
@@ -11387,8 +11461,8 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6, $7)
|
|
|
11387
11461
|
return $21 => {
|
|
11388
11462
|
const $2a = $2b => $2c => $2d => {
|
|
11389
11463
|
switch($2b) {
|
|
11390
|
-
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($31 => ({h: 0 /* Actual */, a1: 1, a2: $31}), $35 => $36 =>
|
|
11391
|
-
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);
|
|
11392
11466
|
}
|
|
11393
11467
|
};
|
|
11394
11468
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(System_File_Meta_isTTY(csegen_74()(), System_File_Virtual_stdout()), $2a, $13, $21);
|
|
@@ -11402,7 +11476,7 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6, $7)
|
|
|
11402
11476
|
|
|
11403
11477
|
/* Commands.PullRequest.githubTitleAndBodyPrefix : Config => Octokit => String -> Promise' (String, String) */
|
|
11404
11478
|
function Commands_PullRequest_githubTitleAndBodyPrefix($0, $1, $2) {
|
|
11405
|
-
return $3 => Commands_PullRequest_case__githubTitleAndBodyPrefix_2919($1, $2, $0,
|
|
11479
|
+
return $3 => Commands_PullRequest_case__githubTitleAndBodyPrefix_2919($1, $2, $0, Commands_PullRequest_n__10961_2842_issueNumber($1, $2, $0), $3);
|
|
11406
11480
|
}
|
|
11407
11481
|
|
|
11408
11482
|
/* Commands.PullRequest.getTitleAndBodyPrefix : Config => Octokit => String -> Promise' (String, String) */
|
|
@@ -11416,7 +11490,7 @@ function Commands_PullRequest_getTitleAndBodyPrefix($0, $1, $2) {
|
|
|
11416
11490
|
|
|
11417
11491
|
/* Commands.PullRequest.forkedPRs : Maybe GitHubPRState -> Nat -> Nat -> Nat -> () -> Promise' Future */
|
|
11418
11492
|
function Commands_PullRequest_forkedPRs($0, $1, $2, $3, $4) {
|
|
11419
|
-
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}}}}}}}));
|
|
11420
11494
|
}
|
|
11421
11495
|
|
|
11422
11496
|
/* Commands.PullRequest.empty : PRHistory */
|
|
@@ -11538,7 +11612,7 @@ function Util_Github_n__2629_823_go($0, $1) {
|
|
|
11538
11612
|
|
|
11539
11613
|
/* Util.Github.parseGithubIssueNumber : String -> Maybe String */
|
|
11540
11614
|
function Util_Github_parseGithubIssueNumber($0) {
|
|
11541
|
-
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))));
|
|
11542
11616
|
}
|
|
11543
11617
|
|
|
11544
11618
|
/* Util.Jira.2629:820:startOver */
|
|
@@ -11598,30 +11672,30 @@ function Util_Jira_n__2629_818_go($0, $1) {
|
|
|
11598
11672
|
|
|
11599
11673
|
/* Util.Jira.parseJiraSlug : String -> Maybe String */
|
|
11600
11674
|
function Util_Jira_parseJiraSlug($0) {
|
|
11601
|
-
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))));
|
|
11602
11676
|
}
|
|
11603
11677
|
|
|
11604
11678
|
/* Data.Pagination.with block in metaPages' */
|
|
11605
|
-
function
|
|
11679
|
+
function Data_Pagination_with__metaPagesx27_7597($0, $1, $2, $3, $4, $5, $6) {
|
|
11606
11680
|
const $7 = $8 => Data_Pagination_divNatNZLemma($0, $1, $6);
|
|
11607
11681
|
return Data_Pagination_pagesHelper(0n, $0, $3, $7(undefined), $5);
|
|
11608
11682
|
}
|
|
11609
11683
|
|
|
11610
11684
|
/* Data.Pagination.with block in with block in divNatNZLemma */
|
|
11611
|
-
function
|
|
11685
|
+
function Data_Pagination_with__withx20blockx20inx20divNatNZLemma_7538($0, $1, $2, $3, $4, $5) {
|
|
11612
11686
|
return Prelude_Uninhabited_void$();
|
|
11613
11687
|
}
|
|
11614
11688
|
|
|
11615
11689
|
/* Data.Pagination.with block in divNatNZLemma */
|
|
11616
|
-
function
|
|
11690
|
+
function Data_Pagination_with__divNatNZLemma_7520($0, $1, $2, $3, $4, $5) {
|
|
11617
11691
|
switch($2) {
|
|
11618
11692
|
case 0: return 1n;
|
|
11619
|
-
case 1: return
|
|
11693
|
+
case 1: return Data_Pagination_with__withx20blockx20inx20divNatNZLemma_7538($1, $0, $5, $c => Data_Nat_LTEImpliesNotGT($5, $c), $3, undefined);
|
|
11620
11694
|
}
|
|
11621
11695
|
}
|
|
11622
11696
|
|
|
11623
11697
|
/* Data.Pagination.with block in pagesHelper */
|
|
11624
|
-
function
|
|
11698
|
+
function Data_Pagination_with__pagesHelper_7380($0, $1, $2, $3, $4, $5) {
|
|
11625
11699
|
switch($2.h) {
|
|
11626
11700
|
case 0: /* Yes */ {
|
|
11627
11701
|
const $7 = Data_Pagination_lemma($0, $1, $2.a1);
|
|
@@ -11632,12 +11706,12 @@ function Data_Pagination_with__pagesHelper_7234($0, $1, $2, $3, $4, $5) {
|
|
|
11632
11706
|
}
|
|
11633
11707
|
|
|
11634
11708
|
/* Data.Pagination.with block in nonTerminalPage */
|
|
11635
|
-
function
|
|
11709
|
+
function Data_Pagination_with__nonTerminalPage_7359($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11636
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)};
|
|
11637
11711
|
}
|
|
11638
11712
|
|
|
11639
11713
|
/* Data.Pagination.with block in lemma */
|
|
11640
|
-
function
|
|
11714
|
+
function Data_Pagination_with__lemma_7262($0, $1, $2, $3, $4) {
|
|
11641
11715
|
return {a1: ($3.a1+1n), a2: {a1: undefined, a2: 1n}};
|
|
11642
11716
|
}
|
|
11643
11717
|
|
|
@@ -11686,21 +11760,21 @@ function Data_Pagination_traversex27($0, $1, $2) {
|
|
|
11686
11760
|
/* Data.Pagination.pagesHelper : (page : Nat) -> (remainingItems : Nat) -> (perPage : Nat) -> GT perPage 0 =>
|
|
11687
11761
|
GT remainingItems 0 => PaginationShape remainingItems perPage page */
|
|
11688
11762
|
function Data_Pagination_pagesHelper($0, $1, $2, $3, $4) {
|
|
11689
|
-
return
|
|
11763
|
+
return Data_Pagination_with__pagesHelper_7380($2, $1, Data_Nat_isLT($2, $1), $3, $4, $0);
|
|
11690
11764
|
}
|
|
11691
11765
|
|
|
11692
11766
|
/* Data.Pagination.nonTerminalPage : (page : Nat) -> (remainingItems : Nat) -> (perPage : Nat) ->
|
|
11693
11767
|
{auto 0 _ : remainder + perPage = remainingItems} -> GT perPage 0 =>
|
|
11694
11768
|
GT remainder 0 => PaginationShape remainingItems perPage page */
|
|
11695
11769
|
function Data_Pagination_nonTerminalPage($0, $1, $2, $3, $4, $5) {
|
|
11696
|
-
return
|
|
11770
|
+
return Data_Pagination_with__nonTerminalPage_7359($0, $3, $2, undefined, undefined, $5, $4, $1);
|
|
11697
11771
|
}
|
|
11698
11772
|
|
|
11699
11773
|
/* Data.Pagination.metaPages' : (items : Nat) -> (pages : Nat) -> GT items 0 => {auto 0 pagesOk : GT pages 0} ->
|
|
11700
11774
|
LTE pages items =>
|
|
11701
11775
|
PaginationShape items (divNatNZ items pages (gtIsNonZero pagesOk)) 0 */
|
|
11702
11776
|
function Data_Pagination_metaPagesx27($0, $1, $2, $3) {
|
|
11703
|
-
return
|
|
11777
|
+
return Data_Pagination_with__metaPagesx27_7597($0, $1, undefined, Data_Nat_divNatNZ($0, $1), undefined, $2, $3);
|
|
11704
11778
|
}
|
|
11705
11779
|
|
|
11706
11780
|
/* Data.Pagination.metaPages : (items : Nat) -> (perPage : Nat) -> GT items 0 => GT perPage 0 =>
|
|
@@ -11724,7 +11798,7 @@ function Data_Pagination_lemma($0, $1, $2) {
|
|
|
11724
11798
|
case 0n: _crashExp('Nat case not covered');
|
|
11725
11799
|
default: {
|
|
11726
11800
|
const $8 = ($2-1n);
|
|
11727
|
-
return
|
|
11801
|
+
return Data_Pagination_with__lemma_7262($0, $4, $8, Data_Pagination_lemmax27($0, $4, $8), $1);
|
|
11728
11802
|
}
|
|
11729
11803
|
}
|
|
11730
11804
|
}
|
|
@@ -11746,7 +11820,7 @@ function Data_Pagination_divNatNZLemma($0, $1, $2) {
|
|
|
11746
11820
|
case 0n: _crashExp('Nat case not covered');
|
|
11747
11821
|
default: {
|
|
11748
11822
|
const $a = ($1-1n);
|
|
11749
|
-
return
|
|
11823
|
+
return Data_Pagination_with__divNatNZLemma_7520($a, $6, Data_Nat_lte(($6+1n), $a), undefined, undefined, $2);
|
|
11750
11824
|
}
|
|
11751
11825
|
}
|
|
11752
11826
|
}
|
|
@@ -11867,14 +11941,14 @@ function Data_List_DeleteBy_deleteByx27($0, $1, $2) {
|
|
|
11867
11941
|
}
|
|
11868
11942
|
}
|
|
11869
11943
|
|
|
11870
|
-
/* Commands.Quick.
|
|
11871
|
-
function
|
|
11944
|
+
/* Commands.Quick.5813:5631:issuePrompt */
|
|
11945
|
+
function Commands_Quick_n__5813_5631_issuePrompt($0, $1, $2, $3, $4) {
|
|
11872
11946
|
return 'What would you like the issue description to be (two blank lines to finish)?';
|
|
11873
11947
|
}
|
|
11874
11948
|
|
|
11875
|
-
/* Commands.Quick.
|
|
11876
|
-
function
|
|
11877
|
-
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));
|
|
11878
11952
|
}
|
|
11879
11953
|
|
|
11880
11954
|
/* Commands.Quick.show */
|
|
@@ -11885,40 +11959,43 @@ function Commands_Quick_show_Show_IssueCategory($0) {
|
|
|
11885
11959
|
}
|
|
11886
11960
|
}
|
|
11887
11961
|
|
|
11888
|
-
/* Commands.Quick.quickStartNewWork : Config => Git => Octokit => IssueCategory -> Promise' () */
|
|
11889
|
-
function Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5) {
|
|
11890
|
-
const $
|
|
11891
|
-
const $
|
|
11892
|
-
const $
|
|
11893
|
-
|
|
11894
|
-
|
|
11895
|
-
|
|
11896
|
-
|
|
11897
|
-
|
|
11898
|
-
|
|
11899
|
-
|
|
11900
|
-
|
|
11901
|
-
|
|
11902
|
-
|
|
11903
|
-
|
|
11904
|
-
|
|
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;
|
|
11905
11979
|
}
|
|
11906
|
-
|
|
11907
|
-
|
|
11908
|
-
|
|
11909
|
-
|
|
11910
|
-
|
|
11911
|
-
|
|
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);
|
|
11912
11989
|
};
|
|
11913
|
-
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);
|
|
11914
11991
|
};
|
|
11915
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11992
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($41, $60, $3e, $3f);
|
|
11916
11993
|
};
|
|
11917
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($22
|
|
11994
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($22, $3d, $1f, $20);
|
|
11918
11995
|
};
|
|
11919
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $
|
|
11996
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1d, $17, $18);
|
|
11920
11997
|
};
|
|
11921
|
-
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);
|
|
11922
11999
|
}
|
|
11923
12000
|
|
|
11924
12001
|
/* Commands.Label.unslugifyLabel : List String -> String -> String */
|
|
@@ -11937,7 +12014,7 @@ function Commands_Label_addLabels($0, $1, $2, $3, $4, $5) {
|
|
|
11937
12014
|
|
|
11938
12015
|
/* Commands.Graph.7730:7016:pendingDot */
|
|
11939
12016
|
function Commands_Graph_n__7730_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11940
|
-
return Theme_theme($7,
|
|
12017
|
+
return Theme_theme($7, csegen_696(), csegen_694(), 6)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
|
|
11941
12018
|
}
|
|
11942
12019
|
|
|
11943
12020
|
/* Commands.Graph.7730:7015:note */
|
|
@@ -11947,7 +12024,7 @@ function Commands_Graph_n__7730_7015_note($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
11947
12024
|
|
|
11948
12025
|
/* Commands.Graph.7730:7014:missedDot */
|
|
11949
12026
|
function Commands_Graph_n__7730_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11950
|
-
return Theme_theme($7,
|
|
12027
|
+
return Theme_theme($7, csegen_695(), csegen_695(), 7)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
|
|
11951
12028
|
}
|
|
11952
12029
|
|
|
11953
12030
|
/* Commands.Graph.7730:7013:maxValue */
|
|
@@ -11976,7 +12053,7 @@ function Commands_Graph_n__7730_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11976
12053
|
break;
|
|
11977
12054
|
}
|
|
11978
12055
|
}
|
|
11979
|
-
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()}};
|
|
11980
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};
|
|
11981
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};
|
|
11982
12059
|
const $f = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $14};
|
|
@@ -11987,7 +12064,7 @@ function Commands_Graph_n__7730_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11987
12064
|
|
|
11988
12065
|
/* Commands.Graph.7327:6604:header */
|
|
11989
12066
|
function Commands_Graph_n__7327_6604_header($0, $1, $2, $3) {
|
|
11990
|
-
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()}}}));
|
|
11991
12068
|
}
|
|
11992
12069
|
|
|
11993
12070
|
/* Commands.Graph.7327:6603:graphable */
|
|
@@ -12010,20 +12087,20 @@ function Commands_Graph_n__6760_6183_countInParens($0, $1, $2, $3, $4) {
|
|
|
12010
12087
|
|
|
12011
12088
|
/* Commands.Graph.7730:7010:completedBox */
|
|
12012
12089
|
function Commands_Graph_n__7730_7010_completedBox($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
12013
|
-
return Theme_theme($7,
|
|
12090
|
+
return Theme_theme($7, csegen_675(), csegen_675(), 3)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25aa}'));
|
|
12014
12091
|
}
|
|
12015
12092
|
|
|
12016
12093
|
/* Commands.Graph.6760:6182:coloredLabel */
|
|
12017
12094
|
function Commands_Graph_n__6760_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
12018
12095
|
switch((($4.a2===0n)?1:0)) {
|
|
12019
|
-
case 1: return Theme_theme($0,
|
|
12096
|
+
case 1: return Theme_theme($0, csegen_675(), csegen_675(), 0)($2.a1(undefined)($4.a1));
|
|
12020
12097
|
case 0: {
|
|
12021
12098
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 2n)) {
|
|
12022
12099
|
case 1: return $2.a1(undefined)($4.a1);
|
|
12023
12100
|
case 0: {
|
|
12024
12101
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 6n)) {
|
|
12025
|
-
case 1: return Theme_theme($0,
|
|
12026
|
-
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));
|
|
12027
12104
|
}
|
|
12028
12105
|
}
|
|
12029
12106
|
}
|
|
@@ -12163,9 +12240,9 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12163
12240
|
|
|
12164
12241
|
/* Commands.Graph.healthGraph : Config => List PullRequest -> String -> String -> Doc AnsiStyle */
|
|
12165
12242
|
function Commands_Graph_healthGraph($0, $1, $2, $3) {
|
|
12166
|
-
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));
|
|
12167
12244
|
const $1e = Prelude_Types_foldr_Foldable_List(xs => m => Prelude_Types_max_Ord_Nat(Data_List1_length(xs), m), 1n, $4);
|
|
12168
|
-
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}}}}}});
|
|
12169
12246
|
}
|
|
12170
12247
|
|
|
12171
12248
|
/* Commands.Graph.graphOne : Config -> Graphable g => Nat -> Nat -> Nat -> g -> Doc AnsiStyle */
|
|
@@ -12188,7 +12265,7 @@ function Commands_Graph_countPadRight($0, $1, $2) {
|
|
|
12188
12265
|
|
|
12189
12266
|
/* Commands.Graph.bar : Config -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
12190
12267
|
function Commands_Graph_bar($0, $1, $2, $3, $4) {
|
|
12191
|
-
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}}}}));
|
|
12192
12269
|
}
|
|
12193
12270
|
|
|
12194
12271
|
|