791b214 · rowtype-yoga/pose

git.iko.soy/rowtype-yoga/pose

Can format itself with npm link

commit791b214ecbdb56364897addfbdc3637ed9a32a86 authorMark Eibes <mark.eibes@gmail.com> dateSun 4 Jul 2021, 18:39 (5 years ago) parentb54d311

9 files changed+357−157

compare with main

unifiedsplit

packages/core/.vscode/settings.json+7 packages/core/package.json+2−1 packages/core/src/Format.purs+7−5 packages/prettier-plugin-purescript/index.js+168−82 packages/prettier-plugin-purescript/package.json+1−1 packages/prettier-plugin-purescript/spago.dhall+3 packages/prettier-plugin-purescript/src/PluginOptions.purs+36 packages/prettier-plugin-purescript/src/Prettier.purs+32−68 packages/prettier-plugin-purescript/src/PrettierPlugin.purs+101

packages/core/.vscode/settings.jsonnew file+7

@@ -0,0 +1,7 @@

1+{

2+ "editor.defaultFormatter": "esbenp.prettier-vscode",

3+ "[purescript]": {

4+ "editor.defaultFormatter": "esbenp.prettier-vscode"

5+ },

6+ "editor.formatOnSave": true

7+}

packages/core/package.json+2−1

@@ -24,5 +24,6 @@

2424 "build": "spago bundle-app --main Main --to ./bin/shape.js",

2525 "test": "spago test"

2626 },

27− "version": "0.1.0"

27+ "version": "0.1.0",

28+ "prettier": {}

2829}

packages/core/src/Format.purs+7−5

@@ -212,7 +212,7 @@ formatImportDeclaration settings@{ indentation } indent'' importDecl' = case imp

212212 <> importPrefix

213213 <> formatDelimitedNonEmpty

214214 settings

215− span -- [TODO] Probably a different span is needed here

215+ span

216216 indent

217217 (formatImport settings indent')

218218 imports'

@@ -224,7 +224,7 @@ formatImportDeclaration settings@{ indentation } indent'' importDecl' = case imp

224224 importPrefix

225225 <> formatDelimitedNonEmpty

226226 settings

227− span -- [TODO] Probably a different span is needed here

227+ span

228228 indent'

229229 (formatImport settings indent')

230230 imports'

@@ -616,7 +616,7 @@ formatBinder settings@{ indentation } indent' binder = case binder of

616616 foldMap (formatSourceToken settings indent' blank) negative

617617 <> formatSourceToken settings indent' blank number

618618 CST.BinderOp binder1 binders → do

619− formatBinder (settings { indentation = indent' }) prefix binder1 -- [TODO] check

619+ formatBinder (settings { indentation = indent' }) prefix binder1

620620 <> foldMap formatNamedBinder binders

621621 where

622622 indentTrick = indent' <> indentation

@@ -699,6 +699,7 @@ formatWhere settings@{ indentation } indent' (CST.Where { expr: expr', bindings:

699699 <> formatLetBindings letBindings'

700700 where

701701 wherePrefix = if precedingEmptyLines where''.leadingComments > 1 then newline else blank

702+

702703 whereSuffix =

703704 if isPrecededByBlankLines (NE.head letBindings') then

704705 newline

@@ -1533,7 +1534,7 @@ formatType settings@{ indentation } indent lines t = case t of

15331534 SingleLine → { indented: indent, prefix: space }

15341535 CST.TypeOp typo types →

15351536 formatType settings indent (singleOrMultiline typo) typo

1536− <> foldMap formatOp types -- [TODO] Verify

1537+ <> foldMap formatOp types

15371538 where

15381539 formatOp (op /\ anotherType) =

15391540 formatQualifiedName settings indented prefix op

@@ -1709,6 +1710,7 @@ formatSourceToken settings indent prefix { leadingComments, trailingComments, va

17091710 print = case settings.sourceStyle of

17101711 Nothing → Print.printToken

17111712 Just style → printWithStyle style

1713+

17121714 printWithStyle style v = case v of

17131715 CST.TokLeftArrow _ → case style of

17141716 CST.ASCII → "<-"

@@ -1821,7 +1823,7 @@ formatWrappedRow settings@{ indentation } indent wrapped@(CST.Wrapped { open, va

18211823 _, SingleLine → blank /\ blank

18221824

18231825type Indentation

1824− = String -- [TODO] Use Numbers

1826+ = String

18251827

18261828type Indent

18271829 = String

packages/prettier-plugin-purescript/index.js+168−82

@@ -6678,7 +6678,7 @@ var PS = {};

66786678 if (v instanceof PureScript_CST_Types.Line) {

66796679 return Data_Maybe.Nothing.value;

66806680 };

6681− throw new Error("Failed pattern match at Format (line 1782, column 17 - line 1785, column 25): " + [ v.constructor.name ]);

6681+ throw new Error("Failed pattern match at Format (line 1781, column 17 - line 1784, column 25): " + [ v.constructor.name ]);

66826682 };

66836683 var commentIsSpaceOrLineFeed = function (v) {

66846684 if (v instanceof PureScript_CST_Types.Space) {

@@ -6728,7 +6728,7 @@ var PS = {};

67286728 if (v instanceof PureScript_CST_Types.Space) {

67296729 return blank;

67306730 };

6731− throw new Error("Failed pattern match at Format (line 1739, column 38 - line 1743, column 22): " + [ v.constructor.name ]);

6731+ throw new Error("Failed pattern match at Format (line 1738, column 38 - line 1742, column 22): " + [ v.constructor.name ]);

67326732 };

67336733 };

67346734 };

@@ -6743,7 +6743,7 @@ var PS = {};

67436743 if (comment$prime$prime instanceof PureScript_CST_Types.Space) {

67446744 return blank;

67456745 };

6746− throw new Error("Failed pattern match at Format (line 1749, column 42 - line 1752, column 22): " + [ comment$prime$prime.constructor.name ]);

6746+ throw new Error("Failed pattern match at Format (line 1748, column 42 - line 1751, column 22): " + [ comment$prime$prime.constructor.name ]);

67476747 };

67486748 };

67496749 var formatCommentsLeading = function (indent) {

@@ -6777,7 +6777,7 @@ var PS = {};

67776777 if (style instanceof PureScript_CST_Types.Unicode) {

67786778 return "\u2190";

67796779 };

6780− throw new Error("Failed pattern match at Format (line 1714, column 26 - line 1716, column 24): " + [ style.constructor.name ]);

6780+ throw new Error("Failed pattern match at Format (line 1713, column 26 - line 1715, column 24): " + [ style.constructor.name ]);

67816781 };

67826782 if (v1 instanceof PureScript_CST_Types.TokRightArrow) {

67836783 if (style instanceof PureScript_CST_Types.ASCII) {

@@ -6786,7 +6786,7 @@ var PS = {};

67866786 if (style instanceof PureScript_CST_Types.Unicode) {

67876787 return "\u2192";

67886788 };

6789− throw new Error("Failed pattern match at Format (line 1717, column 27 - line 1719, column 24): " + [ style.constructor.name ]);

6789+ throw new Error("Failed pattern match at Format (line 1716, column 27 - line 1718, column 24): " + [ style.constructor.name ]);

67906790 };

67916791 if (v1 instanceof PureScript_CST_Types.TokRightFatArrow) {

67926792 if (style instanceof PureScript_CST_Types.ASCII) {

@@ -6795,7 +6795,7 @@ var PS = {};

67956795 if (style instanceof PureScript_CST_Types.Unicode) {

67966796 return "\u21d2";

67976797 };

6798− throw new Error("Failed pattern match at Format (line 1720, column 30 - line 1722, column 24): " + [ style.constructor.name ]);

6798+ throw new Error("Failed pattern match at Format (line 1719, column 30 - line 1721, column 24): " + [ style.constructor.name ]);

67996799 };

68006800 if (v1 instanceof PureScript_CST_Types.TokDoubleColon) {

68016801 if (style instanceof PureScript_CST_Types.ASCII) {

@@ -6804,7 +6804,7 @@ var PS = {};

68046804 if (style instanceof PureScript_CST_Types.Unicode) {

68056805 return "\u2237";

68066806 };

6807− throw new Error("Failed pattern match at Format (line 1723, column 28 - line 1725, column 24): " + [ style.constructor.name ]);

6807+ throw new Error("Failed pattern match at Format (line 1722, column 28 - line 1724, column 24): " + [ style.constructor.name ]);

68086808 };

68096809 if (v1 instanceof PureScript_CST_Types.TokForall) {

68106810 if (style instanceof PureScript_CST_Types.ASCII) {

@@ -6813,7 +6813,7 @@ var PS = {};

68136813 if (style instanceof PureScript_CST_Types.Unicode) {

68146814 return "\u2200";

68156815 };

6816− throw new Error("Failed pattern match at Format (line 1726, column 23 - line 1728, column 24): " + [ style.constructor.name ]);

6816+ throw new Error("Failed pattern match at Format (line 1725, column 23 - line 1727, column 24): " + [ style.constructor.name ]);

68176817 };

68186818 if (v1 instanceof PureScript_CST_Types.TokSymbolArrow) {

68196819 if (style instanceof PureScript_CST_Types.ASCII) {

@@ -6822,7 +6822,7 @@ var PS = {};

68226822 if (style instanceof PureScript_CST_Types.Unicode) {

68236823 return "(\u2192)";

68246824 };

6825− throw new Error("Failed pattern match at Format (line 1729, column 28 - line 1731, column 26): " + [ style.constructor.name ]);

6825+ throw new Error("Failed pattern match at Format (line 1728, column 28 - line 1730, column 26): " + [ style.constructor.name ]);

68266826 };

68276827 return PureScript_CST_Print.printToken(v1);

68286828 };

@@ -6834,7 +6834,7 @@ var PS = {};

68346834 if (settings.sourceStyle instanceof Data_Maybe.Just) {

68356835 return printWithStyle(settings.sourceStyle.value0);

68366836 };

6837− throw new Error("Failed pattern match at Format (line 1710, column 11 - line 1712, column 38): " + [ settings.sourceStyle.constructor.name ]);

6837+ throw new Error("Failed pattern match at Format (line 1709, column 11 - line 1711, column 38): " + [ settings.sourceStyle.constructor.name ]);

68386838 })();

68396839 return formatCommentsLeading(indent)(prefix)(v.leadingComments) + (prefix + (print(v.value) + formatCommentsTrailing(prefix)(v.trailingComments)));

68406840 };

@@ -6862,7 +6862,7 @@ var PS = {};

68626862 prefix: space

68636863 };

68646864 };

6865− throw new Error("Failed pattern match at Format (line 1590, column 24 - line 1595, column 52): " + [ v3.constructor.name ]);

6865+ throw new Error("Failed pattern match at Format (line 1589, column 24 - line 1594, column 52): " + [ v3.constructor.name ]);

68666866 })();

68676867 return formatLabel(v1.label) + (formatSourceToken(v)(v2.indent)(space)(v1.separator) + (v2.prefix + formatValue(v2.indent)(v1.value)));

68686868 };

@@ -6892,7 +6892,7 @@ var PS = {};

68926892 return formatName(settings)(indent)(blank)(name) + space;

68936893 })(v.value0) + (formatSourceToken(settings)(indent)(blank)(v.value1) + Data_Foldable.foldMap(Data_Array_NonEmpty_Internal.foldableNonEmptyArray)(Data_Monoid.monoidString)(formatName(settings)(indent)(space))(v.value2));

68946894 };

