Add missing internal conversions to bigint (#221)

hedgehogqa · Oct 3, 2020 · b1906bb · b1906bb
1 parent dd2193e
commit b1906bb
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Hedgehog/Numeric.fs b/src/Hedgehog/Numeric.fs
@@ -261,9 +261,15 @@ type ToBigInt =
     static member ToBigInt (x : uint64) =
         bigint x
 
+    static member ToBigInt (x : single) =
+        bigint x
+
     static member ToBigInt (x : double) =
         bigint x
 
+    static member ToBigInt (x : decimal) =
+        bigint x
+
     static member inline Invoke (x :'Integral) : bigint =
         let inline call_2 (a : ^a, b : ^b) =
             ((^a or ^b) : (static member ToBigInt : _ -> _) b)