added newlines and extracted try-with into function

hedgehogqa · Sep 10, 2021 · 184b321 · 184b321
1 parent 5c49a9e
commit 184b321
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/Hedgehog/Property.fs b/src/Hedgehog/Property.fs
@@ -86,7 +86,15 @@ module Property =
         (Journal.singletonMessage (string e), Failure) |> Gen.constant
 
     let bind (k : 'a -> Property<'b>) (m : Property<'a>) : Property<'b> =
-        m |> toGen |> bindGen (fun a -> (try k a |> toGen with e -> handle e)) |> ofGen
+        let kTry a =
+            try
+                k a |> toGen
+            with e ->
+                handle e
+        m
+        |> toGen
+        |> bindGen kTry
+        |> ofGen
 
     let private printValue (value) : string =
         // sprintf "%A" is not prepared for printing ResizeArray<_> (C# List<T>) so we prepare the value instead