print quantity before names in main

2023-04-17 21:43:53 +02:00 · 2023-04-17 21:43:53 +02:00 · c04c2e677c
commit c04c2e677c
parent 682965eebd
1 changed files with 3 additions and 1 deletions
--- a/exe/Main.idr
+++ b/exe/Main.idr
@ -26,7 +26,9 @@ main = do
      | Left err => die $ prettyError True True err
    for_ res $ \(name, def) => do
      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]

 -----------------------------------