From fe406edaea77cc4297b5721ff2b40d9d33d29644 Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Thu, 21 May 2026 01:38:51 +0000 Subject: Have `Qualified_name.try_parse` return a `Condition.t` --- lib/qualified_name.ml | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'lib/qualified_name.ml') diff --git a/lib/qualified_name.ml b/lib/qualified_name.ml index 47134c8..d69e866 100644 --- a/lib/qualified_name.ml +++ b/lib/qualified_name.ml @@ -13,6 +13,11 @@ type t = { mg : string; name : string } +module Error = struct + open Condition + let unqualified_name name = condition "unqualified-name" ("name" |=| (of_string name)) +end + exception Unqualified of string let parse (s : string) : t = @@ -24,8 +29,8 @@ let parse (s : string) : t = if mg = "" || name = "" then raise (Unqualified s) else { mg; name } -let try_parse (s : string) : (t, string) result = - try Ok (parse s) with Unqualified s -> Error s +let try_parse (s : string) : (t, Condition.t) result = + try Ok (parse s) with Unqualified s -> Error (Error.unqualified_name s) let make ~mg ~name = { mg; name } -- cgit v1.2.3