From 9b3b6b70c04d1d6887cb31b84fc40f065c70a196 Mon Sep 17 00:00:00 2001 From: Rick Winfrey Date: Wed, 12 Dec 2018 16:19:33 -0800 Subject: [PATCH] Use correct field name --- src/Data/Abstract/ScopeGraph.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Data/Abstract/ScopeGraph.hs b/src/Data/Abstract/ScopeGraph.hs index fae04625f..8a090f950 100644 --- a/src/Data/Abstract/ScopeGraph.hs +++ b/src/Data/Abstract/ScopeGraph.hs @@ -180,7 +180,7 @@ insertReference ref path scope = scope { references = Map.insert ref path (refer lookupDeclaration :: Ord scopeAddress => Name -> scopeAddress -> ScopeGraph scopeAddress -> Maybe (Data scopeAddress, Position) lookupDeclaration name scope g = do dataSeq <- ddataOfScope scope g - index <- Seq.findIndexR (\Data{..} -> Declaration name == declaration) dataSeq + index <- Seq.findIndexR (\Data{..} -> Declaration name == dataDeclaration) dataSeq (, Position index) <$> Seq.lookup index dataSeq declarationNames :: Ord address => [EdgeLabel] -> Scope address -> ScopeGraph address -> Set Declaration