File: gh1856.ml

package info (click to toggle)
js-of-ocaml 6.2.0-2
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 37,932 kB
  • sloc: ml: 135,957; javascript: 58,364; ansic: 437; makefile: 422; sh: 12; perl: 4
file content (7 lines) | stat: -rw-r--r-- 143 bytes parent folder | download
1
2
3
4
5
6
7
let () =
  let ch = open_in "/static/file.txt" in
  let b = Bytes.create 1024 in
  while input ch b 0 1024 > 0 do
    ()
  done;
  close_in ch