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
|
Right res <- fromParserIO ["."] seen defs $ loadProcessFile file
|
||||||
| 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 $
|
putDoc $ map termHL $ nest 2 $
|
||||||
sep [hl Free $ pretty0 True name, colonD,
|
sep [hsep [hl Free $ pretty0 True name, colonD],
|
||||||
prettyTerm True [<] [<] def.type]
|
prettyTerm True [<] [<] def.type]
|
||||||
|
|
||||||
-----------------------------------
|
-----------------------------------
|
||||||
|
|
Loading…
Reference in a new issue