rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

write quantities before names in binders again

Browse source 
also fixup comments in typechecker
This commit is contained in:
rhiannon morris 2023-02-13 22:05:27 +01:00
parent a6f43a772e
commit fe8c224299
4 changed files with 78 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/Quox/Syntax/Qty.idr
View file

@ -1,6 +1,7 @@
module Quox.Syntax.Qty
import Quox.Pretty
import Quox.Name
import public Quox.Decidable
import Data.DPair
@ -18,10 +19,12 @@ blobD : Pretty.HasEnv m => m (Doc HL)
blobD = hlF Delim $ ifUnicode "·" "@"
export %inline
prettyQtyBinds : Pretty.HasEnv m => PrettyHL q => List q -> m (Doc HL)
prettyQtyBinds [] = pure ""
prettyQtyBinds qtys =
pure $ !blobD <++> align (sep $ commas !(traverse pretty0M qtys))
prettyQtyBinds : Pretty.HasEnv m => PrettyHL q => PrettyHL a =>
List q -> a -> m (Doc HL)
prettyQtyBinds [] x = pretty0M x
prettyQtyBinds qtys x = pure $
hang 2 $ sep [aseparate comma !(traverse pretty0M qtys) <++> !blobD,
!(pretty0M x)]
public export