@mattpolzin/harmony 1.0.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 +508 -410
- harmony-npm/package.json +1 -1
harmony-npm/harmony
CHANGED
|
@@ -694,7 +694,7 @@ function x24tcOpt_1($0) {
|
|
|
694
694
|
default: {
|
|
695
695
|
switch($0.a7.h) {
|
|
696
696
|
case 0: return {h: 0, a1: $0.a6};
|
|
697
|
-
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)};
|
|
698
698
|
default: {
|
|
699
699
|
switch($0.a6.h) {
|
|
700
700
|
case 0: {
|
|
@@ -703,7 +703,7 @@ function x24tcOpt_1($0) {
|
|
|
703
703
|
case 0: return {h: 0, a1: $0.a5};
|
|
704
704
|
default: {
|
|
705
705
|
const $18 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
706
|
-
const $1c = Data_List_DeleteBy_deleteByx27($1f => $20 => Prelude_Basics_on($23 => $24 => $0.a1.a1.a1($23)($24),
|
|
706
|
+
const $1c = Data_List_DeleteBy_deleteByx27($1f => $20 => Prelude_Basics_on($23 => $24 => $0.a1.a1.a1($23)($24), csegen_474(), $1f, $20), $18, $0.a6);
|
|
707
707
|
switch($1c.a1.h) {
|
|
708
708
|
case 0: {
|
|
709
709
|
switch($0.a8) {
|
|
@@ -718,7 +718,7 @@ function x24tcOpt_1($0) {
|
|
|
718
718
|
}
|
|
719
719
|
default: {
|
|
720
720
|
const $6b = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
721
|
-
const $6f = Data_List_DeleteBy_deleteByx27($72 => $73 => Prelude_Basics_on($76 => $77 => $0.a1.a1.a1($76)($77),
|
|
721
|
+
const $6f = Data_List_DeleteBy_deleteByx27($72 => $73 => Prelude_Basics_on($76 => $77 => $0.a1.a1.a1($76)($77), csegen_474(), $72, $73), $6b, $0.a6);
|
|
722
722
|
switch($6f.a1.h) {
|
|
723
723
|
case 0: {
|
|
724
724
|
switch($0.a8) {
|
|
@@ -743,7 +743,7 @@ function x24tcOpt_1($0) {
|
|
|
743
743
|
case 0: return {h: 0, a1: $0.a5};
|
|
744
744
|
default: {
|
|
745
745
|
const $c2 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
746
|
-
const $c6 = Data_List_DeleteBy_deleteByx27($c9 => $ca => Prelude_Basics_on($cd => $ce => $0.a1.a1.a1($cd)($ce),
|
|
746
|
+
const $c6 = Data_List_DeleteBy_deleteByx27($c9 => $ca => Prelude_Basics_on($cd => $ce => $0.a1.a1.a1($cd)($ce), csegen_474(), $c9, $ca), $c2, $0.a6);
|
|
747
747
|
switch($c6.a1.h) {
|
|
748
748
|
case 0: {
|
|
749
749
|
switch($0.a8) {
|
|
@@ -758,7 +758,7 @@ function x24tcOpt_1($0) {
|
|
|
758
758
|
}
|
|
759
759
|
default: {
|
|
760
760
|
const $115 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
|
|
761
|
-
const $119 = Data_List_DeleteBy_deleteByx27($11c => $11d => Prelude_Basics_on($120 => $121 => $0.a1.a1.a1($120)($121),
|
|
761
|
+
const $119 = Data_List_DeleteBy_deleteByx27($11c => $11d => Prelude_Basics_on($120 => $121 => $0.a1.a1.a1($120)($121), csegen_474(), $11c, $11d), $115, $0.a6);
|
|
762
762
|
switch($119.a1.h) {
|
|
763
763
|
case 0: {
|
|
764
764
|
switch($0.a8) {
|
|
@@ -1528,31 +1528,31 @@ const csegen_95 = __lazy(function () {
|
|
|
1528
1528
|
return System_exitSuccess(csegen_59());
|
|
1529
1529
|
});
|
|
1530
1530
|
|
|
1531
|
-
const
|
|
1531
|
+
const csegen_102 = __lazy(function () {
|
|
1532
1532
|
return $0 => $1 => $2 => $3 => $4 => $5 => Data_Promise_map_Functor_Promise($2, $3, $4, $5);
|
|
1533
1533
|
});
|
|
1534
1534
|
|
|
1535
|
-
const
|
|
1535
|
+
const csegen_110 = __lazy(function () {
|
|
1536
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)};
|
|
1537
1537
|
});
|
|
1538
1538
|
|
|
1539
|
-
const
|
|
1540
|
-
return $0 => Data_List_sort(
|
|
1539
|
+
const csegen_111 = __lazy(function () {
|
|
1540
|
+
return $0 => Data_List_sort(csegen_110(), $0);
|
|
1541
1541
|
});
|
|
1542
1542
|
|
|
1543
|
-
const
|
|
1543
|
+
const csegen_112 = __lazy(function () {
|
|
1544
1544
|
return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_77(), $0, $1, $2);
|
|
1545
1545
|
});
|
|
1546
1546
|
|
|
1547
|
-
const
|
|
1547
|
+
const csegen_114 = __lazy(function () {
|
|
1548
1548
|
return {a1: x => Prelude_Show_show_Show_String(x), a2: d => x => Prelude_Show_showPrec_Show_String(d, x)};
|
|
1549
1549
|
});
|
|
1550
1550
|
|
|
1551
|
-
const
|
|
1551
|
+
const csegen_118 = __lazy(function () {
|
|
1552
1552
|
return $0 => $1 => $2 => $3 => Prelude_Types_map_Functor_List($2, $3);
|
|
1553
1553
|
});
|
|
1554
1554
|
|
|
1555
|
-
const
|
|
1555
|
+
const csegen_129 = __lazy(function () {
|
|
1556
1556
|
return $0 => $1 => Data_Promise_pure_Applicative_Promise(undefined, $0, $1);
|
|
1557
1557
|
});
|
|
1558
1558
|
|
|
@@ -1588,119 +1588,123 @@ const csegen_193 = __lazy(function () {
|
|
|
1588
1588
|
return $0 => $1 => $2 => $0($1($2));
|
|
1589
1589
|
});
|
|
1590
1590
|
|
|
1591
|
-
const
|
|
1592
|
-
return
|
|
1591
|
+
const csegen_241 = __lazy(function () {
|
|
1592
|
+
return $0 => Language_JSON_Accessors_optional($3 => Language_JSON_Accessors_string($3), $0);
|
|
1593
1593
|
});
|
|
1594
1594
|
|
|
1595
1595
|
const csegen_247 = __lazy(function () {
|
|
1596
|
-
return a => $0 =>
|
|
1596
|
+
return b => a => $0 => $1 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($0, $1);
|
|
1597
1597
|
});
|
|
1598
1598
|
|
|
1599
1599
|
const csegen_248 = __lazy(function () {
|
|
1600
|
+
return a => $0 => Prelude_Types_join_Monad_x28Eitherx20x24ex29($0);
|
|
1601
|
+
});
|
|
1602
|
+
|
|
1603
|
+
const csegen_249 = __lazy(function () {
|
|
1600
1604
|
return $0 => Data_Either_maybeToEither(() => 'Failed to parse JSON', Language_JSON_parse($0));
|
|
1601
1605
|
});
|
|
1602
1606
|
|
|
1603
|
-
const
|
|
1607
|
+
const csegen_252 = __lazy(function () {
|
|
1604
1608
|
return b => a => func => $0 => Text_Bounded_map_Functor_WithBounds(func, $0);
|
|
1605
1609
|
});
|
|
1606
1610
|
|
|
1607
|
-
const
|
|
1611
|
+
const csegen_263 = __lazy(function () {
|
|
1608
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)};
|
|
1609
1613
|
});
|
|
1610
1614
|
|
|
1611
|
-
const
|
|
1615
|
+
const csegen_271 = __lazy(function () {
|
|
1612
1616
|
return {a1: $1 => Language_JSON_Tokens_TokType_TokenKind_JSONTokenKind($1), a2: kind => $5 => Language_JSON_Tokens_tokValue_TokenKind_JSONTokenKind(kind, $5)};
|
|
1613
1617
|
});
|
|
1614
1618
|
|
|
1615
|
-
const
|
|
1619
|
+
const csegen_274 = __lazy(function () {
|
|
1616
1620
|
return {a1: $1 => $2 => Language_JSON_Tokens_x3dx3d_Eq_JSONTokenKind($1, $2), a2: $7 => $8 => Language_JSON_Tokens_x2fx3d_Eq_JSONTokenKind($7, $8)};
|
|
1617
1621
|
});
|
|
1618
1622
|
|
|
1619
|
-
const
|
|
1623
|
+
const csegen_310 = __lazy(function () {
|
|
1620
1624
|
return {a1: $1 => Language_JSON_String_Tokens_TokType_TokenKind_JSONStringTokenKind($1), a2: kind => $5 => Language_JSON_String_Tokens_tokValue_TokenKind_JSONStringTokenKind(kind, $5)};
|
|
1621
1625
|
});
|
|
1622
1626
|
|
|
1623
|
-
const
|
|
1627
|
+
const csegen_313 = __lazy(function () {
|
|
1624
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)};
|
|
1625
1629
|
});
|
|
1626
1630
|
|
|
1627
|
-
const
|
|
1631
|
+
const csegen_329 = __lazy(function () {
|
|
1628
1632
|
return $0 => $1 => $2 => $3 => Text_Bounded_map_Functor_WithBounds($2, $3);
|
|
1629
1633
|
});
|
|
1630
1634
|
|
|
1631
|
-
const
|
|
1635
|
+
const csegen_331 = __lazy(function () {
|
|
1632
1636
|
return {a1: {a1: 'End of input', a2: {h: 0}}, a2: {h: 0}};
|
|
1633
1637
|
});
|
|
1634
1638
|
|
|
1635
|
-
const
|
|
1639
|
+
const csegen_383 = __lazy(function () {
|
|
1636
1640
|
return $0 => $0.a2;
|
|
1637
1641
|
});
|
|
1638
1642
|
|
|
1639
|
-
const
|
|
1643
|
+
const csegen_386 = __lazy(function () {
|
|
1640
1644
|
return $0 => $0.a1;
|
|
1641
1645
|
});
|
|
1642
1646
|
|
|
1643
|
-
const
|
|
1647
|
+
const csegen_391 = __lazy(function () {
|
|
1644
1648
|
return $0 => $1 => Prelude_Types_max_Ord_Nat($0, $1);
|
|
1645
1649
|
});
|
|
1646
1650
|
|
|
1647
|
-
const
|
|
1651
|
+
const csegen_393 = __lazy(function () {
|
|
1648
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}}}));
|
|
1649
1653
|
});
|
|
1650
1654
|
|
|
1651
|
-
const
|
|
1655
|
+
const csegen_405 = __lazy(function () {
|
|
1652
1656
|
return $0 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($0));
|
|
1653
1657
|
});
|
|
1654
1658
|
|
|
1655
|
-
const
|
|
1659
|
+
const csegen_407 = __lazy(function () {
|
|
1656
1660
|
return Prelude_IO_getLine(csegen_21());
|
|
1657
1661
|
});
|
|
1658
1662
|
|
|
1659
|
-
const
|
|
1663
|
+
const csegen_437 = __lazy(function () {
|
|
1660
1664
|
return $0 => Language_JSON_Accessors_array($3 => Data_PullRequest_parsePR($3), $0);
|
|
1661
1665
|
});
|
|
1662
1666
|
|
|
1663
|
-
const
|
|
1667
|
+
const csegen_457 = __lazy(function () {
|
|
1664
1668
|
return {a1: acc => elem => func => init => input => Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29(func, init, input), a2: elem => acc => func => init => input => Prelude_Types_foldl_Foldable_x28Eitherx20x24ex29(func, init, input), a3: elem => $b => Prelude_Types_null_Foldable_x28Eitherx20x24ex29($b), a4: elem => acc => m => $f => funcM => init => input => Prelude_Types_foldlM_Foldable_x28Eitherx20x24ex29($f, funcM, init, input), a5: elem => $16 => Prelude_Types_toList_Foldable_x28Eitherx20x24ex29($16), a6: a => m => $1a => f => $1b => Prelude_Types_foldMap_Foldable_x28Eitherx20x24ex29($1a, f, $1b)};
|
|
1665
1669
|
});
|
|
1666
1670
|
|
|
1667
|
-
const
|
|
1671
|
+
const csegen_461 = __lazy(function () {
|
|
1668
1672
|
return b => a => f => $0 => $1 => $2 => Prelude_Types_traverse_Traversable_x28Eitherx20x24ex29($0, $1, $2);
|
|
1669
1673
|
});
|
|
1670
1674
|
|
|
1671
|
-
const
|
|
1675
|
+
const csegen_474 = __lazy(function () {
|
|
1672
1676
|
return $0 => $0.a1;
|
|
1673
1677
|
});
|
|
1674
1678
|
|
|
1675
|
-
const
|
|
1676
|
-
return $0 => $1 => $2 => Data_Promise_either(
|
|
1679
|
+
const csegen_482 = __lazy(function () {
|
|
1680
|
+
return $0 => $1 => $2 => Data_Promise_either(csegen_114(), Data_PullRequest_parsePullRequestsString($0), $1, $2);
|
|
1677
1681
|
});
|
|
1678
1682
|
|
|
1679
|
-
const
|
|
1680
|
-
return $0 => $1 => $2 => Data_Promise_either(
|
|
1683
|
+
const csegen_483 = __lazy(function () {
|
|
1684
|
+
return $0 => $1 => $2 => Data_Promise_either(csegen_114(), Data_User_parseUserString($0), $1, $2);
|
|
1681
1685
|
});
|
|
1682
1686
|
|
|
1683
|
-
const
|
|
1687
|
+
const csegen_516 = __lazy(function () {
|
|
1684
1688
|
return {a1: $1 => $2 => _add32s($1, $2), a2: $6 => $7 => _mul32s($6, $7), a3: $b => Number(_truncBigInt32($b))};
|
|
1685
1689
|
});
|
|
1686
1690
|
|
|
1687
|
-
const
|
|
1691
|
+
const csegen_531 = __lazy(function () {
|
|
1688
1692
|
return $0 => $0.a2;
|
|
1689
1693
|
});
|
|
1690
1694
|
|
|
1691
|
-
const
|
|
1695
|
+
const csegen_535 = __lazy(function () {
|
|
1692
1696
|
return $0 => $0.a1;
|
|
1693
1697
|
});
|
|
1694
1698
|
|
|
1695
|
-
const
|
|
1696
|
-
return Prelude_Interfaces_x3cx24x3e(
|
|
1699
|
+
const csegen_538 = __lazy(function () {
|
|
1700
|
+
return Prelude_Interfaces_x3cx24x3e(csegen_102(), $4 => Prelude_Cast_cast_Cast_Integer_Bits32($4), System_time(csegen_21()));
|
|
1697
1701
|
});
|
|
1698
1702
|
|
|
1699
|
-
const
|
|
1703
|
+
const csegen_542 = __lazy(function () {
|
|
1700
1704
|
return {a1: csegen_21(), a2: {a1: x => Data_Config_show_Show_Config(x), a2: d => x => Data_Config_showPrec_Show_Config(d, x)}};
|
|
1701
1705
|
});
|
|
1702
1706
|
|
|
1703
|
-
const
|
|
1707
|
+
const csegen_577 = __lazy(function () {
|
|
1704
1708
|
return {a1: {a1: '--checkout', a2: {a1: '-c', a2: {h: 0}}}};
|
|
1705
1709
|
});
|
|
1706
1710
|
|
|
@@ -1733,16 +1737,16 @@ function Main_case__contribute_2186($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a)
|
|
|
1733
1737
|
}
|
|
1734
1738
|
}
|
|
1735
1739
|
|
|
1736
|
-
function
|
|
1740
|
+
function Main_n__6457_1831_putNameLn($0, $1, $2, $3) {
|
|
1737
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}}}});
|
|
1738
1742
|
}
|
|
1739
1743
|
|
|
1740
|
-
function
|
|
1744
|
+
function Main_n__6325_1721_partitionedArgs($0, $1, $2, $3, $4) {
|
|
1741
1745
|
const $5 = Data_List_partition($8 => Data_String_isPrefixOf('+', $8), $4);
|
|
1742
1746
|
return {a1: Prelude_Types_map_Functor_List($11 => Data_String_Extra_drop(1n, $11), $5.a1), a2: $5.a2};
|
|
1743
1747
|
}
|
|
1744
1748
|
|
|
1745
|
-
function
|
|
1749
|
+
function Main_n__7005_2384_parseSkipArg($0, $1) {
|
|
1746
1750
|
const $2 = Prelude_Types_fastUnpack($1);
|
|
1747
1751
|
switch($2.h) {
|
|
1748
1752
|
case undefined: {
|
|
@@ -1755,15 +1759,15 @@ function Main_n__6978_2384_parseSkipArg($0, $1) {
|
|
|
1755
1759
|
}
|
|
1756
1760
|
}
|
|
1757
1761
|
|
|
1758
|
-
function
|
|
1762
|
+
function Main_n__7204_2635_parsePg($0, $1, $2, $3, $4, $5) {
|
|
1759
1763
|
return Data_String_parsePositive(csegen_30(), $5);
|
|
1760
1764
|
}
|
|
1761
1765
|
|
|
1762
|
-
function
|
|
1766
|
+
function Main_n__7204_2634_parseLim($0, $1, $2, $3, $4) {
|
|
1763
1767
|
return Prelude_Interfaces_x3cx3dx3c(csegen_42(), x => Data_Fin_natToFin(x, Prelude_Types_prim__integerToNat(101n)), $f => Data_String_parsePositive(csegen_30(), $f));
|
|
1764
1768
|
}
|
|
1765
1769
|
|
|
1766
|
-
function
|
|
1770
|
+
function Main_n__7005_2383_parseCheckoutArg($0, $1) {
|
|
1767
1771
|
switch($1) {
|
|
1768
1772
|
case '-c': return {a1: {h: 0}};
|
|
1769
1773
|
case '--checkout': return {a1: {h: 0}};
|
|
@@ -1771,11 +1775,11 @@ function Main_n__6978_2383_parseCheckoutArg($0, $1) {
|
|
|
1771
1775
|
}
|
|
1772
1776
|
}
|
|
1773
1777
|
|
|
1774
|
-
function
|
|
1778
|
+
function Main_n__6457_1830_forkedUser($0, $1, $2, $3) {
|
|
1775
1779
|
return FFI_Concurrency_fork(csegen_21(), ('user --json '+$3));
|
|
1776
1780
|
}
|
|
1777
1781
|
|
|
1778
|
-
function
|
|
1782
|
+
function Main_n__6195_1583_configuredOpts($0, $1, $2) {
|
|
1779
1783
|
const $10 = $11 => {
|
|
1780
1784
|
switch($11.h) {
|
|
1781
1785
|
case 1: return $0.a1.a1.a2(undefined)(BashCompletion_opts($11.a1, $2, $1));
|
|
@@ -1836,7 +1840,7 @@ function Main_parseContributeArgs($0) {
|
|
|
1836
1840
|
switch($0.a2.a2.h) {
|
|
1837
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.'};
|
|
1838
1842
|
default: {
|
|
1839
|
-
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);
|
|
1840
1844
|
switch($6.h) {
|
|
1841
1845
|
case undefined: return {h: 1, a1: $6.a1};
|
|
1842
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.'};
|
|
@@ -1845,7 +1849,7 @@ function Main_parseContributeArgs($0) {
|
|
|
1845
1849
|
}
|
|
1846
1850
|
}
|
|
1847
1851
|
default: {
|
|
1848
|
-
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);
|
|
1849
1853
|
switch($1d.h) {
|
|
1850
1854
|
case undefined: return {h: 1, a1: $1d.a1};
|
|
1851
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.'};
|
|
@@ -1854,7 +1858,7 @@ function Main_parseContributeArgs($0) {
|
|
|
1854
1858
|
}
|
|
1855
1859
|
}
|
|
1856
1860
|
default: {
|
|
1857
|
-
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);
|
|
1858
1862
|
switch($34.h) {
|
|
1859
1863
|
case undefined: return {h: 1, a1: $34.a1};
|
|
1860
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.'};
|
|
@@ -1868,53 +1872,136 @@ function Main_main($0) {
|
|
|
1868
1872
|
const $7 = System_getEnv(csegen_59(), 'EDITOR')($0);
|
|
1869
1873
|
const $e = Prelude_Interfaces_x3cx24x3e(csegen_85(), $14 => Data_List_drop(2n, $14), System_getArgs(csegen_59()))($0);
|
|
1870
1874
|
let $25;
|
|
1871
|
-
switch(Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_94(), $e, {
|
|
1875
|
+
switch(Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_94(), $e, {h: 0})) {
|
|
1872
1876
|
case 1: {
|
|
1873
1877
|
$25 = 1;
|
|
1874
1878
|
break;
|
|
1875
1879
|
}
|
|
1876
1880
|
case 0: {
|
|
1877
|
-
|
|
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
|
+
}
|
|
1878
1891
|
break;
|
|
1879
1892
|
}
|
|
1880
1893
|
}
|
|
1881
1894
|
const $21 = Prelude_Interfaces_when(csegen_52(), $25, () => Prelude_Interfaces_x3ex3e(csegen_91(), Prelude_IO_putStrLn(csegen_59(), Help_help($1)), () => csegen_95()));
|
|
1882
|
-
const $
|
|
1883
|
-
let $
|
|
1895
|
+
const $48 = () => {
|
|
1896
|
+
let $50;
|
|
1884
1897
|
switch(Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_94(), $e, {a1: 'version', a2: {h: 0}})) {
|
|
1885
1898
|
case 1: {
|
|
1886
|
-
$
|
|
1899
|
+
$50 = 1;
|
|
1887
1900
|
break;
|
|
1888
1901
|
}
|
|
1889
1902
|
case 0: {
|
|
1890
|
-
$
|
|
1903
|
+
$50 = Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_94(), $e, {a1: '--version', a2: {h: 0}});
|
|
1891
1904
|
break;
|
|
1892
1905
|
}
|
|
1893
1906
|
}
|
|
1894
|
-
const $
|
|
1895
|
-
return Prelude_Interfaces_x3ex3e(csegen_91(), $
|
|
1896
|
-
const $
|
|
1897
|
-
|
|
1898
|
-
|
|
1899
|
-
const $6e = FFI_GitHub_octokit($66.a1)($65);
|
|
1900
|
-
const $73 = FFI_Git_git(csegen_59())($65);
|
|
1901
|
-
return Main_handleArgs($73, $6e, $1, $7, $e)($65);
|
|
1902
|
-
}
|
|
1903
|
-
case 0: return Main_exitError(csegen_59(), 'GITHUB_PAT environment variable must be set to a personal access token.')($65);
|
|
1904
|
-
}
|
|
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);
|
|
1905
1912
|
});
|
|
1906
1913
|
};
|
|
1907
|
-
const $1d = Prelude_Interfaces_x3ex3e(csegen_91(), $21, $
|
|
1914
|
+
const $1d = Prelude_Interfaces_x3ex3e(csegen_91(), $21, $48);
|
|
1908
1915
|
return $1d($0);
|
|
1909
1916
|
}
|
|
1910
1917
|
|
|
1911
1918
|
function Main_listTeam($0, $1, $2, $3, $4) {
|
|
1912
|
-
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);
|
|
1913
1920
|
}
|
|
1914
1921
|
|
|
1915
1922
|
function Main_handleConfiguredArgs($0, $1, $2, $3) {
|
|
1916
1923
|
switch($3.h) {
|
|
1917
|
-
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) {
|
|
1918
2005
|
case undefined: {
|
|
1919
2006
|
switch($3.a1) {
|
|
1920
2007
|
case 'reviews': {
|
|
@@ -1924,28 +2011,28 @@ function Main_handleConfiguredArgs($0, $1, $2, $3) {
|
|
|
1924
2011
|
case '--json': {
|
|
1925
2012
|
switch($3.a2.a2.h) {
|
|
1926
2013
|
case undefined: {
|
|
1927
|
-
return $
|
|
2014
|
+
return $9 => {
|
|
1928
2015
|
switch($3.a2.a2.a2.h) {
|
|
1929
2016
|
case 0: {
|
|
1930
|
-
return $
|
|
1931
|
-
const $
|
|
1932
|
-
switch($
|
|
1933
|
-
case undefined: return Data_Promise_x3ex3ex3d_Monad_Promise($
|
|
1934
|
-
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);
|
|
1935
2022
|
}
|
|
1936
2023
|
};
|
|
1937
2024
|
}
|
|
1938
|
-
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);
|
|
1939
2026
|
}
|
|
1940
2027
|
};
|
|
1941
2028
|
}
|
|
1942
|
-
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);
|
|
1943
2030
|
}
|
|
1944
2031
|
}
|
|
1945
|
-
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);
|
|
1946
2033
|
}
|
|
1947
2034
|
}
|
|
1948
|
-
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);
|
|
1949
2036
|
}
|
|
1950
2037
|
}
|
|
1951
2038
|
case 'pulls': {
|
|
@@ -1959,27 +2046,27 @@ function Main_handleConfiguredArgs($0, $1, $2, $3) {
|
|
|
1959
2046
|
case undefined: {
|
|
1960
2047
|
switch($3.a2.a2.a2.a2.h) {
|
|
1961
2048
|
case 0: {
|
|
1962
|
-
const $
|
|
1963
|
-
return $
|
|
1964
|
-
switch($
|
|
1965
|
-
case undefined: return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequestsJsonStr($2, $0.a2, $0.a3, {h: 0}, $
|
|
1966
|
-
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);
|
|
1967
2054
|
}
|
|
1968
2055
|
};
|
|
1969
2056
|
}
|
|
1970
|
-
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);
|
|
1971
2058
|
}
|
|
1972
2059
|
}
|
|
1973
|
-
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);
|
|
1974
2061
|
}
|
|
1975
2062
|
}
|
|
1976
|
-
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);
|
|
1977
2064
|
}
|
|
1978
2065
|
}
|
|
1979
|
-
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);
|
|
1980
2067
|
}
|
|
1981
2068
|
}
|
|
1982
|
-
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);
|
|
1983
2070
|
}
|
|
1984
2071
|
}
|
|
1985
2072
|
case 'user': {
|
|
@@ -1987,159 +2074,138 @@ function Main_handleConfiguredArgs($0, $1, $2, $3) {
|
|
|
1987
2074
|
case undefined: {
|
|
1988
2075
|
switch($3.a2.a1) {
|
|
1989
2076
|
case '--json': {
|
|
1990
|
-
return $
|
|
2077
|
+
return $12a => {
|
|
1991
2078
|
switch($3.a2.a2.h) {
|
|
1992
2079
|
case undefined: {
|
|
1993
|
-
return $
|
|
2080
|
+
return $12c => {
|
|
1994
2081
|
switch($3.a2.a2.a2.h) {
|
|
1995
|
-
case 0: return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_getUser($2)($3.a2.a2.a1), $
|
|
1996
|
-
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);
|
|
1997
2084
|
}
|
|
1998
2085
|
};
|
|
1999
2086
|
}
|
|
2000
|
-
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);
|
|
2001
2088
|
}
|
|
2002
2089
|
};
|
|
2003
2090
|
}
|
|
2004
|
-
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);
|
|
2005
2092
|
}
|
|
2006
2093
|
}
|
|
2007
|
-
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);
|
|
2008
2095
|
}
|
|
2009
2096
|
}
|
|
2010
2097
|
case 'whoami': {
|
|
2011
|
-
return $
|
|
2098
|
+
return $19c => $19d => {
|
|
2012
2099
|
switch($3.a2.h) {
|
|
2013
|
-
case 0: return User_Me_printInfoOnSelf($0, $2, $1, $
|
|
2014
|
-
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);
|
|
2015
2102
|
}
|
|
2016
2103
|
};
|
|
2017
2104
|
}
|
|
2018
2105
|
case 'sync': {
|
|
2019
|
-
return $
|
|
2106
|
+
return $1b9 => $1ba => {
|
|
2020
2107
|
switch($3.a2.h) {
|
|
2021
|
-
case 0: return Data_Promise_map_Functor_Promise($
|
|
2022
|
-
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);
|
|
2023
2110
|
}
|
|
2024
2111
|
};
|
|
2025
2112
|
}
|
|
2026
2113
|
case 'branch': {
|
|
2027
|
-
return $
|
|
2114
|
+
return $1de => {
|
|
2028
2115
|
switch($3.a2.h) {
|
|
2029
|
-
case 0: return $
|
|
2030
|
-
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);
|
|
2031
2118
|
}
|
|
2032
2119
|
};
|
|
2033
2120
|
}
|
|
2034
2121
|
case 'pr': {
|
|
2035
|
-
return $
|
|
2122
|
+
return $1fb => $1fc => {
|
|
2036
2123
|
switch($3.a2.h) {
|
|
2037
2124
|
case 0: {
|
|
2038
|
-
const $
|
|
2039
|
-
switch($
|
|
2125
|
+
const $217 = $218 => {
|
|
2126
|
+
switch($218.h) {
|
|
2040
2127
|
case undefined: {
|
|
2041
|
-
switch($
|
|
2042
|
-
case 0: return Prelude_IO_putStrLn(csegen_21(), Data_PullRequest_rf__webURI($0, $
|
|
2043
|
-
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();
|
|
2044
2131
|
}
|
|
2045
2132
|
}
|
|
2046
|
-
default: return
|
|
2133
|
+
default: return csegen_129();
|
|
2047
2134
|
}
|
|
2048
2135
|
};
|
|
2049
|
-
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);
|
|
2050
2137
|
}
|
|
2051
|
-
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);
|
|
2052
2139
|
}
|
|
2053
2140
|
};
|
|
2054
2141
|
}
|
|
2055
2142
|
case 'reflect': {
|
|
2056
|
-
return $
|
|
2143
|
+
return $23a => $23b => {
|
|
2057
2144
|
switch($3.a2.h) {
|
|
2058
|
-
case 0: return User_Reflect_reflectOnSelf($0, $2, $
|
|
2059
|
-
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);
|
|
2060
2147
|
}
|
|
2061
2148
|
};
|
|
2062
2149
|
}
|
|
2063
|
-
case 'config': {
|
|
2064
|
-
switch($3.a2.h) {
|
|
2065
|
-
case undefined: {
|
|
2066
|
-
return $25f => {
|
|
2067
|
-
switch($3.a2.a2.h) {
|
|
2068
|
-
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);
|
|
2069
|
-
case undefined: {
|
|
2070
|
-
return $270 => {
|
|
2071
|
-
switch($3.a2.a2.a2.h) {
|
|
2072
|
-
case 0: return Data_Promise_map_Functor_Promise($274 => (undefined), Config_setConfig($0, $3.a2.a1, $3.a2.a2.a1), $25f, $270);
|
|
2073
|
-
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);
|
|
2074
|
-
}
|
|
2075
|
-
};
|
|
2076
|
-
}
|
|
2077
|
-
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);
|
|
2078
|
-
}
|
|
2079
|
-
};
|
|
2080
|
-
}
|
|
2081
|
-
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);
|
|
2082
|
-
}
|
|
2083
|
-
}
|
|
2084
2150
|
case 'contribute': {
|
|
2085
|
-
const $
|
|
2086
|
-
switch($
|
|
2087
|
-
case 1: return $
|
|
2088
|
-
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);
|
|
2089
2155
|
}
|
|
2090
2156
|
}
|
|
2091
2157
|
case 'list': {
|
|
2092
2158
|
switch($3.a2.h) {
|
|
2093
|
-
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);
|
|
2094
2160
|
case undefined: {
|
|
2095
|
-
return $
|
|
2161
|
+
return $26d => {
|
|
2096
2162
|
switch($3.a2.a2.h) {
|
|
2097
|
-
case 0: return $
|
|
2098
|
-
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);
|
|
2099
2165
|
}
|
|
2100
2166
|
};
|
|
2101
2167
|
}
|
|
2102
|
-
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);
|
|
2103
2169
|
}
|
|
2104
2170
|
}
|
|
2105
2171
|
case 'graph': {
|
|
2106
2172
|
switch($3.a2.h) {
|
|
2107
|
-
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);
|
|
2108
2174
|
case undefined: {
|
|
2109
|
-
return $
|
|
2175
|
+
return $2a8 => {
|
|
2110
2176
|
switch($3.a2.a2.h) {
|
|
2111
|
-
case 0: return $
|
|
2112
|
-
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);
|
|
2113
2179
|
}
|
|
2114
2180
|
};
|
|
2115
2181
|
}
|
|
2116
|
-
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);
|
|
2117
2183
|
}
|
|
2118
2184
|
}
|
|
2119
2185
|
case 'assign': {
|
|
2120
2186
|
switch($3.a2.h) {
|
|
2121
|
-
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);
|
|
2122
2188
|
case undefined: {
|
|
2123
2189
|
switch($3.a2.a1) {
|
|
2124
2190
|
case '--dry': {
|
|
2125
|
-
return $
|
|
2191
|
+
return $2e4 => {
|
|
2126
2192
|
switch($3.a2.a2.h) {
|
|
2127
|
-
case 0: return $
|
|
2128
|
-
case undefined: return $
|
|
2129
|
-
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);
|
|
2130
2196
|
}
|
|
2131
2197
|
};
|
|
2132
2198
|
}
|
|
2133
|
-
default: return $
|
|
2199
|
+
default: return $301 => $302 => Main_assign($0, $1, $2, {a1: $3.a2.a1, a2: $3.a2.a2}, 0, $301, $302);
|
|
2134
2200
|
}
|
|
2135
2201
|
}
|
|
2136
|
-
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);
|
|
2137
2203
|
}
|
|
2138
2204
|
}
|
|
2139
|
-
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);
|
|
2140
2206
|
}
|
|
2141
2207
|
}
|
|
2142
|
-
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);
|
|
2143
2209
|
}
|
|
2144
2210
|
}
|
|
2145
2211
|
|
|
@@ -2154,30 +2220,30 @@ function Main_handleArgs($0, $1, $2, $3, $4) {
|
|
|
2154
2220
|
case undefined: {
|
|
2155
2221
|
switch($4.a2.a2.a2.h) {
|
|
2156
2222
|
case 0: return Main_bashCompletion(csegen_59(), $4.a2.a1, $4.a2.a2.a1);
|
|
2157
|
-
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));
|
|
2158
2224
|
}
|
|
2159
2225
|
}
|
|
2160
|
-
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));
|
|
2161
2227
|
}
|
|
2162
2228
|
}
|
|
2163
|
-
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));
|
|
2164
2230
|
}
|
|
2165
2231
|
}
|
|
2166
2232
|
case '--bash-completion-script': {
|
|
2167
2233
|
switch($4.a2.h) {
|
|
2168
2234
|
case 0: return Prelude_IO_putStrLn(csegen_59(), BashCompletion_script());
|
|
2169
|
-
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));
|
|
2170
2236
|
}
|
|
2171
2237
|
}
|
|
2172
|
-
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));
|
|
2173
2239
|
}
|
|
2174
2240
|
}
|
|
2175
|
-
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));
|
|
2176
2242
|
}
|
|
2177
2243
|
}
|
|
2178
2244
|
|
|
2179
2245
|
function Main_graphTeam($0, $1, $2, $3, $4) {
|
|
2180
|
-
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(
|
|
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);
|
|
2181
2247
|
}
|
|
2182
2248
|
|
|
2183
2249
|
function Main_exitError($0, $1) {
|
|
@@ -2219,19 +2285,19 @@ function Main_contribute($0, $1, $2, $3, $4, $5) {
|
|
|
2219
2285
|
const $3e = Data_List_partition($41 => Data_PullRequest_isRequestedReviewer(myLogin, $41), $35);
|
|
2220
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));
|
|
2221
2287
|
};
|
|
2222
|
-
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);
|
|
2223
2289
|
};
|
|
2224
2290
|
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequests($2, $0.a2, $0.a3, {a1: 0}, csegen_134(), 0n), $13, $4, $5);
|
|
2225
2291
|
}
|
|
2226
2292
|
|
|
2227
2293
|
function Main_bashCompletion($0, $1, $2) {
|
|
2228
|
-
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));
|
|
2229
2295
|
return $0.a1.a2(undefined)(undefined)($3)($21 => Prelude_IO_putStr($0, Data_String_fastUnlines($21)));
|
|
2230
2296
|
}
|
|
2231
2297
|
|
|
2232
2298
|
function Main_assign($0, $1, $2, $3, $4, $5, $6) {
|
|
2233
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 => {
|
|
2234
|
-
const $25 =
|
|
2300
|
+
const $25 = Main_n__6325_1721_partitionedArgs($0, $1, $2, $4, $3);
|
|
2235
2301
|
return PullRequest_requestReviewers($0, $2, $21.a2, $25.a2, $25.a1, $4, $22, $24);
|
|
2236
2302
|
}, $5, $6);
|
|
2237
2303
|
}
|
|
@@ -2240,11 +2306,11 @@ function Main_x3cx7cx7cx3e($0, $1, $2, $3) {
|
|
|
2240
2306
|
return $0.a3(undefined)($1($3))(() => $2($3));
|
|
2241
2307
|
}
|
|
2242
2308
|
|
|
2243
|
-
const
|
|
2309
|
+
const Util_n__4503_1237_startOver = __lazy(function () {
|
|
2244
2310
|
return {a1: 0, a2: {h: 0}};
|
|
2245
2311
|
});
|
|
2246
2312
|
|
|
2247
|
-
function
|
|
2313
|
+
function Util_n__4503_1238_guardSuccess($0) {
|
|
2248
2314
|
switch($0.h) {
|
|
2249
2315
|
case undefined: {
|
|
2250
2316
|
switch($0.a1) {
|
|
@@ -2257,12 +2323,12 @@ function Util_n__4483_1238_guardSuccess($0) {
|
|
|
2257
2323
|
}
|
|
2258
2324
|
}
|
|
2259
2325
|
|
|
2260
|
-
function
|
|
2326
|
+
function Util_n__4503_1239_go($0, $1) {
|
|
2261
2327
|
switch($0.a1) {
|
|
2262
2328
|
case 0: {
|
|
2263
2329
|
switch(Prelude_Types_isAlpha($1)) {
|
|
2264
2330
|
case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
|
|
2265
|
-
case 0: return
|
|
2331
|
+
case 0: return Util_n__4503_1237_startOver();
|
|
2266
2332
|
}
|
|
2267
2333
|
}
|
|
2268
2334
|
case 1: {
|
|
@@ -2271,7 +2337,7 @@ function Util_n__4483_1239_go($0, $1) {
|
|
|
2271
2337
|
default: {
|
|
2272
2338
|
switch(Prelude_Types_isAlpha($1)) {
|
|
2273
2339
|
case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
|
|
2274
|
-
case 0: return
|
|
2340
|
+
case 0: return Util_n__4503_1237_startOver();
|
|
2275
2341
|
}
|
|
2276
2342
|
}
|
|
2277
2343
|
}
|
|
@@ -2279,7 +2345,7 @@ function Util_n__4483_1239_go($0, $1) {
|
|
|
2279
2345
|
case 2: {
|
|
2280
2346
|
switch(Prelude_Types_isDigit($1)) {
|
|
2281
2347
|
case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
|
|
2282
|
-
case 0: return
|
|
2348
|
+
case 0: return Util_n__4503_1237_startOver();
|
|
2283
2349
|
}
|
|
2284
2350
|
}
|
|
2285
2351
|
case 3: {
|
|
@@ -2292,7 +2358,7 @@ function Util_n__4483_1239_go($0, $1) {
|
|
|
2292
2358
|
}
|
|
2293
2359
|
}
|
|
2294
2360
|
|
|
2295
|
-
function
|
|
2361
|
+
function Util_n__4390_1128_getMoreLines($0, $1, $2) {
|
|
2296
2362
|
switch($2.h) {
|
|
2297
2363
|
case 0: return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1));
|
|
2298
2364
|
case undefined: {
|
|
@@ -2303,13 +2369,13 @@ function Util_n__4370_1128_getMoreLines($0, $1, $2) {
|
|
|
2303
2369
|
case '': {
|
|
2304
2370
|
switch(line) {
|
|
2305
2371
|
case '': return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1.a2));
|
|
2306
|
-
default: return
|
|
2372
|
+
default: return Util_n__4390_1128_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
2307
2373
|
}
|
|
2308
2374
|
}
|
|
2309
|
-
default: return
|
|
2375
|
+
default: return Util_n__4390_1128_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
2310
2376
|
}
|
|
2311
2377
|
}
|
|
2312
|
-
default: return
|
|
2378
|
+
default: return Util_n__4390_1128_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
|
|
2313
2379
|
}
|
|
2314
2380
|
};
|
|
2315
2381
|
return $0.a1.a2(undefined)(undefined)(Prelude_Interfaces_x3cx24x3e($0.a1.a1.a1, $1c => Data_String_trim($1c), Prelude_IO_getLine($0)))($22);
|
|
@@ -2350,11 +2416,11 @@ function Util_renderIO($0, $1, $2) {
|
|
|
2350
2416
|
}
|
|
2351
2417
|
|
|
2352
2418
|
function Util_parseJiraPrefix($0) {
|
|
2353
|
-
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))));
|
|
2354
2420
|
}
|
|
2355
2421
|
|
|
2356
2422
|
function Util_getManyLines($0, $1) {
|
|
2357
|
-
return
|
|
2423
|
+
return Util_n__4390_1128_getMoreLines($0, {h: 0}, $1);
|
|
2358
2424
|
}
|
|
2359
2425
|
|
|
2360
2426
|
function Text_PrettyPrint_Prettyprinter_Render_Terminal_n__4235_5087_writeOutput($0, $1, $2, $3) {
|
|
@@ -4699,7 +4765,7 @@ function Control_ANSI_SGR_cast_Cast_Blink_String($0) {
|
|
|
4699
4765
|
}
|
|
4700
4766
|
|
|
4701
4767
|
function Control_ANSI_SGR_escapeSGR($0) {
|
|
4702
|
-
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'));
|
|
4703
4769
|
}
|
|
4704
4770
|
|
|
4705
4771
|
const Text_PrettyPrint_Prettyprinter_Symbols_rparen = __lazy(function () {
|
|
@@ -4728,19 +4794,24 @@ const Data_Fuel_forever = __lazy(function () {
|
|
|
4728
4794
|
return {a1: () => Data_Fuel_forever()};
|
|
4729
4795
|
});
|
|
4730
4796
|
|
|
4731
|
-
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) {
|
|
4732
4802
|
switch($1.h) {
|
|
4733
4803
|
case 5: {
|
|
4734
4804
|
const $18 = $19 => {
|
|
4735
4805
|
const $23 = Data_List_lookup(csegen_94(), 'defaultRemote', $1.a1);
|
|
4736
|
-
const $
|
|
4737
|
-
|
|
4738
|
-
|
|
4739
|
-
case
|
|
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)};
|
|
4740
4811
|
}
|
|
4741
4812
|
};
|
|
4742
|
-
const $
|
|
4743
|
-
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}})))))))))));
|
|
4744
4815
|
};
|
|
4745
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);
|
|
4746
4817
|
}
|
|
@@ -4749,12 +4820,16 @@ function Data_Config_n__5282_8046_parseConfigJson($0, $1) {
|
|
|
4749
4820
|
}
|
|
4750
4821
|
}
|
|
4751
4822
|
|
|
4752
|
-
function
|
|
4823
|
+
function Data_Config_n__5095_7864_defaultRemote($0) {
|
|
4753
4824
|
return Prelude_Types_maybe(() => 'Not set (defaults to \"origin\")', () => $4 => Prelude_Show_show_Show_String($4), $0.a4);
|
|
4754
4825
|
}
|
|
4755
4826
|
|
|
4756
4827
|
function Data_Config_show_Show_Config($0) {
|
|
4757
|
-
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:
|
|
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)';
|
|
4758
4833
|
}
|
|
4759
4834
|
|
|
4760
4835
|
function Data_Config_showPrec_Show_Config($0, $1) {
|
|
@@ -4762,19 +4837,19 @@ function Data_Config_showPrec_Show_Config($0, $1) {
|
|
|
4762
4837
|
}
|
|
4763
4838
|
|
|
4764
4839
|
function Data_Config_rf__filepath($0) {
|
|
4765
|
-
return $0.
|
|
4840
|
+
return $0.a11.a1;
|
|
4766
4841
|
}
|
|
4767
4842
|
|
|
4768
4843
|
function Data_Config_rf__editor($0) {
|
|
4769
|
-
return $0.
|
|
4844
|
+
return $0.a11.a3;
|
|
4770
4845
|
}
|
|
4771
4846
|
|
|
4772
4847
|
function Data_Config_rf__colors($0) {
|
|
4773
|
-
return $0.
|
|
4848
|
+
return $0.a11.a2;
|
|
4774
4849
|
}
|
|
4775
4850
|
|
|
4776
4851
|
const Data_Config_settableProps = __lazy(function () {
|
|
4777
|
-
return {a1: 'assignTeams', a2: {a1: 'commentOnAssign', a2: {a1: 'defaultRemote', a2: {h: 0}}}};
|
|
4852
|
+
return {a1: 'assignTeams', a2: {a1: 'commentOnAssign', a2: {a1: 'defaultRemote', a2: {a1: 'githubPAT', a2: {h: 0}}}}};
|
|
4778
4853
|
});
|
|
4779
4854
|
|
|
4780
4855
|
function Data_Config_parseConfig($0, $1) {
|
|
@@ -4796,12 +4871,12 @@ function Data_Config_parseConfig($0, $1) {
|
|
|
4796
4871
|
}
|
|
4797
4872
|
};
|
|
4798
4873
|
const $4 = {a1: $5, a2: a => $d => ({h: 1, a1: $d}), a3: $f};
|
|
4799
|
-
const $3 = {a1: $4, a2:
|
|
4800
|
-
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);
|
|
4801
4876
|
}
|
|
4802
4877
|
|
|
4803
4878
|
function Data_Config_json($0) {
|
|
4804
|
-
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(
|
|
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}}}}}}}}}}}};
|
|
4805
4880
|
}
|
|
4806
4881
|
|
|
4807
4882
|
const Data_Config_filename = __lazy(function () {
|
|
@@ -4940,17 +5015,17 @@ function Text_Bounded_mergeBounds($0, $1) {
|
|
|
4940
5015
|
switch($1.h) {
|
|
4941
5016
|
case undefined: {
|
|
4942
5017
|
switch($1.a2) {
|
|
4943
|
-
case 1: return Prelude_Interfaces_x3cx24x3e(
|
|
5018
|
+
case 1: return Prelude_Interfaces_x3cx24x3e(csegen_252(), $e => $1.a1, $0);
|
|
4944
5019
|
default: {
|
|
4945
|
-
const $10 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
4946
|
-
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));
|
|
4947
5022
|
return {a1: $1.a1, a2: 0, a3: {a1: $10.a1, a2: $10.a2, a3: $1c.a1, a4: $1c.a2}};
|
|
4948
5023
|
}
|
|
4949
5024
|
}
|
|
4950
5025
|
}
|
|
4951
5026
|
default: {
|
|
4952
|
-
const $30 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
4953
|
-
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));
|
|
4954
5029
|
return {a1: $1.a1, a2: 0, a3: {a1: $30.a1, a2: $30.a2, a3: $3c.a1, a4: $3c.a2}};
|
|
4955
5030
|
}
|
|
4956
5031
|
}
|
|
@@ -4961,17 +5036,17 @@ function Text_Bounded_mergeBounds($0, $1) {
|
|
|
4961
5036
|
switch($1.h) {
|
|
4962
5037
|
case undefined: {
|
|
4963
5038
|
switch($1.a2) {
|
|
4964
|
-
case 1: return Prelude_Interfaces_x3cx24x3e(
|
|
5039
|
+
case 1: return Prelude_Interfaces_x3cx24x3e(csegen_252(), $56 => $1.a1, $0);
|
|
4965
5040
|
default: {
|
|
4966
|
-
const $58 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
4967
|
-
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));
|
|
4968
5043
|
return {a1: $1.a1, a2: 0, a3: {a1: $58.a1, a2: $58.a2, a3: $64.a1, a4: $64.a2}};
|
|
4969
5044
|
}
|
|
4970
5045
|
}
|
|
4971
5046
|
}
|
|
4972
5047
|
default: {
|
|
4973
|
-
const $78 = Prelude_EqOrd_min_Ord_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(
|
|
4974
|
-
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));
|
|
4975
5050
|
return {a1: $1.a1, a2: 0, a3: {a1: $78.a1, a2: $78.a2, a3: $84.a1, a4: $84.a2}};
|
|
4976
5051
|
}
|
|
4977
5052
|
}
|
|
@@ -5190,7 +5265,7 @@ const Language_JSON_Parser_string = __lazy(function () {
|
|
|
5190
5265
|
});
|
|
5191
5266
|
|
|
5192
5267
|
const Language_JSON_Parser_rawString = __lazy(function () {
|
|
5193
|
-
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 => {
|
|
5194
5269
|
switch(mstr.h) {
|
|
5195
5270
|
case undefined: return {h: 0, a1: mstr.a1};
|
|
5196
5271
|
case 0: return {h: 4, a1: {h: 0}, a2: 0, a3: 'invalid string'};
|
|
@@ -5199,7 +5274,7 @@ const Language_JSON_Parser_rawString = __lazy(function () {
|
|
|
5199
5274
|
});
|
|
5200
5275
|
|
|
5201
5276
|
function Language_JSON_Parser_punct($0) {
|
|
5202
|
-
return Text_Parser_match(
|
|
5277
|
+
return Text_Parser_match(csegen_271(), csegen_274(), {h: 4, a1: $0});
|
|
5203
5278
|
}
|
|
5204
5279
|
|
|
5205
5280
|
function Language_JSON_Parser_parseJSON($0) {
|
|
@@ -5232,11 +5307,11 @@ const Language_JSON_Parser_object = __lazy(function () {
|
|
|
5232
5307
|
});
|
|
5233
5308
|
|
|
5234
5309
|
const Language_JSON_Parser_number = __lazy(function () {
|
|
5235
|
-
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}));
|
|
5236
5311
|
});
|
|
5237
5312
|
|
|
5238
5313
|
const Language_JSON_Parser_null = __lazy(function () {
|
|
5239
|
-
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}));
|
|
5240
5315
|
});
|
|
5241
5316
|
|
|
5242
5317
|
const Language_JSON_Parser_json = __lazy(function () {
|
|
@@ -5244,7 +5319,7 @@ const Language_JSON_Parser_json = __lazy(function () {
|
|
|
5244
5319
|
});
|
|
5245
5320
|
|
|
5246
5321
|
const Language_JSON_Parser_boolean = __lazy(function () {
|
|
5247
|
-
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}));
|
|
5248
5323
|
});
|
|
5249
5324
|
|
|
5250
5325
|
const Language_JSON_Parser_array = __lazy(function () {
|
|
@@ -5697,11 +5772,11 @@ function Language_JSON_String_Tokens_charValue($0) {
|
|
|
5697
5772
|
}
|
|
5698
5773
|
|
|
5699
5774
|
const Language_JSON_String_Parser_stringChar = __lazy(function () {
|
|
5700
|
-
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)})};
|
|
5701
5776
|
});
|
|
5702
5777
|
|
|
5703
5778
|
const Language_JSON_String_Parser_quotedString = __lazy(function () {
|
|
5704
|
-
const $0 = Text_Parser_match(
|
|
5779
|
+
const $0 = Text_Parser_match(csegen_310(), csegen_313(), 0);
|
|
5705
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)}})};
|
|
5706
5781
|
});
|
|
5707
5782
|
|
|
@@ -5763,7 +5838,7 @@ function Text_Parser_between($0, $1, $2, $3) {
|
|
|
5763
5838
|
function Text_Parser_Core_case__doParse_5194($0, $1, $2, $3, $4, $5) {
|
|
5764
5839
|
switch($5.h) {
|
|
5765
5840
|
case 0: return {h: 0, a1: $5.a1, a2: $5.a2, a3: $5.a3};
|
|
5766
|
-
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};
|
|
5767
5842
|
}
|
|
5768
5843
|
}
|
|
5769
5844
|
|
|
@@ -6187,12 +6262,12 @@ function Text_Parser_Core_doParse($0, $1, $2, $3, $4) {
|
|
|
6187
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));
|
|
6188
6263
|
case 1: {
|
|
6189
6264
|
switch($4.h) {
|
|
6190
|
-
case 0: return {h: 0, a1: $2, a2: 0, a3:
|
|
6265
|
+
case 0: return {h: 0, a1: $2, a2: 0, a3: csegen_331()};
|
|
6191
6266
|
case undefined: {
|
|
6192
6267
|
const $44 = $3.a2($4.a1.a1);
|
|
6193
6268
|
switch($44.h) {
|
|
6194
6269
|
case 0: return {h: 0, a1: $2, a2: 0, a3: {a1: {a1: $3.a1, a2: {a1: $4.a1.a3}}, a2: {h: 0}}};
|
|
6195
|
-
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};
|
|
6196
6271
|
}
|
|
6197
6272
|
}
|
|
6198
6273
|
}
|
|
@@ -6205,7 +6280,7 @@ function Text_Parser_Core_doParse($0, $1, $2, $3, $4) {
|
|
|
6205
6280
|
}
|
|
6206
6281
|
case 2: {
|
|
6207
6282
|
switch($4.h) {
|
|
6208
|
-
case 0: return {h: 0, a1: $2, a2: 0, a3:
|
|
6283
|
+
case 0: return {h: 0, a1: $2, a2: 0, a3: csegen_331()};
|
|
6209
6284
|
case undefined: {
|
|
6210
6285
|
switch($3.a2($4.a1.a1)) {
|
|
6211
6286
|
case 1: return {h: 1, a1: $1, a2: $2, a3: Text_Bounded_removeIrrelevance($4.a1), a4: {a1: $4.a1, a2: $4.a2}};
|
|
@@ -6234,7 +6309,7 @@ function Text_Parser_Core_doParse($0, $1, $2, $3, $4) {
|
|
|
6234
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));
|
|
6235
6310
|
case 14: {
|
|
6236
6311
|
switch($4.h) {
|
|
6237
|
-
case 0: return {h: 0, a1: $2, a2: 0, a3:
|
|
6312
|
+
case 0: return {h: 0, a1: $2, a2: 0, a3: csegen_331()};
|
|
6238
6313
|
case undefined: return {h: 1, a1: $1, a2: $2, a3: Text_Bounded_irrelevantBounds($4.a1.a3), a4: {a1: $4.a1, a2: $4.a2}};
|
|
6239
6314
|
}
|
|
6240
6315
|
}
|
|
@@ -6351,54 +6426,54 @@ function Data_Either_maybeToEither($0, $1) {
|
|
|
6351
6426
|
}
|
|
6352
6427
|
|
|
6353
6428
|
function User_Reflect_case__casex20blockx20inx20reflectOnSelf_2298($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
|
|
6354
|
-
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(
|
|
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});
|
|
6355
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));
|
|
6356
6431
|
}
|
|
6357
6432
|
|
|
6358
|
-
function
|
|
6433
|
+
function User_Me_n__6283_2415_ul($0, $1, $2, $3) {
|
|
6359
6434
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3));
|
|
6360
6435
|
}
|
|
6361
6436
|
|
|
6362
|
-
function
|
|
6363
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1:
|
|
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)});
|
|
6364
6439
|
}
|
|
6365
6440
|
|
|
6366
|
-
function
|
|
6367
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Login:'),
|
|
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));
|
|
6368
6443
|
}
|
|
6369
6444
|
|
|
6370
|
-
function
|
|
6445
|
+
function User_Reflect_n__5376_1492_ital($0, $1) {
|
|
6371
6446
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($1));
|
|
6372
6447
|
}
|
|
6373
6448
|
|
|
6374
|
-
function
|
|
6449
|
+
function User_Me_n__6283_2416_it($0, $1, $2, $3) {
|
|
6375
6450
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3));
|
|
6376
6451
|
}
|
|
6377
6452
|
|
|
6378
|
-
function
|
|
6453
|
+
function User_Me_n__6423_2571_handleUnsetEmail($0, $1, $2, $3) {
|
|
6379
6454
|
switch($3) {
|
|
6380
6455
|
case '': return {h: 0};
|
|
6381
6456
|
default: return {a1: $3};
|
|
6382
6457
|
}
|
|
6383
6458
|
}
|
|
6384
6459
|
|
|
6385
|
-
function
|
|
6460
|
+
function User_Me_n__6283_2417_green($0, $1, $2, $3) {
|
|
6386
6461
|
return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3));
|
|
6387
6462
|
}
|
|
6388
6463
|
|
|
6389
|
-
function
|
|
6390
|
-
return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('GitHub Name:'),
|
|
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));
|
|
6391
6466
|
}
|
|
6392
6467
|
|
|
6393
|
-
function
|
|
6468
|
+
function User_Me_n__6283_2418_email($0, $1, $2) {
|
|
6394
6469
|
let $7;
|
|
6395
6470
|
switch($2.h) {
|
|
6396
6471
|
case undefined: {
|
|
6397
|
-
$7 =
|
|
6472
|
+
$7 = User_Me_n__6283_2417_green($0, $1, $2, $2.a1);
|
|
6398
6473
|
break;
|
|
6399
6474
|
}
|
|
6400
6475
|
case 0: {
|
|
6401
|
-
$7 =
|
|
6476
|
+
$7 = User_Me_n__6283_2416_it($0, $1, $2, 'Not set');
|
|
6402
6477
|
break;
|
|
6403
6478
|
}
|
|
6404
6479
|
}
|
|
@@ -6421,20 +6496,20 @@ function User_Reflect_reflectOnSelf($0, $1, $2, $3) {
|
|
|
6421
6496
|
const $c = prs => $d => $e => {
|
|
6422
6497
|
const $19 = myLogin => $1a => $1b => {
|
|
6423
6498
|
const $37 = reviews => {
|
|
6424
|
-
const $38 = Prelude_Types_map_Functor_Maybe(
|
|
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)));
|
|
6425
6500
|
const $4b = PullRequest_tuple(prs);
|
|
6426
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);
|
|
6427
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));
|
|
6428
6503
|
};
|
|
6429
|
-
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(),
|
|
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);
|
|
6430
6505
|
};
|
|
6431
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(
|
|
6506
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(csegen_102(), csegen_139(), FFI_GitHub_getSelf($1)), $19, $d, $e);
|
|
6432
6507
|
};
|
|
6433
6508
|
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_listPartitionedPRs($0, $1, 4n, User_Reflect_prCount()), $c, $2, $3);
|
|
6434
6509
|
}
|
|
6435
6510
|
|
|
6436
6511
|
function User_Me_printInfoOnSelf($0, $1, $2, $3, $4) {
|
|
6437
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(
|
|
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);
|
|
6438
6513
|
}
|
|
6439
6514
|
|
|
6440
6515
|
function User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
@@ -6442,7 +6517,7 @@ function User_Reflect_print($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
|
6442
6517
|
}
|
|
6443
6518
|
|
|
6444
6519
|
function User_Me_print($0, $1, $2) {
|
|
6445
|
-
return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1:
|
|
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}}}}}}}}});
|
|
6446
6521
|
}
|
|
6447
6522
|
|
|
6448
6523
|
const User_Reflect_prCount = __lazy(function () {
|
|
@@ -6458,14 +6533,14 @@ const User_Reflect_intro = __lazy(function () {
|
|
|
6458
6533
|
});
|
|
6459
6534
|
|
|
6460
6535
|
function User_Reflect_header($0) {
|
|
6461
|
-
return Text_PrettyPrint_Prettyprinter_Doc_indent(Prelude_Cast_cast_Cast_Nat_Int($0), Text_PrettyPrint_Prettyprinter_Doc_hsep({a1:
|
|
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}}}}));
|
|
6462
6537
|
}
|
|
6463
6538
|
|
|
6464
6539
|
function User_Reflect_graph($0, $1, $2, $3, $4, $5) {
|
|
6465
6540
|
const $6 = ($2+$3);
|
|
6466
6541
|
const $9 = ($5+$4);
|
|
6467
|
-
const $c = Prelude_Types_foldr_Foldable_List(
|
|
6468
|
-
const $1b = Prelude_Types_foldr_Foldable_List(
|
|
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}}});
|
|
6469
6544
|
const $28 = (($c+$1b)+3n);
|
|
6470
6545
|
const $2d = ((Prelude_Cast_cast_Cast_Nat_Double($0)/2.0)-(Prelude_Cast_cast_Cast_Nat_Double($28)/2.0));
|
|
6471
6546
|
const $38 = (Prelude_Cast_cast_Cast_Double_Nat($2d)+Prelude_Types_prim__integerToNat(($c-Prelude_Types_String_length(User_Reflect_leftTitle()))));
|
|
@@ -6474,7 +6549,7 @@ function User_Reflect_graph($0, $1, $2, $3, $4, $5) {
|
|
|
6474
6549
|
}
|
|
6475
6550
|
|
|
6476
6551
|
function User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
|
|
6477
|
-
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,
|
|
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}}}}}}}}}});
|
|
6478
6553
|
}
|
|
6479
6554
|
|
|
6480
6555
|
function User_Reflect_chart($0, $1, $2, $3, $4, $5, $6) {
|
|
@@ -6493,7 +6568,7 @@ function PullRequest_with__listPartitionedPRs_1144($0, $1, $2, $3, $4) {
|
|
|
6493
6568
|
case 1: return $7 => $8 => Data_Promise_pure_Applicative_Promise(PullRequest_empty(), $7, $8);
|
|
6494
6569
|
default: {
|
|
6495
6570
|
switch($2.a2.h) {
|
|
6496
|
-
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));
|
|
6497
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);
|
|
6498
6573
|
}
|
|
6499
6574
|
}
|
|
@@ -6507,48 +6582,48 @@ function PullRequest_case__identifyOrCreatePRx2ccreatePR_2353($0, $1, $2, $3, $4
|
|
|
6507
6582
|
}
|
|
6508
6583
|
}
|
|
6509
6584
|
|
|
6510
|
-
function
|
|
6585
|
+
function PullRequest_n__6887_1428_userNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
6511
6586
|
switch($6.h) {
|
|
6512
6587
|
case 0: {
|
|
6513
6588
|
switch($2.h) {
|
|
6514
6589
|
case 0: return 'no users';
|
|
6515
|
-
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}});
|
|
6516
6591
|
}
|
|
6517
6592
|
}
|
|
6518
|
-
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}});
|
|
6519
6594
|
}
|
|
6520
6595
|
}
|
|
6521
6596
|
|
|
6522
|
-
function
|
|
6597
|
+
function PullRequest_n__6887_1429_teamNotice($0, $1, $2, $3, $4, $5, $6) {
|
|
6523
6598
|
switch($6.h) {
|
|
6524
6599
|
case 0: return '';
|
|
6525
6600
|
case undefined: {
|
|
6526
6601
|
switch($6.a2.h) {
|
|
6527
|
-
case 0: return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' and team ', a2: {a1:
|
|
6528
|
-
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}}});
|
|
6529
6604
|
}
|
|
6530
6605
|
}
|
|
6531
|
-
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}}});
|
|
6532
6607
|
}
|
|
6533
6608
|
}
|
|
6534
6609
|
|
|
6535
|
-
function
|
|
6610
|
+
function PullRequest_n__7500_2016_prepareDescriptionFile($0, $1, $2, $3, $4, $5) {
|
|
6536
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'))));
|
|
6537
6612
|
}
|
|
6538
6613
|
|
|
6539
|
-
function
|
|
6614
|
+
function PullRequest_n__6887_1430_prComment($0, $1, $2, $3, $4, $5, $6) {
|
|
6540
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}}}});
|
|
6541
6616
|
}
|
|
6542
6617
|
|
|
6543
|
-
function
|
|
6618
|
+
function PullRequest_n__7500_2015_inlineDescription($0, $1, $2, $3, $4) {
|
|
6544
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)))));
|
|
6545
6620
|
}
|
|
6546
6621
|
|
|
6547
|
-
function
|
|
6622
|
+
function PullRequest_n__6780_1302_forkedReviews($0, $1, $2, $3, $4) {
|
|
6548
6623
|
return FFI_Concurrency_fork(csegen_21(), ('reviews --json '+Prelude_Show_show_Show_Integer($4.a1)));
|
|
6549
6624
|
}
|
|
6550
6625
|
|
|
6551
|
-
function
|
|
6626
|
+
function PullRequest_n__7500_2017_editorDescription($0, $1, $2, $3, $4, $5, $6) {
|
|
6552
6627
|
const $12 = () => {
|
|
6553
6628
|
const $29 = $2a => {
|
|
6554
6629
|
switch($2a) {
|
|
@@ -6558,14 +6633,14 @@ function PullRequest_n__7480_2017_editorDescription($0, $1, $2, $3, $4, $5, $6)
|
|
|
6558
6633
|
};
|
|
6559
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);
|
|
6560
6635
|
};
|
|
6561
|
-
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);
|
|
6562
6637
|
}
|
|
6563
6638
|
|
|
6564
|
-
function
|
|
6565
|
-
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(
|
|
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)));
|
|
6566
6641
|
}
|
|
6567
6642
|
|
|
6568
|
-
function
|
|
6643
|
+
function PullRequest_n__7500_2018_createPR($0, $1, $2, $3) {
|
|
6569
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 => {
|
|
6570
6645
|
const $6e = baseBranchInput => {
|
|
6571
6646
|
const $6f = PullRequest_case__identifyOrCreatePRx2ccreatePR_2353($0, $1, $2, $3, baseBranchInput, Data_String_strM(baseBranchInput));
|
|
@@ -6577,11 +6652,11 @@ function PullRequest_n__7480_2018_createPR($0, $1, $2, $3) {
|
|
|
6577
6652
|
let $b4;
|
|
6578
6653
|
switch($b5.h) {
|
|
6579
6654
|
case 0: {
|
|
6580
|
-
$b4 =
|
|
6655
|
+
$b4 = PullRequest_n__7500_2015_inlineDescription($0, $1, $2, $3, csegen_21());
|
|
6581
6656
|
break;
|
|
6582
6657
|
}
|
|
6583
6658
|
case undefined: {
|
|
6584
|
-
$b4 = Prelude_Interfaces_x3cx24x3e(
|
|
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));
|
|
6585
6660
|
break;
|
|
6586
6661
|
}
|
|
6587
6662
|
}
|
|
@@ -6589,11 +6664,11 @@ function PullRequest_n__7480_2018_createPR($0, $1, $2, $3) {
|
|
|
6589
6664
|
};
|
|
6590
6665
|
return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_relativeToRoot($0, '.github/PULL_REQUEST_TEMPLATE.md'), $b0, $a9, $aa);
|
|
6591
6666
|
};
|
|
6592
|
-
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);
|
|
6593
6668
|
});
|
|
6594
6669
|
return Prelude_Interfaces_x3ex3e(csegen_15(), Prelude_IO_putStrLn(csegen_21(), 'What would you like the title to be?'), $81);
|
|
6595
6670
|
};
|
|
6596
|
-
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);
|
|
6597
6672
|
})));
|
|
6598
6673
|
}
|
|
6599
6674
|
|
|
@@ -6646,18 +6721,18 @@ function PullRequest_reviewsForUser($0, $1, $2, $3) {
|
|
|
6646
6721
|
};
|
|
6647
6722
|
const $32 = {a1: $33, a2: a => $3b => ({h: 1, a1: $3b}), a3: $3d};
|
|
6648
6723
|
const $30 = Prelude_Types_traverse_Traversable_List($32, $48 => Language_JSON_Accessors_array($4b => Data_Review_parseReview($4b), $48), reviewsJson);
|
|
6649
|
-
return Data_Promise_either(
|
|
6724
|
+
return Data_Promise_either(csegen_114(), $30, $2b, $2c);
|
|
6650
6725
|
};
|
|
6651
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);
|
|
6652
6727
|
};
|
|
6653
|
-
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);
|
|
6654
6729
|
};
|
|
6655
6730
|
}
|
|
6656
6731
|
|
|
6657
6732
|
function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
6658
6733
|
const $14 = $15 => $16 => $17 => {
|
|
6659
6734
|
const $2e = teamMembers => {
|
|
6660
|
-
const $2f = Reviewer_chooseReviewers(
|
|
6735
|
+
const $2f = Reviewer_chooseReviewers(csegen_110(), $15.a2, $15.a1, teamMembers, {h: 0}, $2.a3);
|
|
6661
6736
|
return $39 => $3a => {
|
|
6662
6737
|
const $41 = chosenUser => {
|
|
6663
6738
|
const $42 = Prelude_Types_List_tailRecAppend(Prelude_Types_toList_Foldable_Maybe(chosenUser), $4);
|
|
@@ -6685,7 +6760,7 @@ function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
6685
6760
|
}
|
|
6686
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 => {
|
|
6687
6762
|
switch(chosenUser.h) {
|
|
6688
|
-
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);
|
|
6689
6764
|
case 0: return Data_Promise_pure_Applicative_Promise(undefined, $72, $73);
|
|
6690
6765
|
}
|
|
6691
6766
|
})));
|
|
@@ -6696,7 +6771,7 @@ function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
6696
6771
|
break;
|
|
6697
6772
|
}
|
|
6698
6773
|
case 0: {
|
|
6699
|
-
$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:
|
|
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}}})));
|
|
6700
6775
|
break;
|
|
6701
6776
|
}
|
|
6702
6777
|
}
|
|
@@ -6705,13 +6780,13 @@ function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
|
|
|
6705
6780
|
return Data_Promise_x3ex3ex3d_Monad_Promise(Reviewer_randomReviewer(csegen_21(), $2f), $41, $39, $3a);
|
|
6706
6781
|
};
|
|
6707
6782
|
};
|
|
6708
|
-
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);
|
|
6709
6784
|
};
|
|
6710
6785
|
return Data_Promise_x3ex3ex3d_Monad_Promise($a => $b => PullRequest_listReviewers($0, $1, 4n, csegen_134(), $a, $b), $14, $6, $7);
|
|
6711
6786
|
}
|
|
6712
6787
|
|
|
6713
6788
|
function PullRequest_relativeToRoot($0, $1) {
|
|
6714
|
-
return Prelude_Interfaces_x3cx26x3e(
|
|
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}}})));
|
|
6715
6790
|
}
|
|
6716
6791
|
|
|
6717
6792
|
function PullRequest_partitionx27($0, $1, $2) {
|
|
@@ -6735,8 +6810,8 @@ function PullRequest_partitionx27($0, $1, $2) {
|
|
|
6735
6810
|
}
|
|
6736
6811
|
};
|
|
6737
6812
|
const $4c = {a1: $4d, a2: a => $55 => ({h: 1, a1: $55}), a3: $57};
|
|
6738
|
-
const $4a = Prelude_Types_traverse_Traversable_List($4c,
|
|
6739
|
-
return Data_Promise_either(
|
|
6813
|
+
const $4a = Prelude_Types_traverse_Traversable_List($4c, csegen_437(), prJsons);
|
|
6814
|
+
return Data_Promise_either(csegen_114(), $4a, $45, $46);
|
|
6740
6815
|
};
|
|
6741
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);
|
|
6742
6817
|
};
|
|
@@ -6766,7 +6841,7 @@ function PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5) {
|
|
|
6766
6841
|
}
|
|
6767
6842
|
};
|
|
6768
6843
|
}
|
|
6769
|
-
case 0: return Prelude_Interfaces_x3cx24x3e(
|
|
6844
|
+
case 0: return Prelude_Interfaces_x3cx24x3e(csegen_102(), $23 => ({a1: 1, a2: $23}), PullRequest_n__7500_2018_createPR($1, $2, $3, $0));
|
|
6770
6845
|
default: return $2c => $2d => Data_Promise_reject('Multiple PRs for the current brach. Harmony only handles 1 PR per branch currently.', $2c, $2d);
|
|
6771
6846
|
}
|
|
6772
6847
|
};
|
|
@@ -6842,14 +6917,14 @@ function System_File_ReadWrite_readLinesOnto($0, $1, $2, $3, $4) {
|
|
|
6842
6917
|
}
|
|
6843
6918
|
};
|
|
6844
6919
|
const $26 = {a1: $27, a2: a => $2f => ({h: 1, a1: $2f}), a3: $31};
|
|
6845
|
-
const $25 = {a1: $26, a2:
|
|
6920
|
+
const $25 = {a1: $26, a2: csegen_247(), a3: csegen_248()};
|
|
6846
6921
|
const $40 = b => a => func => $41 => {
|
|
6847
6922
|
switch($41.h) {
|
|
6848
6923
|
case 0: return {h: 0, a1: $41.a1};
|
|
6849
6924
|
case 1: return {h: 1, a1: func($41.a1)};
|
|
6850
6925
|
}
|
|
6851
6926
|
};
|
|
6852
|
-
const $3f = {a1: $40, a2:
|
|
6927
|
+
const $3f = {a1: $40, a2: csegen_457(), a3: csegen_461()};
|
|
6853
6928
|
return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, $25, $3f, System_File_ReadWrite_fGetLine($0, $4), str => System_File_ReadWrite_readLinesOnto($0, {a1: str, a2: $1}, 0n, $3.a1(), $4));
|
|
6854
6929
|
}
|
|
6855
6930
|
default: {
|
|
@@ -7215,7 +7290,7 @@ function Reviewer_n__4753_1591_weightReviews($0, $1, $2, $3, $4, $5) {
|
|
|
7215
7290
|
const $11 = (Prelude_Types_List_lengthTR(Data_List1_forget(xs))*$4);
|
|
7216
7291
|
return {a1: xs.a1, a2: $11, a3: $11};
|
|
7217
7292
|
};
|
|
7218
|
-
return Prelude_Interfaces_x3cx26x3e(
|
|
7293
|
+
return Prelude_Interfaces_x3cx26x3e(csegen_118(), $6, $10);
|
|
7219
7294
|
}
|
|
7220
7295
|
|
|
7221
7296
|
function Reviewer_n__4753_1592_sortx27($0, $1, $2, $3, $4) {
|
|
@@ -7299,7 +7374,7 @@ function Reviewer_chooseReviewers($0, $1, $2, $3, $4, $5) {
|
|
|
7299
7374
|
case 0: return {h: 0};
|
|
7300
7375
|
case undefined: {
|
|
7301
7376
|
const $1a = Data_List_takeWhile($1d => (($1d.a3===$12.a1.a3)?1:0), $12.a2);
|
|
7302
|
-
const $22 = Prelude_Interfaces_x3cx24x3e(
|
|
7377
|
+
const $22 = Prelude_Interfaces_x3cx24x3e(csegen_118(), $27 => Reviewer_loginScore($27), $1a);
|
|
7303
7378
|
return {a1: {a1: $12.a1.a1, a2: $12.a1.a3}, a2: $22};
|
|
7304
7379
|
}
|
|
7305
7380
|
}
|
|
@@ -7356,11 +7431,11 @@ function FFI_GitHub_octokit($0) {
|
|
|
7356
7431
|
}
|
|
7357
7432
|
|
|
7358
7433
|
function FFI_GitHub_listTeams($0, $1) {
|
|
7359
|
-
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));
|
|
7360
7435
|
}
|
|
7361
7436
|
|
|
7362
7437
|
function FFI_GitHub_listTeamMembers($0, $1, $2) {
|
|
7363
|
-
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));
|
|
7364
7439
|
}
|
|
7365
7440
|
|
|
7366
7441
|
function FFI_GitHub_listPullReviewsJsonStr($0, $1, $2, $3, $4, $5) {
|
|
@@ -7375,27 +7450,27 @@ function FFI_GitHub_listPullRequestsJsonStr($0, $1, $2, $3, $4, $5) {
|
|
|
7375
7450
|
}
|
|
7376
7451
|
|
|
7377
7452
|
function FFI_GitHub_listPullRequests($0, $1, $2, $3, $4, $5) {
|
|
7378
|
-
return Prelude_Interfaces_x3dx3cx3c(csegen_15(),
|
|
7453
|
+
return Prelude_Interfaces_x3dx3cx3c(csegen_15(), csegen_482(), FFI_GitHub_listPullRequestsJsonStr($0, $1, $2, $3, $4, $5));
|
|
7379
7454
|
}
|
|
7380
7455
|
|
|
7381
7456
|
function FFI_GitHub_listPRsForBranch($0, $1, $2, $3) {
|
|
7382
|
-
return Prelude_Interfaces_x3dx3cx3c(csegen_15(),
|
|
7457
|
+
return Prelude_Interfaces_x3dx3cx3c(csegen_15(), csegen_482(), $a => $b => FFI_promiseIO($e => $f => $10 => FFI_GitHub_prim__listPRsForBranch($0, $1, $2, $3, $e, $f, $10), $a, $b));
|
|
7383
7458
|
}
|
|
7384
7459
|
|
|
7385
7460
|
function FFI_GitHub_listOrgMembers($0, $1) {
|
|
7386
|
-
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));
|
|
7387
7462
|
}
|
|
7388
7463
|
|
|
7389
7464
|
function FFI_GitHub_listMyTeams($0) {
|
|
7390
|
-
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));
|
|
7391
7466
|
}
|
|
7392
7467
|
|
|
7393
7468
|
function FFI_GitHub_getUser($0) {
|
|
7394
|
-
return Prelude_Interfaces_x3cx3dx3c(csegen_15(),
|
|
7469
|
+
return Prelude_Interfaces_x3cx3dx3c(csegen_15(), csegen_483(), $7 => $8 => $9 => FFI_promiseIO($c => $d => $e => FFI_GitHub_prim__getUser($0, $7, $c, $d, $e), $8, $9));
|
|
7395
7470
|
}
|
|
7396
7471
|
|
|
7397
7472
|
function FFI_GitHub_getSelf($0) {
|
|
7398
|
-
return Prelude_Interfaces_x3dx3cx3c(csegen_15(),
|
|
7473
|
+
return Prelude_Interfaces_x3dx3cx3c(csegen_15(), csegen_483(), $7 => $8 => FFI_promiseIO($b => $c => $d => FFI_GitHub_prim__getSelf($0, $b, $c, $d), $7, $8));
|
|
7399
7474
|
}
|
|
7400
7475
|
|
|
7401
7476
|
function FFI_GitHub_getRepoDefaultBranch($0, $1, $2, $3, $4) {
|
|
@@ -7403,7 +7478,7 @@ function FFI_GitHub_getRepoDefaultBranch($0, $1, $2, $3, $4) {
|
|
|
7403
7478
|
}
|
|
7404
7479
|
|
|
7405
7480
|
function FFI_GitHub_createPR($0, $1, $2, $3, $4, $5, $6) {
|
|
7406
|
-
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));
|
|
7407
7482
|
}
|
|
7408
7483
|
|
|
7409
7484
|
function FFI_GitHub_createComment($0, $1, $2, $3, $4, $5, $6) {
|
|
@@ -7411,7 +7486,7 @@ function FFI_GitHub_createComment($0, $1, $2, $3, $4, $5, $6) {
|
|
|
7411
7486
|
}
|
|
7412
7487
|
|
|
7413
7488
|
function FFI_GitHub_addPullReviewers($0, $1, $2, $3, $4, $5) {
|
|
7414
|
-
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));
|
|
7415
7490
|
}
|
|
7416
7491
|
|
|
7417
7492
|
function FFI_promiseIO($0, $1, $2) {
|
|
@@ -7489,8 +7564,8 @@ function Data_User_parseUserString($0) {
|
|
|
7489
7564
|
}
|
|
7490
7565
|
};
|
|
7491
7566
|
const $3 = {a1: $4, a2: a => $c => ({h: 1, a1: $c}), a3: $e};
|
|
7492
|
-
const $2 = {a1: $3, a2:
|
|
7493
|
-
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);
|
|
7494
7569
|
}
|
|
7495
7570
|
|
|
7496
7571
|
function Data_User_parseUser($0) {
|
|
@@ -7537,7 +7612,7 @@ function Data_Review_parseReview($0) {
|
|
|
7537
7612
|
}
|
|
7538
7613
|
};
|
|
7539
7614
|
const $20 = {a1: $21, a2: a => $29 => ({h: 1, a1: $29}), a3: $2b};
|
|
7540
|
-
const $1f = {a1: $20, a2:
|
|
7615
|
+
const $1f = {a1: $20, a2: csegen_247(), a3: csegen_248()};
|
|
7541
7616
|
const $1d = Prelude_Interfaces_x3dx3cx3c($1f, $3a => Data_Review_parseState($3a), Language_JSON_Accessors_string($12.a2.a1));
|
|
7542
7617
|
const $40 = state => {
|
|
7543
7618
|
const $46 = b => a => func => $47 => {
|
|
@@ -7558,7 +7633,7 @@ function Data_Review_parseReview($0) {
|
|
|
7558
7633
|
}
|
|
7559
7634
|
};
|
|
7560
7635
|
const $45 = {a1: $46, a2: a => $4e => ({h: 1, a1: $4e}), a3: $50};
|
|
7561
|
-
const $44 = {a1: $45, a2:
|
|
7636
|
+
const $44 = {a1: $45, a2: csegen_247(), a3: csegen_248()};
|
|
7562
7637
|
const $42 = Prelude_Interfaces_x3dx3cx3c($44, $5f => Data_Review_parseDateTime($5f), Language_JSON_Accessors_string($12.a2.a2.a1));
|
|
7563
7638
|
return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($42, submittedAt => ({h: 1, a1: {a1: submittedAt, a2: author, a3: state}}));
|
|
7564
7639
|
};
|
|
@@ -7811,8 +7886,8 @@ function Data_PullRequest_parsePullRequestsString($0) {
|
|
|
7811
7886
|
}
|
|
7812
7887
|
};
|
|
7813
7888
|
const $3 = {a1: $4, a2: a => $c => ({h: 1, a1: $c}), a3: $e};
|
|
7814
|
-
const $2 = {a1: $3, a2:
|
|
7815
|
-
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);
|
|
7816
7891
|
}
|
|
7817
7892
|
|
|
7818
7893
|
function Data_PullRequest_parsePullRequestString($0) {
|
|
@@ -7834,8 +7909,8 @@ function Data_PullRequest_parsePullRequestString($0) {
|
|
|
7834
7909
|
}
|
|
7835
7910
|
};
|
|
7836
7911
|
const $3 = {a1: $4, a2: a => $c => ({h: 1, a1: $c}), a3: $e};
|
|
7837
|
-
const $2 = {a1: $3, a2:
|
|
7838
|
-
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);
|
|
7839
7914
|
}
|
|
7840
7915
|
|
|
7841
7916
|
function Data_PullRequest_parsePR($0) {
|
|
@@ -7861,7 +7936,7 @@ function Data_PullRequest_parsePR($0) {
|
|
|
7861
7936
|
}
|
|
7862
7937
|
};
|
|
7863
7938
|
const $2e = {a1: $2f, a2: a => $37 => ({h: 1, a1: $37}), a3: $39};
|
|
7864
|
-
const $2d = {a1: $2e, a2:
|
|
7939
|
+
const $2d = {a1: $2e, a2: csegen_247(), a3: csegen_248()};
|
|
7865
7940
|
const $2b = Prelude_Interfaces_x3dx3cx3c($2d, $48 => Data_PullRequest_parseState($48), Language_JSON_Accessors_string($18.a2.a2.a1));
|
|
7866
7941
|
const $4e = state => {
|
|
7867
7942
|
const $54 = b => a => func => $55 => {
|
|
@@ -7882,7 +7957,7 @@ function Data_PullRequest_parsePR($0) {
|
|
|
7882
7957
|
}
|
|
7883
7958
|
};
|
|
7884
7959
|
const $53 = {a1: $54, a2: a => $5c => ({h: 1, a1: $5c}), a3: $5e};
|
|
7885
|
-
const $52 = {a1: $53, a2:
|
|
7960
|
+
const $52 = {a1: $53, a2: csegen_247(), a3: csegen_248()};
|
|
7886
7961
|
const $50 = Prelude_Interfaces_x3dx3cx3c($52, $6d => Data_PullRequest_parseDateTime($6d), Language_JSON_Accessors_string($18.a2.a2.a2.a1));
|
|
7887
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}}))));
|
|
7888
7963
|
};
|
|
@@ -7942,7 +8017,7 @@ function FFI_Git_pushNewBranch($0, $1, $2, $3, $4) {
|
|
|
7942
8017
|
}
|
|
7943
8018
|
|
|
7944
8019
|
function FFI_Git_listRemotes($0) {
|
|
7945
|
-
return Prelude_Interfaces_x3cx24x3e(
|
|
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));
|
|
7946
8021
|
}
|
|
7947
8022
|
|
|
7948
8023
|
function FFI_Git_git($0) {
|
|
@@ -7970,7 +8045,7 @@ function FFI_Concurrency_promiseAll($0, $1, $2, $3) {
|
|
|
7970
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);
|
|
7971
8046
|
}
|
|
7972
8047
|
};
|
|
7973
|
-
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);
|
|
7974
8049
|
};
|
|
7975
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);
|
|
7976
8051
|
};
|
|
@@ -8127,7 +8202,7 @@ function System_getEnv($0, $1) {
|
|
|
8127
8202
|
function System_getArgs($0) {
|
|
8128
8203
|
const $12 = n => {
|
|
8129
8204
|
switch(Prelude_EqOrd_x3e_Ord_Int(n, Number(_truncBigInt32(0n)))) {
|
|
8130
|
-
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:
|
|
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)));
|
|
8131
8206
|
case 0: return $0.a1.a1.a2(undefined)({h: 0});
|
|
8132
8207
|
}
|
|
8133
8208
|
};
|
|
@@ -8149,59 +8224,59 @@ function System_exitFailure($0) {
|
|
|
8149
8224
|
return System_exitWith($0, {a1: 1, a2: undefined});
|
|
8150
8225
|
}
|
|
8151
8226
|
|
|
8152
|
-
function
|
|
8153
|
-
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);
|
|
8154
8229
|
}
|
|
8155
8230
|
|
|
8156
|
-
function
|
|
8157
|
-
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);
|
|
8158
8233
|
}
|
|
8159
8234
|
|
|
8160
|
-
function
|
|
8161
|
-
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);
|
|
8162
8237
|
}
|
|
8163
8238
|
|
|
8164
|
-
function
|
|
8239
|
+
function Help_n__4301_1019_maybeDecorate($0, $1, $2) {
|
|
8165
8240
|
switch($0) {
|
|
8166
8241
|
case 1: return Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString(Text_PrettyPrint_Prettyprinter_Doc_layoutPretty(Text_PrettyPrint_Prettyprinter_Doc_defaultLayoutOptions(), $1($2)));
|
|
8167
8242
|
case 0: return $2;
|
|
8168
8243
|
}
|
|
8169
8244
|
}
|
|
8170
8245
|
|
|
8171
|
-
function
|
|
8172
|
-
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);
|
|
8173
8248
|
}
|
|
8174
8249
|
|
|
8175
|
-
function
|
|
8176
|
-
return
|
|
8250
|
+
function Help_n__4301_1022_argument($0, $1) {
|
|
8251
|
+
return Help_n__4301_1019_maybeDecorate($0, csegen_405(), $1);
|
|
8177
8252
|
}
|
|
8178
8253
|
|
|
8179
8254
|
function Help_help($0) {
|
|
8180
|
-
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}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}});
|
|
8181
8256
|
}
|
|
8182
8257
|
|
|
8183
|
-
function
|
|
8258
|
+
function Config_with__getConfig_5738($0, $1, $2, $3, $4) {
|
|
8184
8259
|
switch($1.h) {
|
|
8185
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);
|
|
8186
8261
|
case undefined: return Data_Promise_pure_Applicative_Promise($1.a1($2), $3, $4);
|
|
8187
8262
|
}
|
|
8188
8263
|
}
|
|
8189
8264
|
|
|
8190
|
-
function
|
|
8265
|
+
function Config_with__withx20blockx20inx20setConfig_5592($0, $1, $2, $3, $4, $5) {
|
|
8191
8266
|
switch($3.h) {
|
|
8192
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);
|
|
8193
8268
|
case undefined: return $1a => Config_writeConfig($3.a1, $5, $1a);
|
|
8194
8269
|
}
|
|
8195
8270
|
}
|
|
8196
8271
|
|
|
8197
|
-
function
|
|
8272
|
+
function Config_with__setConfig_5564($0, $1, $2, $3) {
|
|
8198
8273
|
switch($1.h) {
|
|
8199
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);
|
|
8200
|
-
case undefined: return $15 =>
|
|
8275
|
+
case undefined: return $15 => Config_with__withx20blockx20inx20setConfig_5592($1.a1, $3, $2, $1.a1($3)($2), $0, $15);
|
|
8201
8276
|
}
|
|
8202
8277
|
}
|
|
8203
8278
|
|
|
8204
|
-
function
|
|
8279
|
+
function Config_with__propSettersx2cparseBool_5274($0, $1) {
|
|
8205
8280
|
switch($1) {
|
|
8206
8281
|
case 'yes': return {a1: 1};
|
|
8207
8282
|
case 'true': return {a1: 1};
|
|
@@ -8211,14 +8286,14 @@ function Config_with__propSettersx2cparseBool_5273($0, $1) {
|
|
|
8211
8286
|
}
|
|
8212
8287
|
}
|
|
8213
8288
|
|
|
8214
|
-
function
|
|
8289
|
+
function Config_with__dropPrefixx27x2cdropx27_5090($0, $1, $2) {
|
|
8215
8290
|
switch($2.h) {
|
|
8216
8291
|
case 0: return {a1: $2.a1.a1};
|
|
8217
8292
|
case 1: return {h: 0};
|
|
8218
8293
|
}
|
|
8219
8294
|
}
|
|
8220
8295
|
|
|
8221
|
-
function
|
|
8296
|
+
function Config_case__parseGitHubURIx2cparseSuffix_5150($0, $1, $2) {
|
|
8222
8297
|
const $e = $f => {
|
|
8223
8298
|
switch($f.h) {
|
|
8224
8299
|
case undefined: {
|
|
@@ -8238,7 +8313,7 @@ function Config_case__parseGitHubURIx2cparseSuffix_5149($0, $1, $2) {
|
|
|
8238
8313
|
return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split($9 => Prelude_EqOrd_x3dx3d_Eq_Char($9, '/'), $2.a1)}, $e);
|
|
8239
8314
|
}
|
|
8240
8315
|
|
|
8241
|
-
function
|
|
8316
|
+
function Config_n__6080_5820_yesUnlessNo($0, $1, $2, $3, $4) {
|
|
8242
8317
|
switch($4) {
|
|
8243
8318
|
case 'n': return 0;
|
|
8244
8319
|
case 'N': return 0;
|
|
@@ -8246,35 +8321,35 @@ function Config_n__5993_5749_yesUnlessNo($0, $1, $2, $3, $4) {
|
|
|
8246
8321
|
}
|
|
8247
8322
|
}
|
|
8248
8323
|
|
|
8249
|
-
function
|
|
8324
|
+
function Config_n__5561_5266_update($0, $1, $2, $3, $4) {
|
|
8250
8325
|
return $0(undefined)(undefined)($c => Prelude_Basics_flip($2, $3, $c))($1($4));
|
|
8251
8326
|
}
|
|
8252
8327
|
|
|
8253
|
-
function
|
|
8254
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
8328
|
+
function Config_n__6080_5822_repo($0, $1, $2, $3, $4) {
|
|
8329
|
+
return Prelude_Types_map_Functor_Maybe(csegen_531(), $4);
|
|
8255
8330
|
}
|
|
8256
8331
|
|
|
8257
|
-
function
|
|
8258
|
-
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));
|
|
8259
8334
|
}
|
|
8260
8335
|
|
|
8261
|
-
function
|
|
8262
|
-
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);
|
|
8263
8338
|
}
|
|
8264
8339
|
|
|
8265
|
-
function
|
|
8266
|
-
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);
|
|
8267
8342
|
}
|
|
8268
8343
|
|
|
8269
|
-
function
|
|
8270
|
-
return
|
|
8344
|
+
function Config_n__5561_5265_parseBool($0) {
|
|
8345
|
+
return Config_with__propSettersx2cparseBool_5274($0, Data_String_toLower($0));
|
|
8271
8346
|
}
|
|
8272
8347
|
|
|
8273
|
-
function
|
|
8274
|
-
return Prelude_Types_map_Functor_Maybe(
|
|
8348
|
+
function Config_n__6080_5821_org($0, $1, $2, $3, $4) {
|
|
8349
|
+
return Prelude_Types_map_Functor_Maybe(csegen_535(), $4);
|
|
8275
8350
|
}
|
|
8276
8351
|
|
|
8277
|
-
function
|
|
8352
|
+
function Config_n__6080_5819_orIfEmpty($0, $1, $2, $3, $4, $5) {
|
|
8278
8353
|
switch($4.h) {
|
|
8279
8354
|
case 0: return $5;
|
|
8280
8355
|
case undefined: {
|
|
@@ -8286,20 +8361,20 @@ function Config_n__5993_5748_orIfEmpty($0, $1, $2, $3, $4, $5) {
|
|
|
8286
8361
|
}
|
|
8287
8362
|
}
|
|
8288
8363
|
|
|
8289
|
-
function
|
|
8364
|
+
function Config_n__5255_4964_oneDayAgo($0, $1, $2) {
|
|
8290
8365
|
return $2.a1.a2(undefined)(undefined)(System_time($2))(now => $2.a1.a1.a2(undefined)(Prelude_Cast_cast_Cast_Integer_Bits32((now-86400n))));
|
|
8291
8366
|
}
|
|
8292
8367
|
|
|
8293
|
-
function
|
|
8368
|
+
function Config_n__6080_5823_enterForDefaultStr($0, $1, $2, $3, $4) {
|
|
8294
8369
|
return Prelude_Interfaces_concat(csegen_62(), csegen_77(), {a1: ' (ENTER for default: ', a2: {a1: $4, a2: {a1: ')', a2: {h: 0}}}});
|
|
8295
8370
|
}
|
|
8296
8371
|
|
|
8297
|
-
function
|
|
8298
|
-
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));
|
|
8299
8374
|
}
|
|
8300
8375
|
|
|
8301
|
-
function
|
|
8302
|
-
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));
|
|
8303
8378
|
}
|
|
8304
8379
|
|
|
8305
8380
|
function Config_show_Show_ConfigError($0) {
|
|
@@ -8326,17 +8401,17 @@ function Config_syncIfOld($0, $1, $2, $3) {
|
|
|
8326
8401
|
case 0: return $1a => Data_Promise_pure_Applicative_Promise($1, $d, $1a);
|
|
8327
8402
|
}
|
|
8328
8403
|
};
|
|
8329
|
-
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);
|
|
8330
8405
|
}
|
|
8331
8406
|
|
|
8332
8407
|
function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
8333
8408
|
const $b = teamSlugs => $c => $d => {
|
|
8334
8409
|
const $14 = orgMembers => $15 => $16 => {
|
|
8335
8410
|
const $1a = updatedAt => {
|
|
8336
|
-
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};
|
|
8337
|
-
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)));
|
|
8338
8413
|
};
|
|
8339
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
8414
|
+
return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_538(), $1a, $15, $16);
|
|
8340
8415
|
};
|
|
8341
8416
|
return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listOrgMembers($1, $0.a2), $14, $c, $d);
|
|
8342
8417
|
};
|
|
@@ -8344,15 +8419,15 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
|
|
|
8344
8419
|
}
|
|
8345
8420
|
|
|
8346
8421
|
function Config_setConfig($0, $1, $2) {
|
|
8347
|
-
return
|
|
8422
|
+
return Config_with__setConfig_5564($1, Data_List_lookup(csegen_94(), $1, Config_propSetters()), $2, $0);
|
|
8348
8423
|
}
|
|
8349
8424
|
|
|
8350
8425
|
const Config_propSetters = __lazy(function () {
|
|
8351
|
-
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}}}}};
|
|
8352
8427
|
});
|
|
8353
8428
|
|
|
8354
8429
|
const Config_propGetters = __lazy(function () {
|
|
8355
|
-
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: {h: 0}}}};
|
|
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}}}}};
|
|
8356
8431
|
});
|
|
8357
8432
|
|
|
8358
8433
|
function Config_preferOriginRemote($0) {
|
|
@@ -8364,7 +8439,7 @@ function Config_preferOriginRemote($0) {
|
|
|
8364
8439
|
}
|
|
8365
8440
|
|
|
8366
8441
|
function Config_parseGitHubURI($0) {
|
|
8367
|
-
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));
|
|
8368
8443
|
}
|
|
8369
8444
|
|
|
8370
8445
|
function Config_loadOrCreateConfig($0, $1, $2, $3, $4, $5) {
|
|
@@ -8407,14 +8482,14 @@ function Config_loadConfig($0, $1, $2) {
|
|
|
8407
8482
|
}
|
|
8408
8483
|
};
|
|
8409
8484
|
const $a = {a1: $b, a2: a => $13 => ({h: 1, a1: $13}), a3: $15};
|
|
8410
|
-
const $9 = {a1: $a, a2:
|
|
8485
|
+
const $9 = {a1: $a, a2: csegen_247(), a3: csegen_248()};
|
|
8411
8486
|
const $24 = b => a => func => $25 => {
|
|
8412
8487
|
switch($25.h) {
|
|
8413
8488
|
case 0: return {h: 0, a1: $25.a1};
|
|
8414
8489
|
case 1: return {h: 1, a1: func($25.a1)};
|
|
8415
8490
|
}
|
|
8416
8491
|
};
|
|
8417
|
-
const $23 = {a1: $24, a2:
|
|
8492
|
+
const $23 = {a1: $24, a2: csegen_457(), a3: csegen_461()};
|
|
8418
8493
|
return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, $9, $23, $4, $5);
|
|
8419
8494
|
};
|
|
8420
8495
|
const $39 = $3a => {
|
|
@@ -8456,7 +8531,7 @@ function Config_loadConfig($0, $1, $2) {
|
|
|
8456
8531
|
}
|
|
8457
8532
|
|
|
8458
8533
|
function Config_getConfig($0, $1, $2) {
|
|
8459
|
-
return $3 =>
|
|
8534
|
+
return $3 => Config_with__getConfig_5738($1, Data_List_lookup(csegen_94(), $1, Config_propGetters()), $0, $2, $3);
|
|
8460
8535
|
}
|
|
8461
8536
|
|
|
8462
8537
|
function Config_findConfig($0, $1, $2) {
|
|
@@ -8476,50 +8551,73 @@ function Config_findConfig($0, $1, $2) {
|
|
|
8476
8551
|
}
|
|
8477
8552
|
|
|
8478
8553
|
function Config_dropPrefixx27($0, $1) {
|
|
8479
|
-
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)));
|
|
8480
8555
|
}
|
|
8481
8556
|
|
|
8482
8557
|
function Config_createConfig($0, $1, $2, $3) {
|
|
8483
|
-
|
|
8484
|
-
const $
|
|
8485
|
-
|
|
8486
|
-
|
|
8487
|
-
|
|
8488
|
-
|
|
8489
|
-
|
|
8490
|
-
|
|
8491
|
-
|
|
8492
|
-
|
|
8493
|
-
|
|
8494
|
-
|
|
8495
|
-
|
|
8496
|
-
|
|
8497
|
-
|
|
8498
|
-
|
|
8499
|
-
|
|
8500
|
-
|
|
8501
|
-
|
|
8502
|
-
|
|
8503
|
-
|
|
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));
|
|
8504
8600
|
};
|
|
8505
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
8506
|
-
};
|
|
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
|
+
});
|
|
8507
8603
|
};
|
|
8508
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(
|
|
8509
|
-
};
|
|
8510
|
-
|
|
8511
|
-
|
|
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
|
+
});
|
|
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);
|
|
8512
8608
|
};
|
|
8513
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_x3cx24x3e(
|
|
8514
|
-
}
|
|
8515
|
-
|
|
8516
|
-
|
|
8517
|
-
}
|
|
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
|
+
}
|
|
8613
|
+
};
|
|
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);
|
|
8518
8615
|
};
|
|
8519
|
-
return Data_Promise_x3ex3ex3d_Monad_Promise($
|
|
8520
|
-
};
|
|
8521
|
-
return
|
|
8522
|
-
}
|
|
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);
|
|
8523
8621
|
}
|
|
8524
8622
|
|
|
8525
8623
|
function Data_List_PrefixSuffix_with__withx20blockx20inx20dropPrefix_3662($0, $1, $2, $3, $4, $5) {
|
|
@@ -8560,9 +8658,9 @@ function Data_List_PrefixSuffix_dropPrefix($0, $1, $2) {
|
|
|
8560
8658
|
}
|
|
8561
8659
|
}
|
|
8562
8660
|
|
|
8563
|
-
function
|
|
8661
|
+
function BashCompletion_n__3772_1119_slugsOrLogins($0, $1, $2) {
|
|
8564
8662
|
switch(Data_String_isPrefixOf('+', $1)) {
|
|
8565
|
-
case 1: return Prelude_Interfaces_x3cx24x3e(
|
|
8663
|
+
case 1: return Prelude_Interfaces_x3cx24x3e(csegen_118(), $b => ('+'+$b), $2.a9);
|
|
8566
8664
|
case 0: return $2.a8;
|
|
8567
8665
|
}
|
|
8568
8666
|
}
|
|
@@ -8590,7 +8688,7 @@ function BashCompletion_opts($0, $1, $2) {
|
|
|
8590
8688
|
default: {
|
|
8591
8689
|
switch($1) {
|
|
8592
8690
|
case '--': return $0.a8;
|
|
8593
|
-
default: return Prelude_Types_List_filter($1f => Data_String_isPrefixOf($1, $1f),
|
|
8691
|
+
default: return Prelude_Types_List_filter($1f => Data_String_isPrefixOf($1, $1f), BashCompletion_n__3772_1119_slugsOrLogins($2, $1, $0));
|
|
8594
8692
|
}
|
|
8595
8693
|
}
|
|
8596
8694
|
}
|
|
@@ -8603,7 +8701,7 @@ function BashCompletion_opts($0, $1, $2) {
|
|
|
8603
8701
|
default: {
|
|
8604
8702
|
switch($1) {
|
|
8605
8703
|
case '--': return $0.a8;
|
|
8606
|
-
default: return Prelude_Types_List_filter($35 => Data_String_isPrefixOf($1, $35),
|
|
8704
|
+
default: return Prelude_Types_List_filter($35 => Data_String_isPrefixOf($1, $35), BashCompletion_n__3772_1119_slugsOrLogins($2, $1, $0));
|
|
8607
8705
|
}
|
|
8608
8706
|
}
|
|
8609
8707
|
}
|
|
@@ -8628,7 +8726,7 @@ function BashCompletion_opts($0, $1, $2) {
|
|
|
8628
8726
|
default: {
|
|
8629
8727
|
switch($1) {
|
|
8630
8728
|
case '--': return $0.a8;
|
|
8631
|
-
default: return Prelude_Types_List_filter($57 => Data_String_isPrefixOf($1, $57),
|
|
8729
|
+
default: return Prelude_Types_List_filter($57 => Data_String_isPrefixOf($1, $57), BashCompletion_n__3772_1119_slugsOrLogins($2, $1, $0));
|
|
8632
8730
|
}
|
|
8633
8731
|
}
|
|
8634
8732
|
}
|
|
@@ -8641,7 +8739,7 @@ function BashCompletion_opts($0, $1, $2) {
|
|
|
8641
8739
|
default: {
|
|
8642
8740
|
switch($1) {
|
|
8643
8741
|
case '--': return $0.a8;
|
|
8644
|
-
default: return Prelude_Types_List_filter($6d => Data_String_isPrefixOf($1, $6d),
|
|
8742
|
+
default: return Prelude_Types_List_filter($6d => Data_String_isPrefixOf($1, $6d), BashCompletion_n__3772_1119_slugsOrLogins($2, $1, $0));
|
|
8645
8743
|
}
|
|
8646
8744
|
}
|
|
8647
8745
|
}
|
|
@@ -8671,7 +8769,7 @@ function BashCompletion_cmdOpts($0, $1) {
|
|
|
8671
8769
|
switch($0) {
|
|
8672
8770
|
case '-': {
|
|
8673
8771
|
switch($1) {
|
|
8674
|
-
case 'contribute': return
|
|
8772
|
+
case 'contribute': return csegen_577();
|
|
8675
8773
|
default: {
|
|
8676
8774
|
switch($1) {
|
|
8677
8775
|
case 'contribute': {
|
|
@@ -8687,7 +8785,7 @@ function BashCompletion_cmdOpts($0, $1) {
|
|
|
8687
8785
|
}
|
|
8688
8786
|
case '--': {
|
|
8689
8787
|
switch($1) {
|
|
8690
|
-
case 'contribute': return
|
|
8788
|
+
case 'contribute': return csegen_577();
|
|
8691
8789
|
default: {
|
|
8692
8790
|
switch($1) {
|
|
8693
8791
|
case 'contribute': {
|
|
@@ -8731,7 +8829,7 @@ function BashCompletion_cmdOpts($0, $1) {
|
|
|
8731
8829
|
switch($0) {
|
|
8732
8830
|
case '-': {
|
|
8733
8831
|
switch($1) {
|
|
8734
|
-
case 'contribute': return
|
|
8832
|
+
case 'contribute': return csegen_577();
|
|
8735
8833
|
default: {
|
|
8736
8834
|
switch($1) {
|
|
8737
8835
|
case 'contribute': {
|
|
@@ -8747,7 +8845,7 @@ function BashCompletion_cmdOpts($0, $1) {
|
|
|
8747
8845
|
}
|
|
8748
8846
|
case '--': {
|
|
8749
8847
|
switch($1) {
|
|
8750
|
-
case 'contribute': return
|
|
8848
|
+
case 'contribute': return csegen_577();
|
|
8751
8849
|
default: {
|
|
8752
8850
|
switch($1) {
|
|
8753
8851
|
case 'contribute': {
|
|
@@ -8788,7 +8886,7 @@ function AppVersion_printVersion($0) {
|
|
|
8788
8886
|
}
|
|
8789
8887
|
|
|
8790
8888
|
const AppVersion_appVersion = __lazy(function () {
|
|
8791
|
-
return '1.
|
|
8889
|
+
return '1.1.0';
|
|
8792
8890
|
});
|
|
8793
8891
|
|
|
8794
8892
|
|