From bd1db7737a06d84e2eb82793212f997ad5ba12f1 Mon Sep 17 00:00:00 2001
From: Alex <dharmaturtle@gmail.com>
Date: Sun, 7 Feb 2021 17:20:22 -0600
Subject: [PATCH] Deleted ListGen

---
 src/Hedgehog.Xunit/InternalLogic.fs | 14 --------------
 1 file changed, 14 deletions(-)

diff --git a/src/Hedgehog.Xunit/InternalLogic.fs b/src/Hedgehog.Xunit/InternalLogic.fs
index 317d95e..a8a8990 100644
--- 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