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

quote tags in printing if they're not identifiers

Browse source
This commit is contained in:
rhiannon morris 2023-03-18 02:45:30 +01:00
parent f2272da4b4
commit 958bc2f8b8
2 changed files with 31 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -115,10 +115,20 @@ prettyCase pi elim r ret arms = do
arms <- prettyArms arms
pure $ asep [caseD <++> elim, returnD <++> ret, ofD <++> arms]
export
escapeString : String -> String
escapeString = concatMap esc1 . unpack where
esc1 : Char -> String
esc1 '"' = #"\""#
esc1 '\\' = #"\\"#
esc1 '\n' = #"\n"#
esc1 c = singleton c
export
quoteTag : TagVal -> Doc HL
quoteTag tag =
if isName tag then fromString tag else hcat ["\"", fromString tag, "\""]
if isName tag then fromString tag else
hcat ["\"", fromString $ escapeString tag, "\""]
export
prettyTag : TagVal -> Doc HL