diff options
| author | Malte Voos <git@mal.tc> | 2024-06-24 00:24:24 +0200 |
|---|---|---|
| committer | Malte Voos <git@mal.tc> | 2024-06-24 00:24:24 +0200 |
| commit | b34ebf3fe3ecaf292be873d231dd54c80f16ad07 (patch) | |
| tree | 92e51250cf692fef97e7db310d244d1e3e7112a3 /src/pretty/Pretty.ml | |
| parent | 5d227bcd0055d02e1d49a3dcd27e80a756923d5b (diff) | |
| download | toytt-b34ebf3fe3ecaf292be873d231dd54c80f16ad07.tar.gz toytt-b34ebf3fe3ecaf292be873d231dd54c80f16ad07.zip | |
rename: Reporter -> Error
Diffstat (limited to 'src/pretty/Pretty.ml')
| -rw-r--r-- | src/pretty/Pretty.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |