diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2024-09-26 00:28:41 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2024-09-26 00:28:41 -0600 |
| commit | a4cffc1eeb547f780068875a703251db6aa41d6c (patch) | |
| tree | 77d44ebaa73a909923b958c11daf1acd5a735977 /src/Main.hs | |
| parent | 3a59cfb59b3339e13bdc9dfd1696ae2c554fcd9a (diff) | |
| download | fiddle-a4cffc1eeb547f780068875a703251db6aa41d6c.tar.gz fiddle-a4cffc1eeb547f780068875a703251db6aa41d6c.tar.bz2 fiddle-a4cffc1eeb547f780068875a703251db6aa41d6c.zip | |
Rename some of the stages.
Stage1 -> Parsed
Stage2 -> Expanded
Stage3 -> Checked
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index 6fba502..cf33e62 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -13,8 +13,8 @@ import GHC.IO.Exception (ExitCode (ExitFailure, ExitSuccess)) import Language.Fiddle.Ast import Language.Fiddle.Compiler (coloredFormat, compile_, printDiagnostic) import Language.Fiddle.Compiler.Stage0 -import Language.Fiddle.Compiler.Stage1 -import Language.Fiddle.Compiler.Stage2 +import Language.Fiddle.Compiler.Expansion +import Language.Fiddle.Compiler.ConsistencyCheck import Language.Fiddle.GenericTree (GenericSyntaxTree (..), ToGenericSyntaxTree (toGenericSyntaxTree), alterGenericSyntaxTree) import qualified Language.Fiddle.Parser import qualified Language.Fiddle.Tokenizer @@ -28,7 +28,7 @@ main = do case argv of [filePath] -> do text <- Data.Text.IO.readFile filePath - let (diags, ma) = compile_ $ toStage3 =<< toStage2 =<< toStage1 =<< toStage0 filePath text + let (diags, ma) = compile_ $ checkConsistency =<< expandAst =<< toStage1 =<< toStage0 filePath text ec <- case ma of Just ast -> do |