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

add runPrettyWith, etc

Browse source
This commit is contained in:
rhiannon morris 2023-03-25 20:48:26 +01:00
parent 60079d9eb9
commit 100063ab91
2 changed files with 17 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/Quox/Syntax/Term/Pretty.idr
View file

@ -271,9 +271,4 @@ prettyTerm : IsQty q => PrettyHL q => (unicode : Bool) ->
(dnames : NContext d) -> (tnames : NContext n) ->
Term q d n -> Doc HL
prettyTerm unicode dnames tnames term =
let env = MakePrettyEnv {
dnames = toSnocList' dnames,
tnames = toSnocList' tnames,
unicode, prec = Outer
} in
runReader env $ prettyM term
pretty0With unicode (toSnocList' dnames) (toSnocList' tnames) term