@mattpolzin/harmony 6.1.1 → 6.2.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/harmony +499 -486
- package/man/harmony.1 +1 -1
- package/package.json +1 -1
package/harmony
CHANGED
|
@@ -2785,7 +2785,7 @@ const csegen_402 = __lazy(function () {
|
|
|
2785
2785
|
|
|
2786
2786
|
/* {csegen:408} */
|
|
2787
2787
|
const csegen_408 = __lazy(function () {
|
|
2788
|
-
return
|
|
2788
|
+
return $0 => $0.a1;
|
|
2789
2789
|
});
|
|
2790
2790
|
|
|
2791
2791
|
/* {csegen:421} */
|
|
@@ -2938,18 +2938,13 @@ const csegen_828 = __lazy(function () {
|
|
|
2938
2938
|
return $0 => $0.a1;
|
|
2939
2939
|
});
|
|
2940
2940
|
|
|
2941
|
-
/* {csegen:
|
|
2942
|
-
const
|
|
2943
|
-
return $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Data_String_trim($4), csegen_449()(), $0, $1);
|
|
2944
|
-
});
|
|
2945
|
-
|
|
2946
|
-
/* {csegen:840} */
|
|
2947
|
-
const csegen_840 = __lazy(function () {
|
|
2941
|
+
/* {csegen:838} */
|
|
2942
|
+
const csegen_838 = __lazy(function () {
|
|
2948
2943
|
return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}};
|
|
2949
2944
|
});
|
|
2950
2945
|
|
|
2951
|
-
/* {csegen:
|
|
2952
|
-
const
|
|
2946
|
+
/* {csegen:854} */
|
|
2947
|
+
const csegen_854 = __lazy(function () {
|
|
2953
2948
|
return {a1: ann => $1 => Commands_Graph_pretty_Pretty_Date($1), a2: ann => $5 => $6 => Commands_Graph_prettyPrec_Pretty_Date($5, $6)};
|
|
2954
2949
|
});
|
|
2955
2950
|
|
|
@@ -2958,23 +2953,23 @@ function prim__sub_Integer($0, $1) {
|
|
|
2958
2953
|
return ($0-$1);
|
|
2959
2954
|
}
|
|
2960
2955
|
|
|
2961
|
-
/* Main.
|
|
2962
|
-
function
|
|
2956
|
+
/* Main.9145:1618:parsePg */
|
|
2957
|
+
function Main_n__9145_1618_parsePg($0, $1, $2, $3, $4, $5) {
|
|
2963
2958
|
return Data_String_parsePositive(csegen_2(), $5);
|
|
2964
2959
|
}
|
|
2965
2960
|
|
|
2966
|
-
/* Main.
|
|
2967
|
-
function
|
|
2961
|
+
/* Main.9145:1617:parseLim */
|
|
2962
|
+
function Main_n__9145_1617_parseLim($0, $1, $2, $3, $4) {
|
|
2968
2963
|
return Prelude_Interfaces_x3cx3dx3c(csegen_14(), x => Data_Fin_natToFin(x, 101n), $d => Data_String_parsePositive(csegen_2(), $d));
|
|
2969
2964
|
}
|
|
2970
2965
|
|
|
2971
|
-
/* Main.
|
|
2972
|
-
function
|
|
2966
|
+
/* Main.8869:1307:ffiOpts */
|
|
2967
|
+
function Main_n__8869_1307_ffiOpts($0, $1, $2, $3, $4) {
|
|
2973
2968
|
return ShellCompletion_Common_ffiOpts($0, $4, $3, $2, $1);
|
|
2974
2969
|
}
|
|
2975
2970
|
|
|
2976
|
-
/* Main.
|
|
2977
|
-
function
|
|
2971
|
+
/* Main.8869:1306:configuredOpts */
|
|
2972
|
+
function Main_n__8869_1306_configuredOpts($0, $1, $2, $3, $4) {
|
|
2978
2973
|
const $14 = $15 => {
|
|
2979
2974
|
switch($15.h) {
|
|
2980
2975
|
case 1: /* Right */ return $0.a1.a1.a2(undefined)(ShellCompletion_Common_opts($15.a1, $4, $3, $2, $1));
|
|
@@ -3009,10 +3004,10 @@ function Main_shouldUseColors($0) {
|
|
|
3009
3004
|
/* Main.shellCompletion : HasIO io => CompletionStyle -> String -> String -> String -> io () */
|
|
3010
3005
|
function Main_shellCompletion($0, $1, $2, $3, $4) {
|
|
3011
3006
|
const $5 = ShellCompletion_Common_cmdOpts($1, $2, $3, $4);
|
|
3012
|
-
const $b = Prelude_Types_maybe(() =>
|
|
3007
|
+
const $b = Prelude_Types_maybe(() => Main_n__8869_1307_ffiOpts($0, $4, $3, $2, $1), () => $15 => $0.a1.a1.a2(undefined)({a1: $15}), $5);
|
|
3013
3008
|
const $29 = $2a => {
|
|
3014
3009
|
switch($2a.h) {
|
|
3015
|
-
case 0: /* nothing */ return
|
|
3010
|
+
case 0: /* nothing */ return Main_n__8869_1306_configuredOpts($0, $4, $3, $2, $1);
|
|
3016
3011
|
case undefined: /* just */ return $0.a1.a1.a2(undefined)($2a.a1);
|
|
3017
3012
|
}
|
|
3018
3013
|
};
|
|
@@ -3235,7 +3230,7 @@ function Main_handleAuthenticatedArgs($0, $1, $2) {
|
|
|
3235
3230
|
}
|
|
3236
3231
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe($b2, filter => ({a1: {a1: filter, a2: {a1: $af.a1, a2: $af.a2}}}));
|
|
3237
3232
|
};
|
|
3238
|
-
const $91 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $99 => $9a => ({a1: $99, a2: $9a})},
|
|
3233
|
+
const $91 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $99 => $9a => ({a1: $99, a2: $9a})}, Main_n__9145_1617_parseLim($1, $2.a2.a2.a1, $2.a2.a2.a2.a1, $2.a2.a2.a2.a2.a1, $0)($2.a2.a2.a2.a1)), Main_n__9145_1618_parsePg($1, $2.a2.a2.a1, $2.a2.a2.a2.a1, $2.a2.a2.a2.a2.a1, $0, $2.a2.a2.a2.a2.a1)), $ae);
|
|
3239
3234
|
return $bf => {
|
|
3240
3235
|
switch($91.h) {
|
|
3241
3236
|
case undefined: /* just */ return $c1 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequestsJsonStr($1, $0.a2, $0.a3, $91.a1.a1, $91.a1.a2.a1, $91.a1.a2.a2), pullsJsonStr => $d0 => $d1 => $d2 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d5 => Prelude_IO_prim__putStr(pullsJsonStr, $d5), $d0, $d1, $d2), $bf, $c1);
|
|
@@ -8003,8 +7998,8 @@ function Data_Config_branchConfig($0) {
|
|
|
8003
7998
|
return Prelude_Interfaces_x3ex3dx3e(csegen_235(), csegen_322(), $7 => Data_Either_maybeToEither(() => '', Data_Config_ParseBranchStrategy_parseBranchConfig($7)), $0);
|
|
8004
7999
|
}
|
|
8005
8000
|
|
|
8006
|
-
/* Language.JSON.Accessors.6303:
|
|
8007
|
-
function
|
|
8001
|
+
/* Language.JSON.Accessors.6303:18519:lookup' */
|
|
8002
|
+
function Language_JSON_Accessors_n__6303_18519_lookupx27($0, $1, $2, $3, $4) {
|
|
8008
8003
|
return Data_Either_maybeToEither(() => Prelude_Types_foldMap_Foldable_List(csegen_65()(), $c => $c, {a1: 'Missing required key: ', a2: {a1: $3, a2: {a1: '.', a2: {h: 0}}}}), Data_List_lookup(csegen_55(), $3, $4));
|
|
8009
8004
|
}
|
|
8010
8005
|
|
|
@@ -8060,7 +8055,7 @@ function Language_JSON_Accessors_lookupAll($0, $1) {
|
|
|
8060
8055
|
switch($0.h) {
|
|
8061
8056
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
8062
8057
|
case undefined: /* cons */ {
|
|
8063
|
-
const $4 =
|
|
8058
|
+
const $4 = Language_JSON_Accessors_n__6303_18519_lookupx27($0.a1, $0.a2, $1, $0.a1, $1);
|
|
8064
8059
|
switch($4.h) {
|
|
8065
8060
|
case 1: /* Right */ {
|
|
8066
8061
|
const $b = Language_JSON_Accessors_lookupAll($0.a2, $1);
|
|
@@ -8813,8 +8808,8 @@ function Util_Prompting_n__5820_1351_yesUnlessNo($0, $1, $2, $3) {
|
|
|
8813
8808
|
return Util_Prompting_with__yesNoPromptx2cyesUnlessNo_1359(undefined, $0, $1, $2, $3, Data_String_toLower($3));
|
|
8814
8809
|
}
|
|
8815
8810
|
|
|
8816
|
-
/* Util.Prompting.
|
|
8817
|
-
function
|
|
8811
|
+
/* Util.Prompting.6385:1896:readTemplate */
|
|
8812
|
+
function Util_Prompting_n__6385_1896_readTemplate($0, $1, $2, $3, $4) {
|
|
8818
8813
|
const $11 = $12 => {
|
|
8819
8814
|
switch($12) {
|
|
8820
8815
|
case 0: return $0.a1.a1.a2(undefined)('');
|
|
@@ -8858,6 +8853,11 @@ function Util_n__5707_1233_getMoreLines($0, $1, $2) {
|
|
|
8858
8853
|
}
|
|
8859
8854
|
}
|
|
8860
8855
|
|
|
8856
|
+
/* Util.Prompting.6042:1555:defaultStr */
|
|
8857
|
+
function Util_Prompting_n__6042_1555_defaultStr($0, $1) {
|
|
8858
|
+
return Prelude_Types_maybe(() => '', () => $5 => Util_Prompting_enterForDefaultStr($5), $0);
|
|
8859
|
+
}
|
|
8860
|
+
|
|
8861
8861
|
/* Util.Prompting.5820:1350:defaultAnswerStr */
|
|
8862
8862
|
function Util_Prompting_n__5820_1350_defaultAnswerStr($0, $1, $2) {
|
|
8863
8863
|
switch($1) {
|
|
@@ -8905,7 +8905,7 @@ function Util_Prompting_prepareDescriptionFile($0, $1, $2, $3) {
|
|
|
8905
8905
|
const $20 = Prelude_Types_foldMap_Foldable_List(csegen_65()(), $26 => $26, {a1: $2, a2: {a1: '\n', a2: {a1: templateContents, a2: {h: 0}}}});
|
|
8906
8906
|
return $0.a1.a1.a1(undefined)(undefined)($38 => undefined)(System_File_ReadWrite_writeFile($0, $3, $20));
|
|
8907
8907
|
};
|
|
8908
|
-
return $0.a1.a2(undefined)(undefined)(Prelude_Types_maybe(() => $0.a1.a1.a2(undefined)(''), () => $17 =>
|
|
8908
|
+
return $0.a1.a2(undefined)(undefined)(Prelude_Types_maybe(() => $0.a1.a1.a2(undefined)(''), () => $17 => Util_Prompting_n__6385_1896_readTemplate($0, $3, $2, $1, $17), $1))($1f);
|
|
8909
8909
|
}
|
|
8910
8910
|
|
|
8911
8911
|
/* Util.Prompting.orIfEmpty : Maybe String -> String -> String */
|
|
@@ -8928,6 +8928,28 @@ function Util_optionsWithBestWidth($0) {
|
|
|
8928
8928
|
return {a1: Number(_truncBigInt32($6)), a2: 1.0};
|
|
8929
8929
|
}
|
|
8930
8930
|
|
|
8931
|
+
/* Util.Prompting.offerRetry : HasIO io => String -> String -> Lazy a -> io (Maybe a) -> io a */
|
|
8932
|
+
function Util_Prompting_offerRetry($0, $1, $2, $3, $4) {
|
|
8933
|
+
const $e = $f => {
|
|
8934
|
+
switch($f.h) {
|
|
8935
|
+
case 0: /* nothing */ {
|
|
8936
|
+
const $25 = $26 => {
|
|
8937
|
+
const $30 = $31 => {
|
|
8938
|
+
switch($31.h) {
|
|
8939
|
+
case 0: /* nothing */ return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($41 => Prelude_IO_prim__putStr(($2+'\n'), $41)))($48 => $0.a1.a1.a2(undefined)($3()));
|
|
8940
|
+
case undefined: /* just */ return $0.a1.a1.a2(undefined)($31.a1);
|
|
8941
|
+
}
|
|
8942
|
+
};
|
|
8943
|
+
return $0.a1.a2(undefined)(undefined)($4)($30);
|
|
8944
|
+
};
|
|
8945
|
+
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($1f => Prelude_IO_prim__putStr(($1+'\n'), $1f)))($25);
|
|
8946
|
+
}
|
|
8947
|
+
case undefined: /* just */ return $0.a1.a1.a2(undefined)($f.a1);
|
|
8948
|
+
}
|
|
8949
|
+
};
|
|
8950
|
+
return $0.a1.a2(undefined)(undefined)($4)($e);
|
|
8951
|
+
}
|
|
8952
|
+
|
|
8931
8953
|
/* Util.String.nonEmpty : (cs : String) -> Maybe (NonEmpty cs) */
|
|
8932
8954
|
function Util_String_nonEmpty($0) {
|
|
8933
8955
|
switch($0) {
|
|
@@ -8961,6 +8983,21 @@ function Util_getManyLines($0, $1) {
|
|
|
8961
8983
|
return Util_n__5707_1233_getMoreLines($0, {h: 0}, $1);
|
|
8962
8984
|
}
|
|
8963
8985
|
|
|
8986
|
+
/* Util.Prompting.getLineEnterForDefault : HasIO io => String -> Maybe String -> io String */
|
|
8987
|
+
function Util_Prompting_getLineEnterForDefault($0, $1, $2) {
|
|
8988
|
+
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($11 => Prelude_IO_prim__putStr((Util_Prompting_enterForDefaultPrompt($1, $2)+'\n'), $11)))($1b => $0.a1.a1.a1(undefined)(undefined)($26 => Util_Prompting_orIfEmpty($2, Data_String_trim($26)))($0.a2(undefined)($32 => Prelude_IO_prim__getStr($32))));
|
|
8989
|
+
}
|
|
8990
|
+
|
|
8991
|
+
/* Util.Prompting.enterForDefaultStr : String -> String */
|
|
8992
|
+
function Util_Prompting_enterForDefaultStr($0) {
|
|
8993
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $6 => $6, {a1: ' (ENTER for default: ', a2: {a1: $0, a2: {a1: ')', a2: {h: 0}}}});
|
|
8994
|
+
}
|
|
8995
|
+
|
|
8996
|
+
/* Util.Prompting.enterForDefaultPrompt : String -> Maybe String -> String */
|
|
8997
|
+
function Util_Prompting_enterForDefaultPrompt($0, $1) {
|
|
8998
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $7 => $7, {a1: $0, a2: {a1: Util_Prompting_n__6042_1555_defaultStr($1, $0), a2: {h: 0}}});
|
|
8999
|
+
}
|
|
9000
|
+
|
|
8964
9001
|
/* Util.Prompting.editorDescription : HasIO io => String -> Maybe String -> String -> io (Either FileError String) */
|
|
8965
9002
|
function Util_Prompting_editorDescription($0, $1, $2, $3) {
|
|
8966
9003
|
const $12 = $13 => {
|
|
@@ -9047,37 +9084,37 @@ function FFI_Term_termCols($0) {
|
|
|
9047
9084
|
}
|
|
9048
9085
|
}
|
|
9049
9086
|
|
|
9050
|
-
/* FFI.GitHub.6772:
|
|
9051
|
-
function
|
|
9087
|
+
/* FFI.GitHub.6772:18709:unexpectedPayload */
|
|
9088
|
+
function FFI_GitHub_n__6772_18709_unexpectedPayload($0, $1) {
|
|
9052
9089
|
return FFI_GitHub_internalError(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $9 => $9, {a1: 'Unexpected error JSON: ', a2: {a1: $0, a2: {h: 0}}}));
|
|
9053
9090
|
}
|
|
9054
9091
|
|
|
9055
|
-
/* FFI.GitHub.6772:
|
|
9056
|
-
function
|
|
9092
|
+
/* FFI.GitHub.6772:18708:parse */
|
|
9093
|
+
function FFI_GitHub_n__6772_18708_parse($0, $1) {
|
|
9057
9094
|
switch($1.h) {
|
|
9058
9095
|
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}}))));
|
|
9059
9096
|
default: return {h: 0 /* Left */, a1: 'Expected an Object containing error and status keys'};
|
|
9060
9097
|
}
|
|
9061
9098
|
}
|
|
9062
9099
|
|
|
9063
|
-
/* FFI.GitHub.8295:
|
|
9064
|
-
function
|
|
9100
|
+
/* FFI.GitHub.8295:20277:errString */
|
|
9101
|
+
function FFI_GitHub_n__8295_20277_errString($0, $1) {
|
|
9065
9102
|
switch($1.h) {
|
|
9066
9103
|
case 0: /* nothing */ return 'You can only use teams with repositories belonging to GitHub organizations';
|
|
9067
9104
|
case undefined: /* just */ return $1.a1;
|
|
9068
9105
|
}
|
|
9069
9106
|
}
|
|
9070
9107
|
|
|
9071
|
-
/* FFI.GitHub.7168:
|
|
9072
|
-
function
|
|
9108
|
+
/* FFI.GitHub.7168:19133:errString */
|
|
9109
|
+
function FFI_GitHub_n__7168_19133_errString($0, $1) {
|
|
9073
9110
|
switch($1.h) {
|
|
9074
9111
|
case 0: /* nothing */ return 'You can only list teams for repositories belonging to GitHub organizations';
|
|
9075
9112
|
case undefined: /* just */ return $1.a1;
|
|
9076
9113
|
}
|
|
9077
9114
|
}
|
|
9078
9115
|
|
|
9079
|
-
/* FFI.GitHub.6905:
|
|
9080
|
-
function
|
|
9116
|
+
/* FFI.GitHub.6905:18842:errMsg */
|
|
9117
|
+
function FFI_GitHub_n__6905_18842_errMsg($0) {
|
|
9081
9118
|
return Prelude_Types_either(() => csegen_361()(), () => csegen_361()(), $0);
|
|
9082
9119
|
}
|
|
9083
9120
|
|
|
@@ -9121,7 +9158,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
9121
9158
|
let $2;
|
|
9122
9159
|
switch($3.h) {
|
|
9123
9160
|
case 0: /* Left */ {
|
|
9124
|
-
$2 = {h: 0 /* Left */, a1:
|
|
9161
|
+
$2 = {h: 0 /* Left */, a1: FFI_GitHub_n__6772_18709_unexpectedPayload($0, $3.a1)};
|
|
9125
9162
|
break;
|
|
9126
9163
|
}
|
|
9127
9164
|
case 1: /* Right */ {
|
|
@@ -9130,7 +9167,7 @@ function FFI_GitHub_parseError($0) {
|
|
|
9130
9167
|
}
|
|
9131
9168
|
}
|
|
9132
9169
|
const $c = json => {
|
|
9133
|
-
const $d =
|
|
9170
|
+
const $d = FFI_GitHub_n__6772_18708_parse($0, json);
|
|
9134
9171
|
switch($d.h) {
|
|
9135
9172
|
case 0: /* Left */ return {h: 0 /* Left */, a1: FFI_GitHub_internalError($d.a1)};
|
|
9136
9173
|
case 1: /* Right */ return {h: 1 /* Right */, a1: $d.a1};
|
|
@@ -9227,7 +9264,7 @@ function FFI_GitHub_internalError($0) {
|
|
|
9227
9264
|
|
|
9228
9265
|
/* FFI.GitHub.ignoreStatus : Promise String a -> Promise String a */
|
|
9229
9266
|
function FFI_GitHub_ignoreStatus($0, $1, $2) {
|
|
9230
|
-
return Data_Promise_mapError($5 =>
|
|
9267
|
+
return Data_Promise_mapError($5 => FFI_GitHub_n__6905_18842_errMsg(FFI_GitHub_parseError($5)), $0, $1, $2);
|
|
9231
9268
|
}
|
|
9232
9269
|
|
|
9233
9270
|
/* FFI.GitHub.getUser : Octokit => String -> Promise String User */
|
|
@@ -9257,12 +9294,12 @@ function FFI_GitHub_getIssue($0, $1, $2, $3) {
|
|
|
9257
9294
|
|
|
9258
9295
|
/* FFI.GitHub.forceListTeams : Octokit => String -> Promise' (List String) */
|
|
9259
9296
|
function FFI_GitHub_forceListTeams($0, $1, $2, $3) {
|
|
9260
|
-
return Data_Promise_mapError($6 =>
|
|
9297
|
+
return Data_Promise_mapError($6 => FFI_GitHub_n__7168_19133_errString($0, $6), $b => $c => FFI_GitHub_listTeams($0, $1, $b, $c), $2, $3);
|
|
9261
9298
|
}
|
|
9262
9299
|
|
|
9263
9300
|
/* FFI.GitHub.forceListTeamMembers : Octokit => String -> String -> Promise' (List String) */
|
|
9264
9301
|
function FFI_GitHub_forceListTeamMembers($0, $1, $2, $3, $4) {
|
|
9265
|
-
return Data_Promise_mapError($7 =>
|
|
9302
|
+
return Data_Promise_mapError($7 => FFI_GitHub_n__8295_20277_errString($0, $7), $c => $d => FFI_GitHub_listTeamMembers($0, $1, $2, $c, $d), $3, $4);
|
|
9266
9303
|
}
|
|
9267
9304
|
|
|
9268
9305
|
/* FFI.GitHub.createPR : Octokit => {default False _ : Bool} ->
|
|
@@ -9732,92 +9769,60 @@ function Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, $2) {
|
|
|
9732
9769
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_402(), $2.a1)}, $b);
|
|
9733
9770
|
}
|
|
9734
9771
|
|
|
9735
|
-
/* Config.
|
|
9736
|
-
function
|
|
9737
|
-
const $5 =
|
|
9738
|
-
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($
|
|
9772
|
+
/* Config.9657:2532:themePrompt */
|
|
9773
|
+
function Config_n__9657_2532_themePrompt($0, $1, $2, $3, $4) {
|
|
9774
|
+
const $5 = Util_Prompting_enterForDefaultStr('dark');
|
|
9775
|
+
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($16 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $1f => $1f, {a1: 'Would you like harmony configured for a \'dark\' or \'light\' terminal background?', a2: {a1: $5, a2: {h: 0}}})+'\n'), $16)))($28 => Util_Prompting_offerRetry($4, 'The theme must be either \'dark\' or \'light\'. Which would you prefer?', 'Could not parse the input as a valid theme; will use \'dark\' for now.', () => 1, $4.a1.a1.a1(undefined)(undefined)($39 => Data_Theme_parseString(Util_Prompting_orIfEmpty({a1: 'dark'}, Data_String_trim($39))))($4.a2(undefined)($48 => Prelude_IO_prim__getStr($48)))));
|
|
9739
9776
|
}
|
|
9740
9777
|
|
|
9741
|
-
/* Config.
|
|
9742
|
-
function
|
|
9778
|
+
/* Config.9657:2531:repo */
|
|
9779
|
+
function Config_n__9657_2531_repo($0, $1, $2, $3, $4) {
|
|
9743
9780
|
return Prelude_Types_map_Functor_Maybe(csegen_361()(), $4);
|
|
9744
9781
|
}
|
|
9745
9782
|
|
|
9746
|
-
/* Config.
|
|
9747
|
-
function
|
|
9783
|
+
/* Config.8724:1562:parseSuffix */
|
|
9784
|
+
function Config_n__8724_1562_parseSuffix($0, $1) {
|
|
9748
9785
|
return Config_case__parseGitHubURIx2cparseSuffix_1582($0, $1, Data_String_break$($8 => Prelude_EqOrd_x3dx3d_Eq_Char($8, '.'), $1));
|
|
9749
9786
|
}
|
|
9750
9787
|
|
|
9751
|
-
/* Config.
|
|
9752
|
-
function
|
|
9753
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b =>
|
|
9788
|
+
/* Config.8724:1561:parseSSH */
|
|
9789
|
+
function Config_n__8724_1561_parseSSH($0, $1) {
|
|
9790
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b => Config_n__8724_1562_parseSuffix($0, $b), $1);
|
|
9754
9791
|
}
|
|
9755
9792
|
|
|
9756
|
-
/* Config.
|
|
9757
|
-
function
|
|
9758
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b =>
|
|
9793
|
+
/* Config.8724:1560:parseHTTPS */
|
|
9794
|
+
function Config_n__8724_1560_parseHTTPS($0, $1) {
|
|
9795
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b => Config_n__8724_1562_parseSuffix($0, $b), $1);
|
|
9759
9796
|
}
|
|
9760
9797
|
|
|
9761
|
-
/* Config.
|
|
9762
|
-
function
|
|
9763
|
-
return Prelude_Types_map_Functor_Maybe(csegen_408()
|
|
9798
|
+
/* Config.9657:2530:org */
|
|
9799
|
+
function Config_n__9657_2530_org($0, $1, $2, $3, $4) {
|
|
9800
|
+
return Prelude_Types_map_Functor_Maybe(csegen_408(), $4);
|
|
9764
9801
|
}
|
|
9765
9802
|
|
|
9766
|
-
/* Config.
|
|
9767
|
-
function
|
|
9803
|
+
/* Config.8435:1281:oneDayAgo */
|
|
9804
|
+
function Config_n__8435_1281_oneDayAgo($0, $1, $2) {
|
|
9768
9805
|
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(Number(_truncUBigInt32((now-86400n)))));
|
|
9769
9806
|
}
|
|
9770
9807
|
|
|
9771
|
-
/* Config.
|
|
9772
|
-
function
|
|
9773
|
-
const $12 = $13 => {
|
|
9774
|
-
switch($13.h) {
|
|
9775
|
-
case 0: /* nothing */ {
|
|
9776
|
-
const $29 = $2a => {
|
|
9777
|
-
const $34 = $35 => {
|
|
9778
|
-
switch($35.h) {
|
|
9779
|
-
case 0: /* nothing */ return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($45 => Prelude_IO_prim__putStr(($6+'\n'), $45)))($4c => $4.a1.a1.a2(undefined)($7()));
|
|
9780
|
-
case undefined: /* just */ return $4.a1.a1.a2(undefined)($35.a1);
|
|
9781
|
-
}
|
|
9782
|
-
};
|
|
9783
|
-
return $4.a1.a2(undefined)(undefined)($8)($34);
|
|
9784
|
-
};
|
|
9785
|
-
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($23 => Prelude_IO_prim__putStr(($5+'\n'), $23)))($29);
|
|
9786
|
-
}
|
|
9787
|
-
case undefined: /* just */ return $4.a1.a1.a2(undefined)($13.a1);
|
|
9788
|
-
}
|
|
9789
|
-
};
|
|
9790
|
-
return $4.a1.a2(undefined)(undefined)($8)($12);
|
|
9791
|
-
}
|
|
9792
|
-
|
|
9793
|
-
/* Config.9547:2423:help */
|
|
9794
|
-
function Config_n__9547_2423_help($0, $1) {
|
|
9808
|
+
/* Config.9560:2423:help */
|
|
9809
|
+
function Config_n__9560_2423_help($0, $1) {
|
|
9795
9810
|
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_65()(), $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}}})));
|
|
9796
9811
|
}
|
|
9797
9812
|
|
|
9798
|
-
/* Config.
|
|
9799
|
-
function
|
|
9800
|
-
return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $a => $a, {a1: ' (ENTER for default: ', a2: {a1: $4, a2: {a1: ')', a2: {h: 0}}}});
|
|
9801
|
-
}
|
|
9802
|
-
|
|
9803
|
-
/* Config.8664:1513:drop' */
|
|
9804
|
-
function Config_n__8664_1513_dropx27($0, $1) {
|
|
9813
|
+
/* Config.8677:1513:drop' */
|
|
9814
|
+
function Config_n__8677_1513_dropx27($0, $1) {
|
|
9805
9815
|
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));
|
|
9806
9816
|
}
|
|
9807
9817
|
|
|
9808
|
-
/* Config.
|
|
9809
|
-
function
|
|
9810
|
-
|
|
9818
|
+
/* Config.9657:2528:commentConfigPrompt */
|
|
9819
|
+
function Config_n__9657_2528_commentConfigPrompt($0, $1, $2, $3, $4) {
|
|
9820
|
+
const $5 = Util_Prompting_enterForDefaultStr('name');
|
|
9821
|
+
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($16 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $1f => $1f, {a1: 'What kind of comment would you like Harmony to leave when it requests reviewers? [none/name/at-mention]', a2: {a1: $5, a2: {h: 0}}})+'\n'), $16)))($28 => Util_Prompting_offerRetry($4, 'The comment strategy must be \'none\', \'name\', or \'at-mention\'. Which would you prefer?', 'Could not parse the input as a valid option; will use \'name\' for now.', () => 1, $4.a1.a1.a1(undefined)(undefined)($39 => Data_Config_CommentStrategy_parseCommentConfig(Util_Prompting_orIfEmpty({a1: 'name'}, Data_String_trim($39))))($4.a2(undefined)($48 => Prelude_IO_prim__getStr($48)))));
|
|
9811
9822
|
}
|
|
9812
9823
|
|
|
9813
|
-
/* Config.
|
|
9814
|
-
function
|
|
9815
|
-
const $5 = Config_n__9644_2530_enterForDefaultStr($0, $1, $2, $3, 'name');
|
|
9816
|
-
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($1a => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $23 => $23, {a1: 'What kind of comment would you like Harmony to leave when it requests reviewers? [none/name/at-mention]', a2: {a1: $5, a2: {h: 0}}})+'\n'), $1a)))($2c => Config_n__9644_2531_offerRetry($0, $1, $2, $3, $4, 'The comment strategy must be \'none\', \'name\', or \'at-mention\'. Which would you prefer?', 'Could not parse the input as a valid option; will use \'name\' for now.', () => 1, $4.a1.a1.a1(undefined)(undefined)($41 => Data_Config_CommentStrategy_parseCommentConfig(Util_Prompting_orIfEmpty({a1: 'name'}, Data_String_trim($41))))($4.a2(undefined)($50 => Prelude_IO_prim__getStr($50)))));
|
|
9817
|
-
}
|
|
9818
|
-
|
|
9819
|
-
/* Config.8553:1406:checkRequestSettings */
|
|
9820
|
-
function Config_n__8553_1406_checkRequestSettings($0, $1) {
|
|
9824
|
+
/* Config.8566:1406:checkRequestSettings */
|
|
9825
|
+
function Config_n__8566_1406_checkRequestSettings($0, $1) {
|
|
9821
9826
|
let $2;
|
|
9822
9827
|
switch($1.a6) {
|
|
9823
9828
|
case 1: {
|
|
@@ -9835,10 +9840,10 @@ function Config_n__8553_1406_checkRequestSettings($0, $1) {
|
|
|
9835
9840
|
}
|
|
9836
9841
|
}
|
|
9837
9842
|
|
|
9838
|
-
/* Config.
|
|
9839
|
-
function
|
|
9840
|
-
const $5 =
|
|
9841
|
-
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($
|
|
9843
|
+
/* Config.9657:2527:branchParsingPrompt */
|
|
9844
|
+
function Config_n__9657_2527_branchParsingPrompt($0, $1, $2, $3, $4) {
|
|
9845
|
+
const $5 = Util_Prompting_enterForDefaultStr('none');
|
|
9846
|
+
return $4.a1.a2(undefined)(undefined)($4.a2(undefined)($16 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $1f => $1f, {a1: 'Would you like harmony to parse branch names for \'jira\' slugs or \'github\' issue numbers to use as part of new PR title or body?', a2: {a1: $5, a2: {h: 0}}})+'\n'), $16)))($28 => Util_Prompting_offerRetry($4, 'Branch parsing must be \'none\', \'jira\', or \'github\'. Which would you prefer?', 'Could not parse the input as a valid option; will use \'none\' for now.', () => 0, $4.a1.a1.a1(undefined)(undefined)($39 => Data_Config_ParseBranchStrategy_parseBranchConfig(Util_Prompting_orIfEmpty({a1: 'none'}, Data_String_trim($39))))($4.a2(undefined)($48 => Prelude_IO_prim__getStr($48)))));
|
|
9842
9847
|
}
|
|
9843
9848
|
|
|
9844
9849
|
/* Config.show */
|
|
@@ -9873,7 +9878,7 @@ function Config_syncIfOld($0, $1, $2, $3) {
|
|
|
9873
9878
|
case 0: return $1b => Data_Promise_pure_Applicative_x28Promisex20x24ex29($1, $e, $1b);
|
|
9874
9879
|
}
|
|
9875
9880
|
};
|
|
9876
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
9881
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__8435_1281_oneDayAgo($0, $1, csegen_88()()), $c, $2, $3);
|
|
9877
9882
|
}
|
|
9878
9883
|
|
|
9879
9884
|
/* Config.syncConfig : Config => Octokit => Bool -> Promise' Config */
|
|
@@ -9896,7 +9901,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
9896
9901
|
|
|
9897
9902
|
/* Config.settablePropsWithHelp : Config => String */
|
|
9898
9903
|
function Config_settablePropsWithHelp($0) {
|
|
9899
|
-
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 =>
|
|
9904
|
+
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $9 => Config_n__9560_2423_help($0, $9), Data_Config_settablePropNamesAndHelp())));
|
|
9900
9905
|
}
|
|
9901
9906
|
|
|
9902
9907
|
/* Config.setConfig : Config => String -> String -> Promise' Config */
|
|
@@ -9945,7 +9950,7 @@ function Config_preferOriginRemote($0) {
|
|
|
9945
9950
|
|
|
9946
9951
|
/* Config.parseGitHubURI : String -> Maybe GitRemote */
|
|
9947
9952
|
function Config_parseGitHubURI($0) {
|
|
9948
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
9953
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(Config_n__8724_1560_parseHTTPS($0, $0), () => Config_n__8724_1561_parseSSH($0, $0));
|
|
9949
9954
|
}
|
|
9950
9955
|
|
|
9951
9956
|
/* Config.parseBool : String -> Maybe Bool */
|
|
@@ -10056,142 +10061,121 @@ function Config_findConfig($0, $1, $2) {
|
|
|
10056
10061
|
|
|
10057
10062
|
/* Config.dropPrefix' : String -> String -> Maybe String */
|
|
10058
10063
|
function Config_dropPrefixx27($0, $1) {
|
|
10059
|
-
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4),
|
|
10064
|
+
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4), Config_n__8677_1513_dropx27($0, Prelude_Types_fastUnpack($1)));
|
|
10060
10065
|
}
|
|
10061
10066
|
|
|
10062
10067
|
/* Config.createConfig : Maybe String -> Bool -> Nat -> Maybe String -> Promise' Config */
|
|
10063
10068
|
function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
10064
10069
|
const $24 = $25 => $26 => $27 => {
|
|
10065
10070
|
const $2c = $2d => {
|
|
10066
|
-
const $2f =
|
|
10067
|
-
const $2e = () => $
|
|
10068
|
-
const $
|
|
10069
|
-
const $
|
|
10070
|
-
const $
|
|
10071
|
-
switch(Data_String_trim($
|
|
10071
|
+
const $2f = Util_Prompting_enterForDefaultStr('unset');
|
|
10072
|
+
const $2e = () => $32 => $33 => {
|
|
10073
|
+
const $5b = $5c => $5d => $5e => {
|
|
10074
|
+
const $60 = $61 => $62 => {
|
|
10075
|
+
const $64 = $65 => {
|
|
10076
|
+
switch(Data_String_trim($65)) {
|
|
10072
10077
|
case '': return {h: 0};
|
|
10073
|
-
default: return {a1: Data_String_trim($
|
|
10078
|
+
default: return {a1: Data_String_trim($65)};
|
|
10074
10079
|
}
|
|
10075
10080
|
};
|
|
10076
|
-
return Data_Promise_map_Functor_x28Promisex20x24ex29($
|
|
10081
|
+
return Data_Promise_map_Functor_x28Promisex20x24ex29($64, csegen_449()(), $61, $62);
|
|
10077
10082
|
};
|
|
10078
|
-
const $
|
|
10079
|
-
const $
|
|
10080
|
-
switch($
|
|
10083
|
+
const $71 = configPAT => $72 => $73 => {
|
|
10084
|
+
const $7f = $80 => $81 => $82 => {
|
|
10085
|
+
switch($80.h) {
|
|
10081
10086
|
case undefined: /* just */ {
|
|
10082
|
-
const $
|
|
10083
|
-
const $
|
|
10084
|
-
const $
|
|
10085
|
-
const $
|
|
10086
|
-
|
|
10087
|
-
|
|
10088
|
-
|
|
10089
|
-
|
|
10090
|
-
|
|
10091
|
-
|
|
10092
|
-
|
|
10093
|
-
|
|
10094
|
-
|
|
10095
|
-
|
|
10096
|
-
|
|
10097
|
-
|
|
10098
|
-
|
|
10099
|
-
|
|
10100
|
-
|
|
10101
|
-
|
|
10102
|
-
|
|
10103
|
-
|
|
10104
|
-
|
|
10105
|
-
|
|
10106
|
-
|
|
10107
|
-
|
|
10108
|
-
|
|
10109
|
-
|
|
10110
|
-
|
|
10111
|
-
|
|
10112
|
-
const $238 = mainBranch => $239 => $23a => {
|
|
10113
|
-
const $23f = updatedAt => {
|
|
10114
|
-
const $240 = {a1: Prelude_Types_foldMap_Foldable_List(csegen_65()(), $247 => $247, {a1: './', a2: {a1: Data_Config_filename(), a2: {h: 0}}}), a2: $1, a3: $2, a4: $3};
|
|
10115
|
-
return $251 => $252 => {
|
|
10116
|
-
const $263 = teamSlugs => $264 => $265 => {
|
|
10117
|
-
const $276 = orgMembers => $277 => $278 => {
|
|
10118
|
-
const $283 = repoLabels => {
|
|
10119
|
-
const $284 = {a1: updatedAt, a2: org, a3: repo, a4: defaultRemote, a5: mainBranch, a6: requestTeams, a7: requestUsers, a8: commentOnRequest, a9: branchParsing, a10: teamSlugs, a11: repoLabels, a12: orgMembers, a13: {h: 0}, a14: Prelude_Types_map_Functor_Maybe($295 => $295, configPAT), a15: theme, a16: $240};
|
|
10120
|
-
return $299 => $29a => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29d => $29e => Data_Promise_map_Functor_x28Promisex20x24ex29($2a1 => undefined, $2a3 => $2a4 => Config_writeConfig($284, $2a3, $2a4), $29d, $29e), $2ac => $2ad => $2ae => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2b1 => $2b2 => $2b3 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2b6 => Prelude_IO_prim__putStr('Your new configuration is:\n', $2b6), $2b1, $2b2, $2b3), $2be => $2bf => $2c0 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2c3 => $2c4 => $2c5 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2c8 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($284)+'\n'), $2c8), $2c3, $2c4, $2c5), $2d4 => $2d5 => $2d6 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Types_either(() => $2db => Util_renderIO($284, csegen_88()(), $2db), () => csegen_75()(), Config_checkConfigConsistency($284)), $2e9 => $2ea => $2eb => Data_Promise_pure_Applicative_x28Promisex20x24ex29($284, $2ea, $2eb), $2d5, $2d6), $2bf, $2c0), $2ad, $2ae), $299, $29a);
|
|
10121
|
-
};
|
|
10122
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($27b => $27c => FFI_GitHub_listRepoLabels(_, org, repo, $27b, $27c), $283, $277, $278);
|
|
10123
|
-
};
|
|
10124
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($268 => $269 => Config_nonOrgFallback(() => ({h: 0}), $26d => $26e => FFI_GitHub_listOrgMembers(_, org, $26d, $26e), $268, $269), $276, $264, $265);
|
|
10125
|
-
};
|
|
10126
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($255 => $256 => Config_nonOrgFallback(() => ({h: 0}), $25a => $25b => FFI_GitHub_listTeams(_, org, $25a, $25b), $255, $256), $263, $251, $252);
|
|
10127
|
-
};
|
|
10128
|
-
};
|
|
10129
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_421()(), $23f, $239, $23a);
|
|
10130
|
-
};
|
|
10131
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($230 => $231 => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $230, $231), $238, $22c, $22d);
|
|
10087
|
+
const $95 = remoteGuess => $96 => $97 => {
|
|
10088
|
+
const $b3 = defaultOrgAndRepo => $b4 => $b5 => {
|
|
10089
|
+
const $ba = $bb => $bc => $bd => {
|
|
10090
|
+
const $cc = org => $cd => $ce => {
|
|
10091
|
+
const $d3 = $d4 => $d5 => $d6 => {
|
|
10092
|
+
const $e5 = repo => $e6 => $e7 => {
|
|
10093
|
+
const $ec = $ed => $ee => $ef => {
|
|
10094
|
+
const $f9 = defaultRemote => $fa => $fb => {
|
|
10095
|
+
const $100 = $101 => $102 => $103 => {
|
|
10096
|
+
const $10e = commentOnRequest => $10f => $110 => {
|
|
10097
|
+
const $115 = $116 => $117 => $118 => {
|
|
10098
|
+
const $123 = branchParsing => $124 => $125 => {
|
|
10099
|
+
const $12a = $12b => $12c => $12d => {
|
|
10100
|
+
const $136 = requestTeams => $137 => $138 => {
|
|
10101
|
+
const $13d = $13e => $13f => $140 => {
|
|
10102
|
+
const $149 = requestUsers => $14a => $14b => {
|
|
10103
|
+
const $150 = $151 => $152 => $153 => {
|
|
10104
|
+
const $15e = theme => $15f => $160 => {
|
|
10105
|
+
const $165 = $166 => $167 => $168 => {
|
|
10106
|
+
const $177 = _ => $178 => $179 => {
|
|
10107
|
+
const $188 = $189 => $18a => $18b => {
|
|
10108
|
+
const $196 = mainBranch => $197 => $198 => {
|
|
10109
|
+
const $19d = updatedAt => {
|
|
10110
|
+
const $19e = {a1: Prelude_Types_foldMap_Foldable_List(csegen_65()(), $1a5 => $1a5, {a1: './', a2: {a1: Data_Config_filename(), a2: {h: 0}}}), a2: $1, a3: $2, a4: $3};
|
|
10111
|
+
return $1af => $1b0 => {
|
|
10112
|
+
const $1c1 = teamSlugs => $1c2 => $1c3 => {
|
|
10113
|
+
const $1d4 = orgMembers => $1d5 => $1d6 => {
|
|
10114
|
+
const $1e1 = repoLabels => {
|
|
10115
|
+
const $1e2 = {a1: updatedAt, a2: org, a3: repo, a4: defaultRemote, a5: mainBranch, a6: requestTeams, a7: requestUsers, a8: commentOnRequest, a9: branchParsing, a10: teamSlugs, a11: repoLabels, a12: orgMembers, a13: {h: 0}, a14: Prelude_Types_map_Functor_Maybe($1f3 => $1f3, configPAT), a15: theme, a16: $19e};
|
|
10116
|
+
return $1f7 => $1f8 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1fb => $1fc => Data_Promise_map_Functor_x28Promisex20x24ex29($1ff => undefined, $201 => $202 => Config_writeConfig($1e2, $201, $202), $1fb, $1fc), $20a => $20b => $20c => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($20f => $210 => $211 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($214 => Prelude_IO_prim__putStr('Your new configuration is:\n', $214), $20f, $210, $211), $21c => $21d => $21e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($221 => $222 => $223 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($226 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($1e2)+'\n'), $226), $221, $222, $223), $232 => $233 => $234 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Types_either(() => $239 => Util_renderIO($1e2, csegen_88()(), $239), () => csegen_75()(), Config_checkConfigConsistency($1e2)), $247 => $248 => $249 => Data_Promise_pure_Applicative_x28Promisex20x24ex29($1e2, $248, $249), $233, $234), $21d, $21e), $20b, $20c), $1f7, $1f8);
|
|
10132
10117
|
};
|
|
10133
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
10118
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d9 => $1da => FFI_GitHub_listRepoLabels(_, org, repo, $1d9, $1da), $1e1, $1d5, $1d6);
|
|
10134
10119
|
};
|
|
10135
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
10120
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1c6 => $1c7 => Config_nonOrgFallback(() => ({h: 0}), $1cb => $1cc => FFI_GitHub_listOrgMembers(_, org, $1cb, $1cc), $1c6, $1c7), $1d4, $1c2, $1c3);
|
|
10136
10121
|
};
|
|
10137
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10122
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1b3 => $1b4 => Config_nonOrgFallback(() => ({h: 0}), $1b8 => $1b9 => FFI_GitHub_listTeams(_, org, $1b8, $1b9), $1b3, $1b4), $1c1, $1af, $1b0);
|
|
10138
10123
|
};
|
|
10139
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9644_2534_themePrompt($3, $2, $1, $0, csegen_88()()), $200, $1f4, $1f5);
|
|
10140
10124
|
};
|
|
10141
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10125
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_421()(), $19d, $197, $198);
|
|
10142
10126
|
};
|
|
10143
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10127
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($18e => $18f => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $18e, $18f), $196, $18a, $18b);
|
|
10144
10128
|
};
|
|
10145
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10129
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17c => $17d => $17e => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($181 => Prelude_IO_prim__putStr('Creating config...\n', $181), $17c, $17d, $17e), $188, $178, $179);
|
|
10146
10130
|
};
|
|
10147
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10131
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($16b => $16c => $16d => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($170 => FFI_GitHub_octokit($80.a1, $170), $16b, $16c, $16d), $177, $167, $168);
|
|
10148
10132
|
};
|
|
10149
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $
|
|
10133
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $165, $15f, $160);
|
|
10150
10134
|
};
|
|
10151
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10135
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9657_2532_themePrompt($3, $2, $1, $0, csegen_88()()), $15e, $152, $153);
|
|
10152
10136
|
};
|
|
10153
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $
|
|
10137
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $150, $14a, $14b);
|
|
10154
10138
|
};
|
|
10155
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10139
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_88()(), 1, 'Would you like harmony to request reviews from individual users when it requests a teams review?'), $149, $13f, $140);
|
|
10156
10140
|
};
|
|
10157
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $
|
|
10141
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $13d, $137, $138);
|
|
10158
10142
|
};
|
|
10159
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10143
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_yesNoPrompt(csegen_88()(), 1, 'Would you like harmony to request reviews from teams when it requests reviewers?'), $136, $12c, $12d);
|
|
10160
10144
|
};
|
|
10161
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10145
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $12a, $124, $125);
|
|
10162
10146
|
};
|
|
10163
|
-
return $
|
|
10147
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9657_2527_branchParsingPrompt($3, $2, $1, $0, csegen_88()()), $123, $117, $118);
|
|
10164
10148
|
};
|
|
10165
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $
|
|
10149
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $115, $10f, $110);
|
|
10166
10150
|
};
|
|
10167
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10151
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Config_n__9657_2528_commentConfigPrompt($3, $2, $1, $0, csegen_88()()), $10e, $102, $103);
|
|
10168
10152
|
};
|
|
10169
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10153
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $100, $fa, $fb);
|
|
10170
10154
|
};
|
|
10171
|
-
return
|
|
10155
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_88()(), 'What GitHub remote repo would you like to use harmony for?', {a1: remoteGuess}), $f9, $ee, $ef);
|
|
10172
10156
|
};
|
|
10173
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $
|
|
10157
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $ec, $e6, $e7);
|
|
10174
10158
|
};
|
|
10175
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10159
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_88()(), 'What repository would you like to use harmony for?', Config_n__9657_2531_repo($3, $2, $1, $0, defaultOrgAndRepo)), $e5, $d5, $d6);
|
|
10176
10160
|
};
|
|
10177
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10161
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $d3, $cd, $ce);
|
|
10178
10162
|
};
|
|
10179
|
-
return
|
|
10163
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_Prompting_getLineEnterForDefault(csegen_88()(), 'What GitHub org would you like to use harmony for?', Config_n__9657_2530_org($3, $2, $1, $0, defaultOrgAndRepo)), $cc, $bc, $bd);
|
|
10180
10164
|
};
|
|
10181
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $
|
|
10165
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $ba, $b4, $b5);
|
|
10182
10166
|
};
|
|
10183
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
10167
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9a => $9b => Data_Promise_x3cx7cx3e_Alternative_x28Promisex20Stringx29($9e => $9f => Data_Promise_map_Functor_x28Promisex20x24ex29($a2 => Config_parseGitHubURI($a2), $a6 => $a7 => System_Git_remoteURI(remoteGuess, $a6, $a7), $9e, $9f), () => csegen_453()(), $9a, $9b), $b3, $96, $97);
|
|
10184
10168
|
};
|
|
10185
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
10169
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($86 => $87 => Data_Promise_map_Functor_x28Promisex20x24ex29($8a => Config_preferOriginRemote($8a), $8e => $8f => System_Git_listRemotes($8e, $8f), $86, $87), $95, $81, $82);
|
|
10186
10170
|
}
|
|
10187
|
-
default: return Data_Promise_reject('Either the GITHUB_PAT or GH_TOKEN environment variables or githubPAT config property must be set to a personal access token.', $
|
|
10171
|
+
default: return Data_Promise_reject('Either the GITHUB_PAT or GH_TOKEN environment variables or githubPAT config property must be set to a personal access token.', $81, $82);
|
|
10188
10172
|
}
|
|
10189
10173
|
};
|
|
10190
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
10174
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($76 => $77 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_x3cx7cx3e_Alternative_Maybe($0, () => configPAT), $76, $77), $7f, $72, $73);
|
|
10191
10175
|
};
|
|
10192
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
10176
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($60, $71, $5d, $5e);
|
|
10193
10177
|
};
|
|
10194
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
10178
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($36 => $37 => $38 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($3b => Prelude_IO_prim__putStr(Data_String_fastUnlines({a1: 'Harmony uses a GitHub Personal Access Token (PAT) to communicate with GitHub.', a2: {a1: 'You can set this via the $GITHUB_PAT or $GH_TOKEN environment variables or a config property.', a2: {a1: 'If you don\'t set in your config now, you can set later with `harmony config githubPAT abcdefg`.', a2: {a1: 'The ENV var will always take precedence over the config property.', a2: {a1: '', a2: {a1: Prelude_Types_foldMap_Foldable_List(csegen_65()(), $50 => $50, {a1: 'What PAT would you like to set in the config file?', a2: {a1: $2f, a2: {h: 0}}}), a2: {h: 0}}}}}}}), $3b), $36, $37, $38), $5b, $32, $33);
|
|
10195
10179
|
};
|
|
10196
10180
|
return $2e();
|
|
10197
10181
|
};
|
|
@@ -10202,7 +10186,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
|
|
|
10202
10186
|
|
|
10203
10187
|
/* Config.checkConfigConsistency : Config -> Either (Doc AnsiStyle) () */
|
|
10204
10188
|
function Config_checkConfigConsistency($0) {
|
|
10205
|
-
return
|
|
10189
|
+
return Config_n__8566_1406_checkRequestSettings($0, $0);
|
|
10206
10190
|
}
|
|
10207
10191
|
|
|
10208
10192
|
/* Config.addIgnoredPRs : Config -> List Integer -> Promise' Config */
|
|
@@ -10259,7 +10243,7 @@ function AppVersion_printVersion($0) {
|
|
|
10259
10243
|
|
|
10260
10244
|
/* AppVersion.appVersion : String */
|
|
10261
10245
|
const AppVersion_appVersion = __lazy(function () {
|
|
10262
|
-
return '6.
|
|
10246
|
+
return '6.2.0';
|
|
10263
10247
|
});
|
|
10264
10248
|
|
|
10265
10249
|
/* Commands.Help.subcommandHelp' : String -> Doc AnsiStyle */
|
|
@@ -10489,8 +10473,8 @@ function Commands_case__requestx2cpartitionedArgs_21442($0, $1, $2, $3, $4) {
|
|
|
10489
10473
|
return Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_21463($0, $1, $2, $3, $4.a1, $4.a2, Data_List_partition($10 => ShellCompletion_Util_isHashPrefix($10), $4.a2));
|
|
10490
10474
|
}
|
|
10491
10475
|
|
|
10492
|
-
/* Commands.
|
|
10493
|
-
function
|
|
10476
|
+
/* Commands.9018:20478:recombineIntoArgs */
|
|
10477
|
+
function Commands_n__9018_20478_recombineIntoArgs($0, $1) {
|
|
10494
10478
|
switch($1.h) {
|
|
10495
10479
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
10496
10480
|
case undefined: /* cons */ {
|
|
@@ -10499,20 +10483,20 @@ function Commands_n__8993_20478_recombineIntoArgs($0, $1) {
|
|
|
10499
10483
|
switch($1.a2.h) {
|
|
10500
10484
|
case 0: /* nil */ return csegen_660();
|
|
10501
10485
|
case undefined: /* cons */ {
|
|
10502
|
-
const $8 =
|
|
10486
|
+
const $8 = Commands_n__9018_20475_parseIntoOpt($0, $1.a2.a1);
|
|
10503
10487
|
switch($8.h) {
|
|
10504
10488
|
case undefined: /* just */ {
|
|
10505
|
-
const $c =
|
|
10489
|
+
const $c = Commands_n__9018_20478_recombineIntoArgs($0, $1.a2.a2);
|
|
10506
10490
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
10507
10491
|
}
|
|
10508
10492
|
case 0: /* nothing */ {
|
|
10509
|
-
const $14 =
|
|
10493
|
+
const $14 = Commands_n__9018_20478_recombineIntoArgs($0, $1.a2.a2);
|
|
10510
10494
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
10511
10495
|
}
|
|
10512
10496
|
}
|
|
10513
10497
|
}
|
|
10514
10498
|
default: {
|
|
10515
|
-
const $1e =
|
|
10499
|
+
const $1e = Commands_n__9018_20478_recombineIntoArgs($0, $1.a2);
|
|
10516
10500
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
10517
10501
|
}
|
|
10518
10502
|
}
|
|
@@ -10521,26 +10505,26 @@ function Commands_n__8993_20478_recombineIntoArgs($0, $1) {
|
|
|
10521
10505
|
switch($1.a2.h) {
|
|
10522
10506
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--into', a2: {h: 0}}};
|
|
10523
10507
|
case undefined: /* cons */ {
|
|
10524
|
-
const $2b =
|
|
10508
|
+
const $2b = Commands_n__9018_20475_parseIntoOpt($0, $1.a2.a1);
|
|
10525
10509
|
switch($2b.h) {
|
|
10526
10510
|
case undefined: /* just */ {
|
|
10527
|
-
const $2f =
|
|
10511
|
+
const $2f = Commands_n__9018_20478_recombineIntoArgs($0, $1.a2.a2);
|
|
10528
10512
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
10529
10513
|
}
|
|
10530
10514
|
case 0: /* nothing */ {
|
|
10531
|
-
const $37 =
|
|
10515
|
+
const $37 = Commands_n__9018_20478_recombineIntoArgs($0, $1.a2.a2);
|
|
10532
10516
|
return {a1: $37.a1, a2: {a1: '--into', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
10533
10517
|
}
|
|
10534
10518
|
}
|
|
10535
10519
|
}
|
|
10536
10520
|
default: {
|
|
10537
|
-
const $41 =
|
|
10521
|
+
const $41 = Commands_n__9018_20478_recombineIntoArgs($0, $1.a2);
|
|
10538
10522
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
10539
10523
|
}
|
|
10540
10524
|
}
|
|
10541
10525
|
}
|
|
10542
10526
|
default: {
|
|
10543
|
-
const $49 =
|
|
10527
|
+
const $49 = Commands_n__9018_20478_recombineIntoArgs($0, $1.a2);
|
|
10544
10528
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
10545
10529
|
}
|
|
10546
10530
|
}
|
|
@@ -10548,8 +10532,8 @@ function Commands_n__8993_20478_recombineIntoArgs($0, $1) {
|
|
|
10548
10532
|
}
|
|
10549
10533
|
}
|
|
10550
10534
|
|
|
10551
|
-
/* Commands.
|
|
10552
|
-
function
|
|
10535
|
+
/* Commands.11169:22520:recombineIgnoreArgs */
|
|
10536
|
+
function Commands_n__11169_22520_recombineIgnoreArgs($0, $1) {
|
|
10553
10537
|
switch($1.h) {
|
|
10554
10538
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
10555
10539
|
case undefined: /* cons */ {
|
|
@@ -10558,20 +10542,20 @@ function Commands_n__11144_22520_recombineIgnoreArgs($0, $1) {
|
|
|
10558
10542
|
switch($1.a2.h) {
|
|
10559
10543
|
case 0: /* nil */ return csegen_660();
|
|
10560
10544
|
case undefined: /* cons */ {
|
|
10561
|
-
const $8 =
|
|
10545
|
+
const $8 = Commands_n__11169_22517_parseIgnoreOpt($0, $1.a2.a1);
|
|
10562
10546
|
switch($8.h) {
|
|
10563
10547
|
case undefined: /* just */ {
|
|
10564
|
-
const $c =
|
|
10548
|
+
const $c = Commands_n__11169_22520_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10565
10549
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
10566
10550
|
}
|
|
10567
10551
|
case 0: /* nothing */ {
|
|
10568
|
-
const $14 =
|
|
10552
|
+
const $14 = Commands_n__11169_22520_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10569
10553
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
10570
10554
|
}
|
|
10571
10555
|
}
|
|
10572
10556
|
}
|
|
10573
10557
|
default: {
|
|
10574
|
-
const $1e =
|
|
10558
|
+
const $1e = Commands_n__11169_22520_recombineIgnoreArgs($0, $1.a2);
|
|
10575
10559
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
10576
10560
|
}
|
|
10577
10561
|
}
|
|
@@ -10580,26 +10564,26 @@ function Commands_n__11144_22520_recombineIgnoreArgs($0, $1) {
|
|
|
10580
10564
|
switch($1.a2.h) {
|
|
10581
10565
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
|
|
10582
10566
|
case undefined: /* cons */ {
|
|
10583
|
-
const $2b =
|
|
10567
|
+
const $2b = Commands_n__11169_22517_parseIgnoreOpt($0, $1.a2.a1);
|
|
10584
10568
|
switch($2b.h) {
|
|
10585
10569
|
case undefined: /* just */ {
|
|
10586
|
-
const $2f =
|
|
10570
|
+
const $2f = Commands_n__11169_22520_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10587
10571
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
10588
10572
|
}
|
|
10589
10573
|
case 0: /* nothing */ {
|
|
10590
|
-
const $37 =
|
|
10574
|
+
const $37 = Commands_n__11169_22520_recombineIgnoreArgs($0, $1.a2.a2);
|
|
10591
10575
|
return {a1: $37.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
10592
10576
|
}
|
|
10593
10577
|
}
|
|
10594
10578
|
}
|
|
10595
10579
|
default: {
|
|
10596
|
-
const $41 =
|
|
10580
|
+
const $41 = Commands_n__11169_22520_recombineIgnoreArgs($0, $1.a2);
|
|
10597
10581
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
10598
10582
|
}
|
|
10599
10583
|
}
|
|
10600
10584
|
}
|
|
10601
10585
|
default: {
|
|
10602
|
-
const $49 =
|
|
10586
|
+
const $49 = Commands_n__11169_22520_recombineIgnoreArgs($0, $1.a2);
|
|
10603
10587
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
10604
10588
|
}
|
|
10605
10589
|
}
|
|
@@ -10607,23 +10591,23 @@ function Commands_n__11144_22520_recombineIgnoreArgs($0, $1) {
|
|
|
10607
10591
|
}
|
|
10608
10592
|
}
|
|
10609
10593
|
|
|
10610
|
-
/* Commands.
|
|
10611
|
-
function
|
|
10594
|
+
/* Commands.10383:21764:putNameLn */
|
|
10595
|
+
function Commands_n__10383_21764_putNameLn($0, $1, $2, $3) {
|
|
10612
10596
|
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}}}});
|
|
10613
10597
|
}
|
|
10614
10598
|
|
|
10615
|
-
/* Commands.
|
|
10616
|
-
function
|
|
10617
|
-
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $e =>
|
|
10599
|
+
/* Commands.8766:20218:putLabels */
|
|
10600
|
+
function Commands_n__8766_20218_putLabels($0, $1, $2, $3) {
|
|
10601
|
+
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $e => Commands_n__8766_20217_putLabel($0, $1, $2, $e), $3)));
|
|
10618
10602
|
}
|
|
10619
10603
|
|
|
10620
|
-
/* Commands.
|
|
10621
|
-
function
|
|
10604
|
+
/* Commands.8766:20217:putLabel */
|
|
10605
|
+
function Commands_n__8766_20217_putLabel($0, $1, $2, $3) {
|
|
10622
10606
|
return Text_PrettyPrint_Prettyprinter_Doc_enclose(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\"'), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\"'), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3)));
|
|
10623
10607
|
}
|
|
10624
10608
|
|
|
10625
|
-
/* Commands.
|
|
10626
|
-
function
|
|
10609
|
+
/* Commands.11521:22875:printDetails */
|
|
10610
|
+
function Commands_n__11521_22875_printDetails($0, $1, $2, $3) {
|
|
10627
10611
|
const $4 = Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a8));
|
|
10628
10612
|
const $c = Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' \u{251c} title: '), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a2));
|
|
10629
10613
|
const $15 = Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' \u{251c} created:'), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date($3.a3)));
|
|
@@ -10632,8 +10616,8 @@ function Commands_n__11496_22875_printDetails($0, $1, $2, $3) {
|
|
|
10632
10616
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: $4, a2: {a1: $c, a2: {a1: $15, a2: {a1: $20, a2: {a1: $2e, a2: {h: 0}}}}}});
|
|
10633
10617
|
}
|
|
10634
10618
|
|
|
10635
|
-
/* Commands.
|
|
10636
|
-
function
|
|
10619
|
+
/* Commands.11521:22874:pickOne */
|
|
10620
|
+
function Commands_n__11521_22874_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10637
10621
|
const $8 = Data_List_headx27(Data_List_drop($4, Prelude_Types_List_tailRecAppend($6, $7)));
|
|
10638
10622
|
return $11 => $12 => {
|
|
10639
10623
|
switch($8.h) {
|
|
@@ -10657,31 +10641,31 @@ function Commands_n__11496_22874_pickOne($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
10657
10641
|
};
|
|
10658
10642
|
}
|
|
10659
10643
|
|
|
10660
|
-
/* Commands.
|
|
10661
|
-
function
|
|
10644
|
+
/* Commands.10013:21430:partitionedArgs */
|
|
10645
|
+
function Commands_n__10013_21430_partitionedArgs($0, $1, $2, $3) {
|
|
10662
10646
|
return Commands_case__requestx2cpartitionedArgs_21442($0, $1, $2, $3, Data_List_partition($c => Data_String_isPrefixOf('+', $c), $3));
|
|
10663
10647
|
}
|
|
10664
10648
|
|
|
10665
|
-
/* Commands.
|
|
10666
|
-
function
|
|
10649
|
+
/* Commands.10551:21952:parseTeamArg */
|
|
10650
|
+
function Commands_n__10551_21952_parseTeamArg($0, $1) {
|
|
10667
10651
|
return {a1: {a1: $1}};
|
|
10668
10652
|
}
|
|
10669
10653
|
|
|
10670
|
-
/* Commands.
|
|
10671
|
-
function
|
|
10654
|
+
/* Commands.11169:22519:parseSkipArg */
|
|
10655
|
+
function Commands_n__11169_22519_parseSkipArg($0, $1) {
|
|
10672
10656
|
return Commands_case__parseContributeArgsx2cparseSkipArg_22566($0, $1, Data_String_strM($1));
|
|
10673
10657
|
}
|
|
10674
10658
|
|
|
10675
|
-
/* Commands.
|
|
10676
|
-
function
|
|
10659
|
+
/* Commands.9018:20477:parseReadyFlag */
|
|
10660
|
+
function Commands_n__9018_20477_parseReadyFlag($0, $1) {
|
|
10677
10661
|
switch($1) {
|
|
10678
10662
|
case '--ready': return {a1: {h: 1 /* Ready */}};
|
|
10679
10663
|
default: return {h: 0};
|
|
10680
10664
|
}
|
|
10681
10665
|
}
|
|
10682
10666
|
|
|
10683
|
-
/* Commands.
|
|
10684
|
-
function
|
|
10667
|
+
/* Commands.11169:22518:parseListFlag */
|
|
10668
|
+
function Commands_n__11169_22518_parseListFlag($0, $1) {
|
|
10685
10669
|
switch($1) {
|
|
10686
10670
|
case '-l': return {a1: {h: 0 /* List */}};
|
|
10687
10671
|
case '--list': return {a1: {h: 0 /* List */}};
|
|
@@ -10689,8 +10673,8 @@ function Commands_n__11144_22518_parseListFlag($0, $1) {
|
|
|
10689
10673
|
}
|
|
10690
10674
|
}
|
|
10691
10675
|
|
|
10692
|
-
/* Commands.
|
|
10693
|
-
function
|
|
10676
|
+
/* Commands.9018:20476:parseLabelArg */
|
|
10677
|
+
function Commands_n__9018_20476_parseLabelArg($0, $1) {
|
|
10694
10678
|
const $2 = Data_String_strM($1);
|
|
10695
10679
|
switch($2.h) {
|
|
10696
10680
|
case undefined: /* cons */ {
|
|
@@ -10703,29 +10687,29 @@ function Commands_n__8993_20476_parseLabelArg($0, $1) {
|
|
|
10703
10687
|
}
|
|
10704
10688
|
}
|
|
10705
10689
|
|
|
10706
|
-
/* Commands.
|
|
10707
|
-
function
|
|
10690
|
+
/* Commands.9018:20475:parseIntoOpt */
|
|
10691
|
+
function Commands_n__9018_20475_parseIntoOpt($0, $1) {
|
|
10708
10692
|
const $2 = Util_String_nonEmpty($1);
|
|
10709
10693
|
return Prelude_Types_map_Functor_Maybe($7 => $7, $2);
|
|
10710
10694
|
}
|
|
10711
10695
|
|
|
10712
|
-
/* Commands.
|
|
10713
|
-
function
|
|
10696
|
+
/* Commands.11169:22517:parseIgnoreOpt */
|
|
10697
|
+
function Commands_n__11169_22517_parseIgnoreOpt($0, $1) {
|
|
10714
10698
|
const $2 = Data_String_split(csegen_402(), $1);
|
|
10715
10699
|
const $7 = Data_List1_last($2);
|
|
10716
10700
|
return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
|
|
10717
10701
|
}
|
|
10718
10702
|
|
|
10719
|
-
/* Commands.
|
|
10720
|
-
function
|
|
10703
|
+
/* Commands.9018:20474:parseDraftFlag */
|
|
10704
|
+
function Commands_n__9018_20474_parseDraftFlag($0, $1) {
|
|
10721
10705
|
switch($1) {
|
|
10722
10706
|
case '--draft': return {a1: {h: 0 /* Draft */}};
|
|
10723
10707
|
default: return {h: 0};
|
|
10724
10708
|
}
|
|
10725
10709
|
}
|
|
10726
10710
|
|
|
10727
|
-
/* Commands.
|
|
10728
|
-
function
|
|
10711
|
+
/* Commands.10551:21951:parseCompletedFlag */
|
|
10712
|
+
function Commands_n__10551_21951_parseCompletedFlag($0, $1) {
|
|
10729
10713
|
switch($1) {
|
|
10730
10714
|
case '-c': return {a1: {h: 0}};
|
|
10731
10715
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -10733,8 +10717,8 @@ function Commands_n__10526_21951_parseCompletedFlag($0, $1) {
|
|
|
10733
10717
|
}
|
|
10734
10718
|
}
|
|
10735
10719
|
|
|
10736
|
-
/* Commands.
|
|
10737
|
-
function
|
|
10720
|
+
/* Commands.11169:22516:parseCheckoutFlag */
|
|
10721
|
+
function Commands_n__11169_22516_parseCheckoutFlag($0, $1) {
|
|
10738
10722
|
switch($1) {
|
|
10739
10723
|
case '-c': return {a1: {h: 1 /* Checkout */}};
|
|
10740
10724
|
case '--checkout': return {a1: {h: 1 /* Checkout */}};
|
|
@@ -10742,8 +10726,8 @@ function Commands_n__11144_22516_parseCheckoutFlag($0, $1) {
|
|
|
10742
10726
|
}
|
|
10743
10727
|
}
|
|
10744
10728
|
|
|
10745
|
-
/* Commands.
|
|
10746
|
-
function
|
|
10729
|
+
/* Commands.9484:20943:markAsReady */
|
|
10730
|
+
function Commands_n__9484_20943_markAsReady($0, $1, $2) {
|
|
10747
10731
|
const $6 = $7 => {
|
|
10748
10732
|
switch($7.h) {
|
|
10749
10733
|
case 1: /* Ready */ return 1;
|
|
@@ -10754,8 +10738,8 @@ function Commands_n__9459_20943_markAsReady($0, $1, $2) {
|
|
|
10754
10738
|
return Data_Maybe_isJust($4);
|
|
10755
10739
|
}
|
|
10756
10740
|
|
|
10757
|
-
/* Commands.
|
|
10758
|
-
function
|
|
10741
|
+
/* Commands.9484:20942:markAsDraft */
|
|
10742
|
+
function Commands_n__9484_20942_markAsDraft($0, $1, $2) {
|
|
10759
10743
|
const $6 = $7 => {
|
|
10760
10744
|
switch($7.h) {
|
|
10761
10745
|
case 0: /* Draft */ return 1;
|
|
@@ -10766,8 +10750,8 @@ function Commands_n__9459_20942_markAsDraft($0, $1, $2) {
|
|
|
10766
10750
|
return Data_Maybe_isJust($4);
|
|
10767
10751
|
}
|
|
10768
10752
|
|
|
10769
|
-
/* Commands.
|
|
10770
|
-
function
|
|
10753
|
+
/* Commands.11521:22873:listSome */
|
|
10754
|
+
function Commands_n__11521_22873_listSome($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10771
10755
|
const $13 = $14 => {
|
|
10772
10756
|
let $19;
|
|
10773
10757
|
switch(Prelude_Types_null_Foldable_List($5)) {
|
|
@@ -10780,13 +10764,13 @@ function Commands_n__11496_22873_listSome($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
10780
10764
|
break;
|
|
10781
10765
|
}
|
|
10782
10766
|
}
|
|
10783
|
-
return Prelude_Interfaces_when(csegen_80()(), $19, () => $1e => $1f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $25 => $26 => $27 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_renderIO($2, csegen_88()(), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_bold(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Your review not requested:'))), $37 =>
|
|
10767
|
+
return Prelude_Interfaces_when(csegen_80()(), $19, () => $1e => $1f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $25 => $26 => $27 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_renderIO($2, csegen_88()(), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_bold(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Your review not requested:'))), $37 => Commands_n__11521_22871_goListSome($0, $1, $2, 0, Data_List_take(5n, $5)), $26, $27), $1e, $1f));
|
|
10784
10768
|
};
|
|
10785
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10769
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_n__11521_22871_goListSome($0, $1, $2, 1, Data_List_drop($3, $4)), $13, $6, $7);
|
|
10786
10770
|
}
|
|
10787
10771
|
|
|
10788
|
-
/* Commands.
|
|
10789
|
-
function
|
|
10772
|
+
/* Commands.9484:20941:labelSlugs */
|
|
10773
|
+
function Commands_n__9484_20941_labelSlugs($0, $1, $2) {
|
|
10790
10774
|
const $4 = $5 => $6 => {
|
|
10791
10775
|
switch($5.h) {
|
|
10792
10776
|
case 3: /* Label */ return {a1: $5.a1, a2: $6};
|
|
@@ -10796,13 +10780,13 @@ function Commands_n__9459_20941_labelSlugs($0, $1, $2) {
|
|
|
10796
10780
|
return Prelude_Types_foldr_Foldable_List($4, {h: 0}, $2);
|
|
10797
10781
|
}
|
|
10798
10782
|
|
|
10799
|
-
/* Commands.
|
|
10800
|
-
function
|
|
10783
|
+
/* Commands.11521:22872:isNotIgnored */
|
|
10784
|
+
function Commands_n__11521_22872_isNotIgnored($0, $1, $2, $3, $4) {
|
|
10801
10785
|
return Data_Maybe_isNothing(Data_List_find($9 => Prelude_EqOrd_x3dx3d_Eq_Integer($9, $4.a1), $3.a13));
|
|
10802
10786
|
}
|
|
10803
10787
|
|
|
10804
|
-
/* Commands.
|
|
10805
|
-
function
|
|
10788
|
+
/* Commands.9484:20940:intoBranch */
|
|
10789
|
+
function Commands_n__9484_20940_intoBranch($0, $1, $2) {
|
|
10806
10790
|
const $c = $d => {
|
|
10807
10791
|
switch($d.h) {
|
|
10808
10792
|
case 2: /* Into */ return {a1: Util_String_value($d.a1)};
|
|
@@ -10812,11 +10796,11 @@ function Commands_n__9459_20940_intoBranch($0, $1, $2) {
|
|
|
10812
10796
|
return Prelude_Types_foldMap_Foldable_List({a1: $6 => $7 => Prelude_Types_x3cx2bx3e_Semigroup_x28Maybex20x24ax29($6, $7), a2: {h: 0}}, $c, $2);
|
|
10813
10797
|
}
|
|
10814
10798
|
|
|
10815
|
-
/* Commands.
|
|
10816
|
-
function
|
|
10799
|
+
/* Commands.11521:22871:goListSome */
|
|
10800
|
+
function Commands_n__11521_22871_goListSome($0, $1, $2, $3, $4) {
|
|
10817
10801
|
switch($4.h) {
|
|
10818
10802
|
case undefined: /* cons */ {
|
|
10819
|
-
const $6 =
|
|
10803
|
+
const $6 = Commands_n__11521_22875_printDetails($0, $1, $2, $4.a1);
|
|
10820
10804
|
let $13;
|
|
10821
10805
|
switch($3) {
|
|
10822
10806
|
case 1: {
|
|
@@ -10828,15 +10812,15 @@ function Commands_n__11496_22871_goListSome($0, $1, $2, $3, $4) {
|
|
|
10828
10812
|
break;
|
|
10829
10813
|
}
|
|
10830
10814
|
}
|
|
10831
|
-
const $11 = Text_PrettyPrint_Prettyprinter_Doc_indent($13, Prelude_Types_foldl_Foldable_List(acc => next => Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: acc, a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
10815
|
+
const $11 = Text_PrettyPrint_Prettyprinter_Doc_indent($13, Prelude_Types_foldl_Foldable_List(acc => next => Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: acc, a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_n__11521_22875_printDetails($0, $1, $2, next), a2: {h: 0}}}}), $6, $4.a2));
|
|
10832
10816
|
return Util_renderIO($2, csegen_88()(), $11);
|
|
10833
10817
|
}
|
|
10834
10818
|
case 0: /* nil */ return csegen_665();
|
|
10835
10819
|
}
|
|
10836
10820
|
}
|
|
10837
10821
|
|
|
10838
|
-
/* Commands.
|
|
10839
|
-
function
|
|
10822
|
+
/* Commands.12585:23856:go */
|
|
10823
|
+
function Commands_n__12585_23856_go($0, $1) {
|
|
10840
10824
|
switch($1.h) {
|
|
10841
10825
|
case 0: /* nothing */ return $0;
|
|
10842
10826
|
default: {
|
|
@@ -10848,15 +10832,15 @@ function Commands_n__12560_23856_go($0, $1) {
|
|
|
10848
10832
|
}
|
|
10849
10833
|
}
|
|
10850
10834
|
|
|
10851
|
-
/* Commands.
|
|
10852
|
-
function
|
|
10835
|
+
/* Commands.10383:21763:forkedUser */
|
|
10836
|
+
function Commands_n__10383_21763_forkedUser($0, $1, $2, $3) {
|
|
10853
10837
|
return FFI_Concurrency_fork(csegen_88()(), ('user --json '+$3));
|
|
10854
10838
|
}
|
|
10855
10839
|
|
|
10856
|
-
/* Commands.
|
|
10857
|
-
function
|
|
10858
|
-
switch(
|
|
10859
|
-
case 1: return
|
|
10840
|
+
/* Commands.9484:20939:conflictingDraftReadyArgs */
|
|
10841
|
+
function Commands_n__9484_20939_conflictingDraftReadyArgs($0, $1, $2) {
|
|
10842
|
+
switch(Commands_n__9484_20942_markAsDraft($0, $1, $2)) {
|
|
10843
|
+
case 1: return Commands_n__9484_20943_markAsReady($0, $1, $2);
|
|
10860
10844
|
case 0: return 0;
|
|
10861
10845
|
}
|
|
10862
10846
|
}
|
|
@@ -10868,7 +10852,7 @@ function Commands_whoami($0, $1, $2, $3) {
|
|
|
10868
10852
|
|
|
10869
10853
|
/* Commands.titleArg : List QuickArg -> Maybe String */
|
|
10870
10854
|
function Commands_titleArg($0) {
|
|
10871
|
-
return Prelude_Types_foldl_Foldable_List($3 => $4 =>
|
|
10855
|
+
return Prelude_Types_foldl_Foldable_List($3 => $4 => Commands_n__12585_23856_go($3, $4), {h: 0}, $0);
|
|
10872
10856
|
}
|
|
10873
10857
|
|
|
10874
10858
|
/* Commands.teamNameArg : GraphArg -> Maybe String */
|
|
@@ -10894,7 +10878,7 @@ function Commands_skipArg($0) {
|
|
|
10894
10878
|
|
|
10895
10879
|
/* Commands.request : Config => Octokit => List String -> {default False _ : Bool} -> Promise' () */
|
|
10896
10880
|
function Commands_request($0, $1, $2, $3) {
|
|
10897
|
-
return Commands_case__request_21539($0, $1, $3, $2,
|
|
10881
|
+
return Commands_case__request_21539($0, $1, $3, $2, Commands_n__10013_21430_partitionedArgs($0, $1, $3, $2));
|
|
10898
10882
|
}
|
|
10899
10883
|
|
|
10900
10884
|
/* Commands.reflect : Config => Octokit => Promise' () */
|
|
@@ -10926,7 +10910,7 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
10926
10910
|
};
|
|
10927
10911
|
const $55 = $56 => $57 => $58 => {
|
|
10928
10912
|
let $5f;
|
|
10929
|
-
switch(Prelude_Types_null_Foldable_List(
|
|
10913
|
+
switch(Prelude_Types_null_Foldable_List(Commands_n__9484_20941_labelSlugs($0, $1, $2))) {
|
|
10930
10914
|
case 1: {
|
|
10931
10915
|
$5f = 0;
|
|
10932
10916
|
break;
|
|
@@ -10936,10 +10920,10 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
10936
10920
|
break;
|
|
10937
10921
|
}
|
|
10938
10922
|
}
|
|
10939
|
-
const $5a = Prelude_Interfaces_when(csegen_80()(), $5f, () => $68 => $69 => Commands_label($0, $1,
|
|
10923
|
+
const $5a = Prelude_Interfaces_when(csegen_80()(), $5f, () => $68 => $69 => Commands_label($0, $1, Commands_n__9484_20941_labelSlugs($0, $1, $2), $68, $69));
|
|
10940
10924
|
const $74 = $75 => $76 => $77 => {
|
|
10941
10925
|
const $79 = $7a => {
|
|
10942
|
-
const $7b =
|
|
10926
|
+
const $7b = Commands_n__9484_20940_intoBranch($0, $1, $2);
|
|
10943
10927
|
switch($7b.h) {
|
|
10944
10928
|
case undefined: /* just */ {
|
|
10945
10929
|
return $80 => {
|
|
@@ -10954,7 +10938,7 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
10954
10938
|
};
|
|
10955
10939
|
const $9f = $a0 => $a1 => $a2 => {
|
|
10956
10940
|
let $a9;
|
|
10957
|
-
switch(
|
|
10941
|
+
switch(Commands_n__9484_20942_markAsDraft($0, $1, $2)) {
|
|
10958
10942
|
case 1: {
|
|
10959
10943
|
switch($39.a2.a4) {
|
|
10960
10944
|
case 1: {
|
|
@@ -10987,7 +10971,7 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
10987
10971
|
});
|
|
10988
10972
|
const $f9 = $fa => {
|
|
10989
10973
|
let $ff;
|
|
10990
|
-
switch(
|
|
10974
|
+
switch(Commands_n__9484_20943_markAsReady($0, $1, $2)) {
|
|
10991
10975
|
case 1: {
|
|
10992
10976
|
$ff = $39.a2.a4;
|
|
10993
10977
|
break;
|
|
@@ -11021,9 +11005,9 @@ function Commands_pr($0, $1, $2, $3, $4) {
|
|
|
11021
11005
|
case 1: /* Hypothetical */ return $156 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($159 => Prelude_IO_prim__putStr(($39.a1+'\n'), $159), $3a, $3b, $156);
|
|
11022
11006
|
}
|
|
11023
11007
|
};
|
|
11024
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d => $1e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_642(), $23 => $24 => $25 => Commands_PullRequest_identifyOrCreatePR($0, $1,
|
|
11008
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1d => $1e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_642(), $23 => $24 => $25 => Commands_PullRequest_identifyOrCreatePR($0, $1, Commands_n__9484_20942_markAsDraft($0, $1, $2), Commands_n__9484_20940_intoBranch($0, $1, $2), $23, $24, $25), $1d, $1e), $38, $19, $1a);
|
|
11025
11009
|
};
|
|
11026
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_80()(),
|
|
11010
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Interfaces_when(csegen_80()(), Commands_n__9484_20939_conflictingDraftReadyArgs($0, $1, $2), () => $11 => $12 => Data_Promise_reject('You cannot set a PR as ready for review and mark it as a draft at the same time.', $11, $12)), $17, $3, $4);
|
|
11027
11011
|
}
|
|
11028
11012
|
|
|
11029
11013
|
/* Commands.parseQuickArgs : List String -> List QuickArg */
|
|
@@ -11044,9 +11028,9 @@ function Commands_parsePrArgs($0) {
|
|
|
11044
11028
|
switch($0.h) {
|
|
11045
11029
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
11046
11030
|
default: {
|
|
11047
|
-
const $3 =
|
|
11031
|
+
const $3 = Commands_n__9018_20478_recombineIntoArgs($0, $0);
|
|
11048
11032
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 2 /* Into */, a1: $b}), $3.a1);
|
|
11049
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_688(), $18 =>
|
|
11033
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_688(), $18 => Commands_n__9018_20477_parseReadyFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_688(), $22 => Commands_n__9018_20474_parseDraftFlag($0, $22), $27 => Commands_n__9018_20476_parseLabelArg($0, $27), $1d), $13), $3.a2);
|
|
11050
11034
|
return Data_Either_maybeToEither(() => Commands_prUsageError(), Prelude_Types_map_Functor_Maybe($34 => Prelude_Types_List_tailRecAppend($7, $34), $e));
|
|
11051
11035
|
}
|
|
11052
11036
|
}
|
|
@@ -11062,7 +11046,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11062
11046
|
switch($0.a2.a2.h) {
|
|
11063
11047
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
11064
11048
|
default: {
|
|
11065
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_688(), $10 =>
|
|
11049
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_688(), $10 => Commands_n__10551_21951_parseCompletedFlag($0, $10), $15 => Commands_n__10551_21952_parseTeamArg($0, $15), $b), $0);
|
|
11066
11050
|
switch($6.h) {
|
|
11067
11051
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
11068
11052
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -11071,7 +11055,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11071
11055
|
}
|
|
11072
11056
|
}
|
|
11073
11057
|
default: {
|
|
11074
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_688(), $27 =>
|
|
11058
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_688(), $27 => Commands_n__10551_21951_parseCompletedFlag($0, $27), $2c => Commands_n__10551_21952_parseTeamArg($0, $2c), $22), $0);
|
|
11075
11059
|
switch($1d.h) {
|
|
11076
11060
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
11077
11061
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -11080,7 +11064,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
11080
11064
|
}
|
|
11081
11065
|
}
|
|
11082
11066
|
default: {
|
|
11083
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_688(), $3e =>
|
|
11067
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_688(), $3e => Commands_n__10551_21951_parseCompletedFlag($0, $3e), $43 => Commands_n__10551_21952_parseTeamArg($0, $43), $39), $0);
|
|
11084
11068
|
switch($34.h) {
|
|
11085
11069
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
11086
11070
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -11094,9 +11078,9 @@ function Commands_parseContributeArgs($0) {
|
|
|
11094
11078
|
switch($0.h) {
|
|
11095
11079
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
11096
11080
|
default: {
|
|
11097
|
-
const $3 =
|
|
11081
|
+
const $3 = Commands_n__11169_22520_recombineIgnoreArgs($0, $0);
|
|
11098
11082
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 2 /* Ignore */, a1: $b}), $3.a1);
|
|
11099
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_688(), $18 =>
|
|
11083
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_688(), $18 => Commands_n__11169_22518_parseListFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_688(), $22 => Commands_n__11169_22519_parseSkipArg($0, $22), $27 => Commands_n__11169_22516_parseCheckoutFlag($0, $27), $1d), $13), $3.a2);
|
|
11100
11084
|
return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($34 => Prelude_Types_List_tailRecAppend($7, $34), $e));
|
|
11101
11085
|
}
|
|
11102
11086
|
}
|
|
@@ -11109,7 +11093,7 @@ function Commands_listOrgTeams($0, $1, $2, $3) {
|
|
|
11109
11093
|
|
|
11110
11094
|
/* Commands.list : Config => Octokit => String -> Promise' () */
|
|
11111
11095
|
function Commands_list($0, $1, $2, $3, $4) {
|
|
11112
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_689(), $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_81()(), csegen_691(), Prelude_Types_traverse_Traversable_List(csegen_80()(), $29 =>
|
|
11096
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_689(), $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_81()(), csegen_691(), Prelude_Types_traverse_Traversable_List(csegen_80()(), $29 => Commands_n__10383_21763_forkedUser($1, $2, $0, $29), teamMemberLogins)), teamMembersJson => $31 => $32 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Types_traverse_Traversable_List(csegen_80()(), $3a => $3b => Data_Promise_either(Data_User_parseUser($3a), $3b), teamMembersJson), teamMembers => Util_renderIO($0, csegen_88()(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $4e => Commands_n__10383_21764_putNameLn($1, $2, $0, $4e), teamMembers))), $31, $32), $19, $1a), $3, $4);
|
|
11113
11097
|
}
|
|
11114
11098
|
|
|
11115
11099
|
/* Commands.label : Config => Octokit => List String -> Promise' () */
|
|
@@ -11118,7 +11102,7 @@ function Commands_label($0, $1, $2, $3, $4) {
|
|
|
11118
11102
|
switch($1b.h) {
|
|
11119
11103
|
case 0: /* Actual */ {
|
|
11120
11104
|
const $1d = Prelude_Types_List_mapAppend({h: 0}, $21 => Commands_Label_unslugifyLabel($0.a11, $21), $2);
|
|
11121
|
-
return $27 => $28 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2b => $2c => Commands_Label_addLabels($0, $1, $1b.a2, $1d, $2b, $2c), allLabels => Util_renderIO($0, csegen_88()(), 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(
|
|
11105
|
+
return $27 => $28 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2b => $2c => Commands_Label_addLabels($0, $1, $1b.a2, $1d, $2b, $2c), allLabels => Util_renderIO($0, csegen_88()(), 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__8766_20218_putLabels($1, $2, $0, $1d), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(' to PR.'), a2: {h: 0}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $5c => $5c, {a1: 'All labels for PR of ', a2: {a1: $1b.a2.a8, a2: {a1: ':', a2: {h: 0}}}})), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8766_20218_putLabels($1, $2, $0, allLabels), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('.'), a2: {h: 0}}))), a2: {h: 0}}})), $27, $28);
|
|
11122
11106
|
}
|
|
11123
11107
|
case 1: /* Hypothetical */ return $77 => $78 => Data_Promise_reject('You cannot label a PR that has not been created yet and you cannot create the PR in this non-TTY shell', $77, $78);
|
|
11124
11108
|
}
|
|
@@ -11158,75 +11142,75 @@ function Commands_contribute($0, $1, $2, $3, $4) {
|
|
|
11158
11142
|
};
|
|
11159
11143
|
const $12 = Prelude_Types_List_filterAppend({h: 0}, $15, openPrs);
|
|
11160
11144
|
return $1a => $1b => {
|
|
11161
|
-
const $
|
|
11162
|
-
const $
|
|
11163
|
-
return $
|
|
11164
|
-
const $
|
|
11165
|
-
switch(Prelude_Types_null_Foldable_List($
|
|
11166
|
-
case 1: return Data_Promise_pure_Applicative_x28Promisex20x24ex29($0, $
|
|
11167
|
-
case 0: return Config_addIgnoredPRs($0, $
|
|
11145
|
+
const $28 = myLogin => {
|
|
11146
|
+
const $29 = Commands_ignorePRNums($2);
|
|
11147
|
+
return $2c => $2d => {
|
|
11148
|
+
const $2f = $30 => $31 => {
|
|
11149
|
+
switch(Prelude_Types_null_Foldable_List($29)) {
|
|
11150
|
+
case 1: return Data_Promise_pure_Applicative_x28Promisex20x24ex29($0, $30, $31);
|
|
11151
|
+
case 0: return Config_addIgnoredPRs($0, $29, $30, $31);
|
|
11168
11152
|
}
|
|
11169
11153
|
};
|
|
11170
|
-
const $
|
|
11171
|
-
const $
|
|
11172
|
-
const $
|
|
11173
|
-
switch($
|
|
11154
|
+
const $3e = configx27 => {
|
|
11155
|
+
const $3f = Data_Maybe_fromMaybe(() => 0n, Data_List_headx27(Prelude_Types_List_mapMaybeAppend({h: 0}, $48 => Commands_skipArg($48), $2)));
|
|
11156
|
+
const $4e = $4f => {
|
|
11157
|
+
switch($4f.h) {
|
|
11174
11158
|
case 1: /* Checkout */ return 1;
|
|
11175
11159
|
default: return 0;
|
|
11176
11160
|
}
|
|
11177
11161
|
};
|
|
11178
|
-
const $
|
|
11179
|
-
const $
|
|
11180
|
-
switch($
|
|
11162
|
+
const $4c = Data_List_find($4e, $2);
|
|
11163
|
+
const $54 = $55 => {
|
|
11164
|
+
switch($55.h) {
|
|
11181
11165
|
case 0: /* List */ return 1;
|
|
11182
11166
|
default: return 0;
|
|
11183
11167
|
}
|
|
11184
11168
|
};
|
|
11185
|
-
const $
|
|
11186
|
-
return $
|
|
11187
|
-
let $
|
|
11188
|
-
switch(Data_Maybe_isJust($
|
|
11169
|
+
const $52 = Data_List_find($54, $2);
|
|
11170
|
+
return $58 => $59 => {
|
|
11171
|
+
let $60;
|
|
11172
|
+
switch(Data_Maybe_isJust($4c)) {
|
|
11189
11173
|
case 1: {
|
|
11190
|
-
$
|
|
11174
|
+
$60 = Data_Maybe_isJust($52);
|
|
11191
11175
|
break;
|
|
11192
11176
|
}
|
|
11193
11177
|
case 0: {
|
|
11194
|
-
$
|
|
11178
|
+
$60 = 0;
|
|
11195
11179
|
break;
|
|
11196
11180
|
}
|
|
11197
11181
|
}
|
|
11198
|
-
const $
|
|
11199
|
-
const $
|
|
11200
|
-
const $
|
|
11201
|
-
switch(Data_PullRequest_isAuthor(myLogin, $
|
|
11182
|
+
const $5b = Prelude_Interfaces_when(csegen_80()(), $60, () => $67 => $68 => Data_Promise_reject('The --checkout and --list options are mutually exclusive', $67, $68));
|
|
11183
|
+
const $6d = $6e => {
|
|
11184
|
+
const $73 = $74 => {
|
|
11185
|
+
switch(Data_PullRequest_isAuthor(myLogin, $74)) {
|
|
11202
11186
|
case 1: return 0;
|
|
11203
11187
|
case 0: return 1;
|
|
11204
11188
|
}
|
|
11205
11189
|
};
|
|
11206
|
-
const $
|
|
11207
|
-
const $
|
|
11208
|
-
const $
|
|
11209
|
-
const $
|
|
11210
|
-
let $
|
|
11211
|
-
switch($
|
|
11190
|
+
const $70 = Prelude_Types_List_filterAppend({h: 0}, $73, $12);
|
|
11191
|
+
const $7a = Prelude_Types_List_filterAppend({h: 0}, $7e => Commands_n__11521_22872_isNotIgnored($1, $2, $0, configx27, $7e), $70);
|
|
11192
|
+
const $86 = Data_List_partition($89 => Data_PullRequest_isRequestedReviewer(myLogin, $89), $7a);
|
|
11193
|
+
const $8e = Prelude_Interfaces_mapHom(csegen_656(), $94 => Data_List_sortBy(csegen_705(), $94))($86);
|
|
11194
|
+
let $6f;
|
|
11195
|
+
switch($52.h) {
|
|
11212
11196
|
case 0: /* nothing */ {
|
|
11213
|
-
$
|
|
11197
|
+
$6f = () => Commands_n__11521_22874_pickOne($1, $2, $0, configx27, $3f, $4c, $8e.a1, $8e.a2);
|
|
11214
11198
|
break;
|
|
11215
11199
|
}
|
|
11216
11200
|
case undefined: /* just */ {
|
|
11217
|
-
$
|
|
11201
|
+
$6f = () => $a4 => $a5 => Commands_n__11521_22873_listSome($1, $2, $0, $3f, $8e.a1, $8e.a2, $a4, $a5);
|
|
11218
11202
|
break;
|
|
11219
11203
|
}
|
|
11220
11204
|
}
|
|
11221
|
-
return $
|
|
11205
|
+
return $6f();
|
|
11222
11206
|
};
|
|
11223
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11207
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($5b, $6d, $58, $59);
|
|
11224
11208
|
};
|
|
11225
11209
|
};
|
|
11226
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11210
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2f, $3e, $2c, $2d);
|
|
11227
11211
|
};
|
|
11228
11212
|
};
|
|
11229
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => $1f => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_408()
|
|
11213
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => $1f => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_408(), FFI_GitHub_getSelf($1), $1e, $1f), $28, $1a, $1b);
|
|
11230
11214
|
};
|
|
11231
11215
|
};
|
|
11232
11216
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequests($1, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $11, $3, $4);
|
|
@@ -11464,62 +11448,62 @@ function Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0,
|
|
|
11464
11448
|
return Util_renderIO($0, csegen_88()(), 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));
|
|
11465
11449
|
}
|
|
11466
11450
|
|
|
11467
|
-
/* Commands.User.Me.
|
|
11468
|
-
function
|
|
11451
|
+
/* Commands.User.Me.7619:2049:ul */
|
|
11452
|
+
function Commands_User_Me_n__7619_2049_ul($0, $1, $2, $3, $4) {
|
|
11469
11453
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
11470
11454
|
}
|
|
11471
11455
|
|
|
11472
|
-
/* Commands.User.Me.
|
|
11473
|
-
function
|
|
11474
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
11456
|
+
/* Commands.User.Me.7619:2048:teams */
|
|
11457
|
+
function Commands_User_Me_n__7619_2048_teams($0, $1, $2, $3) {
|
|
11458
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_User_Me_n__7619_2049_ul($0, $1, $2, $3, 'GitHub Teams:'), a2: Prelude_Types_List_mapAppend({h: 0}, $11 => Commands_User_Me_n__7619_2046_it($0, $1, $2, $3, $11), $0)});
|
|
11475
11459
|
}
|
|
11476
11460
|
|
|
11477
|
-
/* Commands.User.Me.
|
|
11478
|
-
function
|
|
11479
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'),
|
|
11461
|
+
/* Commands.User.Me.7619:2047:login */
|
|
11462
|
+
function Commands_User_Me_n__7619_2047_login($0, $1, $2, $3) {
|
|
11463
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'), Commands_User_Me_n__7619_2043_dataVal($0, $1, $2, $3, $1.a1));
|
|
11480
11464
|
}
|
|
11481
11465
|
|
|
11482
|
-
/* Commands.User.Reflect.
|
|
11483
|
-
function
|
|
11466
|
+
/* Commands.User.Reflect.6674:1075:ital */
|
|
11467
|
+
function Commands_User_Reflect_n__6674_1075_ital($0, $1) {
|
|
11484
11468
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
11485
11469
|
}
|
|
11486
11470
|
|
|
11487
|
-
/* Commands.User.Me.
|
|
11488
|
-
function
|
|
11471
|
+
/* Commands.User.Me.7619:2046:it */
|
|
11472
|
+
function Commands_User_Me_n__7619_2046_it($0, $1, $2, $3, $4) {
|
|
11489
11473
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
11490
11474
|
}
|
|
11491
11475
|
|
|
11492
|
-
/* Commands.User.Me.
|
|
11493
|
-
function
|
|
11476
|
+
/* Commands.User.Me.7769:2196:handleUnsetEmail */
|
|
11477
|
+
function Commands_User_Me_n__7769_2196_handleUnsetEmail($0, $1, $2) {
|
|
11494
11478
|
switch($2) {
|
|
11495
11479
|
case '': return {h: 0};
|
|
11496
11480
|
default: return {a1: $2};
|
|
11497
11481
|
}
|
|
11498
11482
|
}
|
|
11499
11483
|
|
|
11500
|
-
/* Commands.User.Me.
|
|
11501
|
-
function
|
|
11502
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'),
|
|
11484
|
+
/* Commands.User.Me.7619:2045:fullName */
|
|
11485
|
+
function Commands_User_Me_n__7619_2045_fullName($0, $1, $2, $3) {
|
|
11486
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'), Commands_User_Me_n__7619_2043_dataVal($0, $1, $2, $3, $1.a2));
|
|
11503
11487
|
}
|
|
11504
11488
|
|
|
11505
|
-
/* Commands.User.Me.
|
|
11506
|
-
function
|
|
11489
|
+
/* Commands.User.Me.7619:2044:email */
|
|
11490
|
+
function Commands_User_Me_n__7619_2044_email($0, $1, $2, $3) {
|
|
11507
11491
|
let $8;
|
|
11508
11492
|
switch($2.h) {
|
|
11509
11493
|
case undefined: /* just */ {
|
|
11510
|
-
$8 =
|
|
11494
|
+
$8 = Commands_User_Me_n__7619_2043_dataVal($0, $1, $2, $3, $2.a1);
|
|
11511
11495
|
break;
|
|
11512
11496
|
}
|
|
11513
11497
|
case 0: /* nothing */ {
|
|
11514
|
-
$8 =
|
|
11498
|
+
$8 = Commands_User_Me_n__7619_2046_it($0, $1, $2, $3, 'Not set');
|
|
11515
11499
|
break;
|
|
11516
11500
|
}
|
|
11517
11501
|
}
|
|
11518
11502
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Git Email:'), $8);
|
|
11519
11503
|
}
|
|
11520
11504
|
|
|
11521
|
-
/* Commands.User.Me.
|
|
11522
|
-
function
|
|
11505
|
+
/* Commands.User.Me.7619:2043:dataVal */
|
|
11506
|
+
function Commands_User_Me_n__7619_2043_dataVal($0, $1, $2, $3, $4) {
|
|
11523
11507
|
return Theme_theme($3, csegen_730(), Theme_cs({a1: 4, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined}), 8)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
11524
11508
|
}
|
|
11525
11509
|
|
|
@@ -11541,22 +11525,22 @@ function Commands_User_replicatex27($0, $1, $2, $3, $4, $5) {
|
|
|
11541
11525
|
/* Commands.User.Reflect.reflectOnSelf : Config => Octokit => Promise' () */
|
|
11542
11526
|
function Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
11543
11527
|
const $c = prs => $d => $e => {
|
|
11544
|
-
const $
|
|
11545
|
-
const $
|
|
11546
|
-
const $
|
|
11547
|
-
const $
|
|
11548
|
-
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $
|
|
11528
|
+
const $1b = myLogin => $1c => $1d => {
|
|
11529
|
+
const $39 = reviews => {
|
|
11530
|
+
const $3a = Prelude_Types_map_Functor_Maybe(csegen_733(), Data_List_headx27(Data_List_sortBy($43 => $44 => Prelude_Basics_on(csegen_703(), csegen_733(), $43, $44), reviews)));
|
|
11531
|
+
const $4d = Prelude_Interfaces_mapHom(csegen_656(), $53 => Prelude_Types_List_filterAppend({h: 0}, $57 => Prelude_EqOrd_x3dx3d_Eq_String($57.a5, myLogin), $53))(prs);
|
|
11532
|
+
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3a, prs, $4d.a1, $4d.a2, Prelude_Interfaces_mapHom(csegen_656(), $6e => Prelude_Types_List_filterAppend({h: 0}, $72 => Prelude_Types_foldMap_Foldable_List(csegen_111(), $77 => Prelude_EqOrd_x3dx3d_Eq_String($77, myLogin), $72.a7), $6e))(prs));
|
|
11549
11533
|
};
|
|
11550
|
-
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($
|
|
11534
|
+
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($2d => $2e => Prelude_Basics_on(csegen_703(), csegen_727(), $2d, $2e), Commands_PullRequest_combined(prs))))), $39, $1c, $1d);
|
|
11551
11535
|
};
|
|
11552
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_408()
|
|
11536
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_408(), FFI_GitHub_getSelf($1), $11, $12), $1b, $d, $e);
|
|
11553
11537
|
};
|
|
11554
11538
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_listPartitionedPRs($0, $1, 4n, Commands_User_Reflect_prCount()), $c, $2, $3);
|
|
11555
11539
|
}
|
|
11556
11540
|
|
|
11557
11541
|
/* Commands.User.Me.printInfoOnSelf : Config => Octokit => Promise' () */
|
|
11558
11542
|
function Commands_User_Me_printInfoOnSelf($0, $1, $2, $3) {
|
|
11559
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29($a =>
|
|
11543
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29($a => Commands_User_Me_n__7769_2196_handleUnsetEmail($1, $0, $a), $10 => $11 => System_Git_userEmail($10, $11), $6, $7), gitEmail => $18 => $19 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getSelf($1), githubUser => $1f => $20 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($23 => $24 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_689(), $29 => $2a => FFI_GitHub_listMyTeams($1, $29, $2a), $23, $24), githubTeams => Util_renderIO($0, csegen_88()(), Commands_User_Me_print($0, gitEmail, githubUser, githubTeams)), $1f, $20), $18, $19), $2, $3);
|
|
11560
11544
|
}
|
|
11561
11545
|
|
|
11562
11546
|
/* Commands.User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Config =>
|
|
@@ -11567,7 +11551,7 @@ function Commands_User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
|
11567
11551
|
|
|
11568
11552
|
/* Commands.User.Me.print : Config -> Maybe String -> User -> List String -> Doc AnsiStyle */
|
|
11569
11553
|
function Commands_User_Me_print($0, $1, $2, $3) {
|
|
11570
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
11554
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7619_2044_email($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7619_2045_fullName($3, $2, $1, $0), a2: {a1: Commands_User_Me_n__7619_2047_login($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_User_Me_n__7619_2048_teams($3, $2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}}}}});
|
|
11571
11555
|
}
|
|
11572
11556
|
|
|
11573
11557
|
/* Commands.User.Reflect.prCount : Fin 101 */
|
|
@@ -11587,7 +11571,7 @@ const Commands_User_Reflect_intro = __lazy(function () {
|
|
|
11587
11571
|
|
|
11588
11572
|
/* Commands.User.Reflect.header : Nat -> Doc AnsiStyle */
|
|
11589
11573
|
function Commands_User_Reflect_header($0) {
|
|
11590
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1:
|
|
11574
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Commands_User_Reflect_n__6674_1075_ital($0, Commands_User_Reflect_leftTitle()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' '), a2: {a1: Commands_User_Reflect_n__6674_1075_ital($0, Commands_User_Reflect_rightTitle()), a2: {h: 0}}}}));
|
|
11591
11575
|
}
|
|
11592
11576
|
|
|
11593
11577
|
/* Commands.User.Reflect.graph : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Doc AnsiStyle */
|
|
@@ -11696,100 +11680,114 @@ function Commands_PullRequest_with__listOpenPRs_1391($0, $1, $2, $3, $4) {
|
|
|
11696
11680
|
}
|
|
11697
11681
|
}
|
|
11698
11682
|
|
|
11699
|
-
/* Commands.PullRequest.case block in
|
|
11700
|
-
function
|
|
11683
|
+
/* Commands.PullRequest.case block in githubInferredBranchInfo */
|
|
11684
|
+
function Commands_PullRequest_case__githubInferredBranchInfo_2987($0, $1, $2, $3, $4) {
|
|
11701
11685
|
return $5 => {
|
|
11702
11686
|
switch($3.h) {
|
|
11703
|
-
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(
|
|
11704
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11687
|
+
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(Commands_PullRequest_noInferredData(), $4, $5);
|
|
11688
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getIssue($0, $2.a2, $2.a3, $3.a1), issue => $16 => $17 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1a => $1b => Commands_PullRequest_n__11111_2919_issueDescriptionPrefix($0, $1, $2, issue, $1a, $1b), $24 => $25 => $26 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: {h: 0}, a2: {a1: ($24+('\n\n'+Commands_PullRequest_n__11111_2921_relatedToPrefix($0, $1, $2, $3.a1)))}, a3: {a1: issue.a2}}, $25, $26), $16, $17), $4, $5);
|
|
11705
11689
|
}
|
|
11706
11690
|
};
|
|
11707
11691
|
}
|
|
11708
11692
|
|
|
11709
|
-
/* Commands.PullRequest.
|
|
11710
|
-
function
|
|
11693
|
+
/* Commands.PullRequest.10128:1999:userNotice */
|
|
11694
|
+
function Commands_PullRequest_n__10128_1999_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
11711
11695
|
switch($6.h) {
|
|
11712
11696
|
case 0: /* nothing */ {
|
|
11713
11697
|
switch($2.h) {
|
|
11714
11698
|
case 0: /* nil */ return 'no users';
|
|
11715
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $e => $e, {a1:
|
|
11699
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $e => $e, {a1: Commands_PullRequest_n__10128_1994_csv($0, $1, $2, $3, $4, $5, $2), a2: {h: 0}});
|
|
11716
11700
|
}
|
|
11717
11701
|
}
|
|
11718
|
-
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $1f => $1f, {a1:
|
|
11702
|
+
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $1f => $1f, {a1: Commands_PullRequest_n__10128_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: $2}), a2: {h: 0}});
|
|
11719
11703
|
}
|
|
11720
11704
|
}
|
|
11721
11705
|
|
|
11722
|
-
/* Commands.PullRequest.
|
|
11723
|
-
function
|
|
11706
|
+
/* Commands.PullRequest.10128:1998:teamNotice */
|
|
11707
|
+
function Commands_PullRequest_n__10128_1998_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
11724
11708
|
switch($6.h) {
|
|
11725
11709
|
case 0: /* nil */ return '';
|
|
11726
11710
|
case undefined: /* cons */ {
|
|
11727
11711
|
switch($6.a2.h) {
|
|
11728
|
-
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $e => $e, {a1: ' and team ', a2: {a1:
|
|
11729
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $23 => $23, {a1: ' and teams ', a2: {a1:
|
|
11712
|
+
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $e => $e, {a1: ' and team ', a2: {a1: Commands_PullRequest_n__10128_1994_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: {h: 0}}), a2: {h: 0}}});
|
|
11713
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $23 => $23, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10128_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
11730
11714
|
}
|
|
11731
11715
|
}
|
|
11732
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $36 => $36, {a1: ' and teams ', a2: {a1:
|
|
11716
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $36 => $36, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10128_1994_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
11733
11717
|
}
|
|
11734
11718
|
}
|
|
11735
11719
|
|
|
11736
|
-
/* Commands.PullRequest.
|
|
11737
|
-
function
|
|
11720
|
+
/* Commands.PullRequest.11111:2921:relatedToPrefix */
|
|
11721
|
+
function Commands_PullRequest_n__11111_2921_relatedToPrefix($0, $1, $2, $3) {
|
|
11738
11722
|
return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $9 => $9, {a1: 'Related to #', a2: {a1: $3, a2: {h: 0}}});
|
|
11739
11723
|
}
|
|
11740
11724
|
|
|
11741
|
-
/* Commands.PullRequest.
|
|
11742
|
-
function
|
|
11743
|
-
|
|
11744
|
-
const $7 = $4.a2;
|
|
11745
|
-
return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $e => $e, {a1: 'https://github.com/', a2: {a1: $7, a2: {a1: '/', a2: {a1: $5, a2: {a1: '/compare/', a2: {a1: $1, a2: {a1: '?expand=1', a2: {h: 0}}}}}}}});
|
|
11725
|
+
/* Commands.PullRequest.11454:3260:prTitlePrompt */
|
|
11726
|
+
function Commands_PullRequest_n__11454_3260_prTitlePrompt($0, $1, $2, $3, $4, $5) {
|
|
11727
|
+
return Util_Prompting_offerRetry(csegen_88()(), 'PR title cannot be an empty string.', Prelude_Types_foldMap_Foldable_List(csegen_65()(), $11 => $11, {a1: 'Did not find a non-empty value for a PR title. Will use \'', a2: {a1: 'New PR', a2: {a1: '\'', a2: {h: 0}}}}), () => 'New PR', $1b => $1c => Data_Promise_map_Functor_x28Promisex20x24ex29($1f => Commands_PullRequest_n__11454_3259_notEmptyString($0, $1, $2, $3, $4, $1f), Util_Prompting_getLineEnterForDefault(csegen_88()(), 'What would you like the title to be?', $5), $1b, $1c));
|
|
11746
11728
|
}
|
|
11747
11729
|
|
|
11748
|
-
/* Commands.PullRequest.
|
|
11749
|
-
function
|
|
11730
|
+
/* Commands.PullRequest.10128:1997:prComment */
|
|
11731
|
+
function Commands_PullRequest_n__10128_1997_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11750
11732
|
return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $c => $c, {a1: ':musical_note: Harmoniously requested review from ', a2: {a1: $6, a2: {a1: '.', a2: {h: 0}}}});
|
|
11751
11733
|
}
|
|
11752
11734
|
|
|
11753
|
-
/* Commands.PullRequest.
|
|
11754
|
-
function
|
|
11755
|
-
|
|
11735
|
+
/* Commands.PullRequest.11454:3259:notEmptyString */
|
|
11736
|
+
function Commands_PullRequest_n__11454_3259_notEmptyString($0, $1, $2, $3, $4, $5) {
|
|
11737
|
+
switch($5) {
|
|
11738
|
+
case '': return {h: 0};
|
|
11739
|
+
default: return {a1: $5};
|
|
11740
|
+
}
|
|
11741
|
+
}
|
|
11742
|
+
|
|
11743
|
+
/* Commands.PullRequest.10128:1996:namePrComment */
|
|
11744
|
+
function Commands_PullRequest_n__10128_1996_namePrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11745
|
+
return Commands_PullRequest_n__10128_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $14 => $14, {a1: $6.a2, a2: {h: 0}}));
|
|
11756
11746
|
}
|
|
11757
11747
|
|
|
11758
|
-
/* Commands.PullRequest.
|
|
11759
|
-
function
|
|
11760
|
-
return
|
|
11748
|
+
/* Commands.PullRequest.10128:1995:mentionPrComment */
|
|
11749
|
+
function Commands_PullRequest_n__10128_1995_mentionPrComment($0, $1, $2, $3, $4, $5, $6) {
|
|
11750
|
+
return Commands_PullRequest_n__10128_1997_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $14 => $14, {a1: '@', a2: {a1: $6, a2: {h: 0}}}));
|
|
11761
11751
|
}
|
|
11762
11752
|
|
|
11763
|
-
/* Commands.PullRequest.
|
|
11764
|
-
function
|
|
11753
|
+
/* Commands.PullRequest.11111:2920:issueNumber */
|
|
11754
|
+
function Commands_PullRequest_n__11111_2920_issueNumber($0, $1, $2) {
|
|
11765
11755
|
return Util_Github_parseGithubIssueNumber($1);
|
|
11766
11756
|
}
|
|
11767
11757
|
|
|
11768
|
-
/* Commands.PullRequest.
|
|
11769
|
-
function
|
|
11770
|
-
return
|
|
11758
|
+
/* Commands.PullRequest.11111:2919:issueDescriptionPrefix */
|
|
11759
|
+
function Commands_PullRequest_n__11111_2919_issueDescriptionPrefix($0, $1, $2, $3, $4, $5) {
|
|
11760
|
+
return Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_foldMap_Foldable_List(csegen_65()(), $d => $d, {a1: '<!--\n## GitHub Issue\n', a2: {a1: $3.a2, a2: {a1: '\n--\n', a2: {a1: $3.a3, a2: {a1: '\n-->', a2: {h: 0}}}}}}), $4, $5);
|
|
11761
|
+
}
|
|
11762
|
+
|
|
11763
|
+
/* Commands.PullRequest.11312:3113:into */
|
|
11764
|
+
function Commands_PullRequest_n__11312_3113_into($0, $1, $2, $3) {
|
|
11765
|
+
switch($0.h) {
|
|
11766
|
+
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $a => $a, {a1: $0.a1, a2: {a1: '...', a2: {h: 0}}});
|
|
11767
|
+
case 0: /* nothing */ return '';
|
|
11768
|
+
}
|
|
11771
11769
|
}
|
|
11772
11770
|
|
|
11773
|
-
/* Commands.PullRequest.
|
|
11774
|
-
function
|
|
11771
|
+
/* Commands.PullRequest.11454:3258:inlineDescriptionPrompt */
|
|
11772
|
+
function Commands_PullRequest_n__11454_3258_inlineDescriptionPrompt($0, $1, $2, $3, $4) {
|
|
11775
11773
|
return 'What would you like the description to be (two blank lines to finish)?';
|
|
11776
11774
|
}
|
|
11777
11775
|
|
|
11778
|
-
/* Commands.PullRequest.
|
|
11779
|
-
function
|
|
11776
|
+
/* Commands.PullRequest.11454:3257:getBaseBranch */
|
|
11777
|
+
function Commands_PullRequest_n__11454_3257_getBaseBranch($0, $1, $2, $3, $4, $5, $6) {
|
|
11780
11778
|
switch($2.h) {
|
|
11781
11779
|
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => $c => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($f => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $18 => $18, {a1: 'Will merge into ', a2: {a1: $2.a1, a2: {a1: '.', a2: {h: 0}}}})+'\n'), $f), $a, $b, $c), $26 => $27 => $28 => Data_Promise_pure_Applicative_x28Promisex20x24ex29($2.a1, $27, $28), $5, $6);
|
|
11782
11780
|
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($31 => $32 => $33 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($36 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $3f => $3f, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $4.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $36), $31, $32, $33), $4e => $4f => $50 => Data_Promise_map_Functor_x28Promisex20x24ex29($53 => Util_Prompting_orIfEmpty({a1: $4.a5}, Data_String_trim($53)), csegen_449()(), $4f, $50), $5, $6);
|
|
11783
11781
|
}
|
|
11784
11782
|
}
|
|
11785
11783
|
|
|
11786
|
-
/* Commands.PullRequest.
|
|
11787
|
-
function
|
|
11784
|
+
/* Commands.PullRequest.9890:1725:forkedReviews */
|
|
11785
|
+
function Commands_PullRequest_n__9890_1725_forkedReviews($0, $1, $2, $3) {
|
|
11788
11786
|
return FFI_Concurrency_fork(csegen_88()(), ('reviews --json '+Prelude_Show_show_Show_Integer($3.a1)));
|
|
11789
11787
|
}
|
|
11790
11788
|
|
|
11791
|
-
/* Commands.PullRequest.
|
|
11792
|
-
function
|
|
11789
|
+
/* Commands.PullRequest.9313:1180:filterString */
|
|
11790
|
+
function Commands_PullRequest_n__9313_1180_filterString($0, $1, $2, $3, $4) {
|
|
11793
11791
|
switch($4.h) {
|
|
11794
11792
|
case 0: /* nothing */ return 'none';
|
|
11795
11793
|
case undefined: /* just */ {
|
|
@@ -11801,13 +11799,13 @@ function Commands_PullRequest_n__9300_1180_filterString($0, $1, $2, $3, $4) {
|
|
|
11801
11799
|
}
|
|
11802
11800
|
}
|
|
11803
11801
|
|
|
11804
|
-
/* Commands.PullRequest.
|
|
11805
|
-
function
|
|
11802
|
+
/* Commands.PullRequest.10128:1994:csv */
|
|
11803
|
+
function Commands_PullRequest_n__10128_1994_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
11806
11804
|
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)));
|
|
11807
11805
|
}
|
|
11808
11806
|
|
|
11809
|
-
/* Commands.PullRequest.
|
|
11810
|
-
function
|
|
11807
|
+
/* Commands.PullRequest.11454:3256:createPR */
|
|
11808
|
+
function Commands_PullRequest_n__11454_3256_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
11811
11809
|
const $38 = $39 => $3a => $3b => {
|
|
11812
11810
|
const $48 = $49 => $4a => $4b => {
|
|
11813
11811
|
switch($49) {
|
|
@@ -11827,36 +11825,34 @@ function Commands_PullRequest_n__11265_3099_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
11827
11825
|
const $c8 = $c9 => $ca => $cb => {
|
|
11828
11826
|
const $e9 = $ea => $eb => $ec => {
|
|
11829
11827
|
const $f9 = baseBranch => $fa => $fb => {
|
|
11830
|
-
const $102 =
|
|
11831
|
-
const $
|
|
11832
|
-
|
|
11833
|
-
|
|
11834
|
-
|
|
11835
|
-
|
|
11836
|
-
|
|
11837
|
-
|
|
11838
|
-
|
|
11839
|
-
|
|
11840
|
-
|
|
11841
|
-
|
|
11842
|
-
case undefined: /* just */ {
|
|
11843
|
-
$14a = $15a => $15b => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_777(), Util_Prompting_editorDescription(csegen_88()(), $14b.a1, {a1: templateFilePath}, $103.a2), $15a, $15b);
|
|
11844
|
-
break;
|
|
11845
|
-
}
|
|
11828
|
+
const $102 = inferredBranchInfo => {
|
|
11829
|
+
const $103 = Data_Maybe_fromMaybe(() => '', inferredBranchInfo.a1);
|
|
11830
|
+
const $108 = Data_Maybe_fromMaybe(() => '', inferredBranchInfo.a2);
|
|
11831
|
+
return $10d => $10e => {
|
|
11832
|
+
const $123 = title => $124 => $125 => {
|
|
11833
|
+
const $12e = templateFilePath => $12f => $130 => {
|
|
11834
|
+
const $133 = Data_Config_rf__editor($4);
|
|
11835
|
+
let $132;
|
|
11836
|
+
switch($133.h) {
|
|
11837
|
+
case 0: /* nothing */ {
|
|
11838
|
+
$132 = Util_Prompting_inlineDescription(csegen_88()(), Commands_PullRequest_n__11454_3258_inlineDescriptionPrompt($0, $1, $2, $3, $4), $108);
|
|
11839
|
+
break;
|
|
11846
11840
|
}
|
|
11847
|
-
|
|
11848
|
-
|
|
11849
|
-
|
|
11841
|
+
case undefined: /* just */ {
|
|
11842
|
+
$132 = $142 => $143 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_777(), Util_Prompting_editorDescription(csegen_88()(), $133.a1, {a1: templateFilePath}, $108), $142, $143);
|
|
11843
|
+
break;
|
|
11844
|
+
}
|
|
11845
|
+
}
|
|
11846
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($132, description => $153 => $154 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($157 => $158 => $159 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($15c => Prelude_IO_prim__putStr('Creating PR...\n', $15c), $157, $158, $159), $164 => $165 => $166 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($169 => $16a => $16b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($16e => Prelude_IO_prim__putStr(($1+'\n'), $16e), $169, $16a, $16b), $178 => FFI_GitHub_createPR($0, $3, $4.a2, $4.a3, $1, baseBranch, title, description), $165, $166), $153, $154), $12f, $130);
|
|
11850
11847
|
};
|
|
11851
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11848
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($128 => $129 => Util_relativeToRoot('.github/PULL_REQUEST_TEMPLATE.md', $128, $129), $12e, $124, $125);
|
|
11852
11849
|
};
|
|
11853
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11850
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($111 => $112 => Data_Promise_map_Functor_x28Promisex20x24ex29($115 => ($103+$115), Commands_PullRequest_n__11454_3260_prTitlePrompt($0, $1, $2, $3, $4, inferredBranchInfo.a3), $111, $112), $123, $10d, $10e);
|
|
11854
11851
|
};
|
|
11855
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($109 => $10a => $10b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($10e => Prelude_IO_prim__putStr('What would you like the title to be?\n', $10e), $109, $10a, $10b), $115, $104, $105);
|
|
11856
11852
|
};
|
|
11857
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11853
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_getInferredBranchInfo($4, $0, $1), $102, $fa, $fb);
|
|
11858
11854
|
};
|
|
11859
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ef => $f0 =>
|
|
11855
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ef => $f0 => Commands_PullRequest_n__11454_3257_getBaseBranch($0, $1, $2, $3, $4, $ef, $f0), $f9, $eb, $ec);
|
|
11860
11856
|
};
|
|
11861
11857
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ce => $cf => $d0 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d3 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $dc => $dc, {a1: 'Creating a new PR for the current branch (', a2: {a1: $1, a2: {a1: ').', a2: {h: 0}}}})+'\n'), $d3), $ce, $cf, $d0), $e9, $ca, $cb);
|
|
11862
11858
|
};
|
|
@@ -11865,18 +11861,18 @@ function Commands_PullRequest_n__11265_3099_createPR($0, $1, $2, $3, $4, $5, $6)
|
|
|
11865
11861
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $5b, $5c);
|
|
11866
11862
|
}
|
|
11867
11863
|
};
|
|
11868
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4f => $50 =>
|
|
11864
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4f => $50 => Commands_PullRequest_n__11454_3254_continueGivenStagedChanges($0, $1, $2, $3, $4, $4f, $50), $59, $4a, $4b);
|
|
11869
11865
|
}
|
|
11870
11866
|
case 0: return Data_Promise_reject('Not creating a PR (for now)...', $4a, $4b);
|
|
11871
11867
|
}
|
|
11872
11868
|
};
|
|
11873
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f =>
|
|
11869
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($3e => $3f => Commands_PullRequest_n__11454_3255_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $3e, $3f), $48, $3a, $3b);
|
|
11874
11870
|
};
|
|
11875
11871
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => $a => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($d => $e => System_Git_remoteTrackingBranch($d, $e), $13 => Util_whenNothing(csegen_80()(), $13, $1a => $1b => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => $1f => $20 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($23 => Prelude_IO_prim__putStr('Creating a new remote branch...\n', $23), $1e, $1f, $20), $2b => $2c => $2d => System_Git_pushNewBranch($4.a4, $1, $2c, $2d), $1a, $1b)), $9, $a), $38, $5, $6);
|
|
11876
11872
|
}
|
|
11877
11873
|
|
|
11878
|
-
/* Commands.PullRequest.
|
|
11879
|
-
function
|
|
11874
|
+
/* Commands.PullRequest.11454:3255:continueGivenUncommittedChanges */
|
|
11875
|
+
function Commands_PullRequest_n__11454_3255_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
11880
11876
|
const $e = $f => $10 => $11 => {
|
|
11881
11877
|
switch($f.h) {
|
|
11882
11878
|
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => $17 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1a => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1a), $15, $16, $17), $22 => $23 => $24 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($27 => $28 => $29 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2c => Prelude_IO_prim__putStr(($f.a1+'\n'), $2c), $27, $28, $29), csegen_784(), $23, $24), $10, $11);
|
|
@@ -11886,8 +11882,8 @@ function Commands_PullRequest_n__11265_3098_continueGivenUncommittedChanges($0,
|
|
|
11886
11882
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($9 => $a => System_Git_uncommittedChanges($9, $a), $e, $5, $6);
|
|
11887
11883
|
}
|
|
11888
11884
|
|
|
11889
|
-
/* Commands.PullRequest.
|
|
11890
|
-
function
|
|
11885
|
+
/* Commands.PullRequest.11454:3254:continueGivenStagedChanges */
|
|
11886
|
+
function Commands_PullRequest_n__11454_3254_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6) {
|
|
11891
11887
|
const $e = $f => $10 => $11 => {
|
|
11892
11888
|
switch($f.h) {
|
|
11893
11889
|
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($15 => $16 => $17 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1a => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1a), $15, $16, $17), $22 => $23 => $24 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($27 => $28 => $29 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2c => Prelude_IO_prim__putStr(($f.a1+'\n'), $2c), $27, $28, $29), csegen_784(), $23, $24), $10, $11);
|
|
@@ -11904,7 +11900,7 @@ function Commands_PullRequest_rf__allReviewers($0) {
|
|
|
11904
11900
|
|
|
11905
11901
|
/* Commands.PullRequest.reviewsForPrs : Config => Octokit => List PullRequest -> Promise' (List Review) */
|
|
11906
11902
|
function Commands_PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
|
|
11907
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_81()(), csegen_691(), Prelude_Types_traverse_Traversable_List(csegen_80()(), $13 =>
|
|
11903
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_81()(), csegen_691(), Prelude_Types_traverse_Traversable_List(csegen_80()(), $13 => Commands_PullRequest_n__9890_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_230(), $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);
|
|
11908
11904
|
}
|
|
11909
11905
|
|
|
11910
11906
|
/* Commands.PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise' (List Review) */
|
|
@@ -11991,8 +11987,8 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11991
11987
|
return $7f => {
|
|
11992
11988
|
switch($0.a8) {
|
|
11993
11989
|
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $7d, $7f);
|
|
11994
|
-
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
11995
|
-
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,
|
|
11990
|
+
case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, Commands_PullRequest_n__10128_1995_mentionPrComment($1, $5, $4, $3, $2, $0, chosenUser.a1), $7d, $7f);
|
|
11991
|
+
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__10128_1996_namePrComment($1, $5, $4, $3, $2, $0, user), $9f, $a0), $7d, $7f);
|
|
11996
11992
|
}
|
|
11997
11993
|
};
|
|
11998
11994
|
}
|
|
@@ -12016,11 +12012,11 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12016
12012
|
let $bf;
|
|
12017
12013
|
switch($c0) {
|
|
12018
12014
|
case 1: {
|
|
12019
|
-
$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_65()(), $e8 => $e8, {a1: 'Requested review from ', a2: {a1:
|
|
12015
|
+
$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_65()(), $e8 => $e8, {a1: 'Requested review from ', a2: {a1: Commands_PullRequest_n__10128_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_65()(), $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);
|
|
12020
12016
|
break;
|
|
12021
12017
|
}
|
|
12022
12018
|
case 0: {
|
|
12023
|
-
$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_65()(), $128 => $128, {a1: 'Requested review from ', a2: {a1:
|
|
12019
|
+
$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_65()(), $128 => $128, {a1: 'Requested review from ', a2: {a1: Commands_PullRequest_n__10128_1999_userNotice($1, $5, $4, $3, $2, $0, chosenUser), a2: {a1: Commands_PullRequest_n__10128_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_65()(), $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);
|
|
12024
12020
|
break;
|
|
12025
12021
|
}
|
|
12026
12022
|
}
|
|
@@ -12036,6 +12032,11 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12036
12032
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => Commands_PullRequest_listReviewers($0, $1, 4n, 100n, $a, $b), $13, $6, $7);
|
|
12037
12033
|
}
|
|
12038
12034
|
|
|
12035
|
+
/* Commands.PullRequest.prCreationUrl : String -> String -> String -> Maybe String -> String */
|
|
12036
|
+
function Commands_PullRequest_prCreationUrl($0, $1, $2, $3) {
|
|
12037
|
+
return Prelude_Types_foldMap_Foldable_List(csegen_65()(), $9 => $9, {a1: 'https://github.com/', a2: {a1: $0, a2: {a1: '/', a2: {a1: $1, a2: {a1: '/compare/', a2: {a1: Commands_PullRequest_n__11312_3113_into($3, $2, $1, $0), a2: {a1: $2, a2: {a1: '?expand=1', a2: {h: 0}}}}}}}}});
|
|
12038
|
+
}
|
|
12039
|
+
|
|
12039
12040
|
/* Commands.PullRequest.partition' : Pagination _ _ _ () -> Promise' PRHistory */
|
|
12040
12041
|
function Commands_PullRequest_partitionx27($0, $1, $2) {
|
|
12041
12042
|
return Data_Promise_map_Functor_x28Promisex20x24ex29($5 => Commands_PullRequest_partition($5), $9 => $a => Commands_PullRequest_listx27({h: 0}, $0, $9, $a), $1, $2);
|
|
@@ -12046,6 +12047,11 @@ function Commands_PullRequest_partition($0) {
|
|
|
12046
12047
|
return Prelude_Basics_uncurry(csegen_108(), Data_List_partition($7 => Data_PullRequest_x3dx3d_Eq_PRState($7.a6, 0), $0));
|
|
12047
12048
|
}
|
|
12048
12049
|
|
|
12050
|
+
/* Commands.PullRequest.noInferredData : BranchInferredData */
|
|
12051
|
+
const Commands_PullRequest_noInferredData = __lazy(function () {
|
|
12052
|
+
return {a1: {h: 0}, a2: {h: 0}, a3: {h: 0}};
|
|
12053
|
+
});
|
|
12054
|
+
|
|
12049
12055
|
/* Commands.PullRequest.listReviewers : Config => Octokit => {default 0 _ : Nat} -> Fin 101 -> Promise' (List String,
|
|
12050
12056
|
List String) */
|
|
12051
12057
|
function Commands_PullRequest_listReviewers($0, $1, $2, $3, $4, $5) {
|
|
@@ -12085,36 +12091,36 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6) {
|
|
|
12085
12091
|
return $20 => {
|
|
12086
12092
|
const $29 = $2a => $2b => $2c => {
|
|
12087
12093
|
switch($2a) {
|
|
12088
|
-
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($30 => ({h: 0 /* Actual */, a1: 1, a2: $30}), $34 => $35 =>
|
|
12089
|
-
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1:
|
|
12094
|
+
case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($30 => ({h: 0 /* Actual */, a1: 1, a2: $30}), $34 => $35 => Commands_PullRequest_n__11454_3256_createPR($1, $4, $3, $2, $0, $34, $35), $2b, $2c);
|
|
12095
|
+
case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1: Commands_PullRequest_prCreationUrl($0.a2, $0.a3, $4, $3)}, $2b, $2c);
|
|
12090
12096
|
}
|
|
12091
12097
|
};
|
|
12092
12098
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(System_File_Meta_isTTY(csegen_88()(), System_File_Virtual_stdout()), $29, $12, $20);
|
|
12093
12099
|
};
|
|
12094
12100
|
}
|
|
12095
|
-
default: return $
|
|
12101
|
+
default: return $4e => Data_Promise_reject('Multiple PRs for the current brach. Harmony only handles 1 PR per branch currently.', $12, $4e);
|
|
12096
12102
|
}
|
|
12097
12103
|
};
|
|
12098
12104
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPRsForBranch($1, $0.a2, $0.a3, $4), $10, $5, $6);
|
|
12099
12105
|
}
|
|
12100
12106
|
|
|
12101
|
-
/* Commands.PullRequest.
|
|
12102
|
-
function
|
|
12103
|
-
return $3 =>
|
|
12107
|
+
/* Commands.PullRequest.githubInferredBranchInfo : Config => Octokit => String -> Promise' BranchInferredData */
|
|
12108
|
+
function Commands_PullRequest_githubInferredBranchInfo($0, $1, $2) {
|
|
12109
|
+
return $3 => Commands_PullRequest_case__githubInferredBranchInfo_2987($1, $2, $0, Commands_PullRequest_n__11111_2920_issueNumber($1, $2, $0), $3);
|
|
12104
12110
|
}
|
|
12105
12111
|
|
|
12106
|
-
/* Commands.PullRequest.
|
|
12107
|
-
function
|
|
12112
|
+
/* Commands.PullRequest.getInferredBranchInfo : Config => Octokit => String -> Promise' BranchInferredData */
|
|
12113
|
+
function Commands_PullRequest_getInferredBranchInfo($0, $1, $2) {
|
|
12108
12114
|
switch($0.a9) {
|
|
12109
|
-
case 1: return $5 => $6 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1:
|
|
12110
|
-
case 2: return
|
|
12111
|
-
case 0: return $
|
|
12115
|
+
case 1: return $5 => $6 => Data_Promise_pure_Applicative_x28Promisex20x24ex29({a1: Prelude_Types_map_Functor_Maybe($c => ($c+' - '), Util_Jira_parseJiraSlug($2)), a2: {h: 0}, a3: {h: 0}}, $5, $6);
|
|
12116
|
+
case 2: return Commands_PullRequest_githubInferredBranchInfo($0, $1, $2);
|
|
12117
|
+
case 0: return $1a => $1b => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Commands_PullRequest_noInferredData(), $1a, $1b);
|
|
12112
12118
|
}
|
|
12113
12119
|
}
|
|
12114
12120
|
|
|
12115
12121
|
/* Commands.PullRequest.forkedPRs : Maybe GitHubPRState -> Nat -> Nat -> Nat -> () -> Promise' Future */
|
|
12116
12122
|
function Commands_PullRequest_forkedPRs($0, $1, $2, $3, $4) {
|
|
12117
|
-
return FFI_Concurrency_fork(csegen_88()(), Prelude_Types_foldMap_Foldable_List(csegen_65()(), $f => $f, {a1: 'pulls --json ', a2: {a1:
|
|
12123
|
+
return FFI_Concurrency_fork(csegen_88()(), Prelude_Types_foldMap_Foldable_List(csegen_65()(), $f => $f, {a1: 'pulls --json ', a2: {a1: Commands_PullRequest_n__9313_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}}}}}}}));
|
|
12118
12124
|
}
|
|
12119
12125
|
|
|
12120
12126
|
/* Commands.PullRequest.empty : PRHistory */
|
|
@@ -12570,13 +12576,13 @@ function Data_List_DeleteBy_deleteByx27($0, $1, $2) {
|
|
|
12570
12576
|
}
|
|
12571
12577
|
}
|
|
12572
12578
|
|
|
12573
|
-
/* Commands.Quick.
|
|
12574
|
-
function
|
|
12579
|
+
/* Commands.Quick.5901:5659:issuePrompt */
|
|
12580
|
+
function Commands_Quick_n__5901_5659_issuePrompt($0, $1, $2, $3) {
|
|
12575
12581
|
return 'What would you like the issue description to be (two blank lines to finish)?';
|
|
12576
12582
|
}
|
|
12577
12583
|
|
|
12578
|
-
/* Commands.Quick.
|
|
12579
|
-
function
|
|
12584
|
+
/* Commands.Quick.5901:5658:branchPrefix */
|
|
12585
|
+
function Commands_Quick_n__5901_5658_branchPrefix($0, $1, $2, $3) {
|
|
12580
12586
|
return Data_String_toLower(Commands_Quick_show_Show_IssueCategory($2));
|
|
12581
12587
|
}
|
|
12582
12588
|
|
|
@@ -12595,38 +12601,45 @@ function Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5) {
|
|
|
12595
12601
|
const $21 = $22 => $23 => {
|
|
12596
12602
|
switch($3.h) {
|
|
12597
12603
|
case undefined: /* just */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29($3.a1, $22, $23);
|
|
12598
|
-
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2b => $2c => $2d => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($30 => Prelude_IO_prim__putStr('What would you like the issue title to be?\n', $30), $2b, $2c, $2d), $38 =>
|
|
12604
|
+
case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($2b => $2c => $2d => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($30 => Prelude_IO_prim__putStr('What would you like the issue title to be?\n', $30), $2b, $2c, $2d), $38 => $39 => $3a => Data_Promise_map_Functor_x28Promisex20x24ex29($3d => Data_String_trim($3d), csegen_449()(), $39, $3a), $22, $23);
|
|
12599
12605
|
}
|
|
12600
12606
|
};
|
|
12601
|
-
const $
|
|
12602
|
-
const $
|
|
12603
|
-
let $
|
|
12604
|
-
switch($
|
|
12607
|
+
const $47 = issueTitle => $48 => $49 => {
|
|
12608
|
+
const $4c = Data_Config_rf__editor($0);
|
|
12609
|
+
let $4b;
|
|
12610
|
+
switch($4c.h) {
|
|
12605
12611
|
case 0: /* nothing */ {
|
|
12606
|
-
$
|
|
12612
|
+
$4b = Util_Prompting_inlineDescription(csegen_88()(), Commands_Quick_n__5901_5659_issuePrompt($1, $3, $2, $0), '');
|
|
12607
12613
|
break;
|
|
12608
12614
|
}
|
|
12609
12615
|
case undefined: /* just */ {
|
|
12610
|
-
$
|
|
12616
|
+
$4b = $5a => $5b => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_777(), Util_Prompting_editorDescription(csegen_88()(), $4c.a1, {h: 0}, ''), $5a, $5b);
|
|
12611
12617
|
break;
|
|
12612
12618
|
}
|
|
12613
12619
|
}
|
|
12614
|
-
const $
|
|
12615
|
-
const $
|
|
12616
|
-
const $
|
|
12617
|
-
|
|
12620
|
+
const $69 = issueBody => $6a => $6b => {
|
|
12621
|
+
const $76 = issue => {
|
|
12622
|
+
const $77 = Prelude_Types_foldMap_Foldable_List(csegen_65()(), $7d => $7d, {a1: Commands_Quick_n__5901_5658_branchPrefix($1, $3, $2, $0), a2: {a1: '/', a2: {a1: Prelude_Show_show_Show_Integer(issue.a1), a2: {a1: '/', a2: {h: 0}}}}});
|
|
12623
|
+
const $8f = Commands_Quick_dasherize(issueTitle);
|
|
12624
|
+
const $92 = ($77+$8f);
|
|
12625
|
+
return $95 => $96 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($99 => $9a => $9b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($9e => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_65()(), $a7 => $a7, {a1: 'What would you like the branch to be named? ', a2: {a1: Util_Prompting_enterForDefaultStr($92), a2: {h: 0}}})+'\n'), $9e), $99, $9a, $9b), $b5 => $b6 => $b7 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($ba => $bb => $bc => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($bf => Prelude_IO_prim__putStr($77, $bf), $ba, $bb, $bc), $c7 => $c8 => $c9 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($cc => $cd => Data_Promise_map_Functor_x28Promisex20x24ex29($d0 => Util_Prompting_orIfEmpty({a1: $8f}, Data_String_trim($d0)), csegen_449()(), $cc, $cd), branchSlug => System_Git_checkoutBranch(1, Prelude_Types_foldMap_Foldable_List(csegen_65()(), $e5 => $e5, {a1: $77, a2: {a1: branchSlug, a2: {h: 0}}})), $c8, $c9), $b6, $b7), $95, $96);
|
|
12618
12626
|
};
|
|
12619
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_createIssue($1, $0.a2, $0.a3, issueTitle, issueBody), $
|
|
12627
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_createIssue($1, $0.a2, $0.a3, issueTitle, issueBody), $76, $6a, $6b);
|
|
12620
12628
|
};
|
|
12621
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
12629
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($4b, $69, $48, $49);
|
|
12622
12630
|
};
|
|
12623
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($21, $
|
|
12631
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($21, $47, $1e, $1f);
|
|
12624
12632
|
};
|
|
12625
12633
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_447()(), $1c, $16, $17);
|
|
12626
12634
|
};
|
|
12627
12635
|
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);
|
|
12628
12636
|
}
|
|
12629
12637
|
|
|
12638
|
+
/* Commands.Quick.dasherize : String -> String */
|
|
12639
|
+
function Commands_Quick_dasherize($0) {
|
|
12640
|
+
return Prelude_Types_fastPack(Data_List_replaceOn(csegen_107(), ' ', '-', Prelude_Types_fastUnpack($0)));
|
|
12641
|
+
}
|
|
12642
|
+
|
|
12630
12643
|
/* Commands.Label.unslugifyLabel : List String -> String -> String */
|
|
12631
12644
|
function Commands_Label_unslugifyLabel($0, $1) {
|
|
12632
12645
|
const $2 = Data_List_find($5 => Prelude_EqOrd_x3dx3d_Eq_String($5, $1), $0);
|
|
@@ -12682,7 +12695,7 @@ function Commands_Graph_n__7727_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12682
12695
|
break;
|
|
12683
12696
|
}
|
|
12684
12697
|
}
|
|
12685
|
-
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__7727_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__7727_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7))))}, a2:
|
|
12698
|
+
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__7727_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__7727_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7))))}, a2: csegen_838()}};
|
|
12686
12699
|
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__7727_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $3a};
|
|
12687
12700
|
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__7727_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $27};
|
|
12688
12701
|
const $f = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $14};
|
|
@@ -12693,7 +12706,7 @@ function Commands_Graph_n__7727_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12693
12706
|
|
|
12694
12707
|
/* Commands.Graph.7324:6604:header */
|
|
12695
12708
|
function Commands_Graph_n__7324_6604_header($0, $1, $2, $3) {
|
|
12696
|
-
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:
|
|
12709
|
+
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_838()}}}));
|
|
12697
12710
|
}
|
|
12698
12711
|
|
|
12699
12712
|
/* Commands.Graph.7324:6603:graphable */
|
|
@@ -12871,7 +12884,7 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
12871
12884
|
function Commands_Graph_healthGraph($0, $1, $2, $3) {
|
|
12872
12885
|
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(csegen_371(), $11 => $11.a2, $b, $c), csegen_704(), $7, $8), Data_List_sortBy(csegen_705(), $1));
|
|
12873
12886
|
const $1e = Prelude_Types_foldr_Foldable_List(xs => m => Prelude_Types_max_Ord_Nat(Data_List1_length(xs), m), 1n, $4);
|
|
12874
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_Graph_n__7324_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),
|
|
12887
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_Graph_n__7324_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_854(), $36), a2: $41 => maxLabelLength => Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $45 => Commands_Graph_length_HasLength_Date($45), csegen_854(), $41, maxLabelLength), a3: $4d => Commands_Graph_labelLength_Graphable_x28PRsOnDatex20x24dateTyx29($0, $51 => Commands_Graph_length_HasLength_Date($51), csegen_854(), $4d), a4: $58 => Commands_Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29($0, $5c => Commands_Graph_length_HasLength_Date($5c), csegen_854(), $58), a5: $63 => Commands_Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29($0, $67 => Commands_Graph_length_HasLength_Date($67), csegen_854(), $63), a6: $6e => Commands_Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29($0, $72 => Commands_Graph_length_HasLength_Date($72), csegen_854(), $6e)}, $1e, 0n, 0n, Commands_Graph_n__7324_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__7324_6605_link($3, $2, $1, $0)), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}});
|
|
12875
12888
|
}
|
|
12876
12889
|
|
|
12877
12890
|
/* Commands.Graph.graphOne : Config -> Graphable g => Nat -> Nat -> Nat -> g -> Doc AnsiStyle */
|