Sha256: 35ec6bc5887cc2dc61280fdd1728c80641b666c733d7dfb55062d7889fdf1598
Contents?: true
Size: 621 Bytes
Versions: 101
Compression:
Stored size: 621 Bytes
Contents
open Core.Std
let mkdir_if_not_present dir =
if Sys.file_exists dir = `No
then begin
Unix.mkdir dir;
print_endline @@ "Storing generated files in " ^ dir
end
else ()
let backup ~(base_folder: string) ~(slug: string) ~(contents: string): bool =
mkdir_if_not_present base_folder;
let path = Filename.concat base_folder slug in
let matches_contents =
Option.try_with (fun () -> In_channel.read_all path)
|> Option.map ~f:(String.equal contents)
|> Option.value ~default:false
in
if matches_contents
then false
else begin
Out_channel.write_all path contents;
true
end
Version data entries
101 entries across 101 versions & 1 rubygems