quote tags in printer when needed
This commit is contained in:
parent
be94422668
commit
f814b01c5c
3 changed files with 15 additions and 6 deletions
|
@ -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""#
|
||||
],
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue