move prettyTag to Quox.Pretty
This commit is contained in:
parent
ee22486e97
commit
b1eefb0f4d
2 changed files with 4 additions and 4 deletions
|
@ -283,10 +283,6 @@ layoutComp typq val r arms = do
|
|||
[typq, [val, r <++> lb], map (indent ind) arms, [rb]])
|
||||
|
||||
|
||||
export
|
||||
prettyTag : {opts : _} -> String -> Eff Pretty (Doc opts)
|
||||
prettyTag tag = hl Tag $ text $ "'" ++ quoteTag tag
|
||||
|
||||
export
|
||||
prettyEnum : {opts : _} -> List String -> Eff Pretty (Doc opts)
|
||||
prettyEnum cases =
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue