optimized and simplified GenLazy.bind

hedgehogqa · Sep 10, 2021 · 78fbbbc · 78fbbbc
1 parent 68dd1bf
commit 78fbbbc
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 12 deletions.
diff --git a/src/Hedgehog/GenLazy.fs b/src/Hedgehog/GenLazy.fs
@@ -10,4 +10,6 @@ let constant a = a |> Lazy.constant |> Gen.constant
 
 let map f = f |> Lazy.map |> Gen.map
 
-let bind f gla = gla |> map f |> Gen.map LazyGen.sequence |> Gen.join |> Gen.map Lazy.join
+let join glgla = glgla |> Gen.bind Lazy.value
+
+let bind f gla = gla |> map f |> join
diff --git a/src/Hedgehog/Hedgehog.fsproj b/src/Hedgehog/Hedgehog.fsproj
@@ -42,7 +42,6 @@ https://github.com/hedgehogqa/fsharp-hedgehog/blob/master/doc/index.md
     <Compile Include="ListGen.fs" />
     <Compile Include="Journal.fs" />
     <Compile Include="Tuple.fs" />
-    <Compile Include="LazyGen.fs" />
     <Compile Include="GenLazy.fs" />
     <Compile Include="GenLazyTuple.fs" />
     <Compile Include="Outcome.fs" />

diff --git a/src/Hedgehog/LazyGen.fs b/src/Hedgehog/LazyGen.fs