6895− throw new Error("Failed pattern match at Format (line 1398, column 37 - line 1405, column 62): " + [ v.constructor.name ]);

6895+ throw new Error("Failed pattern match at Format (line 1397, column 37 - line 1404, column 62): " + [ v.constructor.name ]);

68966896 };

68976897 };

68986898 };

@@ -6921,7 +6921,7 @@ var PS = {};

69216921 if (v instanceof Data_Maybe.Just) {

69226922 return newline + (Data_Foldable.fold(Data_Array_NonEmpty_Internal.foldableNonEmptyArray)(Data_Monoid.monoidString)(Data_Array_NonEmpty.intersperse(newline)(v.value0)) + newline);

69236923 };

6924− throw new Error("Failed pattern match at Format (line 1777, column 3 - line 1779, column 81): " + [ v.constructor.name ]);

6924+ throw new Error("Failed pattern match at Format (line 1776, column 3 - line 1778, column 81): " + [ v.constructor.name ]);

69256925 };

69266926 var formatFixityOp = function (settings) {

69276927 return function (indent) {

@@ -6960,11 +6960,11 @@ var PS = {};

69606960 if (v2 instanceof SingleLine) {

69616961 return new Data_Tuple.Tuple(indent$prime, space);

69626962 };

6963− throw new Error("Failed pattern match at Format (line 1082, column 26 - line 1084, column 38): " + [ v2.constructor.name ]);

6963+ throw new Error("Failed pattern match at Format (line 1081, column 26 - line 1083, column 38): " + [ v2.constructor.name ]);

69646964 })();

69656965 return formatName(v)(indent$prime)(blank)(recordLabeled$prime.value0) + (formatSourceToken(v)(indent$prime)(blank)(recordLabeled$prime.value1) + (v1.value1 + f(v1.value0)(recordLabeled$prime.value2)));

69666966 };

6967− throw new Error("Failed pattern match at Format (line 1077, column 73 - line 1088, column 20): " + [ recordLabeled$prime.constructor.name ]);

6967+ throw new Error("Failed pattern match at Format (line 1076, column 73 - line 1087, column 20): " + [ recordLabeled$prime.constructor.name ]);

69686968 };

69696969 };

69706970 };

@@ -6983,7 +6983,7 @@ var PS = {};

69836983 if (lines instanceof SingleLine) {

69846984 return blank;

69856985 };

6986− throw new Error("Failed pattern match at Format (line 1681, column 12 - line 1683, column 23): " + [ lines.constructor.name ]);

6986+ throw new Error("Failed pattern match at Format (line 1680, column 12 - line 1682, column 23): " + [ lines.constructor.name ]);

69876987 })();

69886988 var go = function (v1) {

69896989 return prefix + (formatSourceToken(settings)(indent)(blank)(v1.value0) + (prefix$prime + formatValue(v1.value1)));

@@ -7013,7 +7013,7 @@ var PS = {};

70137013 after: blank

70147014 };

70157015 };

7016− throw new Error("Failed pattern match at Format (line 1801, column 23 - line 1803, column 49): " + [ v2.constructor.name ]);

7016+ throw new Error("Failed pattern match at Format (line 1800, column 23 - line 1802, column 49): " + [ v2.constructor.name ]);

70177017 })();

70187018 return formatSourceToken(settings)(indent)(blank)(v.open) + (v1.before + (formatValue(v.value) + (v1.after + formatSourceToken(settings)(indent)(blank)(v.close))));

70197019 };

@@ -7032,7 +7032,7 @@ var PS = {};

70327032 if (lines instanceof SingleLine) {

70337033 return new Data_Tuple.Tuple(space, space);

70347034 };

7035− throw new Error("Failed pattern match at Format (line 1304, column 21 - line 1306, column 32): " + [ lines.constructor.name ]);

7035+ throw new Error("Failed pattern match at Format (line 1303, column 21 - line 1305, column 32): " + [ lines.constructor.name ]);

70367036 })();

70377037 var formatOne = function (v1) {

70387038 return v.value0 + (formatSeparated(settings)(singleOrMultiline(PureScript_CST_Range.rangeOfSeparated(dictRangeOf))(v1))(indent)(space)(formatValue)(v1) + v.value1);

@@ -7059,7 +7059,7 @@ var PS = {};

70597059 close: v.close

70607060 });

70617061 };

7062− throw new Error("Failed pattern match at Format (line 1280, column 49 - line 1291, column 50): " + [ v.constructor.name ]);

7062+ throw new Error("Failed pattern match at Format (line 1279, column 49 - line 1290, column 50): " + [ v.constructor.name ]);

70637063 };

70647064 };

70657065 };

@@ -7294,7 +7294,7 @@ var PS = {};

72947294 if (oneOrDelimited instanceof PureScript_CST_Types.Many) {

72957295 return formatDelimitedNonEmpty(dictRangeOf)(settings)(lines)(indent)(formatValue)(oneOrDelimited.value0);

72967296 };

7297− throw new Error("Failed pattern match at Format (line 1416, column 73 - line 1418, column 107): " + [ oneOrDelimited.constructor.name ]);

7297+ throw new Error("Failed pattern match at Format (line 1415, column 73 - line 1417, column 107): " + [ oneOrDelimited.constructor.name ]);

72987298 };

72997299 };

73007300 };

@@ -7313,7 +7313,7 @@ var PS = {};

73137313 if (lines instanceof SingleLine) {

73147314 return indent;

73157315 };

7316− throw new Error("Failed pattern match at Format (line 1623, column 14 - line 1625, column 24): " + [ lines.constructor.name ]);

7316+ throw new Error("Failed pattern match at Format (line 1622, column 14 - line 1624, column 24): " + [ lines.constructor.name ]);

73177317 })();

73187318 return formatWrapped(v)(indent)(formatValue(indented))(wrapped);

