Have `Qualified_name.try_parse` return a `Condition.t`

1 files changed, 7 insertions, 2 deletions

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 }