print ':' on same line as name always
This commit is contained in:
parent
29505cbc06
commit
868550327c
1 changed files with 2 additions and 2 deletions
|
@ -25,8 +25,8 @@ main = do
|
|||
Right res <- fromParserIO ["."] seen defs $ loadProcessFile file
|
||||
| Left err => die $ prettyError True True err
|
||||
for_ res $ \(name, def) => do
|
||||
putDoc $ map termHL $
|
||||
sep [hl Free $ pretty0 True name, colonD,
|
||||
putDoc $ map termHL $ nest 2 $
|
||||
sep [hsep [hl Free $ pretty0 True name, colonD],
|
||||
prettyTerm True [<] [<] def.type]
|
||||
|
||||
-----------------------------------
|
||||
|
|
Loading…
Reference in a new issue