@mattpolzin/harmony 0.7.0 → 1.1.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.
- harmony-npm/harmony +772 -572
- harmony-npm/package.json +2 -2
harmony-npm/harmony
CHANGED
|
@@ -307,6 +307,13 @@ const git_remote_uri = (git, remoteName, onSuccess, onFailure) =>
|
|
|
307
307
|
onFailure
|
|
308
308
|
)
|
|
309
309
|
|
|
310
|
+
const git_list_remotes = (git, onSuccess, onFailure) =>
|
|
311
|
+
idris__git_unpromisify(
|
|
312
|
+
git.raw('remote'),
|
|
313
|
+
r => onSuccess(r.trim()),
|
|
314
|
+
onFailure
|
|
315
|
+
)
|
|
316
|
+
|
|
310
317
|
// Get the remote branch that the current local branch is tracking.
|
|
311
318
|
// Executes callback with branch name or empty string when no branch
|
|
312
319
|
// is being tracked.
|
|
@@ -327,6 +334,13 @@ const git_user_email = (git, onSuccess, onFailure) =>
|
|
|
327
334
|
onFailure
|
|
328
335
|
)
|
|
329
336
|
|
|
337
|
+
const git_root_dir = (git, onSuccess, onFailure) =>
|
|
338
|
+
idris__git_unpromisify(
|
|
339
|
+
git.raw('rev-parse', '--show-toplevel'),
|
|
340
|
+
r => onSuccess(r.trim()),
|
|
341
|
+
onFailure
|
|
342
|
+
)
|
|
343
|
+
|
|
330
344
|
|
|
331
345
|
|
|
332
346
|
const { Octokit } = require('octokit')
|
|
@@ -653,9 +667,11 @@ const FFI_GitHub_prim__createPR = okit_create_pr;
|
|
|
653
667
|
const FFI_GitHub_prim__createComment = okit_create_comment;
|
|
654
668
|
const FFI_GitHub_prim__addPullReviewers = okit_add_reviewers;
|
|
655
669
|
const FFI_Git_prim__userEmail = git_user_email;
|
|
670
|
+
const FFI_Git_prim__rootDir = git_root_dir;
|
|
656
671
|
const FFI_Git_prim__remoteURI = git_remote_uri;
|
|
657
672
|
const FFI_Git_prim__remoteTrackingBranch = git_remote_tracking_branch;
|
|
658
673
|
const FFI_Git_prim__pushNewBranch = git_push_new_branch;
|
|
674
|
+
const FFI_Git_prim__listRemotes = git_list_remotes;
|
|
659
675
|
const FFI_Git_prim__git = git_git;
|
|
660
676
|
const FFI_Git_prim__currentBranch = git_current_branch;
|
|
661
677
|
const FFI_Git_prim__checkoutBranch = git_checkout_branch;
|
|
@@ -678,7 +694,7 @@ function x24tcOpt_1($0) {
|
|
|
678
694
|
default: {
|
|
679
695
|
switch($0.a7.h) {
|
|
680
696
|
case 0: return {h: 0, a1: $0.a6};
|
|
681
|
-
case 1: return {h: 0, a1: Prelude_Interfaces_x3cx24x3e(
|
|
697
|
+
case 1: return {h: 0, a1: Prelude_Interfaces_x3cx24x3e(csegen_118(), $c => ({a1: $c.a1, a2: $c.a2, a3: 0n}), $0.a6)};
|
|
682
698
|
default: {
|
|
683
699
|
switch($0.a6.h) {
|
|
684
700
|
case 0: {
|
|
@@ -691,11 +707,11 @@ function x24tcOpt_1($0) {
|
|
|
691
707
|
switch($1c.a1.h) {
|
|
692
708
|
case 0: {
|
|
693
709
|
switch($0.a8) {
|
|
694
|
-
case 0: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2:
|
|
710
|
+
case 0: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2: Reviewer_n__4753_1596_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $1c.a2, $0.a7, $0.a8)}};
|
|
695
711
|
case 1: return {h: 1, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a2, a6: $1c.a2, a7: $0.a7, a8: $0.a8};
|
|
696
712
|
}
|
|
697
713
|
}
|
|
698
|
-
case undefined: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3:
|
|
714
|
+
case undefined: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: Reviewer_n__4780_1748_calc($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a1.a1, $0.a5.a1.a3, $0.a5.a1.a2, $18, $0.a5.a2, $0.a8, $0.a7, $0.a6, $0.a5.a1.a3, $1c.a1.a1.a3)}, a2: Reviewer_n__4753_1596_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $1c.a2, $0.a7, $0.a8)}};
|
|
699
715
|
}
|
|
700
716
|
}
|
|
701
717
|
}
|
|
@@ -706,11 +722,11 @@ function x24tcOpt_1($0) {
|
|
|
706
722
|
switch($6f.a1.h) {
|
|
707
723
|
case 0: {
|
|
708
724
|
switch($0.a8) {
|
|
709
|
-
case 0: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2:
|
|
725
|
+
case 0: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2: Reviewer_n__4753_1596_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $6f.a2, $0.a7, $0.a8)}};
|
|
710
726
|
case 1: return {h: 1, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a2, a6: $6f.a2, a7: $0.a7, a8: $0.a8};
|
|
711
727
|
}
|
|
712
728
|
}
|
|
713
|
-
case undefined: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3:
|
|
729
|
+
case undefined: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: Reviewer_n__4780_1748_calc($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a1.a1, $0.a5.a1.a3, $0.a5.a1.a2, $6b, $0.a5.a2, $0.a8, $0.a7, $0.a6, $0.a5.a1.a3, $6f.a1.a1.a3)}, a2: Reviewer_n__4753_1596_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $6f.a2, $0.a7, $0.a8)}};
|
|
714
730
|
}
|
|
715
731
|
}
|
|
716
732
|
}
|
|
@@ -731,11 +747,11 @@ function x24tcOpt_1($0) {
|
|
|
731
747
|
switch($c6.a1.h) {
|
|
732
748
|
case 0: {
|
|
733
749
|
switch($0.a8) {
|
|
734
|
-
case 0: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2:
|
|
750
|
+
case 0: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2: Reviewer_n__4753_1596_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $c6.a2, $0.a7, $0.a8)}};
|
|
735
751
|
case 1: return {h: 1, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a2, a6: $c6.a2, a7: $0.a7, a8: $0.a8};
|
|
736
752
|
}
|
|
737
753
|
}
|
|
738
|
-
case undefined: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3:
|
|
754
|
+
case undefined: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: Reviewer_n__4780_1748_calc($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a1.a1, $0.a5.a1.a3, $0.a5.a1.a2, $c2, $0.a5.a2, $0.a8, $0.a7, $0.a6, $0.a5.a1.a3, $c6.a1.a1.a3)}, a2: Reviewer_n__4753_1596_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $c6.a2, $0.a7, $0.a8)}};
|
|
739
755
|
}
|
|
740
756
|
}
|
|
741
757
|
}
|
|
@@ -746,11 +762,11 @@ function x24tcOpt_1($0) {
|
|
|
746
762
|
switch($119.a1.h) {
|
|
747
763
|
case 0: {
|
|
748
764
|
switch($0.a8) {
|
|
749
|
-
case 0: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2:
|
|
765
|
+
case 0: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3}, a2: Reviewer_n__4753_1596_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $119.a2, $0.a7, $0.a8)}};
|
|
750
766
|
case 1: return {h: 1, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5.a2, a6: $119.a2, a7: $0.a7, a8: $0.a8};
|
|
751
767
|
}
|
|
752
768
|
}
|
|
753
|
-
case undefined: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3:
|
|
769
|
+
case undefined: return {h: 0, a1: {a1: {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: Reviewer_n__4780_1748_calc($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a1.a1, $0.a5.a1.a3, $0.a5.a1.a2, $115, $0.a5.a2, $0.a8, $0.a7, $0.a6, $0.a5.a1.a3, $119.a1.a1.a3)}, a2: Reviewer_n__4753_1596_zipReviews($0.a1, $0.a2, $0.a3, $0.a4, $0.a5.a2, $119.a2, $0.a7, $0.a8)}};
|
|
754
770
|
}
|
|
755
771
|
}
|
|
756
772
|
}
|
|
@@ -758,7 +774,7 @@ function x24tcOpt_1($0) {
|
|
|
758
774
|
}
|
|
759
775
|
}
|
|
760
776
|
|
|
761
|
-
function
|
|
777
|
+
function Reviewer_n__4753_1596_zipReviews($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
762
778
|
return __tailRec(x24tcOpt_1, {h: 1, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6, a8: $7});
|
|
763
779
|
}
|
|
764
780
|
|
|
@@ -1512,31 +1528,31 @@ const csegen_95 = __lazy(function () {
|
|
|
1512
1528
|
return System_exitSuccess(csegen_59());
|
|
1513
1529
|
});
|
|
1514
1530
|
|
|
1515
|
-
const
|
|
1531
|
+
const csegen_102 = __lazy(function () {
|
|
1516
1532
|
return $0 => $1 => $2 => $3 => $4 => $5 => Data_Promise_map_Functor_Promise($2, $3, $4, $5);
|
|
1517
1533
|
});
|
|
1518
1534
|
|
|
1519
|
-
const
|
|
1535
|
+
const csegen_110 = __lazy(function () {
|
|
1520
1536
|
return {a1: csegen_94(), a2: $3 => $4 => Prelude_EqOrd_compare_Ord_String($3, $4), a3: $9 => $a => Prelude_EqOrd_x3c_Ord_String($9, $a), a4: $f => $10 => Prelude_EqOrd_x3e_Ord_String($f, $10), a5: $15 => $16 => Prelude_EqOrd_x3cx3d_Ord_String($15, $16), a6: $1b => $1c => Prelude_EqOrd_x3ex3d_Ord_String($1b, $1c), a7: $21 => $22 => Prelude_EqOrd_max_Ord_String($21, $22), a8: $27 => $28 => Prelude_EqOrd_min_Ord_String($27, $28)};
|
|
1521
1537
|
});
|
|
1522
1538
|
|
|
1523
|
-
const
|
|
1524
|
-
return $0 => Data_List_sort(
|
|
1539
|
+
const csegen_111 = __lazy(function () {
|
|
1540
|
+
return $0 => Data_List_sort(csegen_110(), $0);
|
|
1525
1541
|
});
|
|
1526
1542
|
|
|
1527
|
-
const
|
|
1543
|
+
const csegen_112 = __lazy(function () {
|
|
1528
1544
|
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_77(), $0, $1, $2);
|
|
1529
1545
|
});
|
|
1530
1546
|
|
|
1531
|
-
const
|
|
1547
|
+
const csegen_114 = __lazy(function () {
|
|
1532
1548
|
return {a1: x => Prelude_Show_show_Show_String(x), a2: d => x => Prelude_Show_showPrec_Show_String(d, x)};
|
|
1533
1549
|
});
|
|
1534
1550
|
|
|
1535
|
-
const
|
|
1551
|
+
const csegen_118 = __lazy(function () {
|
|
1536
1552
|
return $0 => $1 => $2 => $3 => Prelude_Types_map_Functor_List($2, $3);
|
|
1537
1553
|
});
|
|
1538
1554
|
|
|
1539
|
-
const
|
|
1555
|
+
const csegen_129 = __lazy(function () {
|
|
1540
1556
|
return $0 => $1 => Data_Promise_pure_Applicative_Promise(undefined, $0, $1);
|
|
1541
1557
|
});
|
|
1542
1558
|
|
|
@@ -1552,90 +1568,90 @@ const csegen_141 = __lazy(function () {
|
|
|
1552
1568
|
return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
|
|
1553
1569
|
});
|
|
1554
1570
|
|
|
1555
|
-
const csegen_156 = __lazy(function () {
|
|
1556
|
-
return $0 => $0.a2;
|
|
1557
|
-
});
|
|
1558
|
-
|
|
1559
1571
|
const csegen_159 = __lazy(function () {
|
|
1560
|
-
return $0 => $0.a1;
|
|
1561
|
-
});
|
|
1562
|
-
|
|
1563
|
-
const csegen_161 = __lazy(function () {
|
|
1564
|
-
return Prelude_IO_putStrLn(csegen_21(), '');
|
|
1565
|
-
});
|
|
1566
|
-
|
|
1567
|
-
const csegen_167 = __lazy(function () {
|
|
1568
|
-
return $0 => $1 => Prelude_Types_max_Ord_Nat($0, $1);
|
|
1569
|
-
});
|
|
1570
|
-
|
|
1571
|
-
const csegen_169 = __lazy(function () {
|
|
1572
|
-
return date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('earliest:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date(date)), a2: {h: 0}}}));
|
|
1573
|
-
});
|
|
1574
|
-
|
|
1575
|
-
const csegen_193 = __lazy(function () {
|
|
1576
1572
|
return {a1: {a1: b => a => func => $2 => Control_Monad_ST_map_Functor_x28STx20x24sx29(func, $2), a2: a => $7 => $8 => $7, a3: b => a => $a => $b => $c => Control_Monad_ST_x3cx2ax3e_Applicative_x28STx20x24sx29($a, $b, $c)}, a2: b => a => $12 => $13 => $14 => Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($12, $13, $14), a3: a => $1a => $1b => Control_Monad_ST_join_Monad_x28STx20x24sx29($1a, $1b)};
|
|
1577
1573
|
});
|
|
1578
1574
|
|
|
1579
|
-
const
|
|
1575
|
+
const csegen_172 = __lazy(function () {
|
|
1580
1576
|
return $0 => $1 => Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29($0, $1);
|
|
1581
1577
|
});
|
|
1582
1578
|
|
|
1583
|
-
const
|
|
1579
|
+
const csegen_176 = __lazy(function () {
|
|
1584
1580
|
return {a1: $1 => $2 => Prelude_EqOrd_x3dx3d_Eq_Char($1, $2), a2: $7 => $8 => Prelude_EqOrd_x2fx3d_Eq_Char($7, $8)};
|
|
1585
1581
|
});
|
|
1586
1582
|
|
|
1587
|
-
const
|
|
1583
|
+
const csegen_192 = __lazy(function () {
|
|
1588
1584
|
return $0 => $1 => ({a1: $0, a2: $1});
|
|
1589
1585
|
});
|
|
1590
1586
|
|
|
1591
|
-
const
|
|
1587
|
+
const csegen_193 = __lazy(function () {
|
|
1592
1588
|
return $0 => $1 => $2 => $0($1($2));
|
|
1593
1589
|
});
|
|
1594
1590
|
|
|
1595
|
-
const
|
|
1591
|
+
const csegen_241 = __lazy(function () {
|
|
1592
|
+
return $0 => Language_JSON_Accessors_optional($3 => Language_JSON_Accessors_string($3), $0);
|
|
1593
|
+
});
|
|
1594
|
+
|
|
1595
|
+
const csegen_247 = __lazy(function () {
|
|
1596
1596
|
return b => a => $0 => $1 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($0, $1);
|
|
1597
1597
|
});
|
|
1598
1598
|
|
|
1599
|
-
const
|
|
1599
|
+
const csegen_248 = __lazy(function () {
|
|
1600
1600
|
return a => $0 => Prelude_Types_join_Monad_x28Eitherx20x24ex29($0);
|
|
1601
1601
|
});
|
|
1602
1602
|
|
|
1603
|
-
const
|
|
1603
|
+
const csegen_249 = __lazy(function () {
|
|
1604
1604
|
return $0 => Data_Either_maybeToEither(() => 'Failed to parse JSON', Language_JSON_parse($0));
|
|
1605
1605
|
});
|
|
1606
1606
|
|
|
1607
|
-
const
|
|
1607
|
+
const csegen_252 = __lazy(function () {
|
|
1608
1608
|
return b => a => func => $0 => Text_Bounded_map_Functor_WithBounds(func, $0);
|
|
1609
1609
|
});
|
|
1610
1610
|
|
|
1611
|
-
const
|
|
1611
|
+
const csegen_263 = __lazy(function () {
|
|
1612
1612
|
return {a1: {a1: $2 => $3 => Prelude_EqOrd_x3dx3d_Eq_Int($2, $3), a2: $8 => $9 => Prelude_EqOrd_x2fx3d_Eq_Int($8, $9)}, a2: $e => $f => Prelude_EqOrd_compare_Ord_Int($e, $f), a3: $14 => $15 => Prelude_EqOrd_x3c_Ord_Int($14, $15), a4: $1a => $1b => Prelude_EqOrd_x3e_Ord_Int($1a, $1b), a5: $20 => $21 => Prelude_EqOrd_x3cx3d_Ord_Int($20, $21), a6: $26 => $27 => Prelude_EqOrd_x3ex3d_Ord_Int($26, $27), a7: $2c => $2d => Prelude_EqOrd_max_Ord_Int($2c, $2d), a8: $32 => $33 => Prelude_EqOrd_min_Ord_Int($32, $33)};
|
|
1613
1613
|
});
|
|
1614
1614
|
|
|
1615
|
-
const
|
|
1615
|
+
const csegen_271 = __lazy(function () {
|
|
1616
1616
|
return {a1: $1 => Language_JSON_Tokens_TokType_TokenKind_JSONTokenKind($1), a2: kind => $5 => Language_JSON_Tokens_tokValue_TokenKind_JSONTokenKind(kind, $5)};
|
|
1617
1617
|
});
|
|
1618
1618
|
|
|
1619
|
-
const
|
|
1619
|
+
const csegen_274 = __lazy(function () {
|
|
1620
1620
|
return {a1: $1 => $2 => Language_JSON_Tokens_x3dx3d_Eq_JSONTokenKind($1, $2), a2: $7 => $8 => Language_JSON_Tokens_x2fx3d_Eq_JSONTokenKind($7, $8)};
|
|
1621
1621
|
});
|
|
1622
1622
|
|
|
1623
|
-
const
|
|
1623
|
+
const csegen_310 = __lazy(function () {
|
|
1624
1624
|
return {a1: $1 => Language_JSON_String_Tokens_TokType_TokenKind_JSONStringTokenKind($1), a2: kind => $5 => Language_JSON_String_Tokens_tokValue_TokenKind_JSONStringTokenKind(kind, $5)};
|
|
1625
1625
|
});
|
|
1626
1626
|
|
|
1627
|
-
const
|
|
1627
|
+
const csegen_313 = __lazy(function () {
|
|
1628
1628
|
return {a1: $1 => $2 => Language_JSON_String_Tokens_x3dx3d_Eq_JSONStringTokenKind($1, $2), a2: $7 => $8 => Language_JSON_String_Tokens_x2fx3d_Eq_JSONStringTokenKind($7, $8)};
|
|
1629
1629
|
});
|
|
1630
1630
|
|
|
1631
|
-
const
|
|
1631
|
+
const csegen_329 = __lazy(function () {
|
|
1632
1632
|
return $0 => $1 => $2 => $3 => Text_Bounded_map_Functor_WithBounds($2, $3);
|
|
1633
1633
|
});
|
|
1634
1634
|
|
|
1635
|
-
const
|
|
1635
|
+
const csegen_331 = __lazy(function () {
|
|
1636
1636
|
return {a1: {a1: 'End of input', a2: {h: 0}}, a2: {h: 0}};
|
|
1637
1637
|
});
|
|
1638
1638
|
|
|
1639
|
+
const csegen_383 = __lazy(function () {
|
|
1640
|
+
return $0 => $0.a2;
|
|
1641
|
+
});
|
|
1642
|
+
|
|
1643
|
+
const csegen_386 = __lazy(function () {
|
|
1644
|
+
return $0 => $0.a1;
|
|
1645
|
+
});
|
|
1646
|
+
|
|
1647
|
+
const csegen_391 = __lazy(function () {
|
|
1648
|
+
return $0 => $1 => Prelude_Types_max_Ord_Nat($0, $1);
|
|
1649
|
+
});
|
|
1650
|
+
|
|
1651
|
+
const csegen_393 = __lazy(function () {
|
|
1652
|
+
return date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('earliest:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date(date)), a2: {h: 0}}}));
|
|
1653
|
+
});
|
|
1654
|
+
|
|
1639
1655
|
const csegen_405 = __lazy(function () {
|
|
1640
1656
|
return $0 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($0));
|
|
1641
1657
|
});
|
|
@@ -1661,11 +1677,11 @@ const csegen_474 = __lazy(function () {
|
|
|
1661
1677
|
});
|
|
1662
1678
|
|
|
1663
1679
|
const csegen_482 = __lazy(function () {
|
|
1664
|
-
return $0 => $1 => $2 => Data_Promise_either(
|
|
1680
|
+
return $0 => $1 => $2 => Data_Promise_either(csegen_114(), Data_PullRequest_parsePullRequestsString($0), $1, $2);
|
|
1665
1681
|
});
|
|
1666
1682
|
|
|
1667
1683
|
const csegen_483 = __lazy(function () {
|
|
1668
|
-
return $0 => $1 => $2 => Data_Promise_either(
|
|
1684
|
+
return $0 => $1 => $2 => Data_Promise_either(csegen_114(), Data_User_parseUserString($0), $1, $2);
|
|
1669
1685
|
});
|
|
1670
1686
|
|
|
1671
1687
|
const csegen_516 = __lazy(function () {
|
|
@@ -1681,14 +1697,14 @@ const csegen_535 = __lazy(function () {
|
|
|
1681
1697
|
});
|
|
1682
1698
|
|
|
1683
1699
|
const csegen_538 = __lazy(function () {
|
|
1684
|
-
return Prelude_Interfaces_x3cx24x3e(
|
|
1700
|
+
return Prelude_Interfaces_x3cx24x3e(csegen_102(), $4 => Prelude_Cast_cast_Cast_Integer_Bits32($4), System_time(csegen_21()));
|
|
1685
1701
|
});
|
|
1686
1702
|
|
|
1687
1703
|
const csegen_542 = __lazy(function () {
|
|
1688
1704
|
return {a1: csegen_21(), a2: {a1: x => Data_Config_show_Show_Config(x), a2: d => x => Data_Config_showPrec_Show_Config(d, x)}};
|
|
1689
1705
|
});
|
|
1690
1706
|
|
|
1691
|
-
const
|
|
1707
|
+
const csegen_577 = __lazy(function () {
|
|
1692
1708
|
return {a1: {a1: '--checkout', a2: {a1: '-c', a2: {h: 0}}}};
|
|
1693
1709
|
});
|
|
1694
1710
|
|
|
@@ -1704,7 +1720,7 @@ function prim__mul_Integer($0, $1) {
|
|
|
1704
1720
|
return ($0*$1);
|
|
1705
1721
|
}
|
|
1706
1722
|
|
|
1707
|
-
function
|
|
1723
|
+
function Main_case__contribute_2186($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a) {
|
|
1708
1724
|
const $c = Data_List_headx27(Data_List_drop($6, Prelude_Types_List_tailRecAppend($a.a1, $a.a2)));
|
|
1709
1725
|
switch($c.h) {
|
|
1710
1726
|
case 0: return $16 => $17 => Data_Promise_reject('No open PRs to review!', $16, $17);
|
|
@@ -1721,16 +1737,16 @@ function Main_case__contribute_3289($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a)
|
|
|
1721
1737
|
}
|
|
1722
1738
|
}
|
|
1723
1739
|
|
|
1724
|
-
function
|
|
1740
|
+
function Main_n__6457_1831_putNameLn($0, $1, $2, $3) {
|
|
1725
1741
|
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}}}});
|
|
1726
1742
|
}
|
|
1727
1743
|
|
|
1728
|
-
function
|
|
1744
|
+
function Main_n__6325_1721_partitionedArgs($0, $1, $2, $3, $4) {
|
|
1729
1745
|
const $5 = Data_List_partition($8 => Data_String_isPrefixOf('+', $8), $4);
|
|
1730
1746
|
return {a1: Prelude_Types_map_Functor_List($11 => Data_String_Extra_drop(1n, $11), $5.a1), a2: $5.a2};
|
|
1731
1747
|
}
|
|
1732
1748
|
|
|
1733
|
-
function
|
|
1749
|
+
function Main_n__7005_2384_parseSkipArg($0, $1) {
|
|
1734
1750
|
const $2 = Prelude_Types_fastUnpack($1);
|
|
1735
1751
|
switch($2.h) {
|
|
1736
1752
|
case undefined: {
|
|
@@ -1743,15 +1759,15 @@ function Main_n__6941_3487_parseSkipArg($0, $1) {
|
|
|
1743
1759
|
}
|
|
1744
1760
|
}
|
|
1745
1761
|
|
|
1746
|
-
function
|
|
1762
|
+
function Main_n__7204_2635_parsePg($0, $1, $2, $3, $4, $5) {
|
|
1747
1763
|
return Data_String_parsePositive(csegen_30(), $5);
|
|
1748
1764
|
}
|
|
1749
1765
|
|
|
1750
|
-
function
|
|
1766
|
+
function Main_n__7204_2634_parseLim($0, $1, $2, $3, $4) {
|
|
1751
1767
|
return Prelude_Interfaces_x3cx3dx3c(csegen_42(), x => Data_Fin_natToFin(x, Prelude_Types_prim__integerToNat(101n)), $f => Data_String_parsePositive(csegen_30(), $f));
|
|
1752
1768
|
}
|
|
1753
1769
|
|
|
1754
|
-
function
|
|
1770
|
+
function Main_n__7005_2383_parseCheckoutArg($0, $1) {
|
|
1755
1771
|
switch($1) {
|
|
1756
1772
|
case '-c': return {a1: {h: 0}};
|
|
1757
1773
|
case '--checkout': return {a1: {h: 0}};
|
|
@@ -1759,18 +1775,11 @@ function Main_n__6941_3486_parseCheckoutArg($0, $1) {
|
|
|
1759
1775
|
}
|
|
1760
1776
|
}
|
|
1761
1777
|
|
|
1762
|
-
function
|
|
1763
|
-
switch(Data_Config_rf__colors($2)) {
|
|
1764
|
-
case 1: return $3;
|
|
1765
|
-
case 0: return Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($3);
|
|
1766
|
-
}
|
|
1767
|
-
}
|
|
1768
|
-
|
|
1769
|
-
function Main_n__6357_2890_forkedUser($0, $1, $2, $3) {
|
|
1778
|
+
function Main_n__6457_1830_forkedUser($0, $1, $2, $3) {
|
|
1770
1779
|
return FFI_Concurrency_fork(csegen_21(), ('user --json '+$3));
|
|
1771
1780
|
}
|
|
1772
1781
|
|
|
1773
|
-
function
|
|
1782
|
+
function Main_n__6195_1583_configuredOpts($0, $1, $2) {
|
|
1774
1783
|
const $10 = $11 => {
|
|
1775
1784
|
switch($11.h) {
|
|
1776
1785
|
case 1: return $0.a1.a1.a2(undefined)(BashCompletion_opts($11.a1, $2, $1));
|
|
@@ -1831,7 +1840,7 @@ function Main_parseContributeArgs($0) {
|
|
|
1831
1840
|
switch($0.a2.a2.h) {
|
|
1832
1841
|
case undefined: return {h: 0, a1: 'contribute\'s arguments must be either -<num> to skip num PRs or --checkout (-c) to checkout the branch needing review.'};
|
|
1833
1842
|
default: {
|
|
1834
|
-
const $6 = Prelude_Types_traverse_Traversable_List(csegen_37(), $b => Main_x3cx7cx7cx3e(csegen_80(), $10 =>
|
|
1843
|
+
const $6 = Prelude_Types_traverse_Traversable_List(csegen_37(), $b => Main_x3cx7cx7cx3e(csegen_80(), $10 => Main_n__7005_2384_parseSkipArg($0, $10), $15 => Main_n__7005_2383_parseCheckoutArg($0, $15), $b), $0);
|
|
1835
1844
|
switch($6.h) {
|
|
1836
1845
|
case undefined: return {h: 1, a1: $6.a1};
|
|
1837
1846
|
case 0: return {h: 0, a1: 'contribute\'s arguments must be either -<num> to skip num PRs or --checkout (-c) to checkout the branch needing review.'};
|
|
@@ -1840,7 +1849,7 @@ function Main_parseContributeArgs($0) {
|
|
|
1840
1849
|
}
|
|
1841
1850
|
}
|
|
1842
1851
|
default: {
|
|
1843
|
-
const $1d = Prelude_Types_traverse_Traversable_List(csegen_37(), $22 => Main_x3cx7cx7cx3e(csegen_80(), $27 =>
|
|
1852
|
+
const $1d = Prelude_Types_traverse_Traversable_List(csegen_37(), $22 => Main_x3cx7cx7cx3e(csegen_80(), $27 => Main_n__7005_2384_parseSkipArg($0, $27), $2c => Main_n__7005_2383_parseCheckoutArg($0, $2c), $22), $0);
|
|
1844
1853
|
switch($1d.h) {
|
|
1845
1854
|
case undefined: return {h: 1, a1: $1d.a1};
|
|
1846
1855
|
case 0: return {h: 0, a1: 'contribute\'s arguments must be either -<num> to skip num PRs or --checkout (-c) to checkout the branch needing review.'};
|
|
@@ -1849,7 +1858,7 @@ function Main_parseContributeArgs($0) {
|
|
|
1849
1858
|
}
|
|
1850
1859
|
}
|
|
1851
1860
|
default: {
|
|
1852
|
-
const $34 = Prelude_Types_traverse_Traversable_List(csegen_37(), $39 => Main_x3cx7cx7cx3e(csegen_80(), $3e =>
|
|
1861
|
+
const $34 = Prelude_Types_traverse_Traversable_List(csegen_37(), $39 => Main_x3cx7cx7cx3e(csegen_80(), $3e => Main_n__7005_2384_parseSkipArg($0, $3e), $43 => Main_n__7005_2383_parseCheckoutArg($0, $43), $39), $0);
|
|
1853
1862
|
switch($34.h) {
|
|
1854
1863
|
case undefined: return {h: 1, a1: $34.a1};
|
|
1855
1864
|
case 0: return {h: 0, a1: 'contribute\'s arguments must be either -<num> to skip num PRs or --checkout (-c) to checkout the branch needing review.'};
|
|
@@ -1863,53 +1872,136 @@ function Main_main($0) {
|
|
|
1863
1872
|
const $7 = System_getEnv(csegen_59(), 'EDITOR')($0);
|
|
1864
1873
|
const $e = Prelude_Interfaces_x3cx24x3e(csegen_85(), $14 => Data_List_drop(2n, $14), System_getArgs(csegen_59()))($0);
|
|
1865
1874
|
let $25;
|
|
1866
|
-
switch(Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_94(), $e, {
|
|
1875
|
+
switch(Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_94(), $e, {h: 0})) {
|
|
1867
1876
|
case 1: {
|
|
1868
1877
|
$25 = 1;
|
|
1869
1878
|
break;
|
|
1870
1879
|
}
|
|
1871
1880
|
case 0: {
|
|
1872
|
-
|
|
1881
|
+
switch(Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_94(), $e, {a1: 'help', a2: {h: 0}})) {
|
|
1882
|
+
case 1: {
|
|
1883
|
+
$25 = 1;
|
|
1884
|
+
break;
|
|
1885
|
+
}
|
|
1886
|
+
case 0: {
|
|
1887
|
+
$25 = Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_94(), $e, {a1: '--help', a2: {h: 0}});
|
|
1888
|
+
break;
|
|
1889
|
+
}
|
|
1890
|
+
}
|
|
1873
1891
|
break;
|
|
1874
1892
|
}
|
|
1875
1893
|
}
|
|
1876
1894
|
const $21 = Prelude_Interfaces_when(csegen_52(), $25, () => Prelude_Interfaces_x3ex3e(csegen_91(), Prelude_IO_putStrLn(csegen_59(), Help_help($1)), () => csegen_95()));
|
|
1877
|
-
const $
|
|
1878
|
-
let $
|
|
1895
|
+
const $48 = () => {
|
|
1896
|
+
let $50;
|
|
1879
1897
|
switch(Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_94(), $e, {a1: 'version', a2: {h: 0}})) {
|
|
1880
1898
|
case 1: {
|
|
1881
|
-
$
|
|
1899
|
+
$50 = 1;
|
|
1882
1900
|
break;
|
|
1883
1901
|
}
|
|
1884
1902
|
case 0: {
|
|
1885
|
-
$
|
|
1903
|
+
$50 = Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_94(), $e, {a1: '--version', a2: {h: 0}});
|
|
1886
1904
|
break;
|
|
1887
1905
|
}
|
|
1888
1906
|
}
|
|
1889
|
-
const $
|
|
1890
|
-
return Prelude_Interfaces_x3ex3e(csegen_91(), $
|
|
1891
|
-
const $
|
|
1892
|
-
|
|
1893
|
-
|
|
1894
|
-
const $6e = FFI_GitHub_octokit($66.a1)($65);
|
|
1895
|
-
const $73 = FFI_Git_git(csegen_59())($65);
|
|
1896
|
-
return Main_handleArgs($73, $6e, $1, $7, $e)($65);
|
|
1897
|
-
}
|
|
1898
|
-
case 0: return Main_exitError(csegen_59(), 'GITHUB_PAT environment variable must be set to a personal access token.')($65);
|
|
1899
|
-
}
|
|
1907
|
+
const $4c = Prelude_Interfaces_when(csegen_52(), $50, () => Prelude_Interfaces_x3ex3e(csegen_91(), AppVersion_printVersion(csegen_59()), () => csegen_95()));
|
|
1908
|
+
return Prelude_Interfaces_x3ex3e(csegen_91(), $4c, () => $6b => {
|
|
1909
|
+
const $6c = System_getEnv(csegen_59(), 'GITHUB_PAT')($6b);
|
|
1910
|
+
const $73 = FFI_Git_git(csegen_59())($6b);
|
|
1911
|
+
return Main_handleArgs($73, $6c, $1, $7, $e)($6b);
|
|
1900
1912
|
});
|
|
1901
1913
|
};
|
|
1902
|
-
const $1d = Prelude_Interfaces_x3ex3e(csegen_91(), $21, $
|
|
1914
|
+
const $1d = Prelude_Interfaces_x3ex3e(csegen_91(), $21, $48);
|
|
1903
1915
|
return $1d($0);
|
|
1904
1916
|
}
|
|
1905
1917
|
|
|
1906
1918
|
function Main_listTeam($0, $1, $2, $3, $4) {
|
|
1907
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(
|
|
1919
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_102(), csegen_111(), FFI_GitHub_listTeamMembers($1, $0.a2, $2)), teamMemberLogins => $13 => $14 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(csegen_15(), csegen_112(), Prelude_Types_traverse_Traversable_List(csegen_9(), $21 => Main_n__6457_1830_forkedUser($1, $2, $0, $21), teamMemberLogins)), teamMembersJson => $29 => $2a => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_traverse_Traversable_List(csegen_9(), $31 => $32 => $33 => Data_Promise_either(csegen_114(), Data_User_parseUser($31), $32, $33), teamMembersJson), teamMembers => Util_renderIO($0, csegen_21(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Interfaces_x3cx24x3e(csegen_118(), $49 => Main_n__6457_1831_putNameLn($1, $2, $0, $49), teamMembers))), $29, $2a), $13, $14), $3, $4);
|
|
1908
1920
|
}
|
|
1909
1921
|
|
|
1910
1922
|
function Main_handleConfiguredArgs($0, $1, $2, $3) {
|
|
1911
1923
|
switch($3.h) {
|
|
1912
|
-
case
|
|
1924
|
+
case undefined: {
|
|
1925
|
+
switch($3.a1) {
|
|
1926
|
+
case 'config': {
|
|
1927
|
+
switch($3.a2.h) {
|
|
1928
|
+
case 0: return $7 => $8 => Data_Promise_reject('The config command expects one or two arguments. Specify a property to read out or a property and a value to set it to.', $7, $8);
|
|
1929
|
+
case undefined: {
|
|
1930
|
+
return $d => {
|
|
1931
|
+
switch($3.a2.a2.h) {
|
|
1932
|
+
case 0: return $f => Data_Promise_x3ex3ex3d_Monad_Promise($12 => Config_getConfig($0, $3.a2.a1, $12), value => Prelude_IO_putStrLn(csegen_21(), value), $d, $f);
|
|
1933
|
+
case undefined: {
|
|
1934
|
+
return $1e => {
|
|
1935
|
+
switch($3.a2.a2.a2.h) {
|
|
1936
|
+
case 0: return Data_Promise_map_Functor_Promise($22 => (undefined), Config_setConfig($0, $3.a2.a1, $3.a2.a2.a1), $d, $1e);
|
|
1937
|
+
default: {
|
|
1938
|
+
const $3c = $3d => $3e => $3f => {
|
|
1939
|
+
switch($3d.h) {
|
|
1940
|
+
case undefined: return Data_Promise_x3ex3ex3d_Monad_Promise($43 => $44 => $45 => Data_Promise_liftIO_HasIO_Promise(FFI_GitHub_octokit($3d.a1), $43, $44, $45), _ => $4e => $4f => Data_Promise_x3ex3ex3d_Monad_Promise($52 => $53 => Config_syncIfOld(_, $0, $52, $53), configx27 => Main_handleAuthenticatedArgs(configx27, $1, _, $3), $4e, $4f), $3e, $3f);
|
|
1941
|
+
case 0: return Data_Promise_reject('Either the GITHUB_PAT environment variable or githubPAT config property must be set to a personal access token.', $3e, $3f);
|
|
1942
|
+
}
|
|
1943
|
+
};
|
|
1944
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($2c => $2d => Data_Promise_pure_Applicative_Promise(Prelude_Types_x3cx7cx3e_Alternative_Maybe($2, () => Prelude_Interfaces_x3cx24x3e(csegen_18(), $37 => $37, $0.a10)), $2c, $2d), $3c, $d, $1e);
|
|
1945
|
+
}
|
|
1946
|
+
}
|
|
1947
|
+
};
|
|
1948
|
+
}
|
|
1949
|
+
default: {
|
|
1950
|
+
return $69 => {
|
|
1951
|
+
const $7c = $7d => $7e => $7f => {
|
|
1952
|
+
switch($7d.h) {
|
|
1953
|
+
case undefined: return Data_Promise_x3ex3ex3d_Monad_Promise($83 => $84 => $85 => Data_Promise_liftIO_HasIO_Promise(FFI_GitHub_octokit($7d.a1), $83, $84, $85), _ => $8e => $8f => Data_Promise_x3ex3ex3d_Monad_Promise($92 => $93 => Config_syncIfOld(_, $0, $92, $93), configx27 => Main_handleAuthenticatedArgs(configx27, $1, _, $3), $8e, $8f), $7e, $7f);
|
|
1954
|
+
case 0: return Data_Promise_reject('Either the GITHUB_PAT environment variable or githubPAT config property must be set to a personal access token.', $7e, $7f);
|
|
1955
|
+
}
|
|
1956
|
+
};
|
|
1957
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($6c => $6d => Data_Promise_pure_Applicative_Promise(Prelude_Types_x3cx7cx3e_Alternative_Maybe($2, () => Prelude_Interfaces_x3cx24x3e(csegen_18(), $77 => $77, $0.a10)), $6c, $6d), $7c, $d, $69);
|
|
1958
|
+
};
|
|
1959
|
+
}
|
|
1960
|
+
}
|
|
1961
|
+
};
|
|
1962
|
+
}
|
|
1963
|
+
default: {
|
|
1964
|
+
return $a9 => $aa => {
|
|
1965
|
+
const $bd = $be => $bf => $c0 => {
|
|
1966
|
+
switch($be.h) {
|
|
1967
|
+
case undefined: return Data_Promise_x3ex3ex3d_Monad_Promise($c4 => $c5 => $c6 => Data_Promise_liftIO_HasIO_Promise(FFI_GitHub_octokit($be.a1), $c4, $c5, $c6), _ => $cf => $d0 => Data_Promise_x3ex3ex3d_Monad_Promise($d3 => $d4 => Config_syncIfOld(_, $0, $d3, $d4), configx27 => Main_handleAuthenticatedArgs(configx27, $1, _, $3), $cf, $d0), $bf, $c0);
|
|
1968
|
+
case 0: return Data_Promise_reject('Either the GITHUB_PAT environment variable or githubPAT config property must be set to a personal access token.', $bf, $c0);
|
|
1969
|
+
}
|
|
1970
|
+
};
|
|
1971
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($ad => $ae => Data_Promise_pure_Applicative_Promise(Prelude_Types_x3cx7cx3e_Alternative_Maybe($2, () => Prelude_Interfaces_x3cx24x3e(csegen_18(), $b8 => $b8, $0.a10)), $ad, $ae), $bd, $a9, $aa);
|
|
1972
|
+
};
|
|
1973
|
+
}
|
|
1974
|
+
}
|
|
1975
|
+
}
|
|
1976
|
+
default: {
|
|
1977
|
+
return $ea => $eb => {
|
|
1978
|
+
const $fe = $ff => $100 => $101 => {
|
|
1979
|
+
switch($ff.h) {
|
|
1980
|
+
case undefined: return Data_Promise_x3ex3ex3d_Monad_Promise($105 => $106 => $107 => Data_Promise_liftIO_HasIO_Promise(FFI_GitHub_octokit($ff.a1), $105, $106, $107), _ => $110 => $111 => Data_Promise_x3ex3ex3d_Monad_Promise($114 => $115 => Config_syncIfOld(_, $0, $114, $115), configx27 => Main_handleAuthenticatedArgs(configx27, $1, _, $3), $110, $111), $100, $101);
|
|
1981
|
+
case 0: return Data_Promise_reject('Either the GITHUB_PAT environment variable or githubPAT config property must be set to a personal access token.', $100, $101);
|
|
1982
|
+
}
|
|
1983
|
+
};
|
|
1984
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($ee => $ef => Data_Promise_pure_Applicative_Promise(Prelude_Types_x3cx7cx3e_Alternative_Maybe($2, () => Prelude_Interfaces_x3cx24x3e(csegen_18(), $f9 => $f9, $0.a10)), $ee, $ef), $fe, $ea, $eb);
|
|
1985
|
+
};
|
|
1986
|
+
}
|
|
1987
|
+
}
|
|
1988
|
+
}
|
|
1989
|
+
default: {
|
|
1990
|
+
return $12b => $12c => {
|
|
1991
|
+
const $13f = $140 => $141 => $142 => {
|
|
1992
|
+
switch($140.h) {
|
|
1993
|
+
case undefined: return Data_Promise_x3ex3ex3d_Monad_Promise($146 => $147 => $148 => Data_Promise_liftIO_HasIO_Promise(FFI_GitHub_octokit($140.a1), $146, $147, $148), _ => $151 => $152 => Data_Promise_x3ex3ex3d_Monad_Promise($155 => $156 => Config_syncIfOld(_, $0, $155, $156), configx27 => Main_handleAuthenticatedArgs(configx27, $1, _, $3), $151, $152), $141, $142);
|
|
1994
|
+
case 0: return Data_Promise_reject('Either the GITHUB_PAT environment variable or githubPAT config property must be set to a personal access token.', $141, $142);
|
|
1995
|
+
}
|
|
1996
|
+
};
|
|
1997
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($12f => $130 => Data_Promise_pure_Applicative_Promise(Prelude_Types_x3cx7cx3e_Alternative_Maybe($2, () => Prelude_Interfaces_x3cx24x3e(csegen_18(), $13a => $13a, $0.a10)), $12f, $130), $13f, $12b, $12c);
|
|
1998
|
+
};
|
|
1999
|
+
}
|
|
2000
|
+
}
|
|
2001
|
+
}
|
|
2002
|
+
|
|
2003
|
+
function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
|
|
2004
|
+
switch($3.h) {
|
|
1913
2005
|
case undefined: {
|
|
1914
2006
|
switch($3.a1) {
|
|
1915
2007
|
case 'reviews': {
|
|
@@ -1919,28 +2011,28 @@ function Main_handleConfiguredArgs($0, $1, $2, $3) {
|
|
|
1919
2011
|
case '--json': {
|
|
1920
2012
|
switch($3.a2.a2.h) {
|
|
1921
2013
|
case undefined: {
|
|
1922
|
-
return $
|
|
2014
|
+
return $9 => {
|
|
1923
2015
|
switch($3.a2.a2.a2.h) {
|
|
1924
2016
|
case 0: {
|
|
1925
|
-
return $
|
|
1926
|
-
const $
|
|
1927
|
-
switch($
|
|
1928
|
-
case undefined: return Data_Promise_x3ex3ex3d_Monad_Promise($
|
|
1929
|
-
case 0: return Data_Promise_pure_Applicative_Promise(undefined, $
|
|
2017
|
+
return $b => {
|
|
2018
|
+
const $c = Data_String_parsePositive(csegen_29(), $3.a2.a2.a1);
|
|
2019
|
+
switch($c.h) {
|
|
2020
|
+
case undefined: return Data_Promise_x3ex3ex3d_Monad_Promise($13 => $14 => FFI_GitHub_listPullReviewsJsonStr($2, $0.a2, $0.a3, $c.a1, $13, $14), reviewsJsonStr => Prelude_IO_putStr(csegen_21(), reviewsJsonStr), $9, $b);
|
|
2021
|
+
case 0: return Data_Promise_pure_Applicative_Promise(undefined, $9, $b);
|
|
1930
2022
|
}
|
|
1931
2023
|
};
|
|
1932
2024
|
}
|
|
1933
|
-
default: return $
|
|
2025
|
+
default: return $29 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $9, $29);
|
|
1934
2026
|
}
|
|
1935
2027
|
};
|
|
1936
2028
|
}
|
|
1937
|
-
default: return $
|
|
2029
|
+
default: return $3e => $3f => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $3e, $3f);
|
|
1938
2030
|
}
|
|
1939
2031
|
}
|
|
1940
|
-
default: return $
|
|
2032
|
+
default: return $54 => $55 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $54, $55);
|
|
1941
2033
|
}
|
|
1942
2034
|
}
|
|
1943
|
-
default: return $
|
|
2035
|
+
default: return $6a => $6b => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $6a, $6b);
|
|
1944
2036
|
}
|
|
1945
2037
|
}
|
|
1946
2038
|
case 'pulls': {
|
|
@@ -1954,27 +2046,27 @@ function Main_handleConfiguredArgs($0, $1, $2, $3) {
|
|
|
1954
2046
|
case undefined: {
|
|
1955
2047
|
switch($3.a2.a2.a2.a2.h) {
|
|
1956
2048
|
case 0: {
|
|
1957
|
-
const $
|
|
1958
|
-
return $
|
|
1959
|
-
switch($
|
|
1960
|
-
case undefined: return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequestsJsonStr($2, $0.a2, $0.a3, {h: 0}, $
|
|
1961
|
-
case 0: return Data_Promise_pure_Applicative_Promise(undefined, $
|
|
2049
|
+
const $85 = Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $8b => $8c => ({a1: $8b, a2: $8c})}, Main_n__7204_2634_parseLim($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $0)($3.a2.a2.a1)), Main_n__7204_2635_parsePg($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $0, $3.a2.a2.a2.a1));
|
|
2050
|
+
return $a0 => $a1 => {
|
|
2051
|
+
switch($85.h) {
|
|
2052
|
+
case undefined: return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequestsJsonStr($2, $0.a2, $0.a3, {h: 0}, $85.a1.a1, $85.a1.a2), pullsJsonStr => Prelude_IO_putStr(csegen_21(), pullsJsonStr), $a0, $a1);
|
|
2053
|
+
case 0: return Data_Promise_pure_Applicative_Promise(undefined, $a0, $a1);
|
|
1962
2054
|
}
|
|
1963
2055
|
};
|
|
1964
2056
|
}
|
|
1965
|
-
default: return $
|
|
2057
|
+
default: return $ba => $bb => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $ba, $bb);
|
|
1966
2058
|
}
|
|
1967
2059
|
}
|
|
1968
|
-
default: return $
|
|
2060
|
+
default: return $d0 => $d1 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $d0, $d1);
|
|
1969
2061
|
}
|
|
1970
2062
|
}
|
|
1971
|
-
default: return $
|
|
2063
|
+
default: return $e6 => $e7 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $e6, $e7);
|
|
1972
2064
|
}
|
|
1973
2065
|
}
|
|
1974
|
-
default: return $
|
|
2066
|
+
default: return $fc => $fd => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $fc, $fd);
|
|
1975
2067
|
}
|
|
1976
2068
|
}
|
|
1977
|
-
default: return $
|
|
2069
|
+
default: return $112 => $113 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $112, $113);
|
|
1978
2070
|
}
|
|
1979
2071
|
}
|
|
1980
2072
|
case 'user': {
|
|
@@ -1982,159 +2074,138 @@ function Main_handleConfiguredArgs($0, $1, $2, $3) {
|
|
|
1982
2074
|
case undefined: {
|
|
1983
2075
|
switch($3.a2.a1) {
|
|
1984
2076
|
case '--json': {
|
|
1985
|
-
return $
|
|
2077
|
+
return $12a => {
|
|
1986
2078
|
switch($3.a2.a2.h) {
|
|
1987
2079
|
case undefined: {
|
|
1988
|
-
return $
|
|
2080
|
+
return $12c => {
|
|
1989
2081
|
switch($3.a2.a2.a2.h) {
|
|
1990
|
-
case 0: return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_getUser($2)($3.a2.a2.a1), $
|
|
1991
|
-
default: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(
|
|
2082
|
+
case 0: return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_getUser($2)($3.a2.a2.a1), $135 => Prelude_IO_print({a1: csegen_21(), a2: {a1: x => Language_JSON_Data_show_Show_JSON(x), a2: d => x => Language_JSON_Data_showPrec_Show_JSON(d, x)}}, Data_User_json($135)), $12a, $12c);
|
|
2083
|
+
default: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $12a, $12c);
|
|
1992
2084
|
}
|
|
1993
2085
|
};
|
|
1994
2086
|
}
|
|
1995
|
-
default: return $
|
|
2087
|
+
default: return $15b => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $12a, $15b);
|
|
1996
2088
|
}
|
|
1997
2089
|
};
|
|
1998
2090
|
}
|
|
1999
|
-
default: return $
|
|
2091
|
+
default: return $170 => $171 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $170, $171);
|
|
2000
2092
|
}
|
|
2001
2093
|
}
|
|
2002
|
-
default: return $
|
|
2094
|
+
default: return $186 => $187 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $186, $187);
|
|
2003
2095
|
}
|
|
2004
2096
|
}
|
|
2005
2097
|
case 'whoami': {
|
|
2006
|
-
return $
|
|
2098
|
+
return $19c => $19d => {
|
|
2007
2099
|
switch($3.a2.h) {
|
|
2008
|
-
case 0: return User_Me_printInfoOnSelf($0, $2, $1, $
|
|
2009
|
-
default: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(
|
|
2100
|
+
case 0: return User_Me_printInfoOnSelf($0, $2, $1, $19c, $19d);
|
|
2101
|
+
default: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $19c, $19d);
|
|
2010
2102
|
}
|
|
2011
2103
|
};
|
|
2012
2104
|
}
|
|
2013
2105
|
case 'sync': {
|
|
2014
|
-
return $
|
|
2106
|
+
return $1b9 => $1ba => {
|
|
2015
2107
|
switch($3.a2.h) {
|
|
2016
|
-
case 0: return Data_Promise_map_Functor_Promise($
|
|
2017
|
-
default: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(
|
|
2108
|
+
case 0: return Data_Promise_map_Functor_Promise($1be => (undefined), $1c0 => $1c1 => Config_syncConfig($0, $2, 1, $1c0, $1c1), $1b9, $1ba);
|
|
2109
|
+
default: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $1b9, $1ba);
|
|
2018
2110
|
}
|
|
2019
2111
|
};
|
|
2020
2112
|
}
|
|
2021
2113
|
case 'branch': {
|
|
2022
|
-
return $
|
|
2114
|
+
return $1de => {
|
|
2023
2115
|
switch($3.a2.h) {
|
|
2024
|
-
case 0: return $
|
|
2025
|
-
default: return $
|
|
2116
|
+
case 0: return $1e0 => Main_printCurrentBranchURI($0, $1, $1de, $1e0);
|
|
2117
|
+
default: return $1e6 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $1de, $1e6);
|
|
2026
2118
|
}
|
|
2027
2119
|
};
|
|
2028
2120
|
}
|
|
2029
2121
|
case 'pr': {
|
|
2030
|
-
return $
|
|
2122
|
+
return $1fb => $1fc => {
|
|
2031
2123
|
switch($3.a2.h) {
|
|
2032
2124
|
case 0: {
|
|
2033
|
-
const $
|
|
2034
|
-
switch($
|
|
2125
|
+
const $217 = $218 => {
|
|
2126
|
+
switch($218.h) {
|
|
2035
2127
|
case undefined: {
|
|
2036
|
-
switch($
|
|
2037
|
-
case 0: return Prelude_IO_putStrLn(csegen_21(), Data_PullRequest_rf__webURI($0, $
|
|
2038
|
-
default: return
|
|
2128
|
+
switch($218.a1) {
|
|
2129
|
+
case 0: return Prelude_IO_putStrLn(csegen_21(), Data_PullRequest_rf__webURI($0, $218.a2));
|
|
2130
|
+
default: return csegen_129();
|
|
2039
2131
|
}
|
|
2040
2132
|
}
|
|
2041
|
-
default: return
|
|
2133
|
+
default: return csegen_129();
|
|
2042
2134
|
}
|
|
2043
2135
|
};
|
|
2044
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($
|
|
2136
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($200 => $201 => Data_Promise_x3ex3ex3d_Monad_Promise($204 => $205 => FFI_Git_currentBranch($1, $204, $205), $20b => $20c => $20d => PullRequest_identifyOrCreatePR($0, $1, $2, $20b, $20c, $20d), $200, $201), $217, $1fb, $1fc);
|
|
2045
2137
|
}
|
|
2046
|
-
default: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(
|
|
2138
|
+
default: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $1fb, $1fc);
|
|
2047
2139
|
}
|
|
2048
2140
|
};
|
|
2049
2141
|
}
|
|
2050
2142
|
case 'reflect': {
|
|
2051
|
-
return $
|
|
2143
|
+
return $23a => $23b => {
|
|
2052
2144
|
switch($3.a2.h) {
|
|
2053
|
-
case 0: return User_Reflect_reflectOnSelf($0, $2, $
|
|
2054
|
-
default: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(
|
|
2145
|
+
case 0: return User_Reflect_reflectOnSelf($0, $2, $23a, $23b);
|
|
2146
|
+
default: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $23a, $23b);
|
|
2055
2147
|
}
|
|
2056
2148
|
};
|
|
2057
2149
|
}
|
|
2058
|
-
case 'config': {
|
|
2059
|
-
switch($3.a2.h) {
|
|
2060
|
-
case undefined: {
|
|
2061
|
-
return $25f => {
|
|
2062
|
-
switch($3.a2.a2.h) {
|
|
2063
|
-
case 0: return $261 => Data_Promise_x3ex3ex3d_Monad_Promise($264 => Config_getConfig($0, $3.a2.a1, $264), value => Prelude_IO_putStrLn(csegen_21(), value), $25f, $261);
|
|
2064
|
-
case undefined: {
|
|
2065
|
-
return $270 => {
|
|
2066
|
-
switch($3.a2.a2.a2.h) {
|
|
2067
|
-
case 0: return Data_Promise_map_Functor_Promise($274 => (undefined), Config_setConfig($0, $3.a2.a1, $3.a2.a2.a1), $25f, $270);
|
|
2068
|
-
default: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $25f, $270);
|
|
2069
|
-
}
|
|
2070
|
-
};
|
|
2071
|
-
}
|
|
2072
|
-
default: return $290 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $25f, $290);
|
|
2073
|
-
}
|
|
2074
|
-
};
|
|
2075
|
-
}
|
|
2076
|
-
default: return $2a5 => $2a6 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_115(), $3), a2: {a1: '.', a2: {h: 0}}}}), $2a5, $2a6);
|
|
2077
|
-
}
|
|
2078
|
-
}
|
|
2079
2150
|
case 'contribute': {
|
|
2080
|
-
const $
|
|
2081
|
-
switch($
|
|
2082
|
-
case 1: return $
|
|
2083
|
-
case 0: return Main_exitError(csegen_21(), $
|
|
2151
|
+
const $256 = Main_parseContributeArgs($3.a2);
|
|
2152
|
+
switch($256.h) {
|
|
2153
|
+
case 1: return $259 => $25a => Main_contribute($0, $1, $2, $256.a1, $259, $25a);
|
|
2154
|
+
case 0: return Main_exitError(csegen_21(), $256.a1);
|
|
2084
2155
|
}
|
|
2085
2156
|
}
|
|
2086
2157
|
case 'list': {
|
|
2087
2158
|
switch($3.a2.h) {
|
|
2088
|
-
case 0: return $
|
|
2159
|
+
case 0: return $267 => $268 => Data_Promise_reject('The list command expects the name of a GitHub Team as an argument.', $267, $268);
|
|
2089
2160
|
case undefined: {
|
|
2090
|
-
return $
|
|
2161
|
+
return $26d => {
|
|
2091
2162
|
switch($3.a2.a2.h) {
|
|
2092
|
-
case 0: return $
|
|
2093
|
-
default: return $
|
|
2163
|
+
case 0: return $26f => Main_listTeam($0, $2, $3.a2.a1, $26d, $26f);
|
|
2164
|
+
default: return $276 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $26d, $276);
|
|
2094
2165
|
}
|
|
2095
2166
|
};
|
|
2096
2167
|
}
|
|
2097
|
-
default: return $
|
|
2168
|
+
default: return $28b => $28c => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $28b, $28c);
|
|
2098
2169
|
}
|
|
2099
2170
|
}
|
|
2100
2171
|
case 'graph': {
|
|
2101
2172
|
switch($3.a2.h) {
|
|
2102
|
-
case 0: return $
|
|
2173
|
+
case 0: return $2a2 => $2a3 => Data_Promise_reject('The graph command expects the name of a GitHub Team as an argument.', $2a2, $2a3);
|
|
2103
2174
|
case undefined: {
|
|
2104
|
-
return $
|
|
2175
|
+
return $2a8 => {
|
|
2105
2176
|
switch($3.a2.a2.h) {
|
|
2106
|
-
case 0: return $
|
|
2107
|
-
default: return $
|
|
2177
|
+
case 0: return $2aa => Main_graphTeam($0, $2, $3.a2.a1, $2a8, $2aa);
|
|
2178
|
+
default: return $2b1 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $2a8, $2b1);
|
|
2108
2179
|
}
|
|
2109
2180
|
};
|
|
2110
2181
|
}
|
|
2111
|
-
default: return $
|
|
2182
|
+
default: return $2c6 => $2c7 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $2c6, $2c7);
|
|
2112
2183
|
}
|
|
2113
2184
|
}
|
|
2114
2185
|
case 'assign': {
|
|
2115
2186
|
switch($3.a2.h) {
|
|
2116
|
-
case 0: return $
|
|
2187
|
+
case 0: return $2dd => $2de => Data_Promise_reject('The assign commaand expects one or more names of GitHub Teams or Users as arguments.', $2dd, $2de);
|
|
2117
2188
|
case undefined: {
|
|
2118
2189
|
switch($3.a2.a1) {
|
|
2119
2190
|
case '--dry': {
|
|
2120
|
-
return $
|
|
2191
|
+
return $2e4 => {
|
|
2121
2192
|
switch($3.a2.a2.h) {
|
|
2122
|
-
case 0: return $
|
|
2123
|
-
case undefined: return $
|
|
2124
|
-
default: return $
|
|
2193
|
+
case 0: return $2e6 => Data_Promise_reject('The assign commaand expects one or more names of GitHub Teams or Users as arguments.', $2e4, $2e6);
|
|
2194
|
+
case undefined: return $2eb => Main_assign($0, $1, $2, {a1: $3.a2.a2.a1, a2: $3.a2.a2.a2}, 1, $2e4, $2eb);
|
|
2195
|
+
default: return $2f6 => Main_assign($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2}, 0, $2e4, $2f6);
|
|
2125
2196
|
}
|
|
2126
2197
|
};
|
|
2127
2198
|
}
|
|
2128
|
-
default: return $
|
|
2199
|
+
default: return $301 => $302 => Main_assign($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2}, 0, $301, $302);
|
|
2129
2200
|
}
|
|
2130
2201
|
}
|
|
2131
|
-
default: return $
|
|
2202
|
+
default: return $30d => $30e => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $30d, $30e);
|
|
2132
2203
|
}
|
|
2133
2204
|
}
|
|
2134
|
-
default: return $
|
|
2205
|
+
default: return $323 => $324 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $323, $324);
|
|
2135
2206
|
}
|
|
2136
2207
|
}
|
|
2137
|
-
default: return $
|
|
2208
|
+
default: return $339 => $33a => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Unexpected command line arguments: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $3), a2: {a1: '.', a2: {h: 0}}}}), $339, $33a);
|
|
2138
2209
|
}
|
|
2139
2210
|
}
|
|
2140
2211
|
|
|
@@ -2149,30 +2220,30 @@ function Main_handleArgs($0, $1, $2, $3, $4) {
|
|
|
2149
2220
|
case undefined: {
|
|
2150
2221
|
switch($4.a2.a2.a2.h) {
|
|
2151
2222
|
case 0: return Main_bashCompletion(csegen_59(), $4.a2.a1, $4.a2.a2.a1);
|
|
2152
|
-
default: return Main_resolvex27x27($11 => $12 => Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
2223
|
+
default: return Main_resolvex27x27($11 => $12 => Data_Promise_x3ex3ex3d_Monad_Promise($15 => $16 => Config_loadOrCreateConfig($0, $1, $2, $3, $15, $16), config => Main_handleConfiguredArgs(config, $0, $1, $4), $11, $12));
|
|
2153
2224
|
}
|
|
2154
2225
|
}
|
|
2155
|
-
default: return Main_resolvex27x27($
|
|
2226
|
+
default: return Main_resolvex27x27($28 => $29 => Data_Promise_x3ex3ex3d_Monad_Promise($2c => $2d => Config_loadOrCreateConfig($0, $1, $2, $3, $2c, $2d), config => Main_handleConfiguredArgs(config, $0, $1, $4), $28, $29));
|
|
2156
2227
|
}
|
|
2157
2228
|
}
|
|
2158
|
-
default: return Main_resolvex27x27($
|
|
2229
|
+
default: return Main_resolvex27x27($3f => $40 => Data_Promise_x3ex3ex3d_Monad_Promise($43 => $44 => Config_loadOrCreateConfig($0, $1, $2, $3, $43, $44), config => Main_handleConfiguredArgs(config, $0, $1, $4), $3f, $40));
|
|
2159
2230
|
}
|
|
2160
2231
|
}
|
|
2161
2232
|
case '--bash-completion-script': {
|
|
2162
2233
|
switch($4.a2.h) {
|
|
2163
2234
|
case 0: return Prelude_IO_putStrLn(csegen_59(), BashCompletion_script());
|
|
2164
|
-
default: return Main_resolvex27x27($
|
|
2235
|
+
default: return Main_resolvex27x27($5c => $5d => Data_Promise_x3ex3ex3d_Monad_Promise($60 => $61 => Config_loadOrCreateConfig($0, $1, $2, $3, $60, $61), config => Main_handleConfiguredArgs(config, $0, $1, $4), $5c, $5d));
|
|
2165
2236
|
}
|
|
2166
2237
|
}
|
|
2167
|
-
default: return Main_resolvex27x27($
|
|
2238
|
+
default: return Main_resolvex27x27($73 => $74 => Data_Promise_x3ex3ex3d_Monad_Promise($77 => $78 => Config_loadOrCreateConfig($0, $1, $2, $3, $77, $78), config => Main_handleConfiguredArgs(config, $0, $1, $4), $73, $74));
|
|
2168
2239
|
}
|
|
2169
2240
|
}
|
|
2170
|
-
default: return Main_resolvex27x27($
|
|
2241
|
+
default: return Main_resolvex27x27($8a => $8b => Data_Promise_x3ex3ex3d_Monad_Promise($8e => $8f => Config_loadOrCreateConfig($0, $1, $2, $3, $8e, $8f), config => Main_handleConfiguredArgs(config, $0, $1, $4), $8a, $8b));
|
|
2171
2242
|
}
|
|
2172
2243
|
}
|
|
2173
2244
|
|
|
2174
2245
|
function Main_graphTeam($0, $1, $2, $3, $4) {
|
|
2175
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listTeamMembers($1, $0.a2, $2), teamMemberLogins => $d => $e => Data_Promise_x3ex3ex3d_Monad_Promise($11 => $12 => PullRequest_listReviewers($0, $1, 4n, csegen_134(), $11, $12), $1c =>
|
|
2246
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listTeamMembers($1, $0.a2, $2), teamMemberLogins => $d => $e => Data_Promise_x3ex3ex3d_Monad_Promise($11 => $12 => PullRequest_listReviewers($0, $1, 4n, csegen_134(), $11, $12), $1c => Util_renderIO($0, csegen_21(), Reviewer_reviewsGraph(csegen_110(), {a1: ann => $28 => Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($28), a2: ann => $2c => $2d => Text_PrettyPrint_Prettyprinter_Doc_prettyPrec_Pretty_String($2c, $2d)}, $1c.a2, $1c.a1, teamMemberLogins)), $d, $e), $3, $4);
|
|
2176
2247
|
}
|
|
2177
2248
|
|
|
2178
2249
|
function Main_exitError($0, $1) {
|
|
@@ -2212,21 +2283,21 @@ function Main_contribute($0, $1, $2, $3, $4, $5) {
|
|
|
2212
2283
|
};
|
|
2213
2284
|
const $35 = Prelude_Types_List_filter($37, openPrs);
|
|
2214
2285
|
const $3e = Data_List_partition($41 => Data_PullRequest_isRequestedReviewer(myLogin, $41), $35);
|
|
2215
|
-
return
|
|
2286
|
+
return Main_case__contribute_2186($1, $2, $3, $0, openPrs, myLogin, $21, $2f, $35, $3e, Prelude_Interfaces_mapHom({a1: d => b => c => a => $55 => $56 => $57 => ({a1: $55($57.a1), a2: $56($57.a2)}), a2: b => c => a => $60 => $61 => ({a1: $60($61.a1), a2: $61.a2}), a3: a => d => b => $68 => $69 => ({a1: $69.a1, a2: $68($69.a2)})}, $70 => Data_List_sortBy($73 => $74 => Prelude_Basics_on(csegen_141(), $79 => $79.a2, $73, $74), $70), $3e));
|
|
2216
2287
|
};
|
|
2217
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(
|
|
2288
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_102(), csegen_139(), FFI_GitHub_getSelf($2)), $20, $14, $15);
|
|
2218
2289
|
};
|
|
2219
2290
|
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequests($2, $0.a2, $0.a3, {a1: 0}, csegen_134(), 0n), $13, $4, $5);
|
|
2220
2291
|
}
|
|
2221
2292
|
|
|
2222
2293
|
function Main_bashCompletion($0, $1, $2) {
|
|
2223
|
-
const $3 = Prelude_Types_maybe(() =>
|
|
2294
|
+
const $3 = Prelude_Types_maybe(() => Main_n__6195_1583_configuredOpts($0, $2, $1), () => $b => $0.a1.a1.a2(undefined)($b), BashCompletion_cmdOpts($1, $2));
|
|
2224
2295
|
return $0.a1.a2(undefined)(undefined)($3)($21 => Prelude_IO_putStr($0, Data_String_fastUnlines($21)));
|
|
2225
2296
|
}
|
|
2226
2297
|
|
|
2227
2298
|
function Main_assign($0, $1, $2, $3, $4, $5, $6) {
|
|
2228
2299
|
return Data_Promise_x3ex3ex3d_Monad_Promise($9 => $a => Data_Promise_x3ex3ex3d_Monad_Promise($d => $e => FFI_Git_currentBranch($1, $d, $e), $14 => $15 => $16 => PullRequest_identifyOrCreatePR($0, $1, $2, $14, $15, $16), $9, $a), $21 => $22 => $24 => {
|
|
2229
|
-
const $25 =
|
|
2300
|
+
const $25 = Main_n__6325_1721_partitionedArgs($0, $1, $2, $4, $3);
|
|
2230
2301
|
return PullRequest_requestReviewers($0, $2, $21.a2, $25.a2, $25.a1, $4, $22, $24);
|
|
2231
2302
|
}, $5, $6);
|
|
2232
2303
|
}
|
|
@@ -2235,99 +2306,11 @@ function Main_x3cx7cx7cx3e($0, $1, $2, $3) {
|
|
|
2235
2306
|
return $0.a3(undefined)($1($3))(() => $2($3));
|
|
2236
2307
|
}
|
|
2237
2308
|
|
|
2238
|
-
|
|
2239
|
-
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)}, Prelude_Types_map_Functor_List(csegen_156(), $2a))), {a1: $7, a2: $9.a1});
|
|
2240
|
-
return Prelude_IO_putStrLn(csegen_21(), Util_renderString($0, 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)));
|
|
2241
|
-
}
|
|
2242
|
-
|
|
2243
|
-
function User_Reflect_n__5346_1432_ital($0, $1) {
|
|
2244
|
-
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
2245
|
-
}
|
|
2246
|
-
|
|
2247
|
-
function User_Me_n__6258_2372_handleUnsetEmail($0, $1, $2, $3) {
|
|
2248
|
-
switch($3) {
|
|
2249
|
-
case '': return 'Not set';
|
|
2250
|
-
default: return $3;
|
|
2251
|
-
}
|
|
2252
|
-
}
|
|
2253
|
-
|
|
2254
|
-
const User_Reflect_rightTitle = __lazy(function () {
|
|
2255
|
-
return 'authored';
|
|
2256
|
-
});
|
|
2257
|
-
|
|
2258
|
-
const User_Reflect_reviewDetailsCount = __lazy(function () {
|
|
2259
|
-
return 25n;
|
|
2260
|
-
});
|
|
2261
|
-
|
|
2262
|
-
function User_replicatex27($0, $1, $2) {
|
|
2263
|
-
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color($0), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_String_replicate($1, $2)));
|
|
2264
|
-
}
|
|
2265
|
-
|
|
2266
|
-
function User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
2267
|
-
const $c = prs => $d => $e => {
|
|
2268
|
-
const $19 = myLogin => $1a => $1b => {
|
|
2269
|
-
const $37 = reviews => {
|
|
2270
|
-
const $38 = Prelude_Types_map_Functor_Maybe(csegen_159(), Data_List_headx27(Data_List_sortBy($41 => $42 => Prelude_Basics_on(csegen_141(), csegen_159(), $41, $42), reviews)));
|
|
2271
|
-
const $4b = PullRequest_tuple(prs);
|
|
2272
|
-
const $4e = Prelude_Interfaces_mapHom({a1: d => b => c => a => $52 => $53 => $54 => ({a1: $52($54.a1), a2: $53($54.a2)}), a2: b => c => a => $5d => $5e => ({a1: $5d($5e.a1), a2: $5e.a2}), a3: a => d => b => $65 => $66 => ({a1: $66.a1, a2: $65($66.a2)})}, $6d => Prelude_Types_List_filter($70 => Prelude_EqOrd_x3dx3d_Eq_String($70.a3, myLogin), $6d), $4b);
|
|
2273
|
-
return User_Reflect_case__casex20blockx20inx20reflectOnSelf_2238($0, $1, prs, myLogin, reviews, $38, $4b, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom({a1: d => b => c => a => $85 => $86 => $87 => ({a1: $85($87.a1), a2: $86($87.a2)}), a2: b => c => a => $90 => $91 => ({a1: $90($91.a1), a2: $91.a2}), a3: a => d => b => $98 => $99 => ({a1: $99.a1, a2: $98($99.a2)})}, $a0 => Prelude_Types_List_filter($a3 => Prelude_Interfaces_any(csegen_77(), $a8 => Prelude_EqOrd_x3dx3d_Eq_String($a8, myLogin), $a3.a5), $a0), $4b));
|
|
2274
|
-
};
|
|
2275
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_reviewsForUser($0, $1, myLogin, Data_List_take(User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2b => $2c => Prelude_Basics_on(csegen_141(), csegen_156(), $2b, $2c), PullRequest_combined(prs))))), $37, $1a, $1b);
|
|
2276
|
-
};
|
|
2277
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_103(), csegen_139(), FFI_GitHub_getSelf($1)), $19, $d, $e);
|
|
2278
|
-
};
|
|
2279
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_listPartitionedPRs($0, $1, 4n, User_Reflect_prCount()), $c, $2, $3);
|
|
2280
|
-
}
|
|
2281
|
-
|
|
2282
|
-
function User_Me_printInfoOnSelf($0, $1, $2, $3, $4) {
|
|
2283
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_103(), $b => User_Me_n__6258_2372_handleUnsetEmail($0, $1, $2, $b), $12 => $13 => FFI_Git_userEmail($2, $12, $13)), gitEmail => $19 => $1a => Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_getSelf($1), githubUser => $20 => $21 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_103(), csegen_112(), FFI_GitHub_listMyTeams($1)), githubTeams => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Git Email: ', a2: {a1: gitEmail, a2: {h: 0}}})), () => Prelude_Interfaces_x3ex3e(csegen_15(), csegen_161(), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'GitHub Name: ', a2: {a1: githubUser.a2, a2: {h: 0}}})), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'GitHub Login: ', a2: {a1: githubUser.a1, a2: {h: 0}}})), () => Prelude_Interfaces_x3ex3e(csegen_15(), csegen_161(), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), 'GitHub Teams:'), () => Prelude_Interfaces_traverse_(csegen_9(), csegen_77(), $83 => Prelude_IO_putStrLn(csegen_21(), $83), githubTeams))))))), $20, $21), $19, $1a), $3, $4);
|
|
2284
|
-
}
|
|
2285
|
-
|
|
2286
|
-
function User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
2287
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: User_Reflect_graph($0, $1, $2, $3, $4, $5), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}});
|
|
2288
|
-
}
|
|
2289
|
-
|
|
2290
|
-
const User_Reflect_prCount = __lazy(function () {
|
|
2291
|
-
return csegen_134();
|
|
2292
|
-
});
|
|
2293
|
-
|
|
2294
|
-
const User_Reflect_leftTitle = __lazy(function () {
|
|
2295
|
-
return 'requested';
|
|
2296
|
-
});
|
|
2297
|
-
|
|
2298
|
-
const User_Reflect_intro = __lazy(function () {
|
|
2299
|
-
return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Your current pull request summary (out of the past ', a2: {a1: Data_Fin_show_Show_x28Finx20x24nx29(User_Reflect_prCount()), a2: {a1: ' PRs):', a2: {h: 0}}}});
|
|
2300
|
-
});
|
|
2301
|
-
|
|
2302
|
-
function User_Reflect_header($0) {
|
|
2303
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Prelude_Cast_cast_Cast_Nat_Int($0), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: User_Reflect_n__5346_1432_ital($0, User_Reflect_leftTitle()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' '), a2: {a1: User_Reflect_n__5346_1432_ital($0, User_Reflect_rightTitle()), a2: {h: 0}}}}));
|
|
2304
|
-
}
|
|
2305
|
-
|
|
2306
|
-
function User_Reflect_graph($0, $1, $2, $3, $4, $5) {
|
|
2307
|
-
const $6 = ($2+$3);
|
|
2308
|
-
const $9 = ($5+$4);
|
|
2309
|
-
const $c = Prelude_Types_foldr_Foldable_List(csegen_167(), Prelude_Types_String_length(User_Reflect_leftTitle()), {a1: ($6+$1), a2: {a1: $9, a2: {h: 0}}});
|
|
2310
|
-
const $1b = Prelude_Types_foldr_Foldable_List(csegen_167(), Prelude_Types_String_length(User_Reflect_rightTitle()), {a1: $6, a2: {a1: $9, a2: {h: 0}}});
|
|
2311
|
-
const $28 = (($c+$1b)+3n);
|
|
2312
|
-
const $2d = ((Prelude_Cast_cast_Cast_Nat_Double($0)/2.0)-(Prelude_Cast_cast_Cast_Nat_Double($28)/2.0));
|
|
2313
|
-
const $38 = (Prelude_Cast_cast_Cast_Double_Nat($2d)+Prelude_Types_prim__integerToNat(($c-Prelude_Types_String_length(User_Reflect_leftTitle()))));
|
|
2314
|
-
const $44 = (Prelude_Cast_cast_Cast_Double_Nat($2d)+Prelude_Types_prim__integerToNat(($c-($6+$1))));
|
|
2315
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: User_Reflect_header($38), a2: {a1: User_Reflect_chart($0, $1, $2, $3, $4, $5, $44), a2: {h: 0}}});
|
|
2316
|
-
}
|
|
2317
|
-
|
|
2318
|
-
function User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
2319
|
-
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('Requested Reviews:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('unreviewed:')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($2)), a2: {h: 0}}})}, a2: {a1: Prelude_Interfaces_x3cx26x3e(csegen_18(), $8, csegen_169()), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('closed:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(1), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($3)), a2: {h: 0}}})}, a2: {h: 0}}}})))}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('reviews*:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($1)), a2: {h: 0}}})}, a2: {a1: Prelude_Interfaces_x3cx26x3e(csegen_18(), $6, date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('most recent:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date(date)), a2: {h: 0}}}))), a2: {h: 0}}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Authored Pulls:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($5)), a2: {h: 0}}})}, a2: {a1: Prelude_Interfaces_x3cx26x3e(csegen_18(), $7, csegen_169()), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('closed:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($4)), a2: {h: 0}}})}, a2: {h: 0}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {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}}}}}}}}}});
|
|
2320
|
-
}
|
|
2321
|
-
|
|
2322
|
-
function User_Reflect_chart($0, $1, $2, $3, $4, $5, $6) {
|
|
2323
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Prelude_Cast_cast_Cast_Nat_Int($6), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(User_replicatex27(2, $1, '\u{b7}'), User_replicatex27(1, $3, '\u{25e6}')), User_replicatex27(3, $2, '<')), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('|'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(User_replicatex27(3, $5, '>'), User_replicatex27(2, $4, '\u{b7}')))));
|
|
2324
|
-
}
|
|
2325
|
-
|
|
2326
|
-
const Util_n__4424_1177_startOver = __lazy(function () {
|
|
2309
|
+
const Util_n__4503_1237_startOver = __lazy(function () {
|
|
2327
2310
|
return {a1: 0, a2: {h: 0}};
|
|
2328
2311
|
});
|
|
2329
2312
|
|
|
2330
|
-
function
|
|
2313
|
+
function Util_n__4503_1238_guardSuccess($0) {
|
|
2331
2314
|
switch($0.h) {
|
|
2332
2315
|
case undefined: {
|
|
2333
2316
|
switch($0.a1) {
|
|
@@ -2340,12 +2323,12 @@ function Util_n__4424_1178_guardSuccess($0) {
|
|
|
2340
2323
|
}
|
|
2341
2324
|
}
|
|
2342
2325
|
|
|
2343
|
-
function
|
|
2326
|
+
function Util_n__4503_1239_go($0, $1) {
|
|
2344
2327
|
switch($0.a1) {
|
|
2345
2328
|
case 0: {
|
|
2346
2329
|
switch(Prelude_Types_isAlpha($1)) {
|
|
2347
2330
|
case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
|
|
2348
|
-
case 0: return
|
|
2331
|
+
case 0: return Util_n__4503_1237_startOver();
|
|
2349
2332
|
}
|
|
2350
2333
|
}
|
|
2351
2334
|
case 1: {
|
|
@@ -2354,7 +2337,7 @@ function Util_n__4424_1179_go($0, $1) {
|
|
|
2354
2337
|
default: {
|
|
2355
2338
|
switch(Prelude_Types_isAlpha($1)) {
|
|
2356
2339
|
case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
|
|
2357
|
-
case 0: return
|
|
2340
|
+
case 0: return Util_n__4503_1237_startOver();
|
|
2358
2341
|
}
|
|
2359
2342
|
}
|
|
2360
2343
|
}
|
|
@@ -2362,7 +2345,7 @@ function Util_n__4424_1179_go($0, $1) {
|
|
|
2362
2345
|
case 2: {
|
|
2363
2346
|
switch(Prelude_Types_isDigit($1)) {
|
|
2364
2347
|
case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
|
|
2365
|
-
case 0: return
|
|
2348
|
+
case 0: return Util_n__4503_1237_startOver();
|
|
2366
2349
|
}
|
|
2367
2350
|
}
|
|
2368
2351
|
case 3: {
|
|
@@ -2375,7 +2358,7 @@ function Util_n__4424_1179_go($0, $1) {
|
|
|
2375
2358
|
}
|
|
2376
2359
|
}
|
|
2377
2360
|
|
|
2378
|
-
function
|
|
2361
|
+
function Util_n__4390_1128_getMoreLines($0, $1, $2) {
|
|
2379
2362
|
switch($2.h) {
|
|
2380
2363
|
case 0: return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1));
|
|
2381
2364
|
case undefined: {
|
|
@@ -2386,13 +2369,13 @@ function Util_n__4311_1068_getMoreLines($0, $1, $2) {
|
|
|
2386
2369
|
case '': {
|
|
2387
2370
|
switch(line) {
|
|
2388
2371
|
case '': return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1.a2));
|
|
2389
|
-
default: return
|
|
2372
|
+
default: return Util_n__4390_1128_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
2390
2373
|
}
|
|
2391
2374
|
}
|
|
2392
|
-
default: return
|
|
2375
|
+
default: return Util_n__4390_1128_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
2393
2376
|
}
|
|
2394
2377
|
}
|
|
2395
|
-
default: return
|
|
2378
|
+
default: return Util_n__4390_1128_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
2396
2379
|
}
|
|
2397
2380
|
};
|
|
2398
2381
|
return $0.a1.a2(undefined)(undefined)(Prelude_Interfaces_x3cx24x3e($0.a1.a1.a1, $1c => Data_String_trim($1c), Prelude_IO_getLine($0)))($22);
|
|
@@ -2416,12 +2399,28 @@ function Util_renderString($0, $1) {
|
|
|
2416
2399
|
return Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString($3);
|
|
2417
2400
|
}
|
|
2418
2401
|
|
|
2402
|
+
function Util_renderIO($0, $1, $2) {
|
|
2403
|
+
let $9;
|
|
2404
|
+
switch(Data_Config_rf__colors($0)) {
|
|
2405
|
+
case 1: {
|
|
2406
|
+
$9 = $2;
|
|
2407
|
+
break;
|
|
2408
|
+
}
|
|
2409
|
+
case 0: {
|
|
2410
|
+
$9 = Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($2);
|
|
2411
|
+
break;
|
|
2412
|
+
}
|
|
2413
|
+
}
|
|
2414
|
+
const $7 = Text_PrettyPrint_Prettyprinter_Render_Terminal_putDoc($9);
|
|
2415
|
+
return $1.a2(undefined)($7);
|
|
2416
|
+
}
|
|
2417
|
+
|
|
2419
2418
|
function Util_parseJiraPrefix($0) {
|
|
2420
|
-
return Prelude_Types_map_Functor_Maybe($3 => Prelude_Types_fastPack(Prelude_Types_List_reverse($3)),
|
|
2419
|
+
return Prelude_Types_map_Functor_Maybe($3 => Prelude_Types_fastPack(Prelude_Types_List_reverse($3)), Util_n__4503_1238_guardSuccess(Prelude_Types_foldl_Foldable_List($d => $e => Util_n__4503_1239_go($d, $e), Util_n__4503_1237_startOver(), Prelude_Types_fastUnpack($0))));
|
|
2421
2420
|
}
|
|
2422
2421
|
|
|
2423
2422
|
function Util_getManyLines($0, $1) {
|
|
2424
|
-
return
|
|
2423
|
+
return Util_n__4390_1128_getMoreLines($0, {h: 0}, $1);
|
|
2425
2424
|
}
|
|
2426
2425
|
|
|
2427
2426
|
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5087_writeOutput($0, $1, $2, $3) {
|
|
@@ -2435,7 +2434,7 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5084_push($0, $1
|
|
|
2435
2434
|
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5086_pop($0, $1, $2) {
|
|
2436
2435
|
const $9 = $a => {
|
|
2437
2436
|
switch($a.h) {
|
|
2438
|
-
case undefined: return Prelude_Interfaces_x3ex3e(
|
|
2437
|
+
case undefined: return Prelude_Interfaces_x3ex3e(csegen_159(), $10 => ($1.value=$a.a2), () => $16 => ({a1: $a.a1}));
|
|
2439
2438
|
case 0: return $18 => ({h: 0});
|
|
2440
2439
|
}
|
|
2441
2440
|
};
|
|
@@ -2455,16 +2454,16 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5085_peek($0, $1
|
|
|
2455
2454
|
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5088_go($0, $1, $2, $3) {
|
|
2456
2455
|
switch($3.h) {
|
|
2457
2456
|
case 0: return $5 => (undefined);
|
|
2458
|
-
case 1: return Prelude_Interfaces_x3ex3e(
|
|
2459
|
-
case 2: return Prelude_Interfaces_x3ex3e(
|
|
2460
|
-
case 3: return Prelude_Interfaces_x3ex3e(
|
|
2457
|
+
case 1: return Prelude_Interfaces_x3ex3e(csegen_159(), $a => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5087_writeOutput($0, $2, Data_String_singleton($3.a1), $a), () => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5088_go($0, $1, $2, $3.a2()));
|
|
2458
|
+
case 2: return Prelude_Interfaces_x3ex3e(csegen_159(), $1d => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5087_writeOutput($0, $2, $3.a2, $1d), () => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5088_go($0, $1, $2, $3.a3()));
|
|
2459
|
+
case 3: return Prelude_Interfaces_x3ex3e(csegen_159(), $2e => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5087_writeOutput($0, $2, (Data_String_singleton('\n')+Text_PrettyPrint_Prettyprinter_Doc_textSpaces($3.a1)), $2e), () => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5088_go($0, $1, $2, $3.a2));
|
|
2461
2460
|
case 4: {
|
|
2462
2461
|
return $40 => {
|
|
2463
2462
|
const $48 = $49 => {
|
|
2464
2463
|
switch($49.h) {
|
|
2465
2464
|
case undefined: {
|
|
2466
2465
|
const $4b = Prelude_Types_List_tailRecAppend($3.a1, $49.a1);
|
|
2467
|
-
return Prelude_Interfaces_x3ex3e(
|
|
2466
|
+
return Prelude_Interfaces_x3ex3e(csegen_159(), $53 => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5084_push($0, $1, $4b, $53), () => Prelude_Interfaces_x3ex3e(csegen_159(), $5e => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5087_writeOutput($0, $2, Control_ANSI_SGR_escapeSGR($4b), $5e), () => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5088_go($0, $1, $2, $3.a2)));
|
|
2468
2467
|
}
|
|
2469
2468
|
case 0: return $6c => ($1.value={h: 0});
|
|
2470
2469
|
}
|
|
@@ -2477,7 +2476,7 @@ function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5088_go($0, $1,
|
|
|
2477
2476
|
const $7a = _ => $7b => {
|
|
2478
2477
|
const $83 = $84 => {
|
|
2479
2478
|
switch($84.h) {
|
|
2480
|
-
case undefined: return Prelude_Interfaces_x3ex3e(
|
|
2479
|
+
case undefined: return Prelude_Interfaces_x3ex3e(csegen_159(), $8a => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5087_writeOutput($0, $2, Control_ANSI_SGR_escapeSGR({a1: {h: 0}, a2: $84.a1}), $8a), () => Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5088_go($0, $1, $2, $3.a1));
|
|
2481
2480
|
case 0: return $9a => ($1.value={h: 0});
|
|
2482
2481
|
}
|
|
2483
2482
|
};
|
|
@@ -2494,7 +2493,7 @@ const Text_PrettyPrint_Prettyprinter_Render_Terminal_underline = __lazy(function
|
|
|
2494
2493
|
});
|
|
2495
2494
|
|
|
2496
2495
|
function Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString($0) {
|
|
2497
|
-
return Data_Maybe_fromMaybe(() => '<internal pretty printing error>', Control_Monad_ST_runST($6 => $7 => Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($a => Control_Monad_ST_newSTRef({a1: {h: 0}, a2: {h: 0}}, $a), styleStackRef => $11 => Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($14 => Control_Monad_ST_newSTRef('', $14), outputRef => Prelude_Interfaces_x3ex3e(
|
|
2496
|
+
return Data_Maybe_fromMaybe(() => '<internal pretty printing error>', Control_Monad_ST_runST($6 => $7 => Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($a => Control_Monad_ST_newSTRef({a1: {h: 0}, a2: {h: 0}}, $a), styleStackRef => $11 => Control_Monad_ST_x3ex3ex3d_Monad_x28STx20x24sx29($14 => Control_Monad_ST_newSTRef('', $14), outputRef => Prelude_Interfaces_x3ex3e(csegen_159(), Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5088_go($0, styleStackRef, outputRef, $0), () => $23 => {
|
|
2498
2497
|
const $2a = $2b => {
|
|
2499
2498
|
switch($2b.h) {
|
|
2500
2499
|
case 0: return $2d => ({h: 0});
|
|
@@ -2738,7 +2737,7 @@ function Text_PrettyPrint_Prettyprinter_Doc_hsep($0) {
|
|
|
2738
2737
|
}
|
|
2739
2738
|
|
|
2740
2739
|
function Text_PrettyPrint_Prettyprinter_Doc_hcat($0) {
|
|
2741
|
-
return Text_PrettyPrint_Prettyprinter_Doc_concatWith(
|
|
2740
|
+
return Text_PrettyPrint_Prettyprinter_Doc_concatWith(csegen_172(), $0);
|
|
2742
2741
|
}
|
|
2743
2742
|
|
|
2744
2743
|
function Text_PrettyPrint_Prettyprinter_Doc_hang($0, $1) {
|
|
@@ -2783,10 +2782,10 @@ function Text_PrettyPrint_Prettyprinter_Doc_encloseSep($0, $1, $2, $3) {
|
|
|
2783
2782
|
case undefined: {
|
|
2784
2783
|
switch($3.a2.h) {
|
|
2785
2784
|
case 0: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29($0, $3.a1), $1);
|
|
2786
|
-
default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(
|
|
2785
|
+
default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(csegen_172(), {a1: $0, a2: Data_List_replicate(Prelude_Types_prim__integerToNat((Prelude_Types_List_lengthTR($3)-1n)), $2)}, $3)), $1);
|
|
2787
2786
|
}
|
|
2788
2787
|
}
|
|
2789
|
-
default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(
|
|
2788
|
+
default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(csegen_172(), {a1: $0, a2: Data_List_replicate(Prelude_Types_prim__integerToNat((Prelude_Types_List_lengthTR($3)-1n)), $2)}, $3)), $1);
|
|
2790
2789
|
}
|
|
2791
2790
|
}
|
|
2792
2791
|
|
|
@@ -3013,11 +3012,11 @@ function Data_String_lines($0) {
|
|
|
3013
3012
|
}
|
|
3014
3013
|
|
|
3015
3014
|
function Data_String_isSuffixOf($0, $1) {
|
|
3016
|
-
return Data_List_isSuffixOf(
|
|
3015
|
+
return Data_List_isSuffixOf(csegen_176(), Prelude_Types_fastUnpack($0), Prelude_Types_fastUnpack($1));
|
|
3017
3016
|
}
|
|
3018
3017
|
|
|
3019
3018
|
function Data_String_isPrefixOf($0, $1) {
|
|
3020
|
-
return Data_List_isPrefixOf(
|
|
3019
|
+
return Data_List_isPrefixOf(csegen_176(), Prelude_Types_fastUnpack($0), Prelude_Types_fastUnpack($1));
|
|
3021
3020
|
}
|
|
3022
3021
|
|
|
3023
3022
|
function Data_String_indent($0, $1) {
|
|
@@ -3122,7 +3121,7 @@ function Prelude_Types_n__9361_8543_hexChars($0) {
|
|
|
3122
3121
|
function Prelude_Types_traverse_Traversable_List($0, $1, $2) {
|
|
3123
3122
|
switch($2.h) {
|
|
3124
3123
|
case 0: return $0.a2(undefined)({h: 0});
|
|
3125
|
-
case undefined: return $0.a3(undefined)(undefined)($0.a3(undefined)(undefined)($0.a2(undefined)(
|
|
3124
|
+
case undefined: return $0.a3(undefined)(undefined)($0.a3(undefined)(undefined)($0.a2(undefined)(csegen_192()))($1($2.a1)))(Prelude_Types_traverse_Traversable_List($0, $1, $2.a2));
|
|
3126
3125
|
}
|
|
3127
3126
|
}
|
|
3128
3127
|
|
|
@@ -3134,11 +3133,11 @@ function Prelude_Types_traverse_Traversable_x28Eitherx20x24ex29($0, $1, $2) {
|
|
|
3134
3133
|
}
|
|
3135
3134
|
|
|
3136
3135
|
function Prelude_Types_toList_Foldable_Maybe($0) {
|
|
3137
|
-
return Prelude_Types_foldr_Foldable_Maybe(
|
|
3136
|
+
return Prelude_Types_foldr_Foldable_Maybe(csegen_192(), {h: 0}, $0);
|
|
3138
3137
|
}
|
|
3139
3138
|
|
|
3140
3139
|
function Prelude_Types_toList_Foldable_x28Eitherx20x24ex29($0) {
|
|
3141
|
-
return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29(
|
|
3140
|
+
return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29(csegen_192(), {h: 0}, $0);
|
|
3142
3141
|
}
|
|
3143
3142
|
|
|
3144
3143
|
function Prelude_Types_rangeFromTo_Range_x24a($0, $1, $2) {
|
|
@@ -3257,7 +3256,7 @@ function Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29($0, $1, $2) {
|
|
|
3257
3256
|
}
|
|
3258
3257
|
|
|
3259
3258
|
function Prelude_Types_foldl_Foldable_x28Eitherx20x24ex29($0, $1, $2) {
|
|
3260
|
-
return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29($6 => $7 => Prelude_Basics_flip(
|
|
3259
|
+
return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29($6 => $7 => Prelude_Basics_flip(csegen_193(), $c => Prelude_Basics_flip($0, $6, $c), $7), $13 => $13, $2)($1);
|
|
3261
3260
|
}
|
|
3262
3261
|
|
|
3263
3262
|
function Prelude_Types_foldlM_Foldable_List($0, $1, $2, $3) {
|
|
@@ -3466,7 +3465,7 @@ function Prelude_Types_isLower($0) {
|
|
|
3466
3465
|
}
|
|
3467
3466
|
|
|
3468
3467
|
function Prelude_Types_isHexDigit($0) {
|
|
3469
|
-
return Prelude_Types_elem(csegen_77(),
|
|
3468
|
+
return Prelude_Types_elem(csegen_77(), csegen_176(), Prelude_Types_toUpper($0), Prelude_Types_n__9361_8543_hexChars($0));
|
|
3470
3469
|
}
|
|
3471
3470
|
|
|
3472
3471
|
function Prelude_Types_isDigit($0) {
|
|
@@ -3890,10 +3889,6 @@ function Prelude_Interfaces_when($0, $1, $2) {
|
|
|
3890
3889
|
}
|
|
3891
3890
|
}
|
|
3892
3891
|
|
|
3893
|
-
function Prelude_Interfaces_traverse_($0, $1, $2, $3) {
|
|
3894
|
-
return $1.a1(undefined)(undefined)($d => $e => Prelude_Interfaces_x2ax3e($0, $2($d), $e))($0.a2(undefined)(undefined))($3);
|
|
3895
|
-
}
|
|
3896
|
-
|
|
3897
3892
|
function Prelude_Interfaces_mapHom($0, $1, $2) {
|
|
3898
3893
|
return $0.a1(undefined)(undefined)(undefined)(undefined)($1)($1)($2);
|
|
3899
3894
|
}
|
|
@@ -4770,7 +4765,7 @@ function Control_ANSI_SGR_cast_Cast_Blink_String($0) {
|
|
|
4770
4765
|
}
|
|
4771
4766
|
|
|
4772
4767
|
function Control_ANSI_SGR_escapeSGR($0) {
|
|
4773
|
-
return ('\u{1b}['+(Prelude_Interfaces_concat(csegen_62(), csegen_77(), Data_List_intersperse(';', Prelude_Interfaces_x3cx24x3e(
|
|
4768
|
+
return ('\u{1b}['+(Prelude_Interfaces_concat(csegen_62(), csegen_77(), Data_List_intersperse(';', Prelude_Interfaces_x3cx24x3e(csegen_118(), $11 => Control_ANSI_SGR_n__3202_2726_toCode($0, $11), $0)))+'m'));
|
|
4774
4769
|
}
|
|
4775
4770
|
|
|
4776
4771
|
const Text_PrettyPrint_Prettyprinter_Symbols_rparen = __lazy(function () {
|
|
@@ -4799,18 +4794,24 @@ const Data_Fuel_forever = __lazy(function () {
|
|
|
4799
4794
|
return {a1: () => Data_Fuel_forever()};
|
|
4800
4795
|
});
|
|
4801
4796
|
|
|
4802
|
-
function
|
|
4797
|
+
function Data_Config_n__5095_7865_personalAccessToken($0) {
|
|
4798
|
+
return Prelude_Types_maybe(() => 'Not set (will use $GITHUB_PAT environment variable)', () => $4 => Data_Config_show_Show_x28Hiddenx20x24ax29($4), $0.a10);
|
|
4799
|
+
}
|
|
4800
|
+
|
|
4801
|
+
function Data_Config_n__5476_8233_parseConfigJson($0, $1) {
|
|
4803
4802
|
switch($1.h) {
|
|
4804
4803
|
case 5: {
|
|
4805
4804
|
const $18 = $19 => {
|
|
4806
|
-
const $
|
|
4807
|
-
|
|
4808
|
-
|
|
4809
|
-
|
|
4805
|
+
const $23 = Data_List_lookup(csegen_94(), 'defaultRemote', $1.a1);
|
|
4806
|
+
const $29 = Data_List_lookup(csegen_94(), 'githubPAT', $1.a1);
|
|
4807
|
+
const $32 = $33 => $34 => $35 => $36 => {
|
|
4808
|
+
switch($36.h) {
|
|
4809
|
+
case 0: return {h: 0, a1: $36.a1};
|
|
4810
|
+
case 1: return {h: 1, a1: $35($36.a1)};
|
|
4810
4811
|
}
|
|
4811
4812
|
};
|
|
4812
|
-
const $
|
|
4813
|
-
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($
|
|
4813
|
+
const $30 = Prelude_Interfaces_x3cx24x3e($32, $3d => Prelude_Cast_cast_Cast_Integer_Bits32($3d), Language_JSON_Accessors_integer($19.a1));
|
|
4814
|
+
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($30, ua => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($19.a2.a1), o => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($19.a2.a2.a1), r => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Types_maybe(() => ({h: 1, a1: {h: 0}}), () => csegen_241(), $23), dr => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($19.a2.a2.a2.a1), mb => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($19.a2.a2.a2.a2.a1), at => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($19.a2.a2.a2.a2.a2.a1), ca => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($6a => Language_JSON_Accessors_string($6a), $19.a2.a2.a2.a2.a2.a2.a1), ts => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($73 => Language_JSON_Accessors_string($73), $19.a2.a2.a2.a2.a2.a2.a2.a1), om => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Types_maybe(() => ({h: 1, a1: {h: 0}}), () => csegen_241(), $29), gp => ({h: 1, a1: {a1: ua, a2: o, a3: r, a4: dr, a5: mb, a6: at, a7: ca, a8: ts, a9: om, a10: Prelude_Types_map_Functor_Maybe($8e => $8e, gp), a11: $0}})))))))))));
|
|
4814
4815
|
};
|
|
4815
4816
|
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'updatedAt', a2: {a1: 'org', a2: {a1: 'repo', a2: {a1: 'mainBranch', a2: {a1: 'assignTeams', a2: {a1: 'commentOnAssign', a2: {a1: 'teamSlugs', a2: {a1: 'orgMembers', a2: {h: 0}}}}}}}}}, $1.a1), $18);
|
|
4816
4817
|
}
|
|
@@ -4819,8 +4820,16 @@ function Data_Config_n__5186_7922_parseConfigJson($0, $1) {
|
|
|
4819
4820
|
}
|
|
4820
4821
|
}
|
|
4821
4822
|
|
|
4823
|
+
function Data_Config_n__5095_7864_defaultRemote($0) {
|
|
4824
|
+
return Prelude_Types_maybe(() => 'Not set (defaults to \"origin\")', () => $4 => Prelude_Show_show_Show_String($4), $0.a4);
|
|
4825
|
+
}
|
|
4826
|
+
|
|
4822
4827
|
function Data_Config_show_Show_Config($0) {
|
|
4823
|
-
return Data_String_fastUnlines({a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' updatedAt: ', a2: {a1: Prelude_Show_show_Show_Bits32($0.a1), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' org: ', a2: {a1: Prelude_Show_show_Show_String($0.a2), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' repo: ', a2: {a1: Prelude_Show_show_Show_String($0.a3), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' mainBranch: ', a2: {a1: Prelude_Show_show_Show_String($0.
|
|
4828
|
+
return Data_String_fastUnlines({a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' updatedAt: ', a2: {a1: Prelude_Show_show_Show_Bits32($0.a1), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' org: ', a2: {a1: Prelude_Show_show_Show_String($0.a2), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' repo: ', a2: {a1: Prelude_Show_show_Show_String($0.a3), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' defaultRemote: ', a2: {a1: Data_Config_n__5095_7864_defaultRemote($0), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' mainBranch: ', a2: {a1: Prelude_Show_show_Show_String($0.a5), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' assignTeams: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a6), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'commentOnAssign: ', a2: {a1: Prelude_Show_show_Show_Bool($0.a7), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' teamSlugs: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $0.a8), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' orgMembers: ', a2: {a1: Prelude_Show_show_Show_x28Listx20x24ax29(csegen_114(), $0.a9), a2: {h: 0}}}), a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' githubPAT: ', a2: {a1: Data_Config_n__5095_7865_personalAccessToken($0), a2: {h: 0}}}), a2: {h: 0}}}}}}}}}}});
|
|
4829
|
+
}
|
|
4830
|
+
|
|
4831
|
+
function Data_Config_show_Show_x28Hiddenx20x24ax29($0) {
|
|
4832
|
+
return 'xxxxxxxx (hidden)';
|
|
4824
4833
|
}
|
|
4825
4834
|
|
|
4826
4835
|
function Data_Config_showPrec_Show_Config($0, $1) {
|
|
@@ -4828,19 +4837,19 @@ function Data_Config_showPrec_Show_Config($0, $1) {
|
|
|
4828
4837
|
}
|
|
4829
4838
|
|
|
4830
4839
|
function Data_Config_rf__filepath($0) {
|
|
4831
|
-
return $0.
|
|
4840
|
+
return $0.a11.a1;
|
|
4832
4841
|
}
|
|
4833
4842
|
|
|
4834
4843
|
function Data_Config_rf__editor($0) {
|
|
4835
|
-
return $0.
|
|
4844
|
+
return $0.a11.a3;
|
|
4836
4845
|
}
|
|
4837
4846
|
|
|
4838
4847
|
function Data_Config_rf__colors($0) {
|
|
4839
|
-
return $0.
|
|
4848
|
+
return $0.a11.a2;
|
|
4840
4849
|
}
|
|
4841
4850
|
|
|
4842
4851
|
const Data_Config_settableProps = __lazy(function () {
|
|
4843
|
-
return {a1: 'assignTeams', a2: {a1: 'commentOnAssign', a2: {h: 0}}};
|
|
4852
|
+
return {a1: 'assignTeams', a2: {a1: 'commentOnAssign', a2: {a1: 'defaultRemote', a2: {a1: 'githubPAT', a2: {h: 0}}}}};
|
|
4844
4853
|
});
|
|
4845
4854
|
|
|
4846
4855
|
function Data_Config_parseConfig($0, $1) {
|
|
@@ -4862,12 +4871,12 @@ function Data_Config_parseConfig($0, $1) {
|
|
|
4862
4871
|
}
|
|
4863
4872
|
};
|
|
4864
4873
|
const $4 = {a1: $5, a2: a => $d => ({h: 1, a1: $d}), a3: $f};
|
|
4865
|
-
const $3 = {a1: $4, a2:
|
|
4866
|
-
return Prelude_Interfaces_x3ex3dx3e($3,
|
|
4874
|
+
const $3 = {a1: $4, a2: csegen_247(), a3: csegen_248()};
|
|
4875
|
+
return Prelude_Interfaces_x3ex3dx3e($3, csegen_249(), $20 => Data_Config_n__5476_8233_parseConfigJson($0, $20), $1);
|
|
4867
4876
|
}
|
|
4868
4877
|
|
|
4869
4878
|
function Data_Config_json($0) {
|
|
4870
|
-
return {h: 5, a1: {a1: {a1: '
|
|
4879
|
+
return {h: 5, a1: {a1: {a1: 'assignTeams', a2: {h: 1, a1: $0.a6}}, a2: {a1: {a1: 'commentOnAssign', a2: {h: 1, a1: $0.a7}}, a2: {a1: {a1: 'org', a2: {h: 3, a1: $0.a2}}, a2: {a1: {a1: 'repo', a2: {h: 3, a1: $0.a3}}, a2: {a1: {a1: 'defaultRemote', a2: Prelude_Types_maybe(() => ({h: 0}), () => $1d => ({h: 3, a1: $1d}), $0.a4)}, a2: {a1: {a1: 'mainBranch', a2: {h: 3, a1: $0.a5}}, a2: {a1: {a1: 'orgMembers', a2: {h: 4, a1: Prelude_Interfaces_x3cx24x3e(csegen_118(), $2e => ({h: 3, a1: $2e}), Data_List_sort(csegen_110(), $0.a9))}}, a2: {a1: {a1: 'teamSlugs', a2: {h: 4, a1: Prelude_Interfaces_x3cx24x3e(csegen_118(), $3e => ({h: 3, a1: $3e}), Data_List_sort(csegen_110(), $0.a8))}}, a2: {a1: {a1: 'githubPAT', a2: Prelude_Types_maybe(() => ({h: 0}), () => $4c => ({h: 3, a1: $4c}), $0.a10)}, a2: {a1: {a1: 'updatedAt', a2: {h: 2, a1: Prelude_Cast_cast_Cast_Bits32_Double($0.a1)}}, a2: {h: 0}}}}}}}}}}}};
|
|
4871
4880
|
}
|
|
4872
4881
|
|
|
4873
4882
|
const Data_Config_filename = __lazy(function () {
|
|
@@ -4885,6 +4894,21 @@ function Language_JSON_Accessors_string($0) {
|
|
|
4885
4894
|
}
|
|
4886
4895
|
}
|
|
4887
4896
|
|
|
4897
|
+
function Language_JSON_Accessors_optional($0, $1) {
|
|
4898
|
+
switch($1.h) {
|
|
4899
|
+
case 0: return {h: 1, a1: {h: 0}};
|
|
4900
|
+
default: {
|
|
4901
|
+
const $5 = $6 => $7 => $8 => $9 => {
|
|
4902
|
+
switch($9.h) {
|
|
4903
|
+
case 0: return {h: 0, a1: $9.a1};
|
|
4904
|
+
case 1: return {h: 1, a1: $8($9.a1)};
|
|
4905
|
+
}
|
|
4906
|
+
};
|
|
4907
|
+
return Prelude_Interfaces_x3cx24x3e($5, $10 => ({a1: $10}), $0($1));
|
|
4908
|
+
}
|
|
4909
|
+
}
|
|
4910
|
+
}
|
|
4911
|
+
|
|
4888
4912
|
function Language_JSON_Accessors_object($0) {
|
|
4889
4913
|
switch($0.h) {
|
|
4890
4914
|
case 5: return {h: 1, a1: $0.a1};
|
|
@@ -4991,17 +5015,17 @@ function Text_Bounded_mergeBounds($0, $1) {
|
|
|
4991
5015
|
switch($1.h) {
|
|
4992
5016
|
case undefined: {
|
|
4993
5017
|
switch($1.a2) {
|
|
4994
|
-
case 1: return Prelude_Interfaces_x3cx24x3e(
|
|
5018
|
+
case 1: return Prelude_Interfaces_x3cx24x3e(csegen_252(), $e => $1.a1, $0);
|
|
4995
5019
|
default: {
|
|
4996
|
-
const $10 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
4997
|
-
const $1c = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
5020
|
+
const $10 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_263(), csegen_263(), Text_Bounded_start($0), Text_Bounded_start($1));
|
|
5021
|
+
const $1c = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_263(), csegen_263(), Text_Bounded_end($0), Text_Bounded_end($1));
|
|
4998
5022
|
return {a1: $1.a1, a2: 0, a3: {a1: $10.a1, a2: $10.a2, a3: $1c.a1, a4: $1c.a2}};
|
|
4999
5023
|
}
|
|
5000
5024
|
}
|
|
5001
5025
|
}
|
|
5002
5026
|
default: {
|
|
5003
|
-
const $30 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
5004
|
-
const $3c = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
5027
|
+
const $30 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_263(), csegen_263(), Text_Bounded_start($0), Text_Bounded_start($1));
|
|
5028
|
+
const $3c = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_263(), csegen_263(), Text_Bounded_end($0), Text_Bounded_end($1));
|
|
5005
5029
|
return {a1: $1.a1, a2: 0, a3: {a1: $30.a1, a2: $30.a2, a3: $3c.a1, a4: $3c.a2}};
|
|
5006
5030
|
}
|
|
5007
5031
|
}
|
|
@@ -5012,17 +5036,17 @@ function Text_Bounded_mergeBounds($0, $1) {
|
|
|
5012
5036
|
switch($1.h) {
|
|
5013
5037
|
case undefined: {
|
|
5014
5038
|
switch($1.a2) {
|
|
5015
|
-
case 1: return Prelude_Interfaces_x3cx24x3e(
|
|
5039
|
+
case 1: return Prelude_Interfaces_x3cx24x3e(csegen_252(), $56 => $1.a1, $0);
|
|
5016
5040
|
default: {
|
|
5017
|
-
const $58 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
5018
|
-
const $64 = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
5041
|
+
const $58 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_263(), csegen_263(), Text_Bounded_start($0), Text_Bounded_start($1));
|
|
5042
|
+
const $64 = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_263(), csegen_263(), Text_Bounded_end($0), Text_Bounded_end($1));
|
|
5019
5043
|
return {a1: $1.a1, a2: 0, a3: {a1: $58.a1, a2: $58.a2, a3: $64.a1, a4: $64.a2}};
|
|
5020
5044
|
}
|
|
5021
5045
|
}
|
|
5022
5046
|
}
|
|
5023
5047
|
default: {
|
|
5024
|
-
const $78 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
5025
|
-
const $84 = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
5048
|
+
const $78 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_263(), csegen_263(), Text_Bounded_start($0), Text_Bounded_start($1));
|
|
5049
|
+
const $84 = Prelude_EqOrd_max_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_263(), csegen_263(), Text_Bounded_end($0), Text_Bounded_end($1));
|
|
5026
5050
|
return {a1: $1.a1, a2: 0, a3: {a1: $78.a1, a2: $78.a2, a3: $84.a1, a4: $84.a2}};
|
|
5027
5051
|
}
|
|
5028
5052
|
}
|
|
@@ -5241,7 +5265,7 @@ const Language_JSON_Parser_string = __lazy(function () {
|
|
|
5241
5265
|
});
|
|
5242
5266
|
|
|
5243
5267
|
const Language_JSON_Parser_rawString = __lazy(function () {
|
|
5244
|
-
return {h: 8, a1: 0, a2: Text_Parser_match(
|
|
5268
|
+
return {h: 8, a1: 0, a2: Text_Parser_match(csegen_271(), csegen_274(), {h: 2}), a3: () => mstr => {
|
|
5245
5269
|
switch(mstr.h) {
|
|
5246
5270
|
case undefined: return {h: 0, a1: mstr.a1};
|
|
5247
5271
|
case 0: return {h: 4, a1: {h: 0}, a2: 0, a3: 'invalid string'};
|
|
@@ -5250,7 +5274,7 @@ const Language_JSON_Parser_rawString = __lazy(function () {
|
|
|
5250
5274
|
});
|
|
5251
5275
|
|
|
5252
5276
|
function Language_JSON_Parser_punct($0) {
|
|
5253
|
-
return Text_Parser_match(
|
|
5277
|
+
return Text_Parser_match(csegen_271(), csegen_274(), {h: 4, a1: $0});
|
|
5254
5278
|
}
|
|
5255
5279
|
|
|
5256
5280
|
function Language_JSON_Parser_parseJSON($0) {
|
|
@@ -5283,11 +5307,11 @@ const Language_JSON_Parser_object = __lazy(function () {
|
|
|
5283
5307
|
});
|
|
5284
5308
|
|
|
5285
5309
|
const Language_JSON_Parser_number = __lazy(function () {
|
|
5286
|
-
return Text_Parser_Core_map_Functor_x28x28x28Grammarx20x24statex29x20x24tokx29x20x24cx29(1, $3 => ({h: 2, a1: $3}), Text_Parser_match(
|
|
5310
|
+
return Text_Parser_Core_map_Functor_x28x28x28Grammarx20x24statex29x20x24tokx29x20x24cx29(1, $3 => ({h: 2, a1: $3}), Text_Parser_match(csegen_271(), csegen_274(), {h: 1}));
|
|
5287
5311
|
});
|
|
5288
5312
|
|
|
5289
5313
|
const Language_JSON_Parser_null = __lazy(function () {
|
|
5290
|
-
return Text_Parser_Core_map_Functor_x28x28x28Grammarx20x24statex29x20x24tokx29x20x24cx29(1, $3 => ({h: 0}), Text_Parser_match(
|
|
5314
|
+
return Text_Parser_Core_map_Functor_x28x28x28Grammarx20x24statex29x20x24tokx29x20x24cx29(1, $3 => ({h: 0}), Text_Parser_match(csegen_271(), csegen_274(), {h: 3}));
|
|
5291
5315
|
});
|
|
5292
5316
|
|
|
5293
5317
|
const Language_JSON_Parser_json = __lazy(function () {
|
|
@@ -5295,7 +5319,7 @@ const Language_JSON_Parser_json = __lazy(function () {
|
|
|
5295
5319
|
});
|
|
5296
5320
|
|
|
5297
5321
|
const Language_JSON_Parser_boolean = __lazy(function () {
|
|
5298
|
-
return Text_Parser_Core_map_Functor_x28x28x28Grammarx20x24statex29x20x24tokx29x20x24cx29(1, $3 => ({h: 1, a1: $3}), Text_Parser_match(
|
|
5322
|
+
return Text_Parser_Core_map_Functor_x28x28x28Grammarx20x24statex29x20x24tokx29x20x24cx29(1, $3 => ({h: 1, a1: $3}), Text_Parser_match(csegen_271(), csegen_274(), {h: 0}));
|
|
5299
5323
|
});
|
|
5300
5324
|
|
|
5301
5325
|
const Language_JSON_Parser_array = __lazy(function () {
|
|
@@ -5471,7 +5495,7 @@ function Text_Lexer_opt($0) {
|
|
|
5471
5495
|
}
|
|
5472
5496
|
|
|
5473
5497
|
function Text_Lexer_oneOf($0) {
|
|
5474
|
-
return Text_Lexer_Core_pred(x => Prelude_Types_elem(csegen_77(),
|
|
5498
|
+
return Text_Lexer_Core_pred(x => Prelude_Types_elem(csegen_77(), csegen_176(), x, Prelude_Types_fastUnpack($0)));
|
|
5475
5499
|
}
|
|
5476
5500
|
|
|
5477
5501
|
function Text_Lexer_non($0) {
|
|
@@ -5748,11 +5772,11 @@ function Language_JSON_String_Tokens_charValue($0) {
|
|
|
5748
5772
|
}
|
|
5749
5773
|
|
|
5750
5774
|
const Language_JSON_String_Parser_stringChar = __lazy(function () {
|
|
5751
|
-
return {h: 12, a1: 1, a2: 1, a3: Text_Parser_match(
|
|
5775
|
+
return {h: 12, a1: 1, a2: 1, a3: Text_Parser_match(csegen_310(), csegen_313(), 1), a4: () => ({h: 12, a1: 1, a2: 1, a3: Text_Parser_match(csegen_310(), csegen_313(), 2), a4: () => Text_Parser_match(csegen_310(), csegen_313(), 3)})};
|
|
5752
5776
|
});
|
|
5753
5777
|
|
|
5754
5778
|
const Language_JSON_String_Parser_quotedString = __lazy(function () {
|
|
5755
|
-
const $0 = Text_Parser_match(
|
|
5779
|
+
const $0 = Text_Parser_match(csegen_310(), csegen_313(), 0);
|
|
5756
5780
|
return {h: 8, a1: 0, a2: Text_Parser_between(0, $0, $0, Text_Parser_many(Language_JSON_String_Parser_stringChar())), a3: () => chars => ({h: 11, a1: 0, a2: 0, a3: {h: 3}, a4: {h: 0, a1: Prelude_Types_fastPack(chars)}})};
|
|
5757
5781
|
});
|
|
5758
5782
|
|
|
@@ -5814,7 +5838,7 @@ function Text_Parser_between($0, $1, $2, $3) {
|
|
|
5814
5838
|
function Text_Parser_Core_case__doParse_5194($0, $1, $2, $3, $4, $5) {
|
|
5815
5839
|
switch($5.h) {
|
|
5816
5840
|
case 0: return {h: 0, a1: $5.a1, a2: $5.a2, a3: $5.a3};
|
|
5817
|
-
case 1: return {h: 1, a1: $5.a1, a2: $5.a2, a3: Prelude_Interfaces_x3cx24x3e(
|
|
5841
|
+
case 1: return {h: 1, a1: $5.a1, a2: $5.a2, a3: Prelude_Interfaces_x3cx24x3e(csegen_329(), $11 => $5.a3, $5.a3), a4: $5.a4};
|
|
5818
5842
|
}
|
|
5819
5843
|
}
|
|
5820
5844
|
|
|
@@ -6238,12 +6262,12 @@ function Text_Parser_Core_doParse($0, $1, $2, $3, $4) {
|
|
|
6238
6262
|
case 7: return Text_Parser_Core_case__doParse_4048($0, $1, $3.a1, $4, $2, Text_Parser_Core_doParse($0, $1, $2, $3.a1, $4));
|
|
6239
6263
|
case 1: {
|
|
6240
6264
|
switch($4.h) {
|
|
6241
|
-
case 0: return {h: 0, a1: $2, a2: 0, a3:
|
|
6265
|
+
case 0: return {h: 0, a1: $2, a2: 0, a3: csegen_331()};
|
|
6242
6266
|
case undefined: {
|
|
6243
6267
|
const $44 = $3.a2($4.a1.a1);
|
|
6244
6268
|
switch($44.h) {
|
|
6245
6269
|
case 0: return {h: 0, a1: $2, a2: 0, a3: {a1: {a1: $3.a1, a2: {a1: $4.a1.a3}}, a2: {h: 0}}};
|
|
6246
|
-
case undefined: return {h: 1, a1: $1, a2: $2, a3: Prelude_Interfaces_x3cx24x3e(
|
|
6270
|
+
case undefined: return {h: 1, a1: $1, a2: $2, a3: Prelude_Interfaces_x3cx24x3e(csegen_329(), $58 => $44.a1, $4.a1), a4: $4.a2};
|
|
6247
6271
|
}
|
|
6248
6272
|
}
|
|
6249
6273
|
}
|
|
@@ -6256,7 +6280,7 @@ function Text_Parser_Core_doParse($0, $1, $2, $3, $4) {
|
|
|
6256
6280
|
}
|
|
6257
6281
|
case 2: {
|
|
6258
6282
|
switch($4.h) {
|
|
6259
|
-
case 0: return {h: 0, a1: $2, a2: 0, a3:
|
|
6283
|
+
case 0: return {h: 0, a1: $2, a2: 0, a3: csegen_331()};
|
|
6260
6284
|
case undefined: {
|
|
6261
6285
|
switch($3.a2($4.a1.a1)) {
|
|
6262
6286
|
case 1: return {h: 1, a1: $1, a2: $2, a3: Text_Bounded_removeIrrelevance($4.a1), a4: {a1: $4.a1, a2: $4.a2}};
|
|
@@ -6285,7 +6309,7 @@ function Text_Parser_Core_doParse($0, $1, $2, $3, $4) {
|
|
|
6285
6309
|
case 13: return Text_Parser_Core_case__doParse_5194($0, $1, $3.a1, $4, $2, Text_Parser_Core_doParse($0, $1, $2, $3.a1, $4));
|
|
6286
6310
|
case 14: {
|
|
6287
6311
|
switch($4.h) {
|
|
6288
|
-
case 0: return {h: 0, a1: $2, a2: 0, a3:
|
|
6312
|
+
case 0: return {h: 0, a1: $2, a2: 0, a3: csegen_331()};
|
|
6289
6313
|
case undefined: return {h: 1, a1: $1, a2: $2, a3: Text_Bounded_irrelevantBounds($4.a1.a3), a4: {a1: $4.a1, a2: $4.a2}};
|
|
6290
6314
|
}
|
|
6291
6315
|
}
|
|
@@ -6391,7 +6415,7 @@ function Decidable_Equality_decEq_DecEq_FromEqx24a($0, $1, $2) {
|
|
|
6391
6415
|
}
|
|
6392
6416
|
|
|
6393
6417
|
function Decidable_Equality_decEq_DecEq_Char($0, $1) {
|
|
6394
|
-
return Decidable_Equality_decEq_DecEq_FromEqx24a(
|
|
6418
|
+
return Decidable_Equality_decEq_DecEq_FromEqx24a(csegen_176(), $0, $1);
|
|
6395
6419
|
}
|
|
6396
6420
|
|
|
6397
6421
|
function Data_Either_maybeToEither($0, $1) {
|
|
@@ -6401,6 +6425,137 @@ function Data_Either_maybeToEither($0, $1) {
|
|
|
6401
6425
|
}
|
|
6402
6426
|
}
|
|
6403
6427
|
|
|
6428
|
+
function User_Reflect_case__casex20blockx20inx20reflectOnSelf_2298($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
6429
|
+
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)}, Prelude_Types_map_Functor_List(csegen_383(), $2a))), {a1: $7, a2: $9.a1});
|
|
6430
|
+
return Util_renderIO($0, csegen_21(), 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));
|
|
6431
|
+
}
|
|
6432
|
+
|
|
6433
|
+
function User_Me_n__6283_2415_ul($0, $1, $2, $3) {
|
|
6434
|
+
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3));
|
|
6435
|
+
}
|
|
6436
|
+
|
|
6437
|
+
function User_Me_n__6283_2421_teams($0, $1, $2) {
|
|
6438
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: User_Me_n__6283_2415_ul($0, $1, $2, 'GitHub Teams:'), a2: Prelude_Types_map_Functor_List($e => User_Me_n__6283_2416_it($0, $1, $2, $e), $0)});
|
|
6439
|
+
}
|
|
6440
|
+
|
|
6441
|
+
function User_Me_n__6283_2420_login($0, $1, $2) {
|
|
6442
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'), User_Me_n__6283_2417_green($0, $1, $2, $1.a1));
|
|
6443
|
+
}
|
|
6444
|
+
|
|
6445
|
+
function User_Reflect_n__5376_1492_ital($0, $1) {
|
|
6446
|
+
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
6447
|
+
}
|
|
6448
|
+
|
|
6449
|
+
function User_Me_n__6283_2416_it($0, $1, $2, $3) {
|
|
6450
|
+
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3));
|
|
6451
|
+
}
|
|
6452
|
+
|
|
6453
|
+
function User_Me_n__6423_2571_handleUnsetEmail($0, $1, $2, $3) {
|
|
6454
|
+
switch($3) {
|
|
6455
|
+
case '': return {h: 0};
|
|
6456
|
+
default: return {a1: $3};
|
|
6457
|
+
}
|
|
6458
|
+
}
|
|
6459
|
+
|
|
6460
|
+
function User_Me_n__6283_2417_green($0, $1, $2, $3) {
|
|
6461
|
+
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3));
|
|
6462
|
+
}
|
|
6463
|
+
|
|
6464
|
+
function User_Me_n__6283_2419_fullName($0, $1, $2) {
|
|
6465
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'), User_Me_n__6283_2417_green($0, $1, $2, $1.a2));
|
|
6466
|
+
}
|
|
6467
|
+
|
|
6468
|
+
function User_Me_n__6283_2418_email($0, $1, $2) {
|
|
6469
|
+
let $7;
|
|
6470
|
+
switch($2.h) {
|
|
6471
|
+
case undefined: {
|
|
6472
|
+
$7 = User_Me_n__6283_2417_green($0, $1, $2, $2.a1);
|
|
6473
|
+
break;
|
|
6474
|
+
}
|
|
6475
|
+
case 0: {
|
|
6476
|
+
$7 = User_Me_n__6283_2416_it($0, $1, $2, 'Not set');
|
|
6477
|
+
break;
|
|
6478
|
+
}
|
|
6479
|
+
}
|
|
6480
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Git Email:'), $7);
|
|
6481
|
+
}
|
|
6482
|
+
|
|
6483
|
+
const User_Reflect_rightTitle = __lazy(function () {
|
|
6484
|
+
return 'authored';
|
|
6485
|
+
});
|
|
6486
|
+
|
|
6487
|
+
const User_Reflect_reviewDetailsCount = __lazy(function () {
|
|
6488
|
+
return 25n;
|
|
6489
|
+
});
|
|
6490
|
+
|
|
6491
|
+
function User_replicatex27($0, $1, $2) {
|
|
6492
|
+
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color($0), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_String_replicate($1, $2)));
|
|
6493
|
+
}
|
|
6494
|
+
|
|
6495
|
+
function User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
6496
|
+
const $c = prs => $d => $e => {
|
|
6497
|
+
const $19 = myLogin => $1a => $1b => {
|
|
6498
|
+
const $37 = reviews => {
|
|
6499
|
+
const $38 = Prelude_Types_map_Functor_Maybe(csegen_386(), Data_List_headx27(Data_List_sortBy($41 => $42 => Prelude_Basics_on(csegen_141(), csegen_386(), $41, $42), reviews)));
|
|
6500
|
+
const $4b = PullRequest_tuple(prs);
|
|
6501
|
+
const $4e = Prelude_Interfaces_mapHom({a1: d => b => c => a => $52 => $53 => $54 => ({a1: $52($54.a1), a2: $53($54.a2)}), a2: b => c => a => $5d => $5e => ({a1: $5d($5e.a1), a2: $5e.a2}), a3: a => d => b => $65 => $66 => ({a1: $66.a1, a2: $65($66.a2)})}, $6d => Prelude_Types_List_filter($70 => Prelude_EqOrd_x3dx3d_Eq_String($70.a3, myLogin), $6d), $4b);
|
|
6502
|
+
return User_Reflect_case__casex20blockx20inx20reflectOnSelf_2298($0, $1, prs, myLogin, reviews, $38, $4b, $4e.a1, $4e.a2, Prelude_Interfaces_mapHom({a1: d => b => c => a => $85 => $86 => $87 => ({a1: $85($87.a1), a2: $86($87.a2)}), a2: b => c => a => $90 => $91 => ({a1: $90($91.a1), a2: $91.a2}), a3: a => d => b => $98 => $99 => ({a1: $99.a1, a2: $98($99.a2)})}, $a0 => Prelude_Types_List_filter($a3 => Prelude_Interfaces_any(csegen_77(), $a8 => Prelude_EqOrd_x3dx3d_Eq_String($a8, myLogin), $a3.a5), $a0), $4b));
|
|
6503
|
+
};
|
|
6504
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_reviewsForUser($0, $1, myLogin, Data_List_take(User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2b => $2c => Prelude_Basics_on(csegen_141(), csegen_383(), $2b, $2c), PullRequest_combined(prs))))), $37, $1a, $1b);
|
|
6505
|
+
};
|
|
6506
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_102(), csegen_139(), FFI_GitHub_getSelf($1)), $19, $d, $e);
|
|
6507
|
+
};
|
|
6508
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_listPartitionedPRs($0, $1, 4n, User_Reflect_prCount()), $c, $2, $3);
|
|
6509
|
+
}
|
|
6510
|
+
|
|
6511
|
+
function User_Me_printInfoOnSelf($0, $1, $2, $3, $4) {
|
|
6512
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_102(), $b => User_Me_n__6423_2571_handleUnsetEmail($0, $1, $2, $b), $12 => $13 => FFI_Git_userEmail($2, $12, $13)), gitEmail => $19 => $1a => Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_getSelf($1), githubUser => $20 => $21 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_102(), csegen_111(), FFI_GitHub_listMyTeams($1)), githubTeams => Util_renderIO($0, csegen_21(), User_Me_print(gitEmail, githubUser, githubTeams)), $20, $21), $19, $1a), $3, $4);
|
|
6513
|
+
}
|
|
6514
|
+
|
|
6515
|
+
function User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
6516
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: User_Reflect_graph($0, $1, $2, $3, $4, $5), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}});
|
|
6517
|
+
}
|
|
6518
|
+
|
|
6519
|
+
function User_Me_print($0, $1, $2) {
|
|
6520
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: User_Me_n__6283_2418_email($2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: User_Me_n__6283_2419_fullName($2, $1, $0), a2: {a1: User_Me_n__6283_2420_login($2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: User_Me_n__6283_2421_teams($2, $1, $0), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}}}}});
|
|
6521
|
+
}
|
|
6522
|
+
|
|
6523
|
+
const User_Reflect_prCount = __lazy(function () {
|
|
6524
|
+
return csegen_134();
|
|
6525
|
+
});
|
|
6526
|
+
|
|
6527
|
+
const User_Reflect_leftTitle = __lazy(function () {
|
|
6528
|
+
return 'requested';
|
|
6529
|
+
});
|
|
6530
|
+
|
|
6531
|
+
const User_Reflect_intro = __lazy(function () {
|
|
6532
|
+
return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Your current pull request summary (out of the past ', a2: {a1: Data_Fin_show_Show_x28Finx20x24nx29(User_Reflect_prCount()), a2: {a1: ' PRs):', a2: {h: 0}}}});
|
|
6533
|
+
});
|
|
6534
|
+
|
|
6535
|
+
function User_Reflect_header($0) {
|
|
6536
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Prelude_Cast_cast_Cast_Nat_Int($0), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: User_Reflect_n__5376_1492_ital($0, User_Reflect_leftTitle()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(' '), a2: {a1: User_Reflect_n__5376_1492_ital($0, User_Reflect_rightTitle()), a2: {h: 0}}}}));
|
|
6537
|
+
}
|
|
6538
|
+
|
|
6539
|
+
function User_Reflect_graph($0, $1, $2, $3, $4, $5) {
|
|
6540
|
+
const $6 = ($2+$3);
|
|
6541
|
+
const $9 = ($5+$4);
|
|
6542
|
+
const $c = Prelude_Types_foldr_Foldable_List(csegen_391(), Prelude_Types_String_length(User_Reflect_leftTitle()), {a1: ($6+$1), a2: {a1: $9, a2: {h: 0}}});
|
|
6543
|
+
const $1b = Prelude_Types_foldr_Foldable_List(csegen_391(), Prelude_Types_String_length(User_Reflect_rightTitle()), {a1: $6, a2: {a1: $9, a2: {h: 0}}});
|
|
6544
|
+
const $28 = (($c+$1b)+3n);
|
|
6545
|
+
const $2d = ((Prelude_Cast_cast_Cast_Nat_Double($0)/2.0)-(Prelude_Cast_cast_Cast_Nat_Double($28)/2.0));
|
|
6546
|
+
const $38 = (Prelude_Cast_cast_Cast_Double_Nat($2d)+Prelude_Types_prim__integerToNat(($c-Prelude_Types_String_length(User_Reflect_leftTitle()))));
|
|
6547
|
+
const $44 = (Prelude_Cast_cast_Cast_Double_Nat($2d)+Prelude_Types_prim__integerToNat(($c-($6+$1))));
|
|
6548
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: User_Reflect_header($38), a2: {a1: User_Reflect_chart($0, $1, $2, $3, $4, $5, $44), a2: {h: 0}}});
|
|
6549
|
+
}
|
|
6550
|
+
|
|
6551
|
+
function User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
6552
|
+
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('Requested Reviews:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('unreviewed:')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($2)), a2: {h: 0}}})}, a2: {a1: Prelude_Interfaces_x3cx26x3e(csegen_18(), $8, csegen_393()), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('closed:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(1), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($3)), a2: {h: 0}}})}, a2: {h: 0}}}})))}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('reviews*:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($1)), a2: {h: 0}}})}, a2: {a1: Prelude_Interfaces_x3cx26x3e(csegen_18(), $6, date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('most recent:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date(date)), a2: {h: 0}}}))), a2: {h: 0}}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Authored Pulls:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($5)), a2: {h: 0}}})}, a2: {a1: Prelude_Interfaces_x3cx26x3e(csegen_18(), $7, csegen_393()), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('closed:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($4)), a2: {h: 0}}})}, a2: {h: 0}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {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}}}}}}}}}});
|
|
6553
|
+
}
|
|
6554
|
+
|
|
6555
|
+
function User_Reflect_chart($0, $1, $2, $3, $4, $5, $6) {
|
|
6556
|
+
return Text_PrettyPrint_Prettyprinter_Doc_indent(Prelude_Cast_cast_Cast_Nat_Int($6), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(User_replicatex27(2, $1, '\u{b7}'), User_replicatex27(1, $3, '\u{25e6}')), User_replicatex27(3, $2, '<')), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('|'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(User_replicatex27(3, $5, '>'), User_replicatex27(2, $4, '\u{b7}')))));
|
|
6557
|
+
}
|
|
6558
|
+
|
|
6404
6559
|
function PullRequest_with__withx20blockx20inx20listPartitionedPRs_1206($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
6405
6560
|
switch($2.h) {
|
|
6406
6561
|
case 1: return $9 => PullRequest_partitionx27(Data_Pagination_metaPages($0, 1n, $4, 1n, $4), $7, $9);
|
|
@@ -6413,114 +6568,107 @@ function PullRequest_with__listPartitionedPRs_1144($0, $1, $2, $3, $4) {
|
|
|
6413
6568
|
case 1: return $7 => $8 => Data_Promise_pure_Applicative_Promise(PullRequest_empty(), $7, $8);
|
|
6414
6569
|
default: {
|
|
6415
6570
|
switch($2.a2.h) {
|
|
6416
|
-
case 1: return Prelude_Interfaces_x3cx24x3e(
|
|
6571
|
+
case 1: return Prelude_Interfaces_x3cx24x3e(csegen_102(), $13 => PullRequest_partition($13), FFI_GitHub_listPullRequests($3, $4.a2, $4.a3, {h: 0}, $0, 0n));
|
|
6417
6572
|
default: return $22 => PullRequest_with__withx20blockx20inx20listPartitionedPRs_1206($0, $1, Data_Nat_isLTE(($1+1n), $0), $3, $2.a1.a1, $2.a2.a1, $4, $22);
|
|
6418
6573
|
}
|
|
6419
6574
|
}
|
|
6420
6575
|
}
|
|
6421
6576
|
}
|
|
6422
6577
|
|
|
6423
|
-
function
|
|
6578
|
+
function PullRequest_case__identifyOrCreatePRx2ccreatePR_2353($0, $1, $2, $3, $4, $5) {
|
|
6424
6579
|
switch($5.h) {
|
|
6425
6580
|
case undefined: return ($5.a1+$5.a2);
|
|
6426
|
-
default: return $3.
|
|
6581
|
+
default: return $3.a5;
|
|
6427
6582
|
}
|
|
6428
6583
|
}
|
|
6429
6584
|
|
|
6430
|
-
function
|
|
6585
|
+
function PullRequest_n__6887_1428_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
6431
6586
|
switch($6.h) {
|
|
6432
6587
|
case 0: {
|
|
6433
6588
|
switch($2.h) {
|
|
6434
6589
|
case 0: return 'no users';
|
|
6435
|
-
default: return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1:
|
|
6590
|
+
default: return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: PullRequest_n__6887_1427_csv($0, $1, $2, $3, $4, $5, $2), a2: {h: 0}});
|
|
6436
6591
|
}
|
|
6437
6592
|
}
|
|
6438
|
-
case undefined: return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1:
|
|
6593
|
+
case undefined: return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: PullRequest_n__6887_1427_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: $2}), a2: {h: 0}});
|
|
6439
6594
|
}
|
|
6440
6595
|
}
|
|
6441
6596
|
|
|
6442
|
-
function
|
|
6597
|
+
function PullRequest_n__6887_1429_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
6443
6598
|
switch($6.h) {
|
|
6444
6599
|
case 0: return '';
|
|
6445
6600
|
case undefined: {
|
|
6446
6601
|
switch($6.a2.h) {
|
|
6447
|
-
case 0: return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' and team ', a2: {a1:
|
|
6448
|
-
default: return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' and teams ', a2: {a1:
|
|
6602
|
+
case 0: return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' and team ', a2: {a1: PullRequest_n__6887_1427_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: {h: 0}}), a2: {h: 0}}});
|
|
6603
|
+
default: return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' and teams ', a2: {a1: PullRequest_n__6887_1427_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
6449
6604
|
}
|
|
6450
6605
|
}
|
|
6451
|
-
default: return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' and teams ', a2: {a1:
|
|
6606
|
+
default: return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' and teams ', a2: {a1: PullRequest_n__6887_1427_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
|
|
6452
6607
|
}
|
|
6453
6608
|
}
|
|
6454
6609
|
|
|
6455
|
-
function
|
|
6456
|
-
return $4.a1.a2(undefined)(undefined)(System_File_Meta_exists($4,
|
|
6610
|
+
function PullRequest_n__7500_2016_prepareDescriptionFile($0, $1, $2, $3, $4, $5) {
|
|
6611
|
+
return $4.a1.a2(undefined)(undefined)(System_File_Meta_exists($4, $5))($13 => Prelude_Interfaces_when($4.a1.a1, $13, () => $4.a1.a1.a1(undefined)(undefined)($24 => (undefined))(System_File_copyFile($4, $5, 'pr_description.tmp.md'))));
|
|
6457
6612
|
}
|
|
6458
6613
|
|
|
6459
|
-
function
|
|
6614
|
+
function PullRequest_n__6887_1430_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
6460
6615
|
return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ':musical_note: Harmoniously assigned @', a2: {a1: $6, a2: {a1: ' to review this PR.', a2: {h: 0}}}});
|
|
6461
6616
|
}
|
|
6462
6617
|
|
|
6463
|
-
function
|
|
6464
|
-
const $7 = $8 => {
|
|
6465
|
-
switch(Data_Config_rf__colors($5)) {
|
|
6466
|
-
case 1: return $8;
|
|
6467
|
-
case 0: return Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($8);
|
|
6468
|
-
}
|
|
6469
|
-
};
|
|
6470
|
-
return Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString(Text_PrettyPrint_Prettyprinter_Doc_layoutPretty(Text_PrettyPrint_Prettyprinter_Doc_defaultLayoutOptions(), $7($6)));
|
|
6471
|
-
}
|
|
6472
|
-
|
|
6473
|
-
function PullRequest_n__7478_2029_inlineDescription($0, $1, $2, $3, $4) {
|
|
6618
|
+
function PullRequest_n__7500_2015_inlineDescription($0, $1, $2, $3, $4) {
|
|
6474
6619
|
return Prelude_Interfaces_x3ex3e($4.a1, Prelude_IO_putStrLn($4, 'What would you like the description to be (two blank lines to finish)?'), () => Prelude_Interfaces_x3cx24x3e($4.a1.a1.a1, $13 => Data_String_fastUnlines($13), Util_getManyLines($4, Data_Fuel_limit(Prelude_Types_prim__integerToNat(100n)))));
|
|
6475
6620
|
}
|
|
6476
6621
|
|
|
6477
|
-
function
|
|
6622
|
+
function PullRequest_n__6780_1302_forkedReviews($0, $1, $2, $3, $4) {
|
|
6478
6623
|
return FFI_Concurrency_fork(csegen_21(), ('reviews --json '+Prelude_Show_show_Show_Integer($4.a1)));
|
|
6479
6624
|
}
|
|
6480
6625
|
|
|
6481
|
-
function
|
|
6482
|
-
const $
|
|
6483
|
-
const $
|
|
6484
|
-
switch($
|
|
6485
|
-
case 0: return $4.a1.a2(undefined)(undefined)(System_File_ReadWrite_readFile($4, 'pr_description.tmp.md'))(description => Prelude_Interfaces_x3ex3e($4.a1, $4.a1.a2(undefined)(undefined)(System_File_Meta_exists($4, 'pr_description.tmp.md'))($
|
|
6486
|
-
default: return $4.a1.a1.a2(undefined)({h: 0, a1: {h: 0, a1: $
|
|
6626
|
+
function PullRequest_n__7500_2017_editorDescription($0, $1, $2, $3, $4, $5, $6) {
|
|
6627
|
+
const $12 = () => {
|
|
6628
|
+
const $29 = $2a => {
|
|
6629
|
+
switch($2a) {
|
|
6630
|
+
case 0: return $4.a1.a2(undefined)(undefined)(System_File_ReadWrite_readFile($4, 'pr_description.tmp.md'))(description => Prelude_Interfaces_x3ex3e($4.a1, $4.a1.a2(undefined)(undefined)(System_File_Meta_exists($4, 'pr_description.tmp.md'))($4a => Prelude_Interfaces_when($4.a1.a1, $4a, () => System_File_Node_removeFile($4, 'pr_description.tmp.md'))), () => $4.a1.a1.a2(undefined)(description)));
|
|
6631
|
+
default: return $4.a1.a1.a2(undefined)({h: 0, a1: {h: 0, a1: $2a}});
|
|
6487
6632
|
}
|
|
6488
6633
|
};
|
|
6489
|
-
return $4.a1.a2(undefined)(undefined)(System_Node_system($4, Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: $5, a2: {a1: ' pr_description.tmp.md', a2: {h: 0}}})))($
|
|
6634
|
+
return $4.a1.a2(undefined)(undefined)(System_Node_system($4, Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: $5, a2: {a1: ' pr_description.tmp.md', a2: {h: 0}}})))($29);
|
|
6490
6635
|
};
|
|
6491
|
-
return Prelude_Interfaces_x3ex3e($4.a1,
|
|
6636
|
+
return Prelude_Interfaces_x3ex3e($4.a1, PullRequest_n__7500_2016_prepareDescriptionFile($0, $1, $2, $3, $4, $6), $12);
|
|
6492
6637
|
}
|
|
6493
6638
|
|
|
6494
|
-
function
|
|
6495
|
-
return
|
|
6639
|
+
function PullRequest_n__6887_1427_csv($0, $1, $2, $3, $4, $5, $6) {
|
|
6640
|
+
return Util_renderString($5, Text_PrettyPrint_Prettyprinter_Doc_encloseSep(Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_map_Functor_List(csegen_405(), $6)));
|
|
6496
6641
|
}
|
|
6497
6642
|
|
|
6498
|
-
function
|
|
6499
|
-
return Prelude_Interfaces_x3ex3e(csegen_15(), $8 => $9 => Data_Promise_x3ex3ex3d_Monad_Promise($c => $d => FFI_Git_remoteTrackingBranch($0, $c, $d), $13 => Prelude_Interfaces_when(csegen_9(), Prelude_Types_x3dx3d_Eq_x28Maybex20x24ax29(csegen_94(), $13, {h: 0}), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), 'Creating a new remote branch...'), () => $27 => $28 => FFI_Git_pushNewBranch($0, 'origin', $2, $27, $28))), $8, $9), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Creating a new PR for the current branch (', a2: {a1: $2, a2: {a1: ').', a2: {h: 0}}}})), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $3.
|
|
6500
|
-
const $
|
|
6501
|
-
const $
|
|
6502
|
-
const $
|
|
6503
|
-
const $
|
|
6504
|
-
const $
|
|
6505
|
-
const $
|
|
6506
|
-
|
|
6507
|
-
|
|
6508
|
-
|
|
6509
|
-
|
|
6510
|
-
|
|
6511
|
-
|
|
6512
|
-
|
|
6513
|
-
|
|
6514
|
-
|
|
6643
|
+
function PullRequest_n__7500_2018_createPR($0, $1, $2, $3) {
|
|
6644
|
+
return Prelude_Interfaces_x3ex3e(csegen_15(), $8 => $9 => Data_Promise_x3ex3ex3d_Monad_Promise($c => $d => FFI_Git_remoteTrackingBranch($0, $c, $d), $13 => Prelude_Interfaces_when(csegen_9(), Prelude_Types_x3dx3d_Eq_x28Maybex20x24ax29(csegen_94(), $13, {h: 0}), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), 'Creating a new remote branch...'), () => $27 => $28 => FFI_Git_pushNewBranch($0, Data_Maybe_fromMaybe(() => 'origin', $3.a4), $2, $27, $28))), $8, $9), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Creating a new PR for the current branch (', a2: {a1: $2, a2: {a1: ').', a2: {h: 0}}}})), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $3.a5, a2: {a1: ')?', a2: {h: 0}}}})), () => $61 => $62 => {
|
|
6645
|
+
const $6e = baseBranchInput => {
|
|
6646
|
+
const $6f = PullRequest_case__identifyOrCreatePRx2ccreatePR_2353($0, $1, $2, $3, baseBranchInput, Data_String_strM(baseBranchInput));
|
|
6647
|
+
const $82 = Data_Maybe_fromMaybe(() => '', Prelude_Interfaces_x3cx24x3e(csegen_18(), $8a => ($8a+' - '), Util_parseJiraPrefix($2)));
|
|
6648
|
+
const $81 = () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStr(csegen_21(), $82), () => $99 => $9a => {
|
|
6649
|
+
const $a8 = title => $a9 => $aa => {
|
|
6650
|
+
const $b0 = templateFilePath => $b1 => $b2 => {
|
|
6651
|
+
const $b5 = Data_Config_rf__editor($3);
|
|
6652
|
+
let $b4;
|
|
6653
|
+
switch($b5.h) {
|
|
6654
|
+
case 0: {
|
|
6655
|
+
$b4 = PullRequest_n__7500_2015_inlineDescription($0, $1, $2, $3, csegen_21());
|
|
6656
|
+
break;
|
|
6657
|
+
}
|
|
6658
|
+
case undefined: {
|
|
6659
|
+
$b4 = Prelude_Interfaces_x3cx24x3e(csegen_102(), $c3 => Prelude_Types_either(() => $c6 => '', () => $c8 => $c8, $c3), PullRequest_n__7500_2017_editorDescription($0, $1, $2, $3, csegen_21(), $b5.a1, templateFilePath));
|
|
6660
|
+
break;
|
|
6661
|
+
}
|
|
6515
6662
|
}
|
|
6516
|
-
|
|
6517
|
-
|
|
6663
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($b4, description => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), 'Creating PR...'), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), $2), () => FFI_GitHub_createPR($1, $3.a2, $3.a3, $2, $6f, title, description))), $b1, $b2);
|
|
6664
|
+
};
|
|
6665
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_relativeToRoot($0, '.github/PULL_REQUEST_TEMPLATE.md'), $b0, $a9, $aa);
|
|
6518
6666
|
};
|
|
6519
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(
|
|
6667
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_102(), $a1 => ($82+Data_String_trim($a1)), csegen_407()), $a8, $99, $9a);
|
|
6520
6668
|
});
|
|
6521
|
-
return Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), 'What would you like the title to be?'), $
|
|
6669
|
+
return Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), 'What would you like the title to be?'), $81);
|
|
6522
6670
|
};
|
|
6523
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(
|
|
6671
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_102(), $69 => Data_String_trim($69), csegen_407()), $6e, $61, $62);
|
|
6524
6672
|
})));
|
|
6525
6673
|
}
|
|
6526
6674
|
|
|
@@ -6573,23 +6721,23 @@ function PullRequest_reviewsForUser($0, $1, $2, $3) {
|
|
|
6573
6721
|
};
|
|
6574
6722
|
const $32 = {a1: $33, a2: a => $3b => ({h: 1, a1: $3b}), a3: $3d};
|
|
6575
6723
|
const $30 = Prelude_Types_traverse_Traversable_List($32, $48 => Language_JSON_Accessors_array($4b => Data_Review_parseReview($4b), $48), reviewsJson);
|
|
6576
|
-
return Data_Promise_either(
|
|
6724
|
+
return Data_Promise_either(csegen_114(), $30, $2b, $2c);
|
|
6577
6725
|
};
|
|
6578
6726
|
return Data_Promise_x3ex3ex3d_Monad_Promise($2a, reviews => $53 => $54 => Data_Promise_pure_Applicative_Promise(Prelude_Types_List_filter($59 => Data_Review_isAuthor($2, $59), Prelude_Types_join_Monad_List(reviews)), $53, $54), $27, $28);
|
|
6579
6727
|
};
|
|
6580
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(csegen_15(),
|
|
6728
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3dx3cx3c(csegen_15(), csegen_112(), Prelude_Types_traverse_Traversable_List(csegen_9(), $1e => PullRequest_n__6780_1302_forkedReviews($1, $3, $2, $0, $1e), $4)), $26, $10, $11);
|
|
6581
6729
|
};
|
|
6582
6730
|
}
|
|
6583
6731
|
|
|
6584
6732
|
function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
6585
6733
|
const $14 = $15 => $16 => $17 => {
|
|
6586
6734
|
const $2e = teamMembers => {
|
|
6587
|
-
const $2f = Reviewer_chooseReviewers(
|
|
6735
|
+
const $2f = Reviewer_chooseReviewers(csegen_110(), $15.a2, $15.a1, teamMembers, {h: 0}, $2.a3);
|
|
6588
6736
|
return $39 => $3a => {
|
|
6589
6737
|
const $41 = chosenUser => {
|
|
6590
6738
|
const $42 = Prelude_Types_List_tailRecAppend(Prelude_Types_toList_Foldable_Maybe(chosenUser), $4);
|
|
6591
6739
|
let $48;
|
|
6592
|
-
switch($0.
|
|
6740
|
+
switch($0.a6) {
|
|
6593
6741
|
case 1: {
|
|
6594
6742
|
$48 = $3;
|
|
6595
6743
|
break;
|
|
@@ -6610,20 +6758,20 @@ function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
6610
6758
|
break;
|
|
6611
6759
|
}
|
|
6612
6760
|
}
|
|
6613
|
-
const $4e = Prelude_Interfaces_when(csegen_9(), $52, () => Prelude_Interfaces_x3ex3e(csegen_15(), $59 => $5a => Data_Promise_map_Functor_Promise($5d => (undefined), FFI_GitHub_addPullReviewers($1, $0.a2, $0.a3, $2.a1, $42, $48), $59, $5a), () => Prelude_Interfaces_when(csegen_9(), $0.
|
|
6761
|
+
const $4e = Prelude_Interfaces_when(csegen_9(), $52, () => Prelude_Interfaces_x3ex3e(csegen_15(), $59 => $5a => Data_Promise_map_Functor_Promise($5d => (undefined), FFI_GitHub_addPullReviewers($1, $0.a2, $0.a3, $2.a1, $42, $48), $59, $5a), () => Prelude_Interfaces_when(csegen_9(), $0.a7, () => $72 => $73 => {
|
|
6614
6762
|
switch(chosenUser.h) {
|
|
6615
|
-
case undefined: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1,
|
|
6763
|
+
case undefined: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, PullRequest_n__6887_1430_prComment($1, $5, $4, $3, $2, $0, chosenUser.a1), $72, $73);
|
|
6616
6764
|
case 0: return Data_Promise_pure_Applicative_Promise(undefined, $72, $73);
|
|
6617
6765
|
}
|
|
6618
6766
|
})));
|
|
6619
6767
|
let $8c;
|
|
6620
6768
|
switch(Prelude_Types_null_Foldable_List($42)) {
|
|
6621
6769
|
case 1: {
|
|
6622
|
-
$8c = () => Prelude_IO_putStrLn(csegen_21(),
|
|
6770
|
+
$8c = () => Prelude_IO_putStrLn(csegen_21(), Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Could not pick a user from the given Team ')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('(perhaps the only option was the author of the pull request?).'), a2: {h: 0}}})));
|
|
6623
6771
|
break;
|
|
6624
6772
|
}
|
|
6625
6773
|
case 0: {
|
|
6626
|
-
$8c = () => Prelude_IO_putStrLn(csegen_21(),
|
|
6774
|
+
$8c = () => Prelude_IO_putStrLn(csegen_21(), Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Assigned ', a2: {a1: PullRequest_n__6887_1428_userNotice($1, $5, $4, $3, $2, $0, chosenUser), a2: {a1: PullRequest_n__6887_1429_teamNotice($1, $5, $4, $3, $2, $0, $48), a2: {a1: ' to the open PR ', a2: {h: 0}}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}})));
|
|
6627
6775
|
break;
|
|
6628
6776
|
}
|
|
6629
6777
|
}
|
|
@@ -6632,11 +6780,15 @@ function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
6632
6780
|
return Data_Promise_x3ex3ex3d_Monad_Promise(Reviewer_randomReviewer(csegen_21(), $2f), $41, $39, $3a);
|
|
6633
6781
|
};
|
|
6634
6782
|
};
|
|
6635
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(
|
|
6783
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_102(), $1f => Prelude_Types_join_Monad_List($1f), Prelude_Types_traverse_Traversable_List(csegen_9(), $27 => FFI_GitHub_listTeamMembers($1, $0.a2, $27), $3)), $2e, $16, $17);
|
|
6636
6784
|
};
|
|
6637
6785
|
return Data_Promise_x3ex3ex3d_Monad_Promise($a => $b => PullRequest_listReviewers($0, $1, 4n, csegen_134(), $a, $b), $14, $6, $7);
|
|
6638
6786
|
}
|
|
6639
6787
|
|
|
6788
|
+
function PullRequest_relativeToRoot($0, $1) {
|
|
6789
|
+
return Prelude_Interfaces_x3cx26x3e(csegen_102(), $6 => $7 => FFI_Git_rootDir($0, $6, $7), $d => ($d+Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: '/', a2: {a1: $1, a2: {h: 0}}})));
|
|
6790
|
+
}
|
|
6791
|
+
|
|
6640
6792
|
function PullRequest_partitionx27($0, $1, $2) {
|
|
6641
6793
|
const $40 = prJsons => $41 => $42 => {
|
|
6642
6794
|
const $44 = $45 => $46 => {
|
|
@@ -6659,7 +6811,7 @@ function PullRequest_partitionx27($0, $1, $2) {
|
|
|
6659
6811
|
};
|
|
6660
6812
|
const $4c = {a1: $4d, a2: a => $55 => ({h: 1, a1: $55}), a3: $57};
|
|
6661
6813
|
const $4a = Prelude_Types_traverse_Traversable_List($4c, csegen_437(), prJsons);
|
|
6662
|
-
return Data_Promise_either(
|
|
6814
|
+
return Data_Promise_either(csegen_114(), $4a, $45, $46);
|
|
6663
6815
|
};
|
|
6664
6816
|
return Data_Promise_x3ex3ex3d_Monad_Promise($44, pulls => $67 => $68 => Data_Promise_pure_Applicative_Promise(PullRequest_partition(Prelude_Types_join_Monad_List(pulls)), $67, $68), $41, $42);
|
|
6665
6817
|
};
|
|
@@ -6685,12 +6837,12 @@ function PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5) {
|
|
|
6685
6837
|
return $12 => $13 => {
|
|
6686
6838
|
switch($10.a2.h) {
|
|
6687
6839
|
case 0: return Data_Promise_pure_Applicative_Promise({a1: 0, a2: $10.a1}, $12, $13);
|
|
6688
|
-
default: return Data_Promise_reject('Multiple PRs for the current brach.
|
|
6840
|
+
default: return Data_Promise_reject('Multiple PRs for the current brach. Harmony only handles 1 PR per branch currently.', $12, $13);
|
|
6689
6841
|
}
|
|
6690
6842
|
};
|
|
6691
6843
|
}
|
|
6692
|
-
case 0: return Prelude_Interfaces_x3cx24x3e(
|
|
6693
|
-
default: return $2c => $2d => Data_Promise_reject('Multiple PRs for the current brach.
|
|
6844
|
+
case 0: return Prelude_Interfaces_x3cx24x3e(csegen_102(), $23 => ({a1: 1, a2: $23}), PullRequest_n__7500_2018_createPR($1, $2, $3, $0));
|
|
6845
|
+
default: return $2c => $2d => Data_Promise_reject('Multiple PRs for the current brach. Harmony only handles 1 PR per branch currently.', $2c, $2d);
|
|
6694
6846
|
}
|
|
6695
6847
|
};
|
|
6696
6848
|
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPRsForBranch($2, $0.a2, $0.a3, $3), $f, $4, $5);
|
|
@@ -6765,7 +6917,7 @@ function System_File_ReadWrite_readLinesOnto($0, $1, $2, $3, $4) {
|
|
|
6765
6917
|
}
|
|
6766
6918
|
};
|
|
6767
6919
|
const $26 = {a1: $27, a2: a => $2f => ({h: 1, a1: $2f}), a3: $31};
|
|
6768
|
-
const $25 = {a1: $26, a2:
|
|
6920
|
+
const $25 = {a1: $26, a2: csegen_247(), a3: csegen_248()};
|
|
6769
6921
|
const $40 = b => a => func => $41 => {
|
|
6770
6922
|
switch($41.h) {
|
|
6771
6923
|
case 0: return {h: 0, a1: $41.a1};
|
|
@@ -7121,63 +7273,63 @@ function System_Node_system($0, $1) {
|
|
|
7121
7273
|
return $0.a2(undefined)($7 => System_Node_prim__system($1, $7));
|
|
7122
7274
|
}
|
|
7123
7275
|
|
|
7124
|
-
function
|
|
7276
|
+
function Reviewer_with__scoredReviewersx2czipReviewsx2ccalc_1758($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a, $b, $c, $d, $e) {
|
|
7125
7277
|
switch($c.h) {
|
|
7126
7278
|
case 0: return ($e+$d);
|
|
7127
7279
|
case 1: return Prelude_Types_prim__integerToNat(($e-$d));
|
|
7128
7280
|
}
|
|
7129
7281
|
}
|
|
7130
7282
|
|
|
7131
|
-
function
|
|
7283
|
+
function Reviewer_n__5330_2143_yellowDot($0, $1, $2, $3, $4) {
|
|
7132
7284
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
|
|
7133
7285
|
}
|
|
7134
7286
|
|
|
7135
|
-
function
|
|
7287
|
+
function Reviewer_n__4753_1591_weightReviews($0, $1, $2, $3, $4, $5) {
|
|
7136
7288
|
const $6 = Data_List_groupAllWith($0, $a => $a, $5);
|
|
7137
7289
|
const $10 = xs => {
|
|
7138
7290
|
const $11 = (Prelude_Types_List_lengthTR(Data_List1_forget(xs))*$4);
|
|
7139
7291
|
return {a1: xs.a1, a2: $11, a3: $11};
|
|
7140
7292
|
};
|
|
7141
|
-
return Prelude_Interfaces_x3cx26x3e(
|
|
7293
|
+
return Prelude_Interfaces_x3cx26x3e(csegen_118(), $6, $10);
|
|
7142
7294
|
}
|
|
7143
7295
|
|
|
7144
|
-
function
|
|
7296
|
+
function Reviewer_n__4753_1592_sortx27($0, $1, $2, $3, $4) {
|
|
7145
7297
|
return Data_List_sortBy($7 => $8 => Prelude_Basics_on($b => $c => Prelude_EqOrd_compare_Ord_Integer($b, $c), $11 => $11.a3, $7, $8), $4);
|
|
7146
7298
|
}
|
|
7147
7299
|
|
|
7148
|
-
function
|
|
7300
|
+
function Reviewer_n__5330_2144_redDot($0, $1, $2, $3, $4) {
|
|
7149
7301
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(1), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
|
|
7150
7302
|
}
|
|
7151
7303
|
|
|
7152
|
-
function
|
|
7153
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('4x the
|
|
7304
|
+
function Reviewer_n__5330_2145_header($0, $1, $2, $3, $4) {
|
|
7305
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('4x the number of open review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Reviewer_n__5330_2143_yellowDot($0, $1, $2, $3, $4))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('1x the number of closed PRs with unanswered review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Reviewer_n__5330_2144_redDot($0, $1, $2, $3, $4))), a2: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Reviewer_n__5330_2144_redDot($0, $1, $2, $3, $4), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('overlayed on'), Reviewer_n__5330_2143_yellowDot($0, $1, $2, $3, $4)))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}}}});
|
|
7154
7306
|
}
|
|
7155
7307
|
|
|
7156
|
-
function
|
|
7308
|
+
function Reviewer_n__5330_2147_graphOne($0, $1, $2, $3, $4, $5, $6) {
|
|
7157
7309
|
const $8 = Prelude_Types_prim__integerToNat(($5-$6.a2));
|
|
7158
7310
|
const $d = Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), $1.a1(undefined)($6.a1));
|
|
7159
7311
|
const $17 = Prelude_Types_prim__integerToNat(($6.a2-$6.a3));
|
|
7160
7312
|
const $1c = Prelude_Types_prim__integerToNat(($5-$6.a3));
|
|
7161
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(
|
|
7313
|
+
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Reviewer_n__5330_2146_bar($0, $1, $2, $3, $4, $8, $6.a3, Prelude_Types_min_Ord_Nat($1c, $17)), $d);
|
|
7162
7314
|
}
|
|
7163
7315
|
|
|
7164
|
-
function
|
|
7165
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_map_Functor_List($b =>
|
|
7316
|
+
function Reviewer_n__5330_2148_graph($0, $1, $2, $3, $4, $5, $6) {
|
|
7317
|
+
return Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_map_Functor_List($b => Reviewer_n__5330_2147_graphOne($0, $1, $2, $3, $4, $5, $b), $6));
|
|
7166
7318
|
}
|
|
7167
7319
|
|
|
7168
|
-
function
|
|
7169
|
-
return
|
|
7320
|
+
function Reviewer_n__4780_1748_calc($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a, $b, $c, $d) {
|
|
7321
|
+
return Reviewer_with__scoredReviewersx2czipReviewsx2ccalc_1758(undefined, $0, $1, $2, $3, $4, $5, $6, $8, $9, $a, $b, $a, $d, $c);
|
|
7170
7322
|
}
|
|
7171
7323
|
|
|
7172
|
-
function
|
|
7324
|
+
function Reviewer_n__5330_2146_bar($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
7173
7325
|
return Text_PrettyPrint_Prettyprinter_Doc_indent(Prelude_Cast_cast_Cast_Nat_Int($5), Text_PrettyPrint_Prettyprinter_Doc_hcat({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(1), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_String_replicate($7, '\u{25e6}'))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_String_replicate($6, '\u{b7}'))), a2: {h: 0}}}));
|
|
7174
7326
|
}
|
|
7175
7327
|
|
|
7176
7328
|
function Reviewer_scoredReviewers($0, $1, $2, $3) {
|
|
7177
|
-
const $4 =
|
|
7178
|
-
const $c =
|
|
7179
|
-
const $14 =
|
|
7180
|
-
return
|
|
7329
|
+
const $4 = Reviewer_n__4753_1591_weightReviews($0, $3, $2, $1, 1n, $1);
|
|
7330
|
+
const $c = Reviewer_n__4753_1591_weightReviews($0, $3, $2, $1, 4n, $2);
|
|
7331
|
+
const $14 = Reviewer_n__4753_1596_zipReviews($0, $3, $2, $1, $c, $4, {h: 1, a1: $0, a2: $3, a3: $2, a4: $1}, 0);
|
|
7332
|
+
return Reviewer_n__4753_1592_sortx27($0, $3, $2, $1, Reviewer_n__4753_1596_zipReviews($0, $3, $2, $1, $14, Reviewer_n__4753_1591_weightReviews($0, $3, $2, $1, 0n, $3), {h: 0, a1: $0, a2: $3, a3: $2, a4: $1}, 1));
|
|
7181
7333
|
}
|
|
7182
7334
|
|
|
7183
7335
|
function Reviewer_reviewsGraph($0, $1, $2, $3, $4) {
|
|
@@ -7197,8 +7349,8 @@ function Reviewer_reviewsGraph($0, $1, $2, $3, $4) {
|
|
|
7197
7349
|
break;
|
|
7198
7350
|
}
|
|
7199
7351
|
}
|
|
7200
|
-
const $28 =
|
|
7201
|
-
const $1f = Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(
|
|
7352
|
+
const $28 = Reviewer_n__5330_2148_graph($0, $1, $4, $3, $2, $2f, $5);
|
|
7353
|
+
const $1f = Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Reviewer_n__5330_2145_header($0, $1, $4, $3, $2), $28);
|
|
7202
7354
|
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29($1f, Text_PrettyPrint_Prettyprinter_Doc_line());
|
|
7203
7355
|
}
|
|
7204
7356
|
}
|
|
@@ -7222,7 +7374,7 @@ function Reviewer_chooseReviewers($0, $1, $2, $3, $4, $5) {
|
|
|
7222
7374
|
case 0: return {h: 0};
|
|
7223
7375
|
case undefined: {
|
|
7224
7376
|
const $1a = Data_List_takeWhile($1d => (($1d.a3===$12.a1.a3)?1:0), $12.a2);
|
|
7225
|
-
const $22 = Prelude_Interfaces_x3cx24x3e(
|
|
7377
|
+
const $22 = Prelude_Interfaces_x3cx24x3e(csegen_118(), $27 => Reviewer_loginScore($27), $1a);
|
|
7226
7378
|
return {a1: {a1: $12.a1.a1, a2: $12.a1.a3}, a2: $22};
|
|
7227
7379
|
}
|
|
7228
7380
|
}
|
|
@@ -7279,11 +7431,11 @@ function FFI_GitHub_octokit($0) {
|
|
|
7279
7431
|
}
|
|
7280
7432
|
|
|
7281
7433
|
function FFI_GitHub_listTeams($0, $1) {
|
|
7282
|
-
return Prelude_Interfaces_x3cx24x3e(
|
|
7434
|
+
return Prelude_Interfaces_x3cx24x3e(csegen_102(), $6 => Data_String_lines($6), $a => $b => FFI_promiseIO($e => $f => $10 => FFI_GitHub_prim__listTeams($0, $1, $e, $f, $10), $a, $b));
|
|
7283
7435
|
}
|
|
7284
7436
|
|
|
7285
7437
|
function FFI_GitHub_listTeamMembers($0, $1, $2) {
|
|
7286
|
-
return Prelude_Interfaces_x3cx24x3e(
|
|
7438
|
+
return Prelude_Interfaces_x3cx24x3e(csegen_102(), $7 => Data_String_lines($7), $b => $c => FFI_promiseIO($f => $10 => $11 => FFI_GitHub_prim__listTeamMembers($0, $1, $2, $f, $10, $11), $b, $c));
|
|
7287
7439
|
}
|
|
7288
7440
|
|
|
7289
7441
|
function FFI_GitHub_listPullReviewsJsonStr($0, $1, $2, $3, $4, $5) {
|
|
@@ -7306,11 +7458,11 @@ function FFI_GitHub_listPRsForBranch($0, $1, $2, $3) {
|
|
|
7306
7458
|
}
|
|
7307
7459
|
|
|
7308
7460
|
function FFI_GitHub_listOrgMembers($0, $1) {
|
|
7309
|
-
return Prelude_Interfaces_x3cx24x3e(
|
|
7461
|
+
return Prelude_Interfaces_x3cx24x3e(csegen_102(), $6 => Data_String_lines($6), $a => $b => FFI_promiseIO($e => $f => $10 => FFI_GitHub_prim__listOrgMembers($0, $1, $e, $f, $10), $a, $b));
|
|
7310
7462
|
}
|
|
7311
7463
|
|
|
7312
7464
|
function FFI_GitHub_listMyTeams($0) {
|
|
7313
|
-
return Prelude_Interfaces_x3cx24x3e(
|
|
7465
|
+
return Prelude_Interfaces_x3cx24x3e(csegen_102(), $5 => Data_String_lines($5), $9 => $a => FFI_promiseIO($d => $e => $f => FFI_GitHub_prim__listMyTeams($0, $d, $e, $f), $9, $a));
|
|
7314
7466
|
}
|
|
7315
7467
|
|
|
7316
7468
|
function FFI_GitHub_getUser($0) {
|
|
@@ -7326,7 +7478,7 @@ function FFI_GitHub_getRepoDefaultBranch($0, $1, $2, $3, $4) {
|
|
|
7326
7478
|
}
|
|
7327
7479
|
|
|
7328
7480
|
function FFI_GitHub_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
7329
|
-
return Prelude_Interfaces_x3dx3cx3c(csegen_15(), $b => $c => $d => Data_Promise_either(
|
|
7481
|
+
return Prelude_Interfaces_x3dx3cx3c(csegen_15(), $b => $c => $d => Data_Promise_either(csegen_114(), Data_PullRequest_parsePullRequestString($b), $c, $d), $17 => $18 => FFI_promiseIO($1b => $1c => $1d => FFI_GitHub_prim__createPR($0, $1, $2, $3, $4, $5, $6, $1b, $1c, $1d), $17, $18));
|
|
7330
7482
|
}
|
|
7331
7483
|
|
|
7332
7484
|
function FFI_GitHub_createComment($0, $1, $2, $3, $4, $5, $6) {
|
|
@@ -7334,7 +7486,7 @@ function FFI_GitHub_createComment($0, $1, $2, $3, $4, $5, $6) {
|
|
|
7334
7486
|
}
|
|
7335
7487
|
|
|
7336
7488
|
function FFI_GitHub_addPullReviewers($0, $1, $2, $3, $4, $5) {
|
|
7337
|
-
return Prelude_Interfaces_x3cx24x3e(
|
|
7489
|
+
return Prelude_Interfaces_x3cx24x3e(csegen_102(), $a => Data_String_lines($a), $e => $f => FFI_promiseIO($12 => $13 => $14 => FFI_GitHub_prim__addPullReviewers($0, $1, $2, $3, Data_String_Extra_join(',', csegen_77(), $4), Data_String_Extra_join(',', csegen_77(), $5), $12, $13, $14), $e, $f));
|
|
7338
7490
|
}
|
|
7339
7491
|
|
|
7340
7492
|
function FFI_promiseIO($0, $1, $2) {
|
|
@@ -7412,8 +7564,8 @@ function Data_User_parseUserString($0) {
|
|
|
7412
7564
|
}
|
|
7413
7565
|
};
|
|
7414
7566
|
const $3 = {a1: $4, a2: a => $c => ({h: 1, a1: $c}), a3: $e};
|
|
7415
|
-
const $2 = {a1: $3, a2:
|
|
7416
|
-
return Prelude_Interfaces_x3ex3dx3e($2,
|
|
7567
|
+
const $2 = {a1: $3, a2: csegen_247(), a3: csegen_248()};
|
|
7568
|
+
return Prelude_Interfaces_x3ex3dx3e($2, csegen_249(), $1f => Data_User_parseUser($1f), $0);
|
|
7417
7569
|
}
|
|
7418
7570
|
|
|
7419
7571
|
function Data_User_parseUser($0) {
|
|
@@ -7460,7 +7612,7 @@ function Data_Review_parseReview($0) {
|
|
|
7460
7612
|
}
|
|
7461
7613
|
};
|
|
7462
7614
|
const $20 = {a1: $21, a2: a => $29 => ({h: 1, a1: $29}), a3: $2b};
|
|
7463
|
-
const $1f = {a1: $20, a2:
|
|
7615
|
+
const $1f = {a1: $20, a2: csegen_247(), a3: csegen_248()};
|
|
7464
7616
|
const $1d = Prelude_Interfaces_x3dx3cx3c($1f, $3a => Data_Review_parseState($3a), Language_JSON_Accessors_string($12.a2.a1));
|
|
7465
7617
|
const $40 = state => {
|
|
7466
7618
|
const $46 = b => a => func => $47 => {
|
|
@@ -7481,7 +7633,7 @@ function Data_Review_parseReview($0) {
|
|
|
7481
7633
|
}
|
|
7482
7634
|
};
|
|
7483
7635
|
const $45 = {a1: $46, a2: a => $4e => ({h: 1, a1: $4e}), a3: $50};
|
|
7484
|
-
const $44 = {a1: $45, a2:
|
|
7636
|
+
const $44 = {a1: $45, a2: csegen_247(), a3: csegen_248()};
|
|
7485
7637
|
const $42 = Prelude_Interfaces_x3dx3cx3c($44, $5f => Data_Review_parseDateTime($5f), Language_JSON_Accessors_string($12.a2.a2.a1));
|
|
7486
7638
|
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($42, submittedAt => ({h: 1, a1: {a1: submittedAt, a2: author, a3: state}}));
|
|
7487
7639
|
};
|
|
@@ -7734,8 +7886,8 @@ function Data_PullRequest_parsePullRequestsString($0) {
|
|
|
7734
7886
|
}
|
|
7735
7887
|
};
|
|
7736
7888
|
const $3 = {a1: $4, a2: a => $c => ({h: 1, a1: $c}), a3: $e};
|
|
7737
|
-
const $2 = {a1: $3, a2:
|
|
7738
|
-
return Prelude_Interfaces_x3ex3dx3e($2,
|
|
7889
|
+
const $2 = {a1: $3, a2: csegen_247(), a3: csegen_248()};
|
|
7890
|
+
return Prelude_Interfaces_x3ex3dx3e($2, csegen_249(), csegen_437(), $0);
|
|
7739
7891
|
}
|
|
7740
7892
|
|
|
7741
7893
|
function Data_PullRequest_parsePullRequestString($0) {
|
|
@@ -7757,8 +7909,8 @@ function Data_PullRequest_parsePullRequestString($0) {
|
|
|
7757
7909
|
}
|
|
7758
7910
|
};
|
|
7759
7911
|
const $3 = {a1: $4, a2: a => $c => ({h: 1, a1: $c}), a3: $e};
|
|
7760
|
-
const $2 = {a1: $3, a2:
|
|
7761
|
-
return Prelude_Interfaces_x3ex3dx3e($2,
|
|
7912
|
+
const $2 = {a1: $3, a2: csegen_247(), a3: csegen_248()};
|
|
7913
|
+
return Prelude_Interfaces_x3ex3dx3e($2, csegen_249(), $1f => Data_PullRequest_parsePR($1f), $0);
|
|
7762
7914
|
}
|
|
7763
7915
|
|
|
7764
7916
|
function Data_PullRequest_parsePR($0) {
|
|
@@ -7784,7 +7936,7 @@ function Data_PullRequest_parsePR($0) {
|
|
|
7784
7936
|
}
|
|
7785
7937
|
};
|
|
7786
7938
|
const $2e = {a1: $2f, a2: a => $37 => ({h: 1, a1: $37}), a3: $39};
|
|
7787
|
-
const $2d = {a1: $2e, a2:
|
|
7939
|
+
const $2d = {a1: $2e, a2: csegen_247(), a3: csegen_248()};
|
|
7788
7940
|
const $2b = Prelude_Interfaces_x3dx3cx3c($2d, $48 => Data_PullRequest_parseState($48), Language_JSON_Accessors_string($18.a2.a2.a1));
|
|
7789
7941
|
const $4e = state => {
|
|
7790
7942
|
const $54 = b => a => func => $55 => {
|
|
@@ -7805,7 +7957,7 @@ function Data_PullRequest_parsePR($0) {
|
|
|
7805
7957
|
}
|
|
7806
7958
|
};
|
|
7807
7959
|
const $53 = {a1: $54, a2: a => $5c => ({h: 1, a1: $5c}), a3: $5e};
|
|
7808
|
-
const $52 = {a1: $53, a2:
|
|
7960
|
+
const $52 = {a1: $53, a2: csegen_247(), a3: csegen_248()};
|
|
7809
7961
|
const $50 = Prelude_Interfaces_x3dx3cx3c($52, $6d => Data_PullRequest_parseDateTime($6d), Language_JSON_Accessors_string($18.a2.a2.a2.a1));
|
|
7810
7962
|
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($50, createdAt => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($78 => Language_JSON_Accessors_string($78), $18.a2.a2.a2.a2.a1), reviewers => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($18.a2.a2.a2.a2.a2.a1), headRef => ({h: 1, a1: {a1: number, a2: createdAt, a3: author, a4: state, a5: reviewers, a6: headRef}}))));
|
|
7811
7963
|
};
|
|
@@ -7832,7 +7984,7 @@ function Data_PullRequest_isAuthor($0, $1) {
|
|
|
7832
7984
|
return Prelude_EqOrd_x3dx3d_Eq_String($1.a3, $0);
|
|
7833
7985
|
}
|
|
7834
7986
|
|
|
7835
|
-
function
|
|
7987
|
+
function FFI_Git_case__remoteTrackingBranch_1782($0, $1, $2) {
|
|
7836
7988
|
switch($1) {
|
|
7837
7989
|
case '': {
|
|
7838
7990
|
switch($2.h) {
|
|
@@ -7848,18 +8000,26 @@ function FFI_Git_userEmail($0, $1, $2) {
|
|
|
7848
8000
|
return FFI_promiseIO($5 => $6 => $7 => FFI_Git_prim__userEmail($0, $5, $6, $7), $1, $2);
|
|
7849
8001
|
}
|
|
7850
8002
|
|
|
8003
|
+
function FFI_Git_rootDir($0, $1, $2) {
|
|
8004
|
+
return FFI_promiseIO($5 => $6 => $7 => FFI_Git_prim__rootDir($0, $5, $6, $7), $1, $2);
|
|
8005
|
+
}
|
|
8006
|
+
|
|
7851
8007
|
function FFI_Git_remoteURI($0, $1, $2, $3) {
|
|
7852
8008
|
return FFI_promiseIO($6 => $7 => $8 => FFI_Git_prim__remoteURI($0, $1, $6, $7, $8), $2, $3);
|
|
7853
8009
|
}
|
|
7854
8010
|
|
|
7855
8011
|
function FFI_Git_remoteTrackingBranch($0, $1, $2) {
|
|
7856
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__remoteTrackingBranch($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_Promise(
|
|
8012
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__remoteTrackingBranch($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__remoteTrackingBranch_1782($0, str, Data_String_strM(str)), $14, $15), $1, $2);
|
|
7857
8013
|
}
|
|
7858
8014
|
|
|
7859
8015
|
function FFI_Git_pushNewBranch($0, $1, $2, $3, $4) {
|
|
7860
8016
|
return Data_Promise_map_Functor_Promise($7 => (undefined), $9 => $a => FFI_promiseIO($d => $e => $f => FFI_Git_prim__pushNewBranch($0, $1, $2, $d, $e, $f), $9, $a), $3, $4);
|
|
7861
8017
|
}
|
|
7862
8018
|
|
|
8019
|
+
function FFI_Git_listRemotes($0) {
|
|
8020
|
+
return Prelude_Interfaces_x3cx24x3e(csegen_102(), $5 => Data_String_lines($5), $9 => $a => FFI_promiseIO($d => $e => $f => FFI_Git_prim__listRemotes($0, $d, $e, $f), $9, $a));
|
|
8021
|
+
}
|
|
8022
|
+
|
|
7863
8023
|
function FFI_Git_git($0) {
|
|
7864
8024
|
return Prelude_Interfaces_x3cx24x3e($0.a1.a1.a1, $7 => $7, $0.a2(undefined)($e => FFI_Git_prim__git($e)));
|
|
7865
8025
|
}
|
|
@@ -7885,7 +8045,7 @@ function FFI_Concurrency_promiseAll($0, $1, $2, $3) {
|
|
|
7885
8045
|
default: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Expected a JSON array from futures but got ', a2: {a1: Language_JSON_Data_show_Show_JSON($3d), a2: {a1: '.', a2: {h: 0}}}}), $3e, $3f);
|
|
7886
8046
|
}
|
|
7887
8047
|
};
|
|
7888
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($25 => $26 => Data_Promise_either(
|
|
8048
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($25 => $26 => Data_Promise_either(csegen_114(), Data_Either_maybeToEither(() => Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Failed to parse JSON from ', a2: {a1: str, a2: {h: 0}}}), Language_JSON_parse(str)), $25, $26), $3c, $21, $22);
|
|
7889
8049
|
};
|
|
7890
8050
|
return Data_Promise_x3ex3ex3d_Monad_Promise($10 => $11 => Data_Promise_promisify(ok => err => $14 => FFI_Concurrency_prim__awaitStringify(f, x => ok(x), y => err(y), $14), $10, $11), $20, $c, $d);
|
|
7891
8051
|
};
|
|
@@ -7935,7 +8095,7 @@ function Data_Pagination_with__lemma_5493($0, $1, $2, $3, $4) {
|
|
|
7935
8095
|
}
|
|
7936
8096
|
|
|
7937
8097
|
function Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($0) {
|
|
7938
|
-
return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(
|
|
8098
|
+
return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(csegen_192(), {h: 0}, $0);
|
|
7939
8099
|
}
|
|
7940
8100
|
|
|
7941
8101
|
function Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($0) {
|
|
@@ -7950,7 +8110,7 @@ function Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24p
|
|
|
7950
8110
|
}
|
|
7951
8111
|
|
|
7952
8112
|
function Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($0, $1, $2) {
|
|
7953
|
-
return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($6 => $7 => Prelude_Basics_flip(
|
|
8113
|
+
return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($6 => $7 => Prelude_Basics_flip(csegen_193(), $c => Prelude_Basics_flip($0, $6, $c), $7), $13 => $13, $2)($1);
|
|
7954
8114
|
}
|
|
7955
8115
|
|
|
7956
8116
|
function Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($0, $1, $2, $3) {
|
|
@@ -8042,7 +8202,7 @@ function System_getEnv($0, $1) {
|
|
|
8042
8202
|
function System_getArgs($0) {
|
|
8043
8203
|
const $12 = n => {
|
|
8044
8204
|
switch(Prelude_EqOrd_x3e_Ord_Int(n, Number(_truncBigInt32(0n)))) {
|
|
8045
|
-
case 1: return Prelude_Interfaces_for($0.a1.a1, {a1: b => a => func => $1e => Prelude_Types_map_Functor_List(func, $1e), a2: csegen_77(), a3: b => a => f => $25 => $26 => $27 => Prelude_Types_traverse_Traversable_List($25, $26, $27)}, Prelude_Types_rangeFromTo_Range_x24a({a1: {a1: csegen_516(), a2: $33 => $34 => Prelude_Num_div_Integral_Int($33, $34), a3: $39 => $3a => Prelude_Num_mod_Integral_Int($39, $3a)}, a2: {a1:
|
|
8205
|
+
case 1: return Prelude_Interfaces_for($0.a1.a1, {a1: b => a => func => $1e => Prelude_Types_map_Functor_List(func, $1e), a2: csegen_77(), a3: b => a => f => $25 => $26 => $27 => Prelude_Types_traverse_Traversable_List($25, $26, $27)}, Prelude_Types_rangeFromTo_Range_x24a({a1: {a1: csegen_516(), a2: $33 => $34 => Prelude_Num_div_Integral_Int($33, $34), a3: $39 => $3a => Prelude_Num_mod_Integral_Int($39, $3a)}, a2: {a1: csegen_263(), a2: {a1: csegen_516(), a2: $45 => _sub32s(0, $45), a3: $49 => $4a => _sub32s($49, $4a)}}}, 0, _sub32s(n, 1)), $52 => $0.a2(undefined)($58 => System_prim__getArg($52, $58)));
|
|
8046
8206
|
case 0: return $0.a1.a1.a2(undefined)({h: 0});
|
|
8047
8207
|
}
|
|
8048
8208
|
};
|
|
@@ -8064,59 +8224,59 @@ function System_exitFailure($0) {
|
|
|
8064
8224
|
return System_exitWith($0, {a1: 1, a2: undefined});
|
|
8065
8225
|
}
|
|
8066
8226
|
|
|
8067
|
-
function
|
|
8068
|
-
return
|
|
8227
|
+
function Help_n__4301_1021_subcommand($0, $1) {
|
|
8228
|
+
return Help_n__4301_1019_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(5), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
|
|
8069
8229
|
}
|
|
8070
8230
|
|
|
8071
|
-
function
|
|
8072
|
-
return
|
|
8231
|
+
function Help_n__4301_1024_shell($0, $1) {
|
|
8232
|
+
return Help_n__4301_1019_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
|
|
8073
8233
|
}
|
|
8074
8234
|
|
|
8075
|
-
function
|
|
8076
|
-
return
|
|
8235
|
+
function Help_n__4301_1020_option($0, $1) {
|
|
8236
|
+
return Help_n__4301_1019_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_bold(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
|
|
8077
8237
|
}
|
|
8078
8238
|
|
|
8079
|
-
function
|
|
8239
|
+
function Help_n__4301_1019_maybeDecorate($0, $1, $2) {
|
|
8080
8240
|
switch($0) {
|
|
8081
8241
|
case 1: return Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString(Text_PrettyPrint_Prettyprinter_Doc_layoutPretty(Text_PrettyPrint_Prettyprinter_Doc_defaultLayoutOptions(), $1($2)));
|
|
8082
8242
|
case 0: return $2;
|
|
8083
8243
|
}
|
|
8084
8244
|
}
|
|
8085
8245
|
|
|
8086
|
-
function
|
|
8087
|
-
return
|
|
8246
|
+
function Help_n__4301_1023_heading($0, $1) {
|
|
8247
|
+
return Help_n__4301_1019_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
|
|
8088
8248
|
}
|
|
8089
8249
|
|
|
8090
|
-
function
|
|
8091
|
-
return
|
|
8250
|
+
function Help_n__4301_1022_argument($0, $1) {
|
|
8251
|
+
return Help_n__4301_1019_maybeDecorate($0, csegen_405(), $1);
|
|
8092
8252
|
}
|
|
8093
8253
|
|
|
8094
8254
|
function Help_help($0) {
|
|
8095
|
-
return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'harmony ', a2: {a1:
|
|
8255
|
+
return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'harmony ', a2: {a1: Help_n__4301_1021_subcommand($0, '<subcommand>'), a2: {a1: '\n\n', a2: {a1: Help_n__4301_1023_heading($0, 'Subcommands'), a2: {a1: ':\n ', a2: {a1: Help_n__4301_1021_subcommand($0, 'help'), a2: {a1: '\n - Print help\n ', a2: {a1: Help_n__4301_1021_subcommand($0, 'version'), a2: {a1: '\n - Print version\n ', a2: {a1: Help_n__4301_1021_subcommand($0, 'config'), a2: {a1: ' {', a2: {a1: Help_n__4301_1022_argument($0, '<property>'), a2: {a1: '} [', a2: {a1: Help_n__4301_1022_argument($0, '<value>'), a2: {a1: ']\n - Get or set the value of a configuration property. Not all properties\n can be set and read via this subcommand.\n ', a2: {a1: Help_n__4301_1022_argument($0, 'properties'), a2: {a1: ': ', a2: {a1: Data_String_Extra_join(', ', csegen_77(), Prelude_Interfaces_x3cx24x3e(csegen_118(), $4b => Help_n__4301_1020_option($0, $4b), Data_Config_settableProps())), a2: {a1: '.\n ', a2: {a1: Help_n__4301_1021_subcommand($0, 'sync'), a2: {a1: '\n - Synchronize local config with information from GitHub.\n ', a2: {a1: Help_n__4301_1021_subcommand($0, 'branch'), a2: {a1: '\n - Print the GitHub URI for the currently checked out branch.\n ', a2: {a1: Help_n__4301_1021_subcommand($0, 'pr'), a2: {a1: '\n - Identify an existing PR or create a new one for the current branch.\n ', a2: {a1: Help_n__4301_1021_subcommand($0, 'contribute'), a2: {a1: ' [', a2: {a1: Help_n__4301_1022_argument($0, '-c/--checkout'), a2: {a1: '] [', a2: {a1: Help_n__4301_1022_argument($0, '-<num>'), a2: {a1: ']\n - Contribute to an open PR. Prints a URL. Prioritizes PRs you are\n requested to review but will also return other PRs.\n ', a2: {a1: Help_n__4301_1021_subcommand($0, 'whoami'), a2: {a1: '\n - Print information about the configured and authenticated user.\n ', a2: {a1: Help_n__4301_1021_subcommand($0, 'reflect'), a2: {a1: '\n - Reflect on the current state of ones own PRs and review requests.\n ', a2: {a1: Help_n__4301_1021_subcommand($0, 'list'), a2: {a1: ' {', a2: {a1: Help_n__4301_1022_argument($0, '<team-slug>'), a2: {a1: '}\n - List the members of the given GitHub Team.\n ', a2: {a1: Help_n__4301_1021_subcommand($0, 'graph'), a2: {a1: ' {', a2: {a1: Help_n__4301_1022_argument($0, '<team-slug>'), a2: {a1: '}\n - Graph the relative review workload of the members of the given GitHub Team.\n ', a2: {a1: Help_n__4301_1021_subcommand($0, 'assign'), a2: {a1: ' {', a2: {a1: Help_n__4301_1022_argument($0, '<team-slug>'), a2: {a1: ' | ', a2: {a1: Help_n__4301_1022_argument($0, '+<user-login>'), a2: {a1: '} [...]\n - Assign the given team(s) and one lucky member from one of those teams\n to review the PR for the current branch.\n \n Also assign any users with logins specified. You specify these\n additional users by prefixing their logins with \'+\'.\n \n', a2: {a1: Help_n__4301_1023_heading($0, 'Bash Completion'), a2: {a1: ':\n You can set up bash completion by adding the following to your resource\n or bash profile:\n \n ', a2: {a1: Help_n__4301_1024_shell($0, 'eval \"$(harmony --bash-completion-script)\"'), a2: {a1: '\n \n Zsh users will also need to have the following in their resource or\n zsh profile before the above eval:\n \n ', a2: {a1: Help_n__4301_1024_shell($0, 'autoload -U +X compinit && compinit'), a2: {a1: '\n ', a2: {a1: Help_n__4301_1024_shell($0, 'autoload -U +X bashcompinit && bashcompinit'), a2: {a1: '\n ', a2: {h: 0}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}});
|
|
8096
8256
|
}
|
|
8097
8257
|
|
|
8098
|
-
function
|
|
8258
|
+
function Config_with__getConfig_5738($0, $1, $2, $3, $4) {
|
|
8099
8259
|
switch($1.h) {
|
|
8100
8260
|
case 0: return Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: $0, a2: {a1: ' cannot get read via `config` command.', a2: {h: 0}}}), $3, $4);
|
|
8101
8261
|
case undefined: return Data_Promise_pure_Applicative_Promise($1.a1($2), $3, $4);
|
|
8102
8262
|
}
|
|
8103
8263
|
}
|
|
8104
8264
|
|
|
8105
|
-
function
|
|
8265
|
+
function Config_with__withx20blockx20inx20setConfig_5592($0, $1, $2, $3, $4, $5) {
|
|
8106
8266
|
switch($3.h) {
|
|
8107
8267
|
case 0: return $7 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: $2, a2: {a1: ' is not a valid value for ', a2: {a1: $4, a2: {a1: '.', a2: {h: 0}}}}}), $5, $7);
|
|
8108
8268
|
case undefined: return $1a => Config_writeConfig($3.a1, $5, $1a);
|
|
8109
8269
|
}
|
|
8110
8270
|
}
|
|
8111
8271
|
|
|
8112
|
-
function
|
|
8272
|
+
function Config_with__setConfig_5564($0, $1, $2, $3) {
|
|
8113
8273
|
switch($1.h) {
|
|
8114
8274
|
case 0: return $5 => $6 => Data_Promise_reject(Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: $0, a2: {a1: ' cannot be set via `config` command.', a2: {h: 0}}}), $5, $6);
|
|
8115
|
-
case undefined: return $15 =>
|
|
8275
|
+
case undefined: return $15 => Config_with__withx20blockx20inx20setConfig_5592($1.a1, $3, $2, $1.a1($3)($2), $0, $15);
|
|
8116
8276
|
}
|
|
8117
8277
|
}
|
|
8118
8278
|
|
|
8119
|
-
function
|
|
8279
|
+
function Config_with__propSettersx2cparseBool_5274($0, $1) {
|
|
8120
8280
|
switch($1) {
|
|
8121
8281
|
case 'yes': return {a1: 1};
|
|
8122
8282
|
case 'true': return {a1: 1};
|
|
@@ -8126,14 +8286,14 @@ function Config_with__propSettersx2cparseBool_5272($0, $1) {
|
|
|
8126
8286
|
}
|
|
8127
8287
|
}
|
|
8128
8288
|
|
|
8129
|
-
function
|
|
8289
|
+
function Config_with__dropPrefixx27x2cdropx27_5090($0, $1, $2) {
|
|
8130
8290
|
switch($2.h) {
|
|
8131
8291
|
case 0: return {a1: $2.a1.a1};
|
|
8132
8292
|
case 1: return {h: 0};
|
|
8133
8293
|
}
|
|
8134
8294
|
}
|
|
8135
8295
|
|
|
8136
|
-
function
|
|
8296
|
+
function Config_case__parseGitHubURIx2cparseSuffix_5150($0, $1, $2) {
|
|
8137
8297
|
const $e = $f => {
|
|
8138
8298
|
switch($f.h) {
|
|
8139
8299
|
case undefined: {
|
|
@@ -8153,7 +8313,7 @@ function Config_case__parseGitHubURIx2cparseSuffix_5148($0, $1, $2) {
|
|
|
8153
8313
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split($9 => Prelude_EqOrd_x3dx3d_Eq_Char($9, '/'), $2.a1)}, $e);
|
|
8154
8314
|
}
|
|
8155
8315
|
|
|
8156
|
-
function
|
|
8316
|
+
function Config_n__6080_5820_yesUnlessNo($0, $1, $2, $3, $4) {
|
|
8157
8317
|
switch($4) {
|
|
8158
8318
|
case 'n': return 0;
|
|
8159
8319
|
case 'N': return 0;
|
|
@@ -8161,35 +8321,35 @@ function Config_n__5884_5646_yesUnlessNo($0, $1, $2, $3, $4) {
|
|
|
8161
8321
|
}
|
|
8162
8322
|
}
|
|
8163
8323
|
|
|
8164
|
-
function
|
|
8324
|
+
function Config_n__5561_5266_update($0, $1, $2, $3, $4) {
|
|
8165
8325
|
return $0(undefined)(undefined)($c => Prelude_Basics_flip($2, $3, $c))($1($4));
|
|
8166
8326
|
}
|
|
8167
8327
|
|
|
8168
|
-
function
|
|
8328
|
+
function Config_n__6080_5822_repo($0, $1, $2, $3, $4) {
|
|
8169
8329
|
return Prelude_Types_map_Functor_Maybe(csegen_531(), $4);
|
|
8170
8330
|
}
|
|
8171
8331
|
|
|
8172
|
-
function
|
|
8173
|
-
return
|
|
8332
|
+
function Config_n__5429_5129_parseSuffix($0, $1) {
|
|
8333
|
+
return Config_case__parseGitHubURIx2cparseSuffix_5150($0, $1, Data_String_break$($8 => Prelude_EqOrd_x3dx3d_Eq_Char($8, '.'), $1));
|
|
8174
8334
|
}
|
|
8175
8335
|
|
|
8176
|
-
function
|
|
8177
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_42(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b =>
|
|
8336
|
+
function Config_n__5429_5131_parseSSH($0, $1) {
|
|
8337
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_42(), $6 => Config_dropPrefixx27('git@github.com:', $6), $b => Config_n__5429_5129_parseSuffix($0, $b), $1);
|
|
8178
8338
|
}
|
|
8179
8339
|
|
|
8180
|
-
function
|
|
8181
|
-
return Prelude_Interfaces_x3ex3dx3e(csegen_42(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b =>
|
|
8340
|
+
function Config_n__5429_5130_parseHTTPS($0, $1) {
|
|
8341
|
+
return Prelude_Interfaces_x3ex3dx3e(csegen_42(), $6 => Config_dropPrefixx27('https://github/com/', $6), $b => Config_n__5429_5129_parseSuffix($0, $b), $1);
|
|
8182
8342
|
}
|
|
8183
8343
|
|
|
8184
|
-
function
|
|
8185
|
-
return
|
|
8344
|
+
function Config_n__5561_5265_parseBool($0) {
|
|
8345
|
+
return Config_with__propSettersx2cparseBool_5274($0, Data_String_toLower($0));
|
|
8186
8346
|
}
|
|
8187
8347
|
|
|
8188
|
-
function
|
|
8348
|
+
function Config_n__6080_5821_org($0, $1, $2, $3, $4) {
|
|
8189
8349
|
return Prelude_Types_map_Functor_Maybe(csegen_535(), $4);
|
|
8190
8350
|
}
|
|
8191
8351
|
|
|
8192
|
-
function
|
|
8352
|
+
function Config_n__6080_5819_orIfEmpty($0, $1, $2, $3, $4, $5) {
|
|
8193
8353
|
switch($4.h) {
|
|
8194
8354
|
case 0: return $5;
|
|
8195
8355
|
case undefined: {
|
|
@@ -8201,20 +8361,20 @@ function Config_n__5884_5645_orIfEmpty($0, $1, $2, $3, $4, $5) {
|
|
|
8201
8361
|
}
|
|
8202
8362
|
}
|
|
8203
8363
|
|
|
8204
|
-
function
|
|
8364
|
+
function Config_n__5255_4964_oneDayAgo($0, $1, $2) {
|
|
8205
8365
|
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(Prelude_Cast_cast_Cast_Integer_Bits32((now-86400n))));
|
|
8206
8366
|
}
|
|
8207
8367
|
|
|
8208
|
-
function
|
|
8368
|
+
function Config_n__6080_5823_enterForDefaultStr($0, $1, $2, $3, $4) {
|
|
8209
8369
|
return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' (ENTER for default: ', a2: {a1: $4, a2: {a1: ')', a2: {h: 0}}}});
|
|
8210
8370
|
}
|
|
8211
8371
|
|
|
8212
|
-
function
|
|
8213
|
-
return
|
|
8372
|
+
function Config_n__5382_5082_dropx27($0, $1) {
|
|
8373
|
+
return Config_with__dropPrefixx27x2cdropx27_5090($0, $1, Data_List_PrefixSuffix_dropPrefix($8 => $9 => Decidable_Equality_decEq_DecEq_Char($8, $9), Prelude_Types_fastUnpack($0), $1));
|
|
8214
8374
|
}
|
|
8215
8375
|
|
|
8216
|
-
function
|
|
8217
|
-
return Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($b =>
|
|
8376
|
+
function Config_n__6080_5824_defaultStr($0, $1, $2, $3, $4, $5) {
|
|
8377
|
+
return Data_Maybe_fromMaybe(() => '', Prelude_Types_map_Functor_Maybe($b => Config_n__6080_5823_enterForDefaultStr($0, $1, $2, $3, $4($b)), $5));
|
|
8218
8378
|
}
|
|
8219
8379
|
|
|
8220
8380
|
function Config_show_Show_ConfigError($0) {
|
|
@@ -8241,15 +8401,15 @@ function Config_syncIfOld($0, $1, $2, $3) {
|
|
|
8241
8401
|
case 0: return $1a => Data_Promise_pure_Applicative_Promise($1, $d, $1a);
|
|
8242
8402
|
}
|
|
8243
8403
|
};
|
|
8244
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
8404
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Config_n__5255_4964_oneDayAgo($0, $1, csegen_21()), $b, $2, $3);
|
|
8245
8405
|
}
|
|
8246
8406
|
|
|
8247
8407
|
function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
8248
8408
|
const $b = teamSlugs => $c => $d => {
|
|
8249
8409
|
const $14 = orgMembers => $15 => $16 => {
|
|
8250
8410
|
const $1a = updatedAt => {
|
|
8251
|
-
const $1b = {a1: updatedAt, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7:
|
|
8252
|
-
return Prelude_Interfaces_x3ex3e(csegen_15(), $
|
|
8411
|
+
const $1b = {a1: updatedAt, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: teamSlugs, a9: orgMembers, a10: $0.a10, a11: $0.a11};
|
|
8412
|
+
return Prelude_Interfaces_x3ex3e(csegen_15(), $2c => $2d => Data_Promise_map_Functor_Promise($30 => (undefined), $32 => $33 => Config_writeConfig($1b, $32, $33), $2c, $2d), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_Interfaces_when(csegen_9(), $2, () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), 'Your updated configuration is:'), () => Prelude_IO_printLn(csegen_542(), $0))), () => $52 => $53 => Data_Promise_pure_Applicative_Promise($1b, $52, $53)));
|
|
8253
8413
|
};
|
|
8254
8414
|
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_538(), $1a, $15, $16);
|
|
8255
8415
|
};
|
|
@@ -8259,19 +8419,27 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
8259
8419
|
}
|
|
8260
8420
|
|
|
8261
8421
|
function Config_setConfig($0, $1, $2) {
|
|
8262
|
-
return
|
|
8422
|
+
return Config_with__setConfig_5564($1, Data_List_lookup(csegen_94(), $1, Config_propSetters()), $2, $0);
|
|
8263
8423
|
}
|
|
8264
8424
|
|
|
8265
8425
|
const Config_propSetters = __lazy(function () {
|
|
8266
|
-
return {a1: {a1: 'assignTeams', a2: $3 => $4 =>
|
|
8426
|
+
return {a1: {a1: 'assignTeams', a2: $3 => $4 => Config_n__5561_5266_update(csegen_18(), $9 => Config_n__5561_5265_parseBool($9), b => $d => ({a1: $d.a1, a2: $d.a2, a3: $d.a3, a4: $d.a4, a5: $d.a5, a6: b, a7: $d.a7, a8: $d.a8, a9: $d.a9, a10: $d.a10, a11: $d.a11}), $3, $4)}, a2: {a1: {a1: 'commentOnAssign', a2: $20 => $21 => Config_n__5561_5266_update(csegen_18(), $26 => Config_n__5561_5265_parseBool($26), b => $2a => ({a1: $2a.a1, a2: $2a.a2, a3: $2a.a3, a4: $2a.a4, a5: $2a.a5, a6: $2a.a6, a7: b, a8: $2a.a8, a9: $2a.a9, a10: $2a.a10, a11: $2a.a11}), $20, $21)}, a2: {a1: {a1: 'defaultRemote', a2: $3d => $3e => Config_n__5561_5266_update(csegen_18(), $43 => ({a1: $43}), s => $46 => ({a1: $46.a1, a2: $46.a2, a3: $46.a3, a4: {a1: s}, a5: $46.a5, a6: $46.a6, a7: $46.a7, a8: $46.a8, a9: $46.a9, a10: $46.a10, a11: $46.a11}), $3d, $3e)}, a2: {a1: {a1: 'githubPAT', a2: $5a => $5b => Config_n__5561_5266_update(csegen_18(), $60 => ({a1: $60}), s => $63 => ({a1: $63.a1, a2: $63.a2, a3: $63.a3, a4: $63.a4, a5: $63.a5, a6: $63.a6, a7: $63.a7, a8: $63.a8, a9: $63.a9, a10: {a1: s}, a11: $63.a11}), $5a, $5b)}, a2: {h: 0}}}}};
|
|
8267
8427
|
});
|
|
8268
8428
|
|
|
8269
8429
|
const Config_propGetters = __lazy(function () {
|
|
8270
|
-
return {a1: {a1: 'assignTeams', a2: $3 => Prelude_Show_show_Show_Bool($3.
|
|
8430
|
+
return {a1: {a1: 'assignTeams', a2: $3 => Prelude_Show_show_Show_Bool($3.a6)}, a2: {a1: {a1: 'commentOnAssign', a2: $b => Prelude_Show_show_Show_Bool($b.a7)}, a2: {a1: {a1: 'defaultRemote', a2: $13 => Prelude_Types_maybe(() => 'Not set (defaults to \"origin\")', () => $17 => Prelude_Show_show_Show_String($17), $13.a4)}, a2: {a1: {a1: 'githubPAT', a2: $20 => Prelude_Types_maybe(() => 'Not set (will use $GITHUB_PAT environment variable)', () => $24 => Data_Config_show_Show_x28Hiddenx20x24ax29($24), $20.a10)}, a2: {h: 0}}}}};
|
|
8271
8431
|
});
|
|
8272
8432
|
|
|
8433
|
+
function Config_preferOriginRemote($0) {
|
|
8434
|
+
const $1 = Data_List_find($4 => Prelude_EqOrd_x3dx3d_Eq_String($4, 'origin'), $0);
|
|
8435
|
+
switch($1.h) {
|
|
8436
|
+
case undefined: return $1.a1;
|
|
8437
|
+
case 0: return Data_Maybe_fromMaybe(() => 'origin', Data_List_headx27($0));
|
|
8438
|
+
}
|
|
8439
|
+
}
|
|
8440
|
+
|
|
8273
8441
|
function Config_parseGitHubURI($0) {
|
|
8274
|
-
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(
|
|
8442
|
+
return Prelude_Types_x3cx7cx3e_Alternative_Maybe(Config_n__5429_5130_parseHTTPS($0, $0), () => Config_n__5429_5131_parseSSH($0, $0));
|
|
8275
8443
|
}
|
|
8276
8444
|
|
|
8277
8445
|
function Config_loadOrCreateConfig($0, $1, $2, $3, $4, $5) {
|
|
@@ -8314,7 +8482,7 @@ function Config_loadConfig($0, $1, $2) {
|
|
|
8314
8482
|
}
|
|
8315
8483
|
};
|
|
8316
8484
|
const $a = {a1: $b, a2: a => $13 => ({h: 1, a1: $13}), a3: $15};
|
|
8317
|
-
const $9 = {a1: $a, a2:
|
|
8485
|
+
const $9 = {a1: $a, a2: csegen_247(), a3: csegen_248()};
|
|
8318
8486
|
const $24 = b => a => func => $25 => {
|
|
8319
8487
|
switch($25.h) {
|
|
8320
8488
|
case 0: return {h: 0, a1: $25.a1};
|
|
@@ -8363,7 +8531,7 @@ function Config_loadConfig($0, $1, $2) {
|
|
|
8363
8531
|
}
|
|
8364
8532
|
|
|
8365
8533
|
function Config_getConfig($0, $1, $2) {
|
|
8366
|
-
return $3 =>
|
|
8534
|
+
return $3 => Config_with__getConfig_5738($1, Data_List_lookup(csegen_94(), $1, Config_propGetters()), $0, $2, $3);
|
|
8367
8535
|
}
|
|
8368
8536
|
|
|
8369
8537
|
function Config_findConfig($0, $1, $2) {
|
|
@@ -8383,41 +8551,73 @@ function Config_findConfig($0, $1, $2) {
|
|
|
8383
8551
|
}
|
|
8384
8552
|
|
|
8385
8553
|
function Config_dropPrefixx27($0, $1) {
|
|
8386
|
-
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4),
|
|
8554
|
+
return Prelude_Types_map_Functor_Maybe($4 => Prelude_Types_fastPack($4), Config_n__5382_5082_dropx27($0, Prelude_Types_fastUnpack($1)));
|
|
8387
8555
|
}
|
|
8388
8556
|
|
|
8389
8557
|
function Config_createConfig($0, $1, $2, $3) {
|
|
8390
|
-
|
|
8391
|
-
const $
|
|
8392
|
-
|
|
8393
|
-
|
|
8394
|
-
|
|
8395
|
-
|
|
8396
|
-
|
|
8397
|
-
|
|
8398
|
-
|
|
8399
|
-
|
|
8400
|
-
|
|
8401
|
-
|
|
8402
|
-
|
|
8403
|
-
|
|
8404
|
-
|
|
8558
|
+
const $19 = () => {
|
|
8559
|
+
const $23 = Config_n__6080_5823_enterForDefaultStr($0, $3, $2, $1, 'unset');
|
|
8560
|
+
const $22 = () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStr(csegen_21(), Data_String_fastUnlines({a1: 'Harmony uses a GitHub Personal Access Token (PAT) to communicate with GitHub.', a2: {a1: 'You can set this via the $GITHUB_PAT environment variable or a config property.', a2: {a1: 'If you don\'t set in your config now, you can set later with `harmony config githubPAT abcdefg`.', a2: {a1: 'The ENV var will always take precedence over the config property.', a2: {a1: '', a2: {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'What PAT would you like to set in the config file', a2: {a1: $23, a2: {a1: '?', a2: {h: 0}}}}), a2: {h: 0}}}}}}})), () => $4d => $4e => {
|
|
8561
|
+
const $54 = $55 => {
|
|
8562
|
+
switch(Data_String_trim($55)) {
|
|
8563
|
+
case '': return {h: 0};
|
|
8564
|
+
default: return {a1: Data_String_trim($55)};
|
|
8565
|
+
}
|
|
8566
|
+
};
|
|
8567
|
+
const $50 = Prelude_Interfaces_x3cx24x3e(csegen_102(), $54, csegen_407());
|
|
8568
|
+
const $5e = configPAT => $5f => $60 => {
|
|
8569
|
+
const $6c = $6d => $6e => $6f => {
|
|
8570
|
+
switch($6d.h) {
|
|
8571
|
+
case undefined: {
|
|
8572
|
+
const $7d = remoteGuess => $7e => $7f => {
|
|
8573
|
+
const $9e = defaultOrgAndRepo => {
|
|
8574
|
+
const $9f = Config_n__6080_5824_defaultStr($0, $3, $2, $1, csegen_535(), defaultOrgAndRepo);
|
|
8575
|
+
return Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'What GitHub org would you like to use harmony for', a2: {a1: $9f, a2: {a1: '?', a2: {h: 0}}}})), () => $bd => $be => {
|
|
8576
|
+
const $d7 = org => {
|
|
8577
|
+
const $d8 = Config_n__6080_5824_defaultStr($0, $3, $2, $1, csegen_531(), defaultOrgAndRepo);
|
|
8578
|
+
return Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'What repository would you like to use harmony for', a2: {a1: $d8, a2: {a1: '?', a2: {h: 0}}}})), () => $f6 => $f7 => {
|
|
8579
|
+
const $110 = repo => {
|
|
8580
|
+
const $111 = Config_n__6080_5823_enterForDefaultStr($0, $3, $2, $1, remoteGuess);
|
|
8581
|
+
return Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'What GitHub remote repo would you like to use harmony for', a2: {a1: $111, a2: {a1: '?', a2: {h: 0}}}})), () => $12d => $12e => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_102(), $135 => ({a1: Config_n__6080_5819_orIfEmpty($0, $3, $2, $1, {a1: remoteGuess}, Data_String_trim($135))}), csegen_407()), defaultRemote => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStr(csegen_21(), 'Would you like harmony to comment when it assigns reviewers? [Y/n] '), () => $14d => $14e => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_102(), $155 => Config_n__6080_5820_yesUnlessNo($0, $3, $2, $1, Data_String_trim($155)), csegen_407()), commentOnAssign => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStr(csegen_21(), 'Would you like harmony to assign teams in addition to individuals when it assigns reviewers? [Y/n] '), () => $16a => $16b => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_102(), $172 => Config_n__6080_5820_yesUnlessNo($0, $3, $2, $1, Data_String_trim($172)), csegen_407()), assignTeams => $17e => $17f => Data_Promise_x3ex3ex3d_Monad_Promise($182 => $183 => $184 => Data_Promise_liftIO_HasIO_Promise(FFI_GitHub_octokit($6d.a1), $182, $183, $184), _ => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), 'Creating config...'), () => $196 => $197 => {
|
|
8582
|
+
const $1a2 = mainBranch => $1a3 => $1a4 => {
|
|
8583
|
+
const $1a8 = updatedAt => {
|
|
8584
|
+
const $1a9 = {a1: Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: './', a2: {a1: Data_Config_filename(), a2: {h: 0}}}), a2: $2, a3: $3};
|
|
8585
|
+
return $1b8 => $1b9 => {
|
|
8586
|
+
const $1bf = teamSlugs => $1c0 => $1c1 => {
|
|
8587
|
+
const $1c7 = orgMembers => {
|
|
8588
|
+
const $1c8 = {a1: updatedAt, a2: org, a3: repo, a4: defaultRemote, a5: mainBranch, a6: assignTeams, a7: commentOnAssign, a8: teamSlugs, a9: orgMembers, a10: Prelude_Interfaces_x3cx24x3e(csegen_18(), $1d7 => $1d7, configPAT), a11: $1a9};
|
|
8589
|
+
return Prelude_Interfaces_x3ex3e(csegen_15(), $1de => $1df => Data_Promise_map_Functor_Promise($1e2 => (undefined), $1e4 => $1e5 => Config_writeConfig($1c8, $1e4, $1e5), $1de, $1df), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), 'Your new configuration is:'), () => Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_printLn(csegen_542(), $1c8), () => $1ff => $200 => Data_Promise_pure_Applicative_Promise($1c8, $1ff, $200))));
|
|
8590
|
+
};
|
|
8591
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listOrgMembers(_, org), $1c7, $1c0, $1c1);
|
|
8592
|
+
};
|
|
8593
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listTeams(_, org), $1bf, $1b8, $1b9);
|
|
8594
|
+
};
|
|
8595
|
+
};
|
|
8596
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_538(), $1a8, $1a3, $1a4);
|
|
8597
|
+
};
|
|
8598
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($19a => $19b => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $19a, $19b), $1a2, $196, $197);
|
|
8599
|
+
}), $17e, $17f), $16a, $16b)), $14d, $14e)), $12d, $12e));
|
|
8600
|
+
};
|
|
8601
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_102(), $fe => Config_n__6080_5819_orIfEmpty($0, $3, $2, $1, Config_n__6080_5822_repo($0, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($fe)), csegen_407()), $110, $f6, $f7);
|
|
8602
|
+
});
|
|
8405
8603
|
};
|
|
8406
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
8407
|
-
};
|
|
8408
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listTeams($1, org), $119, $112, $113);
|
|
8604
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_102(), $c5 => Config_n__6080_5819_orIfEmpty($0, $3, $2, $1, Config_n__6080_5821_org($0, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($c5)), csegen_407()), $d7, $bd, $be);
|
|
8605
|
+
});
|
|
8409
8606
|
};
|
|
8607
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($82 => $83 => Data_Promise_x3cx7cx3e_Alternative_Promise(Prelude_Interfaces_x3cx24x3e(csegen_102(), $8a => Config_parseGitHubURI($8a), $8e => $8f => FFI_Git_remoteURI($0, remoteGuess, $8e, $8f)), () => $96 => $97 => Data_Promise_pure_Applicative_Promise({h: 0}, $96, $97), $82, $83), $9e, $7e, $7f);
|
|
8410
8608
|
};
|
|
8411
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
8412
|
-
}
|
|
8413
|
-
return
|
|
8414
|
-
}
|
|
8609
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_102(), $77 => Config_preferOriginRemote($77), FFI_Git_listRemotes($0)), $7d, $6e, $6f);
|
|
8610
|
+
}
|
|
8611
|
+
default: return Data_Promise_reject('Either the GITHUB_PAT environment variable or githubPAT config property must be set to a personal access token.', $6e, $6f);
|
|
8612
|
+
}
|
|
8415
8613
|
};
|
|
8416
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
8417
|
-
}
|
|
8418
|
-
|
|
8419
|
-
|
|
8420
|
-
|
|
8614
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($63 => $64 => Data_Promise_pure_Applicative_Promise(Prelude_Types_x3cx7cx3e_Alternative_Maybe($1, () => configPAT), $63, $64), $6c, $5f, $60);
|
|
8615
|
+
};
|
|
8616
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise($50, $5e, $4d, $4e);
|
|
8617
|
+
});
|
|
8618
|
+
return Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), ''), $22);
|
|
8619
|
+
};
|
|
8620
|
+
return Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: 'Creating a new configuration (storing in ', a2: {a1: Data_Config_filename(), a2: {a1: ')...', a2: {h: 0}}}})), $19);
|
|
8421
8621
|
}
|
|
8422
8622
|
|
|
8423
8623
|
function Data_List_PrefixSuffix_with__withx20blockx20inx20dropPrefix_3662($0, $1, $2, $3, $4, $5) {
|
|
@@ -8458,10 +8658,10 @@ function Data_List_PrefixSuffix_dropPrefix($0, $1, $2) {
|
|
|
8458
8658
|
}
|
|
8459
8659
|
}
|
|
8460
8660
|
|
|
8461
|
-
function
|
|
8661
|
+
function BashCompletion_n__3772_1119_slugsOrLogins($0, $1, $2) {
|
|
8462
8662
|
switch(Data_String_isPrefixOf('+', $1)) {
|
|
8463
|
-
case 1: return Prelude_Interfaces_x3cx24x3e(
|
|
8464
|
-
case 0: return $2.
|
|
8663
|
+
case 1: return Prelude_Interfaces_x3cx24x3e(csegen_118(), $b => ('+'+$b), $2.a9);
|
|
8664
|
+
case 0: return $2.a8;
|
|
8465
8665
|
}
|
|
8466
8666
|
}
|
|
8467
8667
|
|
|
@@ -8481,14 +8681,14 @@ function BashCompletion_opts($0, $1, $2) {
|
|
|
8481
8681
|
switch($1) {
|
|
8482
8682
|
case '--': {
|
|
8483
8683
|
switch($2) {
|
|
8484
|
-
case 'list': return $0.
|
|
8684
|
+
case 'list': return $0.a8;
|
|
8485
8685
|
default: {
|
|
8486
8686
|
switch($2) {
|
|
8487
|
-
case 'list': return Prelude_Types_List_filter($15 => Data_String_isPrefixOf($1, $15), $0.
|
|
8687
|
+
case 'list': return Prelude_Types_List_filter($15 => Data_String_isPrefixOf($1, $15), $0.a8);
|
|
8488
8688
|
default: {
|
|
8489
8689
|
switch($1) {
|
|
8490
|
-
case '--': return $0.
|
|
8491
|
-
default: return Prelude_Types_List_filter($1f => Data_String_isPrefixOf($1, $1f),
|
|
8690
|
+
case '--': return $0.a8;
|
|
8691
|
+
default: return Prelude_Types_List_filter($1f => Data_String_isPrefixOf($1, $1f), BashCompletion_n__3772_1119_slugsOrLogins($2, $1, $0));
|
|
8492
8692
|
}
|
|
8493
8693
|
}
|
|
8494
8694
|
}
|
|
@@ -8497,11 +8697,11 @@ function BashCompletion_opts($0, $1, $2) {
|
|
|
8497
8697
|
}
|
|
8498
8698
|
default: {
|
|
8499
8699
|
switch($2) {
|
|
8500
|
-
case 'list': return Prelude_Types_List_filter($2b => Data_String_isPrefixOf($1, $2b), $0.
|
|
8700
|
+
case 'list': return Prelude_Types_List_filter($2b => Data_String_isPrefixOf($1, $2b), $0.a8);
|
|
8501
8701
|
default: {
|
|
8502
8702
|
switch($1) {
|
|
8503
|
-
case '--': return $0.
|
|
8504
|
-
default: return Prelude_Types_List_filter($35 => Data_String_isPrefixOf($1, $35),
|
|
8703
|
+
case '--': return $0.a8;
|
|
8704
|
+
default: return Prelude_Types_List_filter($35 => Data_String_isPrefixOf($1, $35), BashCompletion_n__3772_1119_slugsOrLogins($2, $1, $0));
|
|
8505
8705
|
}
|
|
8506
8706
|
}
|
|
8507
8707
|
}
|
|
@@ -8519,14 +8719,14 @@ function BashCompletion_opts($0, $1, $2) {
|
|
|
8519
8719
|
switch($1) {
|
|
8520
8720
|
case '--': {
|
|
8521
8721
|
switch($2) {
|
|
8522
|
-
case 'list': return $0.
|
|
8722
|
+
case 'list': return $0.a8;
|
|
8523
8723
|
default: {
|
|
8524
8724
|
switch($2) {
|
|
8525
|
-
case 'list': return Prelude_Types_List_filter($4d => Data_String_isPrefixOf($1, $4d), $0.
|
|
8725
|
+
case 'list': return Prelude_Types_List_filter($4d => Data_String_isPrefixOf($1, $4d), $0.a8);
|
|
8526
8726
|
default: {
|
|
8527
8727
|
switch($1) {
|
|
8528
|
-
case '--': return $0.
|
|
8529
|
-
default: return Prelude_Types_List_filter($57 => Data_String_isPrefixOf($1, $57),
|
|
8728
|
+
case '--': return $0.a8;
|
|
8729
|
+
default: return Prelude_Types_List_filter($57 => Data_String_isPrefixOf($1, $57), BashCompletion_n__3772_1119_slugsOrLogins($2, $1, $0));
|
|
8530
8730
|
}
|
|
8531
8731
|
}
|
|
8532
8732
|
}
|
|
@@ -8535,11 +8735,11 @@ function BashCompletion_opts($0, $1, $2) {
|
|
|
8535
8735
|
}
|
|
8536
8736
|
default: {
|
|
8537
8737
|
switch($2) {
|
|
8538
|
-
case 'list': return Prelude_Types_List_filter($63 => Data_String_isPrefixOf($1, $63), $0.
|
|
8738
|
+
case 'list': return Prelude_Types_List_filter($63 => Data_String_isPrefixOf($1, $63), $0.a8);
|
|
8539
8739
|
default: {
|
|
8540
8740
|
switch($1) {
|
|
8541
|
-
case '--': return $0.
|
|
8542
|
-
default: return Prelude_Types_List_filter($6d => Data_String_isPrefixOf($1, $6d),
|
|
8741
|
+
case '--': return $0.a8;
|
|
8742
|
+
default: return Prelude_Types_List_filter($6d => Data_String_isPrefixOf($1, $6d), BashCompletion_n__3772_1119_slugsOrLogins($2, $1, $0));
|
|
8543
8743
|
}
|
|
8544
8744
|
}
|
|
8545
8745
|
}
|
|
@@ -8569,7 +8769,7 @@ function BashCompletion_cmdOpts($0, $1) {
|
|
|
8569
8769
|
switch($0) {
|
|
8570
8770
|
case '-': {
|
|
8571
8771
|
switch($1) {
|
|
8572
|
-
case 'contribute': return
|
|
8772
|
+
case 'contribute': return csegen_577();
|
|
8573
8773
|
default: {
|
|
8574
8774
|
switch($1) {
|
|
8575
8775
|
case 'contribute': {
|
|
@@ -8585,7 +8785,7 @@ function BashCompletion_cmdOpts($0, $1) {
|
|
|
8585
8785
|
}
|
|
8586
8786
|
case '--': {
|
|
8587
8787
|
switch($1) {
|
|
8588
|
-
case 'contribute': return
|
|
8788
|
+
case 'contribute': return csegen_577();
|
|
8589
8789
|
default: {
|
|
8590
8790
|
switch($1) {
|
|
8591
8791
|
case 'contribute': {
|
|
@@ -8629,7 +8829,7 @@ function BashCompletion_cmdOpts($0, $1) {
|
|
|
8629
8829
|
switch($0) {
|
|
8630
8830
|
case '-': {
|
|
8631
8831
|
switch($1) {
|
|
8632
|
-
case 'contribute': return
|
|
8832
|
+
case 'contribute': return csegen_577();
|
|
8633
8833
|
default: {
|
|
8634
8834
|
switch($1) {
|
|
8635
8835
|
case 'contribute': {
|
|
@@ -8645,7 +8845,7 @@ function BashCompletion_cmdOpts($0, $1) {
|
|
|
8645
8845
|
}
|
|
8646
8846
|
case '--': {
|
|
8647
8847
|
switch($1) {
|
|
8648
|
-
case 'contribute': return
|
|
8848
|
+
case 'contribute': return csegen_577();
|
|
8649
8849
|
default: {
|
|
8650
8850
|
switch($1) {
|
|
8651
8851
|
case 'contribute': {
|
|
@@ -8686,7 +8886,7 @@ function AppVersion_printVersion($0) {
|
|
|
8686
8886
|
}
|
|
8687
8887
|
|
|
8688
8888
|
const AppVersion_appVersion = __lazy(function () {
|
|
8689
|
-
return '
|
|
8889
|
+
return '1.1.0';
|
|
8690
8890
|
});
|
|
8691
8891
|
|
|
8692
8892
|
|