@quenk/wml 2.14.1 → 2.15.1

package/lib/parse/ast.ts

@@ -110,7 +110,7 @@ export type Export =
   | AliasStatement
   | ContextStatement
   | LetStatement
-  | FunStatement
+  | PartStatement
   | ViewStatement
   | Tag;
 
@@ -203,13 +203,13 @@ export class ViewStatement {
   ) {}
 }
 
-export class FunStatement {
-  type = "fun-statement";
+export class PartStatement {
+  type = "part-statement";
 
   constructor(
     public id: UnqualifiedIdentifier,
-    public typeParameters: TypeParameter[],
-    public parameters: Parameter[],
+    public context: ContextTypeIndicator | undefined,
+    public directives: LetStatement[],
     public body: Child[],
     public location: Location,
   ) {}
@@ -231,7 +231,7 @@ export class TypeParameter {
 /**
  * Type
  */
-export type Type = ConstructorType | FunctionType | RecordType | ListType;
+export type Type = ConstructorType | FunctionType | RecordType | ListType | OptionalType;
 
 /**
  * ConstructorType
@@ -295,6 +295,15 @@ export class TupleType {
   ) {}
 }
 
+export class OptionalType {
+  type = "optional-type";
+  
+  constructor(
+    public target: Type,
+    public location: Location,
+  ) {}
+}
+
 /**
  * Parameter
  */
@@ -372,7 +381,7 @@ export class Interpolation {
   ) {}
 }
 
-export type Control = ForStatement | IfStatement;
+export type Control = ForStatement | IfStatement | UseStatement;
 
 export abstract class ForStatement {
   abstract type: string;
@@ -458,6 +467,27 @@ export class ElseIfClause {
   ) {}
 }
 
+export type UseStatement = UsePartStatement | UseViewStatement;
+
+export class UsePartStatement {
+  type = "use-part-statement";
+
+  constructor(
+    public target: Expression,
+    public context: Expression | undefined,
+    public location: Location,
+  ) {}
+}
+
+export class UseViewStatement {
+  type = "use-view-statement";
+
+  constructor(
+    public target: Expression,
+    public location: Location,
+  ) {}
+}
+
 export class Characters {
   type = "characters";