mirror of
https://github.com/c-cube/linol.git
synced 2025-12-10 05:04:00 -05:00
7fbc187548
git-subtree-dir: thirdparty/lsp git-subtree-split: aae6986391a8519de3da6a7a341f2bd3376e0d2f
11 lines
271 B
OCaml
11 lines
271 B
OCaml
module Metamodel = Lsp_gen.Metamodel
|
|
|
|
let file = Sys.argv.(1)
|
|
|
|
let () =
|
|
let read = open_in file in
|
|
let s = really_input_string read (in_channel_length read) in
|
|
let json = Yojson.Safe.from_string s in
|
|
let (_ : Metamodel.t) = Metamodel.t json in
|
|
close_in read
|
|
;;
|