diff --git a/src/Hedgehog/GenLazy.fs b/src/Hedgehog/GenLazy.fs index 046cc231..8376a99e 100644 --- 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 index 909ea1aa..4df9da46 100644 --- 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 - diff --git a/src/Hedgehog/LazyGen.fs b/src/Hedgehog/LazyGen.fs deleted file mode 100644 index 242d7bf2..00000000 --- a/src/Hedgehog/LazyGen.fs +++ /dev/null @@ -1,10 +0,0 @@ -// Workaround for a fable issue: https://github.com/fable-compiler/Fable/issues/2069 -#if FABLE_COMPILER -module Hedgehog.LazyGen -#else -[] -module internal Hedgehog.LazyGen -#endif - -let sequence (lga: Lazy>) : Gen> = - lga.Value |> Gen.map Lazy.constant // TODO: this types, but is probably not correct