X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.scl.compiler%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Fenvironment%2FAbstractEnvironment.java;h=d6929232a99f1563d6f97d2b6982e27e453580da;hp=e91e39444281479ba9fc0655464d63b669d5e774;hb=a8758de5bc19e5adb3f618d3038743a164f09912;hpb=12d9af17384d960b75d58c3935d2b7b46d93e87b diff --git a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/environment/AbstractEnvironment.java b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/environment/AbstractEnvironment.java index e91e39444..d6929232a 100644 --- a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/environment/AbstractEnvironment.java +++ b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/environment/AbstractEnvironment.java @@ -6,10 +6,9 @@ import java.util.Collections; import org.simantics.scl.compiler.common.names.Name; import org.simantics.scl.compiler.elaboration.modules.SCLValue; -import org.simantics.scl.compiler.elaboration.modules.TypeAlias; import org.simantics.scl.compiler.elaboration.modules.TypeClass; import org.simantics.scl.compiler.elaboration.modules.TypeClassInstance; -import org.simantics.scl.compiler.elaboration.modules.TypeConstructor; +import org.simantics.scl.compiler.elaboration.modules.TypeDescriptor; import org.simantics.scl.compiler.elaboration.relations.SCLEntityType; import org.simantics.scl.compiler.elaboration.relations.SCLRelation; import org.simantics.scl.compiler.internal.codegen.effects.EffectConstructor; @@ -45,11 +44,11 @@ public abstract class AbstractEnvironment implements Environment { } @Override - public TypeConstructor getTypeConstructor(TCon type) { + public TypeDescriptor getTypeDescriptor(TCon type) { Module module = getModule(type.module); if(module == null) return null; - return module.getTypeConstructor(type.name); + return module.getTypeDescriptor(type.name); } @Override @@ -60,14 +59,6 @@ public abstract class AbstractEnvironment implements Environment { return module.getEffectConstructor(type.name); } - @Override - public TypeAlias getTypeAlias(TCon type) { - Module module = getModule(type.module); - if(module == null) - return null; - return module.getTypeAlias(type.name); - } - @Override public TypeClass getTypeClass(TCon type) { Module module = getModule(type.module);