diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2024-10-28 14:23:55 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2024-10-28 14:23:55 -0600 |
| commit | ca115adfb3179c0fc120f6815ff1c21d53c9bfd7 (patch) | |
| tree | 6aedb43c8a9f4f5b1a367eb7aa1204dfe3f293e2 /src/Language/Fiddle/Compiler/Qualification.hs | |
| parent | 4b85b09593fae1b72a6d64b09a7843f9a28dbe99 (diff) | |
| download | fiddle-ca115adfb3179c0fc120f6815ff1c21d53c9bfd7.tar.gz fiddle-ca115adfb3179c0fc120f6815ff1c21d53c9bfd7.tar.bz2 fiddle-ca115adfb3179c0fc120f6815ff1c21d53c9bfd7.zip | |
regression: using statements not working properly. Fixed.
Diffstat (limited to 'src/Language/Fiddle/Compiler/Qualification.hs')
| -rw-r--r-- | src/Language/Fiddle/Compiler/Qualification.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 |