diff options
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 |