From 977758cb8c968a9b371fdddbadf456e92107d11c Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Tue, 22 Oct 2024 19:37:45 -0600
Subject: Implement bitfield arrays.

---
 src/Language/Fiddle/Compiler/Qualification.hs | 13 -------------
 1 file changed, 13 deletions(-)

(limited to 'src/Language/Fiddle/Compiler/Qualification.hs')

diff --git a/src/Language/Fiddle/Compiler/Qualification.hs b/src/Language/Fiddle/Compiler/Qualification.hs
index 81e6ac4..e8ab479 100644
--- a/src/Language/Fiddle/Compiler/Qualification.hs
+++ b/src/Language/Fiddle/Compiler/Qualification.hs
@@ -100,19 +100,6 @@ pushObject obj ls =
       let q = currentQualifiedPath ls
        in q {objectPart = objectPart q ++ h, basenamePart = l}
 
--- pushObject :: [String] -> LocalState -> (QualifiedPath String, LocalState)
--- pushObject objName ls =
---   let q = currentQualifiedPath ls
---    in ( fmap (const objName) q,
---         ls
---           { currentScopePath = pushScope (NonEmpty.singleton objName) (currentScopePath ls),
---             currentQualifiedPath =
---               q
---                 { objectPart = objName
---                 }
---           }
---       )
-
 pushRegister :: String -> LocalState -> (QualifiedPath String, LocalState)
 pushRegister regName ls =
   let q = currentQualifiedPath ls
-- 
cgit