inlined Seq module functions

hedgehogqa · Feb 7, 2021 · e42a648 · e42a648
1 parent 85b2671
commit e42a648
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Hedgehog/Seq.fs b/src/Hedgehog/Seq.fs
@@ -1,13 +1,13 @@
 [<RequireQualifiedAccess>]
 module internal Seq
 
-let cons (x : 'a) (xs : seq<'a>) : seq<'a> =
+let inline cons (x : 'a) (xs : seq<'a>) : seq<'a> =
     seq {
         yield x
         yield! xs
     }
 
-let consNub (x : 'a) (ys0 : seq<'a>) : seq<'a> =
+let inline consNub (x : 'a) (ys0 : seq<'a>) : seq<'a> =
     match Seq.tryHead ys0 with
     | None -> Seq.singleton x
     | Some y ->