From bbedaf8b0a8a64fd0e32521a23c1309523d14264 Mon Sep 17 00:00:00 2001 From: ·𐑑𐑴𐑕𐑑𐑩𐑀 Date: Thu, 11 Dec 2025 20:35:49 +0000 Subject: Do error, not fail in Darcs context --- lib/lockfile.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/lockfile.ml b/lib/lockfile.ml index cbafc27..e7a2621 100644 --- a/lib/lockfile.ml +++ b/lib/lockfile.ml @@ -161,7 +161,8 @@ module Darcs = struct | `Assumed (Some actx) -> encode_tag 0 string actx | `Stated sctx -> encode_tag 1 string sctx (* We can’t lock without a stable reference *) - | `Assumed None -> failwith "Missing assumed Darcs context"; + | `Assumed None -> + Error.msgf Meta.none "Darcs context cannot be None when locking" and dec = function | [|tag; value|] -> begin -- cgit v1.2.3