Skip to content
Snippets Groups Projects
Commit 7c7dcabd authored by Taddeüs Kroes's avatar Taddeüs Kroes
Browse files

Added literal brackets to attrib strings

parent da8c2042
No related branches found
No related tags found
No related merge requests found
......@@ -141,7 +141,8 @@ cls:
attrib:
| LBRACK S? left=IDENT S? right=pair(RELATION, rel_value)? RBRACK
{ left ^ (match right with None -> "" | Some (rel, term) -> rel ^ term) }
{ let right = match right with None -> "" | Some (op, term) -> op ^ term in
"[" ^ left ^ right ^ "]" }
%inline rel_value:
| S? id=IDENT S? { id }
| S? s=STRING S? { s }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment