diff --git a/test/Control/Abstract/Evaluator/Spec.hs b/test/Control/Abstract/Evaluator/Spec.hs
index afcb2bc1e..28100f6b1 100644
--- a/test/Control/Abstract/Evaluator/Spec.hs
+++ b/test/Control/Abstract/Evaluator/Spec.hs
@@ -20,13 +20,13 @@ spec :: Spec
 spec = parallel $ do
   it "constructs integers" $ do
     (expected, _) <- evaluate (pure (integer 123))
-    expected `shouldBe` Right (Value.Integer (Number.Integer 123))
+    fst <$> 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 [pure (integer 123)]
-    expected `shouldBe` Right (Value.Integer (Number.Integer 123))
+    fst <$> expected `shouldBe` Right (Value.Integer (Number.Integer 123))
 
 evaluate
   = runM