From 4d5aa27a4636abcf58afeec83e598118eb02fb5c Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Thu, 3 Mar 2022 15:56:53 +0100
Subject: Tree

---
 src/Fun/Grammar.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Fun/Grammar.hs')

diff --git a/src/Fun/Grammar.hs b/src/Fun/Grammar.hs
index 2b46418..8014a20 100644
--- a/src/Fun/Grammar.hs
+++ b/src/Fun/Grammar.hs
@@ -3,8 +3,9 @@ module Fun.Grammar where
 import           Fun.Parser
 import           Fun.Tree
 
+-- TODO: Multiple programs (= files) in tree
 tree :: Parser Tree
-tree = iterFull program >>> Tree
+tree = program >>> build >>> Tree <?> "tree" where build p = [p]
 
 program :: Parser Program
 program = iterFull block >>> Program <?> "program"
-- 
cgit v1.2.3