Deleted ListGen

hedgehogqa · Feb 7, 2021 · bd1db77 · bd1db77
1 parent eccad94
commit bd1db77
Showing 1 changed file with 0 additions and 14 deletions.
diff --git a/src/Hedgehog.Xunit/InternalLogic.fs b/src/Hedgehog.Xunit/InternalLogic.fs
@@ -2,20 +2,6 @@ module internal InternalLogic
 
 open Hedgehog
 
-module ListGen = // https://github.com/hedgehogqa/fsharp-hedgehog/pull/260
-  let traverse (f: 'a -> Gen<'b>) (ma: list<'a>) : Gen<list<'b>> =
-    let rec loop input output =
-      match input with
-      | [] -> output |> List.rev |> Gen.constant
-      | a :: input ->
-        gen {
-          let! b = f a
-          return! loop input (b :: output)
-        }
-    loop ma []
-
-  let sequence ma = traverse id ma 
-
 module Option =
   let requireSome msg =
     function