diff --git a/test/Test/Hspec/LeanCheck.hs b/test/Test/Hspec/LeanCheck.hs
index ba4c4d720..5895f5c42 100644
--- a/test/Test/Hspec/LeanCheck.hs
+++ b/test/Test/Hspec/LeanCheck.hs
@@ -42,7 +42,7 @@ instance Example Property where
   evaluateExample (Property prop) (Params _ bound) _ _ = do
     result <- iocounterExample bound prop
     case result of
-      Just messages -> pure $ Fail Nothing (concat messages)
+      Just messages -> pure $ Failure Nothing (Reason (concat messages))
       Nothing -> pure Success
 
 class IOTestable t where