73197319 };

@@ -7333,7 +7333,7 @@ var PS = {};

73337333 if (lines instanceof SingleLine) {

73347334 return new Data_Tuple.Tuple(space, space);

73357335 };

7336− throw new Error("Failed pattern match at Format (line 993, column 25 - line 995, column 36): " + [ lines.constructor.name ]);

7336+ throw new Error("Failed pattern match at Format (line 992, column 25 - line 994, column 36): " + [ lines.constructor.name ]);

73377337 })();

73387338 return formatWrapped(settings)(indent)(function (separated$prime) {

73397339 return v.value0 + (formatSeparated(settings)(lines)(indent)(space)(formatValue)(separated$prime) + v.value1);

@@ -7356,7 +7356,7 @@ var PS = {};

73567356 close: v.close

73577357 });

73587358 };

7359− throw new Error("Failed pattern match at Format (line 973, column 44 - line 982, column 52): " + [ v.constructor.name ]);

7359+ throw new Error("Failed pattern match at Format (line 972, column 44 - line 981, column 52): " + [ v.constructor.name ]);

73607360 };

73617361 };

73627362 };

@@ -7375,7 +7375,7 @@ var PS = {};

73757375 if (lines instanceof SingleLine) {

73767376 return new Data_Tuple.Tuple(blank, blank);

73777377 };

7378− throw new Error("Failed pattern match at Format (line 1819, column 21 - line 1822, column 35): " + [ v1.value.constructor.name, lines.constructor.name ]);

7378+ throw new Error("Failed pattern match at Format (line 1818, column 21 - line 1821, column 35): " + [ v1.value.constructor.name, lines.constructor.name ]);

73797379 })();

73807380 return formatSourceToken(v)(indent)(blank)(v1.open) + (v2.value0 + (formatRow(lines)(v)(indent)(v1.value) + (v2.value1 + formatSourceToken(v)(indent)(blank)(v1.close))));

73817381 };

@@ -7395,7 +7395,7 @@ var PS = {};

73957395 if (v instanceof PureScript_CST_Types.TypeVarKinded) {

73967396 return formatWrapped(settings)(indent)(formatLabeledName(PureScript_CST_Range.rangeOfName)(settings)(indent))(v.value0);

73977397 };

7398− throw new Error("Failed pattern match at Format (line 1474, column 40 - line 1476, column 104): " + [ v.constructor.name ]);

7398+ throw new Error("Failed pattern match at Format (line 1473, column 40 - line 1475, column 104): " + [ v.constructor.name ]);

73997399 };

74007400 };

74017401 };

@@ -7420,7 +7420,7 @@ var PS = {};

74207420 prefix: space

74217421 };

74227422 };

7423− throw new Error("Failed pattern match at Format (line 1494, column 30 - line 1496, column 57): " + [ v3.constructor.name ]);

7423+ throw new Error("Failed pattern match at Format (line 1493, column 30 - line 1495, column 57): " + [ v3.constructor.name ]);

74247424 })();

74257425 return v2.prefix + formatType(v)(v2.indented)(singleOrMultiline(PureScript_CST_Range.rangeOfType(PureScript_CST_Range.rangeOfVoid))(v1.value0))(v1.value0);

74267426 };

@@ -7434,7 +7434,7 @@ var PS = {};

74347434 if (lines instanceof SingleLine) {

74357435 return space;

74367436 };

7437− throw new Error("Failed pattern match at Format (line 1504, column 14 - line 1506, column 25): " + [ lines.constructor.name ]);

7437+ throw new Error("Failed pattern match at Format (line 1503, column 14 - line 1505, column 25): " + [ lines.constructor.name ]);

74387438 })();

74397439 return formatType(v)(indent)(singleOrMultiline(PureScript_CST_Range.rangeOfType(PureScript_CST_Range.rangeOfVoid))(t.value0))(t.value0) + (space + (formatSourceToken(v)(indent)(blank)(t.value1) + (prefix + formatType(v)(indent)(singleOrMultiline(PureScript_CST_Range.rangeOfType(PureScript_CST_Range.rangeOfVoid))(t.value2))(t.value2))));

74407440 };

@@ -7470,7 +7470,7 @@ var PS = {};

74707470 if (lines instanceof SingleLine) {

74717471 return space;

74727472 };

7473− throw new Error("Failed pattern match at Format (line 1522, column 14 - line 1524, column 25): " + [ lines.constructor.name ]);

7473+ throw new Error("Failed pattern match at Format (line 1521, column 14 - line 1523, column 25): " + [ lines.constructor.name ]);

74747474 })();

74757475 return formatSourceToken(v)(indent)(blank)(t.value0) + (formatTypeVarBindings(v)(indent)(Data_Array_NonEmpty.toArray(t.value1)) + (formatSourceToken(v)(indent)(blank)(t.value2) + (prefix + formatType(v)(indent)(lines)(t.value3))));

74767476 };

@@ -7488,7 +7488,7 @@ var PS = {};

74887488 prefix: space

74897489 };

74907490 };

7491− throw new Error("Failed pattern match at Format (line 1532, column 28 - line 1534, column 55): " + [ lines.constructor.name ]);

7491+ throw new Error("Failed pattern match at Format (line 1531, column 28 - line 1533, column 55): " + [ lines.constructor.name ]);

74927492 })();

74937493 return formatType(v)(indent)(lines)(t.value0) + (space + (formatSourceToken(v)(indent)(blank)(t.value1) + (v1.prefix + formatType(v)(v1.indented)(lines)(t.value2))));

74947494 };

@@ -7507,7 +7507,7 @@ var PS = {};

75077507 prefix: space

75087508 };

75097509 };

7510− throw new Error("Failed pattern match at Format (line 1544, column 30 - line 1546, column 57): " + [ lines.constructor.name ]);

7510+ throw new Error("Failed pattern match at Format (line 1543, column 30 - line 1545, column 57): " + [ lines.constructor.name ]);

75117511 })();

75127512 return formatQualifiedName(v)(v2.indented)(v2.prefix)(v1.value0) + (v2.prefix + formatType(v)(v2.indented)(singleOrMultiline(PureScript_CST_Range.rangeOfType(PureScript_CST_Range.rangeOfVoid))(v1.value1))(v1.value1));

75137513 };

@@ -7524,7 +7524,7 @@ var PS = {};

75247524 if (lines instanceof SingleLine) {

75257525 return space;

75267526 };

7527− throw new Error("Failed pattern match at Format (line 1555, column 14 - line 1557, column 25): " + [ lines.constructor.name ]);

7527+ throw new Error("Failed pattern match at Format (line 1554, column 14 - line 1556, column 25): " + [ lines.constructor.name ]);

75287528 })();

75297529 return formatType(v)(indent)(lines)(t.value0) + (space + (formatSourceToken(v)(indent)(blank)(t.value1) + (prefix + formatType(v)(indent)(lines)(t.value2))));

75307530 };

@@ -7543,14 +7543,14 @@ var PS = {};

75437543 if (lines instanceof SingleLine) {

75447544 return space;

75457545 };

7546− throw new Error("Failed pattern match at Format (line 1569, column 14 - line 1571, column 25): " + [ lines.constructor.name ]);

7546+ throw new Error("Failed pattern match at Format (line 1568, column 14 - line 1570, column 25): " + [ lines.constructor.name ]);

75477547 })();

75487548 return formatSourceToken(v)(indent)(blank)(t.value0) + (prefix + formatType(v)(indent)(lines)(t.value1));

75497549 };

75507550 if (t instanceof PureScript_CST_Types["TypeError"]) {

75517551 return Data_Void.absurd(t.value0);

75527552 };

7553− throw new Error("Failed pattern match at Format (line 1484, column 54 - line 1572, column 29): " + [ t.constructor.name ]);

7553+ throw new Error("Failed pattern match at Format (line 1483, column 54 - line 1571, column 29): " + [ t.constructor.name ]);

75547554 };

75557555 };

75567556 };

@@ -7578,7 +7578,7 @@ var PS = {};

75787578 after: space

75797579 };

75807580 };

7581− throw new Error("Failed pattern match at Format (line 1640, column 35 - line 1642, column 69): " + [ lines.constructor.name ]);

7581+ throw new Error("Failed pattern match at Format (line 1639, column 35 - line 1641, column 69): " + [ lines.constructor.name ]);

75827582 })();

75837583 var f = formatLabeledName(PureScript_CST_Range.rangeOfName)(v)(v2.indented);

75847584 return v2.before + (formatSeparated(v)(lines)(indent)(space)(f)(v1.labels.value0) + v2.after);

@@ -7597,7 +7597,7 @@ var PS = {};

75977597 after: space

75987598 };

75997599 };

