package hack_parallel

  1. Overview
  2. Docs

Source file realDisk.ml

1
2
3
4
5
6
7
8
let cat filename =
  let ic = open_in_bin filename in
  let len = in_channel_length ic in
  let buf = Buffer.create len in
  Buffer.add_channel buf ic len;
  let content = Buffer.contents buf in
  close_in ic;
  content