Module Crunch

type t
val make : unit -> t
val output_generated_by : out_channel -> string -> unit
val scan_file : t -> string -> string -> t
val output_implementation : t -> out_channel -> unit
val output_lwt_skeleton_ml : out_channel -> unit
val output_lwt_skeleton_mli : out_channel -> unit
val output_plain_skeleton_ml : t -> out_channel -> unit
val walk_directory_tree : t -> string list -> (t -> string -> string -> t) -> string -> t