File: which_result.ml

package info (click to toggle)
ocaml-result 1.5-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, sid
  • size: 108 kB
  • sloc: makefile: 23; ml: 20
file content (14 lines) | stat: -rw-r--r-- 316 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
let () =
  let version =
    Scanf.sscanf Sys.argv.(1) "%d.%d" (fun major minor -> (major, minor))
  in
  let file =
    if version < (4, 03) then
      "result-as-newtype.ml"
    else
      if version < (4, 08) then
        "result-as-alias.ml"
      else
        "result-as-alias-4.08.ml"
  in
  print_string file