1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
let upgrade ~filename ~url ~id ~version opam_t =
let commit_hash = OpamTypes.String ((filename, 0, 0), id) in
match version with
| `V1 descr ->
opam_t |> OpamFormatUpgrade.opam_file_from_1_2_to_2_0
|> OpamFile.OPAM.with_url url
|> OpamFile.OPAM.with_descr descr
|> OpamFile.OPAM.with_version_opt None
|> OpamFile.OPAM.with_name_opt None
|> fun x -> OpamFile.OPAM.add_extension x "x-commit-hash" commit_hash
| `V2 ->
opam_t |> OpamFile.OPAM.with_url url
|> OpamFile.OPAM.with_version_opt None
|> OpamFile.OPAM.with_name_opt None
|> fun x -> OpamFile.OPAM.add_extension x "x-commit-hash" commit_hash