From ae5ea355a32eff2b1b1762f4ac2389d94f388df7 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Thu, 3 Oct 2024 12:28:08 -0600
Subject: Add empty qualification stage.

This stage will be responsible for qualifying all types and attaching
necessary  metadata to make the job of later stages much easier.
---
 src/Main.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 393fb69..fb2a1f2 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -13,6 +13,7 @@ import Language.Fiddle.Compiler
 import Language.Fiddle.Compiler.ConsistencyCheck
 import Language.Fiddle.Compiler.Expansion
 import Language.Fiddle.Compiler.ImportResolution
+import Language.Fiddle.Compiler.Qualification
 import Language.Fiddle.Compiler.Stage0
 import Language.Fiddle.GenericTree
   ( GenericSyntaxTree (..),
@@ -29,7 +30,10 @@ import System.IO
 
 -- compilationPipeline :: _ -> _ -> CompilationPhase Parsed Checked
 compilationPipeline parse compile =
-  importResolutionPhase parse compile >>> expansionPhase >>> consistencyCheckPhase
+  importResolutionPhase parse compile
+    >>> expansionPhase
+    >>> qualificationPhase
+    >>> consistencyCheckPhase
 
 -- | Global flags for the compiler.
 newtype GlobalFlags = GlobalFlags
-- 
cgit