change the precedence for the left argument of ->

2011-09-22 16:24:02 +00:00
parent ac51d644fc
commit a112c56e74
2 changed files with 2 additions and 2 deletions
--- a/src/compiler/GF/Grammar/Parser.y
+++ b/src/compiler/GF/Grammar/Parser.y
@@ -554,7 +554,7 @@ ListBind
 Decl :: { [Hypo] }
 Decl
  : '(' ListBind ':' Exp ')' { [(b,x,$4) | (b,x) <- $2] } 
-  | Exp4                     { [mkHypo $1]              }
+  | Exp3                     { [mkHypo $1]              }

 ListTupleComp :: { [Term] }
 ListTupleComp