7600− throw new Error("Failed pattern match at Format (line 1652, column 25 - line 1654, column 51): " + [ lines.constructor.name ]);

7600+ throw new Error("Failed pattern match at Format (line 1651, column 25 - line 1653, column 51): " + [ lines.constructor.name ]);

76017601 })();

76027602 return v2.before + (formatSourceToken(v)(indent)(blank)(v1.tail.value0.value0) + (space + (formatType(v)(indent)(lines)(v1.tail.value0.value1) + v2.after)));

76037603 };

@@ -7619,12 +7619,12 @@ var PS = {};

76197619 prefix: space

76207620 };

76217621 };

7622− throw new Error("Failed pattern match at Format (line 1664, column 43 - line 1666, column 84): " + [ lines.constructor.name ]);

7622+ throw new Error("Failed pattern match at Format (line 1663, column 43 - line 1665, column 84): " + [ lines.constructor.name ]);

76237623 })();

76247624 var f = formatLabeledName(PureScript_CST_Range.rangeOfName)(v)(v2.indented);

76257625 return v2.before + (formatSeparated(v)(lines)(indent)(space)(f)(v1.labels.value0) + (v2.prefix + (formatSourceToken(v)(indent)(blank)(v1.tail.value0.value0) + (space + (formatType(v)(indent)(lines)(v1.tail.value0.value1) + v2.after)))));

76267626 };

7627− throw new Error("Failed pattern match at Format (line 1633, column 78 - line 1668, column 44): " + [ v1.labels.constructor.name, v1.tail.constructor.name ]);

7627+ throw new Error("Failed pattern match at Format (line 1632, column 78 - line 1667, column 44): " + [ v1.labels.constructor.name, v1.tail.constructor.name ]);

76287628 };

76297629 };

76307630 };

@@ -7662,7 +7662,7 @@ var PS = {};

76627662 if (v1 instanceof SingleLine) {

76637663 return space;

76647664 };

7665− throw new Error("Failed pattern match at Format (line 605, column 16 - line 607, column 27): " + [ v1.constructor.name ]);

7665+ throw new Error("Failed pattern match at Format (line 604, column 16 - line 606, column 27): " + [ v1.constructor.name ]);

76667666 })();

76677667 return formatQualifiedName(v)(indent$prime)(blank)(binder.value0) + Data_Foldable.foldMap(Data_Foldable.foldableArray)(Data_Monoid.monoidString)(function (binder$prime) {

76687668 return prefix + formatBinder(v)(indent$prime)(binder$prime);

@@ -7683,7 +7683,7 @@ var PS = {};

76837683 if (lines instanceof SingleLine) {

76847684 return new Data_Tuple.Tuple(indent$prime, space);

76857685 };

7686− throw new Error("Failed pattern match at Format (line 625, column 24 - line 627, column 36): " + [ lines.constructor.name ]);

7686+ throw new Error("Failed pattern match at Format (line 624, column 24 - line 626, column 36): " + [ lines.constructor.name ]);

76877687 })();

76887688 var formatNamedBinder = function (v2) {

76897689 return formatQualifiedName(v)(indent$prime)(v1.value1)(v2.value0) + (v1.value1 + formatBinder(v)(v1.value0)(v2.value1));

@@ -7711,7 +7711,7 @@ var PS = {};

77117711 if (lines instanceof SingleLine) {

77127712 return new Data_Tuple.Tuple(indent$prime, space);

77137713 };

7714− throw new Error("Failed pattern match at Format (line 650, column 26 - line 652, column 38): " + [ lines.constructor.name ]);

7714+ throw new Error("Failed pattern match at Format (line 649, column 26 - line 651, column 38): " + [ lines.constructor.name ]);

77157715 })();

77167716 return formatBinder(v)(indent$prime)(binder.value0) + (formatSourceToken(v)(indent$prime)(space)(binder.value1) + (v1.value1 + formatType(v)(v1.value0)(lines)(binder.value2)));

77177717 };

@@ -7727,7 +7727,7 @@ var PS = {};

77277727 if (binder instanceof PureScript_CST_Types.BinderError) {

77287728 return Data_Void.absurd(binder.value0);

77297729 };

7730− throw new Error("Failed pattern match at Format (line 591, column 56 - line 662, column 31): " + [ binder.constructor.name ]);

7730+ throw new Error("Failed pattern match at Format (line 590, column 56 - line 661, column 31): " + [ binder.constructor.name ]);

77317731 };

77327732 };

77337733 };

@@ -7749,7 +7749,7 @@ var PS = {};

77497749 prefix: space

77507750 };

77517751 };

7752− throw new Error("Failed pattern match at Format (line 1443, column 26 - line 1451, column 8): " + [ lines.constructor.name ]);

7752+ throw new Error("Failed pattern match at Format (line 1442, column 26 - line 1450, column 8): " + [ lines.constructor.name ]);

77537753 })();

77547754 var formatField = function (typo) {

77557755 return v2.prefix + formatType(v)(v2.indented)(lines)(typo);

@@ -7769,7 +7769,7 @@ var PS = {};

77697769 if (lines instanceof SingleLine) {

77707770 return new Data_Tuple.Tuple(indent$prime$prime, new Data_Tuple.Tuple(indent$prime$prime, space));

77717771 };

7772− throw new Error("Failed pattern match at Format (line 521, column 37 - line 526, column 51): " + [ lines.constructor.name ]);

7772+ throw new Error("Failed pattern match at Format (line 520, column 37 - line 525, column 51): " + [ lines.constructor.name ]);

77737773 })();

77747774 var typePrefix = (function () {

77757775 var v3 = Data_Array.last(v1.types);

@@ -7781,12 +7781,12 @@ var PS = {};

77817781 if (v4 instanceof SingleLine) {

77827782 return space;

77837783 };

7784− throw new Error("Failed pattern match at Format (line 529, column 23 - line 531, column 27): " + [ v4.constructor.name ]);

7784+ throw new Error("Failed pattern match at Format (line 528, column 23 - line 530, column 27): " + [ v4.constructor.name ]);

77857785 };

77867786 if (v3 instanceof Data_Maybe.Nothing) {

77877787 return space;

77887788 };

7789− throw new Error("Failed pattern match at Format (line 528, column 18 - line 532, column 22): " + [ v3.constructor.name ]);

7789+ throw new Error("Failed pattern match at Format (line 527, column 18 - line 531, column 22): " + [ v3.constructor.name ]);

77907790 })();

77917791 return formatSourceToken(v)(indent$prime$prime)(blank)(v1.keyword) + (Data_Foldable.foldMap(Data_Foldable.foldableMaybe)(Data_Monoid.monoidString)(function (v3) {

77927792 return formatName(v)(indent$prime$prime)(space)(v3.name) + formatSourceToken(v)(indent$prime$prime)(space)(v3.separator);

@@ -7818,7 +7818,7 @@ var PS = {};

78187818 prefix: space

78197819 };

78207820 };

7821− throw new Error("Failed pattern match at Format (line 1363, column 26 - line 1368, column 53): " + [ lines.constructor.name ]);

7821+ throw new Error("Failed pattern match at Format (line 1362, column 26 - line 1367, column 53): " + [ lines.constructor.name ]);

78227822 })();

78237823 var formatTypeVariableBinding = function (binding) {

78247824 return space + formatTypeVarBinding(v)(indent)(binding);

@@ -7891,7 +7891,7 @@ var PS = {};

78917891 };

78927892 return blank;

78937893 };

7894− throw new Error("Failed pattern match at Format (line 718, column 14 - line 724, column 16): " + [ v2.value1.constructor.name ]);

7894+ throw new Error("Failed pattern match at Format (line 717, column 14 - line 723, column 16): " + [ v2.value1.constructor.name ]);

78957895 })();

78967896 return formatLetBinding(v)(indent)(newline + indent)(suffix)(v2.value0);

78977897 };

@@ -7942,7 +7942,7 @@ var PS = {};

79427942 if (lines instanceof SingleLine) {

79437943 return new Data_Tuple.Tuple(indent$prime, space);

79447944 };

7945− throw new Error("Failed pattern match at Format (line 1045, column 26 - line 1047, column 38): " + [ lines.constructor.name ]);

7945+ throw new Error("Failed pattern match at Format (line 1044, column 26 - line 1046, column 38): " + [ lines.constructor.name ]);

79467946 })();

79477947 return formatName(v)(indent$prime)(blank)(recordUpdate$prime.value0) + (v1.value1 + formatRecordNonEmpty(v)(v1.value0)(formatRecordUpdate(v)(v1.value0))(recordUpdate$prime.value1));

79487948 };

@@ -7956,11 +7956,11 @@ var PS = {};

