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 : IO Unit
main = do main = do
putStrLn $ banner defPrettyOpts putStrLn $ banner defPrettyOpts
prettyTermDef @{TermSubst True} tm prettyIODef @{TermSubst True} tm
prettyTermDef @{TermSubst True} $ fst $ pushSubsts tm prettyIODef @{TermSubst True} $ fst $ pushSubsts tm
prettyTermDef tm prettyIODef tm

8
lib/Quox/Pretty.idr
View file

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