mirror of
https://github.com/anoma/juvix.git
synced 2025-01-06 06:53:33 +03:00
Remove unused field from ScoperState
(#3073)
This commit is contained in:
parent
deca981fa3
commit
eaec932df1
@ -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,
|
||||
|
@ -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 ::
|
||||
|
Loading…
Reference in New Issue
Block a user