1
1
mirror of https://github.com/github/semantic.git synced 2024-12-15 01:51:39 +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 Data.Abstract.Evaluatable as Evaluatable
import qualified Data.Abstract.ScopeGraph as ScopeGraph
import qualified Data.Abstract.Heap as Heap
import Data.JSON.Fields
import Diffing.Algorithm
import Language.TypeScript.Resolution
@ -102,7 +101,7 @@ instance Evaluatable QualifiedExport where
eval _ (QualifiedExport exportSymbols) = do
-- Create a Lexical edge from the qualifed export's scope to the current scope.
currentScopeAddress <- currentScope
let edges = maybe mempty (Map.singleton Lexical . pure) currentScopeAddress
let edges = Map.singleton Lexical [ currentScopeAddress ]
exportScope <- newScope edges
insertExportEdge exportScope -- Create an export edge from the current scope to the export scope
withScope exportScope $