(.module:
  [lux #*
   [data
    [text
     ["%" format (#+ format)]]]
   [world
    ["." file (#+ Path)]]]
  ["." // #_
   ["#." artifact (#+ Artifact)]])

(def: #export (repository system)
  (All [a] (-> (file.System a) Path))
  (let [/ (:: system separator)]
    (format "~" / ".m2" / "repository")))

(def: #export (path system artifact)
  (All [a] (-> (file.System a) Artifact Path))
  (format (..repository system)
          (:: system separator)
          (//artifact.path system artifact)))