print quantity before names in main

This commit is contained in:
rhiannon morris 2023-04-17 21:43:53 +02:00
parent 682965eebd
commit c04c2e677c

View file

@ -26,7 +26,9 @@ main = do
| Left err => die $ prettyError True True err | Left err => die $ prettyError True True err
for_ res $ \(name, def) => do for_ res $ \(name, def) => do
putDoc $ map termHL $ nest 2 $ putDoc $ map termHL $ nest 2 $
sep [hsep [hl Free $ pretty0 True name, colonD], sep [hsep [hcat [pretty0 True def.qty.fst, dotD,
hl Free (pretty0 True name)],
colonD],
prettyTerm True [<] [<] def.type] prettyTerm True [<] [<] def.type]
----------------------------------- -----------------------------------