fix typed expression exprCase

This commit is contained in:
2021-11-27 20:08:57 -07:00
parent c35e102609
commit b219219370

View File

@@ -1186,7 +1186,8 @@ class Macros {
default: default:
false; false;
}; };
case TypedExp(patternTypePath, patternExp): case CallExp({pos: _, def: Symbol("exprTyped")}, [type, patternExp]):
var patternTypePath = Prelude.symbolNameValue(type);
return switch (instance.def) { return switch (instance.def) {
case TypedExp(typePath, instanceExp) if (typePath == patternTypePath): case TypedExp(typePath, instanceExp) if (typePath == patternTypePath):
matchExpr(patternExp, instanceExp); matchExpr(patternExp, instanceExp);