diff --git a/test/SpecHelpers.hs b/test/SpecHelpers.hs index bf76740dc..c0180ad03 100644 --- a/test/SpecHelpers.hs +++ b/test/SpecHelpers.hs @@ -166,7 +166,7 @@ members :: EdgeLabel -> ScopeGraph Precise -> Value term Precise -> Maybe [Name] -members edgeLabel heap scopeGraph (Object frame) = frameNames [ edgeLabel ] heap scopeGraph frame +members edgeLabel heap scopeGraph (Control.Abstract.Object frame) = frameNames [ edgeLabel ] heap scopeGraph frame members edgeLabel heap scopeGraph (Class _ _ frame) = frameNames [ edgeLabel ] heap scopeGraph frame members _ _ _ _ = Nothing