Sha256: 20f2a8f542ea763f4b8c373bc4264ef719012a258aa67519a696eaa3d937509a

Contents?: true

Size: 617 Bytes

Versions: 219

Compression:

Stored size: 617 Bytes

Contents

open Core

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

219 entries across 219 versions & 1 rubygems

Version Path
trackler-2.2.1.139 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.138 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.137 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.136 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.135 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.134 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.133 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.132 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.131 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.130 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.129 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.128 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.127 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.126 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.125 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.124 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.123 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.122 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.121 tracks/ocaml/tools/test-generator/src/files.ml
trackler-2.2.1.120 tracks/ocaml/tools/test-generator/src/files.ml