79567956 if (lines instanceof SingleLine) {

79577957 return new Data_Tuple.Tuple(indent$prime, space);

79587958 };

7959− throw new Error("Failed pattern match at Format (line 1061, column 26 - line 1063, column 38): " + [ lines.constructor.name ]);

7959+ throw new Error("Failed pattern match at Format (line 1060, column 26 - line 1062, column 38): " + [ lines.constructor.name ]);

79607960 })();

79617961 return formatName(v)(indent$prime)(blank)(recordUpdate$prime.value0) + (formatSourceToken(v)(indent$prime)(space)(recordUpdate$prime.value1) + (v1.value1 + formatExpr(v)(v1.value0)(recordUpdate$prime.value2)));

79627962 };

7963− throw new Error("Failed pattern match at Format (line 1038, column 69 - line 1067, column 42): " + [ recordUpdate$prime.constructor.name ]);

7963+ throw new Error("Failed pattern match at Format (line 1037, column 69 - line 1066, column 42): " + [ recordUpdate$prime.constructor.name ]);

79647964 };

79657965 };

79667966 };

@@ -7976,7 +7976,7 @@ var PS = {};

79767976 if (lines instanceof SingleLine) {

79777977 return new Data_Tuple.Tuple(indent$prime, blank);

79787978 };

7979− throw new Error("Failed pattern match at Format (line 1019, column 26 - line 1021, column 38): " + [ lines.constructor.name ]);

7979+ throw new Error("Failed pattern match at Format (line 1018, column 26 - line 1020, column 38): " + [ lines.constructor.name ]);

79807980 })();

79817981 return formatExpr(v)(v1.value0)(recordAccessor$prime.expr) + (v1.value1 + (formatSourceToken(v)(v1.value0)(blank)(recordAccessor$prime.dot) + formatSeparated(v)(lines)(v1.value0)(blank)(formatName(v)(indent$prime)(blank))(recordAccessor$prime.path)));

79827982 };

@@ -7993,7 +7993,7 @@ var PS = {};

79937993 if (v1.binder instanceof Data_Maybe.Nothing) {

79947994 return formatExpr(v)(indent)(v1.expr);

79957995 };

7996− throw new Error("Failed pattern match at Format (line 776, column 110 - line 781, column 45): " + [ v1.binder.constructor.name ]);

7996+ throw new Error("Failed pattern match at Format (line 775, column 110 - line 780, column 45): " + [ v1.binder.constructor.name ]);

79977997 };

79987998 };

79997999 };

@@ -8008,7 +8008,7 @@ var PS = {};

80088008 if (lines instanceof SingleLine) {

80098009 return new Data_Tuple.Tuple(space, new Data_Tuple.Tuple(indent$prime, space));

80108010 };

8011− throw new Error("Failed pattern match at Format (line 1103, column 38 - line 1105, column 47): " + [ lines.constructor.name ]);

8011+ throw new Error("Failed pattern match at Format (line 1102, column 38 - line 1104, column 47): " + [ lines.constructor.name ]);

80128012 })();

80138013 return formatSourceToken(v)(indent$prime)(blank)(letIn$prime.keyword) + (Data_Foldable.foldMap(Data_Foldable.foldableArray)(Data_Monoid.monoidString)(formatLetBinding(v)(v1.value1.value0)(v1.value1.value1)(newline))(Data_Array_NonEmpty.init(letIn$prime.bindings)) + (formatLetBinding(v)(v1.value1.value0)(v1.value1.value1)(blank)(Data_Array_NonEmpty.last(letIn$prime.bindings)) + (v1.value0 + (formatSourceToken(v)(indent$prime)(blank)(letIn$prime["in"]) + (v1.value1.value1 + formatExpr(v)(v1.value1.value0)(letIn$prime.body))))));

80148014 };

@@ -8032,7 +8032,7 @@ var PS = {};

80328032 if (v1 instanceof PureScript_CST_Types.LetBindingError) {

80338033 return Data_Void.absurd(v1.value0);

80348034 };

8035− throw new Error("Failed pattern match at Format (line 733, column 67 - line 747, column 35): " + [ v1.constructor.name ]);

8035+ throw new Error("Failed pattern match at Format (line 732, column 67 - line 746, column 35): " + [ v1.constructor.name ]);

80368036 };

80378037 };

80388038 };

@@ -8060,7 +8060,7 @@ var PS = {};

80608060 if (lines instanceof SingleLine) {

80618061 return space;

80628062 };

8063− throw new Error("Failed pattern match at Format (line 1181, column 12 - line 1183, column 23): " + [ lines.constructor.name ]);

8063+ throw new Error("Failed pattern match at Format (line 1180, column 12 - line 1182, column 23): " + [ lines.constructor.name ]);

80648064 })();

80658065 return formatSourceToken(v)(indent)(blank)(v1.keyword) + (space + (formatExpr(v)(indent)(v1.cond) + (space + (formatSourceToken(v)(indent)(blank)(v1.then) + (formatExprPrefix(lines)(v)(indent)(v1["true"]) + (prefix + (formatSourceToken(v)(indent)(blank)(v1["else"]) + formatExprPrefixElseIf(lines)(v)(indent)(v1["false"]))))))));

80668066 };

@@ -8087,7 +8087,7 @@ var PS = {};

80878087 if (v1 instanceof PureScript_CST_Types.Unconditional) {

80888088 return formatSourceToken(v)(indent$prime)(space)(v1.value0) + formatWhere(v)(indent$prime)(v1.value1);

80898089 };

8090− throw new Error("Failed pattern match at Format (line 671, column 50 - line 683, column 49): " + [ v1.constructor.name ]);

8090+ throw new Error("Failed pattern match at Format (line 670, column 50 - line 682, column 49): " + [ v1.constructor.name ]);

80918091 };

80928092 };

80938093 };

@@ -8176,7 +8176,7 @@ var PS = {};

81768176 if (expr$prime instanceof PureScript_CST_Types.ExprError) {

81778177 return Data_Void.absurd(expr$prime.value0);

81788178 };

8179− throw new Error("Failed pattern match at Format (line 1135, column 70 - line 1162, column 29): " + [ expr$prime.constructor.name ]);

8179+ throw new Error("Failed pattern match at Format (line 1134, column 70 - line 1161, column 29): " + [ expr$prime.constructor.name ]);

81808180 };

81818181 };

81828182 };

@@ -8267,7 +8267,7 @@ var PS = {};

82678267 if (expr instanceof PureScript_CST_Types.ExprError) {

82688268 return Data_Void.absurd(expr.value0);

82698269 };

8270− throw new Error("Failed pattern match at Format (line 788, column 12 - line 815, column 31): " + [ expr.constructor.name ]);

8270+ throw new Error("Failed pattern match at Format (line 787, column 12 - line 814, column 31): " + [ expr.constructor.name ]);

82718271 })();

82728272 var multiLine = (function () {

82738273 if (expr instanceof PureScript_CST_Types.ExprAdo) {

@@ -8351,7 +8351,7 @@ var PS = {};

83518351 if (expr instanceof PureScript_CST_Types.ExprError) {

83528352 return Data_Void.absurd(expr.value0);

83538353 };

8354− throw new Error("Failed pattern match at Format (line 817, column 15 - line 844, column 31): " + [ expr.constructor.name ]);

8354+ throw new Error("Failed pattern match at Format (line 816, column 15 - line 843, column 31): " + [ expr.constructor.name ]);

83558355 })();

83568356 var prefix = (function () {

83578357 if (lines instanceof MultipleLines) {

@@ -8360,7 +8360,7 @@ var PS = {};

83608360 if (lines instanceof SingleLine) {

83618361 return space;

83628362 };

8363− throw new Error("Failed pattern match at Format (line 847, column 12 - line 849, column 23): " + [ lines.constructor.name ]);

8363+ throw new Error("Failed pattern match at Format (line 846, column 12 - line 848, column 23): " + [ lines.constructor.name ]);

83648364 })();

83658365 return prefix + formatExpr(v)(indent)(expr);

83668366 };

@@ -8388,7 +8388,7 @@ var PS = {};

83888388 if (lines instanceof SingleLine) {

83898389 return indent$prime$prime;

83908390 };

8391− throw new Error("Failed pattern match at Format (line 865, column 17 - line 867, column 30): " + [ lines.constructor.name ]);

8391+ throw new Error("Failed pattern match at Format (line 864, column 17 - line 866, column 30): " + [ lines.constructor.name ]);

83928392 })();

83938393 return formatArray(PureScript_CST_Range.rangeOfExpr(PureScript_CST_Range.rangeOfVoid))(v)(lines)(indent$prime$prime)(formatExpr(v)(indent$prime))(expr$prime$prime.value0);

