X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.scl.compiler%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Finternal%2Fderiving%2FDerivingUtils.java;h=67183ec688cbcfea9fe892ee892ca30550327f2d;hb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;hp=dc3795085898fe5c928b5c8de076435a43c08b63;hpb=969bd23cab98a79ca9101af33334000879fb60c5;p=simantics%2Fplatform.git diff --git a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/deriving/DerivingUtils.java b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/deriving/DerivingUtils.java index dc3795085..67183ec68 100644 --- a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/deriving/DerivingUtils.java +++ b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/internal/deriving/DerivingUtils.java @@ -1,28 +1,28 @@ -package org.simantics.scl.compiler.internal.deriving; - -import org.simantics.scl.compiler.internal.parsing.types.TApplyAst; -import org.simantics.scl.compiler.internal.parsing.types.TTupleAst; -import org.simantics.scl.compiler.internal.parsing.types.TVarAst; -import org.simantics.scl.compiler.internal.parsing.types.TypeAst; - -class DerivingUtils { - - static TVarAst getHeadType(TypeAst typeAst) { - while(true) { - if(typeAst instanceof TApplyAst) - typeAst = ((TApplyAst)typeAst).function; - else if(typeAst instanceof TVarAst) - return (TVarAst)typeAst; - else if(typeAst instanceof TTupleAst) { - TTupleAst tuple = (TTupleAst)typeAst; - if(tuple.components.length == 1) - typeAst = tuple.components[0]; - else - return null; - } - else - return null; - } - } - -} +package org.simantics.scl.compiler.internal.deriving; + +import org.simantics.scl.compiler.internal.parsing.types.TApplyAst; +import org.simantics.scl.compiler.internal.parsing.types.TTupleAst; +import org.simantics.scl.compiler.internal.parsing.types.TVarAst; +import org.simantics.scl.compiler.internal.parsing.types.TypeAst; + +class DerivingUtils { + + static TVarAst getHeadType(TypeAst typeAst) { + while(true) { + if(typeAst instanceof TApplyAst) + typeAst = ((TApplyAst)typeAst).function; + else if(typeAst instanceof TVarAst) + return (TVarAst)typeAst; + else if(typeAst instanceof TTupleAst) { + TTupleAst tuple = (TTupleAst)typeAst; + if(tuple.components.length == 1) + typeAst = tuple.components[0]; + else + return null; + } + else + return null; + } + } + +}