github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-26 00:12:29 +03:00
Code Issues Projects Releases Wiki Activity

return a list of values from lookupDeclaration

Browse Source 
Co-Authored-By: Rick Winfrey <rick.winfrey@gmail.com>
This commit is contained in:
joshvera 2018-11-08 12:56:08 -05:00
parent 22bdbdfafe
commit 20cf855423
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/SpecHelpers.hs
View File

@ -72,6 +72,7 @@ import Test.LeanCheck as X
import qualified Data.ByteString as B import qualified Data.ByteString as B
import qualified Data.Set as Set import qualified Data.Set as Set
import Data.Set (Set)
import qualified Semantic.IO as IO import qualified Semantic.IO as IO
import Semantic.Config (Config) import Semantic.Config (Config)
import Semantic.Telemetry (LogQueue, StatQueue) import Semantic.Telemetry (LogQueue, StatQueue)
@ -168,12 +169,11 @@ type Val term = Value term Precise
-- namespaceScope _ _ = Nothing -- namespaceScope _ _ = Nothing
lookupDeclaration :: Name -> Heap Precise Precise (Value term Precise) -> ScopeGraph Precise -> Maybe (Value term Precise) lookupDeclaration :: Name -> Heap Precise Precise (Value term Precise) -> ScopeGraph Precise -> Maybe [ Value term Precise ]
lookupDeclaration name heap scopeGraph = do lookupDeclaration name heap scopeGraph = do
path <- ScopeGraph.lookupScopePath name scopeGraph path <- ScopeGraph.lookupScopePath name scopeGraph
frameAddress <- Heap.lookupFrameAddress path heap frameAddress <- Heap.lookupFrameAddress path heap
set <- Heap.getSlot (Address frameAddress (Heap.pathPosition path)) heap toList <$> Heap.getSlot (Address frameAddress (Heap.pathPosition path)) heap
fst <$> Set.minView set
newtype Verbatim = Verbatim ByteString newtype Verbatim = Verbatim ByteString
deriving (Eq) deriving (Eq)