makes createTree tests pass again while also simplifying

hedgehogqa · Feb 11, 2021 · 3ff1fba · 3ff1fba
1 parent dfe8671
commit 3ff1fba
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/src/Hedgehog/Shrink.fs b/src/Hedgehog/Shrink.fs
@@ -100,11 +100,9 @@ module Shrink =
 
 
     let inline createTree (destination : ^a) (x : ^a) =
-        let one = LanguagePrimitives.GenericOne
         let rec binarySearchTree ((destination : ^a), (x : ^a)) =
             let xs =
-                towards (destination + one) x
-                |> Seq.cons destination
+                towards destination x
                 |> Seq.pairwise
                 |> Seq.map binarySearchTree
             Node (x, xs)