From b34ebf3fe3ecaf292be873d231dd54c80f16ad07 Mon Sep 17 00:00:00 2001 From: Malte Voos Date: Mon, 24 Jun 2024 00:24:24 +0200 Subject: rename: Reporter -> Error --- src/pretty/Pretty.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/pretty/Pretty.ml') diff --git a/src/pretty/Pretty.ml b/src/pretty/Pretty.ml index 66d6159..ba78881 100644 --- a/src/pretty/Pretty.ml +++ b/src/pretty/Pretty.ml @@ -57,7 +57,7 @@ struct | Some ((Some name) as id) when Bwd.find_index ((=) id) names = Some ix -> Fmt.string fmt name (* the variable does not have a bound name or its bound name has been shadowed *) | Some _ -> Fmt.pf fmt "%@%d" ix - | None -> Reporter.bug "index out of range in pp_var" + | None -> Error.bug "index out of range in pp_var" let rec pp_pair fmt = (delimited @@ fun fmt (a, b) -> Fmt.pf fmt "@[(@[%a@], @[%a@])@]" pp a pp b) fmt -- cgit 1.4.1