diff options
| author | Marvin Borner | 2022-03-03 15:56:53 +0100 |
|---|---|---|
| committer | Marvin Borner | 2022-03-03 15:56:53 +0100 |
| commit | 4d5aa27a4636abcf58afeec83e598118eb02fb5c (patch) | |
| tree | ead37ffe2b89e2f692a71672c4ec1fab00487b06 /src/Fun/Grammar.hs | |
| parent | 65293eedaf3469bb0f4a0b174cd53bb89c762ff5 (diff) | |
Tree
Diffstat (limited to 'src/Fun/Grammar.hs')
| -rw-r--r-- | src/Fun/Grammar.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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" |