83948394 };

@@ -8424,7 +8424,7 @@ var PS = {};

84248424 if (lines instanceof SingleLine) {

84258425 return new Data_Tuple.Tuple(indent$prime$prime, new Data_Tuple.Tuple(indent$prime$prime, new Data_Tuple.Tuple(space, space)));

84268426 };

8427− throw new Error("Failed pattern match at Format (line 887, column 48 - line 894, column 60): " + [ lines.constructor.name ]);

8427+ throw new Error("Failed pattern match at Format (line 886, column 48 - line 893, column 60): " + [ lines.constructor.name ]);

84288428 })();

84298429 var formatOne = function (v2) {

84308430 return formatWrapped(v)(v1.value0)(formatExpr(v)(v1.value1.value0))(v2.value0) + (v1.value1.value1.value1 + formatExpr(v)(v1.value0)(v2.value1));

@@ -8451,7 +8451,7 @@ var PS = {};

84518451 if (lines instanceof SingleLine) {

84528452 return new Data_Tuple.Tuple(indent$prime$prime + v.indentation, new Data_Tuple.Tuple(indent$prime$prime, space));

84538453 };

8454− throw new Error("Failed pattern match at Format (line 911, column 37 - line 913, column 68): " + [ lines.constructor.name ]);

8454+ throw new Error("Failed pattern match at Format (line 910, column 37 - line 912, column 68): " + [ lines.constructor.name ]);

84558455 })();

84568456 return formatExpr(v)(indent$prime$prime)(expr$prime$prime.value0) + Data_Foldable.foldMap(Data_Array_NonEmpty_Internal.foldableNonEmptyArray)(Data_Monoid.monoidString)(function (v2) {

84578457 return formatQualifiedName(v)(v1.value1.value0)(v1.value1.value1)(v2.value0) + (space + formatExpr(v)(v1.value0)(v2.value1));

@@ -8477,7 +8477,7 @@ var PS = {};

84778477 if (lines instanceof SingleLine) {

84788478 return new Data_Tuple.Tuple(indent$prime$prime, space);

84798479 };

8480− throw new Error("Failed pattern match at Format (line 940, column 27 - line 942, column 39): " + [ lines.constructor.name ]);

8480+ throw new Error("Failed pattern match at Format (line 939, column 27 - line 941, column 39): " + [ lines.constructor.name ]);

84818481 })();

84828482 return formatExpr(v)(indent$prime$prime)(expr$prime$prime.value0) + (v1.value1 + formatRecordNonEmpty(v)(v1.value0)(formatRecordUpdate(v)(v1.value0))(expr$prime$prime.value1));

84838483 };

@@ -8495,7 +8495,7 @@ var PS = {};

84958495 if (lines instanceof SingleLine) {

84968496 return new Data_Tuple.Tuple(indent$prime$prime, space);

84978497 };

8498− throw new Error("Failed pattern match at Format (line 954, column 27 - line 956, column 39): " + [ lines.constructor.name ]);

8498+ throw new Error("Failed pattern match at Format (line 953, column 27 - line 955, column 39): " + [ lines.constructor.name ]);

84998499 })();

85008500 return formatExpr(v)(indent$prime$prime)(expr$prime$prime.value0) + (formatSourceToken(v)(indent$prime$prime)(space)(expr$prime$prime.value1) + (v1.value1 + formatType(v)(v1.value0)(lines)(expr$prime$prime.value2)));

85018501 };

@@ -8505,7 +8505,7 @@ var PS = {};

85058505 if (expr$prime$prime instanceof PureScript_CST_Types.ExprError) {

85068506 return Data_Void.absurd(expr$prime$prime.value0);

85078507 };

8508− throw new Error("Failed pattern match at Format (line 856, column 55 - line 962, column 29): " + [ expr$prime$prime.constructor.name ]);

8508+ throw new Error("Failed pattern match at Format (line 855, column 55 - line 961, column 29): " + [ expr$prime$prime.constructor.name ]);

85098509 };

85108510 };

85118511 };

@@ -8525,7 +8525,7 @@ var PS = {};

85258525 if (doStatement$prime instanceof PureScript_CST_Types.DoError) {

85268526 return Data_Void.absurd(doStatement$prime.value0);

85278527 };

8528− throw new Error("Failed pattern match at Format (line 1212, column 67 - line 1232, column 27): " + [ doStatement$prime.constructor.name ]);

8528+ throw new Error("Failed pattern match at Format (line 1211, column 67 - line 1231, column 27): " + [ doStatement$prime.constructor.name ]);

85298529 };

85308530 };

85318531 };

@@ -8541,7 +8541,7 @@ var PS = {};

85418541 if (lines instanceof SingleLine) {

85428542 return new Data_Tuple.Tuple(indent$prime, space);

85438543 };

8544− throw new Error("Failed pattern match at Format (line 1196, column 26 - line 1198, column 38): " + [ lines.constructor.name ]);

8544+ throw new Error("Failed pattern match at Format (line 1195, column 26 - line 1197, column 38): " + [ lines.constructor.name ]);

85458545 })();

85468546 return formatSourceToken(v)(indent$prime)(blank)(doBlock$prime.keyword) + Data_Foldable.foldMap(Data_Array_NonEmpty_Internal.foldableNonEmptyArray)(Data_Monoid.monoidString)(function (doStatement$prime) {

85478547 return v1.value1 + formatDoStatement(v)(v1.value0)(doStatement$prime);

@@ -8561,7 +8561,7 @@ var PS = {};

85618561 if (lines instanceof SingleLine) {

85628562 return new Data_Tuple.Tuple(indent$prime, space);

85638563 };

8564− throw new Error("Failed pattern match at Format (line 1243, column 26 - line 1245, column 38): " + [ lines.constructor.name ]);

8564+ throw new Error("Failed pattern match at Format (line 1242, column 26 - line 1244, column 38): " + [ lines.constructor.name ]);

85658565 })();

