27 lines
630 B
OCaml
27 lines
630 B
OCaml
(* Generated by: ocaml-crunch
|
|
Creation date: Thu, 1 Jan 1970 00:00:00 GMT *)
|
|
|
|
module Internal = struct
|
|
let d_d3b07384d113edec49eaa6238ad5ff00 = "foo\n"
|
|
|
|
let file_chunks = function
|
|
| "a.ext" | "/a.ext" -> Some [ d_d3b07384d113edec49eaa6238ad5ff00; ]
|
|
| _ -> None
|
|
|
|
let file_list = [ "a.ext"; ]
|
|
end
|
|
|
|
let file_list = Internal.file_list
|
|
|
|
let read name =
|
|
match Internal.file_chunks name with
|
|
| None -> None
|
|
| Some c -> Some (String.concat "" c)
|
|
|
|
let hash = function
|
|
| "a.ext" | "/a.ext" -> Some "d3b07384d113edec49eaa6238ad5ff00"
|
|
| _ -> None
|
|
|
|
let size = function
|
|
| "a.ext" | "/a.ext" -> Some 4
|
|
| _ -> None
|