quote names in Show
This commit is contained in:
parent
a11bedd62a
commit
00e79d4264
2 changed files with 5 additions and 3 deletions
|
@ -89,7 +89,8 @@ terminalMatch what l r = terminalMatchN_ what [(l, r)]
|
|||
||| tag without leading `'`
|
||||
export
|
||||
bareTag : Grammar True TagVal
|
||||
bareTag = terminalMatchN "bare tag" [(`(Name t), `(show t)), (`(Str s), `(s))]
|
||||
bareTag = terminalMatchN "bare tag"
|
||||
[(`(Name t), `(toDotsP t)), (`(Str s), `(s))]
|
||||
|
||||
||| tag with leading quote
|
||||
export
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue