refactor(rules): remove pointless qualification (#7021)

Signed-off-by: Rudi Grinberg <[email protected]>
ocaml · Feb 8, 2023 · 06dde72 · 06dde72
1 parent c8f392f
commit 06dde72
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/dune_rules/expander.ml b/src/dune_rules/expander.ml
@@ -141,7 +141,7 @@ let expand_version { scope; _ } ~source s =
     let libname = Lib_name.of_string s in
     let pkgname = Lib_name.package_name libname in
     if not (String.equal (Package.Name.to_string pkgname) s) then
-      User_error.raise ~loc:source.Dune_lang.Template.Pform.loc
+      User_error.raise ~loc:source.loc
         [ Pp.textf
             "Library names are not allowed in this position. Only package \
              names are allowed"
@@ -150,7 +150,7 @@ let expand_version { scope; _ } ~source s =
     Lib.DB.find (Scope.libs scope) libname >>| function
     | Some lib -> value_from_version (Lib_info.version (Lib.info lib))
     | None ->
-      User_error.raise ~loc:source.Dune_lang.Template.Pform.loc
+      User_error.raise ~loc:source.loc
         [ Pp.textf
             "Package %S doesn't exist in the current project and isn't \
              installed either."