type t = Loc.Error.t
type Loc.Error.kind += Unsupported_instruction of string

let () =
  Loc.Error.register_kind_printer (function
    | Unsupported_instruction kw ->
        Some (fun ppf -> Fmt.pf ppf "unsupported Dockerfile instruction: %s" kw)
    | _ -> None)

let pp = Loc.Error.pp
let to_string = Loc.Error.to_string
let empty = Loc.Context.empty

let unsupported_instruction meta kw =
  Loc.Error.v ~ctx:empty ~meta (Unsupported_instruction kw)

let fail_unsupported_instruction meta kw =
  Loc.Error.raise ~ctx:empty ~meta (Unsupported_instruction kw)

let msg meta s = Loc.Error.msg ~ctx:empty ~meta s
let fail = Loc.Error.fail
let failf = Loc.Error.failf
let relocate meta (e : t) = { e with Loc.Error.meta }