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

rename 'prettyTerm' to 'prettyIO'

Browse source 
it meant pretty*Terminal*, but,
This commit is contained in:
rhiannon morris 2023-03-15 15:42:28 +01:00
parent 86d21caf24
commit c9b9f66693
2 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
exe/Main.idr
View file

@ -63,6 +63,6 @@ tm =
main : IO Unit
main = do
putStrLn $ banner defPrettyOpts
prettyTermDef @{TermSubst True} tm
prettyTermDef @{TermSubst True} $ fst $ pushSubsts tm
prettyTermDef tm
prettyIODef @{TermSubst True} tm
prettyIODef @{TermSubst True} $ fst $ pushSubsts tm
prettyIODef tm

8
lib/Quox/Pretty.idr
View file

@ -216,14 +216,14 @@ termHL Syntax = color BrightCyan
termHL Tag = color BrightRed
export %inline
prettyTerm : PrettyOpts -> PrettyHL a => a -> IO Unit
prettyTerm opts x =
prettyIO : PrettyOpts -> PrettyHL a => a -> IO Unit
prettyIO opts x =
let reann = if opts.color then map termHL else unAnnotate in
Terminal.putDoc $ reann $ pretty0 opts.unicode x
export %inline
prettyTermDef : PrettyHL a => a -> IO Unit
prettyTermDef = prettyTerm defPrettyOpts
prettyIODef : PrettyHL a => a -> IO Unit
prettyIODef = prettyIO defPrettyOpts
infixr 6 <%%>, <%>