Added literal brackets to attrib strings

7c7dcabd · Taddeüs Kroes · da8c2042 · 7c7dcabd
Commit 7c7dcabd authored Jul 15, 2014 by Taddeüs Kroes
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

parser.mly parser.mly +2 -1

No files found.
--- a/parser.mly
+++ b/parser.mly
@@ -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 }