simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 03:05:28 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added CCIO.remove_safe.

Browse source
This commit is contained in:
Vincent Bernardoff 2014-12-27 17:53:04 +01:00
parent bd84b620ec
commit 4f7ea8de64
2 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/io/CCIO.ml
View file

@ -209,6 +209,8 @@ module File = struct
let remove f = Sys.remove f let remove f = Sys.remove f
let remove_safe f = try Sys.remove f with _ -> ()
let read_dir_base d = let read_dir_base d =
if Sys.is_directory d if Sys.is_directory d
then then

1
src/io/CCIO.mli
View file

@ -147,6 +147,7 @@ module File : sig
val is_directory : t -> bool val is_directory : t -> bool
val remove : t -> unit val remove : t -> unit
val remove_safe : t -> unit
val read_dir : ?recurse:bool -> t -> t gen val read_dir : ?recurse:bool -> t -> t gen
(** [read_dir d] returns a sequence of files and directory contained (** [read_dir d] returns a sequence of files and directory contained