1
1
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:
Rick Winfrey 2018-11-27 14:14:10 -08:00
parent 356790b075
commit 0490f621b3

View File

@ -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 $