diff options
Diffstat (limited to 'src/Language/Fiddle/Compiler/Qualification.hs')
| -rw-r--r-- | src/Language/Fiddle/Compiler/Qualification.hs | 13 |
1 files changed, 0 insertions, 13 deletions
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 |