diff options
Diffstat (limited to 'lib/nixtamal.ml')
| -rw-r--r-- | lib/nixtamal.ml | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lib/nixtamal.ml b/lib/nixtamal.ml index ff10884..5a27232 100644 --- a/lib/nixtamal.ml +++ b/lib/nixtamal.ml @@ -20,10 +20,11 @@ let meld_input_with_lock (input : Input.t) (lock : Lockfile.Input'.t) : Input.t `File file | `Archive archive, `Archive _ -> `Archive archive - | `Git git, `Git({latest_revision; _}: Lockfile.Git.t) -> - `Git {git with latest_revision} - | `Darcs darcs, `Darcs({reference; latest_weak_hash; _}: Lockfile.Darcs.t) -> + | `Git git, `Git({datetime; latest_revision; _}: Lockfile.Git.t) -> + `Git {git with datetime; latest_revision} + | `Darcs darcs, `Darcs({datetime; reference; latest_weak_hash; _}: Lockfile.Darcs.t) -> `Darcs {darcs with + datetime; latest_weak_hash; reference = ( match darcs.reference, reference with @@ -31,8 +32,8 @@ let meld_input_with_lock (input : Input.t) (lock : Lockfile.Input'.t) : Input.t | _ -> darcs.reference ); } - | `Pijul pijul, `Pijul({latest_state; _}: Lockfile.Pijul.t) -> - `Pijul {pijul with latest_state} + | `Pijul pijul, `Pijul({datetime; latest_state; _}: Lockfile.Pijul.t) -> + `Pijul {pijul with datetime; latest_state} | _, _ -> failwith "Input kind mismatch." ); hash = {input.hash with value = lock.hash.value}; |