diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2024-09-27 16:20:32 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2024-09-27 16:24:10 -0600 |
| commit | 21e6e5940ecb462436b8dc94428c5cee5cdc9072 (patch) | |
| tree | 01405c637f904f24feadc177a84ab9bae7c8c99c /src/Language/Fiddle/Parser.hs | |
| parent | a4cffc1eeb547f780068875a703251db6aa41d6c (diff) | |
| download | fiddle-21e6e5940ecb462436b8dc94428c5cee5cdc9072.tar.gz fiddle-21e6e5940ecb462436b8dc94428c5cee5cdc9072.tar.bz2 fiddle-21e6e5940ecb462436b8dc94428c5cee5cdc9072.zip | |
Add import resolution phase and also add a more abstractions around
compliation phases.
Diffstat (limited to 'src/Language/Fiddle/Parser.hs')
| -rw-r--r-- | src/Language/Fiddle/Parser.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Language/Fiddle/Parser.hs b/src/Language/Fiddle/Parser.hs index b3ed09a..d41cc64 100644 --- a/src/Language/Fiddle/Parser.hs +++ b/src/Language/Fiddle/Parser.hs @@ -59,7 +59,7 @@ directedP subparser = withMeta $ do directiveP :: PaS Directive directiveP = withMeta $ - Directive <$> defer directiveBodyTokens directiveBodyP + Directive <$> defer directiveBodyTokens directiveBodyP directiveBodyP :: PaS DirectiveBody directiveBodyP = withMeta $ do @@ -122,10 +122,10 @@ importListP = withMeta $ do <$> many (ident <* (tok TokComma <|> lookAhead (tok TokRParen))) <* tok TokRParen -importStatementP :: PaS ImportStatement +importStatementP :: Pa ImportStatement importStatementP = withMeta $ - ImportStatement <$> stringTokenP <*> optionMaybe importListP + ImportStatement <$> stringTokenP <*> optionMaybe importListP <*> pure () fiddleDeclP :: Pa FiddleDecl fiddleDeclP = do |