print ':' on same line as name always

This commit is contained in:
rhiannon morris 2023-04-03 16:08:10 +02:00
parent 29505cbc06
commit 868550327c

View file

@ -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]
----------------------------------- -----------------------------------