From 71f90ad49fa005fa84f26c792d9ee5b845e308e5 Mon Sep 17 00:00:00 2001
From: KtorZ <matthias.benkort@gmail.com>
Date: Sat, 17 Aug 2024 15:53:48 +0200
Subject: [PATCH] Fix constant definition parser.

  Wouldn't allow a proper sequence of results. Now it does.
---
 crates/aiken-lang/src/parser/definition/constant.rs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/crates/aiken-lang/src/parser/definition/constant.rs b/crates/aiken-lang/src/parser/definition/constant.rs
index c8205be8..43a1c1c2 100644
--- a/crates/aiken-lang/src/parser/definition/constant.rs
+++ b/crates/aiken-lang/src/parser/definition/constant.rs
@@ -14,8 +14,10 @@ pub fn parser() -> impl Parser<Token, ast::UntypedDefinition, Error = ParseError
                 .or_not(),
         )
         .then_ignore(just(Token::Equal))
-        .then(recursive(|expression| {
-            recursive(|sequence| pure_expression(sequence, expression))
+        .then(recursive(|sequence| {
+            recursive(|expression| pure_expression(sequence.clone(), expression))
+                .then(sequence.repeated())
+                .foldl(|current, next| current.append_in_sequence(next))
         }))
         .map_with_span(|(((public, name), annotation), value), span| {
             ast::UntypedDefinition::ModuleConstant(ast::ModuleConstant {