Add info versions of char and str AST builders

miking-lang · Nov 21, 2024 · 1454a4f · 1454a4f
1 parent 5966b62
commit 1454a4f
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/stdlib/mexpr/ast-builder.mc b/stdlib/mexpr/ast-builder.mc
@@ -31,6 +31,9 @@ let tybool_ = use BoolTypeAst in
 let tychar_ = use CharTypeAst in
   TyChar {info = NoInfo ()}
 
+let itychar_ = use CharTypeAst in
+  lam i. TyChar {info = i}
+
 let tyunknown_ = use UnknownTypeAst in
   TyUnknown {info = NoInfo ()}
 
@@ -48,6 +51,8 @@ let tyseq_ = use SeqTypeAst in
 
 let tystr_ = tyseq_ tychar_
 
+let itystr_ = lam i. ityseq_ i (itychar_ i)
+
 let tytensor_ = use TensorTypeAst in
   lam ty.
   TyTensor {ty = ty, info = NoInfo ()}