From 1baf4c80ea968bc211a9419793396c6dc08b445d Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Mon, 31 Aug 2015 15:49:00 +0200
Subject: [PATCH] update .mli only

---
 src/data/CCDeque.ml  |  2 +-
 src/data/CCDeque.mli | 29 ++++++++++++++++-------------
 2 files changed, 17 insertions(+), 14 deletions(-)

diff --git a/src/data/CCDeque.ml b/src/data/CCDeque.ml
index 47e46b43..33692272 100644
--- a/src/data/CCDeque.ml
+++ b/src/data/CCDeque.ml
@@ -146,4 +146,4 @@ let print pp_x out d =
       pp_x out x
     ) d;
   Format.fprintf out "}@]"
-    
+
diff --git a/src/data/CCDeque.mli b/src/data/CCDeque.mli
index eaed962d..1f41f2cf 100644
--- a/src/data/CCDeque.mli
+++ b/src/data/CCDeque.mli
@@ -26,48 +26,51 @@ OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 (** {1 Imperative deque} *)
 
 type 'a t
-  (** Contains 'a elements, queue in both ways *)
+(** Contains 'a elements, queue in both ways *)
 
 exception Empty
 
 val create : unit -> 'a t
-  (** New deque *)
+(** New deque *)
 
 val is_empty : 'a t -> bool
-  (** Is the deque empty? *)
+(** Is the deque empty? *)
 
 val length : 'a t -> int
-  (** Number of elements (linear) *)
+(** Number of elements (linear) *)
 
 val push_front : 'a t -> 'a -> unit
-  (** Push value at the front *)
+(** Push value at the front *)
 
 val push_back : 'a t -> 'a -> unit
-  (** Push value at the back *)
+(** Push value at the back *)
 
 val peek_front : 'a t -> 'a
-  (** First value, or Empty *)
+(** First value, or Empty *)
 
 val peek_back : 'a t -> 'a
-  (** Last value, or Empty *)
+(** Last value, or Empty *)
 
 val take_back : 'a t -> 'a
-  (** Take last value, or raise Empty *)
+(** Take last value, or raise Empty *)
 
 val take_front : 'a t -> 'a
-  (** Take first value, or raise Empty *)
+(** Take first value, or raise Empty *)
 
 val iter : ('a -> unit) -> 'a t -> unit
-  (** Iterate on elements *)
+(** Iterate on elements *)
 
 type 'a sequence = ('a -> unit) -> unit
+
 val of_seq : ?deque:'a t -> 'a sequence -> 'a t
+
 val to_seq : 'a t -> 'a sequence
 
 val copy : 'a t -> 'a t
-  (** Fresh copy *)
+(** Fresh copy *)
 
 type 'a printer = Format.formatter -> 'a -> unit
 
 val print : 'a printer -> 'a t printer
-  (** @since NEXT_RELEASE *)
+(** Print the elements
+    @since NEXT_RELEASE *)