@mattpolzin/harmony 5.4.0 → 5.4.1
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- package/harmony +61 -30
- package/package.json +1 -1
package/harmony
CHANGED
|
@@ -9500,7 +9500,7 @@ function AppVersion_printVersion($0) {
|
|
|
9500
9500
|
|
|
9501
9501
|
/* AppVersion.appVersion : String */
|
|
9502
9502
|
const AppVersion_appVersion = __lazy(function () {
|
|
9503
|
-
return '5.4.
|
|
9503
|
+
return '5.4.1';
|
|
9504
9504
|
});
|
|
9505
9505
|
|
|
9506
9506
|
/* Commands.Help.subcommandHelp' : String -> Doc AnsiStyle */
|
|
@@ -11293,18 +11293,18 @@ function Commands_PullRequest_combined($0) {
|
|
|
11293
11293
|
return Prelude_Types_List_tailRecAppend($0.a1, $0.a2);
|
|
11294
11294
|
}
|
|
11295
11295
|
|
|
11296
|
-
/* Util.Github.2647:
|
|
11297
|
-
const
|
|
11298
|
-
return {a1: 1, a2: {h: 0}};
|
|
11296
|
+
/* Util.Github.2647:829:startOver */
|
|
11297
|
+
const Util_Github_n__2647_829_startOver = __lazy(function () {
|
|
11298
|
+
return {a1: {h: 1 /* 2647:825:StartOver */}, a2: {h: 0}};
|
|
11299
11299
|
});
|
|
11300
11300
|
|
|
11301
|
-
/* Util.Github.2647:
|
|
11302
|
-
function
|
|
11301
|
+
/* Util.Github.2647:828:guardSuccess */
|
|
11302
|
+
function Util_Github_n__2647_828_guardSuccess($0) {
|
|
11303
11303
|
switch($0.h) {
|
|
11304
11304
|
case undefined: /* cons */ {
|
|
11305
|
-
switch($0.a1) {
|
|
11306
|
-
case
|
|
11307
|
-
case
|
|
11305
|
+
switch($0.a1.h) {
|
|
11306
|
+
case 5: /* 2647:821:PostSlash */ return {a1: $0.a2};
|
|
11307
|
+
case 4: /* 2647:819:Number */ return {a1: $0.a2};
|
|
11308
11308
|
default: return {h: 0};
|
|
11309
11309
|
}
|
|
11310
11310
|
}
|
|
@@ -11312,51 +11312,82 @@ function Util_Github_n__2647_823_guardSuccess($0) {
|
|
|
11312
11312
|
}
|
|
11313
11313
|
}
|
|
11314
11314
|
|
|
11315
|
-
/* Util.Github.2647:
|
|
11316
|
-
function
|
|
11317
|
-
switch($0.
|
|
11318
|
-
case
|
|
11315
|
+
/* Util.Github.2647:827:goPrefix */
|
|
11316
|
+
function Util_Github_n__2647_827_goPrefix($0, $1) {
|
|
11317
|
+
switch($0.h) {
|
|
11318
|
+
case undefined: /* cons */ {
|
|
11319
|
+
switch($0.a1) {
|
|
11320
|
+
case 0: {
|
|
11321
|
+
switch($1) {
|
|
11322
|
+
case 'H': return {a1: {h: 3 /* 2647:823:Prefix */, a1: 1}, a2: $0.a2};
|
|
11323
|
+
default: return Util_Github_n__2647_829_startOver();
|
|
11324
|
+
}
|
|
11325
|
+
}
|
|
11326
|
+
case 1: return {a1: {h: 3 /* 2647:823:Prefix */, a1: 2}, a2: $0.a2};
|
|
11327
|
+
case 2: {
|
|
11328
|
+
switch(Prelude_Types_isDigit($1)) {
|
|
11329
|
+
case 1: return {a1: {h: 4 /* 2647:819:Number */}, a2: {a1: $1, a2: $0.a2}};
|
|
11330
|
+
case 0: return Util_Github_n__2647_829_startOver();
|
|
11331
|
+
}
|
|
11332
|
+
}
|
|
11333
|
+
default: return Util_Github_n__2647_829_startOver();
|
|
11334
|
+
}
|
|
11335
|
+
}
|
|
11336
|
+
default: return Util_Github_n__2647_829_startOver();
|
|
11337
|
+
}
|
|
11338
|
+
}
|
|
11339
|
+
|
|
11340
|
+
/* Util.Github.2647:826:go */
|
|
11341
|
+
function Util_Github_n__2647_826_go($0, $1) {
|
|
11342
|
+
switch($0.a1.h) {
|
|
11343
|
+
case 0: /* 2647:824:Start */ {
|
|
11319
11344
|
switch($1) {
|
|
11320
|
-
case '/': return {a1: 2, a2: $0.a2};
|
|
11345
|
+
case '/': return {a1: {h: 2 /* 2647:822:PreSlash */}, a2: $0.a2};
|
|
11346
|
+
case 'G': return {a1: {h: 3 /* 2647:823:Prefix */, a1: 0}, a2: $0.a2};
|
|
11321
11347
|
default: {
|
|
11322
11348
|
switch(Prelude_Types_isDigit($1)) {
|
|
11323
|
-
case 1: return {a1:
|
|
11324
|
-
case 0: return
|
|
11349
|
+
case 1: return {a1: {h: 4 /* 2647:819:Number */}, a2: {a1: $1, a2: $0.a2}};
|
|
11350
|
+
case 0: return Util_Github_n__2647_829_startOver();
|
|
11325
11351
|
}
|
|
11326
11352
|
}
|
|
11327
11353
|
}
|
|
11328
11354
|
}
|
|
11329
|
-
case
|
|
11330
|
-
|
|
11331
|
-
|
|
11332
|
-
case
|
|
11355
|
+
case 3: /* 2647:823:Prefix */ return Util_Github_n__2647_827_goPrefix({a1: $0.a1.a1, a2: $0.a2}, $1);
|
|
11356
|
+
case 2: /* 2647:822:PreSlash */ {
|
|
11357
|
+
switch($1) {
|
|
11358
|
+
case 'G': return {a1: {h: 3 /* 2647:823:Prefix */, a1: 0}, a2: $0.a2};
|
|
11359
|
+
default: {
|
|
11360
|
+
switch(Prelude_Types_isDigit($1)) {
|
|
11361
|
+
case 1: return {a1: {h: 4 /* 2647:819:Number */}, a2: {a1: $1, a2: $0.a2}};
|
|
11362
|
+
case 0: return Util_Github_n__2647_829_startOver();
|
|
11363
|
+
}
|
|
11364
|
+
}
|
|
11333
11365
|
}
|
|
11334
11366
|
}
|
|
11335
|
-
case 1: {
|
|
11367
|
+
case 1: /* 2647:825:StartOver */ {
|
|
11336
11368
|
switch($1) {
|
|
11337
|
-
case '/': return {a1: 2, a2: $0.a2};
|
|
11338
|
-
default: return
|
|
11369
|
+
case '/': return {a1: {h: 2 /* 2647:822:PreSlash */}, a2: $0.a2};
|
|
11370
|
+
default: return Util_Github_n__2647_829_startOver();
|
|
11339
11371
|
}
|
|
11340
11372
|
}
|
|
11341
|
-
case
|
|
11373
|
+
case 4: /* 2647:819:Number */ {
|
|
11342
11374
|
switch($1) {
|
|
11343
|
-
case '/': return {a1:
|
|
11375
|
+
case '/': return {a1: {h: 5 /* 2647:821:PostSlash */}, a2: $0.a2};
|
|
11344
11376
|
default: {
|
|
11345
11377
|
switch(Prelude_Types_isDigit($1)) {
|
|
11346
|
-
case 1: return {a1:
|
|
11347
|
-
case 0: return
|
|
11378
|
+
case 1: return {a1: {h: 4 /* 2647:819:Number */}, a2: {a1: $1, a2: $0.a2}};
|
|
11379
|
+
case 0: return Util_Github_n__2647_829_startOver();
|
|
11348
11380
|
}
|
|
11349
11381
|
}
|
|
11350
11382
|
}
|
|
11351
11383
|
}
|
|
11352
|
-
case 5: return {a1: 5, a2: $0.a2};
|
|
11353
|
-
case 4: return {a1: 4, a2: $0.a2};
|
|
11384
|
+
case 5: /* 2647:821:PostSlash */ return {a1: {h: 5 /* 2647:821:PostSlash */}, a2: $0.a2};
|
|
11354
11385
|
}
|
|
11355
11386
|
}
|
|
11356
11387
|
|
|
11357
11388
|
/* Util.Github.parseGithubIssueNumber : String -> Maybe String */
|
|
11358
11389
|
function Util_Github_parseGithubIssueNumber($0) {
|
|
11359
|
-
return Prelude_Types_map_Functor_Maybe(csegen_738(),
|
|
11390
|
+
return Prelude_Types_map_Functor_Maybe(csegen_738(), Util_Github_n__2647_828_guardSuccess(Prelude_Types_foldl_Foldable_List($9 => $a => Util_Github_n__2647_826_go($9, $a), {a1: {h: 0 /* 2647:824:Start */}, a2: {h: 0}}, Prelude_Types_fastUnpack($0))));
|
|
11360
11391
|
}
|
|
11361
11392
|
|
|
11362
11393
|
/* Util.Jira.2647:823:startOver */
|