From cc02cfd8eb941886c2fbccdc26610393407d9ddd Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 28 May 2018 14:47:42 -0400 Subject: [PATCH] AbstractIntro is pure. --- 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 7c3838d72..f46e969c8 100644 --- a/test/Control/Abstract/Evaluator/Spec.hs +++ b/test/Control/Abstract/Evaluator/Spec.hs @@ -19,13 +19,13 @@ import SpecHelpers hiding (reassociate) spec :: Spec spec = parallel $ do it "constructs integers" $ do - (expected, _) <- evaluate (integer 123) + (expected, _) <- evaluate (pure (integer 123)) expected `shouldBe` Right (Value.Integer (Number.Integer 123)) it "calls functions" $ do (expected, _) <- evaluate $ do identity <- closure [name "x"] lowerBound (variable (name "x")) - call identity [integer 123] + call identity [pure (integer 123)] expected `shouldBe` Right (Value.Integer (Number.Integer 123)) evaluate