mirror of
https://github.com/github/semantic.git
synced 2024-12-15 10:02:27 +03:00
No longer need maybe
This commit is contained in:
parent
356790b075
commit
0490f621b3
@ -11,7 +11,6 @@ import Proto3.Suite
|
|||||||
import Control.Abstract hiding (Import)
|
import Control.Abstract hiding (Import)
|
||||||
import Data.Abstract.Evaluatable as Evaluatable
|
import Data.Abstract.Evaluatable as Evaluatable
|
||||||
import qualified Data.Abstract.ScopeGraph as ScopeGraph
|
import qualified Data.Abstract.ScopeGraph as ScopeGraph
|
||||||
import qualified Data.Abstract.Heap as Heap
|
|
||||||
import Data.JSON.Fields
|
import Data.JSON.Fields
|
||||||
import Diffing.Algorithm
|
import Diffing.Algorithm
|
||||||
import Language.TypeScript.Resolution
|
import Language.TypeScript.Resolution
|
||||||
@ -102,7 +101,7 @@ instance Evaluatable QualifiedExport where
|
|||||||
eval _ (QualifiedExport exportSymbols) = do
|
eval _ (QualifiedExport exportSymbols) = do
|
||||||
-- Create a Lexical edge from the qualifed export's scope to the current scope.
|
-- Create a Lexical edge from the qualifed export's scope to the current scope.
|
||||||
currentScopeAddress <- currentScope
|
currentScopeAddress <- currentScope
|
||||||
let edges = maybe mempty (Map.singleton Lexical . pure) currentScopeAddress
|
let edges = Map.singleton Lexical [ currentScopeAddress ]
|
||||||
exportScope <- newScope edges
|
exportScope <- newScope edges
|
||||||
insertExportEdge exportScope -- Create an export edge from the current scope to the export scope
|
insertExportEdge exportScope -- Create an export edge from the current scope to the export scope
|
||||||
withScope exportScope $
|
withScope exportScope $
|
||||||
|
Loading…
Reference in New Issue
Block a user