Commits

camlspotter committed cce4ed2

some functions added

Comments (0)

Files changed (7)

    zlist
    file
    comopt
+   overload
    spot
 
 LIB = spotlib
 
 let imp_ init f = fst (imp init f)
  
+(* Printf *)
+let sprintf = Printf.sprintf
       then run the function [f] over this reference.
       It returns the final contents of the reference.
   *)
+
+val sprintf : ('a, unit, string) format -> 'a
 module File = File
 module Comopt = Comopt
 module Zlist = Zlist
+module Overload = Overload
 
 module List = struct
   include List
       | Some v -> Some v
       | None -> find_map_opt f xs
 
+(** mapMaybe of Haskell *)
 let rec filter_map f lst =
   List.rev (List.fold_left (fun st x ->
     match f x with
 
 val find_opt : ('a -> bool) -> 'a list -> 'a option
 val find_map_opt : ('a -> 'b option) -> 'a list -> 'b option
+
 val filter_map : ('a -> 'b option) -> 'a list -> 'b list
 
 val take : int -> 'a list -> 'a list
       string. Otherwise it raises Invalid_argument.
   *)
 
-