From 1e35fc7ecba5a2cfe25ec62668eb07763876d5d3 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 3 Apr 2013 00:14:48 +0200
Subject: [PATCH] doc for infix functions of Gen

---
 gen.mli | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gen.mli b/gen.mli
index 96802792..a2dfaf33 100644
--- a/gen.mli
+++ b/gen.mli
@@ -323,12 +323,16 @@ val pp : ?start:string -> ?stop:string -> ?sep:string -> ?horizontal:bool ->
 
 module Infix : sig
   val (@@) : 'a t -> 'a t -> 'a t
+    (** Synonym for {! append} *)
 
   val (>>=) : 'a t -> ('a -> 'b t) -> 'b t
+    (** Synonym for {! flatMap}, with arguments reversed *)
   
   val (--) : int -> int -> int t
+    (** Synonym for {! int_range} *)
   
   val (|>) : 'a -> ('a -> 'b) -> 'b
+    (** Function application, reversed *)
 end
 
 val (@@) : 'a t -> 'a t -> 'a t