From fe406edaea77cc4297b5721ff2b40d9d33d29644 Mon Sep 17 00:00:00 2001
From: Estevan Castilho <tevo@riajuu.net>
Date: Thu, 21 May 2026 01:38:51 +0000
Subject: Have `Qualified_name.try_parse` return a `Condition.t`

---
 lib/dml/executor.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/dml/executor.ml')

diff --git a/lib/dml/executor.ml b/lib/dml/executor.ml
index 7e655e6..f149965 100644
--- a/lib/dml/executor.ml
+++ b/lib/dml/executor.ml
@@ -13,7 +13,7 @@ module Make (NT : Nt.S) = struct
   let ( let* ) = Result.bind
 
   let parse_fqn (s : string) : (Qualified_name.t, Condition.t) result =
-    Qualified_name.try_parse s |> Result.map_error (fun s -> Error.unqualified_name s)
+    Qualified_name.try_parse s
 
   let lookup_mg (ctx : Sublanguage_context.t) (mg_name : string) :
       (Management.Multigroup.multigroup, Condition.t) result =
-- 
cgit v1.2.3