@mattpolzin/harmony 5.5.1 → 5.7.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 +194 -67
- package/harmony +779 -608
- package/man/harmony.1 +23 -3
- package/package.json +1 -1
package/harmony
CHANGED
|
@@ -649,6 +649,7 @@ const digIssue = issue => {
|
|
|
649
649
|
author: issue.user.login,
|
|
650
650
|
created_at: issue.created_at,
|
|
651
651
|
title: issue.title,
|
|
652
|
+
body: issue.body,
|
|
652
653
|
assignee: issue.assignee ? issue.assignee.login : null
|
|
653
654
|
}
|
|
654
655
|
}
|
|
@@ -664,6 +665,15 @@ const okit_create_issue = (octokit, owner, repo, title, body, onSuccess, onFailu
|
|
|
664
665
|
onFailure
|
|
665
666
|
)
|
|
666
667
|
|
|
668
|
+
// Get a single Issue
|
|
669
|
+
// Executes callback with stringified JSON {"issue_number": Int, "author": String, "created_at": Date, "title": String, "assignee": String?}
|
|
670
|
+
const okit_get_issue = (octokit, owner, repo, issue_number, onSuccess, onFailure) =>
|
|
671
|
+
idris__okit_unpromisify(
|
|
672
|
+
octokit.rest.issues.get({ owner, repo, issue_number }),
|
|
673
|
+
r => onSuccess(JSON.stringify(digIssue(r.data))),
|
|
674
|
+
onFailure
|
|
675
|
+
)
|
|
676
|
+
|
|
667
677
|
// list team members
|
|
668
678
|
const digUserLogins = usersJson =>
|
|
669
679
|
usersJson.map(u => u.login)
|
|
@@ -980,6 +990,7 @@ const FFI_GitHub_prim__getUser = okit_get_user;
|
|
|
980
990
|
const FFI_GitHub_prim__getSelf = okit_get_self;
|
|
981
991
|
const FFI_GitHub_prim__getRepoDefaultBranch = okit_get_repo_default_branch;
|
|
982
992
|
const FFI_GitHub_prim__getPullRequestGraphQlId = okit_get_pr_graphql_id;
|
|
993
|
+
const FFI_GitHub_prim__getIssue = okit_get_issue;
|
|
983
994
|
const FFI_GitHub_prim__createPR = okit_create_pr;
|
|
984
995
|
const FFI_GitHub_prim__createIssue = okit_create_issue;
|
|
985
996
|
const FFI_GitHub_prim__createComment = okit_create_comment;
|
|
@@ -1010,7 +1021,7 @@ function x24tcOpt_1($0) {
|
|
|
1010
1021
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
1011
1022
|
default: {
|
|
1012
1023
|
const $17 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1013
|
-
const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($0.a1.a1.a1,
|
|
1024
|
+
const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($0.a1.a1.a1, csegen_754(), $1e, $1f), $17, $0.a6);
|
|
1014
1025
|
switch($1b.a1.h) {
|
|
1015
1026
|
case 0: /* nothing */ {
|
|
1016
1027
|
switch($0.a8) {
|
|
@@ -1025,7 +1036,7 @@ function x24tcOpt_1($0) {
|
|
|
1025
1036
|
}
|
|
1026
1037
|
default: {
|
|
1027
1038
|
const $64 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1028
|
-
const $68 = Data_List_DeleteBy_deleteByx27($6b => $6c => Prelude_Basics_on($0.a1.a1.a1,
|
|
1039
|
+
const $68 = Data_List_DeleteBy_deleteByx27($6b => $6c => Prelude_Basics_on($0.a1.a1.a1, csegen_754(), $6b, $6c), $64, $0.a6);
|
|
1029
1040
|
switch($68.a1.h) {
|
|
1030
1041
|
case 0: /* nothing */ {
|
|
1031
1042
|
switch($0.a8) {
|
|
@@ -1050,7 +1061,7 @@ function x24tcOpt_1($0) {
|
|
|
1050
1061
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
1051
1062
|
default: {
|
|
1052
1063
|
const $b5 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1053
|
-
const $b9 = Data_List_DeleteBy_deleteByx27($bc => $bd => Prelude_Basics_on($0.a1.a1.a1,
|
|
1064
|
+
const $b9 = Data_List_DeleteBy_deleteByx27($bc => $bd => Prelude_Basics_on($0.a1.a1.a1, csegen_754(), $bc, $bd), $b5, $0.a6);
|
|
1054
1065
|
switch($b9.a1.h) {
|
|
1055
1066
|
case 0: /* nothing */ {
|
|
1056
1067
|
switch($0.a8) {
|
|
@@ -1065,7 +1076,7 @@ function x24tcOpt_1($0) {
|
|
|
1065
1076
|
}
|
|
1066
1077
|
default: {
|
|
1067
1078
|
const $102 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1068
|
-
const $106 = Data_List_DeleteBy_deleteByx27($109 => $10a => Prelude_Basics_on($0.a1.a1.a1,
|
|
1079
|
+
const $106 = Data_List_DeleteBy_deleteByx27($109 => $10a => Prelude_Basics_on($0.a1.a1.a1, csegen_754(), $109, $10a), $102, $0.a6);
|
|
1069
1080
|
switch($106.a1.h) {
|
|
1070
1081
|
case 0: /* nothing */ {
|
|
1071
1082
|
switch($0.a8) {
|
|
@@ -1104,8 +1115,8 @@ function x24tcOpt_2($0) {
|
|
|
1104
1115
|
}
|
|
1105
1116
|
}
|
|
1106
1117
|
|
|
1107
|
-
/* Data.List.
|
|
1108
|
-
function
|
|
1118
|
+
/* Data.List.7781:8363:splitRec */
|
|
1119
|
+
function Data_List_n__7781_8363_splitRec($0, $1, $2, $3, $4) {
|
|
1109
1120
|
return __tailRec(x24tcOpt_2, {h: 1 /* {TcContinue2:1} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4});
|
|
1110
1121
|
}
|
|
1111
1122
|
|
|
@@ -1122,8 +1133,8 @@ function x24tcOpt_3($0) {
|
|
|
1122
1133
|
}
|
|
1123
1134
|
}
|
|
1124
1135
|
|
|
1125
|
-
/* Prelude.Show.
|
|
1126
|
-
function
|
|
1136
|
+
/* Prelude.Show.3215:12601:show' */
|
|
1137
|
+
function Prelude_Show_n__3215_12601_showx27($0, $1, $2, $3) {
|
|
1127
1138
|
return __tailRec(x24tcOpt_3, {h: 1 /* {TcContinue3:1} */, a1: $0, a2: $1, a3: $2, a4: $3});
|
|
1128
1139
|
}
|
|
1129
1140
|
|
|
@@ -1367,7 +1378,7 @@ function Prelude_Types_compare_Ord_x28Listx20x24ax29($0, $1, $2) {
|
|
|
1367
1378
|
}
|
|
1368
1379
|
|
|
1369
1380
|
/* Prelude.Types.case block in compare */
|
|
1370
|
-
function
|
|
1381
|
+
function Prelude_Types_case__compare_6803($0, $1, $2, $3, $4, $5) {
|
|
1371
1382
|
return __tailRec(x24tcOpt_6, {h: 2 /* {TcContinue6:2} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5});
|
|
1372
1383
|
}
|
|
1373
1384
|
|
|
@@ -1708,14 +1719,14 @@ function x24tcOpt_15($0) {
|
|
|
1708
1719
|
case undefined: /* cons */ {
|
|
1709
1720
|
switch(Prelude_Types_elemBy(csegen_147(), $0.a2, $0.a3.a1)($0.a1)) {
|
|
1710
1721
|
case 1: return {h: 1 /* {TcContinue15:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3.a2};
|
|
1711
|
-
case 0: return {h: 0 /* {TcDone:15} */, a1: {a1: $0.a3.a1, a2:
|
|
1722
|
+
case 0: return {h: 0 /* {TcDone:15} */, a1: {a1: $0.a3.a1, a2: Data_List_n__4928_5587_nubByx27({a1: $0.a3.a1, a2: $0.a1}, $0.a2, $0.a3.a2)}};
|
|
1712
1723
|
}
|
|
1713
1724
|
}
|
|
1714
1725
|
}
|
|
1715
1726
|
}
|
|
1716
1727
|
|
|
1717
|
-
/* Data.List.4928:
|
|
1718
|
-
function
|
|
1728
|
+
/* Data.List.4928:5587:nubBy' */
|
|
1729
|
+
function Data_List_n__4928_5587_nubByx27($0, $1, $2) {
|
|
1719
1730
|
return __tailRec(x24tcOpt_15, {h: 1 /* {TcContinue15:1} */, a1: $0, a2: $1, a3: $2});
|
|
1720
1731
|
}
|
|
1721
1732
|
|
|
@@ -1745,7 +1756,7 @@ function x24tcOpt_16($0) {
|
|
|
1745
1756
|
}
|
|
1746
1757
|
|
|
1747
1758
|
/* Data.String.with block in ltrim */
|
|
1748
|
-
function
|
|
1759
|
+
function Data_String_with__ltrim_9718($0, $1) {
|
|
1749
1760
|
return __tailRec(x24tcOpt_16, {h: 1 /* {TcContinue16:1} */, a1: $0, a2: $1});
|
|
1750
1761
|
}
|
|
1751
1762
|
|
|
@@ -1857,16 +1868,16 @@ function x24tcOpt_21($0) {
|
|
|
1857
1868
|
case 0: /* nil */ return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: {h: 0}}};
|
|
1858
1869
|
case undefined: /* cons */ {
|
|
1859
1870
|
switch($0.a3.a1) {
|
|
1860
|
-
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1871
|
+
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3989_9556_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1861
1872
|
case '\r': {
|
|
1862
1873
|
switch($0.a3.a2.h) {
|
|
1863
1874
|
case undefined: /* cons */ {
|
|
1864
1875
|
switch($0.a3.a2.a1) {
|
|
1865
|
-
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1866
|
-
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1876
|
+
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3989_9556_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_9556_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1867
1878
|
}
|
|
1868
1879
|
}
|
|
1869
|
-
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1880
|
+
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3989_9556_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1870
1881
|
}
|
|
1871
1882
|
}
|
|
1872
1883
|
default: return {h: 1 /* {TcContinue21:1} */, a1: $0.a1, a2: {a1: $0.a3.a1, a2: $0.a2}, a3: $0.a3.a2};
|
|
@@ -1881,16 +1892,16 @@ function x24tcOpt_21($0) {
|
|
|
1881
1892
|
case 0: /* nil */ return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: {h: 0}}};
|
|
1882
1893
|
case undefined: /* cons */ {
|
|
1883
1894
|
switch($0.a3.a1) {
|
|
1884
|
-
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1895
|
+
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3989_9556_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1885
1896
|
case '\r': {
|
|
1886
1897
|
switch($0.a3.a2.h) {
|
|
1887
1898
|
case undefined: /* cons */ {
|
|
1888
1899
|
switch($0.a3.a2.a1) {
|
|
1889
|
-
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1890
|
-
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1900
|
+
case '\n': return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3989_9556_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_9556_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1891
1902
|
}
|
|
1892
1903
|
}
|
|
1893
|
-
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2:
|
|
1904
|
+
default: return {h: 0 /* {TcDone:21} */, a1: {a1: Prelude_Types_List_reverse($0.a2), a2: Data_String_n__3989_9556_linesHelp($0.a1, {h: 0}, $0.a3.a2)}};
|
|
1894
1905
|
}
|
|
1895
1906
|
}
|
|
1896
1907
|
default: return {h: 1 /* {TcContinue21:1} */, a1: $0.a1, a2: {a1: $0.a3.a1, a2: $0.a2}, a3: $0.a3.a2};
|
|
@@ -1901,8 +1912,8 @@ function x24tcOpt_21($0) {
|
|
|
1901
1912
|
}
|
|
1902
1913
|
}
|
|
1903
1914
|
|
|
1904
|
-
/* Data.String.3989:
|
|
1905
|
-
function
|
|
1915
|
+
/* Data.String.3989:9556:linesHelp */
|
|
1916
|
+
function Data_String_n__3989_9556_linesHelp($0, $1, $2) {
|
|
1906
1917
|
return __tailRec(x24tcOpt_21, {h: 1 /* {TcContinue21:1} */, a1: $0, a2: $1, a3: $2});
|
|
1907
1918
|
}
|
|
1908
1919
|
|
|
@@ -2816,168 +2827,168 @@ const csegen_328 = __lazy(function () {
|
|
|
2816
2827
|
return $0 => $1 => (($0===$1)?1:0);
|
|
2817
2828
|
});
|
|
2818
2829
|
|
|
2819
|
-
/* {csegen:
|
|
2820
|
-
const
|
|
2830
|
+
/* {csegen:346} */
|
|
2831
|
+
const csegen_346 = __lazy(function () {
|
|
2821
2832
|
return $0 => Language_JSON_Accessors_array($3 => Data_PullRequest_parsePR($3), $0);
|
|
2822
2833
|
});
|
|
2823
2834
|
|
|
2824
|
-
/* {csegen:
|
|
2825
|
-
const
|
|
2835
|
+
/* {csegen:359} */
|
|
2836
|
+
const csegen_359 = __lazy(function () {
|
|
2826
2837
|
return $0 => Prelude_EqOrd_x3dx3d_Eq_Char($0, '/');
|
|
2827
2838
|
});
|
|
2828
2839
|
|
|
2829
|
-
/* {csegen:
|
|
2830
|
-
const
|
|
2840
|
+
/* {csegen:365} */
|
|
2841
|
+
const csegen_365 = __lazy(function () {
|
|
2831
2842
|
return () => $0 => $0.a1;
|
|
2832
2843
|
});
|
|
2833
2844
|
|
|
2834
|
-
/* {csegen:
|
|
2835
|
-
const
|
|
2845
|
+
/* {csegen:378} */
|
|
2846
|
+
const csegen_378 = __lazy(function () {
|
|
2836
2847
|
return () => $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Number(_truncUBigInt32($4)), System_time(csegen_74()()), $0, $1);
|
|
2837
2848
|
});
|
|
2838
2849
|
|
|
2839
|
-
/* {csegen:
|
|
2840
|
-
const
|
|
2850
|
+
/* {csegen:383} */
|
|
2851
|
+
const csegen_383 = __lazy(function () {
|
|
2841
2852
|
return $0 => $1 => $2 => $3 => Prelude_Types_map_Functor_Maybe($2, $3);
|
|
2842
2853
|
});
|
|
2843
2854
|
|
|
2844
|
-
/* {csegen:
|
|
2845
|
-
const
|
|
2855
|
+
/* {csegen:404} */
|
|
2856
|
+
const csegen_404 = __lazy(function () {
|
|
2846
2857
|
return () => $0 => $1 => $2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($5 => Prelude_IO_prim__putStr('\n', $5), $0, $1, $2);
|
|
2847
2858
|
});
|
|
2848
2859
|
|
|
2849
|
-
/* {csegen:
|
|
2850
|
-
const
|
|
2860
|
+
/* {csegen:406} */
|
|
2861
|
+
const csegen_406 = __lazy(function () {
|
|
2851
2862
|
return () => $0 => $1 => $2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($5 => Prelude_IO_prim__getStr($5), $0, $1, $2);
|
|
2852
2863
|
});
|
|
2853
2864
|
|
|
2854
|
-
/* {csegen:
|
|
2855
|
-
const
|
|
2865
|
+
/* {csegen:408} */
|
|
2866
|
+
const csegen_408 = __lazy(function () {
|
|
2856
2867
|
return () => $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 0}, $0, $1);
|
|
2857
2868
|
});
|
|
2858
2869
|
|
|
2859
|
-
/* {csegen:
|
|
2860
|
-
const
|
|
2870
|
+
/* {csegen:422} */
|
|
2871
|
+
const csegen_422 = __lazy(function () {
|
|
2861
2872
|
return {a1: Commands_Help_argument(0, '...'), a2: {h: 0}};
|
|
2862
2873
|
});
|
|
2863
2874
|
|
|
2864
|
-
/* {csegen:
|
|
2865
|
-
const
|
|
2866
|
-
return {a1: Commands_Help_argument(0, '#<label>'), a2:
|
|
2875
|
+
/* {csegen:427} */
|
|
2876
|
+
const csegen_427 = __lazy(function () {
|
|
2877
|
+
return {a1: Commands_Help_argument(0, '#<label>'), a2: csegen_422()};
|
|
2867
2878
|
});
|
|
2868
2879
|
|
|
2869
|
-
/* {csegen:
|
|
2870
|
-
const
|
|
2880
|
+
/* {csegen:604} */
|
|
2881
|
+
const csegen_604 = __lazy(function () {
|
|
2871
2882
|
return {a1: d => b => c => a => $1 => $2 => $3 => ({a1: $1($3.a1), a2: $2($3.a2)}), a2: b => c => a => $c => $d => ({a1: $c($d.a1), a2: $d.a2}), a3: a => d => b => $14 => $15 => ({a1: $15.a1, a2: $14($15.a2)})};
|
|
2872
2883
|
});
|
|
2873
2884
|
|
|
2874
|
-
/* {csegen:
|
|
2875
|
-
const
|
|
2885
|
+
/* {csegen:608} */
|
|
2886
|
+
const csegen_608 = __lazy(function () {
|
|
2876
2887
|
return {a1: {h: 0}, a2: {a1: '-i', a2: {h: 0}}};
|
|
2877
2888
|
});
|
|
2878
2889
|
|
|
2879
|
-
/* {csegen:
|
|
2880
|
-
const
|
|
2890
|
+
/* {csegen:613} */
|
|
2891
|
+
const csegen_613 = __lazy(function () {
|
|
2881
2892
|
return $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $0, $1);
|
|
2882
2893
|
});
|
|
2883
2894
|
|
|
2884
|
-
/* {csegen:
|
|
2885
|
-
const
|
|
2895
|
+
/* {csegen:628} */
|
|
2896
|
+
const csegen_628 = __lazy(function () {
|
|
2886
2897
|
return {a1: csegen_9(), a2: a => ({h: 0}), a3: a => $4 => $5 => Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, $5)};
|
|
2887
2898
|
});
|
|
2888
2899
|
|
|
2889
|
-
/* {csegen:
|
|
2890
|
-
const
|
|
2900
|
+
/* {csegen:629} */
|
|
2901
|
+
const csegen_629 = __lazy(function () {
|
|
2891
2902
|
return $0 => Data_List_sort(csegen_240(), $0);
|
|
2892
2903
|
});
|
|
2893
2904
|
|
|
2894
|
-
/* {csegen:
|
|
2895
|
-
const
|
|
2905
|
+
/* {csegen:631} */
|
|
2906
|
+
const csegen_631 = __lazy(function () {
|
|
2896
2907
|
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_147(), $0, $1, $2);
|
|
2897
2908
|
});
|
|
2898
2909
|
|
|
2899
|
-
/* {csegen:
|
|
2900
|
-
const
|
|
2910
|
+
/* {csegen:643} */
|
|
2911
|
+
const csegen_643 = __lazy(function () {
|
|
2901
2912
|
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2902
2913
|
});
|
|
2903
2914
|
|
|
2904
|
-
/* {csegen:
|
|
2905
|
-
const
|
|
2915
|
+
/* {csegen:644} */
|
|
2916
|
+
const csegen_644 = __lazy(function () {
|
|
2906
2917
|
return $0 => $0.a3;
|
|
2907
2918
|
});
|
|
2908
2919
|
|
|
2909
|
-
/* {csegen:
|
|
2910
|
-
const
|
|
2911
|
-
return $0 => $1 => Prelude_Basics_on(
|
|
2920
|
+
/* {csegen:645} */
|
|
2921
|
+
const csegen_645 = __lazy(function () {
|
|
2922
|
+
return $0 => $1 => Prelude_Basics_on(csegen_643(), csegen_644(), $0, $1);
|
|
2912
2923
|
});
|
|
2913
2924
|
|
|
2914
|
-
/* {csegen:
|
|
2915
|
-
const
|
|
2925
|
+
/* {csegen:667} */
|
|
2926
|
+
const csegen_667 = __lazy(function () {
|
|
2916
2927
|
return $0 => $0.a3;
|
|
2917
2928
|
});
|
|
2918
2929
|
|
|
2919
|
-
/* {csegen:
|
|
2920
|
-
const
|
|
2921
|
-
return Theme_cs({a1: 2, a2: {h: 0}});
|
|
2930
|
+
/* {csegen:670} */
|
|
2931
|
+
const csegen_670 = __lazy(function () {
|
|
2932
|
+
return Theme_cs({a1: 2, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2922
2933
|
});
|
|
2923
2934
|
|
|
2924
|
-
/* {csegen:
|
|
2925
|
-
const
|
|
2935
|
+
/* {csegen:673} */
|
|
2936
|
+
const csegen_673 = __lazy(function () {
|
|
2926
2937
|
return $0 => $0.a1;
|
|
2927
2938
|
});
|
|
2928
2939
|
|
|
2929
|
-
/* {csegen:
|
|
2930
|
-
const
|
|
2940
|
+
/* {csegen:679} */
|
|
2941
|
+
const csegen_679 = __lazy(function () {
|
|
2931
2942
|
return date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('earliest:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date(date)), a2: {h: 0}}}));
|
|
2932
2943
|
});
|
|
2933
2944
|
|
|
2934
|
-
/* {csegen:
|
|
2935
|
-
const
|
|
2936
|
-
return Theme_cs({a1: 0, a2: {h: 0}});
|
|
2945
|
+
/* {csegen:689} */
|
|
2946
|
+
const csegen_689 = __lazy(function () {
|
|
2947
|
+
return Theme_cs({a1: 0, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2937
2948
|
});
|
|
2938
2949
|
|
|
2939
|
-
/* {csegen:
|
|
2940
|
-
const
|
|
2941
|
-
return Theme_cs({a1: 1, a2: {h: 0}});
|
|
2942
|
-
});
|
|
2943
|
-
|
|
2944
|
-
/* {csegen:686} */
|
|
2945
|
-
const csegen_686 = __lazy(function () {
|
|
2946
|
-
return Theme_cs({a1: 3, a2: {h: 0}});
|
|
2950
|
+
/* {csegen:690} */
|
|
2951
|
+
const csegen_690 = __lazy(function () {
|
|
2952
|
+
return Theme_cs({a1: 1, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2947
2953
|
});
|
|
2948
2954
|
|
|
2949
2955
|
/* {csegen:691} */
|
|
2950
2956
|
const csegen_691 = __lazy(function () {
|
|
2951
|
-
return
|
|
2957
|
+
return Theme_cs({a1: 3, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2952
2958
|
});
|
|
2953
2959
|
|
|
2954
2960
|
/* {csegen:705} */
|
|
2955
2961
|
const csegen_705 = __lazy(function () {
|
|
2962
|
+
return $0 => Prelude_Types_either(() => $3 => '', () => $5 => $5, $0);
|
|
2963
|
+
});
|
|
2964
|
+
|
|
2965
|
+
/* {csegen:711} */
|
|
2966
|
+
const csegen_711 = __lazy(function () {
|
|
2956
2967
|
return $0 => Util_Prompting_yesNoPrompt(csegen_74()(), 1, 'Would you like to continue creating a Pull Request anyway?');
|
|
2957
2968
|
});
|
|
2958
2969
|
|
|
2959
|
-
/* {csegen:
|
|
2960
|
-
const
|
|
2970
|
+
/* {csegen:749} */
|
|
2971
|
+
const csegen_749 = __lazy(function () {
|
|
2961
2972
|
return $0 => Prelude_Types_fastPack(Prelude_Types_List_reverse($0));
|
|
2962
2973
|
});
|
|
2963
2974
|
|
|
2964
|
-
/* {csegen:
|
|
2965
|
-
const
|
|
2975
|
+
/* {csegen:754} */
|
|
2976
|
+
const csegen_754 = __lazy(function () {
|
|
2966
2977
|
return $0 => $0.a1;
|
|
2967
2978
|
});
|
|
2968
2979
|
|
|
2969
|
-
/* {csegen:
|
|
2970
|
-
const
|
|
2971
|
-
return $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Data_String_trim($4),
|
|
2980
|
+
/* {csegen:761} */
|
|
2981
|
+
const csegen_761 = __lazy(function () {
|
|
2982
|
+
return $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Data_String_trim($4), csegen_406()(), $0, $1);
|
|
2972
2983
|
});
|
|
2973
2984
|
|
|
2974
|
-
/* {csegen:
|
|
2975
|
-
const
|
|
2985
|
+
/* {csegen:765} */
|
|
2986
|
+
const csegen_765 = __lazy(function () {
|
|
2976
2987
|
return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}};
|
|
2977
2988
|
});
|
|
2978
2989
|
|
|
2979
|
-
/* {csegen:
|
|
2980
|
-
const
|
|
2990
|
+
/* {csegen:781} */
|
|
2991
|
+
const csegen_781 = __lazy(function () {
|
|
2981
2992
|
return {a1: ann => $1 => Commands_Graph_pretty_Pretty_Date($1), a2: ann => $5 => $6 => Commands_Graph_prettyPrec_Pretty_Date($5, $6)};
|
|
2982
2993
|
});
|
|
2983
2994
|
|
|
@@ -2986,23 +2997,23 @@ function prim__sub_Integer($0, $1) {
|
|
|
2986
2997
|
return ($0-$1);
|
|
2987
2998
|
}
|
|
2988
2999
|
|
|
2989
|
-
/* Main.
|
|
2990
|
-
function
|
|
3000
|
+
/* Main.8861:1556:parsePg */
|
|
3001
|
+
function Main_n__8861_1556_parsePg($0, $1, $2, $3, $4, $5, $6) {
|
|
2991
3002
|
return Data_String_parsePositive(csegen_2(), $6);
|
|
2992
3003
|
}
|
|
2993
3004
|
|
|
2994
|
-
/* Main.
|
|
2995
|
-
function
|
|
3005
|
+
/* Main.8861:1555:parseLim */
|
|
3006
|
+
function Main_n__8861_1555_parseLim($0, $1, $2, $3, $4, $5) {
|
|
2996
3007
|
return Prelude_Interfaces_x3cx3dx3c(csegen_14(), x => Data_Fin_natToFin(x, 101n), $e => Data_String_parsePositive(csegen_2(), $e));
|
|
2997
3008
|
}
|
|
2998
3009
|
|
|
2999
|
-
/* Main.
|
|
3000
|
-
function
|
|
3010
|
+
/* Main.8663:1303:ffiOpts */
|
|
3011
|
+
function Main_n__8663_1303_ffiOpts($0, $1, $2, $3) {
|
|
3001
3012
|
return BashCompletion_ffiOpts($0, $3, $2, $1);
|
|
3002
3013
|
}
|
|
3003
3014
|
|
|
3004
|
-
/* Main.
|
|
3005
|
-
function
|
|
3015
|
+
/* Main.8663:1302:configuredOpts */
|
|
3016
|
+
function Main_n__8663_1302_configuredOpts($0, $1, $2, $3) {
|
|
3006
3017
|
const $13 = $14 => {
|
|
3007
3018
|
switch($14.h) {
|
|
3008
3019
|
case 1: /* Right */ return $0.a1.a1.a2(undefined)(BashCompletion_opts($14.a1, $3, $2, $1));
|
|
@@ -3247,7 +3258,7 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3247
3258
|
}
|
|
3248
3259
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe($b5, filter => ({a1: {a1: filter, a2: {a1: $b2.a1, a2: $b2.a2}}}));
|
|
3249
3260
|
};
|
|
3250
|
-
const $92 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $9a => $9b => ({a1: $9a, a2: $9b})},
|
|
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})}, Main_n__8861_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__8861_1556_parsePg($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0, $3.a2.a2.a2.a2.a1)), $b1);
|
|
3251
3262
|
return $c2 => {
|
|
3252
3263
|
switch($92.h) {
|
|
3253
3264
|
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);
|
|
@@ -3302,86 +3313,102 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3302
3313
|
return $1e8 => $1e9 => {
|
|
3303
3314
|
switch($3.a2.h) {
|
|
3304
3315
|
case 0: /* nil */ return Commands_whoami($0, $1, $2, $1e8, $1e9);
|
|
3305
|
-
|
|
3316
|
+
case undefined: /* cons */ return Data_Promise_reject('The whoami command does not take any arguments.', $1e8, $1e9);
|
|
3317
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $1fc => $1fc, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $1e8, $1e9);
|
|
3306
3318
|
}
|
|
3307
3319
|
};
|
|
3308
3320
|
}
|
|
3309
3321
|
case 'sync': {
|
|
3310
|
-
return $
|
|
3322
|
+
return $20a => $20b => {
|
|
3311
3323
|
switch($3.a2.h) {
|
|
3312
|
-
case 0: /* nil */ return Commands_sync($0, $2, $
|
|
3313
|
-
|
|
3324
|
+
case 0: /* nil */ return Commands_sync($0, $2, $20a, $20b);
|
|
3325
|
+
case undefined: /* cons */ return Data_Promise_reject('The sync command does not take any arguments.', $20a, $20b);
|
|
3326
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $21d => $21d, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $20a, $20b);
|
|
3314
3327
|
}
|
|
3315
3328
|
};
|
|
3316
3329
|
}
|
|
3317
3330
|
case 'branch': {
|
|
3318
|
-
return $
|
|
3331
|
+
return $22b => $22c => {
|
|
3319
3332
|
switch($3.a2.h) {
|
|
3320
|
-
case 0: /* nil */ return Commands_branch($0, $1, $
|
|
3321
|
-
|
|
3333
|
+
case 0: /* nil */ return Commands_branch($0, $1, $22b, $22c);
|
|
3334
|
+
case undefined: /* cons */ return Data_Promise_reject('The branch command does not take any arguments.', $22b, $22c);
|
|
3335
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $23e => $23e, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $22b, $22c);
|
|
3322
3336
|
}
|
|
3323
3337
|
};
|
|
3324
3338
|
}
|
|
3325
3339
|
case 'quick': {
|
|
3326
|
-
|
|
3327
|
-
|
|
3328
|
-
|
|
3329
|
-
|
|
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
|
+
};
|
|
3330
3356
|
}
|
|
3331
|
-
|
|
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
|
+
}
|
|
3332
3359
|
}
|
|
3333
3360
|
case 'health': {
|
|
3334
|
-
return $
|
|
3361
|
+
return $2a3 => $2a4 => {
|
|
3335
3362
|
switch($3.a2.h) {
|
|
3336
|
-
case undefined: /* cons */ return Data_Promise_reject('The health command does not take any arguments.', $
|
|
3337
|
-
case 0: /* nil */ return Commands_health($0, $2, $
|
|
3338
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
3363
|
+
case undefined: /* cons */ return Data_Promise_reject('The health command does not take any arguments.', $2a3, $2a4);
|
|
3364
|
+
case 0: /* nil */ return Commands_health($0, $2, $2a3, $2a4);
|
|
3365
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $2b6 => $2b6, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $2a3, $2a4);
|
|
3339
3366
|
}
|
|
3340
3367
|
};
|
|
3341
3368
|
}
|
|
3342
3369
|
case 'pr': {
|
|
3343
|
-
const $
|
|
3344
|
-
switch($
|
|
3345
|
-
case 1: /* Right */ return $
|
|
3346
|
-
case 0: /* Left */ return Main_exitError(csegen_74()(), $
|
|
3370
|
+
const $2c4 = Commands_parsePrArgs($3.a2);
|
|
3371
|
+
switch($2c4.h) {
|
|
3372
|
+
case 1: /* Right */ return $2c7 => $2c8 => Commands_pr($0, $1, $2, $2c4.a1, $2c7, $2c8);
|
|
3373
|
+
case 0: /* Left */ return Main_exitError(csegen_74()(), $2c4.a1);
|
|
3347
3374
|
}
|
|
3348
3375
|
}
|
|
3349
3376
|
case 'reflect': {
|
|
3350
|
-
return $
|
|
3377
|
+
return $2d5 => $2d6 => {
|
|
3351
3378
|
switch($3.a2.h) {
|
|
3352
|
-
case 0: /* nil */ return Commands_reflect($0, $2, $
|
|
3353
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
3379
|
+
case 0: /* nil */ return Commands_reflect($0, $2, $2d5, $2d6);
|
|
3380
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $2e4 => $2e4, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $2d5, $2d6);
|
|
3354
3381
|
}
|
|
3355
3382
|
};
|
|
3356
3383
|
}
|
|
3357
3384
|
case 'contribute': {
|
|
3358
|
-
const $
|
|
3359
|
-
switch($
|
|
3360
|
-
case 1: /* Right */ return $
|
|
3361
|
-
case 0: /* Left */ return Main_exitError(csegen_74()(), $
|
|
3385
|
+
const $2f2 = Commands_parseContributeArgs($3.a2);
|
|
3386
|
+
switch($2f2.h) {
|
|
3387
|
+
case 1: /* Right */ return $2f5 => $2f6 => Commands_contribute($0, $1, $2, $2f2.a1, $2f5, $2f6);
|
|
3388
|
+
case 0: /* Left */ return Main_exitError(csegen_74()(), $2f2.a1);
|
|
3362
3389
|
}
|
|
3363
3390
|
}
|
|
3364
3391
|
case 'list': {
|
|
3365
|
-
return $
|
|
3392
|
+
return $303 => {
|
|
3366
3393
|
switch($3.a2.h) {
|
|
3367
|
-
case 0: /* nil */ return $
|
|
3394
|
+
case 0: /* nil */ return $305 => Commands_listOrgTeams($0, $2, $303, $305);
|
|
3368
3395
|
case undefined: /* cons */ {
|
|
3369
|
-
return $
|
|
3396
|
+
return $30b => {
|
|
3370
3397
|
switch($3.a2.a2.h) {
|
|
3371
|
-
case 0: /* nil */ return Commands_list($0, $2, $3.a2.a1, $
|
|
3372
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
3398
|
+
case 0: /* nil */ return Commands_list($0, $2, $3.a2.a1, $303, $30b);
|
|
3399
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $31a => $31a, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $303, $30b);
|
|
3373
3400
|
}
|
|
3374
3401
|
};
|
|
3375
3402
|
}
|
|
3376
|
-
default: return $
|
|
3403
|
+
default: return $328 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $330 => $330, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $303, $328);
|
|
3377
3404
|
}
|
|
3378
3405
|
};
|
|
3379
3406
|
}
|
|
3380
3407
|
case 'graph': {
|
|
3381
|
-
const $
|
|
3382
|
-
switch($
|
|
3383
|
-
case 1: /* Right */ return Commands_graph($0, $2, $
|
|
3384
|
-
case 0: /* Left */ return Main_exitError(csegen_74()(), $
|
|
3408
|
+
const $33e = Commands_parseGraphArgs($3.a2);
|
|
3409
|
+
switch($33e.h) {
|
|
3410
|
+
case 1: /* Right */ return Commands_graph($0, $2, $33e.a1);
|
|
3411
|
+
case 0: /* Left */ return Main_exitError(csegen_74()(), $33e.a1);
|
|
3385
3412
|
}
|
|
3386
3413
|
}
|
|
3387
3414
|
case 'rq': {
|
|
@@ -3407,18 +3434,18 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3407
3434
|
}
|
|
3408
3435
|
}
|
|
3409
3436
|
case 'label': {
|
|
3410
|
-
return $
|
|
3437
|
+
return $372 => $373 => {
|
|
3411
3438
|
switch($3.a2.h) {
|
|
3412
|
-
case 0: /* nil */ return Data_Promise_reject('The label command expects one or more labels as arguments.', $
|
|
3413
|
-
case undefined: /* cons */ return Commands_label($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2}, $
|
|
3414
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
3439
|
+
case 0: /* nil */ return Data_Promise_reject('The label command expects one or more labels as arguments.', $372, $373);
|
|
3440
|
+
case undefined: /* cons */ return Commands_label($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2}, $372, $373);
|
|
3441
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $389 => $389, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $372, $373);
|
|
3415
3442
|
}
|
|
3416
3443
|
};
|
|
3417
3444
|
}
|
|
3418
|
-
default: return $
|
|
3445
|
+
default: return $397 => $398 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $3a0 => $3a0, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $397, $398);
|
|
3419
3446
|
}
|
|
3420
3447
|
}
|
|
3421
|
-
default: return $
|
|
3448
|
+
default: return $3ae => $3af => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $3b7 => $3b7, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $3ae, $3af);
|
|
3422
3449
|
}
|
|
3423
3450
|
}
|
|
3424
3451
|
|
|
@@ -3490,10 +3517,10 @@ function Main_exitError($0, $1) {
|
|
|
3490
3517
|
/* Main.bashCompletion : HasIO io => String -> String -> String -> io () */
|
|
3491
3518
|
function Main_bashCompletion($0, $1, $2, $3) {
|
|
3492
3519
|
const $4 = BashCompletion_cmdOpts($1, $2, $3);
|
|
3493
|
-
const $9 = Prelude_Types_maybe(() =>
|
|
3520
|
+
const $9 = Prelude_Types_maybe(() => Main_n__8663_1303_ffiOpts($0, $3, $2, $1), () => $12 => $0.a1.a1.a2(undefined)({a1: $12}), $4);
|
|
3494
3521
|
const $26 = $27 => {
|
|
3495
3522
|
switch($27.h) {
|
|
3496
|
-
case 0: /* nothing */ return
|
|
3523
|
+
case 0: /* nothing */ return Main_n__8663_1302_configuredOpts($0, $3, $2, $1);
|
|
3497
3524
|
case undefined: /* just */ return $0.a1.a1.a2(undefined)($27.a1);
|
|
3498
3525
|
}
|
|
3499
3526
|
};
|
|
@@ -4044,7 +4071,7 @@ function Data_String_Extra_drop($0, $1) {
|
|
|
4044
4071
|
}
|
|
4045
4072
|
|
|
4046
4073
|
/* Data.String.with block in parsePositive,parsePosTrimmed */
|
|
4047
|
-
function
|
|
4074
|
+
function Data_String_with__parsePositivex2cparsePosTrimmed_10051($0, $1, $2, $3, $4) {
|
|
4048
4075
|
switch($3) {
|
|
4049
4076
|
case '': {
|
|
4050
4077
|
switch($4.h) {
|
|
@@ -4099,7 +4126,7 @@ function Data_String_with__parsePositivex2cparsePosTrimmed_10057($0, $1, $2, $3,
|
|
|
4099
4126
|
}
|
|
4100
4127
|
|
|
4101
4128
|
/* Data.String.with block in asList */
|
|
4102
|
-
function
|
|
4129
|
+
function Data_String_with__asList_9694($0, $1) {
|
|
4103
4130
|
switch($0) {
|
|
4104
4131
|
case '': {
|
|
4105
4132
|
switch($1.h) {
|
|
@@ -4111,17 +4138,17 @@ function Data_String_with__asList_9700($0, $1) {
|
|
|
4111
4138
|
}
|
|
4112
4139
|
}
|
|
4113
4140
|
|
|
4114
|
-
/* Data.String.3856:
|
|
4115
|
-
function
|
|
4141
|
+
/* Data.String.3856:9426:unlines' */
|
|
4142
|
+
function Data_String_n__3856_9426_unlinesx27($0) {
|
|
4116
4143
|
switch($0.h) {
|
|
4117
4144
|
case 0: /* nil */ return {h: 0};
|
|
4118
|
-
case undefined: /* cons */ return {a1: $0.a1, a2: {a1: '\n', a2:
|
|
4145
|
+
case undefined: /* cons */ return {a1: $0.a1, a2: {a1: '\n', a2: Data_String_n__3856_9426_unlinesx27($0.a2)}};
|
|
4119
4146
|
}
|
|
4120
4147
|
}
|
|
4121
4148
|
|
|
4122
|
-
/* Data.String.4465:
|
|
4123
|
-
function
|
|
4124
|
-
return
|
|
4149
|
+
/* Data.String.4465:10045:parsePosTrimmed */
|
|
4150
|
+
function Data_String_n__4465_10045_parsePosTrimmed($0, $1, $2) {
|
|
4151
|
+
return Data_String_with__parsePositivex2cparsePosTrimmed_10051(undefined, $0, $2, $2, Data_String_strM($2));
|
|
4125
4152
|
}
|
|
4126
4153
|
|
|
4127
4154
|
/* Data.String.trim : String -> String */
|
|
@@ -4170,17 +4197,17 @@ function Data_String_replicate($0, $1) {
|
|
|
4170
4197
|
|
|
4171
4198
|
/* Data.String.parsePositive : Num a => String -> Maybe a */
|
|
4172
4199
|
function Data_String_parsePositive($0, $1) {
|
|
4173
|
-
return
|
|
4200
|
+
return Data_String_n__4465_10045_parsePosTrimmed($0, $1, Data_String_trim($1));
|
|
4174
4201
|
}
|
|
4175
4202
|
|
|
4176
4203
|
/* Data.String.ltrim : String -> String */
|
|
4177
4204
|
function Data_String_ltrim($0) {
|
|
4178
|
-
return
|
|
4205
|
+
return Data_String_with__ltrim_9718($0, Data_String_asList($0));
|
|
4179
4206
|
}
|
|
4180
4207
|
|
|
4181
4208
|
/* Data.String.lines' : List Char -> List (List Char) */
|
|
4182
4209
|
function Data_String_linesx27($0) {
|
|
4183
|
-
return
|
|
4210
|
+
return Data_String_n__3989_9556_linesHelp($0, {h: 0}, $0);
|
|
4184
4211
|
}
|
|
4185
4212
|
|
|
4186
4213
|
/* Data.String.lines : String -> List String */
|
|
@@ -4200,7 +4227,7 @@ function Data_String_isPrefixOf($0, $1) {
|
|
|
4200
4227
|
|
|
4201
4228
|
/* Data.String.fastUnlines : List String -> String */
|
|
4202
4229
|
function Data_String_fastUnlines($0) {
|
|
4203
|
-
return Prelude_Types_fastConcat(
|
|
4230
|
+
return Prelude_Types_fastConcat(Data_String_n__3856_9426_unlinesx27($0));
|
|
4204
4231
|
}
|
|
4205
4232
|
|
|
4206
4233
|
/* Data.String.break : (Char -> Bool) -> String -> (String, String) */
|
|
@@ -4216,7 +4243,7 @@ function Data_String_break$($0, $1) {
|
|
|
4216
4243
|
|
|
4217
4244
|
/* Data.String.asList : (str : String) -> AsList str */
|
|
4218
4245
|
function Data_String_asList($0) {
|
|
4219
|
-
return
|
|
4246
|
+
return Data_String_with__asList_9694($0, Data_String_strM($0));
|
|
4220
4247
|
}
|
|
4221
4248
|
|
|
4222
4249
|
/* Data.Fin.show */
|
|
@@ -5185,8 +5212,8 @@ function Prelude_Interfaces_x2ax3e($0, $1, $2) {
|
|
|
5185
5212
|
return $4($2);
|
|
5186
5213
|
}
|
|
5187
5214
|
|
|
5188
|
-
/* Prelude.Show.2434:
|
|
5189
|
-
function
|
|
5215
|
+
/* Prelude.Show.2434:11880:asciiTab */
|
|
5216
|
+
function Prelude_Show_n__2434_11880_asciiTab($0) {
|
|
5190
5217
|
return {a1: 'NUL', a2: {a1: 'SOH', a2: {a1: 'STX', a2: {a1: 'ETX', a2: {a1: 'EOT', a2: {a1: 'ENQ', a2: {a1: 'ACK', a2: {a1: 'BEL', a2: {a1: 'BS', a2: {a1: 'HT', a2: {a1: 'LF', a2: {a1: 'VT', a2: {a1: 'FF', a2: {a1: 'CR', a2: {a1: 'SO', a2: {a1: 'SI', a2: {a1: 'DLE', a2: {a1: 'DC1', a2: {a1: 'DC2', a2: {a1: 'DC3', a2: {a1: 'DC4', a2: {a1: 'NAK', a2: {a1: 'SYN', a2: {a1: 'ETB', a2: {a1: 'CAN', a2: {a1: 'EM', a2: {a1: 'SUB', a2: {a1: 'ESC', a2: {a1: 'FS', a2: {a1: 'GS', a2: {a1: 'RS', a2: {a1: 'US', a2: {h: 0}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}};
|
|
5191
5218
|
}
|
|
5192
5219
|
|
|
@@ -5230,7 +5257,7 @@ function Prelude_Show_show_Show_Bits32($0) {
|
|
|
5230
5257
|
|
|
5231
5258
|
/* Prelude.Show.show */
|
|
5232
5259
|
function Prelude_Show_show_Show_x28Listx20x24ax29($0, $1) {
|
|
5233
|
-
return ('['+(
|
|
5260
|
+
return ('['+(Prelude_Show_n__3215_12601_showx27($0, $1, '', $1)+']'));
|
|
5234
5261
|
}
|
|
5235
5262
|
|
|
5236
5263
|
/* Prelude.Show.showPrec */
|
|
@@ -5314,7 +5341,7 @@ function Prelude_Show_showLitChar($0) {
|
|
|
5314
5341
|
case '\u{5c}': return $23 => ('\u{5c}\u{5c}'+$23);
|
|
5315
5342
|
default: {
|
|
5316
5343
|
return $26 => {
|
|
5317
|
-
const $27 = Prelude_Types_getAt(Prelude_Types_prim__integerToNat(BigInt($0.codePointAt(0))),
|
|
5344
|
+
const $27 = Prelude_Types_getAt(Prelude_Types_prim__integerToNat(BigInt($0.codePointAt(0))), Prelude_Show_n__2434_11880_asciiTab($0));
|
|
5318
5345
|
switch($27.h) {
|
|
5319
5346
|
case undefined: /* just */ return ('\u{5c}'+($27.a1+$26));
|
|
5320
5347
|
case 0: /* nothing */ {
|
|
@@ -5560,17 +5587,17 @@ function Data_List1_last($0) {
|
|
|
5560
5587
|
return Data_List1_n__3044_2644_loop($0.a1, $0.a2, $0.a1, $0.a2);
|
|
5561
5588
|
}
|
|
5562
5589
|
|
|
5563
|
-
/* Data.List.
|
|
5564
|
-
function
|
|
5565
|
-
return
|
|
5590
|
+
/* Data.List.7781:8362:split */
|
|
5591
|
+
function Data_List_n__7781_8362_split($0, $1, $2) {
|
|
5592
|
+
return Data_List_n__7781_8363_splitRec($0, $1, $2, $2, $9 => $9);
|
|
5566
5593
|
}
|
|
5567
5594
|
|
|
5568
|
-
/* Data.List.
|
|
5569
|
-
function
|
|
5595
|
+
/* Data.List.8487:9050:go */
|
|
5596
|
+
function Data_List_n__8487_9050_go($0, $1, $2, $3, $4) {
|
|
5570
5597
|
switch($4.h) {
|
|
5571
5598
|
case 0: /* nil */ return {a1: Data_List1_singleton($3), a2: {h: 0}};
|
|
5572
5599
|
case undefined: /* cons */ {
|
|
5573
|
-
const $a =
|
|
5600
|
+
const $a = Data_List_n__8487_9050_go($0, $1, $2, $4.a1, $4.a2);
|
|
5574
5601
|
switch($2($3)($4.a1)) {
|
|
5575
5602
|
case 1: return {a1: {a1: $3, a2: $a.a1}, a2: $a.a2};
|
|
5576
5603
|
case 0: return {a1: Data_List1_singleton($3), a2: {a1: $a.a1, a2: $a.a2}};
|
|
@@ -5660,13 +5687,13 @@ function Data_List_sortBy($0, $1) {
|
|
|
5660
5687
|
switch($1.a2.h) {
|
|
5661
5688
|
case 0: /* nil */ return {a1: $1.a1, a2: {h: 0}};
|
|
5662
5689
|
default: {
|
|
5663
|
-
const $6 =
|
|
5690
|
+
const $6 = Data_List_n__7781_8362_split($1, $0, $1);
|
|
5664
5691
|
return Data_List_mergeBy($0, Data_List_sortBy($0, $6.a1), Data_List_sortBy($0, $6.a2));
|
|
5665
5692
|
}
|
|
5666
5693
|
}
|
|
5667
5694
|
}
|
|
5668
5695
|
default: {
|
|
5669
|
-
const $15 =
|
|
5696
|
+
const $15 = Data_List_n__7781_8362_split($1, $0, $1);
|
|
5670
5697
|
return Data_List_mergeBy($0, Data_List_sortBy($0, $15.a1), Data_List_sortBy($0, $15.a2));
|
|
5671
5698
|
}
|
|
5672
5699
|
}
|
|
@@ -5709,7 +5736,7 @@ function Data_List_partition($0, $1) {
|
|
|
5709
5736
|
|
|
5710
5737
|
/* Data.List.nubBy : (a -> a -> Bool) -> List a -> List a */
|
|
5711
5738
|
function Data_List_nubBy($0, $1) {
|
|
5712
|
-
return
|
|
5739
|
+
return Data_List_n__4928_5587_nubByx27({h: 0}, $0, $1);
|
|
5713
5740
|
}
|
|
5714
5741
|
|
|
5715
5742
|
/* Data.List.nub : Eq a => List a -> List a */
|
|
@@ -5786,7 +5813,7 @@ function Data_List_groupBy($0, $1) {
|
|
|
5786
5813
|
switch($1.h) {
|
|
5787
5814
|
case 0: /* nil */ return {h: 0};
|
|
5788
5815
|
case undefined: /* cons */ {
|
|
5789
|
-
const $3 =
|
|
5816
|
+
const $3 = Data_List_n__8487_9050_go($1.a1, $1.a2, $0, $1.a1, $1.a2);
|
|
5790
5817
|
return {a1: $3.a1, a2: $3.a2};
|
|
5791
5818
|
}
|
|
5792
5819
|
}
|
|
@@ -6014,8 +6041,8 @@ function BashCompletion_case__unhashify_10869($0, $1) {
|
|
|
6014
6041
|
}
|
|
6015
6042
|
}
|
|
6016
6043
|
|
|
6017
|
-
/* BashCompletion.
|
|
6018
|
-
function
|
|
6044
|
+
/* BashCompletion.5276:11675:slugsOrLoginsOrLabels */
|
|
6045
|
+
function BashCompletion_n__5276_11675_slugsOrLoginsOrLabels($0, $1) {
|
|
6019
6046
|
switch(Data_String_isPrefixOf('+', $0)) {
|
|
6020
6047
|
case 1: return Prelude_Types_List_mapAppend({h: 0}, $9 => ('+'+$9), $1.a12);
|
|
6021
6048
|
case 0: {
|
|
@@ -6051,7 +6078,7 @@ const BashCompletion_script = __lazy(function () {
|
|
|
6051
6078
|
function BashCompletion_optsForRequestCmd($0, $1) {
|
|
6052
6079
|
switch(Data_String_isPrefixOf($1, '--dry')) {
|
|
6053
6080
|
case 1: return {a1: '--dry', a2: {h: 0}};
|
|
6054
|
-
case 0: return
|
|
6081
|
+
case 0: return BashCompletion_n__5276_11675_slugsOrLoginsOrLabels($1, $0);
|
|
6055
6082
|
}
|
|
6056
6083
|
}
|
|
6057
6084
|
|
|
@@ -6232,7 +6259,6 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6232
6259
|
case '--help': return {a1: {h: 0}};
|
|
6233
6260
|
case 'reflect': return {a1: {h: 0}};
|
|
6234
6261
|
case 'version': return {a1: {h: 0}};
|
|
6235
|
-
case 'quick': return {a1: {h: 0}};
|
|
6236
6262
|
case 'help': {
|
|
6237
6263
|
switch($1) {
|
|
6238
6264
|
case '--': {
|
|
@@ -6240,7 +6266,49 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6240
6266
|
case 'help': return {a1: BashCompletion_allRootCmds()};
|
|
6241
6267
|
default: {
|
|
6242
6268
|
switch($2) {
|
|
6243
|
-
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $
|
|
6269
|
+
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $21 => Data_String_isPrefixOf($1, $21), BashCompletion_allRootCmds())};
|
|
6270
|
+
default: return {h: 0};
|
|
6271
|
+
}
|
|
6272
|
+
}
|
|
6273
|
+
}
|
|
6274
|
+
}
|
|
6275
|
+
default: {
|
|
6276
|
+
switch($2) {
|
|
6277
|
+
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $2c => Data_String_isPrefixOf($1, $2c), BashCompletion_allRootCmds())};
|
|
6278
|
+
default: return {h: 0};
|
|
6279
|
+
}
|
|
6280
|
+
}
|
|
6281
|
+
}
|
|
6282
|
+
}
|
|
6283
|
+
case 'quick': {
|
|
6284
|
+
switch($1) {
|
|
6285
|
+
case '-': {
|
|
6286
|
+
switch($2) {
|
|
6287
|
+
case 'quick': return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6288
|
+
default: {
|
|
6289
|
+
switch($2) {
|
|
6290
|
+
case 'quick': {
|
|
6291
|
+
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6292
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6293
|
+
case 0: return {a1: {h: 0}};
|
|
6294
|
+
}
|
|
6295
|
+
}
|
|
6296
|
+
default: return {h: 0};
|
|
6297
|
+
}
|
|
6298
|
+
}
|
|
6299
|
+
}
|
|
6300
|
+
}
|
|
6301
|
+
case '--': {
|
|
6302
|
+
switch($2) {
|
|
6303
|
+
case 'quick': return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6304
|
+
default: {
|
|
6305
|
+
switch($2) {
|
|
6306
|
+
case 'quick': {
|
|
6307
|
+
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6308
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6309
|
+
case 0: return {a1: {h: 0}};
|
|
6310
|
+
}
|
|
6311
|
+
}
|
|
6244
6312
|
default: return {h: 0};
|
|
6245
6313
|
}
|
|
6246
6314
|
}
|
|
@@ -6248,7 +6316,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6248
6316
|
}
|
|
6249
6317
|
default: {
|
|
6250
6318
|
switch($2) {
|
|
6251
|
-
case '
|
|
6319
|
+
case 'quick': {
|
|
6320
|
+
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6321
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6322
|
+
case 0: return {a1: {h: 0}};
|
|
6323
|
+
}
|
|
6324
|
+
}
|
|
6252
6325
|
default: return {h: 0};
|
|
6253
6326
|
}
|
|
6254
6327
|
}
|
|
@@ -6392,7 +6465,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6392
6465
|
}
|
|
6393
6466
|
default: {
|
|
6394
6467
|
switch($2) {
|
|
6395
|
-
case 'harmony': return {a1: Prelude_Types_List_filterAppend({h: 0}, $
|
|
6468
|
+
case 'harmony': return {a1: Prelude_Types_List_filterAppend({h: 0}, $ca => Data_String_isPrefixOf($1, $ca), BashCompletion_allRootCmds())};
|
|
6396
6469
|
default: {
|
|
6397
6470
|
switch($0) {
|
|
6398
6471
|
case 'sync': return {a1: {h: 0}};
|
|
@@ -6400,7 +6473,6 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6400
6473
|
case '--help': return {a1: {h: 0}};
|
|
6401
6474
|
case 'reflect': return {a1: {h: 0}};
|
|
6402
6475
|
case 'version': return {a1: {h: 0}};
|
|
6403
|
-
case 'quick': return {a1: {h: 0}};
|
|
6404
6476
|
case 'help': {
|
|
6405
6477
|
switch($1) {
|
|
6406
6478
|
case '--': {
|
|
@@ -6408,7 +6480,49 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6408
6480
|
case 'help': return {a1: BashCompletion_allRootCmds()};
|
|
6409
6481
|
default: {
|
|
6410
6482
|
switch($2) {
|
|
6411
|
-
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $
|
|
6483
|
+
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $df => Data_String_isPrefixOf($1, $df), BashCompletion_allRootCmds())};
|
|
6484
|
+
default: return {h: 0};
|
|
6485
|
+
}
|
|
6486
|
+
}
|
|
6487
|
+
}
|
|
6488
|
+
}
|
|
6489
|
+
default: {
|
|
6490
|
+
switch($2) {
|
|
6491
|
+
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $ea => Data_String_isPrefixOf($1, $ea), BashCompletion_allRootCmds())};
|
|
6492
|
+
default: return {h: 0};
|
|
6493
|
+
}
|
|
6494
|
+
}
|
|
6495
|
+
}
|
|
6496
|
+
}
|
|
6497
|
+
case 'quick': {
|
|
6498
|
+
switch($1) {
|
|
6499
|
+
case '-': {
|
|
6500
|
+
switch($2) {
|
|
6501
|
+
case 'quick': return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6502
|
+
default: {
|
|
6503
|
+
switch($2) {
|
|
6504
|
+
case 'quick': {
|
|
6505
|
+
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6506
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6507
|
+
case 0: return {a1: {h: 0}};
|
|
6508
|
+
}
|
|
6509
|
+
}
|
|
6510
|
+
default: return {h: 0};
|
|
6511
|
+
}
|
|
6512
|
+
}
|
|
6513
|
+
}
|
|
6514
|
+
}
|
|
6515
|
+
case '--': {
|
|
6516
|
+
switch($2) {
|
|
6517
|
+
case 'quick': return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6518
|
+
default: {
|
|
6519
|
+
switch($2) {
|
|
6520
|
+
case 'quick': {
|
|
6521
|
+
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6522
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6523
|
+
case 0: return {a1: {h: 0}};
|
|
6524
|
+
}
|
|
6525
|
+
}
|
|
6412
6526
|
default: return {h: 0};
|
|
6413
6527
|
}
|
|
6414
6528
|
}
|
|
@@ -6416,7 +6530,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6416
6530
|
}
|
|
6417
6531
|
default: {
|
|
6418
6532
|
switch($2) {
|
|
6419
|
-
case '
|
|
6533
|
+
case 'quick': {
|
|
6534
|
+
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6535
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6536
|
+
case 0: return {a1: {h: 0}};
|
|
6537
|
+
}
|
|
6538
|
+
}
|
|
6420
6539
|
default: return {h: 0};
|
|
6421
6540
|
}
|
|
6422
6541
|
}
|
|
@@ -8345,37 +8464,37 @@ function FFI_Term_termCols($0) {
|
|
|
8345
8464
|
}
|
|
8346
8465
|
}
|
|
8347
8466
|
|
|
8348
|
-
/* FFI.GitHub.
|
|
8349
|
-
function
|
|
8467
|
+
/* FFI.GitHub.6763:18487:unexpectedPayload */
|
|
8468
|
+
function FFI_GitHub_n__6763_18487_unexpectedPayload($0, $1) {
|
|
8350
8469
|
return FFI_GitHub_internalError(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $9 => $9, {a1: 'Unexpected error JSON: ', a2: {a1: $0, a2: {h: 0}}}));
|
|
8351
8470
|
}
|
|
8352
8471
|
|
|
8353
|
-
/* FFI.GitHub.
|
|
8354
|
-
function
|
|
8472
|
+
/* FFI.GitHub.6763:18486:parse */
|
|
8473
|
+
function FFI_GitHub_n__6763_18486_parse($0, $1) {
|
|
8355
8474
|
switch($1.h) {
|
|
8356
8475
|
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}}))));
|
|
8357
8476
|
default: return {h: 0 /* Left */, a1: 'Expected an Object containing error and status keys'};
|
|
8358
8477
|
}
|
|
8359
8478
|
}
|
|
8360
8479
|
|
|
8361
|
-
/* FFI.GitHub.
|
|
8362
|
-
function
|
|
8480
|
+
/* FFI.GitHub.8248:20015:errString */
|
|
8481
|
+
function FFI_GitHub_n__8248_20015_errString($0, $1) {
|
|
8363
8482
|
switch($1.h) {
|
|
8364
8483
|
case 0: /* nothing */ return 'You can only use teams with repositories belonging to GitHub organizations';
|
|
8365
8484
|
case undefined: /* just */ return $1.a1;
|
|
8366
8485
|
}
|
|
8367
8486
|
}
|
|
8368
8487
|
|
|
8369
|
-
/* FFI.GitHub.
|
|
8370
|
-
function
|
|
8488
|
+
/* FFI.GitHub.7159:18911:errString */
|
|
8489
|
+
function FFI_GitHub_n__7159_18911_errString($0, $1) {
|
|
8371
8490
|
switch($1.h) {
|
|
8372
8491
|
case 0: /* nothing */ return 'You can only list teams for repositories belonging to GitHub organizations';
|
|
8373
8492
|
case undefined: /* just */ return $1.a1;
|
|
8374
8493
|
}
|
|
8375
8494
|
}
|
|
8376
8495
|
|
|
8377
|
-
/* FFI.GitHub.
|
|
8378
|
-
function
|
|
8496
|
+
/* FFI.GitHub.6896:18620:errMsg */
|
|
8497
|
+
function FFI_GitHub_n__6896_18620_errMsg($0) {
|
|
8379
8498
|
return Prelude_Types_either(() => csegen_318()(), () => csegen_318()(), $0);
|
|
8380
8499
|
}
|
|
8381
8500
|
|
|
@@ -8419,7 +8538,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
8419
8538
|
let $2;
|
|
8420
8539
|
switch($3.h) {
|
|
8421
8540
|
case 0: /* Left */ {
|
|
8422
|
-
$2 = {h: 0 /* Left */, a1:
|
|
8541
|
+
$2 = {h: 0 /* Left */, a1: FFI_GitHub_n__6763_18487_unexpectedPayload($0, $3.a1)};
|
|
8423
8542
|
break;
|
|
8424
8543
|
}
|
|
8425
8544
|
case 1: /* Right */ {
|
|
@@ -8428,7 +8547,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
8428
8547
|
}
|
|
8429
8548
|
}
|
|
8430
8549
|
const $c = json => {
|
|
8431
|
-
const $d =
|
|
8550
|
+
const $d = FFI_GitHub_n__6763_18486_parse($0, json);
|
|
8432
8551
|
switch($d.h) {
|
|
8433
8552
|
case 0: /* Left */ return {h: 0 /* Left */, a1: FFI_GitHub_internalError($d.a1)};
|
|
8434
8553
|
case 1: /* Right */ return {h: 1 /* Right */, a1: $d.a1};
|
|
@@ -8520,7 +8639,7 @@ function FFI_GitHub_internalError($0) {
|
|
|
8520
8639
|
|
|
8521
8640
|
/* FFI.GitHub.ignoreStatus : Promise String a -> Promise String a */
|
|
8522
8641
|
function FFI_GitHub_ignoreStatus($0, $1, $2) {
|
|
8523
|
-
return Data_Promise_mapError($5 =>
|
|
8642
|
+
return Data_Promise_mapError($5 => FFI_GitHub_n__6896_18620_errMsg(FFI_GitHub_parseError($5)), $0, $1, $2);
|
|
8524
8643
|
}
|
|
8525
8644
|
|
|
8526
8645
|
/* FFI.GitHub.getUser : Octokit => String -> Promise String User */
|
|
@@ -8543,14 +8662,19 @@ function FFI_GitHub_getPullRequestGraphQlId($0, $1, $2, $3, $4, $5) {
|
|
|
8543
8662
|
return Data_Promise_mapSnd_Bifunctor_Promise($8 => $8, $a => $b => FFI_GitHub_ignoreStatus($e => $f => FFI_promiseIO($12 => $13 => $14 => FFI_GitHub_prim__getPullRequestGraphQlId($0, $1, $2, $3, $12, $13, $14), $e, $f), $a, $b), $4, $5);
|
|
8544
8663
|
}
|
|
8545
8664
|
|
|
8665
|
+
/* FFI.GitHub.getIssue : Octokit => String -> String -> String -> Promise String Issue */
|
|
8666
|
+
function FFI_GitHub_getIssue($0, $1, $2, $3) {
|
|
8667
|
+
return FFI_GitHub_parsePrimResult($6 => Data_Issue_parseIssueString($6), $a => $b => $c => FFI_GitHub_prim__getIssue($0, $1, $2, $3, $a, $b, $c));
|
|
8668
|
+
}
|
|
8669
|
+
|
|
8546
8670
|
/* FFI.GitHub.forceListTeams : Octokit => String -> Promise' (List String) */
|
|
8547
8671
|
function FFI_GitHub_forceListTeams($0, $1, $2, $3) {
|
|
8548
|
-
return Data_Promise_mapError($6 =>
|
|
8672
|
+
return Data_Promise_mapError($6 => FFI_GitHub_n__7159_18911_errString($0, $6), $b => $c => FFI_GitHub_listTeams($0, $1, $b, $c), $2, $3);
|
|
8549
8673
|
}
|
|
8550
8674
|
|
|
8551
8675
|
/* FFI.GitHub.forceListTeamMembers : Octokit => String -> String -> Promise' (List String) */
|
|
8552
8676
|
function FFI_GitHub_forceListTeamMembers($0, $1, $2, $3, $4) {
|
|
8553
|
-
return Data_Promise_mapError($7 =>
|
|
8677
|
+
return Data_Promise_mapError($7 => FFI_GitHub_n__8248_20015_errString($0, $7), $c => $d => FFI_GitHub_listTeamMembers($0, $1, $2, $c, $d), $3, $4);
|
|
8554
8678
|
}
|
|
8555
8679
|
|
|
8556
8680
|
/* FFI.GitHub.createPR : Octokit => {default False _ : Bool} ->
|
|
@@ -8626,8 +8750,8 @@ function Data_Review_isAuthor($0, $1) {
|
|
|
8626
8750
|
return Prelude_EqOrd_x3dx3d_Eq_String($1.a2, $0);
|
|
8627
8751
|
}
|
|
8628
8752
|
|
|
8629
|
-
/* Data.Date.4986:
|
|
8630
|
-
function
|
|
8753
|
+
/* Data.Date.4986:11703:parseNat */
|
|
8754
|
+
function Data_Date_n__4986_11703_parseNat($0, $1, $2) {
|
|
8631
8755
|
switch($2) {
|
|
8632
8756
|
case '0': return {a1: 0n};
|
|
8633
8757
|
case '1': return {a1: 1n};
|
|
@@ -8643,12 +8767,12 @@ function Data_Date_n__4986_11759_parseNat($0, $1, $2) {
|
|
|
8643
8767
|
}
|
|
8644
8768
|
}
|
|
8645
8769
|
|
|
8646
|
-
/* Data.Date.5103:
|
|
8647
|
-
function
|
|
8770
|
+
/* Data.Date.5103:11821:guardSuccess */
|
|
8771
|
+
function Data_Date_n__5103_11821_guardSuccess($0) {
|
|
8648
8772
|
switch($0.h) {
|
|
8649
8773
|
case undefined: /* cons */ {
|
|
8650
8774
|
switch($0.a1.h) {
|
|
8651
|
-
case 3: /* 5103:
|
|
8775
|
+
case 3: /* 5103:11810:Day */ {
|
|
8652
8776
|
switch($0.a2.h) {
|
|
8653
8777
|
case undefined: /* cons */ {
|
|
8654
8778
|
switch($0.a2.a2.h) {
|
|
@@ -8666,28 +8790,28 @@ function Data_Date_n__5103_11877_guardSuccess($0) {
|
|
|
8666
8790
|
}
|
|
8667
8791
|
}
|
|
8668
8792
|
|
|
8669
|
-
/* Data.Date.5103:
|
|
8670
|
-
function
|
|
8793
|
+
/* Data.Date.5103:11820:go */
|
|
8794
|
+
function Data_Date_n__5103_11820_go($0, $1) {
|
|
8671
8795
|
switch($0.a1.h) {
|
|
8672
|
-
case 4: /* 5103:
|
|
8673
|
-
case 0: /* 5103:
|
|
8796
|
+
case 4: /* 5103:11811:Fail */ return {a1: {h: 4 /* 5103:11811:Fail */}, a2: undefined};
|
|
8797
|
+
case 0: /* 5103:11818:Start */ {
|
|
8674
8798
|
switch(Prelude_Types_isDigit($1)) {
|
|
8675
|
-
case 1: return {a1: {h: 1 /* 5103:
|
|
8676
|
-
case 0: return {a1: {h: 4 /* 5103:
|
|
8799
|
+
case 1: return {a1: {h: 1 /* 5103:11813:P */, a1: 0}, a2: {a1: $1, a2: {h: 0}}};
|
|
8800
|
+
case 0: return {a1: {h: 4 /* 5103:11811:Fail */}, a2: undefined};
|
|
8677
8801
|
}
|
|
8678
8802
|
}
|
|
8679
|
-
case 1: /* 5103:
|
|
8803
|
+
case 1: /* 5103:11813:P */ {
|
|
8680
8804
|
switch($0.a1.a1) {
|
|
8681
8805
|
case 0: {
|
|
8682
8806
|
switch($1) {
|
|
8683
8807
|
case '-': {
|
|
8684
8808
|
const $12 = Data_Date_parsePositiveReversed($0.a2);
|
|
8685
8809
|
switch($12.h) {
|
|
8686
|
-
case 0: /* nothing */ return {a1: {h: 4 /* 5103:
|
|
8687
|
-
case undefined: /* just */ return {a1: {h: 2 /* 5103:
|
|
8810
|
+
case 0: /* nothing */ return {a1: {h: 4 /* 5103:11811:Fail */}, a2: undefined};
|
|
8811
|
+
case undefined: /* just */ return {a1: {h: 2 /* 5103:11817:S */, a1: 0}, a2: $12.a1};
|
|
8688
8812
|
}
|
|
8689
8813
|
}
|
|
8690
|
-
default: return {a1: {h: 1 /* 5103:
|
|
8814
|
+
default: return {a1: {h: 1 /* 5103:11813:P */, a1: 0}, a2: {a1: $1, a2: $0.a2}};
|
|
8691
8815
|
}
|
|
8692
8816
|
}
|
|
8693
8817
|
case 1: {
|
|
@@ -8695,32 +8819,32 @@ function Data_Date_n__5103_11876_go($0, $1) {
|
|
|
8695
8819
|
case '-': {
|
|
8696
8820
|
const $21 = Data_Date_parsePositiveReversed($0.a2.a2);
|
|
8697
8821
|
switch($21.h) {
|
|
8698
|
-
case 0: /* nothing */ return {a1: {h: 4 /* 5103:
|
|
8699
|
-
case undefined: /* just */ return {a1: {h: 2 /* 5103:
|
|
8822
|
+
case 0: /* nothing */ return {a1: {h: 4 /* 5103:11811:Fail */}, a2: undefined};
|
|
8823
|
+
case undefined: /* just */ return {a1: {h: 2 /* 5103:11817:S */, a1: 1}, a2: {a1: $0.a2.a1, a2: $21.a1}};
|
|
8700
8824
|
}
|
|
8701
8825
|
}
|
|
8702
|
-
default: return {a1: {h: 1 /* 5103:
|
|
8826
|
+
default: return {a1: {h: 1 /* 5103:11813:P */, a1: 1}, a2: {a1: $0.a2.a1, a2: {a1: $1, a2: $0.a2.a2}}};
|
|
8703
8827
|
}
|
|
8704
8828
|
}
|
|
8705
8829
|
}
|
|
8706
8830
|
}
|
|
8707
|
-
case 2: /* 5103:
|
|
8831
|
+
case 2: /* 5103:11817:S */ {
|
|
8708
8832
|
switch($0.a1.a1) {
|
|
8709
8833
|
case 0: {
|
|
8710
8834
|
switch(Prelude_Types_isDigit($1)) {
|
|
8711
|
-
case 1: return {a1: {h: 1 /* 5103:
|
|
8712
|
-
case 0: return {a1: {h: 4 /* 5103:
|
|
8835
|
+
case 1: return {a1: {h: 1 /* 5103:11813:P */, a1: 1}, a2: {a1: $0.a2, a2: {a1: $1, a2: {h: 0}}}};
|
|
8836
|
+
case 0: return {a1: {h: 4 /* 5103:11811:Fail */}, a2: undefined};
|
|
8713
8837
|
}
|
|
8714
8838
|
}
|
|
8715
8839
|
case 1: {
|
|
8716
8840
|
switch(Prelude_Types_isDigit($1)) {
|
|
8717
|
-
case 1: return {a1: {h: 3 /* 5103:
|
|
8718
|
-
case 0: return {a1: {h: 4 /* 5103:
|
|
8841
|
+
case 1: return {a1: {h: 3 /* 5103:11810:Day */}, a2: {a1: $0.a2.a1, a2: {a1: $0.a2.a2, a2: {a1: $1, a2: {h: 0}}}}};
|
|
8842
|
+
case 0: return {a1: {h: 4 /* 5103:11811:Fail */}, a2: undefined};
|
|
8719
8843
|
}
|
|
8720
8844
|
}
|
|
8721
8845
|
}
|
|
8722
8846
|
}
|
|
8723
|
-
case 3: /* 5103:
|
|
8847
|
+
case 3: /* 5103:11810:Day */ return {a1: {h: 3 /* 5103:11810:Day */}, a2: {a1: $0.a2.a1, a2: {a1: $0.a2.a2.a1, a2: {a1: $1, a2: $0.a2.a2.a2}}}};
|
|
8724
8848
|
}
|
|
8725
8849
|
}
|
|
8726
8850
|
|
|
@@ -8800,7 +8924,7 @@ function Data_Date_showYearAndMonth($0) {
|
|
|
8800
8924
|
function Data_Date_parsePositiveReversed($0) {
|
|
8801
8925
|
switch($0.h) {
|
|
8802
8926
|
case 0: /* nil */ return {a1: 0n};
|
|
8803
|
-
case undefined: /* cons */ return Prelude_Types_x3ex3ex3d_Monad_Maybe(
|
|
8927
|
+
case undefined: /* cons */ return Prelude_Types_x3ex3ex3d_Monad_Maybe(Data_Date_n__4986_11703_parseNat($0.a1, $0.a2, $0.a1), n => Prelude_Types_x3ex3ex3d_Monad_Maybe(Data_Date_parsePositiveReversed($0.a2), $f => ({a1: (n+($f*10n))})));
|
|
8804
8928
|
}
|
|
8805
8929
|
}
|
|
8806
8930
|
|
|
@@ -8813,7 +8937,7 @@ function Data_Date_parseDateTimeString($0) {
|
|
|
8813
8937
|
|
|
8814
8938
|
/* Data.Date.parseDateString : String -> Maybe Date */
|
|
8815
8939
|
function Data_Date_parseDateString($0) {
|
|
8816
|
-
return
|
|
8940
|
+
return Data_Date_n__5103_11821_guardSuccess(Prelude_Types_foldl_Foldable_List($5 => $6 => Data_Date_n__5103_11820_go($5, $6), {a1: {h: 0 /* 5103:11818:Start */}, a2: undefined}, Prelude_Types_fastUnpack($0)));
|
|
8817
8941
|
}
|
|
8818
8942
|
|
|
8819
8943
|
/* Data.Date.pad : Nat -> String */
|
|
@@ -8839,7 +8963,7 @@ function Data_Issue_parseIssueString($0) {
|
|
|
8839
8963
|
|
|
8840
8964
|
/* Data.Issue.parseIssue : JSON -> Either String Issue */
|
|
8841
8965
|
function Data_Issue_parseIssue($0) {
|
|
8842
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), issue => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'issue_number', a2: {a1: 'title', a2: {a1: 'author', a2: {a1: 'created_at', a2: {a1: 'assignee', a2: {h: 0}}}}}}, issue), $
|
|
8966
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), issue => 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), $18 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($18.a1), number => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($18.a2.a1), title => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($18.a2.a2.a1), 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(), $3a => Data_Issue_parseDateTime($3a), Language_JSON_Accessors_string($18.a2.a2.a2.a2.a1)), createdAt => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_optional($45 => Language_JSON_Accessors_string($45), $18.a2.a2.a2.a2.a2.a1), assignee => ({h: 1 /* Right */, a1: {a1: number, a2: title, a3: body, a4: createdAt, a5: author, a6: assignee}})))))))));
|
|
8843
8967
|
}
|
|
8844
8968
|
|
|
8845
8969
|
/* Data.Issue.parseDateTime : String -> Either String Date */
|
|
@@ -8900,7 +9024,7 @@ function Data_PullRequest_parseState($0, $1) {
|
|
|
8900
9024
|
|
|
8901
9025
|
/* Data.PullRequest.parsePullRequestsString : String -> Either String (List PullRequest) */
|
|
8902
9026
|
function Data_PullRequest_parsePullRequestsString($0) {
|
|
8903
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_227(), csegen_228(),
|
|
9027
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_227(), csegen_228(), csegen_346(), $0);
|
|
8904
9028
|
}
|
|
8905
9029
|
|
|
8906
9030
|
/* Data.PullRequest.parsePullRequestString : String -> Either String PullRequest */
|
|
@@ -8993,47 +9117,47 @@ function Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, $2) {
|
|
|
8993
9117
|
default: return {h: 0};
|
|
8994
9118
|
}
|
|
8995
9119
|
};
|
|
8996
|
-
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(
|
|
9120
|
+
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_359(), $2.a1)}, $b);
|
|
8997
9121
|
}
|
|
8998
9122
|
|
|
8999
|
-
/* Config.
|
|
9000
|
-
function
|
|
9001
|
-
const $6 =
|
|
9002
|
-
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($1c => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {a1: 'Would you like harmony configured for a \'dark\' or \'light\' terminal background', a2: {a1: $6, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $1c)))($30 =>
|
|
9123
|
+
/* Config.9588:2540:themePrompt */
|
|
9124
|
+
function Config_n__9588_2540_themePrompt($0, $1, $2, $3, $4, $5) {
|
|
9125
|
+
const $6 = Config_n__9588_2536_enterForDefaultStr($0, $1, $2, $3, $4, 'dark');
|
|
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 => Config_n__9588_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)))));
|
|
9003
9127
|
}
|
|
9004
9128
|
|
|
9005
|
-
/* Config.
|
|
9006
|
-
function
|
|
9129
|
+
/* Config.9588:2539:repo */
|
|
9130
|
+
function Config_n__9588_2539_repo($0, $1, $2, $3, $4, $5) {
|
|
9007
9131
|
return Prelude_Types_map_Functor_Maybe(csegen_318()(), $5);
|
|
9008
9132
|
}
|
|
9009
9133
|
|
|
9010
|
-
/* Config.
|
|
9011
|
-
function
|
|
9134
|
+
/* Config.8655:1562:parseSuffix */
|
|
9135
|
+
function Config_n__8655_1562_parseSuffix($0, $1) {
|
|
9012
9136
|
return Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, Data_String_break$($8 => Prelude_EqOrd_x3dx3d_Eq_Char($8, '.'), $1));
|
|
9013
9137
|
}
|
|
9014
9138
|
|
|
9015
|
-
/* Config.
|
|
9016
|
-
function
|
|
9017
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b =>
|
|
9139
|
+
/* Config.8655:1561:parseSSH */
|
|
9140
|
+
function Config_n__8655_1561_parseSSH($0, $1) {
|
|
9141
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b => Config_n__8655_1562_parseSuffix($0, $b), $1);
|
|
9018
9142
|
}
|
|
9019
9143
|
|
|
9020
|
-
/* Config.
|
|
9021
|
-
function
|
|
9022
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b =>
|
|
9144
|
+
/* Config.8655:1560:parseHTTPS */
|
|
9145
|
+
function Config_n__8655_1560_parseHTTPS($0, $1) {
|
|
9146
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b => Config_n__8655_1562_parseSuffix($0, $b), $1);
|
|
9023
9147
|
}
|
|
9024
9148
|
|
|
9025
|
-
/* Config.
|
|
9026
|
-
function
|
|
9027
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
9149
|
+
/* Config.9588:2538:org */
|
|
9150
|
+
function Config_n__9588_2538_org($0, $1, $2, $3, $4, $5) {
|
|
9151
|
+
return Prelude_Types_map_Functor_Maybe(csegen_365()(), $5);
|
|
9028
9152
|
}
|
|
9029
9153
|
|
|
9030
|
-
/* Config.
|
|
9031
|
-
function
|
|
9154
|
+
/* Config.8366:1281:oneDayAgo */
|
|
9155
|
+
function Config_n__8366_1281_oneDayAgo($0, $1, $2) {
|
|
9032
9156
|
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(Number(_truncUBigInt32((now-86400n)))));
|
|
9033
9157
|
}
|
|
9034
9158
|
|
|
9035
|
-
/* Config.
|
|
9036
|
-
function
|
|
9159
|
+
/* Config.9588:2537:offerRetry */
|
|
9160
|
+
function Config_n__9588_2537_offerRetry($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
9037
9161
|
const $13 = $14 => {
|
|
9038
9162
|
switch($14.h) {
|
|
9039
9163
|
case 0: /* nothing */ {
|
|
@@ -9054,34 +9178,34 @@ function Config_n__9586_2537_offerRetry($0, $1, $2, $3, $4, $5, $6, $7, $8, $9)
|
|
|
9054
9178
|
return $5.a1.a2(undefined)(undefined)($9)($13);
|
|
9055
9179
|
}
|
|
9056
9180
|
|
|
9057
|
-
/* Config.
|
|
9058
|
-
function
|
|
9181
|
+
/* Config.9491:2423:help */
|
|
9182
|
+
function Config_n__9491_2423_help($0, $1) {
|
|
9059
9183
|
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}}})));
|
|
9060
9184
|
}
|
|
9061
9185
|
|
|
9062
|
-
/* Config.
|
|
9063
|
-
function
|
|
9186
|
+
/* Config.9588:2536:enterForDefaultStr */
|
|
9187
|
+
function Config_n__9588_2536_enterForDefaultStr($0, $1, $2, $3, $4, $5) {
|
|
9064
9188
|
return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $b => $b, {a1: ' (ENTER for default: ', a2: {a1: $5, a2: {a1: ')', a2: {h: 0}}}});
|
|
9065
9189
|
}
|
|
9066
9190
|
|
|
9067
|
-
/* Config.
|
|
9068
|
-
function
|
|
9191
|
+
/* Config.8608:1513:drop' */
|
|
9192
|
+
function Config_n__8608_1513_dropx27($0, $1) {
|
|
9069
9193
|
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));
|
|
9070
9194
|
}
|
|
9071
9195
|
|
|
9072
|
-
/* Config.
|
|
9073
|
-
function
|
|
9074
|
-
return Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($c =>
|
|
9196
|
+
/* Config.9588:2535:defaultStr */
|
|
9197
|
+
function Config_n__9588_2535_defaultStr($0, $1, $2, $3, $4, $5, $6) {
|
|
9198
|
+
return Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($c => Config_n__9588_2536_enterForDefaultStr($0, $1, $2, $3, $4, $5($c)), $6));
|
|
9075
9199
|
}
|
|
9076
9200
|
|
|
9077
|
-
/* Config.
|
|
9078
|
-
function
|
|
9079
|
-
const $6 =
|
|
9080
|
-
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($1c => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {a1: 'What kind of comment would you like Harmony to leave when it requests reviewers? [none/name/at-mention]', a2: {a1: $6, a2: {h: 0}}})+'\n'), $1c)))($2e =>
|
|
9201
|
+
/* Config.9588:2534:commentConfigPrompt */
|
|
9202
|
+
function Config_n__9588_2534_commentConfigPrompt($0, $1, $2, $3, $4, $5) {
|
|
9203
|
+
const $6 = Config_n__9588_2536_enterForDefaultStr($0, $1, $2, $3, $4, 'name');
|
|
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 => Config_n__9588_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)))));
|
|
9081
9205
|
}
|
|
9082
9206
|
|
|
9083
|
-
/* Config.
|
|
9084
|
-
function
|
|
9207
|
+
/* Config.8497:1406:checkRequestSettings */
|
|
9208
|
+
function Config_n__8497_1406_checkRequestSettings($0, $1) {
|
|
9085
9209
|
let $2;
|
|
9086
9210
|
switch($1.a6) {
|
|
9087
9211
|
case 1: {
|
|
@@ -9099,10 +9223,10 @@ function Config_n__8495_1406_checkRequestSettings($0, $1) {
|
|
|
9099
9223
|
}
|
|
9100
9224
|
}
|
|
9101
9225
|
|
|
9102
|
-
/* Config.
|
|
9103
|
-
function
|
|
9104
|
-
const $6 =
|
|
9105
|
-
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($1c => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {a1: 'Would you like harmony to parse branch names for \'jira\' slugs or \'github\' issue numbers to use as part of new PR title or body', a2: {a1: $6, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $1c)))($30 =>
|
|
9226
|
+
/* Config.9588:2533:branchParsingPrompt */
|
|
9227
|
+
function Config_n__9588_2533_branchParsingPrompt($0, $1, $2, $3, $4, $5) {
|
|
9228
|
+
const $6 = Config_n__9588_2536_enterForDefaultStr($0, $1, $2, $3, $4, 'none');
|
|
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 => Config_n__9588_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)))));
|
|
9106
9230
|
}
|
|
9107
9231
|
|
|
9108
9232
|
/* Config.show */
|
|
@@ -9137,7 +9261,7 @@ function Config_syncIfOld($0, $1, $2, $3) {
|
|
|
9137
9261
|
case 0: return $1b => Data_Promise_pure_Applicative_x28Promisex20x24ex29($1, $e, $1b);
|
|
9138
9262
|
}
|
|
9139
9263
|
};
|
|
9140
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9264
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__8366_1281_oneDayAgo($0, $1, csegen_74()()), $c, $2, $3);
|
|
9141
9265
|
}
|
|
9142
9266
|
|
|
9143
9267
|
/* Config.syncConfig : Config => Octokit => Bool -> Promise' Config */
|
|
@@ -9149,7 +9273,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
9149
9273
|
const $41 = {a1: updatedAt, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: $0.a8, a9: $0.a9, a10: teamSlugs, a11: labelNames, a12: orgMembers, a13: $0.a13, a14: $0.a14, a15: $0.a15, a16: $0.a16};
|
|
9150
9274
|
return $53 => $54 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($57 => $58 => Data_Promise_map_Functor_x28Promisex20x24ex29($5b => undefined, $5d => $5e => Config_writeConfig($41, $5d, $5e), $57, $58), $66 => $67 => $68 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_66()(), $2, () => $71 => $72 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($75 => $76 => $77 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($7a => Prelude_IO_prim__putStr('Your updated configuration is:\n', $7a), $75, $76, $77), $82 => $83 => $84 => $85 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($88 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($41)+'\n'), $88), $83, $84, $85), $71, $72)), $96 => $97 => $98 => Data_Promise_pure_Applicative_x28Promisex20x24ex29($41, $97, $98), $67, $68), $53, $54);
|
|
9151
9275
|
};
|
|
9152
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9276
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_378()(), $40, $3a, $3b);
|
|
9153
9277
|
};
|
|
9154
9278
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2f => $30 => FFI_GitHub_listRepoLabels($1, $0.a2, $0.a3, $2f, $30), $39, $2b, $2c);
|
|
9155
9279
|
};
|
|
@@ -9160,7 +9284,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
9160
9284
|
|
|
9161
9285
|
/* Config.settablePropsWithHelp : Config => String */
|
|
9162
9286
|
function Config_settablePropsWithHelp($0) {
|
|
9163
|
-
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 =>
|
|
9287
|
+
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 => Config_n__9491_2423_help($0, $9), Data_Config_settablePropNamesAndHelp())));
|
|
9164
9288
|
}
|
|
9165
9289
|
|
|
9166
9290
|
/* Config.setConfig : Config => String -> String -> Promise' Config */
|
|
@@ -9172,14 +9296,14 @@ function Config_setConfig($0, $1, $2) {
|
|
|
9172
9296
|
function Config_propSetter($0, $1) {
|
|
9173
9297
|
return $2 => {
|
|
9174
9298
|
switch($0) {
|
|
9175
|
-
case 0: return Config_update(
|
|
9176
|
-
case 1: return Config_update(
|
|
9177
|
-
case 2: return Config_update(
|
|
9178
|
-
case 3: return Config_update(
|
|
9179
|
-
case 4: return Config_update(
|
|
9180
|
-
case 5: return Config_update(
|
|
9181
|
-
case 6: return Config_update(
|
|
9182
|
-
case 7: return Config_update(
|
|
9299
|
+
case 0: return Config_update(csegen_383(), $8 => Config_parseBool($8), b => $c => ({a1: $c.a1, a2: $c.a2, a3: $c.a3, a4: $c.a4, a5: $c.a5, a6: b, a7: $c.a7, a8: $c.a8, a9: $c.a9, a10: $c.a10, a11: $c.a11, a12: $c.a12, a13: $c.a13, a14: $c.a14, a15: $c.a15, a16: $c.a16}), $1, $2);
|
|
9300
|
+
case 1: return Config_update(csegen_383(), $24 => Config_parseBool($24), b => $28 => ({a1: $28.a1, a2: $28.a2, a3: $28.a3, a4: $28.a4, a5: $28.a5, a6: $28.a6, a7: b, a8: $28.a8, a9: $28.a9, a10: $28.a10, a11: $28.a11, a12: $28.a12, a13: $28.a13, a14: $28.a14, a15: $28.a15, a16: $28.a16}), $1, $2);
|
|
9301
|
+
case 2: return Config_update(csegen_383(), $40 => Data_Config_CommentStrategy_parseCommentConfig(Data_String_toLower($40)), b => $46 => ({a1: $46.a1, a2: $46.a2, a3: $46.a3, a4: $46.a4, a5: $46.a5, a6: $46.a6, a7: $46.a7, a8: b, a9: $46.a9, a10: $46.a10, a11: $46.a11, a12: $46.a12, a13: $46.a13, a14: $46.a14, a15: $46.a15, a16: $46.a16}), $1, $2);
|
|
9302
|
+
case 3: return Config_update(csegen_383(), $5e => Data_Config_ParseBranchStrategy_parseBranchConfig(Data_String_toLower($5e)), s => $64 => ({a1: $64.a1, a2: $64.a2, a3: $64.a3, a4: $64.a4, a5: $64.a5, a6: $64.a6, a7: $64.a7, a8: $64.a8, a9: s, a10: $64.a10, a11: $64.a11, a12: $64.a12, a13: $64.a13, a14: $64.a14, a15: $64.a15, a16: $64.a16}), $1, $2);
|
|
9303
|
+
case 4: return Config_update(csegen_383(), $7c => ({a1: $7c}), s => $7f => ({a1: $7f.a1, a2: $7f.a2, a3: $7f.a3, a4: s, a5: $7f.a5, a6: $7f.a6, a7: $7f.a7, a8: $7f.a8, a9: $7f.a9, a10: $7f.a10, a11: $7f.a11, a12: $7f.a12, a13: $7f.a13, a14: $7f.a14, a15: $7f.a15, a16: $7f.a16}), $1, $2);
|
|
9304
|
+
case 5: return Config_update(csegen_383(), $97 => ({a1: $97}), s => $9a => ({a1: $9a.a1, a2: $9a.a2, a3: $9a.a3, a4: $9a.a4, a5: s, a6: $9a.a6, a7: $9a.a7, a8: $9a.a8, a9: $9a.a9, a10: $9a.a10, a11: $9a.a11, a12: $9a.a12, a13: $9a.a13, a14: $9a.a14, a15: $9a.a15, a16: $9a.a16}), $1, $2);
|
|
9305
|
+
case 6: return Config_update(csegen_383(), $b2 => Data_Theme_parseString($b2), t => $b6 => ({a1: $b6.a1, a2: $b6.a2, a3: $b6.a3, a4: $b6.a4, a5: $b6.a5, a6: $b6.a6, a7: $b6.a7, a8: $b6.a8, a9: $b6.a9, a10: $b6.a10, a11: $b6.a11, a12: $b6.a12, a13: $b6.a13, a14: $b6.a14, a15: t, a16: $b6.a16}), $1, $2);
|
|
9306
|
+
case 7: return Config_update(csegen_383(), $ce => ({a1: $ce}), s => $d1 => ({a1: $d1.a1, a2: $d1.a2, a3: $d1.a3, a4: $d1.a4, a5: $d1.a5, a6: $d1.a6, a7: $d1.a7, a8: $d1.a8, a9: $d1.a9, a10: $d1.a10, a11: $d1.a11, a12: $d1.a12, a13: $d1.a13, a14: {a1: s}, a15: $d1.a15, a16: $d1.a16}), $1, $2);
|
|
9183
9307
|
}
|
|
9184
9308
|
};
|
|
9185
9309
|
}
|
|
@@ -9209,7 +9333,7 @@ function Config_preferOriginRemote($0) {
|
|
|
9209
9333
|
|
|
9210
9334
|
/* Config.parseGitHubURI : String -> Maybe GitRemote */
|
|
9211
9335
|
function Config_parseGitHubURI($0) {
|
|
9212
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
9336
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(Config_n__8655_1560_parseHTTPS($0, $0), () => Config_n__8655_1561_parseSSH($0, $0));
|
|
9213
9337
|
}
|
|
9214
9338
|
|
|
9215
9339
|
/* Config.parseBool : String -> Maybe Bool */
|
|
@@ -9320,14 +9444,14 @@ function Config_findConfig($0, $1, $2) {
|
|
|
9320
9444
|
|
|
9321
9445
|
/* Config.dropPrefix' : String -> String -> Maybe String */
|
|
9322
9446
|
function Config_dropPrefixx27($0, $1) {
|
|
9323
|
-
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4),
|
|
9447
|
+
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4), Config_n__8608_1513_dropx27($0, Prelude_Types_fastUnpack($1)));
|
|
9324
9448
|
}
|
|
9325
9449
|
|
|
9326
9450
|
/* Config.createConfig : Git => Maybe String -> Bool -> Nat -> Maybe String -> Promise' Config */
|
|
9327
9451
|
function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
9328
9452
|
const $25 = $26 => $27 => $28 => {
|
|
9329
9453
|
const $2d = $2e => {
|
|
9330
|
-
const $30 =
|
|
9454
|
+
const $30 = Config_n__9588_2536_enterForDefaultStr($0, $4, $3, $2, $1, 'unset');
|
|
9331
9455
|
const $2f = () => $38 => $39 => {
|
|
9332
9456
|
const $63 = $64 => $65 => $66 => {
|
|
9333
9457
|
const $68 = $69 => $6a => {
|
|
@@ -9337,7 +9461,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9337
9461
|
default: return {a1: Data_String_trim($6d)};
|
|
9338
9462
|
}
|
|
9339
9463
|
};
|
|
9340
|
-
return Data_Promise_map_Functor_x28Promisex20x24ex29($6c,
|
|
9464
|
+
return Data_Promise_map_Functor_x28Promisex20x24ex29($6c, csegen_406()(), $69, $6a);
|
|
9341
9465
|
};
|
|
9342
9466
|
const $79 = configPAT => $7a => $7b => {
|
|
9343
9467
|
const $87 = $88 => $89 => $8a => {
|
|
@@ -9346,17 +9470,17 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9346
9470
|
const $9e = remoteGuess => $9f => $a0 => {
|
|
9347
9471
|
const $bd = defaultOrgAndRepo => $be => $bf => {
|
|
9348
9472
|
const $c4 = $c5 => {
|
|
9349
|
-
const $c7 =
|
|
9473
|
+
const $c7 = Config_n__9588_2535_defaultStr($0, $4, $3, $2, $1, csegen_365()(), defaultOrgAndRepo);
|
|
9350
9474
|
const $c6 = () => $d2 => $d3 => {
|
|
9351
9475
|
const $f1 = $f2 => $f3 => $f4 => {
|
|
9352
9476
|
const $10d = org => $10e => $10f => {
|
|
9353
9477
|
const $114 = $115 => {
|
|
9354
|
-
const $117 =
|
|
9478
|
+
const $117 = Config_n__9588_2535_defaultStr($0, $4, $3, $2, $1, csegen_318()(), defaultOrgAndRepo);
|
|
9355
9479
|
const $116 = () => $122 => $123 => {
|
|
9356
9480
|
const $141 = $142 => $143 => $144 => {
|
|
9357
9481
|
const $15d = repo => $15e => $15f => {
|
|
9358
9482
|
const $164 = $165 => {
|
|
9359
|
-
const $167 =
|
|
9483
|
+
const $167 = Config_n__9588_2536_enterForDefaultStr($0, $4, $3, $2, $1, remoteGuess);
|
|
9360
9484
|
const $166 = () => $16f => $170 => {
|
|
9361
9485
|
const $18e = $18f => $190 => $191 => {
|
|
9362
9486
|
const $1a4 = defaultRemote => $1a5 => $1a6 => {
|
|
@@ -9390,7 +9514,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9390
9514
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($261 => $262 => Config_nonOrgFallback(() => ({h: 0}), $266 => $267 => FFI_GitHub_listTeams(_, org, $266, $267), $261, $262), $26f, $25d, $25e);
|
|
9391
9515
|
};
|
|
9392
9516
|
};
|
|
9393
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9517
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_378()(), $24b, $245, $246);
|
|
9394
9518
|
};
|
|
9395
9519
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($23c => $23d => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $23c, $23d), $244, $238, $239);
|
|
9396
9520
|
};
|
|
@@ -9398,53 +9522,53 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9398
9522
|
};
|
|
9399
9523
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($219 => $21a => $21b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($21e => FFI_GitHub_octokit($88.a1, $21e), $219, $21a, $21b), $225, $215, $216);
|
|
9400
9524
|
};
|
|
9401
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9525
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $213, $20d, $20e);
|
|
9402
9526
|
};
|
|
9403
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9527
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9588_2540_themePrompt($0, $4, $3, $2, $1, csegen_74()()), $20c, $1ff, $200);
|
|
9404
9528
|
};
|
|
9405
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9529
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1fd, $1f7, $1f8);
|
|
9406
9530
|
};
|
|
9407
9531
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_74()(), 1, 'Would you like harmony to request reviews from individual users when it requests a teams review?'), $1f6, $1ec, $1ed);
|
|
9408
9532
|
};
|
|
9409
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9533
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1ea, $1e4, $1e5);
|
|
9410
9534
|
};
|
|
9411
9535
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_74()(), 1, 'Would you like harmony to request reviews from teams when it requests reviewers?'), $1e3, $1d9, $1da);
|
|
9412
9536
|
};
|
|
9413
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9537
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1d7, $1d1, $1d2);
|
|
9414
9538
|
};
|
|
9415
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9539
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9588_2533_branchParsingPrompt($0, $4, $3, $2, $1, csegen_74()()), $1d0, $1c3, $1c4);
|
|
9416
9540
|
};
|
|
9417
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9541
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1c1, $1bb, $1bc);
|
|
9418
9542
|
};
|
|
9419
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9543
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9588_2534_commentConfigPrompt($0, $4, $3, $2, $1, csegen_74()()), $1ba, $1ad, $1ae);
|
|
9420
9544
|
};
|
|
9421
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9545
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1ab, $1a5, $1a6);
|
|
9422
9546
|
};
|
|
9423
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($194 => $195 => Data_Promise_map_Functor_x28Promisex20x24ex29($198 => Util_Prompting_orIfEmpty({a1: remoteGuess}, Data_String_trim($198)),
|
|
9547
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($194 => $195 => Data_Promise_map_Functor_x28Promisex20x24ex29($198 => Util_Prompting_orIfEmpty({a1: remoteGuess}, Data_String_trim($198)), csegen_406()(), $194, $195), $1a4, $190, $191);
|
|
9424
9548
|
};
|
|
9425
9549
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($173 => $174 => $175 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($178 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $181 => $181, {a1: 'What GitHub remote repo would you like to use harmony for', a2: {a1: $167, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $178), $173, $174, $175), $18e, $16f, $170);
|
|
9426
9550
|
};
|
|
9427
9551
|
return $166();
|
|
9428
9552
|
};
|
|
9429
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9553
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $164, $15e, $15f);
|
|
9430
9554
|
};
|
|
9431
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($147 => $148 => Data_Promise_map_Functor_x28Promisex20x24ex29($14b => Util_Prompting_orIfEmpty(
|
|
9555
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($147 => $148 => Data_Promise_map_Functor_x28Promisex20x24ex29($14b => Util_Prompting_orIfEmpty(Config_n__9588_2539_repo($0, $4, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($14b)), csegen_406()(), $147, $148), $15d, $143, $144);
|
|
9432
9556
|
};
|
|
9433
9557
|
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);
|
|
9434
9558
|
};
|
|
9435
9559
|
return $116();
|
|
9436
9560
|
};
|
|
9437
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9561
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $114, $10e, $10f);
|
|
9438
9562
|
};
|
|
9439
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f7 => $f8 => Data_Promise_map_Functor_x28Promisex20x24ex29($fb => Util_Prompting_orIfEmpty(
|
|
9563
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f7 => $f8 => Data_Promise_map_Functor_x28Promisex20x24ex29($fb => Util_Prompting_orIfEmpty(Config_n__9588_2538_org($0, $4, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($fb)), csegen_406()(), $f7, $f8), $10d, $f3, $f4);
|
|
9440
9564
|
};
|
|
9441
9565
|
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);
|
|
9442
9566
|
};
|
|
9443
9567
|
return $c6();
|
|
9444
9568
|
};
|
|
9445
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9569
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $c4, $be, $bf);
|
|
9446
9570
|
};
|
|
9447
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a3 => $a4 => Data_Promise_x3cx7cx3e_Alternative_x28Promisex20Stringx29($a7 => $a8 => Data_Promise_map_Functor_x28Promisex20x24ex29($ab => Config_parseGitHubURI($ab), $af => $b0 => FFI_Git_remoteURI($0, remoteGuess, $af, $b0), $a7, $a8), () =>
|
|
9571
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a3 => $a4 => Data_Promise_x3cx7cx3e_Alternative_x28Promisex20Stringx29($a7 => $a8 => Data_Promise_map_Functor_x28Promisex20x24ex29($ab => Config_parseGitHubURI($ab), $af => $b0 => FFI_Git_remoteURI($0, remoteGuess, $af, $b0), $a7, $a8), () => csegen_408()(), $a3, $a4), $bd, $9f, $a0);
|
|
9448
9572
|
};
|
|
9449
9573
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8e => $8f => Data_Promise_map_Functor_x28Promisex20x24ex29($92 => Config_preferOriginRemote($92), $96 => $97 => FFI_Git_listRemotes($0, $96, $97), $8e, $8f), $9e, $89, $8a);
|
|
9450
9574
|
}
|
|
@@ -9459,14 +9583,14 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9459
9583
|
};
|
|
9460
9584
|
return $2f();
|
|
9461
9585
|
};
|
|
9462
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9586
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $2d, $27, $28);
|
|
9463
9587
|
};
|
|
9464
9588
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => $a => $b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($e => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $17 => $17, {a1: 'Creating a new configuration (storing in ', a2: {a1: Data_Config_filename(), a2: {a1: ')...', a2: {h: 0}}}})+'\n'), $e), $9, $a, $b), $25, $5, $6);
|
|
9465
9589
|
}
|
|
9466
9590
|
|
|
9467
9591
|
/* Config.checkConfigConsistency : Config -> Either (Doc AnsiStyle) () */
|
|
9468
9592
|
function Config_checkConfigConsistency($0) {
|
|
9469
|
-
return
|
|
9593
|
+
return Config_n__8497_1406_checkRequestSettings($0, $0);
|
|
9470
9594
|
}
|
|
9471
9595
|
|
|
9472
9596
|
/* Config.addIgnoredPRs : Config -> List Integer -> Promise' Config */
|
|
@@ -9523,21 +9647,21 @@ function AppVersion_printVersion($0) {
|
|
|
9523
9647
|
|
|
9524
9648
|
/* AppVersion.appVersion : String */
|
|
9525
9649
|
const AppVersion_appVersion = __lazy(function () {
|
|
9526
|
-
return '5.
|
|
9650
|
+
return '5.7.0';
|
|
9527
9651
|
});
|
|
9528
9652
|
|
|
9529
9653
|
/* Commands.Help.subcommandHelp' : String -> Doc AnsiStyle */
|
|
9530
9654
|
function Commands_Help_subcommandHelpx27($0) {
|
|
9531
9655
|
switch($0) {
|
|
9532
|
-
case 'label': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<label>'), a2:
|
|
9533
|
-
case 'request': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<team-slug> | +<user-login>'), a2:
|
|
9656
|
+
case 'label': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<label>'), a2: csegen_422()}, {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Util_reflow('Add one or more labels to a PR, creating a new PR if one does not exist.'), Text_PrettyPrint_Prettyprinter_Doc_line()), Text_PrettyPrint_Prettyprinter_Util_reflow('Labels that do not exist yet will be created automatically.')), a2: {h: 0}});
|
|
9657
|
+
case 'request': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<team-slug> | +<user-login>'), a2: csegen_427()}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $2b => $2b, {a1: 'Request review from the given team(s) and one lucky member from one\nof those teams to review the PR for the current branch.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $38 => $38, {a1: 'Also request reviews from any users with logins specified. You specify\nthese additional users by prefixing their logins with \'+\'.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally apply any number of labels by prefixing them with \'#\'.'), a2: {h: 0}}}});
|
|
9534
9658
|
case 'config': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<property>'), a2: {a1: Commands_Help_argument(0, '<value>'), a2: {h: 0}}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $5f => $5f, {a1: 'Get or set the value of a configuration property. Not all properties\ncan be set and read via this subcommand.', a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_line()), Commands_Help_argumentx27('properties')), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(':'), a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_align(Text_PrettyPrint_Prettyprinter_Doc_concatWith(a => b => Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(a, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(','), a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_softline()), b), Prelude_Types_List_mapAppend({h: 0}, $88 => Commands_Help_option($88), Data_Config_settablePropNames())))), a2: {h: 0}});
|
|
9535
|
-
case 'pr': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--draft'), a2: {a1: Commands_Help_argument(0, '-i/--into {<branch-name>}'), a2:
|
|
9659
|
+
case 'pr': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--draft'), a2: {a1: Commands_Help_argument(0, '-i/--into {<branch-name>}'), a2: csegen_427()}}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Identify an existing PR or create a new one for the current branch.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally apply any number of labels by prefixing them with \'#\'.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally mark a new or existing PR as a draft with the --draft flag.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Optionally specify the branch to merge into with the --into option.'), a2: {h: 0}}}}});
|
|
9536
9660
|
case 'contribute': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '-c/--checkout | -l/--list'), a2: {a1: Commands_Help_argument(0, '-<num>'), a2: {a1: Commands_Help_argument(0, '-i/--ignore {<uri>/<pr-number>}'), a2: {h: 0}}}}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $c8 => $c8, {a1: 'Contribute to an open PR. Prints a URL. Prioritizes PRs you are\nrequested to review but will also return other PRs.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $d5 => $d5, {a1: 'Use dash followed by a number (e.g. \'-3\') to skip that number of\npotential PRs and return the next.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e2 => $e2, {a1: 'Specify a PR to ignore (only affects the local Harmony config on\nthis machine) if you would like to more permanently skip a potential\nPR. Do this with the \'--ignore\' option followed by a GitHub URI or\nPull Request number.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $ef => $ef, {a1: 'Use --list to list multiple PRs instead of just one. This option \nsupports skipping PRs but does not support the checkout option because\nthere is no single PR that should be checked out.', a2: {h: 0}})), a2: {h: 0}}}}});
|
|
9537
9661
|
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}});
|
|
9538
9662
|
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}});
|
|
9539
9663
|
case 'version': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print version'), a2: {h: 0}});
|
|
9540
|
-
case 'quick': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Quickly spin up new work with a GitHub issue and associated feature branch. If you have harmony configured to parse GitHub issue numbers ('), a2: {a1: Commands_Help_shell('harmony config branchParsing github'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(') then any PR created from the new branch will automatically link to the new ticket in its description.'), a2: {h: 0}}}}), a2: {h: 0}});
|
|
9664
|
+
case 'quick': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--bugfix'), a2: {h: 0}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Quickly spin up new work with a GitHub issue and associated feature branch. If you have harmony configured to parse GitHub issue numbers ('), a2: {a1: Commands_Help_shell('harmony config branchParsing github'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(') then any PR created from the new branch will automatically link to the new ticket in its description.'), a2: {h: 0}}}}), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $13c => $13c, {a1: 'By default the branch will have the \'feature\' prefix. If the\n--bugfix flag is specified, the \'bugfix\' prefix will be used.', a2: {h: 0}})), a2: {h: 0}}});
|
|
9541
9665
|
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}});
|
|
9542
9666
|
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}});
|
|
9543
9667
|
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}});
|
|
@@ -9545,7 +9669,7 @@ function Commands_Help_subcommandHelpx27($0) {
|
|
|
9545
9669
|
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}});
|
|
9546
9670
|
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}});
|
|
9547
9671
|
case 'rq': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Alias for \'request\' command.'), a2: {h: 0}});
|
|
9548
|
-
default: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
9672
|
+
default: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $185 => $185, {a1: 'Unreconized command: ', a2: {a1: $0, a2: {h: 0}}}));
|
|
9549
9673
|
}
|
|
9550
9674
|
}
|
|
9551
9675
|
|
|
@@ -9744,7 +9868,7 @@ function Commands_case__request_19159($0, $1, $2, $3, $4, $5) {
|
|
|
9744
9868
|
|
|
9745
9869
|
/* Commands.case block in case block in request,partitionedArgs */
|
|
9746
9870
|
function Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_19079($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
9747
|
-
const $9 = Prelude_Interfaces_mapHom(
|
|
9871
|
+
const $9 = Prelude_Interfaces_mapHom(csegen_604(), $f => Prelude_Types_List_mapAppend({h: 0}, $13 => Data_String_Extra_drop(1n, $13), $f))({a1: $5, a2: $7.a1});
|
|
9748
9872
|
return {a1: $9.a1, a2: {a1: $7.a2, a2: $9.a2}};
|
|
9749
9873
|
}
|
|
9750
9874
|
|
|
@@ -9753,30 +9877,30 @@ function Commands_case__requestx2cpartitionedArgs_19056($0, $1, $2, $3, $4, $5)
|
|
|
9753
9877
|
return Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_19079($0, $1, $2, $3, $4, $5.a1, $5.a2, Data_List_partition($12 => BashCompletion_isHashPrefix($12), $5.a2));
|
|
9754
9878
|
}
|
|
9755
9879
|
|
|
9756
|
-
/* Commands.
|
|
9757
|
-
function
|
|
9880
|
+
/* Commands.8939:18213:recombineIntoArgs */
|
|
9881
|
+
function Commands_n__8939_18213_recombineIntoArgs($0, $1) {
|
|
9758
9882
|
switch($1.h) {
|
|
9759
9883
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
9760
9884
|
case undefined: /* cons */ {
|
|
9761
9885
|
switch($1.a1) {
|
|
9762
9886
|
case '-i': {
|
|
9763
9887
|
switch($1.a2.h) {
|
|
9764
|
-
case 0: /* nil */ return
|
|
9888
|
+
case 0: /* nil */ return csegen_608();
|
|
9765
9889
|
case undefined: /* cons */ {
|
|
9766
|
-
const $8 =
|
|
9890
|
+
const $8 = Commands_n__8939_18211_parseIntoOpt($0, $1.a2.a1);
|
|
9767
9891
|
switch($8.h) {
|
|
9768
9892
|
case undefined: /* just */ {
|
|
9769
|
-
const $c =
|
|
9893
|
+
const $c = Commands_n__8939_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9770
9894
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
9771
9895
|
}
|
|
9772
9896
|
case 0: /* nothing */ {
|
|
9773
|
-
const $14 =
|
|
9897
|
+
const $14 = Commands_n__8939_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9774
9898
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
9775
9899
|
}
|
|
9776
9900
|
}
|
|
9777
9901
|
}
|
|
9778
9902
|
default: {
|
|
9779
|
-
const $1e =
|
|
9903
|
+
const $1e = Commands_n__8939_18213_recombineIntoArgs($0, $1.a2);
|
|
9780
9904
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
9781
9905
|
}
|
|
9782
9906
|
}
|
|
@@ -9785,26 +9909,26 @@ function Commands_n__8925_18213_recombineIntoArgs($0, $1) {
|
|
|
9785
9909
|
switch($1.a2.h) {
|
|
9786
9910
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--into', a2: {h: 0}}};
|
|
9787
9911
|
case undefined: /* cons */ {
|
|
9788
|
-
const $2b =
|
|
9912
|
+
const $2b = Commands_n__8939_18211_parseIntoOpt($0, $1.a2.a1);
|
|
9789
9913
|
switch($2b.h) {
|
|
9790
9914
|
case undefined: /* just */ {
|
|
9791
|
-
const $2f =
|
|
9915
|
+
const $2f = Commands_n__8939_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9792
9916
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
9793
9917
|
}
|
|
9794
9918
|
case 0: /* nothing */ {
|
|
9795
|
-
const $37 =
|
|
9919
|
+
const $37 = Commands_n__8939_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9796
9920
|
return {a1: $37.a1, a2: {a1: '--into', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
9797
9921
|
}
|
|
9798
9922
|
}
|
|
9799
9923
|
}
|
|
9800
9924
|
default: {
|
|
9801
|
-
const $41 =
|
|
9925
|
+
const $41 = Commands_n__8939_18213_recombineIntoArgs($0, $1.a2);
|
|
9802
9926
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
9803
9927
|
}
|
|
9804
9928
|
}
|
|
9805
9929
|
}
|
|
9806
9930
|
default: {
|
|
9807
|
-
const $49 =
|
|
9931
|
+
const $49 = Commands_n__8939_18213_recombineIntoArgs($0, $1.a2);
|
|
9808
9932
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
9809
9933
|
}
|
|
9810
9934
|
}
|
|
@@ -9812,30 +9936,30 @@ function Commands_n__8925_18213_recombineIntoArgs($0, $1) {
|
|
|
9812
9936
|
}
|
|
9813
9937
|
}
|
|
9814
9938
|
|
|
9815
|
-
/* Commands.
|
|
9816
|
-
function
|
|
9939
|
+
/* Commands.10991:20153:recombineIgnoreArgs */
|
|
9940
|
+
function Commands_n__10991_20153_recombineIgnoreArgs($0, $1) {
|
|
9817
9941
|
switch($1.h) {
|
|
9818
9942
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
9819
9943
|
case undefined: /* cons */ {
|
|
9820
9944
|
switch($1.a1) {
|
|
9821
9945
|
case '-i': {
|
|
9822
9946
|
switch($1.a2.h) {
|
|
9823
|
-
case 0: /* nil */ return
|
|
9947
|
+
case 0: /* nil */ return csegen_608();
|
|
9824
9948
|
case undefined: /* cons */ {
|
|
9825
|
-
const $8 =
|
|
9949
|
+
const $8 = Commands_n__10991_20150_parseIgnoreOpt($0, $1.a2.a1);
|
|
9826
9950
|
switch($8.h) {
|
|
9827
9951
|
case undefined: /* just */ {
|
|
9828
|
-
const $c =
|
|
9952
|
+
const $c = Commands_n__10991_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9829
9953
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
9830
9954
|
}
|
|
9831
9955
|
case 0: /* nothing */ {
|
|
9832
|
-
const $14 =
|
|
9956
|
+
const $14 = Commands_n__10991_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9833
9957
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
9834
9958
|
}
|
|
9835
9959
|
}
|
|
9836
9960
|
}
|
|
9837
9961
|
default: {
|
|
9838
|
-
const $1e =
|
|
9962
|
+
const $1e = Commands_n__10991_20153_recombineIgnoreArgs($0, $1.a2);
|
|
9839
9963
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
9840
9964
|
}
|
|
9841
9965
|
}
|
|
@@ -9844,26 +9968,26 @@ function Commands_n__10977_20153_recombineIgnoreArgs($0, $1) {
|
|
|
9844
9968
|
switch($1.a2.h) {
|
|
9845
9969
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
|
|
9846
9970
|
case undefined: /* cons */ {
|
|
9847
|
-
const $2b =
|
|
9971
|
+
const $2b = Commands_n__10991_20150_parseIgnoreOpt($0, $1.a2.a1);
|
|
9848
9972
|
switch($2b.h) {
|
|
9849
9973
|
case undefined: /* just */ {
|
|
9850
|
-
const $2f =
|
|
9974
|
+
const $2f = Commands_n__10991_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9851
9975
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
9852
9976
|
}
|
|
9853
9977
|
case 0: /* nothing */ {
|
|
9854
|
-
const $37 =
|
|
9978
|
+
const $37 = Commands_n__10991_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9855
9979
|
return {a1: $37.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
9856
9980
|
}
|
|
9857
9981
|
}
|
|
9858
9982
|
}
|
|
9859
9983
|
default: {
|
|
9860
|
-
const $41 =
|
|
9984
|
+
const $41 = Commands_n__10991_20153_recombineIgnoreArgs($0, $1.a2);
|
|
9861
9985
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
9862
9986
|
}
|
|
9863
9987
|
}
|
|
9864
9988
|
}
|
|
9865
9989
|
default: {
|
|
9866
|
-
const $49 =
|
|
9990
|
+
const $49 = Commands_n__10991_20153_recombineIgnoreArgs($0, $1.a2);
|
|
9867
9991
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
9868
9992
|
}
|
|
9869
9993
|
}
|
|
@@ -9871,23 +9995,23 @@ function Commands_n__10977_20153_recombineIgnoreArgs($0, $1) {
|
|
|
9871
9995
|
}
|
|
9872
9996
|
}
|
|
9873
9997
|
|
|
9874
|
-
/* Commands.
|
|
9875
|
-
function
|
|
9998
|
+
/* Commands.10205:19397:putNameLn */
|
|
9999
|
+
function Commands_n__10205_19397_putNameLn($0, $1, $2, $3) {
|
|
9876
10000
|
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}}}});
|
|
9877
10001
|
}
|
|
9878
10002
|
|
|
9879
|
-
/* Commands.
|
|
9880
|
-
function
|
|
9881
|
-
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $f =>
|
|
10003
|
+
/* Commands.8677:17949:putLabels */
|
|
10004
|
+
function Commands_n__8677_17949_putLabels($0, $1, $2, $3, $4) {
|
|
10005
|
+
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__8677_17948_putLabel($0, $1, $2, $3, $f), $4)));
|
|
9882
10006
|
}
|
|
9883
10007
|
|
|
9884
|
-
/* Commands.
|
|
9885
|
-
function
|
|
10008
|
+
/* Commands.8677:17948:putLabel */
|
|
10009
|
+
function Commands_n__8677_17948_putLabel($0, $1, $2, $3, $4) {
|
|
9886
10010
|
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)));
|
|
9887
10011
|
}
|
|
9888
10012
|
|
|
9889
|
-
/* Commands.
|
|
9890
|
-
function
|
|
10013
|
+
/* Commands.11343:20514:printDetails */
|
|
10014
|
+
function Commands_n__11343_20514_printDetails($0, $1, $2, $3, $4) {
|
|
9891
10015
|
const $5 = Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4.a8));
|
|
9892
10016
|
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));
|
|
9893
10017
|
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)));
|
|
@@ -9896,8 +10020,8 @@ function Commands_n__11329_20514_printDetails($0, $1, $2, $3, $4) {
|
|
|
9896
10020
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: $5, a2: {a1: $d, a2: {a1: $16, a2: {a1: $21, a2: {a1: $2f, a2: {h: 0}}}}}});
|
|
9897
10021
|
}
|
|
9898
10022
|
|
|
9899
|
-
/* Commands.
|
|
9900
|
-
function
|
|
10023
|
+
/* Commands.11343:20513:pickOne */
|
|
10024
|
+
function Commands_n__11343_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
9901
10025
|
const $9 = Data_List_headx27(Data_List_drop($5, Prelude_Types_List_tailRecAppend($7, $8)));
|
|
9902
10026
|
return $12 => $13 => {
|
|
9903
10027
|
switch($9.h) {
|
|
@@ -9911,7 +10035,7 @@ function Commands_n__11329_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
9911
10035
|
break;
|
|
9912
10036
|
}
|
|
9913
10037
|
case 0: /* nothing */ {
|
|
9914
|
-
$1a =
|
|
10038
|
+
$1a = csegen_613();
|
|
9915
10039
|
break;
|
|
9916
10040
|
}
|
|
9917
10041
|
}
|
|
@@ -9921,23 +10045,23 @@ function Commands_n__11329_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
9921
10045
|
};
|
|
9922
10046
|
}
|
|
9923
10047
|
|
|
9924
|
-
/* Commands.
|
|
9925
|
-
function
|
|
10048
|
+
/* Commands.9805:19044:partitionedArgs */
|
|
10049
|
+
function Commands_n__9805_19044_partitionedArgs($0, $1, $2, $3, $4) {
|
|
9926
10050
|
return Commands_case__requestx2cpartitionedArgs_19056($0, $1, $2, $3, $4, Data_List_partition($e => Data_String_isPrefixOf('+', $e), $4));
|
|
9927
10051
|
}
|
|
9928
10052
|
|
|
9929
|
-
/* Commands.
|
|
9930
|
-
function
|
|
10053
|
+
/* Commands.10373:19585:parseTeamArg */
|
|
10054
|
+
function Commands_n__10373_19585_parseTeamArg($0, $1) {
|
|
9931
10055
|
return {a1: {a1: $1}};
|
|
9932
10056
|
}
|
|
9933
10057
|
|
|
9934
|
-
/* Commands.
|
|
9935
|
-
function
|
|
10058
|
+
/* Commands.10991:20152:parseSkipArg */
|
|
10059
|
+
function Commands_n__10991_20152_parseSkipArg($0, $1) {
|
|
9936
10060
|
return Commands_case__parseContributeArgsx2cparseSkipArg_20199($0, $1, Data_String_strM($1));
|
|
9937
10061
|
}
|
|
9938
10062
|
|
|
9939
|
-
/* Commands.
|
|
9940
|
-
function
|
|
10063
|
+
/* Commands.10991:20151:parseListFlag */
|
|
10064
|
+
function Commands_n__10991_20151_parseListFlag($0, $1) {
|
|
9941
10065
|
switch($1) {
|
|
9942
10066
|
case '-l': return {a1: {h: 0 /* List */}};
|
|
9943
10067
|
case '--list': return {a1: {h: 0 /* List */}};
|
|
@@ -9945,8 +10069,8 @@ function Commands_n__10977_20151_parseListFlag($0, $1) {
|
|
|
9945
10069
|
}
|
|
9946
10070
|
}
|
|
9947
10071
|
|
|
9948
|
-
/* Commands.
|
|
9949
|
-
function
|
|
10072
|
+
/* Commands.8939:18212:parseLabelArg */
|
|
10073
|
+
function Commands_n__8939_18212_parseLabelArg($0, $1) {
|
|
9950
10074
|
const $2 = Data_String_strM($1);
|
|
9951
10075
|
switch($2.h) {
|
|
9952
10076
|
case undefined: /* cons */ {
|
|
@@ -9959,29 +10083,29 @@ function Commands_n__8925_18212_parseLabelArg($0, $1) {
|
|
|
9959
10083
|
}
|
|
9960
10084
|
}
|
|
9961
10085
|
|
|
9962
|
-
/* Commands.
|
|
9963
|
-
function
|
|
10086
|
+
/* Commands.8939:18211:parseIntoOpt */
|
|
10087
|
+
function Commands_n__8939_18211_parseIntoOpt($0, $1) {
|
|
9964
10088
|
const $2 = Util_String_nonEmpty($1);
|
|
9965
10089
|
return Prelude_Types_map_Functor_Maybe($7 => $7, $2);
|
|
9966
10090
|
}
|
|
9967
10091
|
|
|
9968
|
-
/* Commands.
|
|
9969
|
-
function
|
|
9970
|
-
const $2 = Data_String_split(
|
|
10092
|
+
/* Commands.10991:20150:parseIgnoreOpt */
|
|
10093
|
+
function Commands_n__10991_20150_parseIgnoreOpt($0, $1) {
|
|
10094
|
+
const $2 = Data_String_split(csegen_359(), $1);
|
|
9971
10095
|
const $7 = Data_List1_last($2);
|
|
9972
10096
|
return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
|
|
9973
10097
|
}
|
|
9974
10098
|
|
|
9975
|
-
/* Commands.
|
|
9976
|
-
function
|
|
10099
|
+
/* Commands.8939:18210:parseDraftFlag */
|
|
10100
|
+
function Commands_n__8939_18210_parseDraftFlag($0, $1) {
|
|
9977
10101
|
switch($1) {
|
|
9978
10102
|
case '--draft': return {a1: {h: 0 /* Draft */}};
|
|
9979
10103
|
default: return {h: 0};
|
|
9980
10104
|
}
|
|
9981
10105
|
}
|
|
9982
10106
|
|
|
9983
|
-
/* Commands.
|
|
9984
|
-
function
|
|
10107
|
+
/* Commands.10373:19584:parseCompletedFlag */
|
|
10108
|
+
function Commands_n__10373_19584_parseCompletedFlag($0, $1) {
|
|
9985
10109
|
switch($1) {
|
|
9986
10110
|
case '-c': return {a1: {h: 0}};
|
|
9987
10111
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -9989,8 +10113,8 @@ function Commands_n__10359_19584_parseCompletedFlag($0, $1) {
|
|
|
9989
10113
|
}
|
|
9990
10114
|
}
|
|
9991
10115
|
|
|
9992
|
-
/* Commands.
|
|
9993
|
-
function
|
|
10116
|
+
/* Commands.10991:20149:parseCheckoutFlag */
|
|
10117
|
+
function Commands_n__10991_20149_parseCheckoutFlag($0, $1) {
|
|
9994
10118
|
switch($1) {
|
|
9995
10119
|
case '-c': return {a1: {h: 1 /* Checkout */}};
|
|
9996
10120
|
case '--checkout': return {a1: {h: 1 /* Checkout */}};
|
|
@@ -9998,8 +10122,8 @@ function Commands_n__10977_20149_parseCheckoutFlag($0, $1) {
|
|
|
9998
10122
|
}
|
|
9999
10123
|
}
|
|
10000
10124
|
|
|
10001
|
-
/* Commands.
|
|
10002
|
-
function
|
|
10125
|
+
/* Commands.11343:20512:listSome */
|
|
10126
|
+
function Commands_n__11343_20512_listSome($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10003
10127
|
const $15 = $16 => {
|
|
10004
10128
|
let $1b;
|
|
10005
10129
|
switch(Prelude_Types_null_Foldable_List($6)) {
|
|
@@ -10012,13 +10136,13 @@ function Commands_n__11329_20512_listSome($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
10012
10136
|
break;
|
|
10013
10137
|
}
|
|
10014
10138
|
}
|
|
10015
|
-
return Prelude_Interfaces_when(csegen_66()(), $1b, () => $20 => $21 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
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 => Commands_n__11343_20510_goListSome($0, $1, $2, $3, 0, Data_List_take(5n, $6)), $28, $29), $20, $21));
|
|
10016
10140
|
};
|
|
10017
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10141
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_n__11343_20510_goListSome($0, $1, $2, $3, 1, Data_List_drop($4, $5)), $15, $7, $8);
|
|
10018
10142
|
}
|
|
10019
10143
|
|
|
10020
|
-
/* Commands.
|
|
10021
|
-
function
|
|
10144
|
+
/* Commands.9365:18641:labelSlugs */
|
|
10145
|
+
function Commands_n__9365_18641_labelSlugs($0, $1, $2, $3) {
|
|
10022
10146
|
const $5 = $6 => $7 => {
|
|
10023
10147
|
switch($6.h) {
|
|
10024
10148
|
case 2: /* Label */ return {a1: $6.a1, a2: $7};
|
|
@@ -10028,13 +10152,13 @@ function Commands_n__9351_18641_labelSlugs($0, $1, $2, $3) {
|
|
|
10028
10152
|
return Prelude_Types_foldr_Foldable_List($5, {h: 0}, $3);
|
|
10029
10153
|
}
|
|
10030
10154
|
|
|
10031
|
-
/* Commands.
|
|
10032
|
-
function
|
|
10155
|
+
/* Commands.11343:20511:isNotIgnored */
|
|
10156
|
+
function Commands_n__11343_20511_isNotIgnored($0, $1, $2, $3, $4, $5) {
|
|
10033
10157
|
return Data_Maybe_isNothing(Data_List_find($a => Prelude_EqOrd_x3dx3d_Eq_Integer($a, $5.a1), $4.a13));
|
|
10034
10158
|
}
|
|
10035
10159
|
|
|
10036
|
-
/* Commands.
|
|
10037
|
-
function
|
|
10160
|
+
/* Commands.9365:18640:isDraft */
|
|
10161
|
+
function Commands_n__9365_18640_isDraft($0, $1, $2, $3) {
|
|
10038
10162
|
const $7 = $8 => {
|
|
10039
10163
|
switch($8.h) {
|
|
10040
10164
|
case 0: /* Draft */ return 1;
|
|
@@ -10045,8 +10169,8 @@ function Commands_n__9351_18640_isDraft($0, $1, $2, $3) {
|
|
|
10045
10169
|
return Data_Maybe_isJust($5);
|
|
10046
10170
|
}
|
|
10047
10171
|
|
|
10048
|
-
/* Commands.
|
|
10049
|
-
function
|
|
10172
|
+
/* Commands.9365:18639:intoBranch */
|
|
10173
|
+
function Commands_n__9365_18639_intoBranch($0, $1, $2, $3) {
|
|
10050
10174
|
const $d = $e => {
|
|
10051
10175
|
switch($e.h) {
|
|
10052
10176
|
case 1: /* Into */ return {a1: Util_String_value($e.a1)};
|
|
@@ -10056,11 +10180,11 @@ function Commands_n__9351_18639_intoBranch($0, $1, $2, $3) {
|
|
|
10056
10180
|
return Prelude_Types_foldMap_Foldable_List({a1: $7 => $8 => Prelude_Types_x3cx2bx3e_Semigroup_x28Maybex20x24ax29($7, $8), a2: {h: 0}}, $d, $3);
|
|
10057
10181
|
}
|
|
10058
10182
|
|
|
10059
|
-
/* Commands.
|
|
10060
|
-
function
|
|
10183
|
+
/* Commands.11343:20510:goListSome */
|
|
10184
|
+
function Commands_n__11343_20510_goListSome($0, $1, $2, $3, $4, $5) {
|
|
10061
10185
|
switch($5.h) {
|
|
10062
10186
|
case undefined: /* cons */ {
|
|
10063
|
-
const $7 =
|
|
10187
|
+
const $7 = Commands_n__11343_20514_printDetails($0, $1, $2, $3, $5.a1);
|
|
10064
10188
|
let $15;
|
|
10065
10189
|
switch($4) {
|
|
10066
10190
|
case 1: {
|
|
@@ -10072,15 +10196,15 @@ function Commands_n__11329_20510_goListSome($0, $1, $2, $3, $4, $5) {
|
|
|
10072
10196
|
break;
|
|
10073
10197
|
}
|
|
10074
10198
|
}
|
|
10075
|
-
const $13 = Text_PrettyPrint_Prettyprinter_Doc_indent($15, Prelude_Types_foldl_Foldable_List(acc => next => Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: acc, a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
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: Commands_n__11343_20514_printDetails($0, $1, $2, $3, next), a2: {h: 0}}}}), $7, $5.a2));
|
|
10076
10200
|
return Util_renderIO($3, csegen_74()(), $13);
|
|
10077
10201
|
}
|
|
10078
|
-
case 0: /* nil */ return
|
|
10202
|
+
case 0: /* nil */ return csegen_613();
|
|
10079
10203
|
}
|
|
10080
10204
|
}
|
|
10081
10205
|
|
|
10082
|
-
/* Commands.
|
|
10083
|
-
function
|
|
10206
|
+
/* Commands.10205:19396:forkedUser */
|
|
10207
|
+
function Commands_n__10205_19396_forkedUser($0, $1, $2, $3) {
|
|
10084
10208
|
return FFI_Concurrency_fork(csegen_74()(), ('user --json '+$3));
|
|
10085
10209
|
}
|
|
10086
10210
|
|
|
@@ -10113,7 +10237,7 @@ function Commands_skipArg($0) {
|
|
|
10113
10237
|
/* Commands.request : Config => Git => Octokit => List String -> {default False _ : Bool} ->
|
|
10114
10238
|
Promise' () */
|
|
10115
10239
|
function Commands_request($0, $1, $2, $3, $4) {
|
|
10116
|
-
return Commands_case__request_19159($0, $1, $2, $4, $3,
|
|
10240
|
+
return Commands_case__request_19159($0, $1, $2, $4, $3, Commands_n__9805_19044_partitionedArgs($0, $1, $2, $4, $3));
|
|
10117
10241
|
}
|
|
10118
10242
|
|
|
10119
10243
|
/* Commands.reflect : Config => Octokit => Promise' () */
|
|
@@ -10121,9 +10245,9 @@ function Commands_reflect($0, $1, $2, $3) {
|
|
|
10121
10245
|
return Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3);
|
|
10122
10246
|
}
|
|
10123
10247
|
|
|
10124
|
-
/* Commands.quick : Config => Git => Octokit => Promise' () */
|
|
10125
|
-
function Commands_quick($0, $1, $2, $3, $4) {
|
|
10126
|
-
return Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4);
|
|
10248
|
+
/* Commands.quick : Config => Git => Octokit => IssueCategory -> Promise' () */
|
|
10249
|
+
function Commands_quick($0, $1, $2, $3, $4, $5) {
|
|
10250
|
+
return Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5);
|
|
10127
10251
|
}
|
|
10128
10252
|
|
|
10129
10253
|
/* Commands.prUsageError : String */
|
|
@@ -10144,7 +10268,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10144
10268
|
};
|
|
10145
10269
|
const $48 = $49 => $4a => $4b => {
|
|
10146
10270
|
let $52;
|
|
10147
|
-
switch(Prelude_Types_null_Foldable_List(
|
|
10271
|
+
switch(Prelude_Types_null_Foldable_List(Commands_n__9365_18641_labelSlugs($0, $1, $2, $3))) {
|
|
10148
10272
|
case 1: {
|
|
10149
10273
|
$52 = 0;
|
|
10150
10274
|
break;
|
|
@@ -10154,10 +10278,10 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10154
10278
|
break;
|
|
10155
10279
|
}
|
|
10156
10280
|
}
|
|
10157
|
-
const $4d = Prelude_Interfaces_when(csegen_66()(), $52, () => $5c => $5d => Commands_label($0, $1, $2,
|
|
10281
|
+
const $4d = Prelude_Interfaces_when(csegen_66()(), $52, () => $5c => $5d => Commands_label($0, $1, $2, Commands_n__9365_18641_labelSlugs($0, $1, $2, $3), $5c, $5d));
|
|
10158
10282
|
const $6a = $6b => $6c => $6d => {
|
|
10159
10283
|
const $6f = $70 => {
|
|
10160
|
-
const $71 =
|
|
10284
|
+
const $71 = Commands_n__9365_18639_intoBranch($0, $1, $2, $3);
|
|
10161
10285
|
switch($71.h) {
|
|
10162
10286
|
case undefined: /* just */ {
|
|
10163
10287
|
return $77 => {
|
|
@@ -10172,7 +10296,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10172
10296
|
};
|
|
10173
10297
|
const $96 = $97 => {
|
|
10174
10298
|
let $9c;
|
|
10175
|
-
switch(
|
|
10299
|
+
switch(Commands_n__9365_18640_isDraft($0, $1, $2, $3)) {
|
|
10176
10300
|
case 1: {
|
|
10177
10301
|
switch($2c.a2.a4) {
|
|
10178
10302
|
case 1: {
|
|
@@ -10201,7 +10325,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10201
10325
|
};
|
|
10202
10326
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_74()(), 0, 'Are you sure you want to convert the existing PR for the current branch to a draft?'), $b8, $ae, $af);
|
|
10203
10327
|
};
|
|
10204
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10328
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $ac, $a6, $a7);
|
|
10205
10329
|
});
|
|
10206
10330
|
};
|
|
10207
10331
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6f, $96, $6c, $6d);
|
|
@@ -10213,7 +10337,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10213
10337
|
case 1: /* Hypothetical */ return $f4 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($f7 => Prelude_IO_prim__putStr(($2c.a1+'\n'), $f7), $2d, $2e, $f4);
|
|
10214
10338
|
}
|
|
10215
10339
|
};
|
|
10216
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8 => $9 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c => $d => FFI_Git_currentBranch($1, $c, $d), $13 => $14 => $15 => Commands_PullRequest_identifyOrCreatePR($0, $1, $2,
|
|
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, Commands_n__9365_18640_isDraft($0, $1, $2, $3), Commands_n__9365_18639_intoBranch($0, $1, $2, $3), $13, $14, $15), $8, $9), $2b, $4, $5);
|
|
10217
10341
|
}
|
|
10218
10342
|
|
|
10219
10343
|
/* Commands.parsePrArgs : List String -> Either String (List PrArg) */
|
|
@@ -10221,9 +10345,9 @@ function Commands_parsePrArgs($0) {
|
|
|
10221
10345
|
switch($0.h) {
|
|
10222
10346
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
10223
10347
|
default: {
|
|
10224
|
-
const $3 =
|
|
10348
|
+
const $3 = Commands_n__8939_18213_recombineIntoArgs($0, $0);
|
|
10225
10349
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 1 /* Into */, a1: $b}), $3.a1);
|
|
10226
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
10350
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_628(), $18 => Commands_n__8939_18210_parseDraftFlag($0, $18), $1d => Commands_n__8939_18212_parseLabelArg($0, $1d), $13), $3.a2);
|
|
10227
10351
|
return Data_Either_maybeToEither(() => Commands_prUsageError(), Prelude_Types_map_Functor_Maybe($29 => Prelude_Types_List_tailRecAppend($7, $29), $e));
|
|
10228
10352
|
}
|
|
10229
10353
|
}
|
|
@@ -10239,7 +10363,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10239
10363
|
switch($0.a2.a2.h) {
|
|
10240
10364
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
10241
10365
|
default: {
|
|
10242
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(
|
|
10366
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_628(), $10 => Commands_n__10373_19584_parseCompletedFlag($0, $10), $15 => Commands_n__10373_19585_parseTeamArg($0, $15), $b), $0);
|
|
10243
10367
|
switch($6.h) {
|
|
10244
10368
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
10245
10369
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10248,7 +10372,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10248
10372
|
}
|
|
10249
10373
|
}
|
|
10250
10374
|
default: {
|
|
10251
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(
|
|
10375
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_628(), $27 => Commands_n__10373_19584_parseCompletedFlag($0, $27), $2c => Commands_n__10373_19585_parseTeamArg($0, $2c), $22), $0);
|
|
10252
10376
|
switch($1d.h) {
|
|
10253
10377
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
10254
10378
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10257,7 +10381,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10257
10381
|
}
|
|
10258
10382
|
}
|
|
10259
10383
|
default: {
|
|
10260
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(
|
|
10384
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_628(), $3e => Commands_n__10373_19584_parseCompletedFlag($0, $3e), $43 => Commands_n__10373_19585_parseTeamArg($0, $43), $39), $0);
|
|
10261
10385
|
switch($34.h) {
|
|
10262
10386
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
10263
10387
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10271,9 +10395,9 @@ function Commands_parseContributeArgs($0) {
|
|
|
10271
10395
|
switch($0.h) {
|
|
10272
10396
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
10273
10397
|
default: {
|
|
10274
|
-
const $3 =
|
|
10398
|
+
const $3 = Commands_n__10991_20153_recombineIgnoreArgs($0, $0);
|
|
10275
10399
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 2 /* Ignore */, a1: $b}), $3.a1);
|
|
10276
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
10400
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_628(), $18 => Commands_n__10991_20151_parseListFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_628(), $22 => Commands_n__10991_20152_parseSkipArg($0, $22), $27 => Commands_n__10991_20149_parseCheckoutFlag($0, $27), $1d), $13), $3.a2);
|
|
10277
10401
|
return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($34 => Prelude_Types_List_tailRecAppend($7, $34), $e));
|
|
10278
10402
|
}
|
|
10279
10403
|
}
|
|
@@ -10281,12 +10405,12 @@ function Commands_parseContributeArgs($0) {
|
|
|
10281
10405
|
|
|
10282
10406
|
/* Commands.listOrgTeams : Config => Octokit => Promise' () */
|
|
10283
10407
|
function Commands_listOrgTeams($0, $1, $2, $3) {
|
|
10284
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10408
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_629(), $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);
|
|
10285
10409
|
}
|
|
10286
10410
|
|
|
10287
10411
|
/* Commands.list : Config => Octokit => String -> Promise' () */
|
|
10288
10412
|
function Commands_list($0, $1, $2, $3, $4) {
|
|
10289
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10413
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_629(), $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_631(), Prelude_Types_traverse_Traversable_List(csegen_66()(), $29 => Commands_n__10205_19396_forkedUser($1, $2, $0, $29), teamMemberLogins)), teamMembersJson => $31 => $32 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Types_traverse_Traversable_List(csegen_66()(), $3a => $3b => Data_Promise_either(Data_User_parseUser($3a), $3b), teamMembersJson), teamMembers => Util_renderIO($0, csegen_74()(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $4e => Commands_n__10205_19397_putNameLn($1, $2, $0, $4e), teamMembers))), $31, $32), $19, $1a), $3, $4);
|
|
10290
10414
|
}
|
|
10291
10415
|
|
|
10292
10416
|
/* Commands.label : Config => Git => Octokit => List String -> Promise' () */
|
|
@@ -10295,7 +10419,7 @@ function Commands_label($0, $1, $2, $3, $4, $5) {
|
|
|
10295
10419
|
switch($22.h) {
|
|
10296
10420
|
case 0: /* Actual */ {
|
|
10297
10421
|
const $24 = Prelude_Types_List_mapAppend({h: 0}, $28 => Commands_Label_unslugifyLabel($0.a11, $28), $3);
|
|
10298
|
-
return $2e => $2f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($32 => $33 => Commands_Label_addLabels($0, $2, $22.a2, $24, $32, $33), allLabels => Util_renderIO($0, csegen_74()(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Added'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(
|
|
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(Commands_n__8677_17949_putLabels($1, $2, $3, $0, $24), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(' to PR.'), a2: {h: 0}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $64 => $64, {a1: 'All labels for PR of ', a2: {a1: $22.a2.a8, a2: {a1: ':', a2: {h: 0}}}})), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8677_17949_putLabels($1, $2, $3, $0, allLabels), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('.'), a2: {h: 0}}))), a2: {h: 0}}})), $2e, $2f);
|
|
10299
10423
|
}
|
|
10300
10424
|
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);
|
|
10301
10425
|
}
|
|
@@ -10382,17 +10506,17 @@ function Commands_contribute($0, $1, $2, $3, $4, $5) {
|
|
|
10382
10506
|
}
|
|
10383
10507
|
};
|
|
10384
10508
|
const $72 = Prelude_Types_List_filterAppend({h: 0}, $75, $13);
|
|
10385
|
-
const $7c = Prelude_Types_List_filterAppend({h: 0}, $80 =>
|
|
10509
|
+
const $7c = Prelude_Types_List_filterAppend({h: 0}, $80 => Commands_n__11343_20511_isNotIgnored($1, $2, $3, $0, configx27, $80), $72);
|
|
10386
10510
|
const $89 = Data_List_partition($8c => Data_PullRequest_isRequestedReviewer(myLogin, $8c), $7c);
|
|
10387
|
-
const $91 = Prelude_Interfaces_mapHom(
|
|
10511
|
+
const $91 = Prelude_Interfaces_mapHom(csegen_604(), $97 => Data_List_sortBy(csegen_645(), $97))($89);
|
|
10388
10512
|
let $71;
|
|
10389
10513
|
switch($54.h) {
|
|
10390
10514
|
case 0: /* nothing */ {
|
|
10391
|
-
$71 = () =>
|
|
10515
|
+
$71 = () => Commands_n__11343_20513_pickOne($1, $2, $3, $0, configx27, $41, $4e, $91.a1, $91.a2);
|
|
10392
10516
|
break;
|
|
10393
10517
|
}
|
|
10394
10518
|
case undefined: /* just */ {
|
|
10395
|
-
$71 = () => $a8 => $a9 =>
|
|
10519
|
+
$71 = () => $a8 => $a9 => Commands_n__11343_20512_listSome($1, $2, $3, $0, $41, $91.a1, $91.a2, $a8, $a9);
|
|
10396
10520
|
break;
|
|
10397
10521
|
}
|
|
10398
10522
|
}
|
|
@@ -10404,7 +10528,7 @@ function Commands_contribute($0, $1, $2, $3, $4, $5) {
|
|
|
10404
10528
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($31, $40, $2e, $2f);
|
|
10405
10529
|
};
|
|
10406
10530
|
};
|
|
10407
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1f => $20 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10531
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1f => $20 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_365()(), FFI_GitHub_getSelf($2), $1f, $20), $2a, $1b, $1c);
|
|
10408
10532
|
};
|
|
10409
10533
|
};
|
|
10410
10534
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequests($2, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $12, $4, $5);
|
|
@@ -10638,67 +10762,67 @@ function Data_SortedMap_Dependent_empty($0) {
|
|
|
10638
10762
|
|
|
10639
10763
|
/* Commands.User.Reflect.case block in case block in reflectOnSelf */
|
|
10640
10764
|
function Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
10641
|
-
const $b = Prelude_Interfaces_mapHom(
|
|
10765
|
+
const $b = Prelude_Interfaces_mapHom(csegen_604(), $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_667(), $11))))({a1: $7, a2: $9.a1});
|
|
10642
10766
|
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));
|
|
10643
10767
|
}
|
|
10644
10768
|
|
|
10645
|
-
/* Commands.User.Me.
|
|
10646
|
-
function
|
|
10769
|
+
/* Commands.User.Me.7543:2049:ul */
|
|
10770
|
+
function Commands_User_Me_n__7543_2049_ul($0, $1, $2, $3, $4) {
|
|
10647
10771
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
10648
10772
|
}
|
|
10649
10773
|
|
|
10650
|
-
/* Commands.User.Me.
|
|
10651
|
-
function
|
|
10652
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
10774
|
+
/* Commands.User.Me.7543:2048:teams */
|
|
10775
|
+
function Commands_User_Me_n__7543_2048_teams($0, $1, $2, $3) {
|
|
10776
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_User_Me_n__7543_2049_ul($0, $1, $2, $3, 'GitHub Teams:'), a2: Prelude_Types_List_mapAppend({h: 0}, $11 => Commands_User_Me_n__7543_2046_it($0, $1, $2, $3, $11), $0)});
|
|
10653
10777
|
}
|
|
10654
10778
|
|
|
10655
|
-
/* Commands.User.Me.
|
|
10656
|
-
function
|
|
10657
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'),
|
|
10779
|
+
/* Commands.User.Me.7543:2047:login */
|
|
10780
|
+
function Commands_User_Me_n__7543_2047_login($0, $1, $2, $3) {
|
|
10781
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'), Commands_User_Me_n__7543_2043_dataVal($0, $1, $2, $3, $1.a1));
|
|
10658
10782
|
}
|
|
10659
10783
|
|
|
10660
|
-
/* Commands.User.Reflect.
|
|
10661
|
-
function
|
|
10784
|
+
/* Commands.User.Reflect.6598:1075:ital */
|
|
10785
|
+
function Commands_User_Reflect_n__6598_1075_ital($0, $1) {
|
|
10662
10786
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
10663
10787
|
}
|
|
10664
10788
|
|
|
10665
|
-
/* Commands.User.Me.
|
|
10666
|
-
function
|
|
10789
|
+
/* Commands.User.Me.7543:2046:it */
|
|
10790
|
+
function Commands_User_Me_n__7543_2046_it($0, $1, $2, $3, $4) {
|
|
10667
10791
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
10668
10792
|
}
|
|
10669
10793
|
|
|
10670
|
-
/* Commands.User.Me.
|
|
10671
|
-
function
|
|
10794
|
+
/* Commands.User.Me.7693:2202:handleUnsetEmail */
|
|
10795
|
+
function Commands_User_Me_n__7693_2202_handleUnsetEmail($0, $1, $2, $3) {
|
|
10672
10796
|
switch($3) {
|
|
10673
10797
|
case '': return {h: 0};
|
|
10674
10798
|
default: return {a1: $3};
|
|
10675
10799
|
}
|
|
10676
10800
|
}
|
|
10677
10801
|
|
|
10678
|
-
/* Commands.User.Me.
|
|
10679
|
-
function
|
|
10680
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'),
|
|
10802
|
+
/* Commands.User.Me.7543:2045:fullName */
|
|
10803
|
+
function Commands_User_Me_n__7543_2045_fullName($0, $1, $2, $3) {
|
|
10804
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'), Commands_User_Me_n__7543_2043_dataVal($0, $1, $2, $3, $1.a2));
|
|
10681
10805
|
}
|
|
10682
10806
|
|
|
10683
|
-
/* Commands.User.Me.
|
|
10684
|
-
function
|
|
10807
|
+
/* Commands.User.Me.7543:2044:email */
|
|
10808
|
+
function Commands_User_Me_n__7543_2044_email($0, $1, $2, $3) {
|
|
10685
10809
|
let $8;
|
|
10686
10810
|
switch($2.h) {
|
|
10687
10811
|
case undefined: /* just */ {
|
|
10688
|
-
$8 =
|
|
10812
|
+
$8 = Commands_User_Me_n__7543_2043_dataVal($0, $1, $2, $3, $2.a1);
|
|
10689
10813
|
break;
|
|
10690
10814
|
}
|
|
10691
10815
|
case 0: /* nothing */ {
|
|
10692
|
-
$8 =
|
|
10816
|
+
$8 = Commands_User_Me_n__7543_2046_it($0, $1, $2, $3, 'Not set');
|
|
10693
10817
|
break;
|
|
10694
10818
|
}
|
|
10695
10819
|
}
|
|
10696
10820
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Git Email:'), $8);
|
|
10697
10821
|
}
|
|
10698
10822
|
|
|
10699
|
-
/* Commands.User.Me.
|
|
10700
|
-
function
|
|
10701
|
-
return Theme_theme($3,
|
|
10823
|
+
/* Commands.User.Me.7543:2043:dataVal */
|
|
10824
|
+
function Commands_User_Me_n__7543_2043_dataVal($0, $1, $2, $3, $4) {
|
|
10825
|
+
return Theme_theme($3, csegen_670(), Theme_cs({a1: 4, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined}), 8)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
10702
10826
|
}
|
|
10703
10827
|
|
|
10704
10828
|
/* Commands.User.Reflect.rightTitle : String */
|
|
@@ -10721,20 +10845,20 @@ function Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
|
10721
10845
|
const $c = prs => $d => $e => {
|
|
10722
10846
|
const $1c = myLogin => $1d => $1e => {
|
|
10723
10847
|
const $3a = reviews => {
|
|
10724
|
-
const $3b = Prelude_Types_map_Functor_Maybe(
|
|
10725
|
-
const $4e = Prelude_Interfaces_mapHom(
|
|
10726
|
-
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(
|
|
10848
|
+
const $3b = Prelude_Types_map_Functor_Maybe(csegen_673(), Data_List_headx27(Data_List_sortBy($44 => $45 => Prelude_Basics_on(csegen_643(), csegen_673(), $44, $45), reviews)));
|
|
10849
|
+
const $4e = Prelude_Interfaces_mapHom(csegen_604(), $54 => Prelude_Types_List_filterAppend({h: 0}, $58 => Prelude_EqOrd_x3dx3d_Eq_String($58.a5, myLogin), $54))(prs);
|
|
10850
|
+
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(csegen_604(), $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));
|
|
10727
10851
|
};
|
|
10728
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(Commands_User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2e => $2f => Prelude_Basics_on(
|
|
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(csegen_643(), csegen_667(), $2e, $2f), Commands_PullRequest_combined(prs))))), $3a, $1d, $1e);
|
|
10729
10853
|
};
|
|
10730
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10854
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_365()(), FFI_GitHub_getSelf($1), $11, $12), $1c, $d, $e);
|
|
10731
10855
|
};
|
|
10732
10856
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_listPartitionedPRs($0, $1, 4n, Commands_User_Reflect_prCount()), $c, $2, $3);
|
|
10733
10857
|
}
|
|
10734
10858
|
|
|
10735
10859
|
/* Commands.User.Me.printInfoOnSelf : Config => Octokit => Git => Promise' () */
|
|
10736
10860
|
function Commands_User_Me_printInfoOnSelf($0, $1, $2, $3, $4) {
|
|
10737
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29($b =>
|
|
10861
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29($b => Commands_User_Me_n__7693_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_629(), $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);
|
|
10738
10862
|
}
|
|
10739
10863
|
|
|
10740
10864
|
/* Commands.User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Config =>
|
|
@@ -10745,7 +10869,7 @@ function Commands_User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
|
10745
10869
|
|
|
10746
10870
|
/* Commands.User.Me.print : Config -> Maybe String -> User -> List String -> Doc AnsiStyle */
|
|
10747
10871
|
function Commands_User_Me_print($0, $1, $2, $3) {
|
|
10748
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
10872
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7543_2044_email($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7543_2045_fullName($3, $2, $1, $0), a2: {a1: Commands_User_Me_n__7543_2047_login($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7543_2048_teams($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}}}}});
|
|
10749
10873
|
}
|
|
10750
10874
|
|
|
10751
10875
|
/* Commands.User.Reflect.prCount : Fin 101 */
|
|
@@ -10765,7 +10889,7 @@ const Commands_User_Reflect_intro = __lazy(function () {
|
|
|
10765
10889
|
|
|
10766
10890
|
/* Commands.User.Reflect.header : Nat -> Doc AnsiStyle */
|
|
10767
10891
|
function Commands_User_Reflect_header($0) {
|
|
10768
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1:
|
|
10892
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Commands_User_Reflect_n__6598_1075_ital($0, Commands_User_Reflect_leftTitle()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' '), a2: {a1: Commands_User_Reflect_n__6598_1075_ital($0, Commands_User_Reflect_rightTitle()), a2: {h: 0}}}}));
|
|
10769
10893
|
}
|
|
10770
10894
|
|
|
10771
10895
|
/* Commands.User.Reflect.graph : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Doc AnsiStyle */
|
|
@@ -10783,58 +10907,48 @@ function Commands_User_Reflect_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
|
10783
10907
|
|
|
10784
10908
|
/* Commands.User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
10785
10909
|
function Commands_User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10786
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Commands_User_Reflect_intro()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Requested Reviews:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('unreviewed:')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($2)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(
|
|
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(csegen_679(), $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_679(), $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}}}}}}}}}});
|
|
10787
10911
|
}
|
|
10788
10912
|
|
|
10789
10913
|
/* Commands.User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Nat -> Doc AnsiStyle */
|
|
10790
10914
|
function Commands_User_Reflect_chart($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10791
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($7)), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_User_replicatex27($6,
|
|
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, csegen_670(), csegen_689(), 4, $1, '\u{b7}'), Commands_User_replicatex27($6, csegen_690(), csegen_690(), 7, $3, '\u{25e6}')), Commands_User_replicatex27($6, csegen_691(), csegen_691(), 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_691(), csegen_691(), 5, $5, '>'), Commands_User_replicatex27($6, csegen_670(), csegen_689(), 4, $4, '\u{b7}')))));
|
|
10792
10916
|
}
|
|
10793
10917
|
|
|
10794
|
-
/* Theme.
|
|
10795
|
-
function
|
|
10918
|
+
/* Theme.4411:1332:maybeAnnotate */
|
|
10919
|
+
function Theme_n__4411_1332_maybeAnnotate($0, $1, $2, $3, $4) {
|
|
10796
10920
|
return Prelude_Types_maybe(() => $7 => $7, () => $9 => $a => Text_PrettyPrint_Prettyprinter_Doc_annotate($3($9), $a), $4);
|
|
10797
10921
|
}
|
|
10798
10922
|
|
|
10799
|
-
/* Theme.
|
|
10800
|
-
function
|
|
10923
|
+
/* Theme.4411:1331:go */
|
|
10924
|
+
function Theme_n__4411_1331_go($0, $1, $2, $3, $4, $5, $6) {
|
|
10801
10925
|
switch($3) {
|
|
10802
|
-
case 1: return $8 =>
|
|
10803
|
-
case 0: return $f =>
|
|
10926
|
+
case 1: return $8 => Theme_n__4411_1329_colorsAnn($0, $1, $2, $4, $8);
|
|
10927
|
+
case 0: return $f => Theme_n__4411_1329_colorsAnn($0, $1, $2, $5, $f);
|
|
10804
10928
|
}
|
|
10805
10929
|
}
|
|
10806
10930
|
|
|
10807
|
-
/* Theme.
|
|
10808
|
-
function
|
|
10931
|
+
/* Theme.4411:1330:configTheme */
|
|
10932
|
+
function Theme_n__4411_1330_configTheme($0, $1, $2) {
|
|
10809
10933
|
return $2.a15;
|
|
10810
10934
|
}
|
|
10811
10935
|
|
|
10812
|
-
/* Theme.
|
|
10813
|
-
function
|
|
10814
|
-
return
|
|
10936
|
+
/* Theme.4411:1329:colorsAnn */
|
|
10937
|
+
function Theme_n__4411_1329_colorsAnn($0, $1, $2, $3, $4) {
|
|
10938
|
+
return Theme_n__4411_1332_maybeAnnotate($0, $1, $2, $c => Text_PrettyPrint_Prettyprinter_Render_Terminal_color($c), $3.a1)(Theme_n__4411_1332_maybeAnnotate($0, $1, $2, $17 => Text_PrettyPrint_Prettyprinter_Render_Terminal_bgColor($17), $3.a2)($4));
|
|
10815
10939
|
}
|
|
10816
10940
|
|
|
10817
10941
|
/* Theme.theme : Config => SemanticColor d l -> Doc AnsiStyle -> Doc AnsiStyle */
|
|
10818
10942
|
function Theme_theme($0, $1, $2, $3) {
|
|
10819
|
-
return
|
|
10943
|
+
return Theme_n__4411_1331_go($1, $2, $0, Theme_n__4411_1330_configTheme($1, $2, $0), $1, $2, $3);
|
|
10820
10944
|
}
|
|
10821
10945
|
|
|
10822
|
-
/* Theme.cs : List Color ->
|
|
10823
|
-
|
|
10824
|
-
|
|
10825
|
-
|
|
10826
|
-
|
|
10827
|
-
|
|
10828
|
-
case undefined: /* cons */ {
|
|
10829
|
-
switch($0.a2.a2.h) {
|
|
10830
|
-
case 0: /* nil */ return {a1: {a1: $0.a1}, a2: {a1: $0.a2.a1}};
|
|
10831
|
-
default: return {a1: {h: 0}, a2: {h: 0}};
|
|
10832
|
-
}
|
|
10833
|
-
}
|
|
10834
|
-
default: return {a1: {h: 0}, a2: {h: 0}};
|
|
10835
|
-
}
|
|
10836
|
-
}
|
|
10837
|
-
default: return {a1: {h: 0}, a2: {h: 0}};
|
|
10946
|
+
/* Theme.cs : (colors : List Color) -> Either (length colors = 1) (length colors = 2) =>
|
|
10947
|
+
Colors */
|
|
10948
|
+
function Theme_cs($0, $1) {
|
|
10949
|
+
switch($0.a2.h) {
|
|
10950
|
+
case 0: /* nil */ return {a1: {a1: $0.a1}, a2: {h: 0}};
|
|
10951
|
+
case undefined: /* cons */ return {a1: {a1: $0.a1}, a2: {a1: $0.a2.a1}};
|
|
10838
10952
|
}
|
|
10839
10953
|
}
|
|
10840
10954
|
|
|
@@ -10884,104 +10998,100 @@ function Commands_PullRequest_with__listOpenPRs_1391($0, $1, $2, $3, $4) {
|
|
|
10884
10998
|
}
|
|
10885
10999
|
}
|
|
10886
11000
|
|
|
10887
|
-
/* Commands.PullRequest.case block in
|
|
10888
|
-
function
|
|
10889
|
-
|
|
10890
|
-
|
|
10891
|
-
|
|
10892
|
-
|
|
10893
|
-
|
|
10894
|
-
let $51;
|
|
10895
|
-
switch($52.h) {
|
|
10896
|
-
case 0: /* nothing */ {
|
|
10897
|
-
$51 = Util_Prompting_inlineDescription(csegen_74()(), Commands_PullRequest_n__11100_3054_inlineDescriptionPrompt($0, $1, $2, $3, $4, $5), $9.a2);
|
|
10898
|
-
break;
|
|
10899
|
-
}
|
|
10900
|
-
case undefined: /* just */ {
|
|
10901
|
-
$51 = $62 => $63 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_691(), Util_Prompting_editorDescription(csegen_74()(), $52.a1, {a1: templateFilePath}, $9.a2), $62, $63);
|
|
10902
|
-
break;
|
|
10903
|
-
}
|
|
10904
|
-
}
|
|
10905
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($51, description => $73 => $74 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($77 => $78 => $79 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($7c => Prelude_IO_prim__putStr('Creating PR...\n', $7c), $77, $78, $79), $84 => $85 => $86 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($89 => $8a => $8b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($8e => Prelude_IO_prim__putStr(($2+'\n'), $8e), $89, $8a, $8b), $98 => FFI_GitHub_createPR($1, $4, $5.a2, $5.a3, $2, $8, title, description), $85, $86), $73, $74), $4e, $4f);
|
|
10906
|
-
};
|
|
10907
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($46 => $47 => Util_relativeToRoot($0, '.github/PULL_REQUEST_TEMPLATE.md', $46, $47), $4d, $42, $43);
|
|
10908
|
-
};
|
|
10909
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($33 => $34 => Data_Promise_map_Functor_x28Promisex20x24ex29($37 => ($9.a1+Data_String_trim($37)), csegen_405()(), $33, $34), $41, $2f, $30);
|
|
10910
|
-
};
|
|
10911
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($21 => $22 => $23 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($26 => Prelude_IO_prim__putStr($9.a1, $26), $21, $22, $23), $2d, $1d, $1e);
|
|
11001
|
+
/* Commands.PullRequest.case block in githubTitleAndBodyPrefix */
|
|
11002
|
+
function Commands_PullRequest_case__githubTitleAndBodyPrefix_2919($0, $1, $2, $3, $4) {
|
|
11003
|
+
return $5 => {
|
|
11004
|
+
switch($3.h) {
|
|
11005
|
+
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 => Commands_PullRequest_n__10955_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__10955_2843_relatedToPrefix($0, $1, $2, $3.a1)))}, $1a, $1b), $4, $5);
|
|
11007
|
+
}
|
|
10912
11008
|
};
|
|
10913
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f => $10 => $11 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($14 => Prelude_IO_prim__putStr('What would you like the title to be?\n', $14), $f, $10, $11), $1b, $a, $b);
|
|
10914
11009
|
}
|
|
10915
11010
|
|
|
10916
|
-
/* Commands.PullRequest.
|
|
10917
|
-
function
|
|
11011
|
+
/* Commands.PullRequest.10061:1999:userNotice */
|
|
11012
|
+
function Commands_PullRequest_n__10061_1999_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
10918
11013
|
switch($6.h) {
|
|
10919
11014
|
case 0: /* nothing */ {
|
|
10920
11015
|
switch($2.h) {
|
|
10921
11016
|
case 0: /* nil */ return 'no users';
|
|
10922
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1:
|
|
11017
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1: Commands_PullRequest_n__10061_1994_csv($0, $1, $2, $3, $4, $5, $2), a2: {h: 0}});
|
|
10923
11018
|
}
|
|
10924
11019
|
}
|
|
10925
|
-
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $1f => $1f, {a1:
|
|
11020
|
+
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $1f => $1f, {a1: Commands_PullRequest_n__10061_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: $2}), a2: {h: 0}});
|
|
10926
11021
|
}
|
|
10927
11022
|
}
|
|
10928
11023
|
|
|
10929
|
-
/* Commands.PullRequest.
|
|
10930
|
-
function
|
|
11024
|
+
/* Commands.PullRequest.10061:1998:teamNotice */
|
|
11025
|
+
function Commands_PullRequest_n__10061_1998_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
10931
11026
|
switch($6.h) {
|
|
10932
11027
|
case 0: /* nil */ return '';
|
|
10933
11028
|
case undefined: /* cons */ {
|
|
10934
11029
|
switch($6.a2.h) {
|
|
10935
|
-
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1: ' and team ', a2: {a1:
|
|
10936
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $23 => $23, {a1: ' and teams ', a2: {a1:
|
|
11030
|
+
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1: ' and team ', a2: {a1: Commands_PullRequest_n__10061_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: {h: 0}}), a2: {h: 0}}});
|
|
11031
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $23 => $23, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10061_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
10937
11032
|
}
|
|
10938
11033
|
}
|
|
10939
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $36 => $36, {a1: ' and teams ', a2: {a1:
|
|
11034
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $36 => $36, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10061_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
10940
11035
|
}
|
|
10941
11036
|
}
|
|
10942
11037
|
|
|
10943
|
-
/* Commands.PullRequest.
|
|
10944
|
-
function
|
|
11038
|
+
/* Commands.PullRequest.10955:2843:relatedToPrefix */
|
|
11039
|
+
function Commands_PullRequest_n__10955_2843_relatedToPrefix($0, $1, $2, $3) {
|
|
11040
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $9 => $9, {a1: 'Related to #', a2: {a1: $3, a2: {h: 0}}});
|
|
11041
|
+
}
|
|
11042
|
+
|
|
11043
|
+
/* Commands.PullRequest.11189:3087:prCreationUrl */
|
|
11044
|
+
function Commands_PullRequest_n__11189_3087_prCreationUrl($0, $1, $2, $3, $4, $5) {
|
|
10945
11045
|
const $6 = $5.a3;
|
|
10946
11046
|
const $8 = $5.a2;
|
|
10947
11047
|
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}}}}}}}});
|
|
10948
11048
|
}
|
|
10949
11049
|
|
|
10950
|
-
/* Commands.PullRequest.
|
|
10951
|
-
function
|
|
11050
|
+
/* Commands.PullRequest.10061:1997:prComment */
|
|
11051
|
+
function Commands_PullRequest_n__10061_1997_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
10952
11052
|
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}}}});
|
|
10953
11053
|
}
|
|
10954
11054
|
|
|
10955
|
-
/* Commands.PullRequest.
|
|
10956
|
-
function
|
|
10957
|
-
return
|
|
11055
|
+
/* Commands.PullRequest.10061:1996:namePrComment */
|
|
11056
|
+
function Commands_PullRequest_n__10061_1996_namePrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11057
|
+
return Commands_PullRequest_n__10061_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_51()(), $14 => $14, {a1: $6.a2, a2: {h: 0}}));
|
|
11058
|
+
}
|
|
11059
|
+
|
|
11060
|
+
/* Commands.PullRequest.10061:1995:mentionPrComment */
|
|
11061
|
+
function Commands_PullRequest_n__10061_1995_mentionPrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11062
|
+
return Commands_PullRequest_n__10061_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
|
+
}
|
|
11064
|
+
|
|
11065
|
+
/* Commands.PullRequest.10955:2842:issueNumber */
|
|
11066
|
+
function Commands_PullRequest_n__10955_2842_issueNumber($0, $1, $2) {
|
|
11067
|
+
return Util_Github_parseGithubIssueNumber($1);
|
|
10958
11068
|
}
|
|
10959
11069
|
|
|
10960
|
-
/* Commands.PullRequest.
|
|
10961
|
-
function
|
|
10962
|
-
return
|
|
11070
|
+
/* Commands.PullRequest.10955:2841:issueDescriptionPrefix */
|
|
11071
|
+
function Commands_PullRequest_n__10955_2841_issueDescriptionPrefix($0, $1, $2, $3, $4, $5) {
|
|
11072
|
+
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);
|
|
10963
11073
|
}
|
|
10964
11074
|
|
|
10965
|
-
/* Commands.PullRequest.
|
|
10966
|
-
function
|
|
11075
|
+
/* Commands.PullRequest.11189:3086:inlineDescriptionPrompt */
|
|
11076
|
+
function Commands_PullRequest_n__11189_3086_inlineDescriptionPrompt($0, $1, $2, $3, $4, $5) {
|
|
10967
11077
|
return 'What would you like the description to be (two blank lines to finish)?';
|
|
10968
11078
|
}
|
|
10969
11079
|
|
|
10970
|
-
/* Commands.PullRequest.
|
|
10971
|
-
function
|
|
11080
|
+
/* Commands.PullRequest.11189:3085:getBaseBranch */
|
|
11081
|
+
function Commands_PullRequest_n__11189_3085_getBaseBranch($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10972
11082
|
switch($3.h) {
|
|
10973
11083
|
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);
|
|
10974
|
-
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($32 => $33 => $34 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($37 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $40 => $40, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $5.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $37), $32, $33, $34), $4f => $50 => $51 => Data_Promise_map_Functor_x28Promisex20x24ex29($54 => Util_Prompting_orIfEmpty({a1: $5.a5}, Data_String_trim($54)),
|
|
11084
|
+
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);
|
|
10975
11085
|
}
|
|
10976
11086
|
}
|
|
10977
11087
|
|
|
10978
|
-
/* Commands.PullRequest.
|
|
10979
|
-
function
|
|
11088
|
+
/* Commands.PullRequest.9823:1725:forkedReviews */
|
|
11089
|
+
function Commands_PullRequest_n__9823_1725_forkedReviews($0, $1, $2, $3) {
|
|
10980
11090
|
return FFI_Concurrency_fork(csegen_74()(), ('reviews --json '+Prelude_Show_show_Show_Integer($3.a1)));
|
|
10981
11091
|
}
|
|
10982
11092
|
|
|
10983
|
-
/* Commands.PullRequest.
|
|
10984
|
-
function
|
|
11093
|
+
/* Commands.PullRequest.9246:1180:filterString */
|
|
11094
|
+
function Commands_PullRequest_n__9246_1180_filterString($0, $1, $2, $3, $4) {
|
|
10985
11095
|
switch($4.h) {
|
|
10986
11096
|
case 0: /* nothing */ return 'none';
|
|
10987
11097
|
case undefined: /* just */ {
|
|
@@ -10993,13 +11103,13 @@ function Commands_PullRequest_n__9192_1180_filterString($0, $1, $2, $3, $4) {
|
|
|
10993
11103
|
}
|
|
10994
11104
|
}
|
|
10995
11105
|
|
|
10996
|
-
/* Commands.PullRequest.
|
|
10997
|
-
function
|
|
11106
|
+
/* Commands.PullRequest.10061:1994:csv */
|
|
11107
|
+
function Commands_PullRequest_n__10061_1994_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
10998
11108
|
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)));
|
|
10999
11109
|
}
|
|
11000
11110
|
|
|
11001
|
-
/* Commands.PullRequest.
|
|
11002
|
-
function
|
|
11111
|
+
/* Commands.PullRequest.11189:3084:createPR */
|
|
11112
|
+
function Commands_PullRequest_n__11189_3084_createPR($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11003
11113
|
const $3b = $3c => $3d => $3e => {
|
|
11004
11114
|
const $4c = $4d => $4e => $4f => {
|
|
11005
11115
|
switch($4d) {
|
|
@@ -11016,37 +11126,73 @@ function Commands_PullRequest_n__11100_3052_createPR($0, $1, $2, $3, $4, $5, $6,
|
|
|
11016
11126
|
};
|
|
11017
11127
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($69 => $6a => FFI_Git_unpushedCommits($0, $69, $6a), $6f, $65, $66);
|
|
11018
11128
|
};
|
|
11019
|
-
|
|
11129
|
+
const $cf = $d0 => $d1 => $d2 => {
|
|
11130
|
+
const $f0 = $f1 => $f2 => $f3 => {
|
|
11131
|
+
const $101 = baseBranch => $102 => $103 => {
|
|
11132
|
+
const $10a = $10b => $10c => $10d => {
|
|
11133
|
+
const $11d = $11e => $11f => $120 => {
|
|
11134
|
+
const $12f = $130 => $131 => $132 => {
|
|
11135
|
+
const $143 = title => $144 => $145 => {
|
|
11136
|
+
const $14f = templateFilePath => $150 => $151 => {
|
|
11137
|
+
const $154 = Data_Config_rf__editor($5);
|
|
11138
|
+
let $153;
|
|
11139
|
+
switch($154.h) {
|
|
11140
|
+
case 0: /* nothing */ {
|
|
11141
|
+
$153 = Util_Prompting_inlineDescription(csegen_74()(), Commands_PullRequest_n__11189_3086_inlineDescriptionPrompt($0, $1, $2, $3, $4, $5), $10b.a2);
|
|
11142
|
+
break;
|
|
11143
|
+
}
|
|
11144
|
+
case undefined: /* just */ {
|
|
11145
|
+
$153 = $164 => $165 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_705(), Util_Prompting_editorDescription(csegen_74()(), $154.a1, {a1: templateFilePath}, $10b.a2), $164, $165);
|
|
11146
|
+
break;
|
|
11147
|
+
}
|
|
11148
|
+
}
|
|
11149
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($153, description => $175 => $176 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($179 => $17a => $17b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($17e => Prelude_IO_prim__putStr('Creating PR...\n', $17e), $179, $17a, $17b), $186 => $187 => $188 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($18b => $18c => $18d => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($190 => Prelude_IO_prim__putStr(($2+'\n'), $190), $18b, $18c, $18d), $19a => FFI_GitHub_createPR($1, $4, $5.a2, $5.a3, $2, baseBranch, title, description), $187, $188), $175, $176), $150, $151);
|
|
11150
|
+
};
|
|
11151
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($148 => $149 => Util_relativeToRoot($0, '.github/PULL_REQUEST_TEMPLATE.md', $148, $149), $14f, $144, $145);
|
|
11152
|
+
};
|
|
11153
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($135 => $136 => Data_Promise_map_Functor_x28Promisex20x24ex29($139 => ($10b.a1+Data_String_trim($139)), csegen_406()(), $135, $136), $143, $131, $132);
|
|
11154
|
+
};
|
|
11155
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($123 => $124 => $125 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($128 => Prelude_IO_prim__putStr($10b.a1, $128), $123, $124, $125), $12f, $11f, $120);
|
|
11156
|
+
};
|
|
11157
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($111 => $112 => $113 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($116 => Prelude_IO_prim__putStr('What would you like the title to be?\n', $116), $111, $112, $113), $11d, $10c, $10d);
|
|
11158
|
+
};
|
|
11159
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_getTitleAndBodyPrefix($5, $1, $2), $10a, $102, $103);
|
|
11160
|
+
};
|
|
11161
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f6 => $f7 => Commands_PullRequest_n__11189_3085_getBaseBranch($0, $1, $2, $3, $4, $5, $f6, $f7), $101, $f2, $f3);
|
|
11162
|
+
};
|
|
11163
|
+
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
|
+
};
|
|
11165
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($64, $cf, $60, $61);
|
|
11020
11166
|
}
|
|
11021
11167
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $60, $61);
|
|
11022
11168
|
}
|
|
11023
11169
|
};
|
|
11024
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($53 => $54 =>
|
|
11170
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($53 => $54 => Commands_PullRequest_n__11189_3082_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $53, $54), $5e, $4e, $4f);
|
|
11025
11171
|
}
|
|
11026
11172
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $4e, $4f);
|
|
11027
11173
|
}
|
|
11028
11174
|
};
|
|
11029
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($41 => $42 =>
|
|
11175
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($41 => $42 => Commands_PullRequest_n__11189_3083_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $41, $42), $4c, $3d, $3e);
|
|
11030
11176
|
};
|
|
11031
11177
|
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);
|
|
11032
11178
|
}
|
|
11033
11179
|
|
|
11034
|
-
/* Commands.PullRequest.
|
|
11035
|
-
function
|
|
11180
|
+
/* Commands.PullRequest.11189:3083:continueGivenUncommittedChanges */
|
|
11181
|
+
function Commands_PullRequest_n__11189_3083_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11036
11182
|
const $10 = $11 => $12 => $13 => {
|
|
11037
11183
|
switch($11.h) {
|
|
11038
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1c), $17, $18, $19), $24 => $25 => $26 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29 => $2a => $2b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2e => Prelude_IO_prim__putStr(($11.a1+'\n'), $2e), $29, $2a, $2b),
|
|
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), csegen_711(), $25, $26), $12, $13);
|
|
11039
11185
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $12, $13);
|
|
11040
11186
|
}
|
|
11041
11187
|
};
|
|
11042
11188
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => FFI_Git_uncommittedChanges($0, $a, $b), $10, $6, $7);
|
|
11043
11189
|
}
|
|
11044
11190
|
|
|
11045
|
-
/* Commands.PullRequest.
|
|
11046
|
-
function
|
|
11191
|
+
/* Commands.PullRequest.11189:3082:continueGivenStagedChanges */
|
|
11192
|
+
function Commands_PullRequest_n__11189_3082_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11047
11193
|
const $10 = $11 => $12 => $13 => {
|
|
11048
11194
|
switch($11.h) {
|
|
11049
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1c), $17, $18, $19), $24 => $25 => $26 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29 => $2a => $2b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2e => Prelude_IO_prim__putStr(($11.a1+'\n'), $2e), $29, $2a, $2b),
|
|
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), csegen_711(), $25, $26), $12, $13);
|
|
11050
11196
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $12, $13);
|
|
11051
11197
|
}
|
|
11052
11198
|
};
|
|
@@ -11055,12 +11201,12 @@ function Commands_PullRequest_n__11100_3050_continueGivenStagedChanges($0, $1, $
|
|
|
11055
11201
|
|
|
11056
11202
|
/* Commands.PullRequest.(.allReviewers) : PRHistory -> (List String, List String) */
|
|
11057
11203
|
function Commands_PullRequest_rf__allReviewers($0) {
|
|
11058
|
-
return Prelude_Interfaces_mapHom(
|
|
11204
|
+
return Prelude_Interfaces_mapHom(csegen_604(), $6 => Prelude_Types_join_Monad_List(Prelude_Types_List_mapAppend({h: 0}, $c => $c.a7, $6)))($0);
|
|
11059
11205
|
}
|
|
11060
11206
|
|
|
11061
11207
|
/* Commands.PullRequest.reviewsForPrs : Config => Octokit => List PullRequest -> Promise' (List Review) */
|
|
11062
11208
|
function Commands_PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
|
|
11063
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(),
|
|
11209
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(), csegen_631(), Prelude_Types_traverse_Traversable_List(csegen_66()(), $13 => Commands_PullRequest_n__9823_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);
|
|
11064
11210
|
}
|
|
11065
11211
|
|
|
11066
11212
|
/* Commands.PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise' (List Review) */
|
|
@@ -11111,7 +11257,7 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11111
11257
|
break;
|
|
11112
11258
|
}
|
|
11113
11259
|
case 0: {
|
|
11114
|
-
$38 =
|
|
11260
|
+
$38 = csegen_408()();
|
|
11115
11261
|
break;
|
|
11116
11262
|
}
|
|
11117
11263
|
}
|
|
@@ -11147,8 +11293,8 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11147
11293
|
return $7f => {
|
|
11148
11294
|
switch($0.a8) {
|
|
11149
11295
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $7d, $7f);
|
|
11150
|
-
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
11151
|
-
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getUser($1, chosenUser.a1), user => $9f => $a0 => FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
11296
|
+
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, Commands_PullRequest_n__10061_1995_mentionPrComment($1, $5, $4, $3, $2, $0, chosenUser.a1), $7d, $7f);
|
|
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, Commands_PullRequest_n__10061_1996_namePrComment($1, $5, $4, $3, $2, $0, user), $9f, $a0), $7d, $7f);
|
|
11152
11298
|
}
|
|
11153
11299
|
};
|
|
11154
11300
|
}
|
|
@@ -11172,11 +11318,11 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11172
11318
|
let $bf;
|
|
11173
11319
|
switch($c0) {
|
|
11174
11320
|
case 1: {
|
|
11175
|
-
$bf = () => $c5 => $c6 => $c7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($ca => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Could not pick a user from the given Team ')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('(perhaps the only option was the author of the pull request?).'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e8 => $e8, {a1: 'Requested review from ', a2: {a1:
|
|
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: Commands_PullRequest_n__10061_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);
|
|
11176
11322
|
break;
|
|
11177
11323
|
}
|
|
11178
11324
|
case 0: {
|
|
11179
|
-
$bf = () => $112 => $113 => $114 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($117 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $128 => $128, {a1: 'Requested review from ', a2: {a1:
|
|
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: Commands_PullRequest_n__10061_1999_userNotice($1, $5, $4, $3, $2, $0, chosenUser), a2: {a1: Commands_PullRequest_n__10061_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);
|
|
11180
11326
|
break;
|
|
11181
11327
|
}
|
|
11182
11328
|
}
|
|
@@ -11202,15 +11348,6 @@ function Commands_PullRequest_partition($0) {
|
|
|
11202
11348
|
return Prelude_Basics_uncurry(csegen_94(), Data_List_partition($7 => Data_PullRequest_x3dx3d_Eq_PRState($7.a6, 0), $0));
|
|
11203
11349
|
}
|
|
11204
11350
|
|
|
11205
|
-
/* Commands.PullRequest.parseTitleAndBodyPrefix : Config => String -> (String, String) */
|
|
11206
|
-
function Commands_PullRequest_parseTitleAndBodyPrefix($0, $1) {
|
|
11207
|
-
switch($0.a9) {
|
|
11208
|
-
case 1: return {a1: Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($a => ($a+' - '), Util_Jira_parseJiraSlug($1))), a2: ''};
|
|
11209
|
-
case 2: return {a1: '', a2: Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($18 => ('Related to #'+$18), Util_Github_parseGithubIssueNumber($1)))};
|
|
11210
|
-
case 0: return {a1: '', a2: ''};
|
|
11211
|
-
}
|
|
11212
|
-
}
|
|
11213
|
-
|
|
11214
11351
|
/* Commands.PullRequest.listReviewers : Config => Octokit => {default 0 _ : Nat} -> Fin 101 -> Promise' (List String,
|
|
11215
11352
|
List String) */
|
|
11216
11353
|
function Commands_PullRequest_listReviewers($0, $1, $2, $3, $4, $5) {
|
|
@@ -11230,7 +11367,7 @@ function Commands_PullRequest_listOpenPRs($0, $1, $2, $3) {
|
|
|
11230
11367
|
|
|
11231
11368
|
/* Commands.PullRequest.list' : Maybe GitHubPRState -> Pagination _ _ _ () -> Promise' (List PullRequest) */
|
|
11232
11369
|
function Commands_PullRequest_listx27($0, $1, $2, $3) {
|
|
11233
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(), $b => $c => $d => FFI_Concurrency_promiseAll({a1: acc => elem => func => init => input => Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a2: elem => acc => func => init => input => Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a3: elem => $1b => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1b), a4: elem => acc => m => $1f => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1f, funcM, init, input), a5: elem => $26 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($26), a6: a => m => $2a => f => $2b => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($2a, f, $2b)}, $b, $c, $d), Data_Pagination_traversex27(csegen_66()(), $39 => $3a => $3b => $3c => Commands_PullRequest_forkedPRs($0, $39, $3a, $3b, $3c), $1)), prJsons => $45 => $46 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($49 => Data_Promise_either(Prelude_Types_traverse_Traversable_List(csegen_222(),
|
|
11370
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(), $b => $c => $d => FFI_Concurrency_promiseAll({a1: acc => elem => func => init => input => Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a2: elem => acc => func => init => input => Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a3: elem => $1b => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1b), a4: elem => acc => m => $1f => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1f, funcM, init, input), a5: elem => $26 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($26), a6: a => m => $2a => f => $2b => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($2a, f, $2b)}, $b, $c, $d), Data_Pagination_traversex27(csegen_66()(), $39 => $3a => $3b => $3c => Commands_PullRequest_forkedPRs($0, $39, $3a, $3b, $3c), $1)), prJsons => $45 => $46 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($49 => Data_Promise_either(Prelude_Types_traverse_Traversable_List(csegen_222(), csegen_346(), prJsons), $49), pulls => $54 => $55 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_join_Monad_List(pulls), $54, $55), $45, $46), $2, $3);
|
|
11234
11371
|
}
|
|
11235
11372
|
|
|
11236
11373
|
/* Commands.PullRequest.identifyOrCreatePR : Config => Git => Octokit => {default False _ : Bool} ->
|
|
@@ -11250,8 +11387,8 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6, $7)
|
|
|
11250
11387
|
return $21 => {
|
|
11251
11388
|
const $2a = $2b => $2c => $2d => {
|
|
11252
11389
|
switch($2b) {
|
|
11253
|
-
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($31 => ({h: 0 /* Actual */, a1: 1, a2: $31}), $35 => $36 =>
|
|
11254
|
-
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1:
|
|
11390
|
+
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($31 => ({h: 0 /* Actual */, a1: 1, a2: $31}), $35 => $36 => Commands_PullRequest_n__11189_3084_createPR($1, $2, $5, $4, $3, $0, $35, $36), $2c, $2d);
|
|
11391
|
+
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1: Commands_PullRequest_n__11189_3087_prCreationUrl($1, $2, $5, $4, $3, $0)}, $2c, $2d);
|
|
11255
11392
|
}
|
|
11256
11393
|
};
|
|
11257
11394
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(System_File_Meta_isTTY(csegen_74()(), System_File_Virtual_stdout()), $2a, $13, $21);
|
|
@@ -11263,9 +11400,23 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6, $7)
|
|
|
11263
11400
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPRsForBranch($2, $0.a2, $0.a3, $5), $11, $6, $7);
|
|
11264
11401
|
}
|
|
11265
11402
|
|
|
11403
|
+
/* Commands.PullRequest.githubTitleAndBodyPrefix : Config => Octokit => String -> Promise' (String, String) */
|
|
11404
|
+
function Commands_PullRequest_githubTitleAndBodyPrefix($0, $1, $2) {
|
|
11405
|
+
return $3 => Commands_PullRequest_case__githubTitleAndBodyPrefix_2919($1, $2, $0, Commands_PullRequest_n__10955_2842_issueNumber($1, $2, $0), $3);
|
|
11406
|
+
}
|
|
11407
|
+
|
|
11408
|
+
/* Commands.PullRequest.getTitleAndBodyPrefix : Config => Octokit => String -> Promise' (String, String) */
|
|
11409
|
+
function Commands_PullRequest_getTitleAndBodyPrefix($0, $1, $2) {
|
|
11410
|
+
switch($0.a9) {
|
|
11411
|
+
case 1: return $5 => $6 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($f => ($f+' - '), Util_Jira_parseJiraSlug($2))), a2: ''}, $5, $6);
|
|
11412
|
+
case 2: return Commands_PullRequest_githubTitleAndBodyPrefix($0, $1, $2);
|
|
11413
|
+
case 0: return $1c => $1d => Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: '', a2: ''}, $1c, $1d);
|
|
11414
|
+
}
|
|
11415
|
+
}
|
|
11416
|
+
|
|
11266
11417
|
/* Commands.PullRequest.forkedPRs : Maybe GitHubPRState -> Nat -> Nat -> Nat -> () -> Promise' Future */
|
|
11267
11418
|
function Commands_PullRequest_forkedPRs($0, $1, $2, $3, $4) {
|
|
11268
|
-
return FFI_Concurrency_fork(csegen_74()(), Prelude_Types_foldMap_Foldable_List(csegen_51()(), $f => $f, {a1: 'pulls --json ', a2: {a1:
|
|
11419
|
+
return FFI_Concurrency_fork(csegen_74()(), Prelude_Types_foldMap_Foldable_List(csegen_51()(), $f => $f, {a1: 'pulls --json ', a2: {a1: Commands_PullRequest_n__9246_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}}}}}}}));
|
|
11269
11420
|
}
|
|
11270
11421
|
|
|
11271
11422
|
/* Commands.PullRequest.empty : PRHistory */
|
|
@@ -11387,7 +11538,7 @@ function Util_Github_n__2629_823_go($0, $1) {
|
|
|
11387
11538
|
|
|
11388
11539
|
/* Util.Github.parseGithubIssueNumber : String -> Maybe String */
|
|
11389
11540
|
function Util_Github_parseGithubIssueNumber($0) {
|
|
11390
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
11541
|
+
return Prelude_Types_map_Functor_Maybe(csegen_749(), 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))));
|
|
11391
11542
|
}
|
|
11392
11543
|
|
|
11393
11544
|
/* Util.Jira.2629:820:startOver */
|
|
@@ -11447,30 +11598,30 @@ function Util_Jira_n__2629_818_go($0, $1) {
|
|
|
11447
11598
|
|
|
11448
11599
|
/* Util.Jira.parseJiraSlug : String -> Maybe String */
|
|
11449
11600
|
function Util_Jira_parseJiraSlug($0) {
|
|
11450
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
11601
|
+
return Prelude_Types_map_Functor_Maybe(csegen_749(), 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))));
|
|
11451
11602
|
}
|
|
11452
11603
|
|
|
11453
11604
|
/* Data.Pagination.with block in metaPages' */
|
|
11454
|
-
function
|
|
11605
|
+
function Data_Pagination_with__metaPagesx27_7451($0, $1, $2, $3, $4, $5, $6) {
|
|
11455
11606
|
const $7 = $8 => Data_Pagination_divNatNZLemma($0, $1, $6);
|
|
11456
11607
|
return Data_Pagination_pagesHelper(0n, $0, $3, $7(undefined), $5);
|
|
11457
11608
|
}
|
|
11458
11609
|
|
|
11459
11610
|
/* Data.Pagination.with block in with block in divNatNZLemma */
|
|
11460
|
-
function
|
|
11611
|
+
function Data_Pagination_with__withx20blockx20inx20divNatNZLemma_7392($0, $1, $2, $3, $4, $5) {
|
|
11461
11612
|
return Prelude_Uninhabited_void$();
|
|
11462
11613
|
}
|
|
11463
11614
|
|
|
11464
11615
|
/* Data.Pagination.with block in divNatNZLemma */
|
|
11465
|
-
function
|
|
11616
|
+
function Data_Pagination_with__divNatNZLemma_7374($0, $1, $2, $3, $4, $5) {
|
|
11466
11617
|
switch($2) {
|
|
11467
11618
|
case 0: return 1n;
|
|
11468
|
-
case 1: return
|
|
11619
|
+
case 1: return Data_Pagination_with__withx20blockx20inx20divNatNZLemma_7392($1, $0, $5, $c => Data_Nat_LTEImpliesNotGT($5, $c), $3, undefined);
|
|
11469
11620
|
}
|
|
11470
11621
|
}
|
|
11471
11622
|
|
|
11472
11623
|
/* Data.Pagination.with block in pagesHelper */
|
|
11473
|
-
function
|
|
11624
|
+
function Data_Pagination_with__pagesHelper_7234($0, $1, $2, $3, $4, $5) {
|
|
11474
11625
|
switch($2.h) {
|
|
11475
11626
|
case 0: /* Yes */ {
|
|
11476
11627
|
const $7 = Data_Pagination_lemma($0, $1, $2.a1);
|
|
@@ -11481,12 +11632,12 @@ function Data_Pagination_with__pagesHelper_7266($0, $1, $2, $3, $4, $5) {
|
|
|
11481
11632
|
}
|
|
11482
11633
|
|
|
11483
11634
|
/* Data.Pagination.with block in nonTerminalPage */
|
|
11484
|
-
function
|
|
11635
|
+
function Data_Pagination_with__nonTerminalPage_7213($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11485
11636
|
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)};
|
|
11486
11637
|
}
|
|
11487
11638
|
|
|
11488
11639
|
/* Data.Pagination.with block in lemma */
|
|
11489
|
-
function
|
|
11640
|
+
function Data_Pagination_with__lemma_7116($0, $1, $2, $3, $4) {
|
|
11490
11641
|
return {a1: ($3.a1+1n), a2: {a1: undefined, a2: 1n}};
|
|
11491
11642
|
}
|
|
11492
11643
|
|
|
@@ -11535,21 +11686,21 @@ function Data_Pagination_traversex27($0, $1, $2) {
|
|
|
11535
11686
|
/* Data.Pagination.pagesHelper : (page : Nat) -> (remainingItems : Nat) -> (perPage : Nat) -> GT perPage 0 =>
|
|
11536
11687
|
GT remainingItems 0 => PaginationShape remainingItems perPage page */
|
|
11537
11688
|
function Data_Pagination_pagesHelper($0, $1, $2, $3, $4) {
|
|
11538
|
-
return
|
|
11689
|
+
return Data_Pagination_with__pagesHelper_7234($2, $1, Data_Nat_isLT($2, $1), $3, $4, $0);
|
|
11539
11690
|
}
|
|
11540
11691
|
|
|
11541
11692
|
/* Data.Pagination.nonTerminalPage : (page : Nat) -> (remainingItems : Nat) -> (perPage : Nat) ->
|
|
11542
11693
|
{auto 0 _ : remainder + perPage = remainingItems} -> GT perPage 0 =>
|
|
11543
11694
|
GT remainder 0 => PaginationShape remainingItems perPage page */
|
|
11544
11695
|
function Data_Pagination_nonTerminalPage($0, $1, $2, $3, $4, $5) {
|
|
11545
|
-
return
|
|
11696
|
+
return Data_Pagination_with__nonTerminalPage_7213($0, $3, $2, undefined, undefined, $5, $4, $1);
|
|
11546
11697
|
}
|
|
11547
11698
|
|
|
11548
11699
|
/* Data.Pagination.metaPages' : (items : Nat) -> (pages : Nat) -> GT items 0 => {auto 0 pagesOk : GT pages 0} ->
|
|
11549
11700
|
LTE pages items =>
|
|
11550
11701
|
PaginationShape items (divNatNZ items pages (gtIsNonZero pagesOk)) 0 */
|
|
11551
11702
|
function Data_Pagination_metaPagesx27($0, $1, $2, $3) {
|
|
11552
|
-
return
|
|
11703
|
+
return Data_Pagination_with__metaPagesx27_7451($0, $1, undefined, Data_Nat_divNatNZ($0, $1), undefined, $2, $3);
|
|
11553
11704
|
}
|
|
11554
11705
|
|
|
11555
11706
|
/* Data.Pagination.metaPages : (items : Nat) -> (perPage : Nat) -> GT items 0 => GT perPage 0 =>
|
|
@@ -11573,7 +11724,7 @@ function Data_Pagination_lemma($0, $1, $2) {
|
|
|
11573
11724
|
case 0n: _crashExp('Nat case not covered');
|
|
11574
11725
|
default: {
|
|
11575
11726
|
const $8 = ($2-1n);
|
|
11576
|
-
return
|
|
11727
|
+
return Data_Pagination_with__lemma_7116($0, $4, $8, Data_Pagination_lemmax27($0, $4, $8), $1);
|
|
11577
11728
|
}
|
|
11578
11729
|
}
|
|
11579
11730
|
}
|
|
@@ -11595,7 +11746,7 @@ function Data_Pagination_divNatNZLemma($0, $1, $2) {
|
|
|
11595
11746
|
case 0n: _crashExp('Nat case not covered');
|
|
11596
11747
|
default: {
|
|
11597
11748
|
const $a = ($1-1n);
|
|
11598
|
-
return
|
|
11749
|
+
return Data_Pagination_with__divNatNZLemma_7374($a, $6, Data_Nat_lte(($6+1n), $a), undefined, undefined, $2);
|
|
11599
11750
|
}
|
|
11600
11751
|
}
|
|
11601
11752
|
}
|
|
@@ -11716,38 +11867,58 @@ function Data_List_DeleteBy_deleteByx27($0, $1, $2) {
|
|
|
11716
11867
|
}
|
|
11717
11868
|
}
|
|
11718
11869
|
|
|
11719
|
-
/* Commands.Quick.
|
|
11720
|
-
function
|
|
11870
|
+
/* Commands.Quick.5804:5628:issuePrompt */
|
|
11871
|
+
function Commands_Quick_n__5804_5628_issuePrompt($0, $1, $2, $3) {
|
|
11721
11872
|
return 'What would you like the issue description to be (two blank lines to finish)?';
|
|
11722
11873
|
}
|
|
11723
11874
|
|
|
11724
|
-
/* Commands.Quick.
|
|
11725
|
-
function
|
|
11726
|
-
|
|
11727
|
-
|
|
11728
|
-
|
|
11729
|
-
|
|
11730
|
-
|
|
11731
|
-
|
|
11732
|
-
|
|
11875
|
+
/* Commands.Quick.5804:5627:branchPrefix */
|
|
11876
|
+
function Commands_Quick_n__5804_5627_branchPrefix($0, $1, $2, $3) {
|
|
11877
|
+
return Data_String_toLower(Commands_Quick_show_Show_IssueCategory($2));
|
|
11878
|
+
}
|
|
11879
|
+
|
|
11880
|
+
/* Commands.Quick.show */
|
|
11881
|
+
function Commands_Quick_show_Show_IssueCategory($0) {
|
|
11882
|
+
switch($0) {
|
|
11883
|
+
case 0: return 'Bugfix';
|
|
11884
|
+
case 1: return 'Feature';
|
|
11885
|
+
}
|
|
11886
|
+
}
|
|
11887
|
+
|
|
11888
|
+
/* Commands.Quick.quickStartNewWork : Config => Git => Octokit => IssueCategory -> Promise' () */
|
|
11889
|
+
function Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5) {
|
|
11890
|
+
const $14 = $15 => $16 => $17 => {
|
|
11891
|
+
const $1c = $1d => $1e => $1f => {
|
|
11892
|
+
const $2e = $2f => $30 => $31 => {
|
|
11893
|
+
const $35 = issueTitle => $36 => $37 => {
|
|
11894
|
+
const $3a = Data_Config_rf__editor($0);
|
|
11895
|
+
let $39;
|
|
11896
|
+
switch($3a.h) {
|
|
11733
11897
|
case 0: /* nothing */ {
|
|
11734
|
-
$
|
|
11898
|
+
$39 = Util_Prompting_inlineDescription(csegen_74()(), Commands_Quick_n__5804_5628_issuePrompt($1, $2, $3, $0), '');
|
|
11735
11899
|
break;
|
|
11736
11900
|
}
|
|
11737
11901
|
case undefined: /* just */ {
|
|
11738
|
-
$
|
|
11902
|
+
$39 = $48 => $49 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_705(), Util_Prompting_editorDescription(csegen_74()(), $3a.a1, {h: 0}, ''), $48, $49);
|
|
11739
11903
|
break;
|
|
11740
11904
|
}
|
|
11741
11905
|
}
|
|
11742
|
-
|
|
11906
|
+
const $57 = issueBody => $58 => $59 => {
|
|
11907
|
+
const $64 = issue => {
|
|
11908
|
+
const $65 = Prelude_Types_foldMap_Foldable_List(csegen_51()(), $6b => $6b, {a1: Commands_Quick_n__5804_5627_branchPrefix($1, $2, $3, $0), a2: {a1: '/', a2: {a1: Prelude_Show_show_Show_Integer(issue.a1), a2: {a1: '/', a2: {h: 0}}}}});
|
|
11909
|
+
return $7d => $7e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($81 => $82 => $83 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($86 => Prelude_IO_prim__putStr('What would you like the branch to be named?\n', $86), $81, $82, $83), $8e => $8f => $90 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($93 => $94 => $95 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($98 => Prelude_IO_prim__putStr($65, $98), $93, $94, $95), $a0 => $a1 => $a2 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_761(), branchSlug => FFI_Git_checkoutBranch($1, 1, Prelude_Types_foldMap_Foldable_List(csegen_51()(), $b0 => $b0, {a1: $65, a2: {a1: branchSlug, a2: {h: 0}}})), $a1, $a2), $8f, $90), $7d, $7e);
|
|
11910
|
+
};
|
|
11911
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_createIssue($2, $0.a2, $0.a3, issueTitle, issueBody), $64, $58, $59);
|
|
11912
|
+
};
|
|
11913
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($39, $57, $36, $37);
|
|
11743
11914
|
};
|
|
11744
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11915
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_761(), $35, $30, $31);
|
|
11745
11916
|
};
|
|
11746
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11917
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($22 => $23 => $24 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($27 => Prelude_IO_prim__putStr('What would you like the issue title to be?\n', $27), $22, $23, $24), $2e, $1e, $1f);
|
|
11747
11918
|
};
|
|
11748
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11919
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1c, $16, $17);
|
|
11749
11920
|
};
|
|
11750
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11921
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8 => $9 => $a => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d => Prelude_IO_prim__putStr('Creating a new GitHub issue and branch.\n', $d), $8, $9, $a), $14, $4, $5);
|
|
11751
11922
|
}
|
|
11752
11923
|
|
|
11753
11924
|
/* Commands.Label.unslugifyLabel : List String -> String -> String */
|
|
@@ -11766,7 +11937,7 @@ function Commands_Label_addLabels($0, $1, $2, $3, $4, $5) {
|
|
|
11766
11937
|
|
|
11767
11938
|
/* Commands.Graph.7730:7016:pendingDot */
|
|
11768
11939
|
function Commands_Graph_n__7730_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11769
|
-
return Theme_theme($7,
|
|
11940
|
+
return Theme_theme($7, csegen_691(), csegen_689(), 6)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
|
|
11770
11941
|
}
|
|
11771
11942
|
|
|
11772
11943
|
/* Commands.Graph.7730:7015:note */
|
|
@@ -11776,7 +11947,7 @@ function Commands_Graph_n__7730_7015_note($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
11776
11947
|
|
|
11777
11948
|
/* Commands.Graph.7730:7014:missedDot */
|
|
11778
11949
|
function Commands_Graph_n__7730_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11779
|
-
return Theme_theme($7,
|
|
11950
|
+
return Theme_theme($7, csegen_690(), csegen_690(), 7)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
|
|
11780
11951
|
}
|
|
11781
11952
|
|
|
11782
11953
|
/* Commands.Graph.7730:7013:maxValue */
|
|
@@ -11805,7 +11976,7 @@ function Commands_Graph_n__7730_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11805
11976
|
break;
|
|
11806
11977
|
}
|
|
11807
11978
|
}
|
|
11808
|
-
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__7730_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('overlayed on'), Commands_Graph_n__7730_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7))))}, a2:
|
|
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: csegen_765()}};
|
|
11809
11980
|
const $27 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('1x the number of closed PRs with unanswered review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Commands_Graph_n__7730_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $3a};
|
|
11810
11981
|
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};
|
|
11811
11982
|
const $f = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $14};
|
|
@@ -11816,7 +11987,7 @@ function Commands_Graph_n__7730_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11816
11987
|
|
|
11817
11988
|
/* Commands.Graph.7327:6604:header */
|
|
11818
11989
|
function Commands_Graph_n__7327_6604_header($0, $1, $2, $3) {
|
|
11819
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Open Pull Requests grouped by month created.')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2:
|
|
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: csegen_765()}}}));
|
|
11820
11991
|
}
|
|
11821
11992
|
|
|
11822
11993
|
/* Commands.Graph.7327:6603:graphable */
|
|
@@ -11839,20 +12010,20 @@ function Commands_Graph_n__6760_6183_countInParens($0, $1, $2, $3, $4) {
|
|
|
11839
12010
|
|
|
11840
12011
|
/* Commands.Graph.7730:7010:completedBox */
|
|
11841
12012
|
function Commands_Graph_n__7730_7010_completedBox($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11842
|
-
return Theme_theme($7,
|
|
12013
|
+
return Theme_theme($7, csegen_670(), csegen_670(), 3)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25aa}'));
|
|
11843
12014
|
}
|
|
11844
12015
|
|
|
11845
12016
|
/* Commands.Graph.6760:6182:coloredLabel */
|
|
11846
12017
|
function Commands_Graph_n__6760_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
11847
12018
|
switch((($4.a2===0n)?1:0)) {
|
|
11848
|
-
case 1: return Theme_theme($0,
|
|
12019
|
+
case 1: return Theme_theme($0, csegen_670(), csegen_670(), 0)($2.a1(undefined)($4.a1));
|
|
11849
12020
|
case 0: {
|
|
11850
12021
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 2n)) {
|
|
11851
12022
|
case 1: return $2.a1(undefined)($4.a1);
|
|
11852
12023
|
case 0: {
|
|
11853
12024
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 6n)) {
|
|
11854
|
-
case 1: return Theme_theme($0,
|
|
11855
|
-
case 0: return Theme_theme($0,
|
|
12025
|
+
case 1: return Theme_theme($0, csegen_691(), csegen_689(), 1)($2.a1(undefined)($4.a1));
|
|
12026
|
+
case 0: return Theme_theme($0, csegen_690(), csegen_690(), 2)($2.a1(undefined)($4.a1));
|
|
11856
12027
|
}
|
|
11857
12028
|
}
|
|
11858
12029
|
}
|
|
@@ -11992,9 +12163,9 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11992
12163
|
|
|
11993
12164
|
/* Commands.Graph.healthGraph : Config => List PullRequest -> String -> String -> Doc AnsiStyle */
|
|
11994
12165
|
function Commands_Graph_healthGraph($0, $1, $2, $3) {
|
|
11995
|
-
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(csegen_328(), $11 => $11.a2, $b, $c),
|
|
12166
|
+
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(csegen_328(), $11 => $11.a2, $b, $c), csegen_644(), $7, $8), Data_List_sortBy(csegen_645(), $1));
|
|
11996
12167
|
const $1e = Prelude_Types_foldr_Foldable_List(xs => m => Prelude_Types_max_Ord_Nat(Data_List1_length(xs), m), 1n, $4);
|
|
11997
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_Graph_n__7327_6604_header($3, $2, $1, $0), a2: {a1: Commands_Graph_graph($0, {a1: $36 => Commands_Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29($0, $3a => Commands_Graph_length_HasLength_Date($3a),
|
|
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), csegen_781(), $36), a2: $41 => maxLabelLength => Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $45 => Commands_Graph_length_HasLength_Date($45), csegen_781(), $41, maxLabelLength), a3: $4d => Commands_Graph_labelLength_Graphable_x28PRsOnDatex20x24dateTyx29($0, $51 => Commands_Graph_length_HasLength_Date($51), csegen_781(), $4d), a4: $58 => Commands_Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29($0, $5c => Commands_Graph_length_HasLength_Date($5c), csegen_781(), $58), a5: $63 => Commands_Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29($0, $67 => Commands_Graph_length_HasLength_Date($67), csegen_781(), $63), a6: $6e => Commands_Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29($0, $72 => Commands_Graph_length_HasLength_Date($72), csegen_781(), $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}}}}}});
|
|
11998
12169
|
}
|
|
11999
12170
|
|
|
12000
12171
|
/* Commands.Graph.graphOne : Config -> Graphable g => Nat -> Nat -> Nat -> g -> Doc AnsiStyle */
|
|
@@ -12017,7 +12188,7 @@ function Commands_Graph_countPadRight($0, $1, $2) {
|
|
|
12017
12188
|
|
|
12018
12189
|
/* Commands.Graph.bar : Config -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
12019
12190
|
function Commands_Graph_bar($0, $1, $2, $3, $4) {
|
|
12020
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0,
|
|
12191
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0, csegen_690(), csegen_690(), 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_691(), csegen_689(), 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_670(), csegen_670(), 3)(Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $4, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{25aa}')))), a2: {h: 0}}}}));
|
|
12021
12192
|
}
|
|
12022
12193
|
|
|
12023
12194
|
|