package metapp

  1. Overview
  2. Docs
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file metapp_version_info.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
let () = Findlib.init ()

let ppxlib_version_string = Findlib.package_property [] "ppxlib" "version"

let ppxlib_version =
  match String.split_on_char '.' ppxlib_version_string with
  | [major; minor; patch] ->
      (int_of_string major, int_of_string minor, int_of_string patch)
  | _ -> assert false

let ast_version =
  match ppxlib_version with
  | (0, (22 | 23 | 24 | 25), _) -> (4, 12)
  | _ -> (4, 14)
OCaml

Innovation. Community. Security.