made Property.handle private

hedgehogqa · Mar 22, 2021 · 91e5034 · 91e5034
1 parent 94ea5a1
commit 91e5034
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Hedgehog/Property.fs b/src/Hedgehog/Property.fs
@@ -81,7 +81,7 @@ module Property =
     let bind (k : 'a -> Property<'b>) (m : Property<'a>) : Property<'b> =
         bindGen (toGen << k) (toGen m) |> ofGen
 
-    let handle (e : exn) =
+    let private handle (e : exn) =
         Gen.constant (Journal.singletonMessage (string e), Failure) |> ofGen
 
     let forAll (k : 'a -> Property<'b>) (gen : Gen<'a>) : Property<'b> =