@mattpolzin/harmony 5.5.1 → 5.6.0
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- package/README.md +179 -66
- package/harmony +412 -294
- package/man/harmony.1 +6 -2
- package/package.json +1 -1
package/harmony
CHANGED
|
@@ -1010,7 +1010,7 @@ function x24tcOpt_1($0) {
|
|
|
1010
1010
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
1011
1011
|
default: {
|
|
1012
1012
|
const $17 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1013
|
-
const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($0.a1.a1.a1,
|
|
1013
|
+
const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($0.a1.a1.a1, csegen_751(), $1e, $1f), $17, $0.a6);
|
|
1014
1014
|
switch($1b.a1.h) {
|
|
1015
1015
|
case 0: /* nothing */ {
|
|
1016
1016
|
switch($0.a8) {
|
|
@@ -1025,7 +1025,7 @@ function x24tcOpt_1($0) {
|
|
|
1025
1025
|
}
|
|
1026
1026
|
default: {
|
|
1027
1027
|
const $64 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1028
|
-
const $68 = Data_List_DeleteBy_deleteByx27($6b => $6c => Prelude_Basics_on($0.a1.a1.a1,
|
|
1028
|
+
const $68 = Data_List_DeleteBy_deleteByx27($6b => $6c => Prelude_Basics_on($0.a1.a1.a1, csegen_751(), $6b, $6c), $64, $0.a6);
|
|
1029
1029
|
switch($68.a1.h) {
|
|
1030
1030
|
case 0: /* nothing */ {
|
|
1031
1031
|
switch($0.a8) {
|
|
@@ -1050,7 +1050,7 @@ function x24tcOpt_1($0) {
|
|
|
1050
1050
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
1051
1051
|
default: {
|
|
1052
1052
|
const $b5 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1053
|
-
const $b9 = Data_List_DeleteBy_deleteByx27($bc => $bd => Prelude_Basics_on($0.a1.a1.a1,
|
|
1053
|
+
const $b9 = Data_List_DeleteBy_deleteByx27($bc => $bd => Prelude_Basics_on($0.a1.a1.a1, csegen_751(), $bc, $bd), $b5, $0.a6);
|
|
1054
1054
|
switch($b9.a1.h) {
|
|
1055
1055
|
case 0: /* nothing */ {
|
|
1056
1056
|
switch($0.a8) {
|
|
@@ -1065,7 +1065,7 @@ function x24tcOpt_1($0) {
|
|
|
1065
1065
|
}
|
|
1066
1066
|
default: {
|
|
1067
1067
|
const $102 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
1068
|
-
const $106 = Data_List_DeleteBy_deleteByx27($109 => $10a => Prelude_Basics_on($0.a1.a1.a1,
|
|
1068
|
+
const $106 = Data_List_DeleteBy_deleteByx27($109 => $10a => Prelude_Basics_on($0.a1.a1.a1, csegen_751(), $109, $10a), $102, $0.a6);
|
|
1069
1069
|
switch($106.a1.h) {
|
|
1070
1070
|
case 0: /* nothing */ {
|
|
1071
1071
|
switch($0.a8) {
|
|
@@ -2866,118 +2866,118 @@ const csegen_426 = __lazy(function () {
|
|
|
2866
2866
|
return {a1: Commands_Help_argument(0, '#<label>'), a2: csegen_421()};
|
|
2867
2867
|
});
|
|
2868
2868
|
|
|
2869
|
-
/* {csegen:
|
|
2870
|
-
const
|
|
2869
|
+
/* {csegen:603} */
|
|
2870
|
+
const csegen_603 = __lazy(function () {
|
|
2871
2871
|
return {a1: d => b => c => a => $1 => $2 => $3 => ({a1: $1($3.a1), a2: $2($3.a2)}), a2: b => c => a => $c => $d => ({a1: $c($d.a1), a2: $d.a2}), a3: a => d => b => $14 => $15 => ({a1: $15.a1, a2: $14($15.a2)})};
|
|
2872
2872
|
});
|
|
2873
2873
|
|
|
2874
|
-
/* {csegen:
|
|
2875
|
-
const
|
|
2874
|
+
/* {csegen:607} */
|
|
2875
|
+
const csegen_607 = __lazy(function () {
|
|
2876
2876
|
return {a1: {h: 0}, a2: {a1: '-i', a2: {h: 0}}};
|
|
2877
2877
|
});
|
|
2878
2878
|
|
|
2879
|
-
/* {csegen:
|
|
2880
|
-
const
|
|
2879
|
+
/* {csegen:612} */
|
|
2880
|
+
const csegen_612 = __lazy(function () {
|
|
2881
2881
|
return $0 => $1 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $0, $1);
|
|
2882
2882
|
});
|
|
2883
2883
|
|
|
2884
|
-
/* {csegen:
|
|
2885
|
-
const
|
|
2884
|
+
/* {csegen:627} */
|
|
2885
|
+
const csegen_627 = __lazy(function () {
|
|
2886
2886
|
return {a1: csegen_9(), a2: a => ({h: 0}), a3: a => $4 => $5 => Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, $5)};
|
|
2887
2887
|
});
|
|
2888
2888
|
|
|
2889
|
-
/* {csegen:
|
|
2890
|
-
const
|
|
2889
|
+
/* {csegen:628} */
|
|
2890
|
+
const csegen_628 = __lazy(function () {
|
|
2891
2891
|
return $0 => Data_List_sort(csegen_240(), $0);
|
|
2892
2892
|
});
|
|
2893
2893
|
|
|
2894
|
-
/* {csegen:
|
|
2895
|
-
const
|
|
2894
|
+
/* {csegen:630} */
|
|
2895
|
+
const csegen_630 = __lazy(function () {
|
|
2896
2896
|
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_147(), $0, $1, $2);
|
|
2897
2897
|
});
|
|
2898
2898
|
|
|
2899
|
-
/* {csegen:
|
|
2900
|
-
const
|
|
2899
|
+
/* {csegen:642} */
|
|
2900
|
+
const csegen_642 = __lazy(function () {
|
|
2901
2901
|
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2902
2902
|
});
|
|
2903
2903
|
|
|
2904
|
-
/* {csegen:
|
|
2905
|
-
const
|
|
2904
|
+
/* {csegen:643} */
|
|
2905
|
+
const csegen_643 = __lazy(function () {
|
|
2906
2906
|
return $0 => $0.a3;
|
|
2907
2907
|
});
|
|
2908
2908
|
|
|
2909
|
-
/* {csegen:
|
|
2910
|
-
const
|
|
2911
|
-
return $0 => $1 => Prelude_Basics_on(
|
|
2909
|
+
/* {csegen:644} */
|
|
2910
|
+
const csegen_644 = __lazy(function () {
|
|
2911
|
+
return $0 => $1 => Prelude_Basics_on(csegen_642(), csegen_643(), $0, $1);
|
|
2912
2912
|
});
|
|
2913
2913
|
|
|
2914
|
-
/* {csegen:
|
|
2915
|
-
const
|
|
2914
|
+
/* {csegen:666} */
|
|
2915
|
+
const csegen_666 = __lazy(function () {
|
|
2916
2916
|
return $0 => $0.a3;
|
|
2917
2917
|
});
|
|
2918
2918
|
|
|
2919
|
-
/* {csegen:
|
|
2920
|
-
const
|
|
2921
|
-
return Theme_cs({a1: 2, a2: {h: 0}});
|
|
2919
|
+
/* {csegen:669} */
|
|
2920
|
+
const csegen_669 = __lazy(function () {
|
|
2921
|
+
return Theme_cs({a1: 2, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2922
2922
|
});
|
|
2923
2923
|
|
|
2924
|
-
/* {csegen:
|
|
2925
|
-
const
|
|
2924
|
+
/* {csegen:672} */
|
|
2925
|
+
const csegen_672 = __lazy(function () {
|
|
2926
2926
|
return $0 => $0.a1;
|
|
2927
2927
|
});
|
|
2928
2928
|
|
|
2929
|
-
/* {csegen:
|
|
2930
|
-
const
|
|
2929
|
+
/* {csegen:678} */
|
|
2930
|
+
const csegen_678 = __lazy(function () {
|
|
2931
2931
|
return date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('earliest:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date(date)), a2: {h: 0}}}));
|
|
2932
2932
|
});
|
|
2933
2933
|
|
|
2934
|
-
/* {csegen:
|
|
2935
|
-
const
|
|
2936
|
-
return Theme_cs({a1: 0, a2: {h: 0}});
|
|
2934
|
+
/* {csegen:688} */
|
|
2935
|
+
const csegen_688 = __lazy(function () {
|
|
2936
|
+
return Theme_cs({a1: 0, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2937
2937
|
});
|
|
2938
2938
|
|
|
2939
|
-
/* {csegen:
|
|
2940
|
-
const
|
|
2941
|
-
return Theme_cs({a1: 1, a2: {h: 0}});
|
|
2939
|
+
/* {csegen:689} */
|
|
2940
|
+
const csegen_689 = __lazy(function () {
|
|
2941
|
+
return Theme_cs({a1: 1, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2942
2942
|
});
|
|
2943
2943
|
|
|
2944
|
-
/* {csegen:
|
|
2945
|
-
const
|
|
2946
|
-
return Theme_cs({a1: 3, a2: {h: 0}});
|
|
2944
|
+
/* {csegen:690} */
|
|
2945
|
+
const csegen_690 = __lazy(function () {
|
|
2946
|
+
return Theme_cs({a1: 3, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined});
|
|
2947
2947
|
});
|
|
2948
2948
|
|
|
2949
|
-
/* {csegen:
|
|
2950
|
-
const
|
|
2949
|
+
/* {csegen:695} */
|
|
2950
|
+
const csegen_695 = __lazy(function () {
|
|
2951
2951
|
return $0 => Prelude_Types_either(() => $3 => '', () => $5 => $5, $0);
|
|
2952
2952
|
});
|
|
2953
2953
|
|
|
2954
|
-
/* {csegen:
|
|
2955
|
-
const
|
|
2954
|
+
/* {csegen:709} */
|
|
2955
|
+
const csegen_709 = __lazy(function () {
|
|
2956
2956
|
return $0 => Util_Prompting_yesNoPrompt(csegen_74()(), 1, 'Would you like to continue creating a Pull Request anyway?');
|
|
2957
2957
|
});
|
|
2958
2958
|
|
|
2959
|
-
/* {csegen:
|
|
2960
|
-
const
|
|
2959
|
+
/* {csegen:746} */
|
|
2960
|
+
const csegen_746 = __lazy(function () {
|
|
2961
2961
|
return $0 => Prelude_Types_fastPack(Prelude_Types_List_reverse($0));
|
|
2962
2962
|
});
|
|
2963
2963
|
|
|
2964
|
-
/* {csegen:
|
|
2965
|
-
const
|
|
2964
|
+
/* {csegen:751} */
|
|
2965
|
+
const csegen_751 = __lazy(function () {
|
|
2966
2966
|
return $0 => $0.a1;
|
|
2967
2967
|
});
|
|
2968
2968
|
|
|
2969
|
-
/* {csegen:
|
|
2970
|
-
const
|
|
2969
|
+
/* {csegen:758} */
|
|
2970
|
+
const csegen_758 = __lazy(function () {
|
|
2971
2971
|
return $0 => $1 => Data_Promise_map_Functor_x28Promisex20x24ex29($4 => Data_String_trim($4), csegen_405()(), $0, $1);
|
|
2972
2972
|
});
|
|
2973
2973
|
|
|
2974
|
-
/* {csegen:
|
|
2975
|
-
const
|
|
2974
|
+
/* {csegen:762} */
|
|
2975
|
+
const csegen_762 = __lazy(function () {
|
|
2976
2976
|
return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}};
|
|
2977
2977
|
});
|
|
2978
2978
|
|
|
2979
|
-
/* {csegen:
|
|
2980
|
-
const
|
|
2979
|
+
/* {csegen:778} */
|
|
2980
|
+
const csegen_778 = __lazy(function () {
|
|
2981
2981
|
return {a1: ann => $1 => Commands_Graph_pretty_Pretty_Date($1), a2: ann => $5 => $6 => Commands_Graph_prettyPrec_Pretty_Date($5, $6)};
|
|
2982
2982
|
});
|
|
2983
2983
|
|
|
@@ -2986,23 +2986,23 @@ function prim__sub_Integer($0, $1) {
|
|
|
2986
2986
|
return ($0-$1);
|
|
2987
2987
|
}
|
|
2988
2988
|
|
|
2989
|
-
/* Main.
|
|
2990
|
-
function
|
|
2989
|
+
/* Main.8859:1556:parsePg */
|
|
2990
|
+
function Main_n__8859_1556_parsePg($0, $1, $2, $3, $4, $5, $6) {
|
|
2991
2991
|
return Data_String_parsePositive(csegen_2(), $6);
|
|
2992
2992
|
}
|
|
2993
2993
|
|
|
2994
|
-
/* Main.
|
|
2995
|
-
function
|
|
2994
|
+
/* Main.8859:1555:parseLim */
|
|
2995
|
+
function Main_n__8859_1555_parseLim($0, $1, $2, $3, $4, $5) {
|
|
2996
2996
|
return Prelude_Interfaces_x3cx3dx3c(csegen_14(), x => Data_Fin_natToFin(x, 101n), $e => Data_String_parsePositive(csegen_2(), $e));
|
|
2997
2997
|
}
|
|
2998
2998
|
|
|
2999
|
-
/* Main.
|
|
3000
|
-
function
|
|
2999
|
+
/* Main.8661:1303:ffiOpts */
|
|
3000
|
+
function Main_n__8661_1303_ffiOpts($0, $1, $2, $3) {
|
|
3001
3001
|
return BashCompletion_ffiOpts($0, $3, $2, $1);
|
|
3002
3002
|
}
|
|
3003
3003
|
|
|
3004
|
-
/* Main.
|
|
3005
|
-
function
|
|
3004
|
+
/* Main.8661:1302:configuredOpts */
|
|
3005
|
+
function Main_n__8661_1302_configuredOpts($0, $1, $2, $3) {
|
|
3006
3006
|
const $13 = $14 => {
|
|
3007
3007
|
switch($14.h) {
|
|
3008
3008
|
case 1: /* Right */ return $0.a1.a1.a2(undefined)(BashCompletion_opts($14.a1, $3, $2, $1));
|
|
@@ -3247,7 +3247,7 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3247
3247
|
}
|
|
3248
3248
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe($b5, filter => ({a1: {a1: filter, a2: {a1: $b2.a1, a2: $b2.a2}}}));
|
|
3249
3249
|
};
|
|
3250
|
-
const $92 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $9a => $9b => ({a1: $9a, a2: $9b})},
|
|
3250
|
+
const $92 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $9a => $9b => ({a1: $9a, a2: $9b})}, Main_n__8859_1555_parseLim($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0)($3.a2.a2.a2.a1)), Main_n__8859_1556_parsePg($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0, $3.a2.a2.a2.a2.a1)), $b1);
|
|
3251
3251
|
return $c2 => {
|
|
3252
3252
|
switch($92.h) {
|
|
3253
3253
|
case undefined: /* just */ return $c4 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_listPullRequestsJsonStr($2, $0.a2, $0.a3, $92.a1.a1, $92.a1.a2.a1, $92.a1.a2.a2), pullsJsonStr => $d3 => $d4 => $d5 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d8 => Prelude_IO_prim__putStr(pullsJsonStr, $d8), $d3, $d4, $d5), $c2, $c4);
|
|
@@ -3302,86 +3302,102 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3302
3302
|
return $1e8 => $1e9 => {
|
|
3303
3303
|
switch($3.a2.h) {
|
|
3304
3304
|
case 0: /* nil */ return Commands_whoami($0, $1, $2, $1e8, $1e9);
|
|
3305
|
-
|
|
3305
|
+
case undefined: /* cons */ return Data_Promise_reject('The whoami command does not take any arguments.', $1e8, $1e9);
|
|
3306
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $1fc => $1fc, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $1e8, $1e9);
|
|
3306
3307
|
}
|
|
3307
3308
|
};
|
|
3308
3309
|
}
|
|
3309
3310
|
case 'sync': {
|
|
3310
|
-
return $
|
|
3311
|
+
return $20a => $20b => {
|
|
3311
3312
|
switch($3.a2.h) {
|
|
3312
|
-
case 0: /* nil */ return Commands_sync($0, $2, $
|
|
3313
|
-
|
|
3313
|
+
case 0: /* nil */ return Commands_sync($0, $2, $20a, $20b);
|
|
3314
|
+
case undefined: /* cons */ return Data_Promise_reject('The sync command does not take any arguments.', $20a, $20b);
|
|
3315
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $21d => $21d, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $20a, $20b);
|
|
3314
3316
|
}
|
|
3315
3317
|
};
|
|
3316
3318
|
}
|
|
3317
3319
|
case 'branch': {
|
|
3318
|
-
return $
|
|
3320
|
+
return $22b => $22c => {
|
|
3319
3321
|
switch($3.a2.h) {
|
|
3320
|
-
case 0: /* nil */ return Commands_branch($0, $1, $
|
|
3321
|
-
|
|
3322
|
+
case 0: /* nil */ return Commands_branch($0, $1, $22b, $22c);
|
|
3323
|
+
case undefined: /* cons */ return Data_Promise_reject('The branch command does not take any arguments.', $22b, $22c);
|
|
3324
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $23e => $23e, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $22b, $22c);
|
|
3322
3325
|
}
|
|
3323
3326
|
};
|
|
3324
3327
|
}
|
|
3325
3328
|
case 'quick': {
|
|
3326
|
-
|
|
3327
|
-
|
|
3328
|
-
|
|
3329
|
-
|
|
3329
|
+
switch($3.a2.h) {
|
|
3330
|
+
case 0: /* nil */ return $24d => $24e => Commands_quick($0, $1, $2, 1, $24d, $24e);
|
|
3331
|
+
case undefined: /* cons */ {
|
|
3332
|
+
return $256 => {
|
|
3333
|
+
switch($3.a2.a1) {
|
|
3334
|
+
case '--bugfix': {
|
|
3335
|
+
return $258 => {
|
|
3336
|
+
switch($3.a2.a2.h) {
|
|
3337
|
+
case 0: /* nil */ return Commands_quick($0, $1, $2, 0, $256, $258);
|
|
3338
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $268 => $268, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $256, $258);
|
|
3339
|
+
}
|
|
3340
|
+
};
|
|
3341
|
+
}
|
|
3342
|
+
default: return $276 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $27e => $27e, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $256, $276);
|
|
3343
|
+
}
|
|
3344
|
+
};
|
|
3330
3345
|
}
|
|
3331
|
-
|
|
3346
|
+
default: return $28c => $28d => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $295 => $295, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $28c, $28d);
|
|
3347
|
+
}
|
|
3332
3348
|
}
|
|
3333
3349
|
case 'health': {
|
|
3334
|
-
return $
|
|
3350
|
+
return $2a3 => $2a4 => {
|
|
3335
3351
|
switch($3.a2.h) {
|
|
3336
|
-
case undefined: /* cons */ return Data_Promise_reject('The health command does not take any arguments.', $
|
|
3337
|
-
case 0: /* nil */ return Commands_health($0, $2, $
|
|
3338
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
3352
|
+
case undefined: /* cons */ return Data_Promise_reject('The health command does not take any arguments.', $2a3, $2a4);
|
|
3353
|
+
case 0: /* nil */ return Commands_health($0, $2, $2a3, $2a4);
|
|
3354
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $2b6 => $2b6, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $2a3, $2a4);
|
|
3339
3355
|
}
|
|
3340
3356
|
};
|
|
3341
3357
|
}
|
|
3342
3358
|
case 'pr': {
|
|
3343
|
-
const $
|
|
3344
|
-
switch($
|
|
3345
|
-
case 1: /* Right */ return $
|
|
3346
|
-
case 0: /* Left */ return Main_exitError(csegen_74()(), $
|
|
3359
|
+
const $2c4 = Commands_parsePrArgs($3.a2);
|
|
3360
|
+
switch($2c4.h) {
|
|
3361
|
+
case 1: /* Right */ return $2c7 => $2c8 => Commands_pr($0, $1, $2, $2c4.a1, $2c7, $2c8);
|
|
3362
|
+
case 0: /* Left */ return Main_exitError(csegen_74()(), $2c4.a1);
|
|
3347
3363
|
}
|
|
3348
3364
|
}
|
|
3349
3365
|
case 'reflect': {
|
|
3350
|
-
return $
|
|
3366
|
+
return $2d5 => $2d6 => {
|
|
3351
3367
|
switch($3.a2.h) {
|
|
3352
|
-
case 0: /* nil */ return Commands_reflect($0, $2, $
|
|
3353
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
3368
|
+
case 0: /* nil */ return Commands_reflect($0, $2, $2d5, $2d6);
|
|
3369
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $2e4 => $2e4, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $2d5, $2d6);
|
|
3354
3370
|
}
|
|
3355
3371
|
};
|
|
3356
3372
|
}
|
|
3357
3373
|
case 'contribute': {
|
|
3358
|
-
const $
|
|
3359
|
-
switch($
|
|
3360
|
-
case 1: /* Right */ return $
|
|
3361
|
-
case 0: /* Left */ return Main_exitError(csegen_74()(), $
|
|
3374
|
+
const $2f2 = Commands_parseContributeArgs($3.a2);
|
|
3375
|
+
switch($2f2.h) {
|
|
3376
|
+
case 1: /* Right */ return $2f5 => $2f6 => Commands_contribute($0, $1, $2, $2f2.a1, $2f5, $2f6);
|
|
3377
|
+
case 0: /* Left */ return Main_exitError(csegen_74()(), $2f2.a1);
|
|
3362
3378
|
}
|
|
3363
3379
|
}
|
|
3364
3380
|
case 'list': {
|
|
3365
|
-
return $
|
|
3381
|
+
return $303 => {
|
|
3366
3382
|
switch($3.a2.h) {
|
|
3367
|
-
case 0: /* nil */ return $
|
|
3383
|
+
case 0: /* nil */ return $305 => Commands_listOrgTeams($0, $2, $303, $305);
|
|
3368
3384
|
case undefined: /* cons */ {
|
|
3369
|
-
return $
|
|
3385
|
+
return $30b => {
|
|
3370
3386
|
switch($3.a2.a2.h) {
|
|
3371
|
-
case 0: /* nil */ return Commands_list($0, $2, $3.a2.a1, $
|
|
3372
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
3387
|
+
case 0: /* nil */ return Commands_list($0, $2, $3.a2.a1, $303, $30b);
|
|
3388
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $31a => $31a, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $303, $30b);
|
|
3373
3389
|
}
|
|
3374
3390
|
};
|
|
3375
3391
|
}
|
|
3376
|
-
default: return $
|
|
3392
|
+
default: return $328 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $330 => $330, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $303, $328);
|
|
3377
3393
|
}
|
|
3378
3394
|
};
|
|
3379
3395
|
}
|
|
3380
3396
|
case 'graph': {
|
|
3381
|
-
const $
|
|
3382
|
-
switch($
|
|
3383
|
-
case 1: /* Right */ return Commands_graph($0, $2, $
|
|
3384
|
-
case 0: /* Left */ return Main_exitError(csegen_74()(), $
|
|
3397
|
+
const $33e = Commands_parseGraphArgs($3.a2);
|
|
3398
|
+
switch($33e.h) {
|
|
3399
|
+
case 1: /* Right */ return Commands_graph($0, $2, $33e.a1);
|
|
3400
|
+
case 0: /* Left */ return Main_exitError(csegen_74()(), $33e.a1);
|
|
3385
3401
|
}
|
|
3386
3402
|
}
|
|
3387
3403
|
case 'rq': {
|
|
@@ -3407,18 +3423,18 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
3407
3423
|
}
|
|
3408
3424
|
}
|
|
3409
3425
|
case 'label': {
|
|
3410
|
-
return $
|
|
3426
|
+
return $372 => $373 => {
|
|
3411
3427
|
switch($3.a2.h) {
|
|
3412
|
-
case 0: /* nil */ return Data_Promise_reject('The label command expects one or more labels as arguments.', $
|
|
3413
|
-
case undefined: /* cons */ return Commands_label($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2}, $
|
|
3414
|
-
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
3428
|
+
case 0: /* nil */ return Data_Promise_reject('The label command expects one or more labels as arguments.', $372, $373);
|
|
3429
|
+
case undefined: /* cons */ return Commands_label($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2}, $372, $373);
|
|
3430
|
+
default: return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $389 => $389, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $372, $373);
|
|
3415
3431
|
}
|
|
3416
3432
|
};
|
|
3417
3433
|
}
|
|
3418
|
-
default: return $
|
|
3434
|
+
default: return $397 => $398 => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $3a0 => $3a0, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $397, $398);
|
|
3419
3435
|
}
|
|
3420
3436
|
}
|
|
3421
|
-
default: return $
|
|
3437
|
+
default: return $3ae => $3af => Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $3b7 => $3b7, {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_53(), $3), a2: {a1: '.', a2: {h: 0}}}}), $3ae, $3af);
|
|
3422
3438
|
}
|
|
3423
3439
|
}
|
|
3424
3440
|
|
|
@@ -3490,10 +3506,10 @@ function Main_exitError($0, $1) {
|
|
|
3490
3506
|
/* Main.bashCompletion : HasIO io => String -> String -> String -> io () */
|
|
3491
3507
|
function Main_bashCompletion($0, $1, $2, $3) {
|
|
3492
3508
|
const $4 = BashCompletion_cmdOpts($1, $2, $3);
|
|
3493
|
-
const $9 = Prelude_Types_maybe(() =>
|
|
3509
|
+
const $9 = Prelude_Types_maybe(() => Main_n__8661_1303_ffiOpts($0, $3, $2, $1), () => $12 => $0.a1.a1.a2(undefined)({a1: $12}), $4);
|
|
3494
3510
|
const $26 = $27 => {
|
|
3495
3511
|
switch($27.h) {
|
|
3496
|
-
case 0: /* nothing */ return
|
|
3512
|
+
case 0: /* nothing */ return Main_n__8661_1302_configuredOpts($0, $3, $2, $1);
|
|
3497
3513
|
case undefined: /* just */ return $0.a1.a1.a2(undefined)($27.a1);
|
|
3498
3514
|
}
|
|
3499
3515
|
};
|
|
@@ -6014,8 +6030,8 @@ function BashCompletion_case__unhashify_10869($0, $1) {
|
|
|
6014
6030
|
}
|
|
6015
6031
|
}
|
|
6016
6032
|
|
|
6017
|
-
/* BashCompletion.
|
|
6018
|
-
function
|
|
6033
|
+
/* BashCompletion.5276:11675:slugsOrLoginsOrLabels */
|
|
6034
|
+
function BashCompletion_n__5276_11675_slugsOrLoginsOrLabels($0, $1) {
|
|
6019
6035
|
switch(Data_String_isPrefixOf('+', $0)) {
|
|
6020
6036
|
case 1: return Prelude_Types_List_mapAppend({h: 0}, $9 => ('+'+$9), $1.a12);
|
|
6021
6037
|
case 0: {
|
|
@@ -6051,7 +6067,7 @@ const BashCompletion_script = __lazy(function () {
|
|
|
6051
6067
|
function BashCompletion_optsForRequestCmd($0, $1) {
|
|
6052
6068
|
switch(Data_String_isPrefixOf($1, '--dry')) {
|
|
6053
6069
|
case 1: return {a1: '--dry', a2: {h: 0}};
|
|
6054
|
-
case 0: return
|
|
6070
|
+
case 0: return BashCompletion_n__5276_11675_slugsOrLoginsOrLabels($1, $0);
|
|
6055
6071
|
}
|
|
6056
6072
|
}
|
|
6057
6073
|
|
|
@@ -6232,7 +6248,6 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6232
6248
|
case '--help': return {a1: {h: 0}};
|
|
6233
6249
|
case 'reflect': return {a1: {h: 0}};
|
|
6234
6250
|
case 'version': return {a1: {h: 0}};
|
|
6235
|
-
case 'quick': return {a1: {h: 0}};
|
|
6236
6251
|
case 'help': {
|
|
6237
6252
|
switch($1) {
|
|
6238
6253
|
case '--': {
|
|
@@ -6240,7 +6255,49 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6240
6255
|
case 'help': return {a1: BashCompletion_allRootCmds()};
|
|
6241
6256
|
default: {
|
|
6242
6257
|
switch($2) {
|
|
6243
|
-
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $
|
|
6258
|
+
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $21 => Data_String_isPrefixOf($1, $21), BashCompletion_allRootCmds())};
|
|
6259
|
+
default: return {h: 0};
|
|
6260
|
+
}
|
|
6261
|
+
}
|
|
6262
|
+
}
|
|
6263
|
+
}
|
|
6264
|
+
default: {
|
|
6265
|
+
switch($2) {
|
|
6266
|
+
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $2c => Data_String_isPrefixOf($1, $2c), BashCompletion_allRootCmds())};
|
|
6267
|
+
default: return {h: 0};
|
|
6268
|
+
}
|
|
6269
|
+
}
|
|
6270
|
+
}
|
|
6271
|
+
}
|
|
6272
|
+
case 'quick': {
|
|
6273
|
+
switch($1) {
|
|
6274
|
+
case '-': {
|
|
6275
|
+
switch($2) {
|
|
6276
|
+
case 'quick': return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6277
|
+
default: {
|
|
6278
|
+
switch($2) {
|
|
6279
|
+
case 'quick': {
|
|
6280
|
+
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6281
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6282
|
+
case 0: return {a1: {h: 0}};
|
|
6283
|
+
}
|
|
6284
|
+
}
|
|
6285
|
+
default: return {h: 0};
|
|
6286
|
+
}
|
|
6287
|
+
}
|
|
6288
|
+
}
|
|
6289
|
+
}
|
|
6290
|
+
case '--': {
|
|
6291
|
+
switch($2) {
|
|
6292
|
+
case 'quick': return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6293
|
+
default: {
|
|
6294
|
+
switch($2) {
|
|
6295
|
+
case 'quick': {
|
|
6296
|
+
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6297
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6298
|
+
case 0: return {a1: {h: 0}};
|
|
6299
|
+
}
|
|
6300
|
+
}
|
|
6244
6301
|
default: return {h: 0};
|
|
6245
6302
|
}
|
|
6246
6303
|
}
|
|
@@ -6248,7 +6305,12 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6248
6305
|
}
|
|
6249
6306
|
default: {
|
|
6250
6307
|
switch($2) {
|
|
6251
|
-
case '
|
|
6308
|
+
case 'quick': {
|
|
6309
|
+
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6310
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6311
|
+
case 0: return {a1: {h: 0}};
|
|
6312
|
+
}
|
|
6313
|
+
}
|
|
6252
6314
|
default: return {h: 0};
|
|
6253
6315
|
}
|
|
6254
6316
|
}
|
|
@@ -6392,7 +6454,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6392
6454
|
}
|
|
6393
6455
|
default: {
|
|
6394
6456
|
switch($2) {
|
|
6395
|
-
case 'harmony': return {a1: Prelude_Types_List_filterAppend({h: 0}, $
|
|
6457
|
+
case 'harmony': return {a1: Prelude_Types_List_filterAppend({h: 0}, $ca => Data_String_isPrefixOf($1, $ca), BashCompletion_allRootCmds())};
|
|
6396
6458
|
default: {
|
|
6397
6459
|
switch($0) {
|
|
6398
6460
|
case 'sync': return {a1: {h: 0}};
|
|
@@ -6400,7 +6462,6 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6400
6462
|
case '--help': return {a1: {h: 0}};
|
|
6401
6463
|
case 'reflect': return {a1: {h: 0}};
|
|
6402
6464
|
case 'version': return {a1: {h: 0}};
|
|
6403
|
-
case 'quick': return {a1: {h: 0}};
|
|
6404
6465
|
case 'help': {
|
|
6405
6466
|
switch($1) {
|
|
6406
6467
|
case '--': {
|
|
@@ -6408,7 +6469,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6408
6469
|
case 'help': return {a1: BashCompletion_allRootCmds()};
|
|
6409
6470
|
default: {
|
|
6410
6471
|
switch($2) {
|
|
6411
|
-
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $
|
|
6472
|
+
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $df => Data_String_isPrefixOf($1, $df), BashCompletion_allRootCmds())};
|
|
6412
6473
|
default: return {h: 0};
|
|
6413
6474
|
}
|
|
6414
6475
|
}
|
|
@@ -6416,7 +6477,54 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
6416
6477
|
}
|
|
6417
6478
|
default: {
|
|
6418
6479
|
switch($2) {
|
|
6419
|
-
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $
|
|
6480
|
+
case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $ea => Data_String_isPrefixOf($1, $ea), BashCompletion_allRootCmds())};
|
|
6481
|
+
default: return {h: 0};
|
|
6482
|
+
}
|
|
6483
|
+
}
|
|
6484
|
+
}
|
|
6485
|
+
}
|
|
6486
|
+
case 'quick': {
|
|
6487
|
+
switch($1) {
|
|
6488
|
+
case '-': {
|
|
6489
|
+
switch($2) {
|
|
6490
|
+
case 'quick': return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6491
|
+
default: {
|
|
6492
|
+
switch($2) {
|
|
6493
|
+
case 'quick': {
|
|
6494
|
+
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6495
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6496
|
+
case 0: return {a1: {h: 0}};
|
|
6497
|
+
}
|
|
6498
|
+
}
|
|
6499
|
+
default: return {h: 0};
|
|
6500
|
+
}
|
|
6501
|
+
}
|
|
6502
|
+
}
|
|
6503
|
+
}
|
|
6504
|
+
case '--': {
|
|
6505
|
+
switch($2) {
|
|
6506
|
+
case 'quick': return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6507
|
+
default: {
|
|
6508
|
+
switch($2) {
|
|
6509
|
+
case 'quick': {
|
|
6510
|
+
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6511
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6512
|
+
case 0: return {a1: {h: 0}};
|
|
6513
|
+
}
|
|
6514
|
+
}
|
|
6515
|
+
default: return {h: 0};
|
|
6516
|
+
}
|
|
6517
|
+
}
|
|
6518
|
+
}
|
|
6519
|
+
}
|
|
6520
|
+
default: {
|
|
6521
|
+
switch($2) {
|
|
6522
|
+
case 'quick': {
|
|
6523
|
+
switch(Data_String_isPrefixOf($1, '--')) {
|
|
6524
|
+
case 1: return {a1: {a1: '--bugfix', a2: {h: 0}}};
|
|
6525
|
+
case 0: return {a1: {h: 0}};
|
|
6526
|
+
}
|
|
6527
|
+
}
|
|
6420
6528
|
default: return {h: 0};
|
|
6421
6529
|
}
|
|
6422
6530
|
}
|
|
@@ -9523,7 +9631,7 @@ function AppVersion_printVersion($0) {
|
|
|
9523
9631
|
|
|
9524
9632
|
/* AppVersion.appVersion : String */
|
|
9525
9633
|
const AppVersion_appVersion = __lazy(function () {
|
|
9526
|
-
return '5.
|
|
9634
|
+
return '5.6.0';
|
|
9527
9635
|
});
|
|
9528
9636
|
|
|
9529
9637
|
/* Commands.Help.subcommandHelp' : String -> Doc AnsiStyle */
|
|
@@ -9537,7 +9645,7 @@ function Commands_Help_subcommandHelpx27($0) {
|
|
|
9537
9645
|
case 'graph': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '-c/--completed'), a2: {a1: Commands_Help_argument(1, '<team-slug>'), a2: {h: 0}}}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Graph the relative review workload of the members of the given GitHub Team.'), a2: {h: 0}});
|
|
9538
9646
|
case 'help': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '<subcommand>'), a2: {h: 0}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print help'), a2: {h: 0}});
|
|
9539
9647
|
case 'version': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print version'), a2: {h: 0}});
|
|
9540
|
-
case 'quick': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Quickly spin up new work with a GitHub issue and associated feature branch. If you have harmony configured to parse GitHub issue numbers ('), a2: {a1: Commands_Help_shell('harmony config branchParsing github'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(') then any PR created from the new branch will automatically link to the new ticket in its description.'), a2: {h: 0}}}}), a2: {h: 0}});
|
|
9648
|
+
case 'quick': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '--bugfix'), a2: {h: 0}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Quickly spin up new work with a GitHub issue and associated feature branch. If you have harmony configured to parse GitHub issue numbers ('), a2: {a1: Commands_Help_shell('harmony config branchParsing github'), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(') then any PR created from the new branch will automatically link to the new ticket in its description.'), a2: {h: 0}}}}), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $13c => $13c, {a1: 'By default the branch will have the \'feature\' prefix. If the\n--bugfix flag is specified, the \'bugfix\' prefix will be used.', a2: {h: 0}})), a2: {h: 0}}});
|
|
9541
9649
|
case 'sync': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Synchronize local config with information from GitHub.'), a2: {h: 0}});
|
|
9542
9650
|
case 'branch': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print the GitHub URI for the currently checked out branch.'), a2: {h: 0}});
|
|
9543
9651
|
case 'whoami': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Print information about the configured and authenticated user.'), a2: {h: 0}});
|
|
@@ -9545,7 +9653,7 @@ function Commands_Help_subcommandHelpx27($0) {
|
|
|
9545
9653
|
case 'list': return Commands_Help_subcommand($0, {a1: Commands_Help_argument(0, '<team-slug>'), a2: {h: 0}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('List all teams or the members of the given GitHub Team.'), a2: {h: 0}});
|
|
9546
9654
|
case 'health': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow('Graph all open PRs grouped by the month they were created.'), a2: {h: 0}});
|
|
9547
9655
|
case 'rq': return Commands_Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Alias for \'request\' command.'), a2: {h: 0}});
|
|
9548
|
-
default: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $
|
|
9656
|
+
default: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $185 => $185, {a1: 'Unreconized command: ', a2: {a1: $0, a2: {h: 0}}}));
|
|
9549
9657
|
}
|
|
9550
9658
|
}
|
|
9551
9659
|
|
|
@@ -9744,7 +9852,7 @@ function Commands_case__request_19159($0, $1, $2, $3, $4, $5) {
|
|
|
9744
9852
|
|
|
9745
9853
|
/* Commands.case block in case block in request,partitionedArgs */
|
|
9746
9854
|
function Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_19079($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
9747
|
-
const $9 = Prelude_Interfaces_mapHom(
|
|
9855
|
+
const $9 = Prelude_Interfaces_mapHom(csegen_603(), $f => Prelude_Types_List_mapAppend({h: 0}, $13 => Data_String_Extra_drop(1n, $13), $f))({a1: $5, a2: $7.a1});
|
|
9748
9856
|
return {a1: $9.a1, a2: {a1: $7.a2, a2: $9.a2}};
|
|
9749
9857
|
}
|
|
9750
9858
|
|
|
@@ -9753,30 +9861,30 @@ function Commands_case__requestx2cpartitionedArgs_19056($0, $1, $2, $3, $4, $5)
|
|
|
9753
9861
|
return Commands_case__casex20blockx20inx20requestx2cpartitionedArgs_19079($0, $1, $2, $3, $4, $5.a1, $5.a2, Data_List_partition($12 => BashCompletion_isHashPrefix($12), $5.a2));
|
|
9754
9862
|
}
|
|
9755
9863
|
|
|
9756
|
-
/* Commands.
|
|
9757
|
-
function
|
|
9864
|
+
/* Commands.8933:18213:recombineIntoArgs */
|
|
9865
|
+
function Commands_n__8933_18213_recombineIntoArgs($0, $1) {
|
|
9758
9866
|
switch($1.h) {
|
|
9759
9867
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
9760
9868
|
case undefined: /* cons */ {
|
|
9761
9869
|
switch($1.a1) {
|
|
9762
9870
|
case '-i': {
|
|
9763
9871
|
switch($1.a2.h) {
|
|
9764
|
-
case 0: /* nil */ return
|
|
9872
|
+
case 0: /* nil */ return csegen_607();
|
|
9765
9873
|
case undefined: /* cons */ {
|
|
9766
|
-
const $8 =
|
|
9874
|
+
const $8 = Commands_n__8933_18211_parseIntoOpt($0, $1.a2.a1);
|
|
9767
9875
|
switch($8.h) {
|
|
9768
9876
|
case undefined: /* just */ {
|
|
9769
|
-
const $c =
|
|
9877
|
+
const $c = Commands_n__8933_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9770
9878
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
9771
9879
|
}
|
|
9772
9880
|
case 0: /* nothing */ {
|
|
9773
|
-
const $14 =
|
|
9881
|
+
const $14 = Commands_n__8933_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9774
9882
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
9775
9883
|
}
|
|
9776
9884
|
}
|
|
9777
9885
|
}
|
|
9778
9886
|
default: {
|
|
9779
|
-
const $1e =
|
|
9887
|
+
const $1e = Commands_n__8933_18213_recombineIntoArgs($0, $1.a2);
|
|
9780
9888
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
9781
9889
|
}
|
|
9782
9890
|
}
|
|
@@ -9785,26 +9893,26 @@ function Commands_n__8925_18213_recombineIntoArgs($0, $1) {
|
|
|
9785
9893
|
switch($1.a2.h) {
|
|
9786
9894
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--into', a2: {h: 0}}};
|
|
9787
9895
|
case undefined: /* cons */ {
|
|
9788
|
-
const $2b =
|
|
9896
|
+
const $2b = Commands_n__8933_18211_parseIntoOpt($0, $1.a2.a1);
|
|
9789
9897
|
switch($2b.h) {
|
|
9790
9898
|
case undefined: /* just */ {
|
|
9791
|
-
const $2f =
|
|
9899
|
+
const $2f = Commands_n__8933_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9792
9900
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
9793
9901
|
}
|
|
9794
9902
|
case 0: /* nothing */ {
|
|
9795
|
-
const $37 =
|
|
9903
|
+
const $37 = Commands_n__8933_18213_recombineIntoArgs($0, $1.a2.a2);
|
|
9796
9904
|
return {a1: $37.a1, a2: {a1: '--into', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
9797
9905
|
}
|
|
9798
9906
|
}
|
|
9799
9907
|
}
|
|
9800
9908
|
default: {
|
|
9801
|
-
const $41 =
|
|
9909
|
+
const $41 = Commands_n__8933_18213_recombineIntoArgs($0, $1.a2);
|
|
9802
9910
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
9803
9911
|
}
|
|
9804
9912
|
}
|
|
9805
9913
|
}
|
|
9806
9914
|
default: {
|
|
9807
|
-
const $49 =
|
|
9915
|
+
const $49 = Commands_n__8933_18213_recombineIntoArgs($0, $1.a2);
|
|
9808
9916
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
9809
9917
|
}
|
|
9810
9918
|
}
|
|
@@ -9812,30 +9920,30 @@ function Commands_n__8925_18213_recombineIntoArgs($0, $1) {
|
|
|
9812
9920
|
}
|
|
9813
9921
|
}
|
|
9814
9922
|
|
|
9815
|
-
/* Commands.
|
|
9816
|
-
function
|
|
9923
|
+
/* Commands.10985:20153:recombineIgnoreArgs */
|
|
9924
|
+
function Commands_n__10985_20153_recombineIgnoreArgs($0, $1) {
|
|
9817
9925
|
switch($1.h) {
|
|
9818
9926
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
9819
9927
|
case undefined: /* cons */ {
|
|
9820
9928
|
switch($1.a1) {
|
|
9821
9929
|
case '-i': {
|
|
9822
9930
|
switch($1.a2.h) {
|
|
9823
|
-
case 0: /* nil */ return
|
|
9931
|
+
case 0: /* nil */ return csegen_607();
|
|
9824
9932
|
case undefined: /* cons */ {
|
|
9825
|
-
const $8 =
|
|
9933
|
+
const $8 = Commands_n__10985_20150_parseIgnoreOpt($0, $1.a2.a1);
|
|
9826
9934
|
switch($8.h) {
|
|
9827
9935
|
case undefined: /* just */ {
|
|
9828
|
-
const $c =
|
|
9936
|
+
const $c = Commands_n__10985_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9829
9937
|
return {a1: {a1: $8.a1, a2: $c.a1}, a2: $c.a2};
|
|
9830
9938
|
}
|
|
9831
9939
|
case 0: /* nothing */ {
|
|
9832
|
-
const $14 =
|
|
9940
|
+
const $14 = Commands_n__10985_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9833
9941
|
return {a1: $14.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $14.a2}}};
|
|
9834
9942
|
}
|
|
9835
9943
|
}
|
|
9836
9944
|
}
|
|
9837
9945
|
default: {
|
|
9838
|
-
const $1e =
|
|
9946
|
+
const $1e = Commands_n__10985_20153_recombineIgnoreArgs($0, $1.a2);
|
|
9839
9947
|
return {a1: $1e.a1, a2: {a1: $1.a1, a2: $1e.a2}};
|
|
9840
9948
|
}
|
|
9841
9949
|
}
|
|
@@ -9844,26 +9952,26 @@ function Commands_n__10977_20153_recombineIgnoreArgs($0, $1) {
|
|
|
9844
9952
|
switch($1.a2.h) {
|
|
9845
9953
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
|
|
9846
9954
|
case undefined: /* cons */ {
|
|
9847
|
-
const $2b =
|
|
9955
|
+
const $2b = Commands_n__10985_20150_parseIgnoreOpt($0, $1.a2.a1);
|
|
9848
9956
|
switch($2b.h) {
|
|
9849
9957
|
case undefined: /* just */ {
|
|
9850
|
-
const $2f =
|
|
9958
|
+
const $2f = Commands_n__10985_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9851
9959
|
return {a1: {a1: $2b.a1, a2: $2f.a1}, a2: $2f.a2};
|
|
9852
9960
|
}
|
|
9853
9961
|
case 0: /* nothing */ {
|
|
9854
|
-
const $37 =
|
|
9962
|
+
const $37 = Commands_n__10985_20153_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9855
9963
|
return {a1: $37.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $37.a2}}};
|
|
9856
9964
|
}
|
|
9857
9965
|
}
|
|
9858
9966
|
}
|
|
9859
9967
|
default: {
|
|
9860
|
-
const $41 =
|
|
9968
|
+
const $41 = Commands_n__10985_20153_recombineIgnoreArgs($0, $1.a2);
|
|
9861
9969
|
return {a1: $41.a1, a2: {a1: $1.a1, a2: $41.a2}};
|
|
9862
9970
|
}
|
|
9863
9971
|
}
|
|
9864
9972
|
}
|
|
9865
9973
|
default: {
|
|
9866
|
-
const $49 =
|
|
9974
|
+
const $49 = Commands_n__10985_20153_recombineIgnoreArgs($0, $1.a2);
|
|
9867
9975
|
return {a1: $49.a1, a2: {a1: $1.a1, a2: $49.a2}};
|
|
9868
9976
|
}
|
|
9869
9977
|
}
|
|
@@ -9871,23 +9979,23 @@ function Commands_n__10977_20153_recombineIgnoreArgs($0, $1) {
|
|
|
9871
9979
|
}
|
|
9872
9980
|
}
|
|
9873
9981
|
|
|
9874
|
-
/* Commands.
|
|
9875
|
-
function
|
|
9982
|
+
/* Commands.10199:19397:putNameLn */
|
|
9983
|
+
function Commands_n__10199_19397_putNameLn($0, $1, $2, $3) {
|
|
9876
9984
|
return Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_fillBreak(15, Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a1))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('-'), a2: {h: 0}}), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a2), a2: {h: 0}}}});
|
|
9877
9985
|
}
|
|
9878
9986
|
|
|
9879
|
-
/* Commands.
|
|
9880
|
-
function
|
|
9881
|
-
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $f =>
|
|
9987
|
+
/* Commands.8671:17949:putLabels */
|
|
9988
|
+
function Commands_n__8671_17949_putLabels($0, $1, $2, $3, $4) {
|
|
9989
|
+
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $f => Commands_n__8671_17948_putLabel($0, $1, $2, $3, $f), $4)));
|
|
9882
9990
|
}
|
|
9883
9991
|
|
|
9884
|
-
/* Commands.
|
|
9885
|
-
function
|
|
9992
|
+
/* Commands.8671:17948:putLabel */
|
|
9993
|
+
function Commands_n__8671_17948_putLabel($0, $1, $2, $3, $4) {
|
|
9886
9994
|
return Text_PrettyPrint_Prettyprinter_Doc_enclose(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\"'), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\"'), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4)));
|
|
9887
9995
|
}
|
|
9888
9996
|
|
|
9889
|
-
/* Commands.
|
|
9890
|
-
function
|
|
9997
|
+
/* Commands.11337:20514:printDetails */
|
|
9998
|
+
function Commands_n__11337_20514_printDetails($0, $1, $2, $3, $4) {
|
|
9891
9999
|
const $5 = Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4.a8));
|
|
9892
10000
|
const $d = Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' \u{251c} title: '), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4.a2));
|
|
9893
10001
|
const $16 = Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' \u{251c} created:'), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date($4.a3)));
|
|
@@ -9896,8 +10004,8 @@ function Commands_n__11329_20514_printDetails($0, $1, $2, $3, $4) {
|
|
|
9896
10004
|
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: $5, a2: {a1: $d, a2: {a1: $16, a2: {a1: $21, a2: {a1: $2f, a2: {h: 0}}}}}});
|
|
9897
10005
|
}
|
|
9898
10006
|
|
|
9899
|
-
/* Commands.
|
|
9900
|
-
function
|
|
10007
|
+
/* Commands.11337:20513:pickOne */
|
|
10008
|
+
function Commands_n__11337_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
9901
10009
|
const $9 = Data_List_headx27(Data_List_drop($5, Prelude_Types_List_tailRecAppend($7, $8)));
|
|
9902
10010
|
return $12 => $13 => {
|
|
9903
10011
|
switch($9.h) {
|
|
@@ -9911,7 +10019,7 @@ function Commands_n__11329_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
9911
10019
|
break;
|
|
9912
10020
|
}
|
|
9913
10021
|
case 0: /* nothing */ {
|
|
9914
|
-
$1a =
|
|
10022
|
+
$1a = csegen_612();
|
|
9915
10023
|
break;
|
|
9916
10024
|
}
|
|
9917
10025
|
}
|
|
@@ -9921,23 +10029,23 @@ function Commands_n__11329_20513_pickOne($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
9921
10029
|
};
|
|
9922
10030
|
}
|
|
9923
10031
|
|
|
9924
|
-
/* Commands.
|
|
9925
|
-
function
|
|
10032
|
+
/* Commands.9799:19044:partitionedArgs */
|
|
10033
|
+
function Commands_n__9799_19044_partitionedArgs($0, $1, $2, $3, $4) {
|
|
9926
10034
|
return Commands_case__requestx2cpartitionedArgs_19056($0, $1, $2, $3, $4, Data_List_partition($e => Data_String_isPrefixOf('+', $e), $4));
|
|
9927
10035
|
}
|
|
9928
10036
|
|
|
9929
|
-
/* Commands.
|
|
9930
|
-
function
|
|
10037
|
+
/* Commands.10367:19585:parseTeamArg */
|
|
10038
|
+
function Commands_n__10367_19585_parseTeamArg($0, $1) {
|
|
9931
10039
|
return {a1: {a1: $1}};
|
|
9932
10040
|
}
|
|
9933
10041
|
|
|
9934
|
-
/* Commands.
|
|
9935
|
-
function
|
|
10042
|
+
/* Commands.10985:20152:parseSkipArg */
|
|
10043
|
+
function Commands_n__10985_20152_parseSkipArg($0, $1) {
|
|
9936
10044
|
return Commands_case__parseContributeArgsx2cparseSkipArg_20199($0, $1, Data_String_strM($1));
|
|
9937
10045
|
}
|
|
9938
10046
|
|
|
9939
|
-
/* Commands.
|
|
9940
|
-
function
|
|
10047
|
+
/* Commands.10985:20151:parseListFlag */
|
|
10048
|
+
function Commands_n__10985_20151_parseListFlag($0, $1) {
|
|
9941
10049
|
switch($1) {
|
|
9942
10050
|
case '-l': return {a1: {h: 0 /* List */}};
|
|
9943
10051
|
case '--list': return {a1: {h: 0 /* List */}};
|
|
@@ -9945,8 +10053,8 @@ function Commands_n__10977_20151_parseListFlag($0, $1) {
|
|
|
9945
10053
|
}
|
|
9946
10054
|
}
|
|
9947
10055
|
|
|
9948
|
-
/* Commands.
|
|
9949
|
-
function
|
|
10056
|
+
/* Commands.8933:18212:parseLabelArg */
|
|
10057
|
+
function Commands_n__8933_18212_parseLabelArg($0, $1) {
|
|
9950
10058
|
const $2 = Data_String_strM($1);
|
|
9951
10059
|
switch($2.h) {
|
|
9952
10060
|
case undefined: /* cons */ {
|
|
@@ -9959,29 +10067,29 @@ function Commands_n__8925_18212_parseLabelArg($0, $1) {
|
|
|
9959
10067
|
}
|
|
9960
10068
|
}
|
|
9961
10069
|
|
|
9962
|
-
/* Commands.
|
|
9963
|
-
function
|
|
10070
|
+
/* Commands.8933:18211:parseIntoOpt */
|
|
10071
|
+
function Commands_n__8933_18211_parseIntoOpt($0, $1) {
|
|
9964
10072
|
const $2 = Util_String_nonEmpty($1);
|
|
9965
10073
|
return Prelude_Types_map_Functor_Maybe($7 => $7, $2);
|
|
9966
10074
|
}
|
|
9967
10075
|
|
|
9968
|
-
/* Commands.
|
|
9969
|
-
function
|
|
10076
|
+
/* Commands.10985:20150:parseIgnoreOpt */
|
|
10077
|
+
function Commands_n__10985_20150_parseIgnoreOpt($0, $1) {
|
|
9970
10078
|
const $2 = Data_String_split(csegen_358(), $1);
|
|
9971
10079
|
const $7 = Data_List1_last($2);
|
|
9972
10080
|
return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
|
|
9973
10081
|
}
|
|
9974
10082
|
|
|
9975
|
-
/* Commands.
|
|
9976
|
-
function
|
|
10083
|
+
/* Commands.8933:18210:parseDraftFlag */
|
|
10084
|
+
function Commands_n__8933_18210_parseDraftFlag($0, $1) {
|
|
9977
10085
|
switch($1) {
|
|
9978
10086
|
case '--draft': return {a1: {h: 0 /* Draft */}};
|
|
9979
10087
|
default: return {h: 0};
|
|
9980
10088
|
}
|
|
9981
10089
|
}
|
|
9982
10090
|
|
|
9983
|
-
/* Commands.
|
|
9984
|
-
function
|
|
10091
|
+
/* Commands.10367:19584:parseCompletedFlag */
|
|
10092
|
+
function Commands_n__10367_19584_parseCompletedFlag($0, $1) {
|
|
9985
10093
|
switch($1) {
|
|
9986
10094
|
case '-c': return {a1: {h: 0}};
|
|
9987
10095
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -9989,8 +10097,8 @@ function Commands_n__10359_19584_parseCompletedFlag($0, $1) {
|
|
|
9989
10097
|
}
|
|
9990
10098
|
}
|
|
9991
10099
|
|
|
9992
|
-
/* Commands.
|
|
9993
|
-
function
|
|
10100
|
+
/* Commands.10985:20149:parseCheckoutFlag */
|
|
10101
|
+
function Commands_n__10985_20149_parseCheckoutFlag($0, $1) {
|
|
9994
10102
|
switch($1) {
|
|
9995
10103
|
case '-c': return {a1: {h: 1 /* Checkout */}};
|
|
9996
10104
|
case '--checkout': return {a1: {h: 1 /* Checkout */}};
|
|
@@ -9998,8 +10106,8 @@ function Commands_n__10977_20149_parseCheckoutFlag($0, $1) {
|
|
|
9998
10106
|
}
|
|
9999
10107
|
}
|
|
10000
10108
|
|
|
10001
|
-
/* Commands.
|
|
10002
|
-
function
|
|
10109
|
+
/* Commands.11337:20512:listSome */
|
|
10110
|
+
function Commands_n__11337_20512_listSome($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10003
10111
|
const $15 = $16 => {
|
|
10004
10112
|
let $1b;
|
|
10005
10113
|
switch(Prelude_Types_null_Foldable_List($6)) {
|
|
@@ -10012,13 +10120,13 @@ function Commands_n__11329_20512_listSome($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
10012
10120
|
break;
|
|
10013
10121
|
}
|
|
10014
10122
|
}
|
|
10015
|
-
return Prelude_Interfaces_when(csegen_66()(), $1b, () => $20 => $21 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $27 => $28 => $29 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_renderIO($3, csegen_74()(), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_bold(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Your review not requested:'))), $39 =>
|
|
10123
|
+
return Prelude_Interfaces_when(csegen_66()(), $1b, () => $20 => $21 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $27 => $28 => $29 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Util_renderIO($3, csegen_74()(), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_bold(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Your review not requested:'))), $39 => Commands_n__11337_20510_goListSome($0, $1, $2, $3, 0, Data_List_take(5n, $6)), $28, $29), $20, $21));
|
|
10016
10124
|
};
|
|
10017
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
10125
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_n__11337_20510_goListSome($0, $1, $2, $3, 1, Data_List_drop($4, $5)), $15, $7, $8);
|
|
10018
10126
|
}
|
|
10019
10127
|
|
|
10020
|
-
/* Commands.
|
|
10021
|
-
function
|
|
10128
|
+
/* Commands.9359:18641:labelSlugs */
|
|
10129
|
+
function Commands_n__9359_18641_labelSlugs($0, $1, $2, $3) {
|
|
10022
10130
|
const $5 = $6 => $7 => {
|
|
10023
10131
|
switch($6.h) {
|
|
10024
10132
|
case 2: /* Label */ return {a1: $6.a1, a2: $7};
|
|
@@ -10028,13 +10136,13 @@ function Commands_n__9351_18641_labelSlugs($0, $1, $2, $3) {
|
|
|
10028
10136
|
return Prelude_Types_foldr_Foldable_List($5, {h: 0}, $3);
|
|
10029
10137
|
}
|
|
10030
10138
|
|
|
10031
|
-
/* Commands.
|
|
10032
|
-
function
|
|
10139
|
+
/* Commands.11337:20511:isNotIgnored */
|
|
10140
|
+
function Commands_n__11337_20511_isNotIgnored($0, $1, $2, $3, $4, $5) {
|
|
10033
10141
|
return Data_Maybe_isNothing(Data_List_find($a => Prelude_EqOrd_x3dx3d_Eq_Integer($a, $5.a1), $4.a13));
|
|
10034
10142
|
}
|
|
10035
10143
|
|
|
10036
|
-
/* Commands.
|
|
10037
|
-
function
|
|
10144
|
+
/* Commands.9359:18640:isDraft */
|
|
10145
|
+
function Commands_n__9359_18640_isDraft($0, $1, $2, $3) {
|
|
10038
10146
|
const $7 = $8 => {
|
|
10039
10147
|
switch($8.h) {
|
|
10040
10148
|
case 0: /* Draft */ return 1;
|
|
@@ -10045,8 +10153,8 @@ function Commands_n__9351_18640_isDraft($0, $1, $2, $3) {
|
|
|
10045
10153
|
return Data_Maybe_isJust($5);
|
|
10046
10154
|
}
|
|
10047
10155
|
|
|
10048
|
-
/* Commands.
|
|
10049
|
-
function
|
|
10156
|
+
/* Commands.9359:18639:intoBranch */
|
|
10157
|
+
function Commands_n__9359_18639_intoBranch($0, $1, $2, $3) {
|
|
10050
10158
|
const $d = $e => {
|
|
10051
10159
|
switch($e.h) {
|
|
10052
10160
|
case 1: /* Into */ return {a1: Util_String_value($e.a1)};
|
|
@@ -10056,11 +10164,11 @@ function Commands_n__9351_18639_intoBranch($0, $1, $2, $3) {
|
|
|
10056
10164
|
return Prelude_Types_foldMap_Foldable_List({a1: $7 => $8 => Prelude_Types_x3cx2bx3e_Semigroup_x28Maybex20x24ax29($7, $8), a2: {h: 0}}, $d, $3);
|
|
10057
10165
|
}
|
|
10058
10166
|
|
|
10059
|
-
/* Commands.
|
|
10060
|
-
function
|
|
10167
|
+
/* Commands.11337:20510:goListSome */
|
|
10168
|
+
function Commands_n__11337_20510_goListSome($0, $1, $2, $3, $4, $5) {
|
|
10061
10169
|
switch($5.h) {
|
|
10062
10170
|
case undefined: /* cons */ {
|
|
10063
|
-
const $7 =
|
|
10171
|
+
const $7 = Commands_n__11337_20514_printDetails($0, $1, $2, $3, $5.a1);
|
|
10064
10172
|
let $15;
|
|
10065
10173
|
switch($4) {
|
|
10066
10174
|
case 1: {
|
|
@@ -10072,15 +10180,15 @@ function Commands_n__11329_20510_goListSome($0, $1, $2, $3, $4, $5) {
|
|
|
10072
10180
|
break;
|
|
10073
10181
|
}
|
|
10074
10182
|
}
|
|
10075
|
-
const $13 = Text_PrettyPrint_Prettyprinter_Doc_indent($15, Prelude_Types_foldl_Foldable_List(acc => next => Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: acc, a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
10183
|
+
const $13 = Text_PrettyPrint_Prettyprinter_Doc_indent($15, Prelude_Types_foldl_Foldable_List(acc => next => Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: acc, a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Commands_n__11337_20514_printDetails($0, $1, $2, $3, next), a2: {h: 0}}}}), $7, $5.a2));
|
|
10076
10184
|
return Util_renderIO($3, csegen_74()(), $13);
|
|
10077
10185
|
}
|
|
10078
|
-
case 0: /* nil */ return
|
|
10186
|
+
case 0: /* nil */ return csegen_612();
|
|
10079
10187
|
}
|
|
10080
10188
|
}
|
|
10081
10189
|
|
|
10082
|
-
/* Commands.
|
|
10083
|
-
function
|
|
10190
|
+
/* Commands.10199:19396:forkedUser */
|
|
10191
|
+
function Commands_n__10199_19396_forkedUser($0, $1, $2, $3) {
|
|
10084
10192
|
return FFI_Concurrency_fork(csegen_74()(), ('user --json '+$3));
|
|
10085
10193
|
}
|
|
10086
10194
|
|
|
@@ -10113,7 +10221,7 @@ function Commands_skipArg($0) {
|
|
|
10113
10221
|
/* Commands.request : Config => Git => Octokit => List String -> {default False _ : Bool} ->
|
|
10114
10222
|
Promise' () */
|
|
10115
10223
|
function Commands_request($0, $1, $2, $3, $4) {
|
|
10116
|
-
return Commands_case__request_19159($0, $1, $2, $4, $3,
|
|
10224
|
+
return Commands_case__request_19159($0, $1, $2, $4, $3, Commands_n__9799_19044_partitionedArgs($0, $1, $2, $4, $3));
|
|
10117
10225
|
}
|
|
10118
10226
|
|
|
10119
10227
|
/* Commands.reflect : Config => Octokit => Promise' () */
|
|
@@ -10121,9 +10229,9 @@ function Commands_reflect($0, $1, $2, $3) {
|
|
|
10121
10229
|
return Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3);
|
|
10122
10230
|
}
|
|
10123
10231
|
|
|
10124
|
-
/* Commands.quick : Config => Git => Octokit => Promise' () */
|
|
10125
|
-
function Commands_quick($0, $1, $2, $3, $4) {
|
|
10126
|
-
return Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4);
|
|
10232
|
+
/* Commands.quick : Config => Git => Octokit => IssueCategory -> Promise' () */
|
|
10233
|
+
function Commands_quick($0, $1, $2, $3, $4, $5) {
|
|
10234
|
+
return Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5);
|
|
10127
10235
|
}
|
|
10128
10236
|
|
|
10129
10237
|
/* Commands.prUsageError : String */
|
|
@@ -10144,7 +10252,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10144
10252
|
};
|
|
10145
10253
|
const $48 = $49 => $4a => $4b => {
|
|
10146
10254
|
let $52;
|
|
10147
|
-
switch(Prelude_Types_null_Foldable_List(
|
|
10255
|
+
switch(Prelude_Types_null_Foldable_List(Commands_n__9359_18641_labelSlugs($0, $1, $2, $3))) {
|
|
10148
10256
|
case 1: {
|
|
10149
10257
|
$52 = 0;
|
|
10150
10258
|
break;
|
|
@@ -10154,10 +10262,10 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10154
10262
|
break;
|
|
10155
10263
|
}
|
|
10156
10264
|
}
|
|
10157
|
-
const $4d = Prelude_Interfaces_when(csegen_66()(), $52, () => $5c => $5d => Commands_label($0, $1, $2,
|
|
10265
|
+
const $4d = Prelude_Interfaces_when(csegen_66()(), $52, () => $5c => $5d => Commands_label($0, $1, $2, Commands_n__9359_18641_labelSlugs($0, $1, $2, $3), $5c, $5d));
|
|
10158
10266
|
const $6a = $6b => $6c => $6d => {
|
|
10159
10267
|
const $6f = $70 => {
|
|
10160
|
-
const $71 =
|
|
10268
|
+
const $71 = Commands_n__9359_18639_intoBranch($0, $1, $2, $3);
|
|
10161
10269
|
switch($71.h) {
|
|
10162
10270
|
case undefined: /* just */ {
|
|
10163
10271
|
return $77 => {
|
|
@@ -10172,7 +10280,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10172
10280
|
};
|
|
10173
10281
|
const $96 = $97 => {
|
|
10174
10282
|
let $9c;
|
|
10175
|
-
switch(
|
|
10283
|
+
switch(Commands_n__9359_18640_isDraft($0, $1, $2, $3)) {
|
|
10176
10284
|
case 1: {
|
|
10177
10285
|
switch($2c.a2.a4) {
|
|
10178
10286
|
case 1: {
|
|
@@ -10213,7 +10321,7 @@ function Commands_pr($0, $1, $2, $3, $4, $5) {
|
|
|
10213
10321
|
case 1: /* Hypothetical */ return $f4 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($f7 => Prelude_IO_prim__putStr(($2c.a1+'\n'), $f7), $2d, $2e, $f4);
|
|
10214
10322
|
}
|
|
10215
10323
|
};
|
|
10216
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8 => $9 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c => $d => FFI_Git_currentBranch($1, $c, $d), $13 => $14 => $15 => Commands_PullRequest_identifyOrCreatePR($0, $1, $2,
|
|
10324
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8 => $9 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($c => $d => FFI_Git_currentBranch($1, $c, $d), $13 => $14 => $15 => Commands_PullRequest_identifyOrCreatePR($0, $1, $2, Commands_n__9359_18640_isDraft($0, $1, $2, $3), Commands_n__9359_18639_intoBranch($0, $1, $2, $3), $13, $14, $15), $8, $9), $2b, $4, $5);
|
|
10217
10325
|
}
|
|
10218
10326
|
|
|
10219
10327
|
/* Commands.parsePrArgs : List String -> Either String (List PrArg) */
|
|
@@ -10221,9 +10329,9 @@ function Commands_parsePrArgs($0) {
|
|
|
10221
10329
|
switch($0.h) {
|
|
10222
10330
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
10223
10331
|
default: {
|
|
10224
|
-
const $3 =
|
|
10332
|
+
const $3 = Commands_n__8933_18213_recombineIntoArgs($0, $0);
|
|
10225
10333
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 1 /* Into */, a1: $b}), $3.a1);
|
|
10226
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
10334
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_627(), $18 => Commands_n__8933_18210_parseDraftFlag($0, $18), $1d => Commands_n__8933_18212_parseLabelArg($0, $1d), $13), $3.a2);
|
|
10227
10335
|
return Data_Either_maybeToEither(() => Commands_prUsageError(), Prelude_Types_map_Functor_Maybe($29 => Prelude_Types_List_tailRecAppend($7, $29), $e));
|
|
10228
10336
|
}
|
|
10229
10337
|
}
|
|
@@ -10239,7 +10347,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10239
10347
|
switch($0.a2.a2.h) {
|
|
10240
10348
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
10241
10349
|
default: {
|
|
10242
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(
|
|
10350
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_627(), $10 => Commands_n__10367_19584_parseCompletedFlag($0, $10), $15 => Commands_n__10367_19585_parseTeamArg($0, $15), $b), $0);
|
|
10243
10351
|
switch($6.h) {
|
|
10244
10352
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
10245
10353
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10248,7 +10356,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10248
10356
|
}
|
|
10249
10357
|
}
|
|
10250
10358
|
default: {
|
|
10251
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(
|
|
10359
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_627(), $27 => Commands_n__10367_19584_parseCompletedFlag($0, $27), $2c => Commands_n__10367_19585_parseTeamArg($0, $2c), $22), $0);
|
|
10252
10360
|
switch($1d.h) {
|
|
10253
10361
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
10254
10362
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10257,7 +10365,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10257
10365
|
}
|
|
10258
10366
|
}
|
|
10259
10367
|
default: {
|
|
10260
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(
|
|
10368
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_627(), $3e => Commands_n__10367_19584_parseCompletedFlag($0, $3e), $43 => Commands_n__10367_19585_parseTeamArg($0, $43), $39), $0);
|
|
10261
10369
|
switch($34.h) {
|
|
10262
10370
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
10263
10371
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10271,9 +10379,9 @@ function Commands_parseContributeArgs($0) {
|
|
|
10271
10379
|
switch($0.h) {
|
|
10272
10380
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
10273
10381
|
default: {
|
|
10274
|
-
const $3 =
|
|
10382
|
+
const $3 = Commands_n__10985_20153_recombineIgnoreArgs($0, $0);
|
|
10275
10383
|
const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 2 /* Ignore */, a1: $b}), $3.a1);
|
|
10276
|
-
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(
|
|
10384
|
+
const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_627(), $18 => Commands_n__10985_20151_parseListFlag($0, $18), $1d => Commands_x3cx7cx7cx3e(csegen_627(), $22 => Commands_n__10985_20152_parseSkipArg($0, $22), $27 => Commands_n__10985_20149_parseCheckoutFlag($0, $27), $1d), $13), $3.a2);
|
|
10277
10385
|
return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($34 => Prelude_Types_List_tailRecAppend($7, $34), $e));
|
|
10278
10386
|
}
|
|
10279
10387
|
}
|
|
@@ -10281,12 +10389,12 @@ function Commands_parseContributeArgs($0) {
|
|
|
10281
10389
|
|
|
10282
10390
|
/* Commands.listOrgTeams : Config => Octokit => Promise' () */
|
|
10283
10391
|
function Commands_listOrgTeams($0, $1, $2, $3) {
|
|
10284
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10392
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($6 => $7 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_628(), $c => $d => FFI_GitHub_forceListTeams($1, $0.a2, $c, $d), $6, $7), teamNames => Util_renderIO($0, csegen_74()(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $22 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($22)), teamNames))), $2, $3);
|
|
10285
10393
|
}
|
|
10286
10394
|
|
|
10287
10395
|
/* Commands.list : Config => Octokit => String -> Promise' () */
|
|
10288
10396
|
function Commands_list($0, $1, $2, $3, $4) {
|
|
10289
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10397
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_628(), $d => $e => FFI_GitHub_forceListTeamMembers($1, $0.a2, $2, $d, $e), $7, $8), teamMemberLogins => $19 => $1a => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(), csegen_630(), Prelude_Types_traverse_Traversable_List(csegen_66()(), $29 => Commands_n__10199_19396_forkedUser($1, $2, $0, $29), teamMemberLogins)), teamMembersJson => $31 => $32 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Types_traverse_Traversable_List(csegen_66()(), $3a => $3b => Data_Promise_either(Data_User_parseUser($3a), $3b), teamMembersJson), teamMembers => Util_renderIO($0, csegen_74()(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $4e => Commands_n__10199_19397_putNameLn($1, $2, $0, $4e), teamMembers))), $31, $32), $19, $1a), $3, $4);
|
|
10290
10398
|
}
|
|
10291
10399
|
|
|
10292
10400
|
/* Commands.label : Config => Git => Octokit => List String -> Promise' () */
|
|
@@ -10295,7 +10403,7 @@ function Commands_label($0, $1, $2, $3, $4, $5) {
|
|
|
10295
10403
|
switch($22.h) {
|
|
10296
10404
|
case 0: /* Actual */ {
|
|
10297
10405
|
const $24 = Prelude_Types_List_mapAppend({h: 0}, $28 => Commands_Label_unslugifyLabel($0.a11, $28), $3);
|
|
10298
|
-
return $2e => $2f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($32 => $33 => Commands_Label_addLabels($0, $2, $22.a2, $24, $32, $33), allLabels => Util_renderIO($0, csegen_74()(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Added'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(
|
|
10406
|
+
return $2e => $2f => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($32 => $33 => Commands_Label_addLabels($0, $2, $22.a2, $24, $32, $33), allLabels => Util_renderIO($0, csegen_74()(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Added'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8671_17949_putLabels($1, $2, $3, $0, $24), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(' to PR.'), a2: {h: 0}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $64 => $64, {a1: 'All labels for PR of ', a2: {a1: $22.a2.a8, a2: {a1: ':', a2: {h: 0}}}})), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8671_17949_putLabels($1, $2, $3, $0, allLabels), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('.'), a2: {h: 0}}))), a2: {h: 0}}})), $2e, $2f);
|
|
10299
10407
|
}
|
|
10300
10408
|
case 1: /* Hypothetical */ return $80 => $81 => Data_Promise_reject('You cannot label a PR that has not been created yet and you cannot create the PR in this non-TTY shell', $80, $81);
|
|
10301
10409
|
}
|
|
@@ -10382,17 +10490,17 @@ function Commands_contribute($0, $1, $2, $3, $4, $5) {
|
|
|
10382
10490
|
}
|
|
10383
10491
|
};
|
|
10384
10492
|
const $72 = Prelude_Types_List_filterAppend({h: 0}, $75, $13);
|
|
10385
|
-
const $7c = Prelude_Types_List_filterAppend({h: 0}, $80 =>
|
|
10493
|
+
const $7c = Prelude_Types_List_filterAppend({h: 0}, $80 => Commands_n__11337_20511_isNotIgnored($1, $2, $3, $0, configx27, $80), $72);
|
|
10386
10494
|
const $89 = Data_List_partition($8c => Data_PullRequest_isRequestedReviewer(myLogin, $8c), $7c);
|
|
10387
|
-
const $91 = Prelude_Interfaces_mapHom(
|
|
10495
|
+
const $91 = Prelude_Interfaces_mapHom(csegen_603(), $97 => Data_List_sortBy(csegen_644(), $97))($89);
|
|
10388
10496
|
let $71;
|
|
10389
10497
|
switch($54.h) {
|
|
10390
10498
|
case 0: /* nothing */ {
|
|
10391
|
-
$71 = () =>
|
|
10499
|
+
$71 = () => Commands_n__11337_20513_pickOne($1, $2, $3, $0, configx27, $41, $4e, $91.a1, $91.a2);
|
|
10392
10500
|
break;
|
|
10393
10501
|
}
|
|
10394
10502
|
case undefined: /* just */ {
|
|
10395
|
-
$71 = () => $a8 => $a9 =>
|
|
10503
|
+
$71 = () => $a8 => $a9 => Commands_n__11337_20512_listSome($1, $2, $3, $0, $41, $91.a1, $91.a2, $a8, $a9);
|
|
10396
10504
|
break;
|
|
10397
10505
|
}
|
|
10398
10506
|
}
|
|
@@ -10638,7 +10746,7 @@ function Data_SortedMap_Dependent_empty($0) {
|
|
|
10638
10746
|
|
|
10639
10747
|
/* Commands.User.Reflect.case block in case block in reflectOnSelf */
|
|
10640
10748
|
function Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
10641
|
-
const $b = Prelude_Interfaces_mapHom(
|
|
10749
|
+
const $b = Prelude_Interfaces_mapHom(csegen_603(), $11 => Data_List_headx27(Data_List_sort({a1: {a1: $18 => $19 => Data_Date_x3dx3d_Eq_Date($18, $19), a2: $1e => $1f => Data_Date_x2fx3d_Eq_Date($1e, $1f)}, a2: $24 => $25 => Data_Date_compare_Ord_Date($24, $25), a3: $2a => $2b => Data_Date_x3c_Ord_Date($2a, $2b), a4: $30 => $31 => Data_Date_x3e_Ord_Date($30, $31), a5: $36 => $37 => Data_Date_x3cx3d_Ord_Date($36, $37), a6: $3c => $3d => Data_Date_x3ex3d_Ord_Date($3c, $3d), a7: $42 => $43 => Data_Date_max_Ord_Date($42, $43), a8: $48 => $49 => Data_Date_min_Ord_Date($48, $49)}, Prelude_Types_List_mapAppend({h: 0}, csegen_666(), $11))))({a1: $7, a2: $9.a1});
|
|
10642
10750
|
return Util_renderIO($0, csegen_74()(), Commands_User_Reflect_print(Prelude_Types_String_length(Commands_User_Reflect_intro()), Prelude_Types_List_lengthTR($4), Prelude_Types_List_lengthTR($9.a1), Prelude_Types_List_lengthTR($9.a2), Prelude_Types_List_lengthTR($8), Prelude_Types_List_lengthTR($7), $5, $b.a1, $b.a2, $0));
|
|
10643
10751
|
}
|
|
10644
10752
|
|
|
@@ -10698,7 +10806,7 @@ function Commands_User_Me_n__7540_2044_email($0, $1, $2, $3) {
|
|
|
10698
10806
|
|
|
10699
10807
|
/* Commands.User.Me.7540:2043:dataVal */
|
|
10700
10808
|
function Commands_User_Me_n__7540_2043_dataVal($0, $1, $2, $3, $4) {
|
|
10701
|
-
return Theme_theme($3,
|
|
10809
|
+
return Theme_theme($3, csegen_669(), Theme_cs({a1: 4, a2: {h: 0}}, {h: 0 /* Left */, a1: undefined}), 8)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4));
|
|
10702
10810
|
}
|
|
10703
10811
|
|
|
10704
10812
|
/* Commands.User.Reflect.rightTitle : String */
|
|
@@ -10721,11 +10829,11 @@ function Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
|
10721
10829
|
const $c = prs => $d => $e => {
|
|
10722
10830
|
const $1c = myLogin => $1d => $1e => {
|
|
10723
10831
|
const $3a = reviews => {
|
|
10724
|
-
const $3b = Prelude_Types_map_Functor_Maybe(
|
|
10725
|
-
const $4e = Prelude_Interfaces_mapHom(
|
|
10726
|
-
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(
|
|
10832
|
+
const $3b = Prelude_Types_map_Functor_Maybe(csegen_672(), Data_List_headx27(Data_List_sortBy($44 => $45 => Prelude_Basics_on(csegen_642(), csegen_672(), $44, $45), reviews)));
|
|
10833
|
+
const $4e = Prelude_Interfaces_mapHom(csegen_603(), $54 => Prelude_Types_List_filterAppend({h: 0}, $58 => Prelude_EqOrd_x3dx3d_Eq_String($58.a5, myLogin), $54))(prs);
|
|
10834
|
+
return Commands_User_Reflect_case__casex20blockx20inx20reflectOnSelf_1920($0, $1, prs, myLogin, reviews, $3b, prs, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom(csegen_603(), $6f => Prelude_Types_List_filterAppend({h: 0}, $73 => Prelude_Types_foldMap_Foldable_List(csegen_97(), $78 => Prelude_EqOrd_x3dx3d_Eq_String($78, myLogin), $73.a7), $6f))(prs));
|
|
10727
10835
|
};
|
|
10728
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(Commands_User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2e => $2f => Prelude_Basics_on(
|
|
10836
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Commands_PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(Commands_User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2e => $2f => Prelude_Basics_on(csegen_642(), csegen_666(), $2e, $2f), Commands_PullRequest_combined(prs))))), $3a, $1d, $1e);
|
|
10729
10837
|
};
|
|
10730
10838
|
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($11 => $12 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_364()(), FFI_GitHub_getSelf($1), $11, $12), $1c, $d, $e);
|
|
10731
10839
|
};
|
|
@@ -10734,7 +10842,7 @@ function Commands_User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
|
10734
10842
|
|
|
10735
10843
|
/* Commands.User.Me.printInfoOnSelf : Config => Octokit => Git => Promise' () */
|
|
10736
10844
|
function Commands_User_Me_printInfoOnSelf($0, $1, $2, $3, $4) {
|
|
10737
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29($b => Commands_User_Me_n__7690_2202_handleUnsetEmail($1, $2, $0, $b), $12 => $13 => FFI_Git_userEmail($2, $12, $13), $7, $8), gitEmail => $1b => $1c => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getSelf($1), githubUser => $22 => $23 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($26 => $27 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10845
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($7 => $8 => Data_Promise_map_Functor_x28Promisex20x24ex29($b => Commands_User_Me_n__7690_2202_handleUnsetEmail($1, $2, $0, $b), $12 => $13 => FFI_Git_userEmail($2, $12, $13), $7, $8), gitEmail => $1b => $1c => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getSelf($1), githubUser => $22 => $23 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($26 => $27 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_628(), $2c => $2d => FFI_GitHub_listMyTeams($1, $2c, $2d), $26, $27), githubTeams => Util_renderIO($0, csegen_74()(), Commands_User_Me_print($0, gitEmail, githubUser, githubTeams)), $22, $23), $1b, $1c), $3, $4);
|
|
10738
10846
|
}
|
|
10739
10847
|
|
|
10740
10848
|
/* Commands.User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Config =>
|
|
@@ -10783,58 +10891,48 @@ function Commands_User_Reflect_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
|
10783
10891
|
|
|
10784
10892
|
/* Commands.User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
10785
10893
|
function Commands_User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10786
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Commands_User_Reflect_intro()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Requested Reviews:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('unreviewed:')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($2)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(
|
|
10894
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Commands_User_Reflect_intro()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Requested Reviews:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('unreviewed:')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($2)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(csegen_678(), $8), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('closed:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(1), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($3)), a2: {h: 0}}})}, a2: {h: 0}}}})))}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('reviews*:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($1)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('most recent:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date(date)), a2: {h: 0}}})), $6), a2: {h: 0}}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Authored Pulls:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($5)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(csegen_678(), $7), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('closed:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($4)), a2: {h: 0}}})}, a2: {h: 0}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $d0 => $d0, {a1: '*review count (not PR count) of most recent ', a2: {a1: Data_Fin_show_Show_x28Finx20x24nx29(Commands_User_Reflect_reviewDetailsCount()), a2: {a1: ' PRs.', a2: {h: 0}}}}))), a2: {h: 0}}}}}}}}}});
|
|
10787
10895
|
}
|
|
10788
10896
|
|
|
10789
10897
|
/* Commands.User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Config => Nat -> Doc AnsiStyle */
|
|
10790
10898
|
function Commands_User_Reflect_chart($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10791
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($7)), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_User_replicatex27($6,
|
|
10899
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($7)), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_User_replicatex27($6, csegen_669(), csegen_688(), 4, $1, '\u{b7}'), Commands_User_replicatex27($6, csegen_689(), csegen_689(), 7, $3, '\u{25e6}')), Commands_User_replicatex27($6, csegen_690(), csegen_690(), 5, $2, '<')), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('|'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_User_replicatex27($6, csegen_690(), csegen_690(), 5, $5, '>'), Commands_User_replicatex27($6, csegen_669(), csegen_688(), 4, $4, '\u{b7}')))));
|
|
10792
10900
|
}
|
|
10793
10901
|
|
|
10794
|
-
/* Theme.
|
|
10795
|
-
function
|
|
10902
|
+
/* Theme.4411:1332:maybeAnnotate */
|
|
10903
|
+
function Theme_n__4411_1332_maybeAnnotate($0, $1, $2, $3, $4) {
|
|
10796
10904
|
return Prelude_Types_maybe(() => $7 => $7, () => $9 => $a => Text_PrettyPrint_Prettyprinter_Doc_annotate($3($9), $a), $4);
|
|
10797
10905
|
}
|
|
10798
10906
|
|
|
10799
|
-
/* Theme.
|
|
10800
|
-
function
|
|
10907
|
+
/* Theme.4411:1331:go */
|
|
10908
|
+
function Theme_n__4411_1331_go($0, $1, $2, $3, $4, $5, $6) {
|
|
10801
10909
|
switch($3) {
|
|
10802
|
-
case 1: return $8 =>
|
|
10803
|
-
case 0: return $f =>
|
|
10910
|
+
case 1: return $8 => Theme_n__4411_1329_colorsAnn($0, $1, $2, $4, $8);
|
|
10911
|
+
case 0: return $f => Theme_n__4411_1329_colorsAnn($0, $1, $2, $5, $f);
|
|
10804
10912
|
}
|
|
10805
10913
|
}
|
|
10806
10914
|
|
|
10807
|
-
/* Theme.
|
|
10808
|
-
function
|
|
10915
|
+
/* Theme.4411:1330:configTheme */
|
|
10916
|
+
function Theme_n__4411_1330_configTheme($0, $1, $2) {
|
|
10809
10917
|
return $2.a15;
|
|
10810
10918
|
}
|
|
10811
10919
|
|
|
10812
|
-
/* Theme.
|
|
10813
|
-
function
|
|
10814
|
-
return
|
|
10920
|
+
/* Theme.4411:1329:colorsAnn */
|
|
10921
|
+
function Theme_n__4411_1329_colorsAnn($0, $1, $2, $3, $4) {
|
|
10922
|
+
return Theme_n__4411_1332_maybeAnnotate($0, $1, $2, $c => Text_PrettyPrint_Prettyprinter_Render_Terminal_color($c), $3.a1)(Theme_n__4411_1332_maybeAnnotate($0, $1, $2, $17 => Text_PrettyPrint_Prettyprinter_Render_Terminal_bgColor($17), $3.a2)($4));
|
|
10815
10923
|
}
|
|
10816
10924
|
|
|
10817
10925
|
/* Theme.theme : Config => SemanticColor d l -> Doc AnsiStyle -> Doc AnsiStyle */
|
|
10818
10926
|
function Theme_theme($0, $1, $2, $3) {
|
|
10819
|
-
return
|
|
10927
|
+
return Theme_n__4411_1331_go($1, $2, $0, Theme_n__4411_1330_configTheme($1, $2, $0), $1, $2, $3);
|
|
10820
10928
|
}
|
|
10821
10929
|
|
|
10822
|
-
/* Theme.cs : List Color ->
|
|
10823
|
-
|
|
10824
|
-
|
|
10825
|
-
|
|
10826
|
-
|
|
10827
|
-
|
|
10828
|
-
case undefined: /* cons */ {
|
|
10829
|
-
switch($0.a2.a2.h) {
|
|
10830
|
-
case 0: /* nil */ return {a1: {a1: $0.a1}, a2: {a1: $0.a2.a1}};
|
|
10831
|
-
default: return {a1: {h: 0}, a2: {h: 0}};
|
|
10832
|
-
}
|
|
10833
|
-
}
|
|
10834
|
-
default: return {a1: {h: 0}, a2: {h: 0}};
|
|
10835
|
-
}
|
|
10836
|
-
}
|
|
10837
|
-
default: return {a1: {h: 0}, a2: {h: 0}};
|
|
10930
|
+
/* Theme.cs : (colors : List Color) -> Either (length colors = 1) (length colors = 2) =>
|
|
10931
|
+
Colors */
|
|
10932
|
+
function Theme_cs($0, $1) {
|
|
10933
|
+
switch($0.a2.h) {
|
|
10934
|
+
case 0: /* nil */ return {a1: {a1: $0.a1}, a2: {h: 0}};
|
|
10935
|
+
case undefined: /* cons */ return {a1: {a1: $0.a1}, a2: {a1: $0.a2.a1}};
|
|
10838
10936
|
}
|
|
10839
10937
|
}
|
|
10840
10938
|
|
|
@@ -10898,7 +10996,7 @@ function Commands_PullRequest_case__casex20blockx20inx20casex20blockx20inx20iden
|
|
|
10898
10996
|
break;
|
|
10899
10997
|
}
|
|
10900
10998
|
case undefined: /* just */ {
|
|
10901
|
-
$51 = $62 => $63 => Data_Promise_map_Functor_x28Promisex20x24ex29(
|
|
10999
|
+
$51 = $62 => $63 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_695(), Util_Prompting_editorDescription(csegen_74()(), $52.a1, {a1: templateFilePath}, $9.a2), $62, $63);
|
|
10902
11000
|
break;
|
|
10903
11001
|
}
|
|
10904
11002
|
}
|
|
@@ -11035,7 +11133,7 @@ function Commands_PullRequest_n__11100_3052_createPR($0, $1, $2, $3, $4, $5, $6,
|
|
|
11035
11133
|
function Commands_PullRequest_n__11100_3051_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11036
11134
|
const $10 = $11 => $12 => $13 => {
|
|
11037
11135
|
switch($11.h) {
|
|
11038
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1c), $17, $18, $19), $24 => $25 => $26 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29 => $2a => $2b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2e => Prelude_IO_prim__putStr(($11.a1+'\n'), $2e), $29, $2a, $2b),
|
|
11136
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1c), $17, $18, $19), $24 => $25 => $26 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29 => $2a => $2b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2e => Prelude_IO_prim__putStr(($11.a1+'\n'), $2e), $29, $2a, $2b), csegen_709(), $25, $26), $12, $13);
|
|
11039
11137
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $12, $13);
|
|
11040
11138
|
}
|
|
11041
11139
|
};
|
|
@@ -11046,7 +11144,7 @@ function Commands_PullRequest_n__11100_3051_continueGivenUncommittedChanges($0,
|
|
|
11046
11144
|
function Commands_PullRequest_n__11100_3050_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11047
11145
|
const $10 = $11 => $12 => $13 => {
|
|
11048
11146
|
switch($11.h) {
|
|
11049
|
-
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1c), $17, $18, $19), $24 => $25 => $26 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29 => $2a => $2b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2e => Prelude_IO_prim__putStr(($11.a1+'\n'), $2e), $29, $2a, $2b),
|
|
11147
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1c), $17, $18, $19), $24 => $25 => $26 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29 => $2a => $2b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2e => Prelude_IO_prim__putStr(($11.a1+'\n'), $2e), $29, $2a, $2b), csegen_709(), $25, $26), $12, $13);
|
|
11050
11148
|
case 0: /* nothing */ return Data_Promise_pure_Applicative_x28Promisex20x24ex29(1, $12, $13);
|
|
11051
11149
|
}
|
|
11052
11150
|
};
|
|
@@ -11055,12 +11153,12 @@ function Commands_PullRequest_n__11100_3050_continueGivenStagedChanges($0, $1, $
|
|
|
11055
11153
|
|
|
11056
11154
|
/* Commands.PullRequest.(.allReviewers) : PRHistory -> (List String, List String) */
|
|
11057
11155
|
function Commands_PullRequest_rf__allReviewers($0) {
|
|
11058
|
-
return Prelude_Interfaces_mapHom(
|
|
11156
|
+
return Prelude_Interfaces_mapHom(csegen_603(), $6 => Prelude_Types_join_Monad_List(Prelude_Types_List_mapAppend({h: 0}, $c => $c.a7, $6)))($0);
|
|
11059
11157
|
}
|
|
11060
11158
|
|
|
11061
11159
|
/* Commands.PullRequest.reviewsForPrs : Config => Octokit => List PullRequest -> Promise' (List Review) */
|
|
11062
11160
|
function Commands_PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
|
|
11063
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(),
|
|
11161
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_67()(), csegen_630(), Prelude_Types_traverse_Traversable_List(csegen_66()(), $13 => Commands_PullRequest_n__9769_1725_forkedReviews($0, $1, $2, $13), $2)), reviewsJson => $1b => $1c => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1f => Data_Promise_either(Prelude_Types_traverse_Traversable_List(csegen_222(), $26 => Language_JSON_Accessors_array($29 => Data_Review_parseReview($29), $26), reviewsJson), $1f), reviews => $30 => $31 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_join_Monad_List(reviews), $30, $31), $1b, $1c), $3, $4);
|
|
11064
11162
|
}
|
|
11065
11163
|
|
|
11066
11164
|
/* Commands.PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise' (List Review) */
|
|
@@ -11387,7 +11485,7 @@ function Util_Github_n__2629_823_go($0, $1) {
|
|
|
11387
11485
|
|
|
11388
11486
|
/* Util.Github.parseGithubIssueNumber : String -> Maybe String */
|
|
11389
11487
|
function Util_Github_parseGithubIssueNumber($0) {
|
|
11390
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
11488
|
+
return Prelude_Types_map_Functor_Maybe(csegen_746(), Util_Github_n__2629_825_guardSuccess(Prelude_Types_foldl_Foldable_List($9 => $a => Util_Github_n__2629_823_go($9, $a), {a1: {h: 0 /* 2629:821:Start */}, a2: {h: 0}}, Prelude_Types_fastUnpack($0))));
|
|
11391
11489
|
}
|
|
11392
11490
|
|
|
11393
11491
|
/* Util.Jira.2629:820:startOver */
|
|
@@ -11447,7 +11545,7 @@ function Util_Jira_n__2629_818_go($0, $1) {
|
|
|
11447
11545
|
|
|
11448
11546
|
/* Util.Jira.parseJiraSlug : String -> Maybe String */
|
|
11449
11547
|
function Util_Jira_parseJiraSlug($0) {
|
|
11450
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
11548
|
+
return Prelude_Types_map_Functor_Maybe(csegen_746(), Util_Jira_n__2629_819_guardSuccess(Prelude_Types_foldl_Foldable_List($9 => $a => Util_Jira_n__2629_818_go($9, $a), Util_Jira_n__2629_820_startOver(), Prelude_Types_fastUnpack($0))));
|
|
11451
11549
|
}
|
|
11452
11550
|
|
|
11453
11551
|
/* Data.Pagination.with block in metaPages' */
|
|
@@ -11716,38 +11814,58 @@ function Data_List_DeleteBy_deleteByx27($0, $1, $2) {
|
|
|
11716
11814
|
}
|
|
11717
11815
|
}
|
|
11718
11816
|
|
|
11719
|
-
/* Commands.Quick.
|
|
11720
|
-
function
|
|
11817
|
+
/* Commands.Quick.5799:5628:issuePrompt */
|
|
11818
|
+
function Commands_Quick_n__5799_5628_issuePrompt($0, $1, $2, $3) {
|
|
11721
11819
|
return 'What would you like the issue description to be (two blank lines to finish)?';
|
|
11722
11820
|
}
|
|
11723
11821
|
|
|
11724
|
-
/* Commands.Quick.
|
|
11725
|
-
function
|
|
11726
|
-
|
|
11727
|
-
|
|
11728
|
-
|
|
11729
|
-
|
|
11730
|
-
|
|
11731
|
-
|
|
11732
|
-
|
|
11822
|
+
/* Commands.Quick.5799:5627:branchPrefix */
|
|
11823
|
+
function Commands_Quick_n__5799_5627_branchPrefix($0, $1, $2, $3) {
|
|
11824
|
+
return Data_String_toLower(Commands_Quick_show_Show_IssueCategory($2));
|
|
11825
|
+
}
|
|
11826
|
+
|
|
11827
|
+
/* Commands.Quick.show */
|
|
11828
|
+
function Commands_Quick_show_Show_IssueCategory($0) {
|
|
11829
|
+
switch($0) {
|
|
11830
|
+
case 0: return 'Bugfix';
|
|
11831
|
+
case 1: return 'Feature';
|
|
11832
|
+
}
|
|
11833
|
+
}
|
|
11834
|
+
|
|
11835
|
+
/* Commands.Quick.quickStartNewWork : Config => Git => Octokit => IssueCategory -> Promise' () */
|
|
11836
|
+
function Commands_Quick_quickStartNewWork($0, $1, $2, $3, $4, $5) {
|
|
11837
|
+
const $14 = $15 => $16 => $17 => {
|
|
11838
|
+
const $1c = $1d => $1e => $1f => {
|
|
11839
|
+
const $2e = $2f => $30 => $31 => {
|
|
11840
|
+
const $35 = issueTitle => $36 => $37 => {
|
|
11841
|
+
const $3a = Data_Config_rf__editor($0);
|
|
11842
|
+
let $39;
|
|
11843
|
+
switch($3a.h) {
|
|
11733
11844
|
case 0: /* nothing */ {
|
|
11734
|
-
$
|
|
11845
|
+
$39 = Util_Prompting_inlineDescription(csegen_74()(), Commands_Quick_n__5799_5628_issuePrompt($1, $2, $3, $0), '');
|
|
11735
11846
|
break;
|
|
11736
11847
|
}
|
|
11737
11848
|
case undefined: /* just */ {
|
|
11738
|
-
$
|
|
11849
|
+
$39 = $48 => $49 => Data_Promise_map_Functor_x28Promisex20x24ex29(csegen_695(), Util_Prompting_editorDescription(csegen_74()(), $3a.a1, {h: 0}, ''), $48, $49);
|
|
11739
11850
|
break;
|
|
11740
11851
|
}
|
|
11741
11852
|
}
|
|
11742
|
-
|
|
11853
|
+
const $57 = issueBody => $58 => $59 => {
|
|
11854
|
+
const $64 = issue => {
|
|
11855
|
+
const $65 = Prelude_Types_foldMap_Foldable_List(csegen_51()(), $6b => $6b, {a1: Commands_Quick_n__5799_5627_branchPrefix($1, $2, $3, $0), a2: {a1: '/', a2: {a1: Prelude_Show_show_Show_Integer(issue.a1), a2: {a1: '/', a2: {h: 0}}}}});
|
|
11856
|
+
return $7d => $7e => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($81 => $82 => $83 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($86 => Prelude_IO_prim__putStr('What would you like the branch to be named?\n', $86), $81, $82, $83), $8e => $8f => $90 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($93 => $94 => $95 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($98 => Prelude_IO_prim__putStr($65, $98), $93, $94, $95), $a0 => $a1 => $a2 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_758(), branchSlug => FFI_Git_checkoutBranch($1, 1, Prelude_Types_foldMap_Foldable_List(csegen_51()(), $b0 => $b0, {a1: $65, a2: {a1: branchSlug, a2: {h: 0}}})), $a1, $a2), $8f, $90), $7d, $7e);
|
|
11857
|
+
};
|
|
11858
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_createIssue($2, $0.a2, $0.a3, issueTitle, issueBody), $64, $58, $59);
|
|
11859
|
+
};
|
|
11860
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($39, $57, $36, $37);
|
|
11743
11861
|
};
|
|
11744
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(
|
|
11862
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_758(), $35, $30, $31);
|
|
11745
11863
|
};
|
|
11746
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11864
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($22 => $23 => $24 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($27 => Prelude_IO_prim__putStr('What would you like the issue title to be?\n', $27), $22, $23, $24), $2e, $1e, $1f);
|
|
11747
11865
|
};
|
|
11748
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $
|
|
11866
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(csegen_403()(), $1c, $16, $17);
|
|
11749
11867
|
};
|
|
11750
|
-
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($
|
|
11868
|
+
return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($8 => $9 => $a => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($d => Prelude_IO_prim__putStr('Creating a new GitHub issue and branch.\n', $d), $8, $9, $a), $14, $4, $5);
|
|
11751
11869
|
}
|
|
11752
11870
|
|
|
11753
11871
|
/* Commands.Label.unslugifyLabel : List String -> String -> String */
|
|
@@ -11766,7 +11884,7 @@ function Commands_Label_addLabels($0, $1, $2, $3, $4, $5) {
|
|
|
11766
11884
|
|
|
11767
11885
|
/* Commands.Graph.7730:7016:pendingDot */
|
|
11768
11886
|
function Commands_Graph_n__7730_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11769
|
-
return Theme_theme($7,
|
|
11887
|
+
return Theme_theme($7, csegen_690(), csegen_688(), 6)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
|
|
11770
11888
|
}
|
|
11771
11889
|
|
|
11772
11890
|
/* Commands.Graph.7730:7015:note */
|
|
@@ -11776,7 +11894,7 @@ function Commands_Graph_n__7730_7015_note($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
11776
11894
|
|
|
11777
11895
|
/* Commands.Graph.7730:7014:missedDot */
|
|
11778
11896
|
function Commands_Graph_n__7730_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11779
|
-
return Theme_theme($7,
|
|
11897
|
+
return Theme_theme($7, csegen_689(), csegen_689(), 7)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
|
|
11780
11898
|
}
|
|
11781
11899
|
|
|
11782
11900
|
/* Commands.Graph.7730:7013:maxValue */
|
|
@@ -11805,7 +11923,7 @@ function Commands_Graph_n__7730_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11805
11923
|
break;
|
|
11806
11924
|
}
|
|
11807
11925
|
}
|
|
11808
|
-
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__7730_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('overlayed on'), Commands_Graph_n__7730_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7))))}, a2:
|
|
11926
|
+
const $3a = {a1: $3b, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Commands_Graph_n__7730_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('overlayed on'), Commands_Graph_n__7730_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7))))}, a2: csegen_762()}};
|
|
11809
11927
|
const $27 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('1x the number of closed PRs with unanswered review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Commands_Graph_n__7730_7014_missedDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $3a};
|
|
11810
11928
|
const $14 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('4x the number of open review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Commands_Graph_n__7730_7016_pendingDot($0, $1, $2, $3, $4, $5, $6, $7)))}, a2: $27};
|
|
11811
11929
|
const $f = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $14};
|
|
@@ -11816,7 +11934,7 @@ function Commands_Graph_n__7730_7012_header($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11816
11934
|
|
|
11817
11935
|
/* Commands.Graph.7327:6604:header */
|
|
11818
11936
|
function Commands_Graph_n__7327_6604_header($0, $1, $2, $3) {
|
|
11819
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Open Pull Requests grouped by month created.')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2:
|
|
11937
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Open Pull Requests grouped by month created.')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: csegen_762()}}}));
|
|
11820
11938
|
}
|
|
11821
11939
|
|
|
11822
11940
|
/* Commands.Graph.7327:6603:graphable */
|
|
@@ -11839,20 +11957,20 @@ function Commands_Graph_n__6760_6183_countInParens($0, $1, $2, $3, $4) {
|
|
|
11839
11957
|
|
|
11840
11958
|
/* Commands.Graph.7730:7010:completedBox */
|
|
11841
11959
|
function Commands_Graph_n__7730_7010_completedBox($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
11842
|
-
return Theme_theme($7,
|
|
11960
|
+
return Theme_theme($7, csegen_669(), csegen_669(), 3)(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25aa}'));
|
|
11843
11961
|
}
|
|
11844
11962
|
|
|
11845
11963
|
/* Commands.Graph.6760:6182:coloredLabel */
|
|
11846
11964
|
function Commands_Graph_n__6760_6182_coloredLabel($0, $1, $2, $3, $4) {
|
|
11847
11965
|
switch((($4.a2===0n)?1:0)) {
|
|
11848
|
-
case 1: return Theme_theme($0,
|
|
11966
|
+
case 1: return Theme_theme($0, csegen_669(), csegen_669(), 0)($2.a1(undefined)($4.a1));
|
|
11849
11967
|
case 0: {
|
|
11850
11968
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 2n)) {
|
|
11851
11969
|
case 1: return $2.a1(undefined)($4.a1);
|
|
11852
11970
|
case 0: {
|
|
11853
11971
|
switch(Prelude_Types_x3c_Ord_Nat($4.a2, 6n)) {
|
|
11854
|
-
case 1: return Theme_theme($0,
|
|
11855
|
-
case 0: return Theme_theme($0,
|
|
11972
|
+
case 1: return Theme_theme($0, csegen_690(), csegen_688(), 1)($2.a1(undefined)($4.a1));
|
|
11973
|
+
case 0: return Theme_theme($0, csegen_689(), csegen_689(), 2)($2.a1(undefined)($4.a1));
|
|
11856
11974
|
}
|
|
11857
11975
|
}
|
|
11858
11976
|
}
|
|
@@ -11992,9 +12110,9 @@ function Commands_Graph_reviewsGraph($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
11992
12110
|
|
|
11993
12111
|
/* Commands.Graph.healthGraph : Config => List PullRequest -> String -> String -> Doc AnsiStyle */
|
|
11994
12112
|
function Commands_Graph_healthGraph($0, $1, $2, $3) {
|
|
11995
|
-
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(csegen_328(), $11 => $11.a2, $b, $c),
|
|
12113
|
+
const $4 = Data_List_groupBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_Basics_on(csegen_328(), $11 => $11.a2, $b, $c), csegen_643(), $7, $8), Data_List_sortBy(csegen_644(), $1));
|
|
11996
12114
|
const $1e = Prelude_Types_foldr_Foldable_List(xs => m => Prelude_Types_max_Ord_Nat(Data_List1_length(xs), m), 1n, $4);
|
|
11997
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_Graph_n__7327_6604_header($3, $2, $1, $0), a2: {a1: Commands_Graph_graph($0, {a1: $36 => Commands_Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29($0, $3a => Commands_Graph_length_HasLength_Date($3a),
|
|
12115
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Commands_Graph_n__7327_6604_header($3, $2, $1, $0), a2: {a1: Commands_Graph_graph($0, {a1: $36 => Commands_Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29($0, $3a => Commands_Graph_length_HasLength_Date($3a), csegen_778(), $36), a2: $41 => maxLabelLength => Commands_Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $45 => Commands_Graph_length_HasLength_Date($45), csegen_778(), $41, maxLabelLength), a3: $4d => Commands_Graph_labelLength_Graphable_x28PRsOnDatex20x24dateTyx29($0, $51 => Commands_Graph_length_HasLength_Date($51), csegen_778(), $4d), a4: $58 => Commands_Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29($0, $5c => Commands_Graph_length_HasLength_Date($5c), csegen_778(), $58), a5: $63 => Commands_Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29($0, $67 => Commands_Graph_length_HasLength_Date($67), csegen_778(), $63), a6: $6e => Commands_Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29($0, $72 => Commands_Graph_length_HasLength_Date($72), csegen_778(), $6e)}, $1e, 0n, 0n, Commands_Graph_n__7327_6606_unfoldGraph($3, $2, $1, $0, Data_Fuel_limit(48n), $4, {h: 0})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Commands_Graph_n__7327_6605_link($3, $2, $1, $0)), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}});
|
|
11998
12116
|
}
|
|
11999
12117
|
|
|
12000
12118
|
/* Commands.Graph.graphOne : Config -> Graphable g => Nat -> Nat -> Nat -> g -> Doc AnsiStyle */
|
|
@@ -12017,7 +12135,7 @@ function Commands_Graph_countPadRight($0, $1, $2) {
|
|
|
12017
12135
|
|
|
12018
12136
|
/* Commands.Graph.bar : Config -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
12019
12137
|
function Commands_Graph_bar($0, $1, $2, $3, $4) {
|
|
12020
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0,
|
|
12138
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($1)), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Theme_theme($0, csegen_689(), csegen_689(), 7)(Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $3, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{25e6}')))), a2: {a1: Theme_theme($0, csegen_690(), csegen_688(), 6)(Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $2, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{b7}')))), a2: {a1: Theme_theme($0, csegen_669(), csegen_669(), 3)(Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_replicateTR({h: 0}, $4, Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Char('\u{25aa}')))), a2: {h: 0}}}}));
|
|
12021
12139
|
}
|
|
12022
12140
|
|
|
12023
12141
|
|