type_constructor_pattern fix

include/interpreter_tree.hpp

@@ -382,7 +382,7 @@ struct TypeConstructorPatternParameter {
 };
 
 struct TypeConstructorPattern {
-  TypeIdentifier constructor;
+  std::unique_ptr<TypeExpression> constructor;
   std::vector<TypeConstructorPatternParameter> parameters;
 };
 

src/build_visitor.cpp

@@ -423,7 +423,8 @@ void BuildVisitor::Visit(TypeConstructorPatternParameter* node) {
 void BuildVisitor::Visit(TypeConstructorPattern* node) {
   auto parse_node = current_node_;
 
-  node->constructor = parse_node.ChildByFieldName("constructor").GetValue();
+  current_node_ = parse_node.ChildByFieldName("constructor");
+  Visit(node->constructor.get());
 
   size_t child_count = parse_node.NamedChildCount();
 

src/print_visitor.cpp

@@ -265,7 +265,7 @@ void PrintVisitor::Visit(TypeConstructorPatternParameter* node) {
 
 void PrintVisitor::Visit(TypeConstructorPattern* node) {
   out_ << "[TypeConstructorPattern ";
-  Visit(&node->constructor);
+  Visit(node->constructor.get());
   out_ << "]\n(";
 
   bool is_first = true;

src/visitor.cpp

@@ -459,7 +459,7 @@ void Visitor::Visit(TypeConstructorPatternParameter* node) {
 }
 
 void Visitor::Visit(TypeConstructorPattern* node) {
-  Visit(&node->constructor);
+  Visit(node->constructor.get());
   for (auto& parameter : node->parameters) {
     Visit(&parameter);
   }