From 6c0378e16f8eb551de42100fcee1372bb73664cd Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Fri, 11 Sep 2015 09:29:31 +0200
Subject: [PATCH] update deprecation comments

---
 src/core/CCFloat.mli     | 2 +-
 src/core/CCList.mli      | 4 ++--
 src/sexp/CCSexpStream.ml | 5 +----
 3 files changed, 4 insertions(+), 7 deletions(-)

diff --git a/src/core/CCFloat.mli b/src/core/CCFloat.mli
index d682c195..7485206d 100644
--- a/src/core/CCFloat.mli
+++ b/src/core/CCFloat.mli
@@ -79,7 +79,7 @@ val random_range : t -> t -> t random_gen
 val sign : t -> int
 (** [sign t] is one of [-1, 0, 1], depending on how the float
     compares to [0.]
-    @deprecated use {! fsign} or {!sign_exn} since it's more accurate *)
+    @deprecated since 0.7 use {! fsign} or {!sign_exn} since it's more accurate *)
 
 val fsign : t -> float
 (** [fsign x] is one of [-1., -0., +0., +1.], or [nan] if [x] is NaN.
diff --git a/src/core/CCList.mli b/src/core/CCList.mli
index 7f658f28..90fb92ac 100644
--- a/src/core/CCList.mli
+++ b/src/core/CCList.mli
@@ -143,14 +143,14 @@ val find_map : ('a -> 'b option) -> 'a t -> 'b option
     @since 0.11 *)
 
 val find : ('a -> 'b option) -> 'a list -> 'b option
-(** @deprecated in favor of {!find_map}, for the name is too confusing *)
+(** @deprecated since 0.11 in favor of {!find_map}, for the name is too confusing *)
 
 val find_mapi : (int -> 'a -> 'b option) -> 'a t -> 'b option
 (** Like {!find_map}, but also pass the index to the predicate function.
     @since 0.11 *)
 
 val findi : (int -> 'a -> 'b option) -> 'a t -> 'b option
-(** @deprecated in favor of {!find_mapi}, name is too confusing
+(** @deprecated since 0.11 in favor of {!find_mapi}, name is too confusing
     @since 0.3.4 *)
 
 val find_idx : ('a -> bool) -> 'a t -> (int * 'a) option
diff --git a/src/sexp/CCSexpStream.ml b/src/sexp/CCSexpStream.ml
index ff7f76d0..8a56159f 100644
--- a/src/sexp/CCSexpStream.ml
+++ b/src/sexp/CCSexpStream.ml
@@ -23,10 +23,7 @@ OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
 OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 *)
 
-(** {1 S-expressions Parser}
-
-@since 0.4
-@deprecated consider using {!CCSexpM} *)
+(** {1 S-expressions Parser} *)
 
 type 'a or_error = [ `Ok of 'a | `Error of string ]
 type 'a sequence = ('a -> unit) -> unit