print quantity before names in main
This commit is contained in:
parent
682965eebd
commit
c04c2e677c
1 changed files with 3 additions and 1 deletions
|
@ -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]
|
||||||
|
|
||||||
-----------------------------------
|
-----------------------------------
|
||||||
|
|
Loading…
Reference in a new issue