From f777610108fc2baa20771a787acc1fafb552d4c3 Mon Sep 17 00:00:00 2001 From: Rick Winfrey Date: Mon, 11 Mar 2019 12:33:57 -0700 Subject: [PATCH] Update tests --- test/Control/Abstract/Evaluator/Spec.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/Control/Abstract/Evaluator/Spec.hs b/test/Control/Abstract/Evaluator/Spec.hs index a3094b302..054d5eec3 100644 --- a/test/Control/Abstract/Evaluator/Spec.hs +++ b/test/Control/Abstract/Evaluator/Spec.hs @@ -35,9 +35,9 @@ spec = parallel $ do let lexicalEdges = Map.singleton Lexical [ currentScope' ] x = SpecHelpers.name "x" associatedScope <- newScope lexicalEdges - declare (ScopeGraph.Declaration "identity") Default Public emptySpan ScopeGraph.Function (Just associatedScope) + declare (ScopeGraph.Declaration "identity") Default Public emptySpan ScopeGraph.FunctionKind (Just associatedScope) withScope associatedScope $ do - declare (Declaration x) Default Public emptySpan ScopeGraph.RequiredParameter Nothing + declare (Declaration x) Default Public emptySpan ScopeGraph.RequiredParameterKind Nothing identity <- function "identity" [ x ] (SpecEff (Heap.lookupSlot (ScopeGraph.Declaration (SpecHelpers.name "x")) >>= deref)) associatedScope val <- integer 123