This commit is contained in:
parent
c5031280d5
commit
071e4d0d48
1 changed files with 1 additions and 0 deletions
|
|
@ -77,6 +77,7 @@ let f records =
|
||||||
List.filter (fun v -> v.number >= 1000_l)
|
List.filter (fun v -> v.number >= 1000_l)
|
||||||
|
|
||||||
let read_file file = In_channel.with_open_bin file In_channel.input_all
|
let read_file file = In_channel.with_open_bin file In_channel.input_all
|
||||||
|
let file_header = {|...|}
|
||||||
|
|
||||||
let () =
|
let () =
|
||||||
let content = read_file "registry.rec" in
|
let content = read_file "registry.rec" in
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue