diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-05-21 01:38:51 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-05-21 01:38:51 +0000 |
| commit | fe406edaea77cc4297b5721ff2b40d9d33d29644 (patch) | |
| tree | 238e986e92998e22ca49005ac523e06a7a21f1ff /lib/dml | |
| parent | a0b04a0f6d14d1b89d97d184e516aaa7e3099084 (diff) | |
| download | Sakura-fe406edaea77cc4297b5721ff2b40d9d33d29644.tar.gz Sakura-fe406edaea77cc4297b5721ff2b40d9d33d29644.zip | |
Have `Qualified_name.try_parse` return a `Condition.t`
Diffstat (limited to 'lib/dml')
| -rw-r--r-- | lib/dml/executor.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 = |