diff options
author | Malte Voos <git@mal.tc> | 2024-07-08 22:01:42 +0200 |
---|---|---|
committer | Malte Voos <git@mal.tc> | 2024-07-08 22:01:42 +0200 |
commit | 97f84ccace4e634b4e02178a702818e69292dc9f (patch) | |
tree | 9cef95c62e3fa078db256c7fe657732fecef40a8 /src/pretty/Pretty.ml | |
parent | 57de10d8728f51942f676b68f1f3ea29d9b78e6e (diff) | |
download | toytt-97f84ccace4e634b4e02178a702818e69292dc9f.tar.gz toytt-97f84ccace4e634b4e02178a702818e69292dc9f.zip |
implement top-level definitions
Diffstat (limited to 'src/pretty/Pretty.ml')
-rw-r--r-- | src/pretty/Pretty.ml | 1 |
1 files changed, 1 insertions, 0 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) |