Support top-level uniontypes in generateHeader

hekaiyuany · Feb 2, 2021 · d35eb48 · d35eb48
1 parent 98678a2
commit d35eb48
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/OMCompiler/Compiler/Template/Unparsing.tpl b/OMCompiler/Compiler/Template/Unparsing.tpl
@@ -63,7 +63,9 @@ end programExternalHeaderFromTypes;
 
 template classExternalHeader(SCode.Element cl, String pack)
 ::=
-match cl case c as SCode.CLASS(classDef=p as SCode.PARTS(__)) then (p.elementLst |> elt => elementExternalHeader(elt,c.name))
+match cl
+  case c as SCode.CLASS(restriction = SCode.R_METARECORD(moved = true, name = Absyn.IDENT(name = name))) then elementExternalHeader(cl, name)
+  case c as SCode.CLASS(classDef=p as SCode.PARTS(__)) then (p.elementLst |> elt => elementExternalHeader(elt,c.name))
 end classExternalHeader;
 
 template pathString(Absyn.Path path)