github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +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.Set as Set
import Data.Set (Set)
import qualified Semantic.IO as IO
import Semantic.Config (Config)
import Semantic.Telemetry (LogQueue, StatQueue)
@ -168,12 +169,11 @@ type Val term = Value term Precise
-- 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
path <- ScopeGraph.lookupScopePath name scopeGraph
frameAddress <- Heap.lookupFrameAddress path heap
set <- Heap.getSlot (Address frameAddress (Heap.pathPosition path)) heap
fst <$> Set.minView set
toList <$> Heap.getSlot (Address frameAddress (Heap.pathPosition path)) heap
newtype Verbatim = Verbatim ByteString
deriving (Eq)