{-|
This type is used by toText to determine how we serialize a path.
-}
let Format = ./Type

in    { root = "/"
      , separator = "/"
      , --| This must include the separator if you expect it to appear.
        reparent = "../"
      , substitutions = [ { content = "/", replacement = "/" } ]
      }
    : Format