fix signature of text_of_raw

Author: pw374

glical_kernel.ml

@@ -5,8 +5,6 @@
 (* Licence: ISC                                                          *)
 (* ********************************************************************* *)
 
-(** Important note: this library needs OCaml >= 4.1.0 *)
-
 type location = int * int
 and name = string
 and key = string
@@ -40,7 +38,7 @@ let syntax_error s ln cn = raise (Syntax_error (sprintf "(%d:%d): %s." ln cn s))
 let syntax_assert b s ln cn  = if not b then syntax_error s ln cn
 
 (** http://tools.ietf.org/html/rfc5545#section-3.3.11 (TEXT) *)
-let text_of_raw (label:string) = function
+let text_of_raw = function
   | `Raw((ln, cn) as location, s) ->
     let sl = String.length s in
     let open Buffer in
@@ -77,8 +75,8 @@ let text_of_raw (label:string) = function
            feeds read by this program do comply with RFC 5545. *)
         | c -> add_char b c; loop accu (i+1)
     in
-    label, `Text(location, List.rev (loop [] 0))
-  | x -> label, x
+    `Text(location, List.rev (loop [] 0))
+  | x -> x
 
 let lex_ical s =
   let name = Buffer.create 42

glical_kernel.mli

@@ -94,6 +94,7 @@ val iter :
   (([> `Raw of location * string ] as 'a) Ical.element -> unit) ->
   'a Ical.t -> unit
 
+(**  *)
 val sort : (([> `Raw of location * string ] as 'a) Ical.element -> 'a Ical.element -> int) ->
   'a Ical.t -> 'a Ical.t
 
@@ -130,18 +131,17 @@ val is_nonempty_block : 'a Ical.element -> bool
 
 (* Value formats *)
 (* ******************************************************************** *)
-(** [text_of_raw label value] converts [`Raw(loc, s)] to [`Text(loc,sl)]
+(** [text_of_raw] converts [`Raw(loc, s)] to [`Text(loc,sl)]
     where [sl] is the list of text values in [s]. Note that it is a list
     because in iCalendar a label can be associated with multiple values.
-    Note that [loc] isn't changed, and [sl] is a [string list].
+    Note that [loc] isn't changed.
     This conversion interpretes backslash-escaped characters and
     commas, the latter are used for separating multiple values.
     (http://tools.ietf.org/html/rfc5545#section-3.3.11) *)
 val text_of_raw :
-  string ->
   ([> `Raw of location * string
    | `Text of location * string list ] as 'a)
-  -> string * 'a
+  -> 'a
 
 
 (** A module to represent date-time values. Since there are way