From 3ccb3e16f72f0aed2603996b081ffccb4c53202d Mon Sep 17 00:00:00 2001
From: Nino Annighoefer <nino@ninoan.com>
Date: Sat, 26 Nov 2022 09:53:17 +0000
Subject: [PATCH 1/2] Fix typos

---
 src/core/CCSeq.mli | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/core/CCSeq.mli b/src/core/CCSeq.mli
index 210a60e6..2552bb8b 100644
--- a/src/core/CCSeq.mli
+++ b/src/core/CCSeq.mli
@@ -39,14 +39,14 @@ val repeat : ?n:int -> 'a -> 'a t
     then [x] is repeated forever. *)
 
 val forever : (unit -> 'a) -> 'a t
-(** [forever f] corresponds to the infinit sequence containing all the [f ()].
+(** [forever f] corresponds to the infinite sequence containing all the [f ()].
     @since 3.10 *)
 
 val cycle : 'a t -> 'a t
 (** Cycle through the iterator infinitely. The iterator shouldn't be empty. *)
 
 val iterate : ('a -> 'a) -> 'a -> 'a t
-(** [iterate f a] corresponds to the infinit sequence containing [a], [f a], [f (f a)],
+(** [iterate f a] corresponds to the infinite sequence containing [a], [f a], [f (f a)],
     ...]
     @since 3.10 *)
 

From 46e53ec85f706481c1225b93e64f16a428c94eae Mon Sep 17 00:00:00 2001
From: Nino Annighoefer <nino@ninoan.com>
Date: Sat, 26 Nov 2022 10:19:10 +0000
Subject: [PATCH 2/2] Fix more typos

---
 src/core/CCSeq.mli | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/core/CCSeq.mli b/src/core/CCSeq.mli
index 2552bb8b..b08b5e4a 100644
--- a/src/core/CCSeq.mli
+++ b/src/core/CCSeq.mli
@@ -173,7 +173,7 @@ val scan : ('a -> 'b -> 'a) -> 'a -> 'b t -> 'a t
 
 val flat_map : ('a -> 'b t) -> 'a t -> 'b t
 val concat_map : ('a -> 'b t) -> 'a t -> 'b t
-(** Aliass of {!flat_map}
+(** Alias of {!flat_map}
     @since 3.10 *)
 
 val filter_map : ('a -> 'b option) -> 'a t -> 'b t
@@ -195,7 +195,7 @@ val ( --^ ) : int -> int -> int t
 (** {2 Operations on two Collections} *)
 
 val fold2 : ('acc -> 'a -> 'b -> 'acc) -> 'acc -> 'a t -> 'b t -> 'acc
-(** Fold on two collections at once. Stop at soon as one of them ends. *)
+(** Fold on two collections at once. Stop as soon as one of them ends. *)
 
 val fold_left2 : ('acc -> 'a -> 'b -> 'acc) -> 'acc -> 'a t -> 'b t -> 'acc
 (** Alias for {!fold2}.