85668566 return formatSourceToken(v)(indent$prime)(blank)(caseOf$prime.keyword) + (space + (formatSeparated(v)(singleOrMultiline(PureScript_CST_Range.rangeOfSeparated(PureScript_CST_Range.rangeOfExpr(PureScript_CST_Range.rangeOfVoid)))(caseOf$prime.head))(v1.value0)(space)(formatExpr(v)(v1.value0))(caseOf$prime.head) + (space + (formatSourceToken(v)(indent$prime)(blank)(caseOf$prime.of) + Data_Foldable.foldMap(Data_Array_NonEmpty_Internal.foldableNonEmptyArray)(Data_Monoid.monoidString)(function (v2) {

85678567 return v1.value1 + (formatSeparated(v)(singleOrMultiline(PureScript_CST_Range.rangeOfSeparated(PureScript_CST_Range.rangeOfBinder(PureScript_CST_Range.rangeOfVoid)))(v2.value0))(v1.value0)(space)(formatBinder(v)(v1.value0))(v2.value0) + formatGuarded(v)(v1.value0)(v2.value1));

@@ -8588,7 +8588,7 @@ var PS = {};

85888588 prefix: space

85898589 };

85908590 };

8591− throw new Error("Failed pattern match at Format (line 1321, column 26 - line 1326, column 54): " + [ lines.constructor.name ]);

8591+ throw new Error("Failed pattern match at Format (line 1320, column 26 - line 1325, column 54): " + [ lines.constructor.name ]);

85928592 })();

85938593 return formatSourceToken(v)(indent$prime)(blank)(v1.keyword) + (Data_Foldable.foldMap(Data_Foldable.foldableArray)(Data_Monoid.monoidString)(function (doStatement$prime) {

85948594 return v2.prefix + formatDoStatement(v)(v2.indent)(doStatement$prime);

@@ -8606,7 +8606,7 @@ var PS = {};

86068606 if (v instanceof PureScript_CST_Types.InstanceBindingName) {

86078607 return formatValueBindingFields(settings)(indent)(v.value0);

86088608 };

8609− throw new Error("Failed pattern match at Format (line 562, column 41 - line 566, column 64): " + [ v.constructor.name ]);

8609+ throw new Error("Failed pattern match at Format (line 561, column 41 - line 565, column 64): " + [ v.constructor.name ]);

86108610 };

86118611 };

86128612 };

@@ -8715,6 +8715,85 @@ var PS = {};

87158715(function(exports) {

87168716 exports.nodeFromPath = (path) => () => path.getValue()

87178717})(PS["Prettier"] = PS["Prettier"] || {});

8718+(function($PS) {

8719+ // Generated by purs version 0.14.2

8720+ "use strict";

8721+ $PS["Record"] = $PS["Record"] || {};

8722+ var exports = $PS["Record"];

8723+ var Data_Symbol = $PS["Data.Symbol"];

8724+ var Record_Unsafe = $PS["Record.Unsafe"];

8725+ var insert = function (dictIsSymbol) {

8726+ return function (dictLacks) {

8727+ return function (dictCons) {

8728+ return function (l) {

8729+ return function (a) {

8730+ return function (r) {

8731+ return Record_Unsafe.unsafeSet(Data_Symbol.reflectSymbol(dictIsSymbol)(l))(a)(r);

8732+ };

8733+ };

8734+ };

8735+ };

8736+ };

8737+ };

8738+ exports["insert"] = insert;

8739+})(PS);

8740+(function($PS) {

8741+ "use strict";

8742+ $PS["Prettier"] = $PS["Prettier"] || {};

8743+ var exports = $PS["Prettier"];

8744+ var $foreign = $PS["Prettier"];

8745+ var Data_Symbol = $PS["Data.Symbol"];

8746+ var Record = $PS["Record"];

8747+ var Type_Proxy = $PS["Type.Proxy"];

8748+ var Unsafe_Coerce = $PS["Unsafe.Coerce"];

8749+ var mkPrettierPluginOptions = function (dictHomogeneous) {

8750+ return Unsafe_Coerce.unsafeCoerce;

8751+ };

8752+ var globalCategory = "Global";

8753+ var choiceOption = (function () {

8754+ var $1 = Record.insert(new Data_Symbol.IsSymbol(function () {

8755+ return "type";

8756+ }))()()(Type_Proxy["Proxy"].value)("choice");

8757+ return function ($2) {

8758+ return $1($2);

8759+ };

8760+ })();

8761+ exports["mkPrettierPluginOptions"] = mkPrettierPluginOptions;

8762+ exports["choiceOption"] = choiceOption;

8763+ exports["globalCategory"] = globalCategory;

8764+ exports["nodeFromPath"] = $foreign.nodeFromPath;

8765+})(PS);

8766+(function($PS) {

8767+ "use strict";

8768+ $PS["PluginOptions"] = $PS["PluginOptions"] || {};

8769+ var exports = $PS["PluginOptions"];

8770+ var Prettier = $PS["Prettier"];

8771+ var symbolStyleUnicode = "unicode";

8772+ var symbolStyleKeep = "keep";

8773+ var symbolStyleASCII = "ascii";

8774+ var options = Prettier.mkPrettierPluginOptions()({

8775+ symbolStyle: Prettier.choiceOption({

8776+ choices: [ {

8777+ value: symbolStyleKeep,

8778+ description: "Leaves symbols as they are in the code"

8779+ }, {

8780+ value: symbolStyleUnicode,

8781+ description: "Prints all symbols as unicode"

8782+ }, {

8783+ value: symbolStyleASCII,

8784+ description: "Prints all symbols as ASCII"

8785+ } ],

8786+ category: Prettier.globalCategory,

8787+ "default": symbolStyleKeep,

8788+ description: "Whether to replace arrows etc. with their ASCII/Unicode counterparts"

8789+ })

8790+ });

8791+ var defaultOptions = {

8792+ tabWidth: 2

8793+ };

8794+ exports["options"] = options;

8795+ exports["defaultOptions"] = defaultOptions;

8796+})(PS);

87188797(function($PS) {

87198798 // Generated by purs version 0.14.2

87208799 "use strict";

@@ -12883,7 +12962,6 @@ var PS = {};

1288312962 exports["parseModule"] = parseModule;

1288412963})(PS);

1288512964(function($PS) {

12886− // Generated by purs version 0.14.2

1288712965 "use strict";

1288812966 $PS["PureScript.CST"] = $PS["PureScript.CST"] || {};

1288912967 var exports = $PS["PureScript.CST"];

@@ -12968,26 +13046,26 @@ var PS = {};

1296813046 exports["defaultSettings"] = defaultSettings;

1296913047})(PS);

1297013048(function($PS) {

12971− // Generated by purs version 0.14.2

1297213049 "use strict";

12973− $PS["Prettier"] = $PS["Prettier"] || {};

12974− var exports = $PS["Prettier"];

12975− var $foreign = $PS["Prettier"];

13050+ $PS["PrettierPlugin"] = $PS["PrettierPlugin"] || {};

13051+ var exports = $PS["PrettierPlugin"];

1297613052 var Data_Function_Uncurried = $PS["Data.Function.Uncurried"];

1297713053 var Data_String_CodeUnits = $PS["Data.String.CodeUnits"];

1297813054 var Effect_Uncurried = $PS["Effect.Uncurried"];

1297913055 var Format = $PS["Format"];

13056+ var PluginOptions = $PS["PluginOptions"];

13057+ var Prettier = $PS["Prettier"];

1298013058 var PureScript_CST = $PS["PureScript.CST"];

1298113059 var Settings = $PS["Settings"];

1298213060 var printPureScript = function (v) {

1298313061 return function (v1) {

12984− return function (options) {

13062+ return function (options1) {

1298513063 var optionsToSettings = function (v2) {

1298613064 return Settings.defaultSettings;

1298713065 };

12988− var settings = optionsToSettings(options);

13066+ var settings = optionsToSettings(options1);

1298913067 return function __do() {

12990− var v2 = $foreign.nodeFromPath(v)();

13068+ var v2 = Prettier.nodeFromPath(v)();

1299113069 if (v2.ast_type === "purescript-cst") {

1299213070 if (v2.body instanceof PureScript_CST.ParseSucceeded) {

1299313071 return Format.format(settings)(v2.body.value0);

@@ -13006,11 +13084,11 @@ var PS = {};

1300613084 };

1300713085 var parse = function (text) {

1300813086 return function (parsers1) {

13009− return function (options) {

13087+ return function (options1) {

1301013088 var optionsToSettings = function (v) {

1301113089 return Settings.defaultSettings;

1301213090 };

13013− var settings = optionsToSettings(options);

13091+ var settings = optionsToSettings(options1);

1301413092 var parsed = PureScript_CST.parseModule(text);

1301513093 return {

1301613094 ast_type: "purescript-cst",

@@ -13034,6 +13112,11 @@ var PS = {};

1303413112 }

1303513113 }

1303613114 };

13115+ var options = PluginOptions.options;

13116+

13117+ // type Options =

13118+ // Record (PureScriptOptions String )

13119+ // | https://github.com/github/linguist/blob/master/lib/linguist/languages.yml#L4505-L4514

1303713120 var languages = [ {

1303813121 name: "PureScript",

1303913122 parsers: [ "purescript" ],

@@ -13044,8 +13127,11 @@ var PS = {};

1304413127 linguistLanguageId: 302,

1304513128 vscodeLanguageIds: [ "purescript" ]

1304613129 } ];

13130+ var defaultOptions = PluginOptions.defaultOptions;

1304713131 exports["languages"] = languages;

1304813132 exports["parsers"] = parsers;

1304913133 exports["printers"] = printers;

13134+ exports["options"] = options;

13135+ exports["defaultOptions"] = defaultOptions;

1305013136})(PS);

13051−module.exports = PS["Prettier"];

13137+module.exports = PS["PrettierPlugin"];

packages/prettier-plugin-purescript/package.json+1−1

@@ -11,7 +11,7 @@

1111 "test": "test"

1212 },

1313 "scripts": {

14− "build": "spago bundle-module --main Prettier --to index.js",

14+ "build": "spago bundle-module --main PrettierPlugin --to index.js",

1515 "test": "spago test"

1616 },

1717 "repository": {

packages/prettier-plugin-purescript/spago.dhall+3

@@ -19,8 +19,11 @@ to generate this file without the comments in this block.

1919 , "language-cst-parser"

2020 , "prelude"

2121 , "psci-support"

22+ , "record"

2223 , "shape-core"

2324 , "strings"

25+ , "typelevel-prelude"

26+ , "unsafe-coerce"

2427 ]

2528, packages = ../../packages.dhall

2629, sources = [ "src/**/*.purs", "test/**/*.purs" ]

packages/prettier-plugin-purescript/src/PluginOptions.pursnew file+36

@@ -0,0 +1,36 @@

1+module PluginOptions where

3+import Prettier (PrettierOption, PrettierPluginOptions, choiceOption, globalCategory, mkPrettierPluginOptions)

4+import Unsafe.Coerce (unsafeCoerce)

6+options :: PrettierPluginOptions (PureScriptOptions PrettierOption ())

7+options = mkPrettierPluginOptions {

8+symbolStyle: choiceOption {

9+ choices: [

10+ { value: symbolStyleKeep, description: "Leaves symbols as they are in the code" },

11+ { value: symbolStyleUnicode, description: "Prints all symbols as unicode" },

12+ { value: symbolStyleASCII, description: "Prints all symbols as ASCII" }

13+ ],

14+ category: globalCategory,

15+ default: symbolStyleKeep,

16+ description: "Whether to replace arrows etc. with their ASCII/Unicode counterparts"

17+ }

18+}

19+

20+foreign import data SymbolStyleOption :: Type

21+symbolStyleKeep :: SymbolStyleOption

22+symbolStyleKeep = unsafeCoerce "keep"

23+symbolStyleUnicode :: SymbolStyleOption

24+symbolStyleUnicode = unsafeCoerce "unicode"

25+symbolStyleASCII :: SymbolStyleOption

26+symbolStyleASCII = unsafeCoerce "ascii"

27+

28+defaultOptions :: Record (DefaultOptions ())

29+defaultOptions = {

30+ tabWidth: 2

31+}

32+

33+type DefaultOptions r = (tabWidth :: Int | r)

34+

35+type PureScriptOptions :: forall k. k -> Row k -> Row k

36+type PureScriptOptions a r = (symbolStyle :: a | r)

packages/prettier-plugin-purescript/src/Prettier.purs+32−68

@@ -1,53 +1,42 @@

1−module Prettier (languages, parsers, printers

2− , FastPath

3− ) where

1+module Prettier where

53import Prelude

7−import Data.Function.Uncurried (mkFn3)

8−import Data.String.CodeUnits as String

95import Effect (Effect)

10−import Effect.Aff.Compat (EffectFn3, mkEffectFn3)

11−import Format (format)

12−import PureScript.CST (RecoveredParserResult(..), parseModule)

13−import PureScript.CST.Types as CST

14−import Settings (defaultSettings)

6+import Record as Record

7+import Type.Proxy (Proxy(..))

8+import Type.Row.Homogeneous (class Homogeneous)

9+import Unsafe.Coerce (unsafeCoerce)

1510

16−-- | https://github.com/github/linguist/blob/master/lib/linguist/languages.yml#L4505-L4514

17−languages = [

18− {

19− name: "PureScript",

20− parsers: ["purescript"],

21− since: "1.0.0", -- ??

22− extensions: [".purs"],

23− tmScope: "source.purescript",

24− aceMode: "haskell",

25− linguistLanguageId: 302,

26− vscodeLanguageIds: ["purescript"]

27− }

28−]

11+foreign import data PrettierPluginOptions :: Row Type -> Type

2912

30−parsers = {

31− purescript: {

32− parse: mkFn3 parse,

33− astFormat: "purescript-cst",

34− locStart: _.start,

35− locEnd: _.end

36− }

13+mkPrettierPluginOptions :: forall r. Homogeneous r PrettierOption => { |r } -> PrettierPluginOptions r

14+mkPrettierPluginOptions = unsafeCoerce

15+

16+choiceOption :: forall a.

17+ { choices :: Array { value :: a, description :: String }

18+ , category :: PrettierOptionCategory

19+ , default :: a

20+ , description :: String

21+ } -> PrettierOption

22+choiceOption = unsafeCoerce <<< Record.insert (Proxy :: Proxy "type") "choice"

23+

24+foreign import data PrettierOption :: Type

25+

26+foreign import data PrettierOptionCategory :: Type

27+

28+globalCategory :: PrettierOptionCategory

29+globalCategory = unsafeCoerce "Global"

30+

31+defaultOptions :: Record (DefaultOptions ())

32+defaultOptions = {

33+ tabWidth: 2

3734}

3835

39−parse :: forall t34 t37. String -> t34 -> t37 -> PSPrettierNode

40−parse text parsers options = do

41− let parsed = parseModule text

42− { ast_type: "purescript-cst"

43− , body: parsed

44− , end: String.length text

45− , source: text

46− , start: 0

47− }

48− where

49− settings = optionsToSettings options

50− optionsToSettings _ = defaultSettings

36+type DefaultOptions r = (tabWidth :: Int | r)

37+

38+type PureScriptOptions :: forall k. k -> Row k -> Row k

39+type PureScriptOptions a r = (symbolStyle :: a | r)

5140

5241foreign import nodeFromPath :: forall a. FastPath -> Effect (PrettierNode a)

5342

@@ -59,29 +48,4 @@ type PrettierNode a =

5948 , end :: Int

6049 , start :: Int

6150 , source :: String

62− }

63−

64−type PSPrettierNode = PrettierNode (RecoveredParserResult CST.Module)

65−

66−printPureScript :: forall x. FastPath -> x -> {} -> Effect String

67−printPureScript (path :: FastPath) _ options = do

68− node :: PSPrettierNode <- nodeFromPath path

69− pure case node.ast_type of

70− "purescript-cst" -> case node.body of

71− ParseSucceeded m -> format settings m

72− _ -> node.source

73− _ ->

74− node.source

75− where

76− settings = optionsToSettings options

77− optionsToSettings _ = defaultSettings

78−

79−printers :: forall t38.

80− { "purescript-cst" :: { print :: EffectFn3 FastPath t38 (Record ()) String

81− }

82− }

83−printers = {

84− "purescript-cst": {

85− print: mkEffectFn3 printPureScript

86− }

87−}

51+ }

packages/prettier-plugin-purescript/src/PrettierPlugin.pursnew file+101

@@ -0,0 +1,101 @@

1+module PrettierPlugin (languages, parsers, printers

2+, options

3+, defaultOptions

4+ ) where

6+import Prelude

8+import Data.Function.Uncurried (mkFn3)

9+import Data.String.CodeUnits as String

10+import Effect (Effect)

11+import Effect.Aff.Compat (EffectFn3, mkEffectFn3)

12+import Format (format)

13+import PluginOptions as Options

14+import Prettier (FastPath, PrettierOption, PrettierPluginOptions, nodeFromPath)

15+import PureScript.CST (RecoveredParserResult(..), parseModule)

16+import PureScript.CST.Types as CST

17+import Record as Record

18+import Settings (defaultSettings)

19+import Type.Proxy (Proxy(..))

20+import Unsafe.Coerce (unsafeCoerce)

21+

22+options :: PrettierPluginOptions (PureScriptOptions PrettierOption ())

23+options = Options.options

24+

25+defaultOptions = Options.defaultOptions

26+

27+type DefaultOptions r = (tabWidth :: Int | r)

28+

29+type PureScriptOptions :: forall k. k -> Row k -> Row k

30+type PureScriptOptions a r = (symbolStyle :: a | r)

31+

32+-- type Options =

33+-- Record (PureScriptOptions String )

34+-- | https://github.com/github/linguist/blob/master/lib/linguist/languages.yml#L4505-L4514

35+languages = [

36+ {

37+ name: "PureScript",

38+ parsers: ["purescript"],

39+ since: "1.0.0", -- ??

40+ extensions: [".purs"],

41+ tmScope: "source.purescript",

42+ aceMode: "haskell",

43+ linguistLanguageId: 302,

44+ vscodeLanguageIds: ["purescript"]

45+ }

46+]

47+

48+parsers = {

49+ purescript: {

50+ parse: mkFn3 parse,

51+ astFormat: "purescript-cst",

52+ locStart: _.start,

53+ locEnd: _.end

54+ }

55+}

56+

57+parse :: forall t34 t37. String -> t34 -> t37 -> PSPrettierNode

58+parse text parsers options = do

59+ let parsed = parseModule text

60+ { ast_type: "purescript-cst"

61+ , body: parsed

62+ , end: String.length text

63+ , source: text

64+ , start: 0

65+ }

66+ where

67+ settings = optionsToSettings options

68+ optionsToSettings _ = defaultSettings

69+

70+type PrettierNode a =

71+ { ast_type :: String

72+ , body :: a

73+ , end :: Int

74+ , start :: Int

75+ , source :: String

76+ }

77+

78+type PSPrettierNode = PrettierNode (RecoveredParserResult CST.Module)

79+

80+printPureScript :: forall x. FastPath -> x -> {} -> Effect String

81+printPureScript (path :: FastPath) _ options = do

82+ node :: PSPrettierNode <- nodeFromPath path

83+ pure case node.ast_type of

84+ "purescript-cst" -> case node.body of

85+ ParseSucceeded m -> format settings m

86+ _ -> node.source

87+ _ ->

88+ node.source

89+ where

90+ settings = optionsToSettings options

91+ optionsToSettings _ = defaultSettings

92+

93+printers :: forall t38.

94+ { "purescript-cst" :: { print :: EffectFn3 FastPath t38 (Record ()) String

95+ }

96+ }

97+printers = {

98+ "purescript-cst": {

99+ print: mkEffectFn3 printPureScript

100+ }

101+}