Discard on failed pattern matches within a Generator

hedgehogqa · Mar 20, 2019 · abd765b · abd765b
1 parent 961479e
commit abd765b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/hedgehog/src/Hedgehog/Internal/Gen.hs b/hedgehog/src/Hedgehog/Internal/Gen.hs
@@ -559,8 +559,8 @@ instance Monad m => Monad (GenT m) where
     Fail.fail
 
 instance Monad m => MonadFail (GenT m) where
-  fail =
-    error
+  fail _ =
+    discard
 
 instance Monad m => Alternative (GenT m) where
   empty =