@mattpolzin/harmony 2.5.0 → 2.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/harmony +522 -369
- package/package.json +1 -1
package/harmony
CHANGED
|
@@ -261,12 +261,15 @@ const git_git = () =>
|
|
|
261
261
|
const idris__git_unpromisify = (promise, onSuccess, onFailure) =>
|
|
262
262
|
promise.then(r => onSuccess(r)(), e => onFailure(e)())
|
|
263
263
|
|
|
264
|
+
// trim a result (second argument) and pass it to the given callback (first argument).
|
|
265
|
+
const idris__git_trim = callback => value => callback(value.trim())
|
|
266
|
+
|
|
264
267
|
// current branch
|
|
265
268
|
// @Returns String
|
|
266
269
|
const git_current_branch = (git, onSuccess, onFailure) =>
|
|
267
270
|
idris__git_unpromisify(
|
|
268
271
|
git.raw('branch', '--show-current'),
|
|
269
|
-
|
|
272
|
+
idris__git_trim(onSuccess),
|
|
270
273
|
onFailure
|
|
271
274
|
)
|
|
272
275
|
|
|
@@ -286,18 +289,25 @@ const git_push_new_branch = (git, remoteName, branch, onSuccess, onFailure) =>
|
|
|
286
289
|
onFailure
|
|
287
290
|
)
|
|
288
291
|
|
|
292
|
+
const git_push = (git, onSuccess, onFailure) =>
|
|
293
|
+
idris__git_unpromisify(
|
|
294
|
+
git.raw('push'),
|
|
295
|
+
r => onSuccess(''),
|
|
296
|
+
onFailure
|
|
297
|
+
)
|
|
298
|
+
|
|
289
299
|
// remote URI
|
|
290
300
|
const git_remote_uri = (git, remoteName, onSuccess, onFailure) =>
|
|
291
301
|
idris__git_unpromisify(
|
|
292
302
|
git.raw('remote', 'get-url', remoteName),
|
|
293
|
-
|
|
303
|
+
idris__git_trim(onSuccess),
|
|
294
304
|
onFailure
|
|
295
305
|
)
|
|
296
306
|
|
|
297
307
|
const git_list_remotes = (git, onSuccess, onFailure) =>
|
|
298
308
|
idris__git_unpromisify(
|
|
299
309
|
git.raw('remote'),
|
|
300
|
-
|
|
310
|
+
idris__git_trim(onSuccess),
|
|
301
311
|
onFailure
|
|
302
312
|
)
|
|
303
313
|
|
|
@@ -310,21 +320,42 @@ const git_remote_tracking_branch = (git, onSuccess, onFailure) =>
|
|
|
310
320
|
.then(headRef =>
|
|
311
321
|
git.raw('for-each-ref', '--format', '%(upstream:short)', `${headRef.trim()}`),
|
|
312
322
|
onFailure),
|
|
313
|
-
|
|
323
|
+
idris__git_trim(onSuccess),
|
|
324
|
+
onFailure
|
|
325
|
+
)
|
|
326
|
+
|
|
327
|
+
const git_uncommitted_changes = (git, onSuccess, onFailure) =>
|
|
328
|
+
idris__git_unpromisify(
|
|
329
|
+
git.raw('diff', '--name-only'),
|
|
330
|
+
idris__git_trim(onSuccess),
|
|
331
|
+
onFailure
|
|
332
|
+
)
|
|
333
|
+
|
|
334
|
+
const git_staged_changes = (git, onSuccess, onFailure) =>
|
|
335
|
+
idris__git_unpromisify(
|
|
336
|
+
git.raw('diff', '--staged', '--name-only'),
|
|
337
|
+
idris__git_trim(onSuccess),
|
|
338
|
+
onFailure
|
|
339
|
+
)
|
|
340
|
+
|
|
341
|
+
const git_unpushed_commits = (git, onSuccess, onFailure) =>
|
|
342
|
+
idris__git_unpromisify(
|
|
343
|
+
git.raw('log', '@{push}..'),
|
|
344
|
+
idris__git_trim(onSuccess),
|
|
314
345
|
onFailure
|
|
315
346
|
)
|
|
316
347
|
|
|
317
348
|
const git_user_email = (git, onSuccess, onFailure) =>
|
|
318
349
|
idris__git_unpromisify(
|
|
319
350
|
git.raw('config', '--get', 'user.email'),
|
|
320
|
-
|
|
351
|
+
idris__git_trim(onSuccess),
|
|
321
352
|
onFailure
|
|
322
353
|
)
|
|
323
354
|
|
|
324
355
|
const git_root_dir = (git, onSuccess, onFailure) =>
|
|
325
356
|
idris__git_unpromisify(
|
|
326
357
|
git.raw('rev-parse', '--show-toplevel'),
|
|
327
|
-
|
|
358
|
+
idris__git_trim(onSuccess),
|
|
328
359
|
onFailure
|
|
329
360
|
)
|
|
330
361
|
|
|
@@ -787,10 +818,14 @@ const FFI_GitHub_prim__createComment = okit_create_comment;
|
|
|
787
818
|
const FFI_GitHub_prim__addPullReviewers = okit_add_reviewers;
|
|
788
819
|
const FFI_GitHub_prim__addLabels = okit_add_labels;
|
|
789
820
|
const FFI_Git_prim__userEmail = git_user_email;
|
|
821
|
+
const FFI_Git_prim__unpushedCommits = git_unpushed_commits;
|
|
822
|
+
const FFI_Git_prim__uncommittedChanges = git_uncommitted_changes;
|
|
823
|
+
const FFI_Git_prim__stagedChanges = git_staged_changes;
|
|
790
824
|
const FFI_Git_prim__rootDir = git_root_dir;
|
|
791
825
|
const FFI_Git_prim__remoteURI = git_remote_uri;
|
|
792
826
|
const FFI_Git_prim__remoteTrackingBranch = git_remote_tracking_branch;
|
|
793
827
|
const FFI_Git_prim__pushNewBranch = git_push_new_branch;
|
|
828
|
+
const FFI_Git_prim__push = git_push;
|
|
794
829
|
const FFI_Git_prim__listRemotes = git_list_remotes;
|
|
795
830
|
const FFI_Git_prim__git = git_git;
|
|
796
831
|
const FFI_Git_prim__currentBranch = git_current_branch;
|
|
@@ -820,7 +855,7 @@ function x24tcOpt_1($0) {
|
|
|
820
855
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
821
856
|
default: {
|
|
822
857
|
const $18 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
823
|
-
const $1c = Data_List_DeleteBy_deleteByx27($1f => $20 => Prelude_Basics_on($23 => $24 => $0.a1.a1.a1($23)($24),
|
|
858
|
+
const $1c = Data_List_DeleteBy_deleteByx27($1f => $20 => Prelude_Basics_on($23 => $24 => $0.a1.a1.a1($23)($24), csegen_773(), $1f, $20), $18, $0.a6);
|
|
824
859
|
switch($1c.a1.h) {
|
|
825
860
|
case 0: /* nothing */ {
|
|
826
861
|
switch($0.a8) {
|
|
@@ -835,7 +870,7 @@ function x24tcOpt_1($0) {
|
|
|
835
870
|
}
|
|
836
871
|
default: {
|
|
837
872
|
const $6b = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
838
|
-
const $6f = Data_List_DeleteBy_deleteByx27($72 => $73 => Prelude_Basics_on($76 => $77 => $0.a1.a1.a1($76)($77),
|
|
873
|
+
const $6f = Data_List_DeleteBy_deleteByx27($72 => $73 => Prelude_Basics_on($76 => $77 => $0.a1.a1.a1($76)($77), csegen_773(), $72, $73), $6b, $0.a6);
|
|
839
874
|
switch($6f.a1.h) {
|
|
840
875
|
case 0: /* nothing */ {
|
|
841
876
|
switch($0.a8) {
|
|
@@ -860,7 +895,7 @@ function x24tcOpt_1($0) {
|
|
|
860
895
|
case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
|
|
861
896
|
default: {
|
|
862
897
|
const $c2 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
863
|
-
const $c6 = Data_List_DeleteBy_deleteByx27($c9 => $ca => Prelude_Basics_on($cd => $ce => $0.a1.a1.a1($cd)($ce),
|
|
898
|
+
const $c6 = Data_List_DeleteBy_deleteByx27($c9 => $ca => Prelude_Basics_on($cd => $ce => $0.a1.a1.a1($cd)($ce), csegen_773(), $c9, $ca), $c2, $0.a6);
|
|
864
899
|
switch($c6.a1.h) {
|
|
865
900
|
case 0: /* nothing */ {
|
|
866
901
|
switch($0.a8) {
|
|
@@ -875,7 +910,7 @@ function x24tcOpt_1($0) {
|
|
|
875
910
|
}
|
|
876
911
|
default: {
|
|
877
912
|
const $115 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
878
|
-
const $119 = Data_List_DeleteBy_deleteByx27($11c => $11d => Prelude_Basics_on($120 => $121 => $0.a1.a1.a1($120)($121),
|
|
913
|
+
const $119 = Data_List_DeleteBy_deleteByx27($11c => $11d => Prelude_Basics_on($120 => $121 => $0.a1.a1.a1($120)($121), csegen_773(), $11c, $11d), $115, $0.a6);
|
|
879
914
|
switch($119.a1.h) {
|
|
880
915
|
case 0: /* nothing */ {
|
|
881
916
|
switch($0.a8) {
|
|
@@ -2396,124 +2431,139 @@ const csegen_550 = __lazy(function () {
|
|
|
2396
2431
|
return {a1: csegen_62()('?'), a2: {h: 0}};
|
|
2397
2432
|
});
|
|
2398
2433
|
|
|
2399
|
-
/* {csegen:
|
|
2400
|
-
const
|
|
2434
|
+
/* {csegen:591} */
|
|
2435
|
+
const csegen_591 = __lazy(function () {
|
|
2401
2436
|
return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()(', '));
|
|
2402
2437
|
});
|
|
2403
2438
|
|
|
2404
|
-
/* {csegen:
|
|
2405
|
-
const
|
|
2439
|
+
/* {csegen:601} */
|
|
2440
|
+
const csegen_601 = __lazy(function () {
|
|
2406
2441
|
return {a1: csegen_9(), a2: a => ({h: 0}), a3: a => $4 => $5 => Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, $5)};
|
|
2407
2442
|
});
|
|
2408
2443
|
|
|
2409
|
-
/* {csegen:
|
|
2410
|
-
const
|
|
2444
|
+
/* {csegen:604} */
|
|
2445
|
+
const csegen_604 = __lazy(function () {
|
|
2411
2446
|
return csegen_55()($3 => Data_List_sort(csegen_446(), $3));
|
|
2412
2447
|
});
|
|
2413
2448
|
|
|
2414
|
-
/* {csegen:
|
|
2415
|
-
const
|
|
2449
|
+
/* {csegen:605} */
|
|
2450
|
+
const csegen_605 = __lazy(function () {
|
|
2416
2451
|
return $0 => FFI_Concurrency_promiseAll(csegen_193(), $0);
|
|
2417
2452
|
});
|
|
2418
2453
|
|
|
2419
|
-
/* {csegen:
|
|
2420
|
-
const
|
|
2454
|
+
/* {csegen:607} */
|
|
2455
|
+
const csegen_607 = __lazy(function () {
|
|
2421
2456
|
const $0 = $1 => Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1);
|
|
2422
2457
|
return $4 => $0($4);
|
|
2423
2458
|
});
|
|
2424
2459
|
|
|
2425
|
-
/* {csegen:
|
|
2426
|
-
const
|
|
2460
|
+
/* {csegen:618} */
|
|
2461
|
+
const csegen_618 = __lazy(function () {
|
|
2427
2462
|
return csegen_55()($3 => $3.a1);
|
|
2428
2463
|
});
|
|
2429
2464
|
|
|
2430
|
-
/* {csegen:
|
|
2431
|
-
const
|
|
2465
|
+
/* {csegen:620} */
|
|
2466
|
+
const csegen_620 = __lazy(function () {
|
|
2432
2467
|
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
2433
2468
|
});
|
|
2434
2469
|
|
|
2435
|
-
/* {csegen:
|
|
2436
|
-
const
|
|
2470
|
+
/* {csegen:621} */
|
|
2471
|
+
const csegen_621 = __lazy(function () {
|
|
2437
2472
|
return $0 => $0.a2;
|
|
2438
2473
|
});
|
|
2439
2474
|
|
|
2440
|
-
/* {csegen:
|
|
2441
|
-
const
|
|
2442
|
-
return $0 => $1 => Prelude_Basics_on(
|
|
2475
|
+
/* {csegen:622} */
|
|
2476
|
+
const csegen_622 = __lazy(function () {
|
|
2477
|
+
return $0 => $1 => Prelude_Basics_on(csegen_620(), csegen_621(), $0, $1);
|
|
2443
2478
|
});
|
|
2444
2479
|
|
|
2445
|
-
/* {csegen:
|
|
2446
|
-
const
|
|
2480
|
+
/* {csegen:635} */
|
|
2481
|
+
const csegen_635 = __lazy(function () {
|
|
2447
2482
|
return $0 => $0.a2;
|
|
2448
2483
|
});
|
|
2449
2484
|
|
|
2450
|
-
/* {csegen:
|
|
2451
|
-
const
|
|
2485
|
+
/* {csegen:642} */
|
|
2486
|
+
const csegen_642 = __lazy(function () {
|
|
2452
2487
|
return $0 => $0.a1;
|
|
2453
2488
|
});
|
|
2454
2489
|
|
|
2455
|
-
/* {csegen:
|
|
2456
|
-
const
|
|
2490
|
+
/* {csegen:657} */
|
|
2491
|
+
const csegen_657 = __lazy(function () {
|
|
2457
2492
|
return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('open:'));
|
|
2458
2493
|
});
|
|
2459
2494
|
|
|
2460
|
-
/* {csegen:
|
|
2461
|
-
const
|
|
2495
|
+
/* {csegen:661} */
|
|
2496
|
+
const csegen_661 = __lazy(function () {
|
|
2462
2497
|
return csegen_60()(date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('earliest:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date(date)), a2: {h: 0}}})));
|
|
2463
2498
|
});
|
|
2464
2499
|
|
|
2465
|
-
/* {csegen:
|
|
2466
|
-
const
|
|
2500
|
+
/* {csegen:663} */
|
|
2501
|
+
const csegen_663 = __lazy(function () {
|
|
2467
2502
|
return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('closed:'));
|
|
2468
2503
|
});
|
|
2469
2504
|
|
|
2470
|
-
/* {csegen:
|
|
2471
|
-
const
|
|
2505
|
+
/* {csegen:686} */
|
|
2506
|
+
const csegen_686 = __lazy(function () {
|
|
2472
2507
|
return csegen_62()('pr_description.tmp.md');
|
|
2473
2508
|
});
|
|
2474
2509
|
|
|
2475
|
-
/* {csegen:
|
|
2476
|
-
const
|
|
2477
|
-
return $0 => $1 => Data_Promise_reject('
|
|
2510
|
+
/* {csegen:716} */
|
|
2511
|
+
const csegen_716 = __lazy(function () {
|
|
2512
|
+
return $0 => $1 => Data_Promise_reject(csegen_62()('Not creating a PR (for now)...'), $0, $1);
|
|
2478
2513
|
});
|
|
2479
2514
|
|
|
2480
|
-
/* {csegen:
|
|
2481
|
-
const
|
|
2482
|
-
return $0 =>
|
|
2515
|
+
/* {csegen:722} */
|
|
2516
|
+
const csegen_722 = __lazy(function () {
|
|
2517
|
+
return $0 => Util_yesNoPrompt(csegen_94(), csegen_62()('Would you like to continue creating a Pull Request anyway?'));
|
|
2518
|
+
});
|
|
2519
|
+
|
|
2520
|
+
/* {csegen:723} */
|
|
2521
|
+
const csegen_723 = __lazy(function () {
|
|
2522
|
+
return $0 => $1 => Data_Promise_pure_Applicative_Promise(1, $0, $1);
|
|
2523
|
+
});
|
|
2524
|
+
|
|
2525
|
+
/* {csegen:766} */
|
|
2526
|
+
const csegen_766 = __lazy(function () {
|
|
2527
|
+
return $0 => $1 => Data_Promise_reject('Multiple PRs for the current brach. Harmony only handles 1 PR per branch currently.', $0, $1);
|
|
2483
2528
|
});
|
|
2484
2529
|
|
|
2485
2530
|
/* {csegen:773} */
|
|
2486
2531
|
const csegen_773 = __lazy(function () {
|
|
2532
|
+
return $0 => $0.a1;
|
|
2533
|
+
});
|
|
2534
|
+
|
|
2535
|
+
/* {csegen:799} */
|
|
2536
|
+
const csegen_799 = __lazy(function () {
|
|
2487
2537
|
return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}}};
|
|
2488
2538
|
});
|
|
2489
2539
|
|
|
2490
|
-
/* {csegen:
|
|
2491
|
-
const
|
|
2540
|
+
/* {csegen:820} */
|
|
2541
|
+
const csegen_820 = __lazy(function () {
|
|
2492
2542
|
return {a1: ann => $1 => Graph_pretty_Pretty_Date($1), a2: ann => $5 => $6 => Graph_prettyPrec_Pretty_Date($5, $6)};
|
|
2493
2543
|
});
|
|
2494
2544
|
|
|
2495
|
-
/* {csegen:
|
|
2496
|
-
const
|
|
2545
|
+
/* {csegen:835} */
|
|
2546
|
+
const csegen_835 = __lazy(function () {
|
|
2497
2547
|
return csegen_116()($3 => BashCompletion_hashify(BashCompletion_slugify($3)));
|
|
2498
2548
|
});
|
|
2499
2549
|
|
|
2500
|
-
/* {csegen:
|
|
2501
|
-
const
|
|
2550
|
+
/* {csegen:837} */
|
|
2551
|
+
const csegen_837 = __lazy(function () {
|
|
2502
2552
|
return csegen_116()($3 => BashCompletion_slugify($3));
|
|
2503
2553
|
});
|
|
2504
2554
|
|
|
2505
|
-
/* {csegen:
|
|
2506
|
-
const
|
|
2555
|
+
/* {csegen:838} */
|
|
2556
|
+
const csegen_838 = __lazy(function () {
|
|
2507
2557
|
return {a1: '--completed', a2: {a1: 'graph', a2: {h: 0}}};
|
|
2508
2558
|
});
|
|
2509
2559
|
|
|
2510
|
-
/* {csegen:
|
|
2511
|
-
const
|
|
2560
|
+
/* {csegen:842} */
|
|
2561
|
+
const csegen_842 = __lazy(function () {
|
|
2512
2562
|
return {a1: {a1: '--checkout', a2: {a1: '-c', a2: {a1: '--ignore', a2: {a1: '-i', a2: {h: 0}}}}}};
|
|
2513
2563
|
});
|
|
2514
2564
|
|
|
2515
|
-
/* {csegen:
|
|
2516
|
-
const
|
|
2565
|
+
/* {csegen:844} */
|
|
2566
|
+
const csegen_844 = __lazy(function () {
|
|
2517
2567
|
return {a1: {a1: '--completed', a2: {a1: '-c', a2: {h: 0}}}};
|
|
2518
2568
|
});
|
|
2519
2569
|
|
|
@@ -2522,18 +2572,18 @@ function prim__sub_Integer($0, $1) {
|
|
|
2522
2572
|
return ($0-$1);
|
|
2523
2573
|
}
|
|
2524
2574
|
|
|
2525
|
-
/* Main.
|
|
2526
|
-
function
|
|
2575
|
+
/* Main.6993:1348:parsePg */
|
|
2576
|
+
function Main_n__6993_1348_parsePg($0, $1, $2, $3, $4, $5, $6) {
|
|
2527
2577
|
return Data_String_parsePositive(csegen_2(), $6);
|
|
2528
2578
|
}
|
|
2529
2579
|
|
|
2530
|
-
/* Main.
|
|
2531
|
-
function
|
|
2580
|
+
/* Main.6993:1347:parseLim */
|
|
2581
|
+
function Main_n__6993_1347_parseLim($0, $1, $2, $3, $4, $5) {
|
|
2532
2582
|
return Prelude_Interfaces_x3cx3dx3c(csegen_14(), x => Data_Fin_natToFin(x, 101n), $e => Data_String_parsePositive(csegen_2(), $e));
|
|
2533
2583
|
}
|
|
2534
2584
|
|
|
2535
|
-
/* Main.
|
|
2536
|
-
function
|
|
2585
|
+
/* Main.6854:1149:configuredOpts */
|
|
2586
|
+
function Main_n__6854_1149_configuredOpts($0, $1, $2, $3) {
|
|
2537
2587
|
const $11 = $12 => {
|
|
2538
2588
|
switch($12.h) {
|
|
2539
2589
|
case 1: /* Right */ return $0.a1.a1.a2(undefined)(BashCompletion_opts($12.a1, $3, $2, $1));
|
|
@@ -2755,7 +2805,7 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
|
2755
2805
|
}
|
|
2756
2806
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe($a7, filter => ({a1: {a1: filter, a2: {a1: $a4.a1, a2: $a4.a2}}}));
|
|
2757
2807
|
};
|
|
2758
|
-
const $84 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $8c => $8d => ({a1: $8c, a2: $8d})},
|
|
2808
|
+
const $84 = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $8c => $8d => ({a1: $8c, a2: $8d})}, Main_n__6993_1347_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__6993_1348_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)), $a3);
|
|
2759
2809
|
switch($84.h) {
|
|
2760
2810
|
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequestsJsonStr($2, $0.a2, $0.a3, $84.a1.a1, $84.a1.a2.a1, $84.a1.a2.a2), pullsJsonStr => $c3 => $c4 => $c5 => Data_Promise_liftIO_HasIO_Promise($c8 => Prelude_IO_prim__putStr(pullsJsonStr, $c8), $c3, $c4, $c5));
|
|
2761
2811
|
case 0: /* nothing */ return csegen_68();
|
|
@@ -2961,7 +3011,7 @@ function Main_exitError($0, $1) {
|
|
|
2961
3011
|
|
|
2962
3012
|
/* Main.bashCompletion : HasIO io => String -> String -> String -> io () */
|
|
2963
3013
|
function Main_bashCompletion($0, $1, $2, $3) {
|
|
2964
|
-
const $4 = Prelude_Types_maybe(() =>
|
|
3014
|
+
const $4 = Prelude_Types_maybe(() => Main_n__6854_1149_configuredOpts($0, $3, $2, $1), () => $d => $0.a1.a1.a2(undefined)($d), BashCompletion_cmdOpts($1, $2, $3));
|
|
2965
3015
|
return $0.a1.a2(undefined)(undefined)($4)($24 => $0.a2(undefined)($2a => Prelude_IO_prim__putStr(Data_String_fastUnlines($24), $2a)));
|
|
2966
3016
|
}
|
|
2967
3017
|
|
|
@@ -3996,24 +4046,6 @@ function Prelude_Types_x3ex3d_Ord_Nat($0, $1) {
|
|
|
3996
4046
|
return Prelude_EqOrd_x2fx3d_Eq_Ordering(Prelude_EqOrd_compare_Ord_Integer($0, $1), 0);
|
|
3997
4047
|
}
|
|
3998
4048
|
|
|
3999
|
-
/* Prelude.Types.== */
|
|
4000
|
-
function Prelude_Types_x3dx3d_Eq_x28Maybex20x24ax29($0, $1, $2) {
|
|
4001
|
-
switch($1.h) {
|
|
4002
|
-
case 0: /* nothing */ {
|
|
4003
|
-
switch($2.h) {
|
|
4004
|
-
case 0: /* nothing */ return 1;
|
|
4005
|
-
case undefined: /* just */ return 0;
|
|
4006
|
-
}
|
|
4007
|
-
}
|
|
4008
|
-
case undefined: /* just */ {
|
|
4009
|
-
switch($2.h) {
|
|
4010
|
-
case 0: /* nothing */ return 0;
|
|
4011
|
-
case undefined: /* just */ return $0.a1($1.a1)($2.a1);
|
|
4012
|
-
}
|
|
4013
|
-
}
|
|
4014
|
-
}
|
|
4015
|
-
}
|
|
4016
|
-
|
|
4017
4049
|
/* Prelude.Types.<|> */
|
|
4018
4050
|
function Prelude_Types_x3cx7cx3e_Alternative_Maybe($0, $1) {
|
|
4019
4051
|
switch($0.h) {
|
|
@@ -8995,8 +9027,47 @@ function Data_PullRequest_isAuthor($0, $1) {
|
|
|
8995
9027
|
return Prelude_EqOrd_x3dx3d_Eq_String($1.a4, $0);
|
|
8996
9028
|
}
|
|
8997
9029
|
|
|
9030
|
+
/* FFI.Git.case block in unpushedCommits */
|
|
9031
|
+
function FFI_Git_case__unpushedCommits_2011($0, $1, $2) {
|
|
9032
|
+
switch($1) {
|
|
9033
|
+
case '': {
|
|
9034
|
+
switch($2.h) {
|
|
9035
|
+
case 0: /* nil */ return {h: 0};
|
|
9036
|
+
default: return {a1: $1};
|
|
9037
|
+
}
|
|
9038
|
+
}
|
|
9039
|
+
default: return {a1: $1};
|
|
9040
|
+
}
|
|
9041
|
+
}
|
|
9042
|
+
|
|
9043
|
+
/* FFI.Git.case block in stagedChanges */
|
|
9044
|
+
function FFI_Git_case__stagedChanges_1948($0, $1, $2) {
|
|
9045
|
+
switch($1) {
|
|
9046
|
+
case '': {
|
|
9047
|
+
switch($2.h) {
|
|
9048
|
+
case 0: /* nil */ return {h: 0};
|
|
9049
|
+
default: return {a1: $1};
|
|
9050
|
+
}
|
|
9051
|
+
}
|
|
9052
|
+
default: return {a1: $1};
|
|
9053
|
+
}
|
|
9054
|
+
}
|
|
9055
|
+
|
|
9056
|
+
/* FFI.Git.case block in uncommittedChanges */
|
|
9057
|
+
function FFI_Git_case__uncommittedChanges_1885($0, $1, $2) {
|
|
9058
|
+
switch($1) {
|
|
9059
|
+
case '': {
|
|
9060
|
+
switch($2.h) {
|
|
9061
|
+
case 0: /* nil */ return {h: 0};
|
|
9062
|
+
default: return {a1: $1};
|
|
9063
|
+
}
|
|
9064
|
+
}
|
|
9065
|
+
default: return {a1: $1};
|
|
9066
|
+
}
|
|
9067
|
+
}
|
|
9068
|
+
|
|
8998
9069
|
/* FFI.Git.case block in remoteTrackingBranch */
|
|
8999
|
-
function
|
|
9070
|
+
function FFI_Git_case__remoteTrackingBranch_1822($0, $1, $2) {
|
|
9000
9071
|
switch($1) {
|
|
9001
9072
|
case '': {
|
|
9002
9073
|
switch($2.h) {
|
|
@@ -9014,6 +9085,24 @@ function FFI_Git_userEmail($0) {
|
|
|
9014
9085
|
return $2 => $3 => FFI_promiseIO($6 => $7 => $8 => FFI_Git_prim__userEmail($1, $6, $7, $8), $2, $3);
|
|
9015
9086
|
}
|
|
9016
9087
|
|
|
9088
|
+
/* FFI.Git.unpushedCommits : Git => Promise (Maybe String) */
|
|
9089
|
+
function FFI_Git_unpushedCommits($0) {
|
|
9090
|
+
const $1 = $0;
|
|
9091
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($4 => $5 => FFI_promiseIO($8 => $9 => $a => FFI_Git_prim__unpushedCommits($1, $8, $9, $a), $4, $5), str => $13 => $14 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__unpushedCommits_2011($1, str, Data_String_strM(str)), $13, $14));
|
|
9092
|
+
}
|
|
9093
|
+
|
|
9094
|
+
/* FFI.Git.uncommittedChanges : Git => Promise (Maybe String) */
|
|
9095
|
+
function FFI_Git_uncommittedChanges($0) {
|
|
9096
|
+
const $1 = $0;
|
|
9097
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($4 => $5 => FFI_promiseIO($8 => $9 => $a => FFI_Git_prim__uncommittedChanges($1, $8, $9, $a), $4, $5), str => $13 => $14 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__uncommittedChanges_1885($1, str, Data_String_strM(str)), $13, $14));
|
|
9098
|
+
}
|
|
9099
|
+
|
|
9100
|
+
/* FFI.Git.stagedChanges : Git => Promise (Maybe String) */
|
|
9101
|
+
function FFI_Git_stagedChanges($0) {
|
|
9102
|
+
const $1 = $0;
|
|
9103
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($4 => $5 => FFI_promiseIO($8 => $9 => $a => FFI_Git_prim__stagedChanges($1, $8, $9, $a), $4, $5), str => $13 => $14 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__stagedChanges_1948($1, str, Data_String_strM(str)), $13, $14));
|
|
9104
|
+
}
|
|
9105
|
+
|
|
9017
9106
|
/* FFI.Git.rootDir : Git => Promise String */
|
|
9018
9107
|
function FFI_Git_rootDir($0) {
|
|
9019
9108
|
const $1 = $0;
|
|
@@ -9029,7 +9118,7 @@ function FFI_Git_remoteURI($0, $1) {
|
|
|
9029
9118
|
/* FFI.Git.remoteTrackingBranch : Git => Promise (Maybe String) */
|
|
9030
9119
|
function FFI_Git_remoteTrackingBranch($0) {
|
|
9031
9120
|
const $1 = $0;
|
|
9032
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($4 => $5 => FFI_promiseIO($8 => $9 => $a => FFI_Git_prim__remoteTrackingBranch($1, $8, $9, $a), $4, $5), str => $13 => $14 => Data_Promise_pure_Applicative_Promise(
|
|
9121
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($4 => $5 => FFI_promiseIO($8 => $9 => $a => FFI_Git_prim__remoteTrackingBranch($1, $8, $9, $a), $4, $5), str => $13 => $14 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__remoteTrackingBranch_1822($1, str, Data_String_strM(str)), $13, $14));
|
|
9033
9122
|
}
|
|
9034
9123
|
|
|
9035
9124
|
/* FFI.Git.pushNewBranch : Git => String -> String -> Promise () */
|
|
@@ -9038,6 +9127,12 @@ function FFI_Git_pushNewBranch($0, $1, $2) {
|
|
|
9038
9127
|
return csegen_56()($7 => $8 => FFI_promiseIO($b => $c => $d => FFI_Git_prim__pushNewBranch($3, $1, $2, $b, $c, $d), $7, $8));
|
|
9039
9128
|
}
|
|
9040
9129
|
|
|
9130
|
+
/* FFI.Git.push : Git => Promise () */
|
|
9131
|
+
function FFI_Git_push($0) {
|
|
9132
|
+
const $1 = $0;
|
|
9133
|
+
return csegen_56()($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__push($1, $9, $a, $b), $5, $6));
|
|
9134
|
+
}
|
|
9135
|
+
|
|
9041
9136
|
/* FFI.Git.listRemotes : Git => Promise (List String) */
|
|
9042
9137
|
function FFI_Git_listRemotes($0) {
|
|
9043
9138
|
const $1 = $0;
|
|
@@ -9064,15 +9159,6 @@ function FFI_Git_checkoutBranch($0, $1) {
|
|
|
9064
9159
|
return csegen_56()($6 => $7 => FFI_promiseIO($a => $b => $c => FFI_Git_prim__checkoutBranch($2, $1, $a, $b, $c), $6, $7));
|
|
9065
9160
|
}
|
|
9066
9161
|
|
|
9067
|
-
/* Config.with block in createConfig,yesUnlessNo */
|
|
9068
|
-
function Config_with__createConfigx2cyesUnlessNo_2293($0, $1, $2, $3, $4, $5) {
|
|
9069
|
-
switch($5) {
|
|
9070
|
-
case 'n': return 0;
|
|
9071
|
-
case 'no': return 0;
|
|
9072
|
-
default: return 1;
|
|
9073
|
-
}
|
|
9074
|
-
}
|
|
9075
|
-
|
|
9076
9162
|
/* Config.with block in getConfig */
|
|
9077
9163
|
function Config_with__getConfig_2112($0, $1, $2) {
|
|
9078
9164
|
switch($1.h) {
|
|
@@ -9143,38 +9229,33 @@ function Config_case__parseGitHubURIx2cparseSuffix_1508($0, $1, $2) {
|
|
|
9143
9229
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_498(), $2.a1)}, $b);
|
|
9144
9230
|
}
|
|
9145
9231
|
|
|
9146
|
-
/* Config.
|
|
9147
|
-
function
|
|
9148
|
-
return Config_with__createConfigx2cyesUnlessNo_2293($0, $1, $2, $3, $4, Data_String_toLower($4));
|
|
9149
|
-
}
|
|
9150
|
-
|
|
9151
|
-
/* Config.7800:2261:repo */
|
|
9152
|
-
function Config_n__7800_2261_repo($0, $1, $2, $3) {
|
|
9232
|
+
/* Config.7820:2260:repo */
|
|
9233
|
+
function Config_n__7820_2260_repo($0, $1, $2, $3) {
|
|
9153
9234
|
return csegen_60()(csegen_499());
|
|
9154
9235
|
}
|
|
9155
9236
|
|
|
9156
|
-
/* Config.
|
|
9157
|
-
function
|
|
9237
|
+
/* Config.7072:1487:parseSuffix */
|
|
9238
|
+
function Config_n__7072_1487_parseSuffix($0, $1) {
|
|
9158
9239
|
return Config_case__parseGitHubURIx2cparseSuffix_1508($0, $1, Data_String_break$($8 => Prelude_EqOrd_x3dx3d_Eq_Char($8, '.'), $1));
|
|
9159
9240
|
}
|
|
9160
9241
|
|
|
9161
|
-
/* Config.
|
|
9162
|
-
function
|
|
9163
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b =>
|
|
9242
|
+
/* Config.7072:1489:parseSSH */
|
|
9243
|
+
function Config_n__7072_1489_parseSSH($0, $1) {
|
|
9244
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b => Config_n__7072_1487_parseSuffix($0, $b), $1);
|
|
9164
9245
|
}
|
|
9165
9246
|
|
|
9166
|
-
/* Config.
|
|
9167
|
-
function
|
|
9168
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b =>
|
|
9247
|
+
/* Config.7072:1488:parseHTTPS */
|
|
9248
|
+
function Config_n__7072_1488_parseHTTPS($0, $1) {
|
|
9249
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_14(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b => Config_n__7072_1487_parseSuffix($0, $b), $1);
|
|
9169
9250
|
}
|
|
9170
9251
|
|
|
9171
|
-
/* Config.
|
|
9172
|
-
function
|
|
9252
|
+
/* Config.7820:2259:org */
|
|
9253
|
+
function Config_n__7820_2259_org($0, $1, $2, $3) {
|
|
9173
9254
|
return csegen_60()(csegen_504());
|
|
9174
9255
|
}
|
|
9175
9256
|
|
|
9176
|
-
/* Config.
|
|
9177
|
-
function
|
|
9257
|
+
/* Config.7820:2258:orIfEmpty */
|
|
9258
|
+
function Config_n__7820_2258_orIfEmpty($0, $1, $2, $3, $4, $5) {
|
|
9178
9259
|
switch($4.h) {
|
|
9179
9260
|
case 0: /* nothing */ return $5;
|
|
9180
9261
|
case undefined: /* just */ {
|
|
@@ -9186,33 +9267,33 @@ function Config_n__7800_2258_orIfEmpty($0, $1, $2, $3, $4, $5) {
|
|
|
9186
9267
|
}
|
|
9187
9268
|
}
|
|
9188
9269
|
|
|
9189
|
-
/* Config.
|
|
9190
|
-
function
|
|
9270
|
+
/* Config.6788:1213:oneDayAgo */
|
|
9271
|
+
function Config_n__6788_1213_oneDayAgo($0, $1, $2) {
|
|
9191
9272
|
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(csegen_410()((now-86400n))));
|
|
9192
9273
|
}
|
|
9193
9274
|
|
|
9194
|
-
/* Config.
|
|
9195
|
-
function
|
|
9275
|
+
/* Config.7724:2152:help */
|
|
9276
|
+
function Config_n__7724_2152_help($0, $1) {
|
|
9196
9277
|
return csegen_506()(Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1.a1)))(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_70(), $15 => $15, {a1: ': ', a2: {a1: (Data_String_replicate(Prelude_Types_prim__integerToNat((Data_Config_longestSettablePropName()-Prelude_Types_String_length($1.a1))), ' ')+$1.a2), a2: {h: 0}}})));
|
|
9197
9278
|
}
|
|
9198
9279
|
|
|
9199
|
-
/* Config.
|
|
9200
|
-
function
|
|
9280
|
+
/* Config.7820:2261:enterForDefaultStr */
|
|
9281
|
+
function Config_n__7820_2261_enterForDefaultStr($0, $1, $2, $3, $4) {
|
|
9201
9282
|
return Prelude_Types_foldMap_Foldable_List(csegen_70(), $9 => $9, {a1: ' (ENTER for default: ', a2: {a1: $4, a2: {a1: ')', a2: {h: 0}}}});
|
|
9202
9283
|
}
|
|
9203
9284
|
|
|
9204
|
-
/* Config.
|
|
9205
|
-
function
|
|
9285
|
+
/* Config.7025:1440:drop' */
|
|
9286
|
+
function Config_n__7025_1440_dropx27($0, $1) {
|
|
9206
9287
|
return Config_with__dropPrefixx27x2cdropx27_1448($0, $1, Data_List_PrefixSuffix_dropPrefix($8 => $9 => Decidable_Equality_decEq_DecEq_Char()($8)($9), Prelude_Types_fastUnpack($0), $1));
|
|
9207
9288
|
}
|
|
9208
9289
|
|
|
9209
|
-
/* Config.
|
|
9210
|
-
function
|
|
9211
|
-
return Data_Maybe_fromMaybe(() => '', csegen_60()($d =>
|
|
9290
|
+
/* Config.7820:2262:defaultStr */
|
|
9291
|
+
function Config_n__7820_2262_defaultStr($0, $1, $2, $3, $4, $5) {
|
|
9292
|
+
return Data_Maybe_fromMaybe(() => '', csegen_60()($d => Config_n__7820_2261_enterForDefaultStr($0, $1, $2, $3, $4($d)))($5));
|
|
9212
9293
|
}
|
|
9213
9294
|
|
|
9214
|
-
/* Config.
|
|
9215
|
-
function
|
|
9295
|
+
/* Config.6914:1333:checkAssignSettings */
|
|
9296
|
+
function Config_n__6914_1333_checkAssignSettings($0, $1) {
|
|
9216
9297
|
let $2;
|
|
9217
9298
|
switch($1.a6) {
|
|
9218
9299
|
case 1: {
|
|
@@ -9265,7 +9346,7 @@ function Config_syncIfOld($0, $1) {
|
|
|
9265
9346
|
case 0: return $14 => $15 => Data_Promise_pure_Applicative_Promise($1, $14, $15);
|
|
9266
9347
|
}
|
|
9267
9348
|
};
|
|
9268
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9349
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Config_n__6788_1213_oneDayAgo($0, $1, csegen_94()), $9);
|
|
9269
9350
|
}
|
|
9270
9351
|
|
|
9271
9352
|
/* Config.syncConfig : Config => Octokit => Bool -> Promise Config */
|
|
@@ -9288,7 +9369,7 @@ function Config_syncConfig($0, $1, $2) {
|
|
|
9288
9369
|
|
|
9289
9370
|
/* Config.settablePropsWithHelp : Config => String */
|
|
9290
9371
|
function Config_settablePropsWithHelp($0) {
|
|
9291
|
-
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(csegen_116()($a =>
|
|
9372
|
+
return Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep(csegen_116()($a => Config_n__7724_2152_help($0, $a))(Data_Config_settablePropNamesAndHelp())));
|
|
9292
9373
|
}
|
|
9293
9374
|
|
|
9294
9375
|
/* Config.setConfig : Config => String -> String -> Promise Config */
|
|
@@ -9331,7 +9412,7 @@ function Config_preferOriginRemote($0) {
|
|
|
9331
9412
|
|
|
9332
9413
|
/* Config.parseGitHubURI : String -> Maybe GitRemote */
|
|
9333
9414
|
function Config_parseGitHubURI($0) {
|
|
9334
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
9415
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(Config_n__7072_1488_parseHTTPS($0, $0), () => Config_n__7072_1489_parseSSH($0, $0));
|
|
9335
9416
|
}
|
|
9336
9417
|
|
|
9337
9418
|
/* Config.parseBool : String -> Maybe Bool */
|
|
@@ -9459,14 +9540,14 @@ function Config_findConfig($0, $1, $2) {
|
|
|
9459
9540
|
|
|
9460
9541
|
/* Config.dropPrefix' : String -> String -> Maybe String */
|
|
9461
9542
|
function Config_dropPrefixx27($0, $1) {
|
|
9462
|
-
return csegen_60()($6 => Prelude_Types_fastPack($6))(
|
|
9543
|
+
return csegen_60()($6 => Prelude_Types_fastPack($6))(Config_n__7025_1440_dropx27($0, Prelude_Types_fastUnpack($1)));
|
|
9463
9544
|
}
|
|
9464
9545
|
|
|
9465
9546
|
/* Config.createConfig : Git => Maybe String -> Bool -> Maybe String -> Promise Config */
|
|
9466
9547
|
function Config_createConfig($0, $1, $2, $3) {
|
|
9467
9548
|
const $21 = $22 => {
|
|
9468
9549
|
const $31 = $32 => {
|
|
9469
|
-
const $34 =
|
|
9550
|
+
const $34 = Config_n__7820_2261_enterForDefaultStr($0, $3, $2, $1, 'unset');
|
|
9470
9551
|
const $33 = () => {
|
|
9471
9552
|
const $63 = $64 => {
|
|
9472
9553
|
const $6a = $6b => {
|
|
@@ -9483,67 +9564,58 @@ function Config_createConfig($0, $1, $2, $3) {
|
|
|
9483
9564
|
case undefined: /* just */ {
|
|
9484
9565
|
const $8f = remoteGuess => {
|
|
9485
9566
|
const $a5 = defaultOrgAndRepo => {
|
|
9486
|
-
const $a6 =
|
|
9567
|
+
const $a6 = Config_n__7820_2262_defaultStr($0, $3, $2, $1, csegen_504(), defaultOrgAndRepo);
|
|
9487
9568
|
const $d0 = $d1 => {
|
|
9488
9569
|
const $eb = org => {
|
|
9489
|
-
const $ec =
|
|
9570
|
+
const $ec = Config_n__7820_2262_defaultStr($0, $3, $2, $1, csegen_499(), defaultOrgAndRepo);
|
|
9490
9571
|
const $116 = $117 => {
|
|
9491
9572
|
const $131 = repo => {
|
|
9492
|
-
const $132 =
|
|
9573
|
+
const $132 = Config_n__7820_2261_enterForDefaultStr($0, $3, $2, $1, remoteGuess);
|
|
9493
9574
|
const $15a = $15b => {
|
|
9494
9575
|
const $170 = defaultRemote => {
|
|
9495
|
-
const $
|
|
9496
|
-
const $
|
|
9497
|
-
const $
|
|
9498
|
-
const $
|
|
9499
|
-
const $
|
|
9500
|
-
const $
|
|
9501
|
-
const $
|
|
9502
|
-
const $
|
|
9503
|
-
|
|
9504
|
-
|
|
9505
|
-
|
|
9506
|
-
const $
|
|
9507
|
-
|
|
9508
|
-
const $231 = orgMembers => {
|
|
9509
|
-
const $232 = {a1: updatedAt, a2: org, a3: repo, a4: defaultRemote, a5: mainBranch, a6: assignTeams, a7: assignUsers, a8: commentOnAssign, a9: teamSlugs, a10: repoLabels, a11: orgMembers, a12: {h: 0}, a13: csegen_414()(configPAT), a14: $20d};
|
|
9510
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_56()(Config_writeConfig($232)), $24c => Data_Promise_x3ex3ex3d_Monad_Promise($24f => $250 => $251 => Data_Promise_liftIO_HasIO_Promise($254 => Prelude_IO_prim__putStr((csegen_62()('Your new configuration is:')+'\n'), $254), $24f, $250, $251), $261 => Data_Promise_x3ex3ex3d_Monad_Promise($264 => $265 => $266 => Data_Promise_liftIO_HasIO_Promise($269 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($232)+'\n'), $269), $264, $265, $266), $275 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $27a => Util_renderIO($232, csegen_94(), $27a), () => csegen_497(), Config_checkConfigConsistency($232)), $286 => $287 => $288 => Data_Promise_pure_Applicative_Promise($232, $287, $288)))));
|
|
9511
|
-
};
|
|
9512
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listOrgMembers(_, org), $231);
|
|
9513
|
-
};
|
|
9514
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listRepoLabels(_, org, repo), $22b);
|
|
9515
|
-
};
|
|
9516
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listTeams(_, org), $224);
|
|
9576
|
+
const $17a = commentOnAssign => {
|
|
9577
|
+
const $184 = assignTeams => {
|
|
9578
|
+
const $18e = assignUsers => {
|
|
9579
|
+
const $19b = _ => {
|
|
9580
|
+
const $1af = $1b0 => {
|
|
9581
|
+
const $1b7 = mainBranch => {
|
|
9582
|
+
const $1bb = updatedAt => {
|
|
9583
|
+
const $1bc = {a1: Prelude_Types_foldMap_Foldable_List(csegen_70(), $1c2 => $1c2, {a1: csegen_62()('./'), a2: {a1: csegen_527(), a2: {h: 0}}}), a2: $2, a3: $3};
|
|
9584
|
+
const $1d3 = teamSlugs => {
|
|
9585
|
+
const $1da = repoLabels => {
|
|
9586
|
+
const $1e0 = orgMembers => {
|
|
9587
|
+
const $1e1 = {a1: updatedAt, a2: org, a3: repo, a4: defaultRemote, a5: mainBranch, a6: assignTeams, a7: assignUsers, a8: commentOnAssign, a9: teamSlugs, a10: repoLabels, a11: orgMembers, a12: {h: 0}, a13: csegen_414()(configPAT), a14: $1bc};
|
|
9588
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_56()(Config_writeConfig($1e1)), $1fb => Data_Promise_x3ex3ex3d_Monad_Promise($1fe => $1ff => $200 => Data_Promise_liftIO_HasIO_Promise($203 => Prelude_IO_prim__putStr((csegen_62()('Your new configuration is:')+'\n'), $203), $1fe, $1ff, $200), $210 => Data_Promise_x3ex3ex3d_Monad_Promise($213 => $214 => $215 => Data_Promise_liftIO_HasIO_Promise($218 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($1e1)+'\n'), $218), $213, $214, $215), $224 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $229 => Util_renderIO($1e1, csegen_94(), $229), () => csegen_497(), Config_checkConfigConsistency($1e1)), $235 => $236 => $237 => Data_Promise_pure_Applicative_Promise($1e1, $236, $237)))));
|
|
9517
9589
|
};
|
|
9518
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9590
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listOrgMembers(_, org), $1e0);
|
|
9519
9591
|
};
|
|
9520
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9592
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listRepoLabels(_, org, repo), $1da);
|
|
9521
9593
|
};
|
|
9522
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9594
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listTeams(_, org), $1d3);
|
|
9523
9595
|
};
|
|
9524
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9596
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_520(), $1bb);
|
|
9525
9597
|
};
|
|
9526
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9598
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_getRepoDefaultBranch(_, org, repo), $1b7);
|
|
9527
9599
|
};
|
|
9528
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($
|
|
9600
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($19e => $19f => $1a0 => Data_Promise_liftIO_HasIO_Promise($1a3 => Prelude_IO_prim__putStr((csegen_62()('Creating config...')+'\n'), $1a3), $19e, $19f, $1a0), $1af);
|
|
9529
9601
|
};
|
|
9530
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9602
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($191 => $192 => $193 => Data_Promise_liftIO_HasIO_Promise(FFI_GitHub_octokit($81.a1), $191, $192, $193), $19b);
|
|
9531
9603
|
};
|
|
9532
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9604
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Util_yesNoPrompt(csegen_94(), csegen_62()('Would you like harmony to assign individual users when it assigns reviewers?')), $18e);
|
|
9533
9605
|
};
|
|
9534
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9606
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Util_yesNoPrompt(csegen_94(), csegen_62()('Would you like harmony to assign teams when it assigns reviewers?')), $184);
|
|
9535
9607
|
};
|
|
9536
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
9608
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Util_yesNoPrompt(csegen_94(), csegen_62()('Would you like harmony to comment when it assigns reviewers?')), $17a);
|
|
9537
9609
|
};
|
|
9538
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($162 => ({a1:
|
|
9610
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($162 => ({a1: Config_n__7820_2258_orIfEmpty($0, $3, $2, $1, {a1: remoteGuess}, Data_String_trim($162))}))(csegen_543()), $170);
|
|
9539
9611
|
};
|
|
9540
9612
|
return Data_Promise_x3ex3ex3d_Monad_Promise($13b => $13c => $13d => Data_Promise_liftIO_HasIO_Promise($140 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_70(), $148 => $148, {a1: csegen_62()('What GitHub remote repo would you like to use harmony for'), a2: {a1: csegen_62()($132), a2: csegen_550()}})+'\n'), $140), $13b, $13c, $13d), $15a);
|
|
9541
9613
|
};
|
|
9542
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($11e =>
|
|
9614
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($11e => Config_n__7820_2258_orIfEmpty($0, $3, $2, $1, Config_n__7820_2260_repo($0, $3, $2, $1)(defaultOrgAndRepo), Data_String_trim($11e)))(csegen_543()), $131);
|
|
9543
9615
|
};
|
|
9544
9616
|
return Data_Promise_x3ex3ex3d_Monad_Promise($f7 => $f8 => $f9 => Data_Promise_liftIO_HasIO_Promise($fc => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_70(), $104 => $104, {a1: csegen_62()('What repository would you like to use harmony for'), a2: {a1: csegen_62()($ec), a2: csegen_550()}})+'\n'), $fc), $f7, $f8, $f9), $116);
|
|
9545
9617
|
};
|
|
9546
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($d8 =>
|
|
9618
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($d8 => Config_n__7820_2258_orIfEmpty($0, $3, $2, $1, Config_n__7820_2259_org($0, $3, $2, $1)(defaultOrgAndRepo), Data_String_trim($d8)))(csegen_543()), $eb);
|
|
9547
9619
|
};
|
|
9548
9620
|
return Data_Promise_x3ex3ex3d_Monad_Promise($b1 => $b2 => $b3 => Data_Promise_liftIO_HasIO_Promise($b6 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_70(), $be => $be, {a1: csegen_62()('What GitHub org would you like to use harmony for'), a2: {a1: csegen_62()($a6), a2: csegen_550()}})+'\n'), $b6), $b1, $b2, $b3), $d0);
|
|
9549
9621
|
};
|
|
@@ -9551,7 +9623,7 @@ function Config_createConfig($0, $1, $2, $3) {
|
|
|
9551
9623
|
};
|
|
9552
9624
|
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($89 => Config_preferOriginRemote($89))(FFI_Git_listRemotes($0)), $8f);
|
|
9553
9625
|
}
|
|
9554
|
-
default: return $
|
|
9626
|
+
default: return $23c => $23d => Data_Promise_reject('Either the GITHUB_PAT environment variable or githubPAT config property must be set to a personal access token.', $23c, $23d);
|
|
9555
9627
|
}
|
|
9556
9628
|
};
|
|
9557
9629
|
return Data_Promise_x3ex3ex3d_Monad_Promise($77 => $78 => Data_Promise_pure_Applicative_Promise(Prelude_Types_x3cx7cx3e_Alternative_Maybe($1, () => configPAT), $77, $78), $80);
|
|
@@ -9569,7 +9641,7 @@ function Config_createConfig($0, $1, $2, $3) {
|
|
|
9569
9641
|
|
|
9570
9642
|
/* Config.checkConfigConsistency : Config -> Either (Doc AnsiStyle) () */
|
|
9571
9643
|
function Config_checkConfigConsistency($0) {
|
|
9572
|
-
return
|
|
9644
|
+
return Config_n__6914_1333_checkAssignSettings($0, $0);
|
|
9573
9645
|
}
|
|
9574
9646
|
|
|
9575
9647
|
/* Config.addIgnoredPRs : Config -> List Integer -> Promise Config */
|
|
@@ -9577,13 +9649,27 @@ function Config_addIgnoredPRs($0, $1) {
|
|
|
9577
9649
|
return Config_writeConfig({a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: $0.a8, a9: $0.a9, a10: $0.a10, a11: $0.a11, a12: Data_List_nub(csegen_450(), Prelude_Types_List_tailRecAppend($0.a12, $1)), a13: $0.a13, a14: $0.a14});
|
|
9578
9650
|
}
|
|
9579
9651
|
|
|
9580
|
-
/* Util.
|
|
9581
|
-
|
|
9652
|
+
/* Util.with block in yesNoPrompt,yesUnlessNo */
|
|
9653
|
+
function Util_with__yesNoPromptx2cyesUnlessNo_1292($0, $1, $2, $3, $4) {
|
|
9654
|
+
switch($4) {
|
|
9655
|
+
case 'n': return 0;
|
|
9656
|
+
case 'no': return 0;
|
|
9657
|
+
default: return 1;
|
|
9658
|
+
}
|
|
9659
|
+
}
|
|
9660
|
+
|
|
9661
|
+
/* Util.5012:1284:yesUnlessNo */
|
|
9662
|
+
function Util_n__5012_1284_yesUnlessNo($0, $1, $2) {
|
|
9663
|
+
return Util_with__yesNoPromptx2cyesUnlessNo_1292(undefined, $0, $1, $2, Data_String_toLower($2));
|
|
9664
|
+
}
|
|
9665
|
+
|
|
9666
|
+
/* Util.5115:1389:startOver */
|
|
9667
|
+
const Util_n__5115_1389_startOver = __lazy(function () {
|
|
9582
9668
|
return {a1: 0, a2: {h: 0}};
|
|
9583
9669
|
});
|
|
9584
9670
|
|
|
9585
|
-
/* Util.
|
|
9586
|
-
function
|
|
9671
|
+
/* Util.5115:1390:guardSuccess */
|
|
9672
|
+
function Util_n__5115_1390_guardSuccess($0) {
|
|
9587
9673
|
switch($0.h) {
|
|
9588
9674
|
case undefined: /* cons */ {
|
|
9589
9675
|
switch($0.a1) {
|
|
@@ -9596,13 +9682,13 @@ function Util_n__4987_1272_guardSuccess($0) {
|
|
|
9596
9682
|
}
|
|
9597
9683
|
}
|
|
9598
9684
|
|
|
9599
|
-
/* Util.
|
|
9600
|
-
function
|
|
9685
|
+
/* Util.5115:1391:go */
|
|
9686
|
+
function Util_n__5115_1391_go($0, $1) {
|
|
9601
9687
|
switch($0.a1) {
|
|
9602
9688
|
case 0: {
|
|
9603
9689
|
switch(Prelude_Types_isAlpha($1)) {
|
|
9604
9690
|
case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
|
|
9605
|
-
case 0: return
|
|
9691
|
+
case 0: return Util_n__5115_1389_startOver();
|
|
9606
9692
|
}
|
|
9607
9693
|
}
|
|
9608
9694
|
case 1: {
|
|
@@ -9611,7 +9697,7 @@ function Util_n__4987_1273_go($0, $1) {
|
|
|
9611
9697
|
default: {
|
|
9612
9698
|
switch(Prelude_Types_isAlpha($1)) {
|
|
9613
9699
|
case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
|
|
9614
|
-
case 0: return
|
|
9700
|
+
case 0: return Util_n__5115_1389_startOver();
|
|
9615
9701
|
}
|
|
9616
9702
|
}
|
|
9617
9703
|
}
|
|
@@ -9619,7 +9705,7 @@ function Util_n__4987_1273_go($0, $1) {
|
|
|
9619
9705
|
case 2: {
|
|
9620
9706
|
switch(Prelude_Types_isDigit($1)) {
|
|
9621
9707
|
case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
|
|
9622
|
-
case 0: return
|
|
9708
|
+
case 0: return Util_n__5115_1389_startOver();
|
|
9623
9709
|
}
|
|
9624
9710
|
}
|
|
9625
9711
|
case 3: {
|
|
@@ -9632,8 +9718,8 @@ function Util_n__4987_1273_go($0, $1) {
|
|
|
9632
9718
|
}
|
|
9633
9719
|
}
|
|
9634
9720
|
|
|
9635
|
-
/* Util.
|
|
9636
|
-
function
|
|
9721
|
+
/* Util.4899:1172:getMoreLines */
|
|
9722
|
+
function Util_n__4899_1172_getMoreLines($0, $1, $2) {
|
|
9637
9723
|
switch($2.h) {
|
|
9638
9724
|
case 0: /* nothing */ return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1));
|
|
9639
9725
|
case undefined: /* just */ {
|
|
@@ -9649,13 +9735,13 @@ function Util_n__4841_1128_getMoreLines($0, $1, $2) {
|
|
|
9649
9735
|
case '': {
|
|
9650
9736
|
switch(line) {
|
|
9651
9737
|
case '': return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1.a2));
|
|
9652
|
-
default: return
|
|
9738
|
+
default: return Util_n__4899_1172_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
9653
9739
|
}
|
|
9654
9740
|
}
|
|
9655
|
-
default: return
|
|
9741
|
+
default: return Util_n__4899_1172_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
9656
9742
|
}
|
|
9657
9743
|
}
|
|
9658
|
-
default: return
|
|
9744
|
+
default: return Util_n__4899_1172_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
9659
9745
|
}
|
|
9660
9746
|
};
|
|
9661
9747
|
return $f($33);
|
|
@@ -9663,6 +9749,25 @@ function Util_n__4841_1128_getMoreLines($0, $1, $2) {
|
|
|
9663
9749
|
}
|
|
9664
9750
|
}
|
|
9665
9751
|
|
|
9752
|
+
/* Util.yesNoPrompt : HasIO io => String -> io Bool */
|
|
9753
|
+
function Util_yesNoPrompt($0, $1) {
|
|
9754
|
+
const $1e = $1f => {
|
|
9755
|
+
const $22 = $0.a1.a1.a1;
|
|
9756
|
+
const $21 = $26 => $27 => $22(undefined)(undefined)($26)($27);
|
|
9757
|
+
const $20 = $21($31 => Util_n__5012_1284_yesUnlessNo($0, $1, Data_String_trim($31)));
|
|
9758
|
+
return $20($0.a2(undefined)($3e => Prelude_IO_prim__getStr($3e)));
|
|
9759
|
+
};
|
|
9760
|
+
return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($10 => Prelude_IO_prim__putStr(Prelude_Types_foldMap_Foldable_List(csegen_70(), $17 => $17, {a1: $1, a2: {a1: ' [Y/n] ', a2: {h: 0}}}), $10)))($1e);
|
|
9761
|
+
}
|
|
9762
|
+
|
|
9763
|
+
/* Util.whenNothing : Applicative f => Maybe a -> f () -> f () */
|
|
9764
|
+
function Util_whenNothing($0, $1, $2) {
|
|
9765
|
+
switch($1.h) {
|
|
9766
|
+
case 0: /* nothing */ return $2;
|
|
9767
|
+
case undefined: /* just */ return $0.a2(undefined)(undefined);
|
|
9768
|
+
}
|
|
9769
|
+
}
|
|
9770
|
+
|
|
9666
9771
|
/* Util.renderString : Config => Doc AnsiStyle -> String */
|
|
9667
9772
|
function Util_renderString($0, $1) {
|
|
9668
9773
|
let $8;
|
|
@@ -9706,12 +9811,12 @@ function Util_relativeToRoot($0, $1) {
|
|
|
9706
9811
|
|
|
9707
9812
|
/* Util.parseJiraPrefix : String -> Maybe String */
|
|
9708
9813
|
function Util_parseJiraPrefix($0) {
|
|
9709
|
-
return csegen_60()($5 => Prelude_Types_fastPack(Prelude_Types_List_reverse($5)))(
|
|
9814
|
+
return csegen_60()($5 => Prelude_Types_fastPack(Prelude_Types_List_reverse($5)))(Util_n__5115_1390_guardSuccess(Prelude_Types_foldl_Foldable_List($f => $10 => Util_n__5115_1391_go($f, $10), Util_n__5115_1389_startOver(), Prelude_Types_fastUnpack($0))));
|
|
9710
9815
|
}
|
|
9711
9816
|
|
|
9712
9817
|
/* Util.getManyLines : HasIO io => Fuel -> io (List String) */
|
|
9713
9818
|
function Util_getManyLines($0, $1) {
|
|
9714
|
-
return
|
|
9819
|
+
return Util_n__4899_1172_getMoreLines($0, {h: 0}, $1);
|
|
9715
9820
|
}
|
|
9716
9821
|
|
|
9717
9822
|
/* Data.List.PrefixSuffix.with block in with block in dropPrefix */
|
|
@@ -9795,15 +9900,15 @@ function Commands_case__casex20blockx20inx20graph_2168($0, $1, $2, $3, $4, $5, $
|
|
|
9795
9900
|
let $a;
|
|
9796
9901
|
switch(Data_Maybe_isJust($3)) {
|
|
9797
9902
|
case 1: {
|
|
9798
|
-
$a = PullRequest_countReviewsByEachUser($2, $0)(PullRequest_combined($6));
|
|
9903
|
+
$a = csegen_55()($12 => ({a1: $12}))(PullRequest_countReviewsByEachUser($2, $0)(PullRequest_combined($6)));
|
|
9799
9904
|
break;
|
|
9800
9905
|
}
|
|
9801
9906
|
case 0: {
|
|
9802
|
-
$a =
|
|
9907
|
+
$a = csegen_547();
|
|
9803
9908
|
break;
|
|
9804
9909
|
}
|
|
9805
9910
|
}
|
|
9806
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($a, completedReviews => Util_renderIO($2, csegen_94(), Graph_reviewsGraph(csegen_446(), {a1: ann => $
|
|
9911
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($a, completedReviews => Util_renderIO($2, csegen_94(), Graph_reviewsGraph(csegen_446(), {a1: ann => $28 => Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($28), a2: ann => $2c => $2d => Text_PrettyPrint_Prettyprinter_Doc_prettyPrec_Pretty_String($2c, $2d)}, $7.a2, $7.a1, $5, completedReviews)));
|
|
9807
9912
|
}
|
|
9808
9913
|
|
|
9809
9914
|
/* Commands.case block in graph */
|
|
@@ -9874,8 +9979,8 @@ function Commands_case__assignx2cpartitionedArgs_1663($0, $1, $2, $3, $4, $5) {
|
|
|
9874
9979
|
return Commands_case__casex20blockx20inx20assignx2cpartitionedArgs_1686($0, $1, $2, $3, $4, $5.a1, $5.a2, Data_List_partition($12 => BashCompletion_isHashPrefix($12), $5.a2));
|
|
9875
9980
|
}
|
|
9876
9981
|
|
|
9877
|
-
/* Commands.
|
|
9878
|
-
function
|
|
9982
|
+
/* Commands.8542:2510:recombineIgnoreArgs */
|
|
9983
|
+
function Commands_n__8542_2510_recombineIgnoreArgs($0, $1) {
|
|
9879
9984
|
switch($1.h) {
|
|
9880
9985
|
case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
|
|
9881
9986
|
case undefined: /* cons */ {
|
|
@@ -9884,20 +9989,20 @@ function Commands_n__8521_2510_recombineIgnoreArgs($0, $1) {
|
|
|
9884
9989
|
switch($1.a2.h) {
|
|
9885
9990
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '-i', a2: {h: 0}}};
|
|
9886
9991
|
case undefined: /* cons */ {
|
|
9887
|
-
const $b =
|
|
9992
|
+
const $b = Commands_n__8542_2509_parseIgnoreOpt($0, $1.a2.a1);
|
|
9888
9993
|
switch($b.h) {
|
|
9889
9994
|
case undefined: /* just */ {
|
|
9890
|
-
const $f =
|
|
9995
|
+
const $f = Commands_n__8542_2510_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9891
9996
|
return {a1: {a1: $b.a1, a2: $f.a1}, a2: $f.a2};
|
|
9892
9997
|
}
|
|
9893
9998
|
case 0: /* nothing */ {
|
|
9894
|
-
const $17 =
|
|
9999
|
+
const $17 = Commands_n__8542_2510_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9895
10000
|
return {a1: $17.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $17.a2}}};
|
|
9896
10001
|
}
|
|
9897
10002
|
}
|
|
9898
10003
|
}
|
|
9899
10004
|
default: {
|
|
9900
|
-
const $21 =
|
|
10005
|
+
const $21 = Commands_n__8542_2510_recombineIgnoreArgs($0, $1.a2);
|
|
9901
10006
|
return {a1: $21.a1, a2: {a1: $1.a1, a2: $21.a2}};
|
|
9902
10007
|
}
|
|
9903
10008
|
}
|
|
@@ -9906,26 +10011,26 @@ function Commands_n__8521_2510_recombineIgnoreArgs($0, $1) {
|
|
|
9906
10011
|
switch($1.a2.h) {
|
|
9907
10012
|
case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
|
|
9908
10013
|
case undefined: /* cons */ {
|
|
9909
|
-
const $2e =
|
|
10014
|
+
const $2e = Commands_n__8542_2509_parseIgnoreOpt($0, $1.a2.a1);
|
|
9910
10015
|
switch($2e.h) {
|
|
9911
10016
|
case undefined: /* just */ {
|
|
9912
|
-
const $32 =
|
|
10017
|
+
const $32 = Commands_n__8542_2510_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9913
10018
|
return {a1: {a1: $2e.a1, a2: $32.a1}, a2: $32.a2};
|
|
9914
10019
|
}
|
|
9915
10020
|
case 0: /* nothing */ {
|
|
9916
|
-
const $3a =
|
|
10021
|
+
const $3a = Commands_n__8542_2510_recombineIgnoreArgs($0, $1.a2.a2);
|
|
9917
10022
|
return {a1: $3a.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $3a.a2}}};
|
|
9918
10023
|
}
|
|
9919
10024
|
}
|
|
9920
10025
|
}
|
|
9921
10026
|
default: {
|
|
9922
|
-
const $44 =
|
|
10027
|
+
const $44 = Commands_n__8542_2510_recombineIgnoreArgs($0, $1.a2);
|
|
9923
10028
|
return {a1: $44.a1, a2: {a1: $1.a1, a2: $44.a2}};
|
|
9924
10029
|
}
|
|
9925
10030
|
}
|
|
9926
10031
|
}
|
|
9927
10032
|
default: {
|
|
9928
|
-
const $4c =
|
|
10033
|
+
const $4c = Commands_n__8542_2510_recombineIgnoreArgs($0, $1.a2);
|
|
9929
10034
|
return {a1: $4c.a1, a2: {a1: $1.a1, a2: $4c.a2}};
|
|
9930
10035
|
}
|
|
9931
10036
|
}
|
|
@@ -9933,33 +10038,33 @@ function Commands_n__8521_2510_recombineIgnoreArgs($0, $1) {
|
|
|
9933
10038
|
}
|
|
9934
10039
|
}
|
|
9935
10040
|
|
|
9936
|
-
/* Commands.
|
|
9937
|
-
function
|
|
10041
|
+
/* Commands.7935:1922:putNameLn */
|
|
10042
|
+
function Commands_n__7935_1922_putNameLn($0, $1, $2, $3) {
|
|
9938
10043
|
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}}}});
|
|
9939
10044
|
}
|
|
9940
10045
|
|
|
9941
|
-
/* Commands.
|
|
9942
|
-
function
|
|
9943
|
-
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(
|
|
10046
|
+
/* Commands.7256:1299:putLabels */
|
|
10047
|
+
function Commands_n__7256_1299_putLabels($0, $1, $2, $3, $4) {
|
|
10048
|
+
return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(csegen_591(), csegen_116()($f => Commands_n__7256_1298_putLabel($0, $1, $2, $3, $f))($4)));
|
|
9944
10049
|
}
|
|
9945
10050
|
|
|
9946
|
-
/* Commands.
|
|
9947
|
-
function
|
|
10051
|
+
/* Commands.7256:1298:putLabel */
|
|
10052
|
+
function Commands_n__7256_1298_putLabel($0, $1, $2, $3, $4) {
|
|
9948
10053
|
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)));
|
|
9949
10054
|
}
|
|
9950
10055
|
|
|
9951
|
-
/* Commands.
|
|
9952
|
-
function
|
|
10056
|
+
/* Commands.7611:1651:partitionedArgs */
|
|
10057
|
+
function Commands_n__7611_1651_partitionedArgs($0, $1, $2, $3, $4) {
|
|
9953
10058
|
return Commands_case__assignx2cpartitionedArgs_1663($0, $1, $2, $3, $4, Data_List_partition($e => Data_String_isPrefixOf('+', $e), $4));
|
|
9954
10059
|
}
|
|
9955
10060
|
|
|
9956
|
-
/* Commands.
|
|
9957
|
-
function
|
|
10061
|
+
/* Commands.8384:2373:parseTeamArg */
|
|
10062
|
+
function Commands_n__8384_2373_parseTeamArg($0, $1) {
|
|
9958
10063
|
return {a1: {a1: $1}};
|
|
9959
10064
|
}
|
|
9960
10065
|
|
|
9961
|
-
/* Commands.
|
|
9962
|
-
function
|
|
10066
|
+
/* Commands.8542:2508:parseSkipArg */
|
|
10067
|
+
function Commands_n__8542_2508_parseSkipArg($0, $1) {
|
|
9963
10068
|
const $2 = Prelude_Types_fastUnpack($1);
|
|
9964
10069
|
switch($2.h) {
|
|
9965
10070
|
case undefined: /* cons */ {
|
|
@@ -9981,15 +10086,15 @@ function Commands_n__8521_2508_parseSkipArg($0, $1) {
|
|
|
9981
10086
|
}
|
|
9982
10087
|
}
|
|
9983
10088
|
|
|
9984
|
-
/* Commands.
|
|
9985
|
-
function
|
|
10089
|
+
/* Commands.8542:2509:parseIgnoreOpt */
|
|
10090
|
+
function Commands_n__8542_2509_parseIgnoreOpt($0, $1) {
|
|
9986
10091
|
const $2 = Data_String_split(csegen_498(), $1);
|
|
9987
10092
|
const $7 = Data_List1_last($2);
|
|
9988
10093
|
return csegen_414()(Data_String_parsePositive(csegen_2(), $7));
|
|
9989
10094
|
}
|
|
9990
10095
|
|
|
9991
|
-
/* Commands.
|
|
9992
|
-
function
|
|
10096
|
+
/* Commands.8384:2372:parseCompletedFlag */
|
|
10097
|
+
function Commands_n__8384_2372_parseCompletedFlag($0, $1) {
|
|
9993
10098
|
switch($1) {
|
|
9994
10099
|
case '-c': return {a1: {h: 0}};
|
|
9995
10100
|
case '--completed': return {a1: {h: 0}};
|
|
@@ -9997,8 +10102,8 @@ function Commands_n__8363_2372_parseCompletedFlag($0, $1) {
|
|
|
9997
10102
|
}
|
|
9998
10103
|
}
|
|
9999
10104
|
|
|
10000
|
-
/* Commands.
|
|
10001
|
-
function
|
|
10105
|
+
/* Commands.8542:2507:parseCheckoutFlag */
|
|
10106
|
+
function Commands_n__8542_2507_parseCheckoutFlag($0, $1) {
|
|
10002
10107
|
switch($1) {
|
|
10003
10108
|
case '-c': return {a1: {h: 0 /* Checkout */}};
|
|
10004
10109
|
case '--checkout': return {a1: {h: 0 /* Checkout */}};
|
|
@@ -10006,13 +10111,13 @@ function Commands_n__8521_2507_parseCheckoutFlag($0, $1) {
|
|
|
10006
10111
|
}
|
|
10007
10112
|
}
|
|
10008
10113
|
|
|
10009
|
-
/* Commands.
|
|
10010
|
-
function
|
|
10114
|
+
/* Commands.8871:2845:isNotIgnored */
|
|
10115
|
+
function Commands_n__8871_2845_isNotIgnored($0, $1, $2, $3, $4, $5) {
|
|
10011
10116
|
return Data_Maybe_isNothing(Data_List_find($a => Prelude_EqOrd_x3dx3d_Eq_Integer($a, $5.a1), $4.a12));
|
|
10012
10117
|
}
|
|
10013
10118
|
|
|
10014
|
-
/* Commands.
|
|
10015
|
-
function
|
|
10119
|
+
/* Commands.7935:1921:forkedUser */
|
|
10120
|
+
function Commands_n__7935_1921_forkedUser($0, $1, $2, $3) {
|
|
10016
10121
|
return FFI_Concurrency_fork(csegen_94(), ('user --json '+$3));
|
|
10017
10122
|
}
|
|
10018
10123
|
|
|
@@ -10100,7 +10205,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10100
10205
|
switch($0.a2.a2.h) {
|
|
10101
10206
|
case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
|
|
10102
10207
|
default: {
|
|
10103
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(
|
|
10208
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_601(), $10 => Commands_n__8384_2372_parseCompletedFlag($0, $10), $15 => Commands_n__8384_2373_parseTeamArg($0, $15), $b), $0);
|
|
10104
10209
|
switch($6.h) {
|
|
10105
10210
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
|
|
10106
10211
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10109,7 +10214,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10109
10214
|
}
|
|
10110
10215
|
}
|
|
10111
10216
|
default: {
|
|
10112
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(
|
|
10217
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_601(), $27 => Commands_n__8384_2372_parseCompletedFlag($0, $27), $2c => Commands_n__8384_2373_parseTeamArg($0, $2c), $22), $0);
|
|
10113
10218
|
switch($1d.h) {
|
|
10114
10219
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
|
|
10115
10220
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10118,7 +10223,7 @@ function Commands_parseGraphArgs($0) {
|
|
|
10118
10223
|
}
|
|
10119
10224
|
}
|
|
10120
10225
|
default: {
|
|
10121
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(
|
|
10226
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_601(), $3e => Commands_n__8384_2372_parseCompletedFlag($0, $3e), $43 => Commands_n__8384_2373_parseTeamArg($0, $43), $39), $0);
|
|
10122
10227
|
switch($34.h) {
|
|
10123
10228
|
case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
|
|
10124
10229
|
case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
|
|
@@ -10132,9 +10237,9 @@ function Commands_parseContributeArgs($0) {
|
|
|
10132
10237
|
switch($0.h) {
|
|
10133
10238
|
case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
|
|
10134
10239
|
default: {
|
|
10135
|
-
const $3 =
|
|
10240
|
+
const $3 = Commands_n__8542_2510_recombineIgnoreArgs($0, $0);
|
|
10136
10241
|
const $7 = csegen_116()($c => ({h: 1 /* Ignore */, a1: $c}))($3.a1);
|
|
10137
|
-
const $f = Prelude_Types_traverse_Traversable_List(csegen_9(), $14 => Commands_x3cx7cx7cx3e(
|
|
10242
|
+
const $f = Prelude_Types_traverse_Traversable_List(csegen_9(), $14 => Commands_x3cx7cx7cx3e(csegen_601(), $19 => Commands_n__8542_2508_parseSkipArg($0, $19), $1e => Commands_n__8542_2507_parseCheckoutFlag($0, $1e), $14), $3.a2);
|
|
10138
10243
|
return Data_Either_maybeToEither(() => Commands_contributeUsageError(), csegen_60()($2c => Prelude_Types_List_tailRecAppend($7, $2c))($f));
|
|
10139
10244
|
}
|
|
10140
10245
|
}
|
|
@@ -10142,14 +10247,14 @@ function Commands_parseContributeArgs($0) {
|
|
|
10142
10247
|
|
|
10143
10248
|
/* Commands.list : Config => Octokit => String -> Promise () */
|
|
10144
10249
|
function Commands_list($0, $1, $2) {
|
|
10145
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
10250
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_604()(FFI_GitHub_listTeamMembers($1, $0.a2, $2)), teamMemberLogins => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_465(), csegen_605(), Prelude_Types_traverse_Traversable_List(csegen_86(), $1a => Commands_n__7935_1921_forkedUser($1, $2, $0, $1a), teamMemberLogins)), teamMembersJson => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_traverse_Traversable_List(csegen_86(), $28 => $29 => Data_Promise_either(csegen_72(), Data_User_parseUser($28), $29), teamMembersJson), teamMembers => Util_renderIO($0, csegen_94(), Text_PrettyPrint_Prettyprinter_Doc_vsep(csegen_116()($3e => Commands_n__7935_1922_putNameLn($1, $2, $0, $3e))(teamMembers))))));
|
|
10146
10251
|
}
|
|
10147
10252
|
|
|
10148
10253
|
/* Commands.label : Config => Git => Octokit => List String -> Promise () */
|
|
10149
10254
|
function Commands_label($0, $1, $2, $3) {
|
|
10150
10255
|
const $12 = $13 => {
|
|
10151
10256
|
const $15 = csegen_116()($1a => Commands_unslugifyLabel($0.a10, $1a))($3);
|
|
10152
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Label_addLabels($0, $2, $13.a2, $15), allLabels => Util_renderIO($0, csegen_94(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
10257
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Label_addLabels($0, $2, $13.a2, $15), allLabels => Util_renderIO($0, csegen_94(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(csegen_607()('Added'), csegen_506()(Commands_n__7256_1299_putLabels($1, $2, $3, $0, $15))(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_70(), $51 => $51, {a1: csegen_62()('All labels for PR of '), a2: {a1: csegen_62()($13.a2.a7), a2: {a1: csegen_62()(':'), a2: {h: 0}}}})), csegen_506()(Commands_n__7256_1299_putLabels($1, $2, $3, $0, allLabels))(Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('.'), a2: {h: 0}}))), a2: {h: 0}}})));
|
|
10153
10258
|
};
|
|
10154
10259
|
return Data_Promise_x3ex3ex3d_Monad_Promise(Data_Promise_x3ex3ex3d_Monad_Promise(FFI_Git_currentBranch($1), $b => PullRequest_identifyOrCreatePR($0, $1, $2, 0, $b)), $12);
|
|
10155
10260
|
}
|
|
@@ -10208,13 +10313,13 @@ function Commands_contribute($0, $1, $2, $3) {
|
|
|
10208
10313
|
}
|
|
10209
10314
|
};
|
|
10210
10315
|
const $3e = Prelude_Types_List_filterAppend({h: 0}, $41, openPrs);
|
|
10211
|
-
const $48 = Prelude_Types_List_filterAppend({h: 0}, $4c =>
|
|
10316
|
+
const $48 = Prelude_Types_List_filterAppend({h: 0}, $4c => Commands_n__8871_2845_isNotIgnored($1, $2, $3, $0, configx27, $4c), $3e);
|
|
10212
10317
|
const $55 = Data_List_partition($58 => Data_PullRequest_isRequestedReviewer(myLogin, $58), $48);
|
|
10213
|
-
return Commands_case__contribute_3002($1, $2, $3, $0, openPrs, myLogin, $19, configx27, $2b, $38, $3e, $48, $55, Prelude_Interfaces_mapHom({a1: d => b => c => a => $6f => $70 => $71 => ({a1: $6f($71.a1), a2: $70($71.a2)}), a2: b => c => a => $7a => $7b => ({a1: $7a($7b.a1), a2: $7b.a2}), a3: a => d => b => $82 => $83 => ({a1: $83.a1, a2: $82($83.a2)})}, $8a => Data_List_sortBy(
|
|
10318
|
+
return Commands_case__contribute_3002($1, $2, $3, $0, openPrs, myLogin, $19, configx27, $2b, $38, $3e, $48, $55, Prelude_Interfaces_mapHom({a1: d => b => c => a => $6f => $70 => $71 => ({a1: $6f($71.a1), a2: $70($71.a2)}), a2: b => c => a => $7a => $7b => ({a1: $7a($7b.a1), a2: $7b.a2}), a3: a => d => b => $82 => $83 => ({a1: $83.a1, a2: $82($83.a2)})}, $8a => Data_List_sortBy(csegen_622(), $8a), $55));
|
|
10214
10319
|
};
|
|
10215
10320
|
return Data_Promise_x3ex3ex3d_Monad_Promise($1d, $2a);
|
|
10216
10321
|
};
|
|
10217
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
10322
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_618()(FFI_GitHub_getSelf($2)), $18);
|
|
10218
10323
|
};
|
|
10219
10324
|
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequests($2, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $10);
|
|
10220
10325
|
}
|
|
@@ -10233,7 +10338,7 @@ function Commands_branch($0, $1) {
|
|
|
10233
10338
|
/* Commands.assign : Config => Git => Octokit => List String -> {default False _ : Bool} ->
|
|
10234
10339
|
Promise () */
|
|
10235
10340
|
function Commands_assign($0, $1, $2, $3, $4) {
|
|
10236
|
-
return Commands_case__assign_1766($0, $1, $2, $4, $3,
|
|
10341
|
+
return Commands_case__assign_1766($0, $1, $2, $4, $3, Commands_n__7611_1651_partitionedArgs($0, $1, $2, $4, $3));
|
|
10237
10342
|
}
|
|
10238
10343
|
|
|
10239
10344
|
/* Commands.<||> : Alternative t => (a -> t b) -> (a -> t b) -> a -> t b */
|
|
@@ -10243,67 +10348,67 @@ function Commands_x3cx7cx7cx3e($0, $1, $2, $3) {
|
|
|
10243
10348
|
|
|
10244
10349
|
/* User.Reflect.case block in case block in reflectOnSelf */
|
|
10245
10350
|
function User_Reflect_case__casex20blockx20inx20reflectOnSelf_1862($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
10246
|
-
const $b = Prelude_Interfaces_mapHom({a1: d => b => c => a => $f => $10 => $11 => ({a1: $f($11.a1), a2: $10($11.a2)}), a2: b => c => a => $1a => $1b => ({a1: $1a($1b.a1), a2: $1b.a2}), a3: a => d => b => $22 => $23 => ({a1: $23.a1, a2: $22($23.a2)})}, $2a => Data_List_headx27(Data_List_sort({a1: {a1: $31 => $32 => Data_Date_x3dx3d_Eq_Date($31, $32), a2: $37 => $38 => Data_Date_x2fx3d_Eq_Date($37, $38)}, a2: $3d => $3e => Data_Date_compare_Ord_Date($3d, $3e), a3: $43 => $44 => Data_Date_x3c_Ord_Date($43, $44), a4: $49 => $4a => Data_Date_x3e_Ord_Date($49, $4a), a5: $4f => $50 => Data_Date_x3cx3d_Ord_Date($4f, $50), a6: $55 => $56 => Data_Date_x3ex3d_Ord_Date($55, $56), a7: $5b => $5c => Data_Date_max_Ord_Date($5b, $5c), a8: $61 => $62 => Data_Date_min_Ord_Date($61, $62)}, csegen_116()(
|
|
10351
|
+
const $b = Prelude_Interfaces_mapHom({a1: d => b => c => a => $f => $10 => $11 => ({a1: $f($11.a1), a2: $10($11.a2)}), a2: b => c => a => $1a => $1b => ({a1: $1a($1b.a1), a2: $1b.a2}), a3: a => d => b => $22 => $23 => ({a1: $23.a1, a2: $22($23.a2)})}, $2a => Data_List_headx27(Data_List_sort({a1: {a1: $31 => $32 => Data_Date_x3dx3d_Eq_Date($31, $32), a2: $37 => $38 => Data_Date_x2fx3d_Eq_Date($37, $38)}, a2: $3d => $3e => Data_Date_compare_Ord_Date($3d, $3e), a3: $43 => $44 => Data_Date_x3c_Ord_Date($43, $44), a4: $49 => $4a => Data_Date_x3e_Ord_Date($49, $4a), a5: $4f => $50 => Data_Date_x3cx3d_Ord_Date($4f, $50), a6: $55 => $56 => Data_Date_x3ex3d_Ord_Date($55, $56), a7: $5b => $5c => Data_Date_max_Ord_Date($5b, $5c), a8: $61 => $62 => Data_Date_min_Ord_Date($61, $62)}, csegen_116()(csegen_635())($2a))), {a1: $7, a2: $9.a1});
|
|
10247
10352
|
return Util_renderIO($0, csegen_94(), User_Reflect_print(Prelude_Types_String_length(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));
|
|
10248
10353
|
}
|
|
10249
10354
|
|
|
10250
|
-
/* User.Me.
|
|
10251
|
-
function
|
|
10355
|
+
/* User.Me.7213:1979:ul */
|
|
10356
|
+
function User_Me_n__7213_1979_ul($0, $1, $2, $3) {
|
|
10252
10357
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3));
|
|
10253
10358
|
}
|
|
10254
10359
|
|
|
10255
|
-
/* User.Me.
|
|
10256
|
-
function
|
|
10257
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
10360
|
+
/* User.Me.7213:1985:teams */
|
|
10361
|
+
function User_Me_n__7213_1985_teams($0, $1, $2) {
|
|
10362
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: User_Me_n__7213_1979_ul($0, $1, $2, 'GitHub Teams:'), a2: csegen_116()($10 => User_Me_n__7213_1980_it($0, $1, $2, $10))($0)});
|
|
10258
10363
|
}
|
|
10259
10364
|
|
|
10260
|
-
/* User.Me.
|
|
10261
|
-
function
|
|
10262
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
10365
|
+
/* User.Me.7213:1984:login */
|
|
10366
|
+
function User_Me_n__7213_1984_login($0, $1, $2) {
|
|
10367
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(csegen_607()('GitHub Login:'), User_Me_n__7213_1981_green($0, $1, $2, $1.a1));
|
|
10263
10368
|
}
|
|
10264
10369
|
|
|
10265
|
-
/* User.Reflect.
|
|
10266
|
-
function
|
|
10370
|
+
/* User.Reflect.6306:1056:ital */
|
|
10371
|
+
function User_Reflect_n__6306_1056_ital($0, $1) {
|
|
10267
10372
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
10268
10373
|
}
|
|
10269
10374
|
|
|
10270
|
-
/* User.Me.
|
|
10271
|
-
function
|
|
10375
|
+
/* User.Me.7213:1980:it */
|
|
10376
|
+
function User_Me_n__7213_1980_it($0, $1, $2, $3) {
|
|
10272
10377
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3));
|
|
10273
10378
|
}
|
|
10274
10379
|
|
|
10275
|
-
/* User.Me.
|
|
10276
|
-
function
|
|
10380
|
+
/* User.Me.7353:2135:handleUnsetEmail */
|
|
10381
|
+
function User_Me_n__7353_2135_handleUnsetEmail($0, $1, $2, $3) {
|
|
10277
10382
|
switch($3) {
|
|
10278
10383
|
case '': return {h: 0};
|
|
10279
10384
|
default: return {a1: $3};
|
|
10280
10385
|
}
|
|
10281
10386
|
}
|
|
10282
10387
|
|
|
10283
|
-
/* User.Me.
|
|
10284
|
-
function
|
|
10388
|
+
/* User.Me.7213:1981:green */
|
|
10389
|
+
function User_Me_n__7213_1981_green($0, $1, $2, $3) {
|
|
10285
10390
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3));
|
|
10286
10391
|
}
|
|
10287
10392
|
|
|
10288
|
-
/* User.Me.
|
|
10289
|
-
function
|
|
10290
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
10393
|
+
/* User.Me.7213:1983:fullName */
|
|
10394
|
+
function User_Me_n__7213_1983_fullName($0, $1, $2) {
|
|
10395
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(csegen_607()('GitHub Name:'), User_Me_n__7213_1981_green($0, $1, $2, $1.a2));
|
|
10291
10396
|
}
|
|
10292
10397
|
|
|
10293
|
-
/* User.Me.
|
|
10294
|
-
function
|
|
10398
|
+
/* User.Me.7213:1982:email */
|
|
10399
|
+
function User_Me_n__7213_1982_email($0, $1, $2) {
|
|
10295
10400
|
let $8;
|
|
10296
10401
|
switch($2.h) {
|
|
10297
10402
|
case undefined: /* just */ {
|
|
10298
|
-
$8 =
|
|
10403
|
+
$8 = User_Me_n__7213_1981_green($0, $1, $2, $2.a1);
|
|
10299
10404
|
break;
|
|
10300
10405
|
}
|
|
10301
10406
|
case 0: /* nothing */ {
|
|
10302
|
-
$8 =
|
|
10407
|
+
$8 = User_Me_n__7213_1980_it($0, $1, $2, 'Not set');
|
|
10303
10408
|
break;
|
|
10304
10409
|
}
|
|
10305
10410
|
}
|
|
10306
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
10411
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(csegen_607()('Git Email:'), $8);
|
|
10307
10412
|
}
|
|
10308
10413
|
|
|
10309
10414
|
/* User.Reflect.rightTitle : String */
|
|
@@ -10326,21 +10431,21 @@ function User_Reflect_reflectOnSelf($0, $1) {
|
|
|
10326
10431
|
const $a = prs => {
|
|
10327
10432
|
const $12 = myLogin => {
|
|
10328
10433
|
const $2e = reviews => {
|
|
10329
|
-
const $2f = csegen_60()(
|
|
10434
|
+
const $2f = csegen_60()(csegen_642())(Data_List_headx27(Data_List_sortBy($3a => $3b => Prelude_Basics_on(csegen_620(), csegen_642(), $3a, $3b), reviews)));
|
|
10330
10435
|
const $44 = PullRequest_tuple(prs);
|
|
10331
10436
|
const $47 = Prelude_Interfaces_mapHom({a1: d => b => c => a => $4b => $4c => $4d => ({a1: $4b($4d.a1), a2: $4c($4d.a2)}), a2: b => c => a => $56 => $57 => ({a1: $56($57.a1), a2: $57.a2}), a3: a => d => b => $5e => $5f => ({a1: $5f.a1, a2: $5e($5f.a2)})}, $66 => Prelude_Types_List_filterAppend({h: 0}, $6a => Prelude_EqOrd_x3dx3d_Eq_String($6a.a4, myLogin), $66), $44);
|
|
10332
10437
|
return User_Reflect_case__casex20blockx20inx20reflectOnSelf_1862($0, $1, prs, myLogin, reviews, $2f, $44, $47.a1, $47.a2, Prelude_Interfaces_mapHom({a1: d => b => c => a => $7f => $80 => $81 => ({a1: $7f($81.a1), a2: $80($81.a2)}), a2: b => c => a => $8a => $8b => ({a1: $8a($8b.a1), a2: $8b.a2}), a3: a => d => b => $92 => $93 => ({a1: $93.a1, a2: $92($93.a2)})}, $9a => Prelude_Types_List_filterAppend({h: 0}, $9e => Prelude_Types_foldMap_Foldable_List(csegen_136(), $a3 => Prelude_EqOrd_x3dx3d_Eq_String($a3, myLogin), $9e.a6), $9a), $44));
|
|
10333
10438
|
};
|
|
10334
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($22 => $23 => Prelude_Basics_on(
|
|
10439
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($22 => $23 => Prelude_Basics_on(csegen_620(), csegen_635(), $22, $23), PullRequest_combined(prs))))), $2e);
|
|
10335
10440
|
};
|
|
10336
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
10441
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_618()(FFI_GitHub_getSelf($1)), $12);
|
|
10337
10442
|
};
|
|
10338
10443
|
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_listPartitionedPRs($0, $1, 4n, User_Reflect_prCount()), $a);
|
|
10339
10444
|
}
|
|
10340
10445
|
|
|
10341
10446
|
/* User.Me.printInfoOnSelf : Config => Octokit => Git => Promise () */
|
|
10342
10447
|
function User_Me_printInfoOnSelf($0, $1, $2) {
|
|
10343
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($9 =>
|
|
10448
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($9 => User_Me_n__7353_2135_handleUnsetEmail($0, $1, $2, $9))(FFI_Git_userEmail($2)), gitEmail => Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_getSelf($1), githubUser => Data_Promise_x3ex3ex3d_Monad_Promise(csegen_604()(FFI_GitHub_listMyTeams($1)), githubTeams => Util_renderIO($0, csegen_94(), User_Me_print(gitEmail, githubUser, githubTeams)))));
|
|
10344
10449
|
}
|
|
10345
10450
|
|
|
10346
10451
|
/* User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
@@ -10350,7 +10455,7 @@ function User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
10350
10455
|
|
|
10351
10456
|
/* User.Me.print : Maybe String -> User -> List String -> Doc AnsiStyle */
|
|
10352
10457
|
function User_Me_print($0, $1, $2) {
|
|
10353
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
10458
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: User_Me_n__7213_1982_email($2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: User_Me_n__7213_1983_fullName($2, $1, $0), a2: {a1: User_Me_n__7213_1984_login($2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: User_Me_n__7213_1985_teams($2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}}}}});
|
|
10354
10459
|
}
|
|
10355
10460
|
|
|
10356
10461
|
/* User.Reflect.prCount : Fin 101 */
|
|
@@ -10370,7 +10475,7 @@ const User_Reflect_intro = __lazy(function () {
|
|
|
10370
10475
|
|
|
10371
10476
|
/* User.Reflect.header : Nat -> Doc AnsiStyle */
|
|
10372
10477
|
function User_Reflect_header($0) {
|
|
10373
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1:
|
|
10478
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Number(_truncBigInt32($0)), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: User_Reflect_n__6306_1056_ital($0, User_Reflect_leftTitle()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()(' ')), a2: {a1: User_Reflect_n__6306_1056_ital($0, User_Reflect_rightTitle()), a2: {h: 0}}}}));
|
|
10374
10479
|
}
|
|
10375
10480
|
|
|
10376
10481
|
/* User.Reflect.graph : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
@@ -10388,7 +10493,7 @@ function User_Reflect_graph($0, $1, $2, $3, $4, $5) {
|
|
|
10388
10493
|
|
|
10389
10494
|
/* User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
|
|
10390
10495
|
function User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10391
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(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(csegen_62()('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(csegen_62()('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:
|
|
10496
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(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(csegen_62()('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(csegen_62()('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: csegen_657(), 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: csegen_661()($8), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: csegen_663(), 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(csegen_62()('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: csegen_60()(date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('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(csegen_62()('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: csegen_657(), 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: csegen_661()($7), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: csegen_663(), 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_70(), $da => $da, {a1: '*review count (not PR count) of most recent ', a2: {a1: Data_Fin_show_Show_x28Finx20x24nx29(User_Reflect_reviewDetailsCount()), a2: {a1: ' PRs.', a2: {h: 0}}}}))), a2: {h: 0}}}}}}}}}});
|
|
10392
10497
|
}
|
|
10393
10498
|
|
|
10394
10499
|
/* User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
|
|
@@ -10438,43 +10543,43 @@ function PullRequest_with__listOpenPRs_1375($0, $1, $2, $3, $4) {
|
|
|
10438
10543
|
}
|
|
10439
10544
|
}
|
|
10440
10545
|
|
|
10441
|
-
/* PullRequest.case block in identifyOrCreatePR,createPR */
|
|
10442
|
-
function
|
|
10443
|
-
switch($
|
|
10444
|
-
case undefined: /* cons */ return ($
|
|
10546
|
+
/* PullRequest.case block in case block in case block in identifyOrCreatePR,createPR */
|
|
10547
|
+
function PullRequest_case__casex20blockx20inx20casex20blockx20inx20identifyOrCreatePRx2ccreatePR_3188($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
10548
|
+
switch($8.h) {
|
|
10549
|
+
case undefined: /* cons */ return ($8.a1+$8.a2);
|
|
10445
10550
|
default: return $4.a5;
|
|
10446
10551
|
}
|
|
10447
10552
|
}
|
|
10448
10553
|
|
|
10449
|
-
/* PullRequest.
|
|
10450
|
-
function
|
|
10554
|
+
/* PullRequest.8348:1961:userNotice */
|
|
10555
|
+
function PullRequest_n__8348_1961_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
10451
10556
|
switch($6.h) {
|
|
10452
10557
|
case 0: /* nothing */ {
|
|
10453
10558
|
switch($2.h) {
|
|
10454
10559
|
case 0: /* nil */ return 'no users';
|
|
10455
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_70(), $d => $d, {a1: csegen_62()(
|
|
10560
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_70(), $d => $d, {a1: csegen_62()(PullRequest_n__8348_1960_csv($0, $1, $2, $3, $4, $5, $2)), a2: {h: 0}});
|
|
10456
10561
|
}
|
|
10457
10562
|
}
|
|
10458
|
-
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_70(), $20 => $20, {a1:
|
|
10563
|
+
case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_70(), $20 => $20, {a1: PullRequest_n__8348_1960_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: $2}), a2: {h: 0}});
|
|
10459
10564
|
}
|
|
10460
10565
|
}
|
|
10461
10566
|
|
|
10462
|
-
/* PullRequest.
|
|
10463
|
-
function
|
|
10567
|
+
/* PullRequest.8348:1962:teamNotice */
|
|
10568
|
+
function PullRequest_n__8348_1962_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
10464
10569
|
switch($6.h) {
|
|
10465
10570
|
case 0: /* nil */ return '';
|
|
10466
10571
|
case undefined: /* cons */ {
|
|
10467
10572
|
switch($6.a2.h) {
|
|
10468
|
-
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_70(), $d => $d, {a1: ' and team ', a2: {a1:
|
|
10469
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_70(), $21 => $21, {a1: ' and teams ', a2: {a1:
|
|
10573
|
+
case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_70(), $d => $d, {a1: ' and team ', a2: {a1: PullRequest_n__8348_1960_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: {h: 0}}), a2: {h: 0}}});
|
|
10574
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_70(), $21 => $21, {a1: ' and teams ', a2: {a1: PullRequest_n__8348_1960_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
10470
10575
|
}
|
|
10471
10576
|
}
|
|
10472
|
-
default: return Prelude_Types_foldMap_Foldable_List(csegen_70(), $33 => $33, {a1: ' and teams ', a2: {a1:
|
|
10577
|
+
default: return Prelude_Types_foldMap_Foldable_List(csegen_70(), $33 => $33, {a1: ' and teams ', a2: {a1: PullRequest_n__8348_1960_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
10473
10578
|
}
|
|
10474
10579
|
}
|
|
10475
10580
|
|
|
10476
|
-
/* PullRequest.
|
|
10477
|
-
function
|
|
10581
|
+
/* PullRequest.9038:2623:prepareDescriptionFile */
|
|
10582
|
+
function PullRequest_n__9038_2623_prepareDescriptionFile($0, $1, $2, $3, $4, $5, $6) {
|
|
10478
10583
|
const $13 = $14 => {
|
|
10479
10584
|
const $1a = () => {
|
|
10480
10585
|
const $1d = $5.a1.a1.a1;
|
|
@@ -10487,13 +10592,13 @@ function PullRequest_n__9018_2623_prepareDescriptionFile($0, $1, $2, $3, $4, $5,
|
|
|
10487
10592
|
return $5.a1.a2(undefined)(undefined)(System_File_Meta_exists($5, $6))($13);
|
|
10488
10593
|
}
|
|
10489
10594
|
|
|
10490
|
-
/* PullRequest.
|
|
10491
|
-
function
|
|
10595
|
+
/* PullRequest.8348:1963:prComment */
|
|
10596
|
+
function PullRequest_n__8348_1963_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
10492
10597
|
return Prelude_Types_foldMap_Foldable_List(csegen_70(), $b => $b, {a1: ':musical_note: Harmoniously assigned @', a2: {a1: $6, a2: {a1: ' to review this PR.', a2: {h: 0}}}});
|
|
10493
10598
|
}
|
|
10494
10599
|
|
|
10495
|
-
/* PullRequest.
|
|
10496
|
-
function
|
|
10600
|
+
/* PullRequest.9038:2622:inlineDescription */
|
|
10601
|
+
function PullRequest_n__9038_2622_inlineDescription($0, $1, $2, $3, $4, $5) {
|
|
10497
10602
|
const $18 = $19 => {
|
|
10498
10603
|
const $1c = $5.a1.a1.a1;
|
|
10499
10604
|
const $1b = $20 => $21 => $1c(undefined)(undefined)($20)($21);
|
|
@@ -10503,13 +10608,13 @@ function PullRequest_n__9018_2622_inlineDescription($0, $1, $2, $3, $4, $5) {
|
|
|
10503
10608
|
return $5.a1.a2(undefined)(undefined)($5.a2(undefined)($14 => Prelude_IO_prim__putStr('What would you like the description to be (two blank lines to finish)?\n', $14)))($18);
|
|
10504
10609
|
}
|
|
10505
10610
|
|
|
10506
|
-
/* PullRequest.
|
|
10507
|
-
function
|
|
10611
|
+
/* PullRequest.8123:1704:forkedReviews */
|
|
10612
|
+
function PullRequest_n__8123_1704_forkedReviews($0, $1, $2, $3) {
|
|
10508
10613
|
return FFI_Concurrency_fork(csegen_94(), ('reviews --json '+Prelude_Show_show_Show_Integer($3.a1)));
|
|
10509
10614
|
}
|
|
10510
10615
|
|
|
10511
|
-
/* PullRequest.
|
|
10512
|
-
function
|
|
10616
|
+
/* PullRequest.7556:1169:filterString */
|
|
10617
|
+
function PullRequest_n__7556_1169_filterString($0, $1, $2, $3, $4) {
|
|
10513
10618
|
switch($4.h) {
|
|
10514
10619
|
case 0: /* nothing */ return 'none';
|
|
10515
10620
|
case undefined: /* just */ {
|
|
@@ -10521,8 +10626,8 @@ function PullRequest_n__7536_1169_filterString($0, $1, $2, $3, $4) {
|
|
|
10521
10626
|
}
|
|
10522
10627
|
}
|
|
10523
10628
|
|
|
10524
|
-
/* PullRequest.
|
|
10525
|
-
function
|
|
10629
|
+
/* PullRequest.9038:2624:editorDescription */
|
|
10630
|
+
function PullRequest_n__9038_2624_editorDescription($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
10526
10631
|
const $19 = $1a => {
|
|
10527
10632
|
const $31 = $32 => {
|
|
10528
10633
|
switch($32) {
|
|
@@ -10533,73 +10638,121 @@ function PullRequest_n__9018_2624_editorDescription($0, $1, $2, $3, $4, $5, $6,
|
|
|
10533
10638
|
const $62 = $5.a1.a1.a1;
|
|
10534
10639
|
const $61 = $66 => $67 => $62(undefined)(undefined)($66)($67);
|
|
10535
10640
|
const $60 = $61($71 => (undefined));
|
|
10536
|
-
return $60(System_File_ReadWrite_removeFile($5,
|
|
10641
|
+
return $60(System_File_ReadWrite_removeFile($5, csegen_686()));
|
|
10537
10642
|
};
|
|
10538
10643
|
return Prelude_Interfaces_when($5.a1.a1, $59, $5f);
|
|
10539
10644
|
};
|
|
10540
|
-
const $4a = $5.a1.a2(undefined)(undefined)(System_File_Meta_exists($5,
|
|
10645
|
+
const $4a = $5.a1.a2(undefined)(undefined)(System_File_Meta_exists($5, csegen_686()))($58);
|
|
10541
10646
|
const $44 = $5.a1.a2(undefined)(undefined)($4a);
|
|
10542
10647
|
return $44($78 => $5.a1.a1.a2(undefined)(description));
|
|
10543
10648
|
};
|
|
10544
|
-
return $5.a1.a2(undefined)(undefined)(System_File_ReadWrite_readFile($5,
|
|
10649
|
+
return $5.a1.a2(undefined)(undefined)(System_File_ReadWrite_readFile($5, csegen_686()))($41);
|
|
10545
10650
|
}
|
|
10546
10651
|
default: return $5.a1.a1.a2(undefined)({h: 0 /* Left */, a1: {h: 0 /* GenericFileError */, a1: $32}});
|
|
10547
10652
|
}
|
|
10548
10653
|
};
|
|
10549
10654
|
return $5.a1.a2(undefined)(undefined)(System_system($5, Prelude_Types_foldMap_Foldable_List(csegen_70(), $2b => $2b, {a1: $6, a2: {a1: ' pr_description.tmp.md', a2: {h: 0}}})))($31);
|
|
10550
10655
|
};
|
|
10551
|
-
return $5.a1.a2(undefined)(undefined)(
|
|
10552
|
-
}
|
|
10553
|
-
|
|
10554
|
-
/* PullRequest.
|
|
10555
|
-
function
|
|
10556
|
-
return Util_renderString($5, Text_PrettyPrint_Prettyprinter_Doc_encloseSep(Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(),
|
|
10557
|
-
}
|
|
10558
|
-
|
|
10559
|
-
/* PullRequest.
|
|
10560
|
-
function
|
|
10561
|
-
const $
|
|
10562
|
-
const $
|
|
10563
|
-
|
|
10564
|
-
|
|
10565
|
-
const $
|
|
10566
|
-
|
|
10567
|
-
|
|
10568
|
-
|
|
10569
|
-
|
|
10570
|
-
|
|
10571
|
-
|
|
10572
|
-
|
|
10573
|
-
|
|
10574
|
-
|
|
10575
|
-
|
|
10576
|
-
|
|
10577
|
-
|
|
10578
|
-
|
|
10579
|
-
|
|
10580
|
-
$
|
|
10581
|
-
|
|
10582
|
-
|
|
10583
|
-
|
|
10584
|
-
|
|
10656
|
+
return $5.a1.a2(undefined)(undefined)(PullRequest_n__9038_2623_prepareDescriptionFile($0, $1, $2, $3, $4, $5, $7))($19);
|
|
10657
|
+
}
|
|
10658
|
+
|
|
10659
|
+
/* PullRequest.8348:1960:csv */
|
|
10660
|
+
function PullRequest_n__8348_1960_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
10661
|
+
return Util_renderString($5, Text_PrettyPrint_Prettyprinter_Doc_encloseSep(Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), csegen_591(), csegen_116()(csegen_398())($6)));
|
|
10662
|
+
}
|
|
10663
|
+
|
|
10664
|
+
/* PullRequest.9038:2627:createPR */
|
|
10665
|
+
function PullRequest_n__9038_2627_createPR($0, $1, $2, $3, $4) {
|
|
10666
|
+
const $2a = $2b => {
|
|
10667
|
+
const $34 = $35 => {
|
|
10668
|
+
switch($35) {
|
|
10669
|
+
case 1: {
|
|
10670
|
+
const $3f = $40 => {
|
|
10671
|
+
switch($40) {
|
|
10672
|
+
case 1: {
|
|
10673
|
+
const $48 = $49 => {
|
|
10674
|
+
switch($49.h) {
|
|
10675
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($4d => $4e => $4f => Data_Promise_liftIO_HasIO_Promise($52 => Prelude_IO_prim__putStr((csegen_62()('The following commits have not been pushed:\n')+'\n'), $52), $4d, $4e, $4f), $5f => Data_Promise_x3ex3ex3d_Monad_Promise($62 => $63 => $64 => Data_Promise_liftIO_HasIO_Promise($67 => Prelude_IO_prim__putStr(($49.a1+'\n'), $67), $62, $63, $64), $71 => Data_Promise_x3ex3ex3d_Monad_Promise($74 => $75 => $76 => Data_Promise_liftIO_HasIO_Promise($79 => Prelude_IO_prim__putStr('\n\n', $79), $74, $75, $76), $81 => Data_Promise_x3ex3ex3d_Monad_Promise(Util_yesNoPrompt(csegen_94(), csegen_62()('Would you like to push these changes before creating a PR?')), pushUnpushedChanges => Prelude_Interfaces_when(csegen_86(), pushUnpushedChanges, () => FFI_Git_push($0))))));
|
|
10676
|
+
case 0: /* nothing */ return csegen_68();
|
|
10677
|
+
}
|
|
10678
|
+
};
|
|
10679
|
+
const $43 = Data_Promise_x3ex3ex3d_Monad_Promise(FFI_Git_unpushedCommits($0), $48);
|
|
10680
|
+
const $94 = $95 => {
|
|
10681
|
+
const $bb = $bc => {
|
|
10682
|
+
const $e3 = $e4 => {
|
|
10683
|
+
const $f0 = baseBranchInput => {
|
|
10684
|
+
const $f1 = PullRequest_case__casex20blockx20inx20casex20blockx20inx20identifyOrCreatePRx2ccreatePR_3188($0, $1, $2, $3, $4, 1, 1, baseBranchInput, Data_String_strM(baseBranchInput));
|
|
10685
|
+
const $111 = $112 => {
|
|
10686
|
+
const $114 = Data_Maybe_fromMaybe(() => csegen_112(), csegen_60()($11d => ($11d+' - '))(Util_parseJiraPrefix($2)));
|
|
10687
|
+
const $113 = () => {
|
|
10688
|
+
const $131 = $132 => {
|
|
10689
|
+
const $140 = title => {
|
|
10690
|
+
const $149 = templateFilePath => {
|
|
10691
|
+
const $14c = Data_Config_rf__editor($4);
|
|
10692
|
+
let $14b;
|
|
10693
|
+
switch($14c.h) {
|
|
10694
|
+
case 0: /* nothing */ {
|
|
10695
|
+
$14b = PullRequest_n__9038_2622_inlineDescription($0, $1, $2, $3, $4, csegen_94());
|
|
10696
|
+
break;
|
|
10697
|
+
}
|
|
10698
|
+
case undefined: /* just */ {
|
|
10699
|
+
$14b = csegen_55()($15b => Prelude_Types_either(() => $15e => '', () => $160 => $160, $15b))(PullRequest_n__9038_2624_editorDescription($0, $1, $2, $3, $4, csegen_94(), $14c.a1, templateFilePath));
|
|
10700
|
+
break;
|
|
10701
|
+
}
|
|
10702
|
+
}
|
|
10703
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($14b, description => Data_Promise_x3ex3ex3d_Monad_Promise($170 => $171 => $172 => Data_Promise_liftIO_HasIO_Promise($175 => Prelude_IO_prim__putStr((csegen_62()('Creating PR...')+'\n'), $175), $170, $171, $172), $182 => Data_Promise_x3ex3ex3d_Monad_Promise($185 => $186 => $187 => Data_Promise_liftIO_HasIO_Promise($18a => Prelude_IO_prim__putStr(($2+'\n'), $18a), $185, $186, $187), $194 => FFI_GitHub_createPR($1, $3, $4.a2, $4.a3, $2, $f1, title, description))));
|
|
10704
|
+
};
|
|
10705
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Util_relativeToRoot($0, csegen_62()('.github/PULL_REQUEST_TEMPLATE.md')), $149);
|
|
10706
|
+
};
|
|
10707
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($139 => ($114+Data_String_trim($139)))(csegen_543()), $140);
|
|
10708
|
+
};
|
|
10709
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($125 => $126 => $127 => Data_Promise_liftIO_HasIO_Promise($12a => Prelude_IO_prim__putStr($114, $12a), $125, $126, $127), $131);
|
|
10710
|
+
};
|
|
10711
|
+
return $113();
|
|
10712
|
+
};
|
|
10713
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($100 => $101 => $102 => Data_Promise_liftIO_HasIO_Promise($105 => Prelude_IO_prim__putStr((csegen_62()('What would you like the title to be?')+'\n'), $105), $100, $101, $102), $111);
|
|
10714
|
+
};
|
|
10715
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_55()($eb => Data_String_trim($eb))(csegen_543()), $f0);
|
|
10716
|
+
};
|
|
10717
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($bf => $c0 => $c1 => Data_Promise_liftIO_HasIO_Promise($c4 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_70(), $cc => $cc, {a1: csegen_62()('What branch are you merging into (ENTER for default: '), a2: {a1: csegen_62()($4.a5), a2: {a1: csegen_62()(')?'), a2: {h: 0}}}})+'\n'), $c4), $bf, $c0, $c1), $e3);
|
|
10585
10718
|
};
|
|
10586
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
10719
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($98 => $99 => $9a => Data_Promise_liftIO_HasIO_Promise($9d => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_70(), $a5 => $a5, {a1: csegen_62()('Creating a new PR for the current branch ('), a2: {a1: csegen_62()($2), a2: {a1: csegen_62()(').'), a2: {h: 0}}}})+'\n'), $9d), $98, $99, $9a), $bb);
|
|
10587
10720
|
};
|
|
10588
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
10589
|
-
}
|
|
10590
|
-
|
|
10591
|
-
}
|
|
10592
|
-
return $95();
|
|
10721
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($43, $94);
|
|
10722
|
+
}
|
|
10723
|
+
case 0: return csegen_716();
|
|
10724
|
+
}
|
|
10593
10725
|
};
|
|
10594
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
10595
|
-
}
|
|
10596
|
-
|
|
10597
|
-
}
|
|
10598
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($51 => $52 => $53 => Data_Promise_liftIO_HasIO_Promise($56 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_70(), $5e => $5e, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $4.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $56), $51, $52, $53), $6c);
|
|
10726
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_n__9038_2626_continueGivenStagedChanges($0, $1, $2, $3, $4), $3f);
|
|
10727
|
+
}
|
|
10728
|
+
case 0: return csegen_716();
|
|
10729
|
+
}
|
|
10599
10730
|
};
|
|
10600
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
10731
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_n__9038_2625_continueGivenUncommittedChanges($0, $1, $2, $3, $4), $34);
|
|
10732
|
+
};
|
|
10733
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Data_Promise_x3ex3ex3d_Monad_Promise(FFI_Git_remoteTrackingBranch($0), $c => Util_whenNothing(csegen_86(), $c, Data_Promise_x3ex3ex3d_Monad_Promise($14 => $15 => $16 => Data_Promise_liftIO_HasIO_Promise($19 => Prelude_IO_prim__putStr('Creating a new remote branch...\n', $19), $14, $15, $16), $21 => FFI_Git_pushNewBranch($0, Data_Maybe_fromMaybe(() => 'origin', $4.a4), $2)))), $2a);
|
|
10734
|
+
}
|
|
10735
|
+
|
|
10736
|
+
/* PullRequest.9038:2625:continueGivenUncommittedChanges */
|
|
10737
|
+
function PullRequest_n__9038_2625_continueGivenUncommittedChanges($0, $1, $2, $3, $4) {
|
|
10738
|
+
const $9 = $a => {
|
|
10739
|
+
switch($a.h) {
|
|
10740
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($e => $f => $10 => Data_Promise_liftIO_HasIO_Promise($13 => Prelude_IO_prim__putStr((csegen_62()('The following files have uncommitted changes:')+'\n'), $13), $e, $f, $10), $20 => Data_Promise_x3ex3ex3d_Monad_Promise($23 => $24 => $25 => Data_Promise_liftIO_HasIO_Promise($28 => Prelude_IO_prim__putStr(($a.a1+'\n'), $28), $23, $24, $25), csegen_722()));
|
|
10741
|
+
case 0: /* nothing */ return csegen_723();
|
|
10742
|
+
}
|
|
10743
|
+
};
|
|
10744
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_Git_uncommittedChanges($0), $9);
|
|
10745
|
+
}
|
|
10746
|
+
|
|
10747
|
+
/* PullRequest.9038:2626:continueGivenStagedChanges */
|
|
10748
|
+
function PullRequest_n__9038_2626_continueGivenStagedChanges($0, $1, $2, $3, $4) {
|
|
10749
|
+
const $9 = $a => {
|
|
10750
|
+
switch($a.h) {
|
|
10751
|
+
case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($e => $f => $10 => Data_Promise_liftIO_HasIO_Promise($13 => Prelude_IO_prim__putStr((csegen_62()('The following files have staged but uncommitted changes:')+'\n'), $13), $e, $f, $10), $20 => Data_Promise_x3ex3ex3d_Monad_Promise($23 => $24 => $25 => Data_Promise_liftIO_HasIO_Promise($28 => Prelude_IO_prim__putStr(($a.a1+'\n'), $28), $23, $24, $25), csegen_722()));
|
|
10752
|
+
case 0: /* nothing */ return csegen_723();
|
|
10753
|
+
}
|
|
10601
10754
|
};
|
|
10602
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
10755
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_Git_stagedChanges($0), $9);
|
|
10603
10756
|
}
|
|
10604
10757
|
|
|
10605
10758
|
/* PullRequest.(.allReviewers) : PRHistory -> (List String, List String) */
|
|
@@ -10639,7 +10792,7 @@ function PullRequest_reviewsForPrs($0, $1, $2) {
|
|
|
10639
10792
|
};
|
|
10640
10793
|
return Data_Promise_x3ex3ex3d_Monad_Promise($18, reviews => $3f => $40 => Data_Promise_pure_Applicative_Promise(Prelude_Types_join_Monad_List(reviews), $3f, $40));
|
|
10641
10794
|
};
|
|
10642
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_465(),
|
|
10795
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_465(), csegen_605(), Prelude_Types_traverse_Traversable_List(csegen_86(), $f => PullRequest_n__8123_1704_forkedReviews($0, $1, $2, $f), $2)), $16);
|
|
10643
10796
|
}
|
|
10644
10797
|
|
|
10645
10798
|
/* PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise (List Review) */
|
|
@@ -10722,7 +10875,7 @@ function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5) {
|
|
|
10722
10875
|
const $5a = $5b => {
|
|
10723
10876
|
const $61 = () => {
|
|
10724
10877
|
switch(chosenUser.h) {
|
|
10725
|
-
case undefined: /* just */ return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
10878
|
+
case undefined: /* just */ return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, PullRequest_n__8348_1963_prComment($1, $5, $4, $3, $2, $0, chosenUser.a1));
|
|
10726
10879
|
case 0: /* nothing */ return csegen_68();
|
|
10727
10880
|
}
|
|
10728
10881
|
};
|
|
@@ -10746,11 +10899,11 @@ function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5) {
|
|
|
10746
10899
|
let $77;
|
|
10747
10900
|
switch($78) {
|
|
10748
10901
|
case 1: {
|
|
10749
|
-
$77 = () => $7d => $7e => $7f => Data_Promise_liftIO_HasIO_Promise($82 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('Could not pick a user from the given Team '))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('(perhaps the only option was the author of the pull request?).')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_70(), $a5 => $a5, {a1: 'Assigned ', a2: {a1:
|
|
10902
|
+
$77 = () => $7d => $7e => $7f => Data_Promise_liftIO_HasIO_Promise($82 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('Could not pick a user from the given Team '))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('(perhaps the only option was the author of the pull request?).')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_70(), $a5 => $a5, {a1: 'Assigned ', a2: {a1: PullRequest_n__8348_1962_teamNotice($1, $5, $4, $3, $2, $0, $40), a2: {a1: ' to the open PR ', a2: {h: 0}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_70(), $bd => $bd, {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}}}}))+'\n'), $82), $7d, $7e, $7f);
|
|
10750
10903
|
break;
|
|
10751
10904
|
}
|
|
10752
10905
|
case 0: {
|
|
10753
|
-
$77 = () => $ce => $cf => $d0 => Data_Promise_liftIO_HasIO_Promise($d3 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_70(), $e3 => $e3, {a1: 'Assigned ', a2: {a1:
|
|
10906
|
+
$77 = () => $ce => $cf => $d0 => Data_Promise_liftIO_HasIO_Promise($d3 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_70(), $e3 => $e3, {a1: 'Assigned ', a2: {a1: PullRequest_n__8348_1961_userNotice($1, $5, $4, $3, $2, $0, chosenUser), a2: {a1: PullRequest_n__8348_1962_teamNotice($1, $5, $4, $3, $2, $0, $40), a2: {a1: ' to the open PR ', a2: {h: 0}}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_70(), $105 => $105, {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}}))+'\n'), $d3), $ce, $cf, $d0);
|
|
10754
10907
|
break;
|
|
10755
10908
|
}
|
|
10756
10909
|
}
|
|
@@ -10853,11 +11006,11 @@ function PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4) {
|
|
|
10853
11006
|
const $13 = Prelude_Interfaces_when(csegen_86(), $17, () => $1c => $1d => Data_Promise_reject(csegen_62()('There is already a PR for the current branch and Harmony does not currently support converting existing PRs to drafts.'), $1c, $1d));
|
|
10854
11007
|
return Data_Promise_x3ex3ex3d_Monad_Promise($13, $26 => $27 => $28 => Data_Promise_pure_Applicative_Promise({a1: 0, a2: $f.a1}, $27, $28));
|
|
10855
11008
|
}
|
|
10856
|
-
default: return
|
|
11009
|
+
default: return csegen_766();
|
|
10857
11010
|
}
|
|
10858
11011
|
}
|
|
10859
|
-
case 0: /* nil */ return csegen_55()($34 => ({a1: 1, a2: $34}))(
|
|
10860
|
-
default: return
|
|
11012
|
+
case 0: /* nil */ return csegen_55()($34 => ({a1: 1, a2: $34}))(PullRequest_n__9038_2627_createPR($1, $2, $4, $3, $0));
|
|
11013
|
+
default: return csegen_766();
|
|
10861
11014
|
}
|
|
10862
11015
|
};
|
|
10863
11016
|
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPRsForBranch($2, $0.a2, $0.a3, $4), $e);
|
|
@@ -10865,7 +11018,7 @@ function PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4) {
|
|
|
10865
11018
|
|
|
10866
11019
|
/* PullRequest.forkedPRs : Maybe GitHubPRState -> Nat -> Nat -> Nat -> () -> Promise Future */
|
|
10867
11020
|
function PullRequest_forkedPRs($0, $1, $2, $3, $4) {
|
|
10868
|
-
return FFI_Concurrency_fork(csegen_94(), Prelude_Types_foldMap_Foldable_List(csegen_70(), $d => $d, {a1: 'pulls --json ', a2: {a1:
|
|
11021
|
+
return FFI_Concurrency_fork(csegen_94(), Prelude_Types_foldMap_Foldable_List(csegen_70(), $d => $d, {a1: 'pulls --json ', a2: {a1: PullRequest_n__7556_1169_filterString($3, $4, $2, $1, $0), a2: {a1: ' ', a2: {a1: Prelude_Show_show_Show_Nat($1), a2: {a1: ' ', a2: {a1: Prelude_Show_show_Show_Nat($2), a2: {h: 0}}}}}}}));
|
|
10869
11022
|
}
|
|
10870
11023
|
|
|
10871
11024
|
/* PullRequest.empty : PRHistory */
|
|
@@ -11432,7 +11585,7 @@ function Graph_n__6229_2263_header($0, $1, $2, $3, $4, $5) {
|
|
|
11432
11585
|
break;
|
|
11433
11586
|
}
|
|
11434
11587
|
}
|
|
11435
|
-
const $3d = {a1: $3e, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Graph_n__6229_2261_redDot($0, $1, $2, $3, $4, $5), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('overlayed on')), Graph_n__6229_2260_yellowDot($0, $1, $2, $3, $4, $5))))}, a2:
|
|
11588
|
+
const $3d = {a1: $3e, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Graph_n__6229_2261_redDot($0, $1, $2, $3, $4, $5), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('overlayed on')), Graph_n__6229_2260_yellowDot($0, $1, $2, $3, $4, $5))))}, a2: csegen_799()}};
|
|
11436
11589
|
const $29 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('1x the number of closed PRs with unanswered review requests')), Text_PrettyPrint_Prettyprinter_Symbols_parens(Graph_n__6229_2261_redDot($0, $1, $2, $3, $4, $5)))}, a2: $3d};
|
|
11437
11590
|
const $15 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('4x the number of open review requests')), Text_PrettyPrint_Prettyprinter_Symbols_parens(Graph_n__6229_2260_yellowDot($0, $1, $2, $3, $4, $5)))}, a2: $29};
|
|
11438
11591
|
const $d = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(csegen_62()('Weighted review workload.'))}, a2: $15};
|
|
@@ -11443,7 +11596,7 @@ function Graph_n__6229_2263_header($0, $1, $2, $3, $4, $5) {
|
|
|
11443
11596
|
|
|
11444
11597
|
/* Graph.5908:1932:header */
|
|
11445
11598
|
function Graph_n__5908_1932_header($0) {
|
|
11446
|
-
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(csegen_62()('Open Pull Requests grouped by month craetaed.'))}, a2:
|
|
11599
|
+
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(csegen_62()('Open Pull Requests grouped by month craetaed.'))}, a2: csegen_799()}}));
|
|
11447
11600
|
}
|
|
11448
11601
|
|
|
11449
11602
|
/* Graph.6229:2262:greenBox */
|
|
@@ -11588,9 +11741,9 @@ function Graph_reviewsGraph($0, $1, $2, $3, $4, $5) {
|
|
|
11588
11741
|
|
|
11589
11742
|
/* Graph.healthGraph : List PullRequest -> Doc AnsiStyle */
|
|
11590
11743
|
function Graph_healthGraph($0) {
|
|
11591
|
-
const $1 = Data_List_groupBy($4 => $5 => Prelude_Basics_on($8 => $9 => Prelude_Basics_on($c => $d => (($c===$d)?1:0), $11 => $11.a2, $8, $9),
|
|
11744
|
+
const $1 = Data_List_groupBy($4 => $5 => Prelude_Basics_on($8 => $9 => Prelude_Basics_on($c => $d => (($c===$d)?1:0), $11 => $11.a2, $8, $9), csegen_621(), $4, $5), Data_List_sortBy(csegen_622(), $0));
|
|
11592
11745
|
const $1e = Prelude_Types_foldr_Foldable_List(xs => m => Prelude_Types_max_Ord_Nat(Data_List1_length(xs), m), 1n, $1);
|
|
11593
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Graph_n__5908_1932_header($0), a2: {a1: Graph_graph({a1: $32 => Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29(
|
|
11746
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Graph_n__5908_1932_header($0), a2: {a1: Graph_graph({a1: $32 => Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_820(), $32), a2: $38 => Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_820(), $38), a3: $3e => Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_820(), $3e), a4: $44 => Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_820(), $44), a5: $4a => Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_820(), $4a)}, $1e, Graph_n__5908_1930_unfoldGraph($0, Data_Fuel_limit(48n), $1, {h: 0})), a2: {h: 0}}});
|
|
11594
11747
|
}
|
|
11595
11748
|
|
|
11596
11749
|
/* Graph.graphOne : Graphable g => Nat -> g -> Doc AnsiStyle */
|
|
@@ -11670,7 +11823,7 @@ function BashCompletion_n__4557_8472_slugsOrLoginsOrLabels($0, $1, $2) {
|
|
|
11670
11823
|
case 1: return csegen_116()($b => ('+'+$b))($2.a11);
|
|
11671
11824
|
case 0: {
|
|
11672
11825
|
switch(BashCompletion_isHashPrefix($1)) {
|
|
11673
|
-
case 1: return
|
|
11826
|
+
case 1: return csegen_835()($2.a10);
|
|
11674
11827
|
case 0: return $2.a9;
|
|
11675
11828
|
}
|
|
11676
11829
|
}
|
|
@@ -11723,8 +11876,8 @@ function BashCompletion_opts($0, $1, $2, $3) {
|
|
|
11723
11876
|
}
|
|
11724
11877
|
case 'label': {
|
|
11725
11878
|
switch($2) {
|
|
11726
|
-
case '--': return
|
|
11727
|
-
default: return Prelude_Types_List_filterAppend({h: 0}, $24 => Data_String_isPrefixOf($2, $24),
|
|
11879
|
+
case '--': return csegen_837()($0.a10);
|
|
11880
|
+
default: return Prelude_Types_List_filterAppend({h: 0}, $24 => Data_String_isPrefixOf($2, $24), csegen_837()($0.a10));
|
|
11728
11881
|
}
|
|
11729
11882
|
}
|
|
11730
11883
|
case 'list': {
|
|
@@ -11765,7 +11918,7 @@ function BashCompletion_opts($0, $1, $2, $3) {
|
|
|
11765
11918
|
case 'graph': return {a1: '--completed', a2: $0.a9};
|
|
11766
11919
|
case '--completed': return $0.a9;
|
|
11767
11920
|
default: {
|
|
11768
|
-
switch(Data_Maybe_isJust(Data_List_find($51 => Prelude_EqOrd_x3dx3d_Eq_String($51, $3),
|
|
11921
|
+
switch(Data_Maybe_isJust(Data_List_find($51 => Prelude_EqOrd_x3dx3d_Eq_String($51, $3), csegen_838()))) {
|
|
11769
11922
|
case 1: return Prelude_Types_List_filterAppend({h: 0}, $5a => Data_String_isPrefixOf($2, $5a), $0.a9);
|
|
11770
11923
|
case 0: return {h: 0};
|
|
11771
11924
|
}
|
|
@@ -11773,7 +11926,7 @@ function BashCompletion_opts($0, $1, $2, $3) {
|
|
|
11773
11926
|
}
|
|
11774
11927
|
}
|
|
11775
11928
|
default: {
|
|
11776
|
-
switch(Data_Maybe_isJust(Data_List_find($65 => Prelude_EqOrd_x3dx3d_Eq_String($65, $3),
|
|
11929
|
+
switch(Data_Maybe_isJust(Data_List_find($65 => Prelude_EqOrd_x3dx3d_Eq_String($65, $3), csegen_838()))) {
|
|
11777
11930
|
case 1: return Prelude_Types_List_filterAppend({h: 0}, $6e => Data_String_isPrefixOf($2, $6e), $0.a9);
|
|
11778
11931
|
case 0: return {h: 0};
|
|
11779
11932
|
}
|
|
@@ -11782,7 +11935,7 @@ function BashCompletion_opts($0, $1, $2, $3) {
|
|
|
11782
11935
|
}
|
|
11783
11936
|
case 'pr': {
|
|
11784
11937
|
switch(BashCompletion_isHashPrefix($2)) {
|
|
11785
|
-
case 1: return
|
|
11938
|
+
case 1: return csegen_835()($0.a10);
|
|
11786
11939
|
case 0: return {h: 0};
|
|
11787
11940
|
}
|
|
11788
11941
|
}
|
|
@@ -11900,8 +12053,8 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
11900
12053
|
}
|
|
11901
12054
|
case 'contribute': {
|
|
11902
12055
|
switch($1) {
|
|
11903
|
-
case '-': return
|
|
11904
|
-
case '--': return
|
|
12056
|
+
case '-': return csegen_842();
|
|
12057
|
+
case '--': return csegen_842();
|
|
11905
12058
|
default: {
|
|
11906
12059
|
switch(Data_String_isPrefixOf($1, '--checkout')) {
|
|
11907
12060
|
case 1: return {a1: {a1: '--checkout', a2: {h: 0}}};
|
|
@@ -11918,7 +12071,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
11918
12071
|
case 'graph': {
|
|
11919
12072
|
switch($1) {
|
|
11920
12073
|
case '--': return {h: 0};
|
|
11921
|
-
case '-': return
|
|
12074
|
+
case '-': return csegen_844();
|
|
11922
12075
|
default: {
|
|
11923
12076
|
switch(Data_String_isPrefixOf($1, '--completed')) {
|
|
11924
12077
|
case 1: return {a1: {a1: '--completed', a2: {h: 0}}};
|
|
@@ -12009,8 +12162,8 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
12009
12162
|
}
|
|
12010
12163
|
case 'contribute': {
|
|
12011
12164
|
switch($1) {
|
|
12012
|
-
case '-': return
|
|
12013
|
-
case '--': return
|
|
12165
|
+
case '-': return csegen_842();
|
|
12166
|
+
case '--': return csegen_842();
|
|
12014
12167
|
default: {
|
|
12015
12168
|
switch(Data_String_isPrefixOf($1, '--checkout')) {
|
|
12016
12169
|
case 1: return {a1: {a1: '--checkout', a2: {h: 0}}};
|
|
@@ -12027,7 +12180,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
|
|
|
12027
12180
|
case 'graph': {
|
|
12028
12181
|
switch($1) {
|
|
12029
12182
|
case '--': return {h: 0};
|
|
12030
|
-
case '-': return
|
|
12183
|
+
case '-': return csegen_844();
|
|
12031
12184
|
default: {
|
|
12032
12185
|
switch(Data_String_isPrefixOf($1, '--completed')) {
|
|
12033
12186
|
case 1: return {a1: {a1: '--completed', a2: {h: 0}}};
|
|
@@ -12056,7 +12209,7 @@ function AppVersion_printVersion($0) {
|
|
|
12056
12209
|
|
|
12057
12210
|
/* AppVersion.appVersion : String */
|
|
12058
12211
|
const AppVersion_appVersion = __lazy(function () {
|
|
12059
|
-
return '2.
|
|
12212
|
+
return '2.6.0';
|
|
12060
12213
|
});
|
|
12061
12214
|
|
|
12062
12215
|
|