2016-09-08 21:13:10 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2017-11-14 03:36:14 +04:00
|
|
|
(* Copyright (c) 2014 - 2017. *)
|
2016-09-08 21:13:10 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
2017-02-24 20:17:53 +04:00
|
|
|
open Error_monad
|
2016-09-08 21:13:10 +04:00
|
|
|
|
2017-02-24 20:17:53 +04:00
|
|
|
val mkdir: string -> unit
|
|
|
|
|
|
|
|
val check_dir: string -> unit tzresult Lwt.t
|
|
|
|
val is_directory: string -> bool
|
2016-09-08 21:13:10 +04:00
|
|
|
|
|
|
|
val with_file_in: string -> (MBytes.t -> 'a Lwt.t) -> 'a Lwt.t
|
|
|
|
val with_file_out: string -> MBytes.t -> unit Lwt.t
|
2017-02-24 20:17:53 +04:00
|
|
|
|
|
|
|
val remove_file: ?cleanup:bool -> string -> unit Lwt.t
|
|
|
|
|
|
|
|
val fold: string -> init:'a -> f:(string -> 'a -> 'a Lwt.t) -> 'a Lwt.t
|
|
|
|
|