@mattpolzin/harmony 5.6.0 → 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 +16 -2
- package/harmony +564 -511
- package/man/harmony.1 +18 -2
- 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:642} */
|
|
2900
|
-
const csegen_642 = __lazy(function () {
|
|
2901
|
-
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2902
|
-
});
|
|
2903
|
-
|
|
2904
2910
|
/* {csegen:643} */
|
|
2905
2911
|
const csegen_643 = __lazy(function () {
|
|
2906
|
-
return $0 => $0
|
|
2912
|
+
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2907
2913
|
});
|
|
2908
2914
|
|
|
2909
2915
|
/* {csegen:644} */
|
|
2910
2916
|
const csegen_644 = __lazy(function () {
|
|
2911
|
-
return $0 => $
|
|
2917
|
+
return $0 => $0.a3;
|
|
2912
2918
|
});
|
|
2913
2919
|
|
|
2914
|
-
/* {csegen:
|
|
2915
|
-
const
|
|
2920
|
+
/* {csegen:645} */
|
|
2921
|
+
const csegen_645 = __lazy(function () {
|
|
2922
|
+
return $0 => $1 => Prelude_Basics_on(csegen_643(), csegen_644(), $0, $1);
|
|
2923
|
+
});
|
|
2924
|
+
|
|
2925
|
+
/* {csegen:667} */
|
|
2926
|
+
const csegen_667 = __lazy(function () {
|
|
2916
2927
|
return $0 => $0.a3;
|
|
2917
2928
|
});
|
|
2918
2929
|
|
|
2919
|
-
/* {csegen:
|
|
2920
|
-
const
|
|
2930
|
+
/* {csegen:670} */
|
|
2931
|
+
const csegen_670 = __lazy(function () {
|
|
2921
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:688} */
|
|
2935
|
-
const csegen_688 = __lazy(function () {
|
|
2936
|
-
return Theme_cs({a1: 0, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2937
|
-
});
|
|
2938
|
-
|
|
2939
2945
|
/* {csegen:689} */
|
|
2940
2946
|
const csegen_689 = __lazy(function () {
|
|
2941
|
-
return Theme_cs({a1:
|
|
2947
|
+
return Theme_cs({a1: 0, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2942
2948
|
});
|
|
2943
2949
|
|
|
2944
2950
|
/* {csegen:690} */
|
|
2945
2951
|
const csegen_690 = __lazy(function () {
|
|
2952
|
+
return Theme_cs({a1: 1, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2953
|
+
});
|
|
2954
|
+
|
|
2955
|
+
/* {csegen:691} */
|
|
2956
|
+
const csegen_691 = __lazy(function () {
|
|
2946
2957
|
return Theme_cs({a1: 3, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2947
2958
|
});
|
|
2948
2959
|
|
|
2949
|
-
/* {csegen:
|
|
2950
|
-
const
|
|
2960
|
+
/* {csegen:705} */
|
|
2961
|
+
const csegen_705 = __lazy(function () {
|
|
2951
2962
|
return $0 => Prelude_Types_either(() => $3 => '', () => $5 => $5, $0);
|
|
2952
2963
|
});
|
|
2953
2964
|
|
|
2954
|
-
/* {csegen:
|
|
2955
|
-
const
|
|
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);
|
|
@@ -3506,10 +3517,10 @@ function Main_exitError($0, $1) {
|
|
|
3506
3517
|
/* Main.bashCompletion : HasIO io => String -> String -> String -> io () */
|
|
3507
3518
|
function Main_bashCompletion($0, $1, $2, $3) {
|
|
3508
3519
|
const $4 = BashCompletion_cmdOpts($1, $2, $3);
|
|
3509
|
-
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);
|
|
3510
3521
|
const $26 = $27 => {
|
|
3511
3522
|
switch($27.h) {
|
|
3512
|
-
case 0: /* nothing */ return
|
|
3523
|
+
case 0: /* nothing */ return Main_n__8663_1302_configuredOpts($0, $3, $2, $1);
|
|
3513
3524
|
case undefined: /* just */ return $0.a1.a1.a2(undefined)($27.a1);
|
|
3514
3525
|
}
|
|
3515
3526
|
};
|
|
@@ -4060,7 +4071,7 @@ function Data_String_Extra_drop($0, $1) {
|
|
|
4060
4071
|
}
|
|
4061
4072
|
|
|
4062
4073
|
/* Data.String.with block in parsePositive,parsePosTrimmed */
|
|
4063
|
-
function
|
|
4074
|
+
function Data_String_with__parsePositivex2cparsePosTrimmed_10051($0, $1, $2, $3, $4) {
|
|
4064
4075
|
switch($3) {
|
|
4065
4076
|
case '': {
|
|
4066
4077
|
switch($4.h) {
|
|
@@ -4115,7 +4126,7 @@ function Data_String_with__parsePositivex2cparsePosTrimmed_10057($0, $1, $2, $3,
|
|
|
4115
4126
|
}
|
|
4116
4127
|
|
|
4117
4128
|
/* Data.String.with block in asList */
|
|
4118
|
-
function
|
|
4129
|
+
function Data_String_with__asList_9694($0, $1) {
|
|
4119
4130
|
switch($0) {
|
|
4120
4131
|
case '': {
|
|
4121
4132
|
switch($1.h) {
|
|
@@ -4127,17 +4138,17 @@ function Data_String_with__asList_9700($0, $1) {
|
|
|
4127
4138
|
}
|
|
4128
4139
|
}
|
|
4129
4140
|
|
|
4130
|
-
/* Data.String.3856:
|
|
4131
|
-
function
|
|
4141
|
+
/* Data.String.3856:9426:unlines' */
|
|
4142
|
+
function Data_String_n__3856_9426_unlinesx27($0) {
|
|
4132
4143
|
switch($0.h) {
|
|
4133
4144
|
case 0: /* nil */ return {h: 0};
|
|
4134
|
-
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)}};
|
|
4135
4146
|
}
|
|
4136
4147
|
}
|
|
4137
4148
|
|
|
4138
|
-
/* Data.String.4465:
|
|
4139
|
-
function
|
|
4140
|
-
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));
|
|
4141
4152
|
}
|
|
4142
4153
|
|
|
4143
4154
|
/* Data.String.trim : String -> String */
|
|
@@ -4186,17 +4197,17 @@ function Data_String_replicate($0, $1) {
|
|
|
4186
4197
|
|
|
4187
4198
|
/* Data.String.parsePositive : Num a => String -> Maybe a */
|
|
4188
4199
|
function Data_String_parsePositive($0, $1) {
|
|
4189
|
-
return
|
|
4200
|
+
return Data_String_n__4465_10045_parsePosTrimmed($0, $1, Data_String_trim($1));
|
|
4190
4201
|
}
|
|
4191
4202
|
|
|
4192
4203
|
/* Data.String.ltrim : String -> String */
|
|
4193
4204
|
function Data_String_ltrim($0) {
|
|
4194
|
-
return
|
|
4205
|
+
return Data_String_with__ltrim_9718($0, Data_String_asList($0));
|
|
4195
4206
|
}
|
|
4196
4207
|
|
|
4197
4208
|
/* Data.String.lines' : List Char -> List (List Char) */
|
|
4198
4209
|
function Data_String_linesx27($0) {
|
|
4199
|
-
return
|
|
4210
|
+
return Data_String_n__3989_9556_linesHelp($0, {h: 0}, $0);
|
|
4200
4211
|
}
|
|
4201
4212
|
|
|
4202
4213
|
/* Data.String.lines : String -> List String */
|
|
@@ -4216,7 +4227,7 @@ function Data_String_isPrefixOf($0, $1) {
|
|
|
4216
4227
|
|
|
4217
4228
|
/* Data.String.fastUnlines : List String -> String */
|
|
4218
4229
|
function Data_String_fastUnlines($0) {
|
|
4219
|
-
return Prelude_Types_fastConcat(
|
|
4230
|
+
return Prelude_Types_fastConcat(Data_String_n__3856_9426_unlinesx27($0));
|
|
4220
4231
|
}
|
|
4221
4232
|
|
|
4222
4233
|
/* Data.String.break : (Char -> Bool) -> String -> (String, String) */
|
|
@@ -4232,7 +4243,7 @@ function Data_String_break$($0, $1) {
|
|
|
4232
4243
|
|
|
4233
4244
|
/* Data.String.asList : (str : String) -> AsList str */
|
|
4234
4245
|
function Data_String_asList($0) {
|
|
4235
|
-
return
|
|
4246
|
+
return Data_String_with__asList_9694($0, Data_String_strM($0));
|
|
4236
4247
|
}
|
|
4237
4248
|
|
|
4238
4249
|
/* Data.Fin.show */
|
|
@@ -5201,8 +5212,8 @@ function Prelude_Interfaces_x2ax3e($0, $1, $2) {
|
|
|
5201
5212
|
return $4($2);
|
|
5202
5213
|
}
|
|
5203
5214
|
|
|
5204
|
-
/* Prelude.Show.2434:
|
|
5205
|
-
function
|
|
5215
|
+
/* Prelude.Show.2434:11880:asciiTab */
|
|
5216
|
+
function Prelude_Show_n__2434_11880_asciiTab($0) {
|
|
5206
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}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}};
|
|
5207
5218
|
}
|
|
5208
5219
|
|
|
@@ -5246,7 +5257,7 @@ function Prelude_Show_show_Show_Bits32($0) {
|
|
|
5246
5257
|
|
|
5247
5258
|
/* Prelude.Show.show */
|
|
5248
5259
|
function Prelude_Show_show_Show_x28Listx20x24ax29($0, $1) {
|
|
5249
|
-
return ('['+(
|
|
5260
|
+
return ('['+(Prelude_Show_n__3215_12601_showx27($0, $1, '', $1)+']'));
|
|
5250
5261
|
}
|
|
5251
5262
|
|
|
5252
5263
|
/* Prelude.Show.showPrec */
|
|
@@ -5330,7 +5341,7 @@ function Prelude_Show_showLitChar($0) {
|
|
|
5330
5341
|
case '\u{5c}': return $23 => ('\u{5c}\u{5c}'+$23);
|
|
5331
5342
|
default: {
|
|
5332
5343
|
return $26 => {
|
|
5333
|
-
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));
|
|
5334
5345
|
switch($27.h) {
|
|
5335
5346
|
case undefined: /* just */ return ('\u{5c}'+($27.a1+$26));
|
|
5336
5347
|
case 0: /* nothing */ {
|
|
@@ -5576,17 +5587,17 @@ function Data_List1_last($0) {
|
|
|
5576
5587
|
return Data_List1_n__3044_2644_loop($0.a1, $0.a2, $0.a1, $0.a2);
|
|
5577
5588
|
}
|
|
5578
5589
|
|
|
5579
|
-
/* Data.List.
|
|
5580
|
-
function
|
|
5581
|
-
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);
|
|
5582
5593
|
}
|
|
5583
5594
|
|
|
5584
|
-
/* Data.List.
|
|
5585
|
-
function
|
|
5595
|
+
/* Data.List.8487:9050:go */
|
|
5596
|
+
function Data_List_n__8487_9050_go($0, $1, $2, $3, $4) {
|
|
5586
5597
|
switch($4.h) {
|
|
5587
5598
|
case 0: /* nil */ return {a1: Data_List1_singleton($3), a2: {h: 0}};
|
|
5588
5599
|
case undefined: /* cons */ {
|
|
5589
|
-
const $a =
|
|
5600
|
+
const $a = Data_List_n__8487_9050_go($0, $1, $2, $4.a1, $4.a2);
|
|
5590
5601
|
switch($2($3)($4.a1)) {
|
|
5591
5602
|
case 1: return {a1: {a1: $3, a2: $a.a1}, a2: $a.a2};
|
|
5592
5603
|
case 0: return {a1: Data_List1_singleton($3), a2: {a1: $a.a1, a2: $a.a2}};
|
|
@@ -5676,13 +5687,13 @@ function Data_List_sortBy($0, $1) {
|
|
|
5676
5687
|
switch($1.a2.h) {
|
|
5677
5688
|
case 0: /* nil */ return {a1: $1.a1, a2: {h: 0}};
|
|
5678
5689
|
default: {
|
|
5679
|
-
const $6 =
|
|
5690
|
+
const $6 = Data_List_n__7781_8362_split($1, $0, $1);
|
|
5680
5691
|
return Data_List_mergeBy($0, Data_List_sortBy($0, $6.a1), Data_List_sortBy($0, $6.a2));
|
|
5681
5692
|
}
|
|
5682
5693
|
}
|
|
5683
5694
|
}
|
|
5684
5695
|
default: {
|
|
5685
|
-
const $15 =
|
|
5696
|
+
const $15 = Data_List_n__7781_8362_split($1, $0, $1);
|
|
5686
5697
|
return Data_List_mergeBy($0, Data_List_sortBy($0, $15.a1), Data_List_sortBy($0, $15.a2));
|
|
5687
5698
|
}
|
|
5688
5699
|
}
|
|
@@ -5725,7 +5736,7 @@ function Data_List_partition($0, $1) {
|
|
|
5725
5736
|
|
|
5726
5737
|
/* Data.List.nubBy : (a -> a -> Bool) -> List a -> List a */
|
|
5727
5738
|
function Data_List_nubBy($0, $1) {
|
|
5728
|
-
return
|
|
5739
|
+
return Data_List_n__4928_5587_nubByx27({h: 0}, $0, $1);
|
|
5729
5740
|
}
|
|
5730
5741
|
|
|
5731
5742
|
/* Data.List.nub : Eq a => List a -> List a */
|
|
@@ -5802,7 +5813,7 @@ function Data_List_groupBy($0, $1) {
|
|
|
5802
5813
|
switch($1.h) {
|
|
5803
5814
|
case 0: /* nil */ return {h: 0};
|
|
5804
5815
|
case undefined: /* cons */ {
|
|
5805
|
-
const $3 =
|
|
5816
|
+
const $3 = Data_List_n__8487_9050_go($1.a1, $1.a2, $0, $1.a1, $1.a2);
|
|
5806
5817
|
return {a1: $3.a1, a2: $3.a2};
|
|
5807
5818
|
}
|
|
5808
5819
|
}
|
|
@@ -8453,37 +8464,37 @@ function FFI_Term_termCols($0) {
|
|
|
8453
8464
|
}
|
|
8454
8465
|
}
|
|
8455
8466
|
|
|
8456
|
-
/* FFI.GitHub.
|
|
8457
|
-
function
|
|
8467
|
+
/* FFI.GitHub.6763:18487:unexpectedPayload */
|
|
8468
|
+
function FFI_GitHub_n__6763_18487_unexpectedPayload($0, $1) {
|
|
8458
8469
|
return FFI_GitHub_internalError(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $9 => $9, {a1: 'Unexpected error JSON: ', a2: {a1: $0, a2: {h: 0}}}));
|
|
8459
8470
|
}
|
|
8460
8471
|
|
|
8461
|
-
/* FFI.GitHub.
|
|
8462
|
-
function
|
|
8472
|
+
/* FFI.GitHub.6763:18486:parse */
|
|
8473
|
+
function FFI_GitHub_n__6763_18486_parse($0, $1) {
|
|
8463
8474
|
switch($1.h) {
|
|
8464
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}}))));
|
|
8465
8476
|
default: return {h: 0 /* Left */, a1: 'Expected an Object containing error and status keys'};
|
|
8466
8477
|
}
|
|
8467
8478
|
}
|
|
8468
8479
|
|
|
8469
|
-
/* FFI.GitHub.
|
|
8470
|
-
function
|
|
8480
|
+
/* FFI.GitHub.8248:20015:errString */
|
|
8481
|
+
function FFI_GitHub_n__8248_20015_errString($0, $1) {
|
|
8471
8482
|
switch($1.h) {
|
|
8472
8483
|
case 0: /* nothing */ return 'You can only use teams with repositories belonging to GitHub organizations';
|
|
8473
8484
|
case undefined: /* just */ return $1.a1;
|
|
8474
8485
|
}
|
|
8475
8486
|
}
|
|
8476
8487
|
|
|
8477
|
-
/* FFI.GitHub.
|
|
8478
|
-
function
|
|
8488
|
+
/* FFI.GitHub.7159:18911:errString */
|
|
8489
|
+
function FFI_GitHub_n__7159_18911_errString($0, $1) {
|
|
8479
8490
|
switch($1.h) {
|
|
8480
8491
|
case 0: /* nothing */ return 'You can only list teams for repositories belonging to GitHub organizations';
|
|
8481
8492
|
case undefined: /* just */ return $1.a1;
|
|
8482
8493
|
}
|
|
8483
8494
|
}
|
|
8484
8495
|
|
|
8485
|
-
/* FFI.GitHub.
|
|
8486
|
-
function
|
|
8496
|
+
/* FFI.GitHub.6896:18620:errMsg */
|
|
8497
|
+
function FFI_GitHub_n__6896_18620_errMsg($0) {
|
|
8487
8498
|
return Prelude_Types_either(() => csegen_318()(), () => csegen_318()(), $0);
|
|
8488
8499
|
}
|
|
8489
8500
|
|
|
@@ -8527,7 +8538,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
8527
8538
|
let $2;
|
|
8528
8539
|
switch($3.h) {
|
|
8529
8540
|
case 0: /* Left */ {
|
|
8530
|
-
$2 = {h: 0 /* Left */, a1:
|
|
8541
|
+
$2 = {h: 0 /* Left */, a1: FFI_GitHub_n__6763_18487_unexpectedPayload($0, $3.a1)};
|
|
8531
8542
|
break;
|
|
8532
8543
|
}
|
|
8533
8544
|
case 1: /* Right */ {
|
|
@@ -8536,7 +8547,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
8536
8547
|
}
|
|
8537
8548
|
}
|
|
8538
8549
|
const $c = json => {
|
|
8539
|
-
const $d =
|
|
8550
|
+
const $d = FFI_GitHub_n__6763_18486_parse($0, json);
|
|
8540
8551
|
switch($d.h) {
|
|
8541
8552
|
case 0: /* Left */ return {h: 0 /* Left */, a1: FFI_GitHub_internalError($d.a1)};
|
|
8542
8553
|
case 1: /* Right */ return {h: 1 /* Right */, a1: $d.a1};
|
|
@@ -8628,7 +8639,7 @@ function FFI_GitHub_internalError($0) {
|
|
|
8628
8639
|
|
|
8629
8640
|
/* FFI.GitHub.ignoreStatus : Promise String a -> Promise String a */
|
|
8630
8641
|
function FFI_GitHub_ignoreStatus($0, $1, $2) {
|
|
8631
|
-
return Data_Promise_mapError($5 =>
|
|
8642
|
+
return Data_Promise_mapError($5 => FFI_GitHub_n__6896_18620_errMsg(FFI_GitHub_parseError($5)), $0, $1, $2);
|
|
8632
8643
|
}
|
|
8633
8644
|
|
|
8634
8645
|
/* FFI.GitHub.getUser : Octokit => String -> Promise String User */
|
|
@@ -8651,14 +8662,19 @@ function FFI_GitHub_getPullRequestGraphQlId($0, $1, $2, $3, $4, $5) {
|
|
|
8651
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);
|
|
8652
8663
|
}
|
|
8653
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
|
+
|
|
8654
8670
|
/* FFI.GitHub.forceListTeams : Octokit => String -> Promise' (List String) */
|
|
8655
8671
|
function FFI_GitHub_forceListTeams($0, $1, $2, $3) {
|
|
8656
|
-
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);
|
|
8657
8673
|
}
|
|
8658
8674
|
|
|
8659
8675
|
/* FFI.GitHub.forceListTeamMembers : Octokit => String -> String -> Promise' (List String) */
|
|
8660
8676
|
function FFI_GitHub_forceListTeamMembers($0, $1, $2, $3, $4) {
|
|
8661
|
-
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);
|
|
8662
8678
|
}
|
|
8663
8679
|
|
|
8664
8680
|
/* FFI.GitHub.createPR : Octokit => {default False _ : Bool} ->
|
|
@@ -8734,8 +8750,8 @@ function Data_Review_isAuthor($0, $1) {
|
|
|
8734
8750
|
return Prelude_EqOrd_x3dx3d_Eq_String($1.a2, $0);
|
|
8735
8751
|
}
|
|
8736
8752
|
|
|
8737
|
-
/* Data.Date.4986:
|
|
8738
|
-
function
|
|
8753
|
+
/* Data.Date.4986:11703:parseNat */
|
|
8754
|
+
function Data_Date_n__4986_11703_parseNat($0, $1, $2) {
|
|
8739
8755
|
switch($2) {
|
|
8740
8756
|
case '0': return {a1: 0n};
|
|
8741
8757
|
case '1': return {a1: 1n};
|
|
@@ -8751,12 +8767,12 @@ function Data_Date_n__4986_11759_parseNat($0, $1, $2) {
|
|
|
8751
8767
|
}
|
|
8752
8768
|
}
|
|
8753
8769
|
|
|
8754
|
-
/* Data.Date.5103:
|
|
8755
|
-
function
|
|
8770
|
+
/* Data.Date.5103:11821:guardSuccess */
|
|
8771
|
+
function Data_Date_n__5103_11821_guardSuccess($0) {
|
|
8756
8772
|
switch($0.h) {
|
|
8757
8773
|
case undefined: /* cons */ {
|
|
8758
8774
|
switch($0.a1.h) {
|
|
8759
|
-
case 3: /* 5103:
|
|
8775
|
+
case 3: /* 5103:11810:Day */ {
|
|
8760
8776
|
switch($0.a2.h) {
|
|
8761
8777
|
case undefined: /* cons */ {
|
|
8762
8778
|
switch($0.a2.a2.h) {
|
|
@@ -8774,28 +8790,28 @@ function Data_Date_n__5103_11877_guardSuccess($0) {
|
|
|
8774
8790
|
}
|
|
8775
8791
|
}
|
|
8776
8792
|
|
|
8777
|
-
/* Data.Date.5103:
|
|
8778
|
-
function
|
|
8793
|
+
/* Data.Date.5103:11820:go */
|
|
8794
|
+
function Data_Date_n__5103_11820_go($0, $1) {
|
|
8779
8795
|
switch($0.a1.h) {
|
|
8780
|
-
case 4: /* 5103:
|
|
8781
|
-
case 0: /* 5103:
|
|
8796
|
+
case 4: /* 5103:11811:Fail */ return {a1: {h: 4 /* 5103:11811:Fail */}, a2: undefined};
|
|
8797
|
+
case 0: /* 5103:11818:Start */ {
|
|
8782
8798
|
switch(Prelude_Types_isDigit($1)) {
|
|
8783
|
-
case 1: return {a1: {h: 1 /* 5103:
|
|
8784
|
-
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};
|
|
8785
8801
|
}
|
|
8786
8802
|
}
|
|
8787
|
-
case 1: /* 5103:
|
|
8803
|
+
case 1: /* 5103:11813:P */ {
|
|
8788
8804
|
switch($0.a1.a1) {
|
|
8789
8805
|
case 0: {
|
|
8790
8806
|
switch($1) {
|
|
8791
8807
|
case '-': {
|
|
8792
8808
|
const $12 = Data_Date_parsePositiveReversed($0.a2);
|
|
8793
8809
|
switch($12.h) {
|
|
8794
|
-
case 0: /* nothing */ return {a1: {h: 4 /* 5103:
|
|
8795
|
-
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};
|
|
8796
8812
|
}
|
|
8797
8813
|
}
|
|
8798
|
-
default: return {a1: {h: 1 /* 5103:
|
|
8814
|
+
default: return {a1: {h: 1 /* 5103:11813:P */, a1: 0}, a2: {a1: $1, a2: $0.a2}};
|
|
8799
8815
|
}
|
|
8800
8816
|
}
|
|
8801
8817
|
case 1: {
|
|
@@ -8803,32 +8819,32 @@ function Data_Date_n__5103_11876_go($0, $1) {
|
|
|
8803
8819
|
case '-': {
|
|
8804
8820
|
const $21 = Data_Date_parsePositiveReversed($0.a2.a2);
|
|
8805
8821
|
switch($21.h) {
|
|
8806
|
-
case 0: /* nothing */ return {a1: {h: 4 /* 5103:
|
|
8807
|
-
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}};
|
|
8808
8824
|
}
|
|
8809
8825
|
}
|
|
8810
|
-
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}}};
|
|
8811
8827
|
}
|
|
8812
8828
|
}
|
|
8813
8829
|
}
|
|
8814
8830
|
}
|
|
8815
|
-
case 2: /* 5103:
|
|
8831
|
+
case 2: /* 5103:11817:S */ {
|
|
8816
8832
|
switch($0.a1.a1) {
|
|
8817
8833
|
case 0: {
|
|
8818
8834
|
switch(Prelude_Types_isDigit($1)) {
|
|
8819
|
-
case 1: return {a1: {h: 1 /* 5103:
|
|
8820
|
-
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};
|
|
8821
8837
|
}
|
|
8822
8838
|
}
|
|
8823
8839
|
case 1: {
|
|
8824
8840
|
switch(Prelude_Types_isDigit($1)) {
|
|
8825
|
-
case 1: return {a1: {h: 3 /* 5103:
|
|
8826
|
-
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};
|
|
8827
8843
|
}
|
|
8828
8844
|
}
|
|
8829
8845
|
}
|
|
8830
8846
|
}
|
|
8831
|
-
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}}}};
|
|
8832
8848
|
}
|
|
8833
8849
|
}
|
|
8834
8850
|
|
|
@@ -8908,7 +8924,7 @@ function Data_Date_showYearAndMonth($0) {
|
|
|
8908
8924
|
function Data_Date_parsePositiveReversed($0) {
|
|
8909
8925
|
switch($0.h) {
|
|
8910
8926
|
case 0: /* nil */ return {a1: 0n};
|
|
8911
|
-
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))})));
|
|
8912
8928
|
}
|
|
8913
8929
|
}
|
|
8914
8930
|
|
|
@@ -8921,7 +8937,7 @@ function Data_Date_parseDateTimeString($0) {
|
|
|
8921
8937
|
|
|
8922
8938
|
/* Data.Date.parseDateString : String -> Maybe Date */
|
|
8923
8939
|
function Data_Date_parseDateString($0) {
|
|
8924
|
-
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)));
|
|
8925
8941
|
}
|
|
8926
8942
|
|
|
8927
8943
|
/* Data.Date.pad : Nat -> String */
|
|
@@ -8947,7 +8963,7 @@ function Data_Issue_parseIssueString($0) {
|
|
|
8947
8963
|
|
|
8948
8964
|
/* Data.Issue.parseIssue : JSON -> Either String Issue */
|
|
8949
8965
|
function Data_Issue_parseIssue($0) {
|
|
8950
|
-
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}})))))))));
|
|
8951
8967
|
}
|
|
8952
8968
|
|
|
8953
8969
|
/* Data.Issue.parseDateTime : String -> Either String Date */
|
|
@@ -9008,7 +9024,7 @@ function Data_PullRequest_parseState($0, $1) {
|
|
|
9008
9024
|
|
|
9009
9025
|
/* Data.PullRequest.parsePullRequestsString : String -> Either String (List PullRequest) */
|
|
9010
9026
|
function Data_PullRequest_parsePullRequestsString($0) {
|
|
9011
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_227(), csegen_228(),
|
|
9027
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_227(), csegen_228(), csegen_346(), $0);
|
|
9012
9028
|
}
|
|
9013
9029
|
|
|
9014
9030
|
/* Data.PullRequest.parsePullRequestString : String -> Either String PullRequest */
|
|
@@ -9101,47 +9117,47 @@ function Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, $2) {
|
|
|
9101
9117
|
default: return {h: 0};
|
|
9102
9118
|
}
|
|
9103
9119
|
};
|
|
9104
|
-
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);
|
|
9105
9121
|
}
|
|
9106
9122
|
|
|
9107
|
-
/* Config.
|
|
9108
|
-
function
|
|
9109
|
-
const $6 =
|
|
9110
|
-
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($1c => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {a1: 'Would you like harmony configured for a \'dark\' or \'light\' terminal background', a2: {a1: $6, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $1c)))($30 =>
|
|
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)))));
|
|
9111
9127
|
}
|
|
9112
9128
|
|
|
9113
|
-
/* Config.
|
|
9114
|
-
function
|
|
9129
|
+
/* Config.9588:2539:repo */
|
|
9130
|
+
function Config_n__9588_2539_repo($0, $1, $2, $3, $4, $5) {
|
|
9115
9131
|
return Prelude_Types_map_Functor_Maybe(csegen_318()(), $5);
|
|
9116
9132
|
}
|
|
9117
9133
|
|
|
9118
|
-
/* Config.
|
|
9119
|
-
function
|
|
9134
|
+
/* Config.8655:1562:parseSuffix */
|
|
9135
|
+
function Config_n__8655_1562_parseSuffix($0, $1) {
|
|
9120
9136
|
return Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, Data_String_break$($8 => Prelude_EqOrd_x3dx3d_Eq_Char($8, '.'), $1));
|
|
9121
9137
|
}
|
|
9122
9138
|
|
|
9123
|
-
/* Config.
|
|
9124
|
-
function
|
|
9125
|
-
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);
|
|
9126
9142
|
}
|
|
9127
9143
|
|
|
9128
|
-
/* Config.
|
|
9129
|
-
function
|
|
9130
|
-
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);
|
|
9131
9147
|
}
|
|
9132
9148
|
|
|
9133
|
-
/* Config.
|
|
9134
|
-
function
|
|
9135
|
-
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);
|
|
9136
9152
|
}
|
|
9137
9153
|
|
|
9138
|
-
/* Config.
|
|
9139
|
-
function
|
|
9154
|
+
/* Config.8366:1281:oneDayAgo */
|
|
9155
|
+
function Config_n__8366_1281_oneDayAgo($0, $1, $2) {
|
|
9140
9156
|
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(Number(_truncUBigInt32((now-86400n)))));
|
|
9141
9157
|
}
|
|
9142
9158
|
|
|
9143
|
-
/* Config.
|
|
9144
|
-
function
|
|
9159
|
+
/* Config.9588:2537:offerRetry */
|
|
9160
|
+
function Config_n__9588_2537_offerRetry($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
9145
9161
|
const $13 = $14 => {
|
|
9146
9162
|
switch($14.h) {
|
|
9147
9163
|
case 0: /* nothing */ {
|
|
@@ -9162,34 +9178,34 @@ function Config_n__9586_2537_offerRetry($0, $1, $2, $3, $4, $5, $6, $7, $8, $9)
|
|
|
9162
9178
|
return $5.a1.a2(undefined)(undefined)($9)($13);
|
|
9163
9179
|
}
|
|
9164
9180
|
|
|
9165
|
-
/* Config.
|
|
9166
|
-
function
|
|
9181
|
+
/* Config.9491:2423:help */
|
|
9182
|
+
function Config_n__9491_2423_help($0, $1) {
|
|
9167
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}}})));
|
|
9168
9184
|
}
|
|
9169
9185
|
|
|
9170
|
-
/* Config.
|
|
9171
|
-
function
|
|
9186
|
+
/* Config.9588:2536:enterForDefaultStr */
|
|
9187
|
+
function Config_n__9588_2536_enterForDefaultStr($0, $1, $2, $3, $4, $5) {
|
|
9172
9188
|
return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $b => $b, {a1: ' (ENTER for default: ', a2: {a1: $5, a2: {a1: ')', a2: {h: 0}}}});
|
|
9173
9189
|
}
|
|
9174
9190
|
|
|
9175
|
-
/* Config.
|
|
9176
|
-
function
|
|
9191
|
+
/* Config.8608:1513:drop' */
|
|
9192
|
+
function Config_n__8608_1513_dropx27($0, $1) {
|
|
9177
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));
|
|
9178
9194
|
}
|
|
9179
9195
|
|
|
9180
|
-
/* Config.
|
|
9181
|
-
function
|
|
9182
|
-
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));
|
|
9183
9199
|
}
|
|
9184
9200
|
|
|
9185
|
-
/* Config.
|
|
9186
|
-
function
|
|
9187
|
-
const $6 =
|
|
9188
|
-
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($1c => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {a1: 'What kind of comment would you like Harmony to leave when it requests reviewers? [none/name/at-mention]', a2: {a1: $6, a2: {h: 0}}})+'\n'), $1c)))($2e =>
|
|
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)))));
|
|
9189
9205
|
}
|
|
9190
9206
|
|
|
9191
|
-
/* Config.
|
|
9192
|
-
function
|
|
9207
|
+
/* Config.8497:1406:checkRequestSettings */
|
|
9208
|
+
function Config_n__8497_1406_checkRequestSettings($0, $1) {
|
|
9193
9209
|
let $2;
|
|
9194
9210
|
switch($1.a6) {
|
|
9195
9211
|
case 1: {
|
|
@@ -9207,10 +9223,10 @@ function Config_n__8495_1406_checkRequestSettings($0, $1) {
|
|
|
9207
9223
|
}
|
|
9208
9224
|
}
|
|
9209
9225
|
|
|
9210
|
-
/* Config.
|
|
9211
|
-
function
|
|
9212
|
-
const $6 =
|
|
9213
|
-
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($1c => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $25 => $25, {a1: 'Would you like harmony to parse branch names for \'jira\' slugs or \'github\' issue numbers to use as part of new PR title or body', a2: {a1: $6, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $1c)))($30 =>
|
|
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)))));
|
|
9214
9230
|
}
|
|
9215
9231
|
|
|
9216
9232
|
/* Config.show */
|
|
@@ -9245,7 +9261,7 @@ function Config_syncIfOld($0, $1, $2, $3) {
|
|
|
9245
9261
|
case 0: return $1b => Data_Promise_pure_Applicative_x28Promisex20x24ex29($1, $e, $1b);
|
|
9246
9262
|
}
|
|
9247
9263
|
};
|
|
9248
|
-
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);
|
|
9249
9265
|
}
|
|
9250
9266
|
|
|
9251
9267
|
/* Config.syncConfig : Config => Octokit => Bool -> Promise' Config */
|
|
@@ -9257,7 +9273,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
9257
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};
|
|
9258
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);
|
|
9259
9275
|
};
|
|
9260
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9276
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_378()(), $40, $3a, $3b);
|
|
9261
9277
|
};
|
|
9262
9278
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2f => $30 => FFI_GitHub_listRepoLabels($1, $0.a2, $0.a3, $2f, $30), $39, $2b, $2c);
|
|
9263
9279
|
};
|
|
@@ -9268,7 +9284,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
9268
9284
|
|
|
9269
9285
|
/* Config.settablePropsWithHelp : Config => String */
|
|
9270
9286
|
function Config_settablePropsWithHelp($0) {
|
|
9271
|
-
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())));
|
|
9272
9288
|
}
|
|
9273
9289
|
|
|
9274
9290
|
/* Config.setConfig : Config => String -> String -> Promise' Config */
|
|
@@ -9280,14 +9296,14 @@ function Config_setConfig($0, $1, $2) {
|
|
|
9280
9296
|
function Config_propSetter($0, $1) {
|
|
9281
9297
|
return $2 => {
|
|
9282
9298
|
switch($0) {
|
|
9283
|
-
case 0: return Config_update(
|
|
9284
|
-
case 1: return Config_update(
|
|
9285
|
-
case 2: return Config_update(
|
|
9286
|
-
case 3: return Config_update(
|
|
9287
|
-
case 4: return Config_update(
|
|
9288
|
-
case 5: return Config_update(
|
|
9289
|
-
case 6: return Config_update(
|
|
9290
|
-
case 7: return Config_update(
|
|
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);
|
|
9291
9307
|
}
|
|
9292
9308
|
};
|
|
9293
9309
|
}
|
|
@@ -9317,7 +9333,7 @@ function Config_preferOriginRemote($0) {
|
|
|
9317
9333
|
|
|
9318
9334
|
/* Config.parseGitHubURI : String -> Maybe GitRemote */
|
|
9319
9335
|
function Config_parseGitHubURI($0) {
|
|
9320
|
-
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));
|
|
9321
9337
|
}
|
|
9322
9338
|
|
|
9323
9339
|
/* Config.parseBool : String -> Maybe Bool */
|
|
@@ -9428,14 +9444,14 @@ function Config_findConfig($0, $1, $2) {
|
|
|
9428
9444
|
|
|
9429
9445
|
/* Config.dropPrefix' : String -> String -> Maybe String */
|
|
9430
9446
|
function Config_dropPrefixx27($0, $1) {
|
|
9431
|
-
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)));
|
|
9432
9448
|
}
|
|
9433
9449
|
|
|
9434
9450
|
/* Config.createConfig : Git => Maybe String -> Bool -> Nat -> Maybe String -> Promise' Config */
|
|
9435
9451
|
function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
9436
9452
|
const $25 = $26 => $27 => $28 => {
|
|
9437
9453
|
const $2d = $2e => {
|
|
9438
|
-
const $30 =
|
|
9454
|
+
const $30 = Config_n__9588_2536_enterForDefaultStr($0, $4, $3, $2, $1, 'unset');
|
|
9439
9455
|
const $2f = () => $38 => $39 => {
|
|
9440
9456
|
const $63 = $64 => $65 => $66 => {
|
|
9441
9457
|
const $68 = $69 => $6a => {
|
|
@@ -9445,7 +9461,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9445
9461
|
default: return {a1: Data_String_trim($6d)};
|
|
9446
9462
|
}
|
|
9447
9463
|
};
|
|
9448
|
-
return Data_Promise_map_Functor_x28Promisex20x24ex29($6c,
|
|
9464
|
+
return Data_Promise_map_Functor_x28Promisex20x24ex29($6c, csegen_406()(), $69, $6a);
|
|
9449
9465
|
};
|
|
9450
9466
|
const $79 = configPAT => $7a => $7b => {
|
|
9451
9467
|
const $87 = $88 => $89 => $8a => {
|
|
@@ -9454,17 +9470,17 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9454
9470
|
const $9e = remoteGuess => $9f => $a0 => {
|
|
9455
9471
|
const $bd = defaultOrgAndRepo => $be => $bf => {
|
|
9456
9472
|
const $c4 = $c5 => {
|
|
9457
|
-
const $c7 =
|
|
9473
|
+
const $c7 = Config_n__9588_2535_defaultStr($0, $4, $3, $2, $1, csegen_365()(), defaultOrgAndRepo);
|
|
9458
9474
|
const $c6 = () => $d2 => $d3 => {
|
|
9459
9475
|
const $f1 = $f2 => $f3 => $f4 => {
|
|
9460
9476
|
const $10d = org => $10e => $10f => {
|
|
9461
9477
|
const $114 = $115 => {
|
|
9462
|
-
const $117 =
|
|
9478
|
+
const $117 = Config_n__9588_2535_defaultStr($0, $4, $3, $2, $1, csegen_318()(), defaultOrgAndRepo);
|
|
9463
9479
|
const $116 = () => $122 => $123 => {
|
|
9464
9480
|
const $141 = $142 => $143 => $144 => {
|
|
9465
9481
|
const $15d = repo => $15e => $15f => {
|
|
9466
9482
|
const $164 = $165 => {
|
|
9467
|
-
const $167 =
|
|
9483
|
+
const $167 = Config_n__9588_2536_enterForDefaultStr($0, $4, $3, $2, $1, remoteGuess);
|
|
9468
9484
|
const $166 = () => $16f => $170 => {
|
|
9469
9485
|
const $18e = $18f => $190 => $191 => {
|
|
9470
9486
|
const $1a4 = defaultRemote => $1a5 => $1a6 => {
|
|
@@ -9498,7 +9514,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9498
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);
|
|
9499
9515
|
};
|
|
9500
9516
|
};
|
|
9501
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9517
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_378()(), $24b, $245, $246);
|
|
9502
9518
|
};
|
|
9503
9519
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($23c => $23d => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $23c, $23d), $244, $238, $239);
|
|
9504
9520
|
};
|
|
@@ -9506,53 +9522,53 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9506
9522
|
};
|
|
9507
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);
|
|
9508
9524
|
};
|
|
9509
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9525
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $213, $20d, $20e);
|
|
9510
9526
|
};
|
|
9511
|
-
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);
|
|
9512
9528
|
};
|
|
9513
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9529
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1fd, $1f7, $1f8);
|
|
9514
9530
|
};
|
|
9515
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);
|
|
9516
9532
|
};
|
|
9517
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9533
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1ea, $1e4, $1e5);
|
|
9518
9534
|
};
|
|
9519
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);
|
|
9520
9536
|
};
|
|
9521
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9537
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1d7, $1d1, $1d2);
|
|
9522
9538
|
};
|
|
9523
|
-
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);
|
|
9524
9540
|
};
|
|
9525
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9541
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1c1, $1bb, $1bc);
|
|
9526
9542
|
};
|
|
9527
|
-
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);
|
|
9528
9544
|
};
|
|
9529
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9545
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1ab, $1a5, $1a6);
|
|
9530
9546
|
};
|
|
9531
|
-
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);
|
|
9532
9548
|
};
|
|
9533
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);
|
|
9534
9550
|
};
|
|
9535
9551
|
return $166();
|
|
9536
9552
|
};
|
|
9537
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9553
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $164, $15e, $15f);
|
|
9538
9554
|
};
|
|
9539
|
-
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);
|
|
9540
9556
|
};
|
|
9541
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);
|
|
9542
9558
|
};
|
|
9543
9559
|
return $116();
|
|
9544
9560
|
};
|
|
9545
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9561
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $114, $10e, $10f);
|
|
9546
9562
|
};
|
|
9547
|
-
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);
|
|
9548
9564
|
};
|
|
9549
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);
|
|
9550
9566
|
};
|
|
9551
9567
|
return $c6();
|
|
9552
9568
|
};
|
|
9553
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9569
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $c4, $be, $bf);
|
|
9554
9570
|
};
|
|
9555
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a3 => $a4 => Data_Promise_x3cx7cx3e_Alternative_x28Promisex20Stringx29($a7 => $a8 => Data_Promise_map_Functor_x28Promisex20x24ex29($ab => Config_parseGitHubURI($ab), $af => $b0 => FFI_Git_remoteURI($0, remoteGuess, $af, $b0), $a7, $a8), () =>
|
|
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);
|
|
9556
9572
|
};
|
|
9557
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);
|
|
9558
9574
|
}
|
|
@@ -9567,14 +9583,14 @@ function Config_createConfig($0, $1, $2, $3, $4, $5, $6) {
|
|
|
9567
9583
|
};
|
|
9568
9584
|
return $2f();
|
|
9569
9585
|
};
|
|
9570
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9586
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $2d, $27, $28);
|
|
9571
9587
|
};
|
|
9572
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);
|
|
9573
9589
|
}
|
|
9574
9590
|
|
|
9575
9591
|
/* Config.checkConfigConsistency : Config -> Either (Doc AnsiStyle) () */
|
|
9576
9592
|
function Config_checkConfigConsistency($0) {
|
|
9577
|
-
return
|
|
9593
|
+
return Config_n__8497_1406_checkRequestSettings($0, $0);
|
|
9578
9594
|
}
|
|
9579
9595
|
|
|
9580
9596
|
/* Config.addIgnoredPRs : Config -> List Integer -> Promise' Config */
|
|
@@ -9631,16 +9647,16 @@ function AppVersion_printVersion($0) {
|
|
|
9631
9647
|
|
|
9632
9648
|
/* AppVersion.appVersion : String */
|
|
9633
9649
|
const AppVersion_appVersion = __lazy(function () {
|
|
9634
|
-
return '5.
|
|
9650
|
+
return '5.7.0';
|
|
9635
9651
|
});
|
|
9636
9652
|
|
|
9637
9653
|
/* Commands.Help.subcommandHelp' : String -> Doc AnsiStyle */
|
|
9638
9654
|
function Commands_Help_subcommandHelpx27($0) {
|
|
9639
9655
|
switch($0) {
|
|
9640
|
-
case 'label': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<label>'), a2:
|
|
9641
|
-
case 'request': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(1, '<team-slug> | +<user-login>'), a2:
|
|
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}}}});
|
|
9642
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}});
|
|
9643
|
-
case 'pr': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--draft'), a2: {a1: Commands_Help_argument(0, '-i/--into {<branch-name>}'), a2:
|
|
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}}}}});
|
|
9644
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}}}}});
|
|
9645
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}});
|
|
9646
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}});
|
|
@@ -9852,7 +9868,7 @@ function Commands_case__request_19159($0, $1, $2, $3, $4, $5) {
|
|
|
9852
9868
|
|
|
9853
9869
|
/* Commands.case block in case block in request,partitionedArgs */
|
|
9854
9870
|
function Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_19079($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
9855
|
-
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});
|
|
9856
9872
|
return {a1: $9.a1, a2: {a1: $7.a2, a2: $9.a2}};
|
|
9857
9873
|
}
|
|
9858
9874
|
|
|
@@ -9861,30 +9877,30 @@ function Commands_case__requestx2cpartitionedArgs_19056($0, $1, $2, $3, $4, $5)
|
|
|
9861
9877
|
return Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_19079($0, $1, $2, $3, $4, $5.a1, $5.a2, Data_List_partition($12 => BashCompletion_isHashPrefix($12), $5.a2));
|
|
9862
9878
|
}
|
|
9863
9879
|
|
|
9864
|
-
/* Commands.
|
|
9865
|
-
function
|
|
9880
|
+
/* Commands.8939:18213:recombineIntoArgs */
|
|
9881
|
+
function Commands_n__8939_18213_recombineIntoArgs($0, $1) {
|
|
9866
9882
|
switch($1.h) {
|
|
9867
9883
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
9868
9884
|
case undefined: /* cons */ {
|
|
9869
9885
|
switch($1.a1) {
|
|
9870
9886
|
case '-i': {
|
|
9871
9887
|
switch($1.a2.h) {
|
|
9872
|
-
case 0: /* nil */ return
|
|
9888
|
+
case 0: /* nil */ return csegen_608();
|
|
9873
9889
|
case undefined: /* cons */ {
|
|
9874
|
-
const $8 =
|
|
9890
|
+
const $8 = Commands_n__8939_18211_parseIntoOpt($0, $1.a2.a1);
|
|
9875
9891
|
switch($8.h) {
|
|
9876
9892
|
case undefined: /* just */ {
|
|
9877
|
-
const $c =
|
|
9893
|
+
const $c = Commands_n__8939_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9878
9894
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
9879
9895
|
}
|
|
9880
9896
|
case 0: /* nothing */ {
|
|
9881
|
-
const $14 =
|
|
9897
|
+
const $14 = Commands_n__8939_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9882
9898
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
9883
9899
|
}
|
|
9884
9900
|
}
|
|
9885
9901
|
}
|
|
9886
9902
|
default: {
|
|
9887
|
-
const $1e =
|
|
9903
|
+
const $1e = Commands_n__8939_18213_recombineIntoArgs($0, $1.a2);
|
|
9888
9904
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
9889
9905
|
}
|
|
9890
9906
|
}
|
|
@@ -9893,26 +9909,26 @@ function Commands_n__8933_18213_recombineIntoArgs($0, $1) {
|
|
|
9893
9909
|
switch($1.a2.h) {
|
|
9894
9910
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--into', a2: {h: 0}}};
|
|
9895
9911
|
case undefined: /* cons */ {
|
|
9896
|
-
const $2b =
|
|
9912
|
+
const $2b = Commands_n__8939_18211_parseIntoOpt($0, $1.a2.a1);
|
|
9897
9913
|
switch($2b.h) {
|
|
9898
9914
|
case undefined: /* just */ {
|
|
9899
|
-
const $2f =
|
|
9915
|
+
const $2f = Commands_n__8939_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9900
9916
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
9901
9917
|
}
|
|
9902
9918
|
case 0: /* nothing */ {
|
|
9903
|
-
const $37 =
|
|
9919
|
+
const $37 = Commands_n__8939_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9904
9920
|
return {a1: $37.a1, a2: {a1: '--into', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
9905
9921
|
}
|
|
9906
9922
|
}
|
|
9907
9923
|
}
|
|
9908
9924
|
default: {
|
|
9909
|
-
const $41 =
|
|
9925
|
+
const $41 = Commands_n__8939_18213_recombineIntoArgs($0, $1.a2);
|
|
9910
9926
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
9911
9927
|
}
|
|
9912
9928
|
}
|
|
9913
9929
|
}
|
|
9914
9930
|
default: {
|
|
9915
|
-
const $49 =
|
|
9931
|
+
const $49 = Commands_n__8939_18213_recombineIntoArgs($0, $1.a2);
|
|
9916
9932
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
9917
9933
|
}
|
|
9918
9934
|
}
|
|
@@ -9920,30 +9936,30 @@ function Commands_n__8933_18213_recombineIntoArgs($0, $1) {
|
|
|
9920
9936
|
}
|
|
9921
9937
|
}
|
|
9922
9938
|
|
|
9923
|
-
/* Commands.
|
|
9924
|
-
function
|
|
9939
|
+
/* Commands.10991:20153:recombineIgnoreArgs */
|
|
9940
|
+
function Commands_n__10991_20153_recombineIgnoreArgs($0, $1) {
|
|
9925
9941
|
switch($1.h) {
|
|
9926
9942
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
9927
9943
|
case undefined: /* cons */ {
|
|
9928
9944
|
switch($1.a1) {
|
|
9929
9945
|
case '-i': {
|
|
9930
9946
|
switch($1.a2.h) {
|
|
9931
|
-
case 0: /* nil */ return
|
|
9947
|
+
case 0: /* nil */ return csegen_608();
|
|
9932
9948
|
case undefined: /* cons */ {
|
|
9933
|
-
const $8 =
|
|
9949
|
+
const $8 = Commands_n__10991_20150_parseIgnoreOpt($0, $1.a2.a1);
|
|
9934
9950
|
switch($8.h) {
|
|
9935
9951
|
case undefined: /* just */ {
|
|
9936
|
-
const $c =
|
|
9952
|
+
const $c = Commands_n__10991_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9937
9953
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
9938
9954
|
}
|
|
9939
9955
|
case 0: /* nothing */ {
|
|
9940
|
-
const $14 =
|
|
9956
|
+
const $14 = Commands_n__10991_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9941
9957
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
9942
9958
|
}
|
|
9943
9959
|
}
|
|
9944
9960
|
}
|
|
9945
9961
|
default: {
|
|
9946
|
-
const $1e =
|
|
9962
|
+
const $1e = Commands_n__10991_20153_recombineIgnoreArgs($0, $1.a2);
|
|
9947
9963
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
9948
9964
|
}
|
|
9949
9965
|
}
|
|
@@ -9952,26 +9968,26 @@ function Commands_n__10985_20153_recombineIgnoreArgs($0, $1) {
|
|
|
9952
9968
|
switch($1.a2.h) {
|
|
9953
9969
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
|
|
9954
9970
|
case undefined: /* cons */ {
|
|
9955
|
-
const $2b =
|
|
9971
|
+
const $2b = Commands_n__10991_20150_parseIgnoreOpt($0, $1.a2.a1);
|
|
9956
9972
|
switch($2b.h) {
|
|
9957
9973
|
case undefined: /* just */ {
|
|
9958
|
-
const $2f =
|
|
9974
|
+
const $2f = Commands_n__10991_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9959
9975
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
9960
9976
|
}
|
|
9961
9977
|
case 0: /* nothing */ {
|
|
9962
|
-
const $37 =
|
|
9978
|
+
const $37 = Commands_n__10991_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9963
9979
|
return {a1: $37.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
9964
9980
|
}
|
|
9965
9981
|
}
|
|
9966
9982
|
}
|
|
9967
9983
|
default: {
|
|
9968
|
-
const $41 =
|
|
9984
|
+
const $41 = Commands_n__10991_20153_recombineIgnoreArgs($0, $1.a2);
|
|
9969
9985
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
9970
9986
|
}
|
|
9971
9987
|
}
|
|
9972
9988
|
}
|
|
9973
9989
|
default: {
|
|
9974
|
-
const $49 =
|
|
9990
|
+
const $49 = Commands_n__10991_20153_recombineIgnoreArgs($0, $1.a2);
|
|
9975
9991
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
9976
9992
|
}
|
|
9977
9993
|
}
|
|
@@ -9979,23 +9995,23 @@ function Commands_n__10985_20153_recombineIgnoreArgs($0, $1) {
|
|
|
9979
9995
|
}
|
|
9980
9996
|
}
|
|
9981
9997
|
|
|
9982
|
-
/* Commands.
|
|
9983
|
-
function
|
|
9998
|
+
/* Commands.10205:19397:putNameLn */
|
|
9999
|
+
function Commands_n__10205_19397_putNameLn($0, $1, $2, $3) {
|
|
9984
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}}}});
|
|
9985
10001
|
}
|
|
9986
10002
|
|
|
9987
|
-
/* Commands.
|
|
9988
|
-
function
|
|
9989
|
-
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $f =>
|
|
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)));
|
|
9990
10006
|
}
|
|
9991
10007
|
|
|
9992
|
-
/* Commands.
|
|
9993
|
-
function
|
|
10008
|
+
/* Commands.8677:17948:putLabel */
|
|
10009
|
+
function Commands_n__8677_17948_putLabel($0, $1, $2, $3, $4) {
|
|
9994
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)));
|
|
9995
10011
|
}
|
|
9996
10012
|
|
|
9997
|
-
/* Commands.
|
|
9998
|
-
function
|
|
10013
|
+
/* Commands.11343:20514:printDetails */
|
|
10014
|
+
function Commands_n__11343_20514_printDetails($0, $1, $2, $3, $4) {
|
|
9999
10015
|
const $5 = Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4.a8));
|
|
10000
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));
|
|
10001
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)));
|
|
@@ -10004,8 +10020,8 @@ function Commands_n__11337_20514_printDetails($0, $1, $2, $3, $4) {
|
|
|
10004
10020
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: $5, a2: {a1: $d, a2: {a1: $16, a2: {a1: $21, a2: {a1: $2f, a2: {h: 0}}}}}});
|
|
10005
10021
|
}
|
|
10006
10022
|
|
|
10007
|
-
/* Commands.
|
|
10008
|
-
function
|
|
10023
|
+
/* Commands.11343:20513:pickOne */
|
|
10024
|
+
function Commands_n__11343_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10009
10025
|
const $9 = Data_List_headx27(Data_List_drop($5, Prelude_Types_List_tailRecAppend($7, $8)));
|
|
10010
10026
|
return $12 => $13 => {
|
|
10011
10027
|
switch($9.h) {
|
|
@@ -10019,7 +10035,7 @@ function Commands_n__11337_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
10019
10035
|
break;
|
|
10020
10036
|
}
|
|
10021
10037
|
case 0: /* nothing */ {
|
|
10022
|
-
$1a =
|
|
10038
|
+
$1a = csegen_613();
|
|
10023
10039
|
break;
|
|
10024
10040
|
}
|
|
10025
10041
|
}
|
|
@@ -10029,23 +10045,23 @@ function Commands_n__11337_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
10029
10045
|
};
|
|
10030
10046
|
}
|
|
10031
10047
|
|
|
10032
|
-
/* Commands.
|
|
10033
|
-
function
|
|
10048
|
+
/* Commands.9805:19044:partitionedArgs */
|
|
10049
|
+
function Commands_n__9805_19044_partitionedArgs($0, $1, $2, $3, $4) {
|
|
10034
10050
|
return Commands_case__requestx2cpartitionedArgs_19056($0, $1, $2, $3, $4, Data_List_partition($e => Data_String_isPrefixOf('+', $e), $4));
|
|
10035
10051
|
}
|
|
10036
10052
|
|
|
10037
|
-
/* Commands.
|
|
10038
|
-
function
|
|
10053
|
+
/* Commands.10373:19585:parseTeamArg */
|
|
10054
|
+
function Commands_n__10373_19585_parseTeamArg($0, $1) {
|
|
10039
10055
|
return {a1: {a1: $1}};
|
|
10040
10056
|
}
|
|
10041
10057
|
|
|
10042
|
-
/* Commands.
|
|
10043
|
-
function
|
|
10058
|
+
/* Commands.10991:20152:parseSkipArg */
|
|
10059
|
+
function Commands_n__10991_20152_parseSkipArg($0, $1) {
|
|
10044
10060
|
return Commands_case__parseContributeArgsx2cparseSkipArg_20199($0, $1, Data_String_strM($1));
|
|
10045
10061
|
}
|
|
10046
10062
|
|
|
10047
|
-
/* Commands.
|
|
10048
|
-
function
|
|
10063
|
+
/* Commands.10991:20151:parseListFlag */
|
|
10064
|
+
function Commands_n__10991_20151_parseListFlag($0, $1) {
|
|
10049
10065
|
switch($1) {
|
|
10050
10066
|
case '-l': return {a1: {h: 0 /* List */}};
|
|
10051
10067
|
case '--list': return {a1: {h: 0 /* List */}};
|
|
@@ -10053,8 +10069,8 @@ function Commands_n__10985_20151_parseListFlag($0, $1) {
|
|
|
10053
10069
|
}
|
|
10054
10070
|
}
|
|
10055
10071
|
|
|
10056
|
-
/* Commands.
|
|
10057
|
-
function
|
|
10072
|
+
/* Commands.8939:18212:parseLabelArg */
|
|
10073
|
+
function Commands_n__8939_18212_parseLabelArg($0, $1) {
|
|
10058
10074
|
const $2 = Data_String_strM($1);
|
|
10059
10075
|
switch($2.h) {
|
|
10060
10076
|
case undefined: /* cons */ {
|
|
@@ -10067,29 +10083,29 @@ function Commands_n__8933_18212_parseLabelArg($0, $1) {
|
|
|
10067
10083
|
}
|
|
10068
10084
|
}
|
|
10069
10085
|
|
|
10070
|
-
/* Commands.
|
|
10071
|
-
function
|
|
10086
|
+
/* Commands.8939:18211:parseIntoOpt */
|
|
10087
|
+
function Commands_n__8939_18211_parseIntoOpt($0, $1) {
|
|
10072
10088
|
const $2 = Util_String_nonEmpty($1);
|
|
10073
10089
|
return Prelude_Types_map_Functor_Maybe($7 => $7, $2);
|
|
10074
10090
|
}
|
|
10075
10091
|
|
|
10076
|
-
/* Commands.
|
|
10077
|
-
function
|
|
10078
|
-
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);
|
|
10079
10095
|
const $7 = Data_List1_last($2);
|
|
10080
10096
|
return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
|
|
10081
10097
|
}
|
|
10082
10098
|
|
|
10083
|
-
/* Commands.
|
|
10084
|
-
function
|
|
10099
|
+
/* Commands.8939:18210:parseDraftFlag */
|
|
10100
|
+
function Commands_n__8939_18210_parseDraftFlag($0, $1) {
|
|
10085
10101
|
switch($1) {
|
|
10086
10102
|
case '--draft': return {a1: {h: 0 /* Draft */}};
|
|
10087
10103
|
default: return {h: 0};
|
|
10088
10104
|
}
|
|
10089
10105
|
}
|
|
10090
10106
|
|
|
10091
|
-
/* Commands.
|
|
10092
|
-
function
|
|
10107
|
+
/* Commands.10373:19584:parseCompletedFlag */
|
|
10108
|
+
function Commands_n__10373_19584_parseCompletedFlag($0, $1) {
|
|
10093
10109
|
switch($1) {
|
|
10094
10110
|
case '-c': return {a1: {h: 0}};
|
|
10095
10111
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -10097,8 +10113,8 @@ function Commands_n__10367_19584_parseCompletedFlag($0, $1) {
|
|
|
10097
10113
|
}
|
|
10098
10114
|
}
|
|
10099
10115
|
|
|
10100
|
-
/* Commands.
|
|
10101
|
-
function
|
|
10116
|
+
/* Commands.10991:20149:parseCheckoutFlag */
|
|
10117
|
+
function Commands_n__10991_20149_parseCheckoutFlag($0, $1) {
|
|
10102
10118
|
switch($1) {
|
|
10103
10119
|
case '-c': return {a1: {h: 1 /* Checkout */}};
|
|
10104
10120
|
case '--checkout': return {a1: {h: 1 /* Checkout */}};
|
|
@@ -10106,8 +10122,8 @@ function Commands_n__10985_20149_parseCheckoutFlag($0, $1) {
|
|
|
10106
10122
|
}
|
|
10107
10123
|
}
|
|
10108
10124
|
|
|
10109
|
-
/* Commands.
|
|
10110
|
-
function
|
|
10125
|
+
/* Commands.11343:20512:listSome */
|
|
10126
|
+
function Commands_n__11343_20512_listSome($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10111
10127
|
const $15 = $16 => {
|
|
10112
10128
|
let $1b;
|
|
10113
10129
|
switch(Prelude_Types_null_Foldable_List($6)) {
|
|
@@ -10120,13 +10136,13 @@ function Commands_n__11337_20512_listSome($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
10120
10136
|
break;
|
|
10121
10137
|
}
|
|
10122
10138
|
}
|
|
10123
|
-
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));
|
|
10124
10140
|
};
|
|
10125
|
-
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);
|
|
10126
10142
|
}
|
|
10127
10143
|
|
|
10128
|
-
/* Commands.
|
|
10129
|
-
function
|
|
10144
|
+
/* Commands.9365:18641:labelSlugs */
|
|
10145
|
+
function Commands_n__9365_18641_labelSlugs($0, $1, $2, $3) {
|
|
10130
10146
|
const $5 = $6 => $7 => {
|
|
10131
10147
|
switch($6.h) {
|
|
10132
10148
|
case 2: /* Label */ return {a1: $6.a1, a2: $7};
|
|
@@ -10136,13 +10152,13 @@ function Commands_n__9359_18641_labelSlugs($0, $1, $2, $3) {
|
|
|
10136
10152
|
return Prelude_Types_foldr_Foldable_List($5, {h: 0}, $3);
|
|
10137
10153
|
}
|
|
10138
10154
|
|
|
10139
|
-
/* Commands.
|
|
10140
|
-
function
|
|
10155
|
+
/* Commands.11343:20511:isNotIgnored */
|
|
10156
|
+
function Commands_n__11343_20511_isNotIgnored($0, $1, $2, $3, $4, $5) {
|
|
10141
10157
|
return Data_Maybe_isNothing(Data_List_find($a => Prelude_EqOrd_x3dx3d_Eq_Integer($a, $5.a1), $4.a13));
|
|
10142
10158
|
}
|
|
10143
10159
|
|
|
10144
|
-
/* Commands.
|
|
10145
|
-
function
|
|
10160
|
+
/* Commands.9365:18640:isDraft */
|
|
10161
|
+
function Commands_n__9365_18640_isDraft($0, $1, $2, $3) {
|
|
10146
10162
|
const $7 = $8 => {
|
|
10147
10163
|
switch($8.h) {
|
|
10148
10164
|
case 0: /* Draft */ return 1;
|
|
@@ -10153,8 +10169,8 @@ function Commands_n__9359_18640_isDraft($0, $1, $2, $3) {
|
|
|
10153
10169
|
return Data_Maybe_isJust($5);
|
|
10154
10170
|
}
|
|
10155
10171
|
|
|
10156
|
-
/* Commands.
|
|
10157
|
-
function
|
|
10172
|
+
/* Commands.9365:18639:intoBranch */
|
|
10173
|
+
function Commands_n__9365_18639_intoBranch($0, $1, $2, $3) {
|
|
10158
10174
|
const $d = $e => {
|
|
10159
10175
|
switch($e.h) {
|
|
10160
10176
|
case 1: /* Into */ return {a1: Util_String_value($e.a1)};
|
|
@@ -10164,11 +10180,11 @@ function Commands_n__9359_18639_intoBranch($0, $1, $2, $3) {
|
|
|
10164
10180
|
return Prelude_Types_foldMap_Foldable_List({a1: $7 => $8 => Prelude_Types_x3cx2bx3e_Semigroup_x28Maybex20x24ax29($7, $8), a2: {h: 0}}, $d, $3);
|
|
10165
10181
|
}
|
|
10166
10182
|
|
|
10167
|
-
/* Commands.
|
|
10168
|
-
function
|
|
10183
|
+
/* Commands.11343:20510:goListSome */
|
|
10184
|
+
function Commands_n__11343_20510_goListSome($0, $1, $2, $3, $4, $5) {
|
|
10169
10185
|
switch($5.h) {
|
|
10170
10186
|
case undefined: /* cons */ {
|
|
10171
|
-
const $7 =
|
|
10187
|
+
const $7 = Commands_n__11343_20514_printDetails($0, $1, $2, $3, $5.a1);
|
|
10172
10188
|
let $15;
|
|
10173
10189
|
switch($4) {
|
|
10174
10190
|
case 1: {
|
|
@@ -10180,15 +10196,15 @@ function Commands_n__11337_20510_goListSome($0, $1, $2, $3, $4, $5) {
|
|
|
10180
10196
|
break;
|
|
10181
10197
|
}
|
|
10182
10198
|
}
|
|
10183
|
-
const $13 = Text_PrettyPrint_Prettyprinter_Doc_indent($15, Prelude_Types_foldl_Foldable_List(acc => next => Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: acc, a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
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));
|
|
10184
10200
|
return Util_renderIO($3, csegen_74()(), $13);
|
|
10185
10201
|
}
|
|
10186
|
-
case 0: /* nil */ return
|
|
10202
|
+
case 0: /* nil */ return csegen_613();
|
|
10187
10203
|
}
|
|
10188
10204
|
}
|
|
10189
10205
|
|
|
10190
|
-
/* Commands.
|
|
10191
|
-
function
|
|
10206
|
+
/* Commands.10205:19396:forkedUser */
|
|
10207
|
+
function Commands_n__10205_19396_forkedUser($0, $1, $2, $3) {
|
|
10192
10208
|
return FFI_Concurrency_fork(csegen_74()(), ('user --json '+$3));
|
|
10193
10209
|
}
|
|
10194
10210
|
|
|
@@ -10221,7 +10237,7 @@ function Commands_skipArg($0) {
|
|
|
10221
10237
|
/* Commands.request : Config => Git => Octokit => List String -> {default False _ : Bool} ->
|
|
10222
10238
|
Promise' () */
|
|
10223
10239
|
function Commands_request($0, $1, $2, $3, $4) {
|
|
10224
|
-
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));
|
|
10225
10241
|
}
|
|
10226
10242
|
|
|
10227
10243
|
/* Commands.reflect : Config => Octokit => Promise' () */
|
|
@@ -10252,7 +10268,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10252
10268
|
};
|
|
10253
10269
|
const $48 = $49 => $4a => $4b => {
|
|
10254
10270
|
let $52;
|
|
10255
|
-
switch(Prelude_Types_null_Foldable_List(
|
|
10271
|
+
switch(Prelude_Types_null_Foldable_List(Commands_n__9365_18641_labelSlugs($0, $1, $2, $3))) {
|
|
10256
10272
|
case 1: {
|
|
10257
10273
|
$52 = 0;
|
|
10258
10274
|
break;
|
|
@@ -10262,10 +10278,10 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10262
10278
|
break;
|
|
10263
10279
|
}
|
|
10264
10280
|
}
|
|
10265
|
-
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));
|
|
10266
10282
|
const $6a = $6b => $6c => $6d => {
|
|
10267
10283
|
const $6f = $70 => {
|
|
10268
|
-
const $71 =
|
|
10284
|
+
const $71 = Commands_n__9365_18639_intoBranch($0, $1, $2, $3);
|
|
10269
10285
|
switch($71.h) {
|
|
10270
10286
|
case undefined: /* just */ {
|
|
10271
10287
|
return $77 => {
|
|
@@ -10280,7 +10296,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10280
10296
|
};
|
|
10281
10297
|
const $96 = $97 => {
|
|
10282
10298
|
let $9c;
|
|
10283
|
-
switch(
|
|
10299
|
+
switch(Commands_n__9365_18640_isDraft($0, $1, $2, $3)) {
|
|
10284
10300
|
case 1: {
|
|
10285
10301
|
switch($2c.a2.a4) {
|
|
10286
10302
|
case 1: {
|
|
@@ -10309,7 +10325,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10309
10325
|
};
|
|
10310
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);
|
|
10311
10327
|
};
|
|
10312
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10328
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $ac, $a6, $a7);
|
|
10313
10329
|
});
|
|
10314
10330
|
};
|
|
10315
10331
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6f, $96, $6c, $6d);
|
|
@@ -10321,7 +10337,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10321
10337
|
case 1: /* Hypothetical */ return $f4 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($f7 => Prelude_IO_prim__putStr(($2c.a1+'\n'), $f7), $2d, $2e, $f4);
|
|
10322
10338
|
}
|
|
10323
10339
|
};
|
|
10324
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8 => $9 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c => $d => FFI_Git_currentBranch($1, $c, $d), $13 => $14 => $15 => Commands_PullRequest_identifyOrCreatePR($0, $1, $2,
|
|
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);
|
|
10325
10341
|
}
|
|
10326
10342
|
|
|
10327
10343
|
/* Commands.parsePrArgs : List String -> Either String (List PrArg) */
|
|
@@ -10329,9 +10345,9 @@ function Commands_parsePrArgs($0) {
|
|
|
10329
10345
|
switch($0.h) {
|
|
10330
10346
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
10331
10347
|
default: {
|
|
10332
|
-
const $3 =
|
|
10348
|
+
const $3 = Commands_n__8939_18213_recombineIntoArgs($0, $0);
|
|
10333
10349
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 1 /* Into */, a1: $b}), $3.a1);
|
|
10334
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
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);
|
|
10335
10351
|
return Data_Either_maybeToEither(() => Commands_prUsageError(), Prelude_Types_map_Functor_Maybe($29 => Prelude_Types_List_tailRecAppend($7, $29), $e));
|
|
10336
10352
|
}
|
|
10337
10353
|
}
|
|
@@ -10347,7 +10363,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10347
10363
|
switch($0.a2.a2.h) {
|
|
10348
10364
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
10349
10365
|
default: {
|
|
10350
|
-
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);
|
|
10351
10367
|
switch($6.h) {
|
|
10352
10368
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
10353
10369
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10356,7 +10372,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10356
10372
|
}
|
|
10357
10373
|
}
|
|
10358
10374
|
default: {
|
|
10359
|
-
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);
|
|
10360
10376
|
switch($1d.h) {
|
|
10361
10377
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
10362
10378
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10365,7 +10381,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10365
10381
|
}
|
|
10366
10382
|
}
|
|
10367
10383
|
default: {
|
|
10368
|
-
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);
|
|
10369
10385
|
switch($34.h) {
|
|
10370
10386
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
10371
10387
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10379,9 +10395,9 @@ function Commands_parseContributeArgs($0) {
|
|
|
10379
10395
|
switch($0.h) {
|
|
10380
10396
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
10381
10397
|
default: {
|
|
10382
|
-
const $3 =
|
|
10398
|
+
const $3 = Commands_n__10991_20153_recombineIgnoreArgs($0, $0);
|
|
10383
10399
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 2 /* Ignore */, a1: $b}), $3.a1);
|
|
10384
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
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);
|
|
10385
10401
|
return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($34 => Prelude_Types_List_tailRecAppend($7, $34), $e));
|
|
10386
10402
|
}
|
|
10387
10403
|
}
|
|
@@ -10389,12 +10405,12 @@ function Commands_parseContributeArgs($0) {
|
|
|
10389
10405
|
|
|
10390
10406
|
/* Commands.listOrgTeams : Config => Octokit => Promise' () */
|
|
10391
10407
|
function Commands_listOrgTeams($0, $1, $2, $3) {
|
|
10392
|
-
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);
|
|
10393
10409
|
}
|
|
10394
10410
|
|
|
10395
10411
|
/* Commands.list : Config => Octokit => String -> Promise' () */
|
|
10396
10412
|
function Commands_list($0, $1, $2, $3, $4) {
|
|
10397
|
-
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);
|
|
10398
10414
|
}
|
|
10399
10415
|
|
|
10400
10416
|
/* Commands.label : Config => Git => Octokit => List String -> Promise' () */
|
|
@@ -10403,7 +10419,7 @@ function Commands_label($0, $1, $2, $3, $4, $5) {
|
|
|
10403
10419
|
switch($22.h) {
|
|
10404
10420
|
case 0: /* Actual */ {
|
|
10405
10421
|
const $24 = Prelude_Types_List_mapAppend({h: 0}, $28 => Commands_Label_unslugifyLabel($0.a11, $28), $3);
|
|
10406
|
-
return $2e => $2f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($32 => $33 => Commands_Label_addLabels($0, $2, $22.a2, $24, $32, $33), allLabels => Util_renderIO($0, csegen_74()(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Added'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(
|
|
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);
|
|
10407
10423
|
}
|
|
10408
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);
|
|
10409
10425
|
}
|
|
@@ -10490,17 +10506,17 @@ function Commands_contribute($0, $1, $2, $3, $4, $5) {
|
|
|
10490
10506
|
}
|
|
10491
10507
|
};
|
|
10492
10508
|
const $72 = Prelude_Types_List_filterAppend({h: 0}, $75, $13);
|
|
10493
|
-
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);
|
|
10494
10510
|
const $89 = Data_List_partition($8c => Data_PullRequest_isRequestedReviewer(myLogin, $8c), $7c);
|
|
10495
|
-
const $91 = Prelude_Interfaces_mapHom(
|
|
10511
|
+
const $91 = Prelude_Interfaces_mapHom(csegen_604(), $97 => Data_List_sortBy(csegen_645(), $97))($89);
|
|
10496
10512
|
let $71;
|
|
10497
10513
|
switch($54.h) {
|
|
10498
10514
|
case 0: /* nothing */ {
|
|
10499
|
-
$71 = () =>
|
|
10515
|
+
$71 = () => Commands_n__11343_20513_pickOne($1, $2, $3, $0, configx27, $41, $4e, $91.a1, $91.a2);
|
|
10500
10516
|
break;
|
|
10501
10517
|
}
|
|
10502
10518
|
case undefined: /* just */ {
|
|
10503
|
-
$71 = () => $a8 => $a9 =>
|
|
10519
|
+
$71 = () => $a8 => $a9 => Commands_n__11343_20512_listSome($1, $2, $3, $0, $41, $91.a1, $91.a2, $a8, $a9);
|
|
10504
10520
|
break;
|
|
10505
10521
|
}
|
|
10506
10522
|
}
|
|
@@ -10512,7 +10528,7 @@ function Commands_contribute($0, $1, $2, $3, $4, $5) {
|
|
|
10512
10528
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($31, $40, $2e, $2f);
|
|
10513
10529
|
};
|
|
10514
10530
|
};
|
|
10515
|
-
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);
|
|
10516
10532
|
};
|
|
10517
10533
|
};
|
|
10518
10534
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequests($2, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $12, $4, $5);
|
|
@@ -10746,67 +10762,67 @@ function Data_SortedMap_Dependent_empty($0) {
|
|
|
10746
10762
|
|
|
10747
10763
|
/* Commands.User.Reflect.case block in case block in reflectOnSelf */
|
|
10748
10764
|
function Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
10749
|
-
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});
|
|
10750
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));
|
|
10751
10767
|
}
|
|
10752
10768
|
|
|
10753
|
-
/* Commands.User.Me.
|
|
10754
|
-
function
|
|
10769
|
+
/* Commands.User.Me.7543:2049:ul */
|
|
10770
|
+
function Commands_User_Me_n__7543_2049_ul($0, $1, $2, $3, $4) {
|
|
10755
10771
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
10756
10772
|
}
|
|
10757
10773
|
|
|
10758
|
-
/* Commands.User.Me.
|
|
10759
|
-
function
|
|
10760
|
-
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)});
|
|
10761
10777
|
}
|
|
10762
10778
|
|
|
10763
|
-
/* Commands.User.Me.
|
|
10764
|
-
function
|
|
10765
|
-
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));
|
|
10766
10782
|
}
|
|
10767
10783
|
|
|
10768
|
-
/* Commands.User.Reflect.
|
|
10769
|
-
function
|
|
10784
|
+
/* Commands.User.Reflect.6598:1075:ital */
|
|
10785
|
+
function Commands_User_Reflect_n__6598_1075_ital($0, $1) {
|
|
10770
10786
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
10771
10787
|
}
|
|
10772
10788
|
|
|
10773
|
-
/* Commands.User.Me.
|
|
10774
|
-
function
|
|
10789
|
+
/* Commands.User.Me.7543:2046:it */
|
|
10790
|
+
function Commands_User_Me_n__7543_2046_it($0, $1, $2, $3, $4) {
|
|
10775
10791
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
10776
10792
|
}
|
|
10777
10793
|
|
|
10778
|
-
/* Commands.User.Me.
|
|
10779
|
-
function
|
|
10794
|
+
/* Commands.User.Me.7693:2202:handleUnsetEmail */
|
|
10795
|
+
function Commands_User_Me_n__7693_2202_handleUnsetEmail($0, $1, $2, $3) {
|
|
10780
10796
|
switch($3) {
|
|
10781
10797
|
case '': return {h: 0};
|
|
10782
10798
|
default: return {a1: $3};
|
|
10783
10799
|
}
|
|
10784
10800
|
}
|
|
10785
10801
|
|
|
10786
|
-
/* Commands.User.Me.
|
|
10787
|
-
function
|
|
10788
|
-
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));
|
|
10789
10805
|
}
|
|
10790
10806
|
|
|
10791
|
-
/* Commands.User.Me.
|
|
10792
|
-
function
|
|
10807
|
+
/* Commands.User.Me.7543:2044:email */
|
|
10808
|
+
function Commands_User_Me_n__7543_2044_email($0, $1, $2, $3) {
|
|
10793
10809
|
let $8;
|
|
10794
10810
|
switch($2.h) {
|
|
10795
10811
|
case undefined: /* just */ {
|
|
10796
|
-
$8 =
|
|
10812
|
+
$8 = Commands_User_Me_n__7543_2043_dataVal($0, $1, $2, $3, $2.a1);
|
|
10797
10813
|
break;
|
|
10798
10814
|
}
|
|
10799
10815
|
case 0: /* nothing */ {
|
|
10800
|
-
$8 =
|
|
10816
|
+
$8 = Commands_User_Me_n__7543_2046_it($0, $1, $2, $3, 'Not set');
|
|
10801
10817
|
break;
|
|
10802
10818
|
}
|
|
10803
10819
|
}
|
|
10804
10820
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Git Email:'), $8);
|
|
10805
10821
|
}
|
|
10806
10822
|
|
|
10807
|
-
/* Commands.User.Me.
|
|
10808
|
-
function
|
|
10809
|
-
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));
|
|
10810
10826
|
}
|
|
10811
10827
|
|
|
10812
10828
|
/* Commands.User.Reflect.rightTitle : String */
|
|
@@ -10829,20 +10845,20 @@ function Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
|
10829
10845
|
const $c = prs => $d => $e => {
|
|
10830
10846
|
const $1c = myLogin => $1d => $1e => {
|
|
10831
10847
|
const $3a = reviews => {
|
|
10832
|
-
const $3b = Prelude_Types_map_Functor_Maybe(
|
|
10833
|
-
const $4e = Prelude_Interfaces_mapHom(
|
|
10834
|
-
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(
|
|
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));
|
|
10835
10851
|
};
|
|
10836
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(Commands_User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2e => $2f => Prelude_Basics_on(
|
|
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);
|
|
10837
10853
|
};
|
|
10838
|
-
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);
|
|
10839
10855
|
};
|
|
10840
10856
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_listPartitionedPRs($0, $1, 4n, Commands_User_Reflect_prCount()), $c, $2, $3);
|
|
10841
10857
|
}
|
|
10842
10858
|
|
|
10843
10859
|
/* Commands.User.Me.printInfoOnSelf : Config => Octokit => Git => Promise' () */
|
|
10844
10860
|
function Commands_User_Me_printInfoOnSelf($0, $1, $2, $3, $4) {
|
|
10845
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29($b =>
|
|
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);
|
|
10846
10862
|
}
|
|
10847
10863
|
|
|
10848
10864
|
/* Commands.User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Config =>
|
|
@@ -10853,7 +10869,7 @@ function Commands_User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
|
10853
10869
|
|
|
10854
10870
|
/* Commands.User.Me.print : Config -> Maybe String -> User -> List String -> Doc AnsiStyle */
|
|
10855
10871
|
function Commands_User_Me_print($0, $1, $2, $3) {
|
|
10856
|
-
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}}}}}}}}});
|
|
10857
10873
|
}
|
|
10858
10874
|
|
|
10859
10875
|
/* Commands.User.Reflect.prCount : Fin 101 */
|
|
@@ -10873,7 +10889,7 @@ const Commands_User_Reflect_intro = __lazy(function () {
|
|
|
10873
10889
|
|
|
10874
10890
|
/* Commands.User.Reflect.header : Nat -> Doc AnsiStyle */
|
|
10875
10891
|
function Commands_User_Reflect_header($0) {
|
|
10876
|
-
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}}}}));
|
|
10877
10893
|
}
|
|
10878
10894
|
|
|
10879
10895
|
/* Commands.User.Reflect.graph : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Doc AnsiStyle */
|
|
@@ -10891,12 +10907,12 @@ function Commands_User_Reflect_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
|
10891
10907
|
|
|
10892
10908
|
/* Commands.User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
10893
10909
|
function Commands_User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10894
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Commands_User_Reflect_intro()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Requested Reviews:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('unreviewed:')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($2)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(
|
|
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}}}}}}}}}});
|
|
10895
10911
|
}
|
|
10896
10912
|
|
|
10897
10913
|
/* Commands.User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Nat -> Doc AnsiStyle */
|
|
10898
10914
|
function Commands_User_Reflect_chart($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10899
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($7)), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_User_replicatex27($6,
|
|
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}')))));
|
|
10900
10916
|
}
|
|
10901
10917
|
|
|
10902
10918
|
/* Theme.4411:1332:maybeAnnotate */
|
|
@@ -10982,104 +10998,100 @@ function Commands_PullRequest_with__listOpenPRs_1391($0, $1, $2, $3, $4) {
|
|
|
10982
10998
|
}
|
|
10983
10999
|
}
|
|
10984
11000
|
|
|
10985
|
-
/* Commands.PullRequest.case block in
|
|
10986
|
-
function
|
|
10987
|
-
|
|
10988
|
-
|
|
10989
|
-
|
|
10990
|
-
|
|
10991
|
-
|
|
10992
|
-
let $51;
|
|
10993
|
-
switch($52.h) {
|
|
10994
|
-
case 0: /* nothing */ {
|
|
10995
|
-
$51 = Util_Prompting_inlineDescription(csegen_74()(), Commands_PullRequest_n__11100_3054_inlineDescriptionPrompt($0, $1, $2, $3, $4, $5), $9.a2);
|
|
10996
|
-
break;
|
|
10997
|
-
}
|
|
10998
|
-
case undefined: /* just */ {
|
|
10999
|
-
$51 = $62 => $63 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_695(), Util_Prompting_editorDescription(csegen_74()(), $52.a1, {a1: templateFilePath}, $9.a2), $62, $63);
|
|
11000
|
-
break;
|
|
11001
|
-
}
|
|
11002
|
-
}
|
|
11003
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($51, description => $73 => $74 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($77 => $78 => $79 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($7c => Prelude_IO_prim__putStr('Creating PR...\n', $7c), $77, $78, $79), $84 => $85 => $86 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($89 => $8a => $8b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($8e => Prelude_IO_prim__putStr(($2+'\n'), $8e), $89, $8a, $8b), $98 => FFI_GitHub_createPR($1, $4, $5.a2, $5.a3, $2, $8, title, description), $85, $86), $73, $74), $4e, $4f);
|
|
11004
|
-
};
|
|
11005
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($46 => $47 => Util_relativeToRoot($0, '.github/PULL_REQUEST_TEMPLATE.md', $46, $47), $4d, $42, $43);
|
|
11006
|
-
};
|
|
11007
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($33 => $34 => Data_Promise_map_Functor_x28Promisex20x24ex29($37 => ($9.a1+Data_String_trim($37)), csegen_405()(), $33, $34), $41, $2f, $30);
|
|
11008
|
-
};
|
|
11009
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($21 => $22 => $23 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($26 => Prelude_IO_prim__putStr($9.a1, $26), $21, $22, $23), $2d, $1d, $1e);
|
|
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
|
+
}
|
|
11010
11008
|
};
|
|
11011
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f => $10 => $11 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($14 => Prelude_IO_prim__putStr('What would you like the title to be?\n', $14), $f, $10, $11), $1b, $a, $b);
|
|
11012
11009
|
}
|
|
11013
11010
|
|
|
11014
|
-
/* Commands.PullRequest.
|
|
11015
|
-
function
|
|
11011
|
+
/* Commands.PullRequest.10061:1999:userNotice */
|
|
11012
|
+
function Commands_PullRequest_n__10061_1999_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
11016
11013
|
switch($6.h) {
|
|
11017
11014
|
case 0: /* nothing */ {
|
|
11018
11015
|
switch($2.h) {
|
|
11019
11016
|
case 0: /* nil */ return 'no users';
|
|
11020
|
-
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}});
|
|
11021
11018
|
}
|
|
11022
11019
|
}
|
|
11023
|
-
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}});
|
|
11024
11021
|
}
|
|
11025
11022
|
}
|
|
11026
11023
|
|
|
11027
|
-
/* Commands.PullRequest.
|
|
11028
|
-
function
|
|
11024
|
+
/* Commands.PullRequest.10061:1998:teamNotice */
|
|
11025
|
+
function Commands_PullRequest_n__10061_1998_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
11029
11026
|
switch($6.h) {
|
|
11030
11027
|
case 0: /* nil */ return '';
|
|
11031
11028
|
case undefined: /* cons */ {
|
|
11032
11029
|
switch($6.a2.h) {
|
|
11033
|
-
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1: ' and team ', a2: {a1:
|
|
11034
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $23 => $23, {a1: ' and teams ', a2: {a1:
|
|
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}}});
|
|
11035
11032
|
}
|
|
11036
11033
|
}
|
|
11037
|
-
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}}});
|
|
11038
11035
|
}
|
|
11039
11036
|
}
|
|
11040
11037
|
|
|
11041
|
-
/* Commands.PullRequest.
|
|
11042
|
-
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) {
|
|
11043
11045
|
const $6 = $5.a3;
|
|
11044
11046
|
const $8 = $5.a2;
|
|
11045
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}}}}}}}});
|
|
11046
11048
|
}
|
|
11047
11049
|
|
|
11048
|
-
/* Commands.PullRequest.
|
|
11049
|
-
function
|
|
11050
|
+
/* Commands.PullRequest.10061:1997:prComment */
|
|
11051
|
+
function Commands_PullRequest_n__10061_1997_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11050
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}}}});
|
|
11051
11053
|
}
|
|
11052
11054
|
|
|
11053
|
-
/* Commands.PullRequest.
|
|
11054
|
-
function
|
|
11055
|
-
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}}));
|
|
11056
11058
|
}
|
|
11057
11059
|
|
|
11058
|
-
/* Commands.PullRequest.
|
|
11059
|
-
function
|
|
11060
|
-
return
|
|
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}}}));
|
|
11061
11063
|
}
|
|
11062
11064
|
|
|
11063
|
-
/* Commands.PullRequest.
|
|
11064
|
-
function
|
|
11065
|
+
/* Commands.PullRequest.10955:2842:issueNumber */
|
|
11066
|
+
function Commands_PullRequest_n__10955_2842_issueNumber($0, $1, $2) {
|
|
11067
|
+
return Util_Github_parseGithubIssueNumber($1);
|
|
11068
|
+
}
|
|
11069
|
+
|
|
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);
|
|
11073
|
+
}
|
|
11074
|
+
|
|
11075
|
+
/* Commands.PullRequest.11189:3086:inlineDescriptionPrompt */
|
|
11076
|
+
function Commands_PullRequest_n__11189_3086_inlineDescriptionPrompt($0, $1, $2, $3, $4, $5) {
|
|
11065
11077
|
return 'What would you like the description to be (two blank lines to finish)?';
|
|
11066
11078
|
}
|
|
11067
11079
|
|
|
11068
|
-
/* Commands.PullRequest.
|
|
11069
|
-
function
|
|
11080
|
+
/* Commands.PullRequest.11189:3085:getBaseBranch */
|
|
11081
|
+
function Commands_PullRequest_n__11189_3085_getBaseBranch($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11070
11082
|
switch($3.h) {
|
|
11071
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);
|
|
11072
|
-
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($32 => $33 => $34 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($37 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $40 => $40, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $5.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $37), $32, $33, $34), $4f => $50 => $51 => Data_Promise_map_Functor_x28Promisex20x24ex29($54 => Util_Prompting_orIfEmpty({a1: $5.a5}, Data_String_trim($54)),
|
|
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);
|
|
11073
11085
|
}
|
|
11074
11086
|
}
|
|
11075
11087
|
|
|
11076
|
-
/* Commands.PullRequest.
|
|
11077
|
-
function
|
|
11088
|
+
/* Commands.PullRequest.9823:1725:forkedReviews */
|
|
11089
|
+
function Commands_PullRequest_n__9823_1725_forkedReviews($0, $1, $2, $3) {
|
|
11078
11090
|
return FFI_Concurrency_fork(csegen_74()(), ('reviews --json '+Prelude_Show_show_Show_Integer($3.a1)));
|
|
11079
11091
|
}
|
|
11080
11092
|
|
|
11081
|
-
/* Commands.PullRequest.
|
|
11082
|
-
function
|
|
11093
|
+
/* Commands.PullRequest.9246:1180:filterString */
|
|
11094
|
+
function Commands_PullRequest_n__9246_1180_filterString($0, $1, $2, $3, $4) {
|
|
11083
11095
|
switch($4.h) {
|
|
11084
11096
|
case 0: /* nothing */ return 'none';
|
|
11085
11097
|
case undefined: /* just */ {
|
|
@@ -11091,13 +11103,13 @@ function Commands_PullRequest_n__9192_1180_filterString($0, $1, $2, $3, $4) {
|
|
|
11091
11103
|
}
|
|
11092
11104
|
}
|
|
11093
11105
|
|
|
11094
|
-
/* Commands.PullRequest.
|
|
11095
|
-
function
|
|
11106
|
+
/* Commands.PullRequest.10061:1994:csv */
|
|
11107
|
+
function Commands_PullRequest_n__10061_1994_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
11096
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)));
|
|
11097
11109
|
}
|
|
11098
11110
|
|
|
11099
|
-
/* Commands.PullRequest.
|
|
11100
|
-
function
|
|
11111
|
+
/* Commands.PullRequest.11189:3084:createPR */
|
|
11112
|
+
function Commands_PullRequest_n__11189_3084_createPR($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11101
11113
|
const $3b = $3c => $3d => $3e => {
|
|
11102
11114
|
const $4c = $4d => $4e => $4f => {
|
|
11103
11115
|
switch($4d) {
|
|
@@ -11114,37 +11126,73 @@ function Commands_PullRequest_n__11100_3052_createPR($0, $1, $2, $3, $4, $5, $6,
|
|
|
11114
11126
|
};
|
|
11115
11127
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($69 => $6a => FFI_Git_unpushedCommits($0, $69, $6a), $6f, $65, $66);
|
|
11116
11128
|
};
|
|
11117
|
-
|
|
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);
|
|
11118
11166
|
}
|
|
11119
11167
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $60, $61);
|
|
11120
11168
|
}
|
|
11121
11169
|
};
|
|
11122
|
-
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);
|
|
11123
11171
|
}
|
|
11124
11172
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $4e, $4f);
|
|
11125
11173
|
}
|
|
11126
11174
|
};
|
|
11127
|
-
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);
|
|
11128
11176
|
};
|
|
11129
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);
|
|
11130
11178
|
}
|
|
11131
11179
|
|
|
11132
|
-
/* Commands.PullRequest.
|
|
11133
|
-
function
|
|
11180
|
+
/* Commands.PullRequest.11189:3083:continueGivenUncommittedChanges */
|
|
11181
|
+
function Commands_PullRequest_n__11189_3083_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11134
11182
|
const $10 = $11 => $12 => $13 => {
|
|
11135
11183
|
switch($11.h) {
|
|
11136
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1c), $17, $18, $19), $24 => $25 => $26 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29 => $2a => $2b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2e => Prelude_IO_prim__putStr(($11.a1+'\n'), $2e), $29, $2a, $2b),
|
|
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);
|
|
11137
11185
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $12, $13);
|
|
11138
11186
|
}
|
|
11139
11187
|
};
|
|
11140
11188
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => FFI_Git_uncommittedChanges($0, $a, $b), $10, $6, $7);
|
|
11141
11189
|
}
|
|
11142
11190
|
|
|
11143
|
-
/* Commands.PullRequest.
|
|
11144
|
-
function
|
|
11191
|
+
/* Commands.PullRequest.11189:3082:continueGivenStagedChanges */
|
|
11192
|
+
function Commands_PullRequest_n__11189_3082_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11145
11193
|
const $10 = $11 => $12 => $13 => {
|
|
11146
11194
|
switch($11.h) {
|
|
11147
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1c), $17, $18, $19), $24 => $25 => $26 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29 => $2a => $2b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2e => Prelude_IO_prim__putStr(($11.a1+'\n'), $2e), $29, $2a, $2b),
|
|
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);
|
|
11148
11196
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $12, $13);
|
|
11149
11197
|
}
|
|
11150
11198
|
};
|
|
@@ -11153,12 +11201,12 @@ function Commands_PullRequest_n__11100_3050_continueGivenStagedChanges($0, $1, $
|
|
|
11153
11201
|
|
|
11154
11202
|
/* Commands.PullRequest.(.allReviewers) : PRHistory -> (List String, List String) */
|
|
11155
11203
|
function Commands_PullRequest_rf__allReviewers($0) {
|
|
11156
|
-
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);
|
|
11157
11205
|
}
|
|
11158
11206
|
|
|
11159
11207
|
/* Commands.PullRequest.reviewsForPrs : Config => Octokit => List PullRequest -> Promise' (List Review) */
|
|
11160
11208
|
function Commands_PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
|
|
11161
|
-
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);
|
|
11162
11210
|
}
|
|
11163
11211
|
|
|
11164
11212
|
/* Commands.PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise' (List Review) */
|
|
@@ -11209,7 +11257,7 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11209
11257
|
break;
|
|
11210
11258
|
}
|
|
11211
11259
|
case 0: {
|
|
11212
|
-
$38 =
|
|
11260
|
+
$38 = csegen_408()();
|
|
11213
11261
|
break;
|
|
11214
11262
|
}
|
|
11215
11263
|
}
|
|
@@ -11245,8 +11293,8 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11245
11293
|
return $7f => {
|
|
11246
11294
|
switch($0.a8) {
|
|
11247
11295
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $7d, $7f);
|
|
11248
|
-
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
11249
|
-
case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getUser($1, chosenUser.a1), user => $9f => $a0 => FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
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);
|
|
11250
11298
|
}
|
|
11251
11299
|
};
|
|
11252
11300
|
}
|
|
@@ -11270,11 +11318,11 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11270
11318
|
let $bf;
|
|
11271
11319
|
switch($c0) {
|
|
11272
11320
|
case 1: {
|
|
11273
|
-
$bf = () => $c5 => $c6 => $c7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($ca => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Could not pick a user from the given Team ')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('(perhaps the only option was the author of the pull request?).'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e8 => $e8, {a1: 'Requested review from ', a2: {a1:
|
|
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);
|
|
11274
11322
|
break;
|
|
11275
11323
|
}
|
|
11276
11324
|
case 0: {
|
|
11277
|
-
$bf = () => $112 => $113 => $114 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($117 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $128 => $128, {a1: 'Requested review from ', a2: {a1:
|
|
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);
|
|
11278
11326
|
break;
|
|
11279
11327
|
}
|
|
11280
11328
|
}
|
|
@@ -11300,15 +11348,6 @@ function Commands_PullRequest_partition($0) {
|
|
|
11300
11348
|
return Prelude_Basics_uncurry(csegen_94(), Data_List_partition($7 => Data_PullRequest_x3dx3d_Eq_PRState($7.a6, 0), $0));
|
|
11301
11349
|
}
|
|
11302
11350
|
|
|
11303
|
-
/* Commands.PullRequest.parseTitleAndBodyPrefix : Config => String -> (String, String) */
|
|
11304
|
-
function Commands_PullRequest_parseTitleAndBodyPrefix($0, $1) {
|
|
11305
|
-
switch($0.a9) {
|
|
11306
|
-
case 1: return {a1: Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($a => ($a+' - '), Util_Jira_parseJiraSlug($1))), a2: ''};
|
|
11307
|
-
case 2: return {a1: '', a2: Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($18 => ('Related to #'+$18), Util_Github_parseGithubIssueNumber($1)))};
|
|
11308
|
-
case 0: return {a1: '', a2: ''};
|
|
11309
|
-
}
|
|
11310
|
-
}
|
|
11311
|
-
|
|
11312
11351
|
/* Commands.PullRequest.listReviewers : Config => Octokit => {default 0 _ : Nat} -> Fin 101 -> Promise' (List String,
|
|
11313
11352
|
List String) */
|
|
11314
11353
|
function Commands_PullRequest_listReviewers($0, $1, $2, $3, $4, $5) {
|
|
@@ -11328,7 +11367,7 @@ function Commands_PullRequest_listOpenPRs($0, $1, $2, $3) {
|
|
|
11328
11367
|
|
|
11329
11368
|
/* Commands.PullRequest.list' : Maybe GitHubPRState -> Pagination _ _ _ () -> Promise' (List PullRequest) */
|
|
11330
11369
|
function Commands_PullRequest_listx27($0, $1, $2, $3) {
|
|
11331
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(), $b => $c => $d => FFI_Concurrency_promiseAll({a1: acc => elem => func => init => input => Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a2: elem => acc => func => init => input => Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a3: elem => $1b => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1b), a4: elem => acc => m => $1f => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1f, funcM, init, input), a5: elem => $26 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($26), a6: a => m => $2a => f => $2b => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($2a, f, $2b)}, $b, $c, $d), Data_Pagination_traversex27(csegen_66()(), $39 => $3a => $3b => $3c => Commands_PullRequest_forkedPRs($0, $39, $3a, $3b, $3c), $1)), prJsons => $45 => $46 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($49 => Data_Promise_either(Prelude_Types_traverse_Traversable_List(csegen_222(),
|
|
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);
|
|
11332
11371
|
}
|
|
11333
11372
|
|
|
11334
11373
|
/* Commands.PullRequest.identifyOrCreatePR : Config => Git => Octokit => {default False _ : Bool} ->
|
|
@@ -11348,8 +11387,8 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6, $7)
|
|
|
11348
11387
|
return $21 => {
|
|
11349
11388
|
const $2a = $2b => $2c => $2d => {
|
|
11350
11389
|
switch($2b) {
|
|
11351
|
-
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($31 => ({h: 0 /* Actual */, a1: 1, a2: $31}), $35 => $36 =>
|
|
11352
|
-
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1:
|
|
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);
|
|
11353
11392
|
}
|
|
11354
11393
|
};
|
|
11355
11394
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(System_File_Meta_isTTY(csegen_74()(), System_File_Virtual_stdout()), $2a, $13, $21);
|
|
@@ -11361,9 +11400,23 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6, $7)
|
|
|
11361
11400
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPRsForBranch($2, $0.a2, $0.a3, $5), $11, $6, $7);
|
|
11362
11401
|
}
|
|
11363
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
|
+
|
|
11364
11417
|
/* Commands.PullRequest.forkedPRs : Maybe GitHubPRState -> Nat -> Nat -> Nat -> () -> Promise' Future */
|
|
11365
11418
|
function Commands_PullRequest_forkedPRs($0, $1, $2, $3, $4) {
|
|
11366
|
-
return FFI_Concurrency_fork(csegen_74()(), Prelude_Types_foldMap_Foldable_List(csegen_51()(), $f => $f, {a1: 'pulls --json ', a2: {a1:
|
|
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}}}}}}}));
|
|
11367
11420
|
}
|
|
11368
11421
|
|
|
11369
11422
|
/* Commands.PullRequest.empty : PRHistory */
|
|
@@ -11485,7 +11538,7 @@ function Util_Github_n__2629_823_go($0, $1) {
|
|
|
11485
11538
|
|
|
11486
11539
|
/* Util.Github.parseGithubIssueNumber : String -> Maybe String */
|
|
11487
11540
|
function Util_Github_parseGithubIssueNumber($0) {
|
|
11488
|
-
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))));
|
|
11489
11542
|
}
|
|
11490
11543
|
|
|
11491
11544
|
/* Util.Jira.2629:820:startOver */
|
|
@@ -11545,30 +11598,30 @@ function Util_Jira_n__2629_818_go($0, $1) {
|
|
|
11545
11598
|
|
|
11546
11599
|
/* Util.Jira.parseJiraSlug : String -> Maybe String */
|
|
11547
11600
|
function Util_Jira_parseJiraSlug($0) {
|
|
11548
|
-
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))));
|
|
11549
11602
|
}
|
|
11550
11603
|
|
|
11551
11604
|
/* Data.Pagination.with block in metaPages' */
|
|
11552
|
-
function
|
|
11605
|
+
function Data_Pagination_with__metaPagesx27_7451($0, $1, $2, $3, $4, $5, $6) {
|
|
11553
11606
|
const $7 = $8 => Data_Pagination_divNatNZLemma($0, $1, $6);
|
|
11554
11607
|
return Data_Pagination_pagesHelper(0n, $0, $3, $7(undefined), $5);
|
|
11555
11608
|
}
|
|
11556
11609
|
|
|
11557
11610
|
/* Data.Pagination.with block in with block in divNatNZLemma */
|
|
11558
|
-
function
|
|
11611
|
+
function Data_Pagination_with__withx20blockx20inx20divNatNZLemma_7392($0, $1, $2, $3, $4, $5) {
|
|
11559
11612
|
return Prelude_Uninhabited_void$();
|
|
11560
11613
|
}
|
|
11561
11614
|
|
|
11562
11615
|
/* Data.Pagination.with block in divNatNZLemma */
|
|
11563
|
-
function
|
|
11616
|
+
function Data_Pagination_with__divNatNZLemma_7374($0, $1, $2, $3, $4, $5) {
|
|
11564
11617
|
switch($2) {
|
|
11565
11618
|
case 0: return 1n;
|
|
11566
|
-
case 1: return
|
|
11619
|
+
case 1: return Data_Pagination_with__withx20blockx20inx20divNatNZLemma_7392($1, $0, $5, $c => Data_Nat_LTEImpliesNotGT($5, $c), $3, undefined);
|
|
11567
11620
|
}
|
|
11568
11621
|
}
|
|
11569
11622
|
|
|
11570
11623
|
/* Data.Pagination.with block in pagesHelper */
|
|
11571
|
-
function
|
|
11624
|
+
function Data_Pagination_with__pagesHelper_7234($0, $1, $2, $3, $4, $5) {
|
|
11572
11625
|
switch($2.h) {
|
|
11573
11626
|
case 0: /* Yes */ {
|
|
11574
11627
|
const $7 = Data_Pagination_lemma($0, $1, $2.a1);
|
|
@@ -11579,12 +11632,12 @@ function Data_Pagination_with__pagesHelper_7266($0, $1, $2, $3, $4, $5) {
|
|
|
11579
11632
|
}
|
|
11580
11633
|
|
|
11581
11634
|
/* Data.Pagination.with block in nonTerminalPage */
|
|
11582
|
-
function
|
|
11635
|
+
function Data_Pagination_with__nonTerminalPage_7213($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11583
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)};
|
|
11584
11637
|
}
|
|
11585
11638
|
|
|
11586
11639
|
/* Data.Pagination.with block in lemma */
|
|
11587
|
-
function
|
|
11640
|
+
function Data_Pagination_with__lemma_7116($0, $1, $2, $3, $4) {
|
|
11588
11641
|
return {a1: ($3.a1+1n), a2: {a1: undefined, a2: 1n}};
|
|
11589
11642
|
}
|
|
11590
11643
|
|
|
@@ -11633,21 +11686,21 @@ function Data_Pagination_traversex27($0, $1, $2) {
|
|
|
11633
11686
|
/* Data.Pagination.pagesHelper : (page : Nat) -> (remainingItems : Nat) -> (perPage : Nat) -> GT perPage 0 =>
|
|
11634
11687
|
GT remainingItems 0 => PaginationShape remainingItems perPage page */
|
|
11635
11688
|
function Data_Pagination_pagesHelper($0, $1, $2, $3, $4) {
|
|
11636
|
-
return
|
|
11689
|
+
return Data_Pagination_with__pagesHelper_7234($2, $1, Data_Nat_isLT($2, $1), $3, $4, $0);
|
|
11637
11690
|
}
|
|
11638
11691
|
|
|
11639
11692
|
/* Data.Pagination.nonTerminalPage : (page : Nat) -> (remainingItems : Nat) -> (perPage : Nat) ->
|
|
11640
11693
|
{auto 0 _ : remainder + perPage = remainingItems} -> GT perPage 0 =>
|
|
11641
11694
|
GT remainder 0 => PaginationShape remainingItems perPage page */
|
|
11642
11695
|
function Data_Pagination_nonTerminalPage($0, $1, $2, $3, $4, $5) {
|
|
11643
|
-
return
|
|
11696
|
+
return Data_Pagination_with__nonTerminalPage_7213($0, $3, $2, undefined, undefined, $5, $4, $1);
|
|
11644
11697
|
}
|
|
11645
11698
|
|
|
11646
11699
|
/* Data.Pagination.metaPages' : (items : Nat) -> (pages : Nat) -> GT items 0 => {auto 0 pagesOk : GT pages 0} ->
|
|
11647
11700
|
LTE pages items =>
|
|
11648
11701
|
PaginationShape items (divNatNZ items pages (gtIsNonZero pagesOk)) 0 */
|
|
11649
11702
|
function Data_Pagination_metaPagesx27($0, $1, $2, $3) {
|
|
11650
|
-
return
|
|
11703
|
+
return Data_Pagination_with__metaPagesx27_7451($0, $1, undefined, Data_Nat_divNatNZ($0, $1), undefined, $2, $3);
|
|
11651
11704
|
}
|
|
11652
11705
|
|
|
11653
11706
|
/* Data.Pagination.metaPages : (items : Nat) -> (perPage : Nat) -> GT items 0 => GT perPage 0 =>
|
|
@@ -11671,7 +11724,7 @@ function Data_Pagination_lemma($0, $1, $2) {
|
|
|
11671
11724
|
case 0n: _crashExp('Nat case not covered');
|
|
11672
11725
|
default: {
|
|
11673
11726
|
const $8 = ($2-1n);
|
|
11674
|
-
return
|
|
11727
|
+
return Data_Pagination_with__lemma_7116($0, $4, $8, Data_Pagination_lemmax27($0, $4, $8), $1);
|
|
11675
11728
|
}
|
|
11676
11729
|
}
|
|
11677
11730
|
}
|
|
@@ -11693,7 +11746,7 @@ function Data_Pagination_divNatNZLemma($0, $1, $2) {
|
|
|
11693
11746
|
case 0n: _crashExp('Nat case not covered');
|
|
11694
11747
|
default: {
|
|
11695
11748
|
const $a = ($1-1n);
|
|
11696
|
-
return
|
|
11749
|
+
return Data_Pagination_with__divNatNZLemma_7374($a, $6, Data_Nat_lte(($6+1n), $a), undefined, undefined, $2);
|
|
11697
11750
|
}
|
|
11698
11751
|
}
|
|
11699
11752
|
}
|
|
@@ -11814,13 +11867,13 @@ function Data_List_DeleteBy_deleteByx27($0, $1, $2) {
|
|
|
11814
11867
|
}
|
|
11815
11868
|
}
|
|
11816
11869
|
|
|
11817
|
-
/* Commands.Quick.
|
|
11818
|
-
function
|
|
11870
|
+
/* Commands.Quick.5804:5628:issuePrompt */
|
|
11871
|
+
function Commands_Quick_n__5804_5628_issuePrompt($0, $1, $2, $3) {
|
|
11819
11872
|
return 'What would you like the issue description to be (two blank lines to finish)?';
|
|
11820
11873
|
}
|
|
11821
11874
|
|
|
11822
|
-
/* Commands.Quick.
|
|
11823
|
-
function
|
|
11875
|
+
/* Commands.Quick.5804:5627:branchPrefix */
|
|
11876
|
+
function Commands_Quick_n__5804_5627_branchPrefix($0, $1, $2, $3) {
|
|
11824
11877
|
return Data_String_toLower(Commands_Quick_show_Show_IssueCategory($2));
|
|
11825
11878
|
}
|
|
11826
11879
|
|
|
@@ -11842,28 +11895,28 @@ function Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5) {
|
|
|
11842
11895
|
let $39;
|
|
11843
11896
|
switch($3a.h) {
|
|
11844
11897
|
case 0: /* nothing */ {
|
|
11845
|
-
$39 = Util_Prompting_inlineDescription(csegen_74()(),
|
|
11898
|
+
$39 = Util_Prompting_inlineDescription(csegen_74()(), Commands_Quick_n__5804_5628_issuePrompt($1, $2, $3, $0), '');
|
|
11846
11899
|
break;
|
|
11847
11900
|
}
|
|
11848
11901
|
case undefined: /* just */ {
|
|
11849
|
-
$39 = $48 => $49 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
11902
|
+
$39 = $48 => $49 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_705(), Util_Prompting_editorDescription(csegen_74()(), $3a.a1, {h: 0}, ''), $48, $49);
|
|
11850
11903
|
break;
|
|
11851
11904
|
}
|
|
11852
11905
|
}
|
|
11853
11906
|
const $57 = issueBody => $58 => $59 => {
|
|
11854
11907
|
const $64 = issue => {
|
|
11855
|
-
const $65 = Prelude_Types_foldMap_Foldable_List(csegen_51()(), $6b => $6b, {a1:
|
|
11856
|
-
return $7d => $7e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($81 => $82 => $83 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($86 => Prelude_IO_prim__putStr('What would you like the branch to be named?\n', $86), $81, $82, $83), $8e => $8f => $90 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($93 => $94 => $95 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($98 => Prelude_IO_prim__putStr($65, $98), $93, $94, $95), $a0 => $a1 => $a2 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
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);
|
|
11857
11910
|
};
|
|
11858
11911
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_createIssue($2, $0.a2, $0.a3, issueTitle, issueBody), $64, $58, $59);
|
|
11859
11912
|
};
|
|
11860
11913
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($39, $57, $36, $37);
|
|
11861
11914
|
};
|
|
11862
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11915
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_761(), $35, $30, $31);
|
|
11863
11916
|
};
|
|
11864
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);
|
|
11865
11918
|
};
|
|
11866
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11919
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_404()(), $1c, $16, $17);
|
|
11867
11920
|
};
|
|
11868
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);
|
|
11869
11922
|
}
|
|
@@ -11884,7 +11937,7 @@ function Commands_Label_addLabels($0, $1, $2, $3, $4, $5) {
|
|
|
11884
11937
|
|
|
11885
11938
|
/* Commands.Graph.7730:7016:pendingDot */
|
|
11886
11939
|
function Commands_Graph_n__7730_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11887
|
-
return Theme_theme($7,
|
|
11940
|
+
return Theme_theme($7, csegen_691(), csegen_689(), 6)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
|
|
11888
11941
|
}
|
|
11889
11942
|
|
|
11890
11943
|
/* Commands.Graph.7730:7015:note */
|
|
@@ -11894,7 +11947,7 @@ function Commands_Graph_n__7730_7015_note($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
11894
11947
|
|
|
11895
11948
|
/* Commands.Graph.7730:7014:missedDot */
|
|
11896
11949
|
function Commands_Graph_n__7730_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11897
|
-
return Theme_theme($7,
|
|
11950
|
+
return Theme_theme($7, csegen_690(), csegen_690(), 7)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
|
|
11898
11951
|
}
|
|
11899
11952
|
|
|
11900
11953
|
/* Commands.Graph.7730:7013:maxValue */
|
|
@@ -11923,7 +11976,7 @@ function Commands_Graph_n__7730_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11923
11976
|
break;
|
|
11924
11977
|
}
|
|
11925
11978
|
}
|
|
11926
|
-
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__7730_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('overlayed on'), Commands_Graph_n__7730_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7))))}, a2:
|
|
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()}};
|
|
11927
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};
|
|
11928
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};
|
|
11929
11982
|
const $f = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $14};
|
|
@@ -11934,7 +11987,7 @@ function Commands_Graph_n__7730_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11934
11987
|
|
|
11935
11988
|
/* Commands.Graph.7327:6604:header */
|
|
11936
11989
|
function Commands_Graph_n__7327_6604_header($0, $1, $2, $3) {
|
|
11937
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Open Pull Requests grouped by month created.')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2:
|
|
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()}}}));
|
|
11938
11991
|
}
|
|
11939
11992
|
|
|
11940
11993
|
/* Commands.Graph.7327:6603:graphable */
|
|
@@ -11957,20 +12010,20 @@ function Commands_Graph_n__6760_6183_countInParens($0, $1, $2, $3, $4) {
|
|
|
11957
12010
|
|
|
11958
12011
|
/* Commands.Graph.7730:7010:completedBox */
|
|
11959
12012
|
function Commands_Graph_n__7730_7010_completedBox($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11960
|
-
return Theme_theme($7,
|
|
12013
|
+
return Theme_theme($7, csegen_670(), csegen_670(), 3)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25aa}'));
|
|
11961
12014
|
}
|
|
11962
12015
|
|
|
11963
12016
|
/* Commands.Graph.6760:6182:coloredLabel */
|
|
11964
12017
|
function Commands_Graph_n__6760_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
11965
12018
|
switch((($4.a2===0n)?1:0)) {
|
|
11966
|
-
case 1: return Theme_theme($0,
|
|
12019
|
+
case 1: return Theme_theme($0, csegen_670(), csegen_670(), 0)($2.a1(undefined)($4.a1));
|
|
11967
12020
|
case 0: {
|
|
11968
12021
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 2n)) {
|
|
11969
12022
|
case 1: return $2.a1(undefined)($4.a1);
|
|
11970
12023
|
case 0: {
|
|
11971
12024
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 6n)) {
|
|
11972
|
-
case 1: return Theme_theme($0,
|
|
11973
|
-
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));
|
|
11974
12027
|
}
|
|
11975
12028
|
}
|
|
11976
12029
|
}
|
|
@@ -12110,9 +12163,9 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12110
12163
|
|
|
12111
12164
|
/* Commands.Graph.healthGraph : Config => List PullRequest -> String -> String -> Doc AnsiStyle */
|
|
12112
12165
|
function Commands_Graph_healthGraph($0, $1, $2, $3) {
|
|
12113
|
-
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(csegen_328(), $11 => $11.a2, $b, $c),
|
|
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));
|
|
12114
12167
|
const $1e = Prelude_Types_foldr_Foldable_List(xs => m => Prelude_Types_max_Ord_Nat(Data_List1_length(xs), m), 1n, $4);
|
|
12115
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_Graph_n__7327_6604_header($3, $2, $1, $0), a2: {a1: Commands_Graph_graph($0, {a1: $36 => Commands_Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29($0, $3a => Commands_Graph_length_HasLength_Date($3a),
|
|
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}}}}}});
|
|
12116
12169
|
}
|
|
12117
12170
|
|
|
12118
12171
|
/* Commands.Graph.graphOne : Config -> Graphable g => Nat -> Nat -> Nat -> g -> Doc AnsiStyle */
|
|
@@ -12135,7 +12188,7 @@ function Commands_Graph_countPadRight($0, $1, $2) {
|
|
|
12135
12188
|
|
|
12136
12189
|
/* Commands.Graph.bar : Config -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
12137
12190
|
function Commands_Graph_bar($0, $1, $2, $3, $4) {
|
|
12138
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0,
|
|
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}}}}));
|
|
12139
12192
|
}
|
|
12140
12193
|
|
|
12141
12194
|
|