(*
 * SPDX-FileCopyrightText: 2026 The Forester Project Contributors
 *
 * SPDX-License-Identifier: GPL-3.0-or-later
 *)

type config_parse_error = {range: Grace.Range.t; msg: string} [@@deriving show]
type using_default = {path: string list; default: string list} [@@deriving show]
type unknown_option = {path: string list} [@@deriving show]
type invalid_url = {url: string} [@@deriving show]
type missing_dir = {dir: string} [@@deriving show]
type missing_file = {file: string} [@@deriving show]

type t =
  [ `Config_parse_error of config_parse_error
  | `Using_default of using_default
  | `Unknown_option of unknown_option
  | `Invalid_url of invalid_url
  | `No_path_in_foreign_table
  | `Missing_dir of missing_dir
  | `Missing_file of missing_file
  | `No_forest_table ]
[@@deriving show]

let unknown_options opts : t = `Unknown_option {path = opts}