diff options
| author | ยท๐๐ด๐๐๐ฉ๐ค | 2025-12-10 21:34:28 +0000 |
|---|---|---|
| committer | ยท๐๐ด๐๐๐ฉ๐ค | 2025-12-10 21:34:28 +0000 |
| commit | 47b747fd39e13edc6c6bae741fadaddec14a3e79 (patch) | |
| tree | e7716f5e046f837245823a828f1b0923d35aabe4 /lib | |
| parent | 62248406c512018dcdaa230c28ade5866577a9fc (diff) | |
| download | nixtaml-47b747fd39e13edc6c6bae741fadaddec14a3e79.tar nixtaml-47b747fd39e13edc6c6bae741fadaddec14a3e79.tar.gz nixtaml-47b747fd39e13edc6c6bae741fadaddec14a3e79.tar.bz2 nixtaml-47b747fd39e13edc6c6bae741fadaddec14a3e79.tar.lz nixtaml-47b747fd39e13edc6c6bae741fadaddec14a3e79.tar.xz nixtaml-47b747fd39e13edc6c6bae741fadaddec14a3e79.tar.zst nixtaml-47b747fd39e13edc6c6bae741fadaddec14a3e79.zip | |
Git fix reference
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/manifest.ml | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/manifest.ml b/lib/manifest.ml index a61f921..179a753 100644 --- a/lib/manifest.ml +++ b/lib/manifest.ml @@ -117,19 +117,19 @@ module Git = struct type t = Input.Git.Reference.t [@@deriving show, eq, qcheck] - let codec : t Util.KDL.node_codec = { - to_node = (fun ref -> + let codec : t Util.KDL.codec = { + to_kdl = (fun ref -> let open Kdl in match ref with - | `Branch b -> Kdl.node "branch" ~args: [arg (`String b)] [] - | `Ref r -> Kdl.node "ref" ~args: [arg (`String r)] [] + | `Branch b -> [Kdl.node "branch" ~args: [arg (`String b)] []] + | `Ref r -> [Kdl.node "ref" ~args: [arg (`String r)] []] ); - of_node = (fun kdl -> + of_kdl = (fun kdl -> let open Util.KDL.L in let open Util.KDL.Valid in let node_names = ["branch"; "ref"] - and branch = ll @@ kdl.@(child "branch" // arg 0 // string_value) - and ref = ll @@ kdl.@(child "ref" // arg 0 // string_value) + and branch = ll @@ kdl.@(node "branch" // arg 0 // string_value) + and ref = ll @@ kdl.@(node "ref" // arg 0 // string_value) in match branch, ref with | Ok b, Error _ -> Ok (`Branch b) @@ -199,7 +199,7 @@ module Git = struct | Error (`Not_found ("lfs", _)) -> Ok false | Error err -> Error err and+ reference = - Reference.codec.of_node git + Reference.codec.of_kdl git.children in {repository; mirrors; reference; submodules; lfs} ); |