move prettyTag to Quox.Pretty

This commit is contained in:
rhiannon morris 2023-09-20 21:58:42 +02:00
parent ee22486e97
commit b1eefb0f4d
2 changed files with 4 additions and 4 deletions

View file

@ -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 =