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

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

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