remove unused field from ScoperState

anoma · Sep 30, 2024 · f1a773d · f1a773d
1 parent deca981
commit f1a773d
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 3 deletions.
diff --git a/src/Juvix/Compiler/Concrete/Data/Scope/Base.hs b/src/Juvix/Compiler/Concrete/Data/Scope/Base.hs
@@ -59,7 +59,6 @@ data ScoperState = ScoperState
   { -- | Local and top modules currently in scope - used to look up qualified symbols
     _scoperModules :: HashMap S.NameId ScopedModule,
     _scoperAlias :: HashMap S.NameId PreSymbolEntry,
-    _scoperScopedNameSignatures :: HashMap S.NameId (NameSignature 'Scoped),
     _scoperNameSignatures :: HashMap S.NameId (NameSignature 'Parsed),
     -- | Indexed by the inductive type. This is used for record updates
     _scoperRecordFields :: HashMap S.NameId RecordInfo,

diff --git a/src/Juvix/Compiler/Concrete/Translation/FromParsed/Analysis/Scoping.hs b/src/Juvix/Compiler/Concrete/Translation/FromParsed/Analysis/Scoping.hs
@@ -48,7 +48,6 @@ iniScoperState :: InfoTable -> ScoperState
 iniScoperState tab =
   ScoperState
     { _scoperModules = mempty,
-      _scoperScopedNameSignatures = tab ^. infoNameSigs,
       _scoperNameSignatures = tab ^. infoParsedNameSigs,
       _scoperRecordFields = tab ^. infoRecords,
       _scoperAlias = tab ^. infoScoperAlias,
@@ -252,7 +251,6 @@ registerNameSignature ::
   Sem r ()
 registerNameSignature uid d = do
   sig <- mkNameSignature d
-  modify (set (scoperScopedNameSignatures . at uid) (Just sig))
   registerNameSig uid sig
 
 registerConstructorSignature ::