From ca115adfb3179c0fc120f6815ff1c21d53c9bfd7 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Mon, 28 Oct 2024 14:23:55 -0600
Subject: regression: using statements not working properly. Fixed.

---
 src/Language/Fiddle/Compiler/Qualification.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/Language/Fiddle/Compiler/Qualification.hs b/src/Language/Fiddle/Compiler/Qualification.hs
index eae219e..103c7a1 100644
--- a/src/Language/Fiddle/Compiler/Qualification.hs
+++ b/src/Language/Fiddle/Compiler/Qualification.hs
@@ -410,7 +410,7 @@ advanceFiddleDecls localState decls = fmap (reverse . fst) $ do
                     let (qualifiedName, _) =
                           pushObject
                             (fmap identToString ids)
-                            localState
+                            localState'
                      in do
                           sizeBits <- getBitTypeDeclaredSize typ
                           let decl =
@@ -428,7 +428,7 @@ advanceFiddleDecls localState decls = fmap (reverse . fst) $ do
                     let (qualifiedName, localState'') =
                           pushObject
                             (fmap identToString ids)
-                            localState
+                            localState'
                      in do
                           typeSize <- calculateTypeSize =<< resolveOrFail body
                           let decl =
@@ -446,7 +446,7 @@ advanceFiddleDecls localState decls = fmap (reverse . fst) $ do
                     let qualifiedName =
                           fmap
                             (const $ identToString ident)
-                            (currentQualifiedPath localState)
+                            (currentQualifiedPath localState')
                      in do
                           location <- resolveLocationExpression localState' loc
                           typ' <- advanceStage localState' typ
-- 
cgit