diff options
Diffstat (limited to 'src/pretty')
| -rw-r--r-- | src/pretty/Pretty.ml | 1 | ||||
| -rw-r--r-- | src/pretty/dune | 4 |
2 files changed, 3 insertions, 2 deletions
diff --git a/src/pretty/Pretty.ml b/src/pretty/Pretty.ml index 8b7ad1a..fa25a40 100644 --- a/src/pretty/Pretty.ml +++ b/src/pretty/Pretty.ml @@ -74,6 +74,7 @@ struct (* TODO: improve indentation *) and pp fmt = function | S.Var ix -> pp_var fmt ix + | S.Def (p, _) -> Ident.pp fmt p | S.Pi (name, base, fam) -> rassoc 1 pp_arg ~sep:" -> " (bind name pp) fmt ((name, base), fam) | S.Lam (name, body) -> Fmt.pf fmt "@[\\@[%a@] -> @[%a@]@]" pp_local_name name (bind name pp) body | S.Sg (name, base, fam) -> rassoc 2 pp_arg ~sep:" * " (bind name pp) fmt ((name, base), fam) diff --git a/src/pretty/dune b/src/pretty/dune index ee17573..708b5b1 100644 --- a/src/pretty/dune +++ b/src/pretty/dune @@ -4,6 +4,6 @@ (libraries bwd fmt + toytt.error toytt.ident - toytt.nbe - toytt.error)) + toytt.nbe)) |