Something went wrong. Try again.
Dockerfile eDSL, combinators, printer and parser forked from gazagnaire.org/ocaml-dockerfile
Something went wrong. Try again.
721 B · 23 lines
OCaml
at fixes
123456789101112131415161718192021222324type t = Loc.Error.ttype 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.pplet to_string = Loc.Error.to_stringlet 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 slet fail = Loc.Error.faillet failf = Loc.Error.failflet relocate meta (e : t) = { e with Loc.Error.meta }