quote tags in printer when needed

This commit is contained in:
rhiannon morris 2023-03-16 18:39:24 +01:00
parent be94422668
commit f814b01c5c
3 changed files with 15 additions and 6 deletions

View file

@ -132,7 +132,6 @@ tests = "pretty printing terms" :- [
testPrettyT1 [<] [<] (enum []) "{}",
testPrettyT1 [<] [<] (enum ["a"]) "{a}",
testPrettyT1 [<] [<] (enum ["aa", "bb", "cc"]) "{aa, bb, cc}",
skipWith "todo: quote non-identifiers" $
testPrettyT1 [<] [<] (enum ["a b c"]) #"{"a b c"}"#
],
@ -140,7 +139,6 @@ tests = "pretty printing terms" :- [
testPrettyT1 [<] [<] (Tag "a") "'a",
testPrettyT1 [<] [<] (Tag "hello") "'hello",
testPrettyT1 [<] [<] (Tag "qualified.tag") "'qualified.tag",
skipWith "todo: quote non-identifiers" $
testPrettyT1 [<] [<] (Tag "non-identifier tag") #"'"non-identifier tag""#
],