From bb599029c96f9e28d5fa00def33a1ecf0baab8c3 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Thu, 22 Sep 2011 16:24:02 +0000
Subject: change the precedence for the left argument of ->

---
 src/compiler/GF/Grammar/Parser.y | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/compiler/GF/Grammar/Parser.y')

diff --git a/src/compiler/GF/Grammar/Parser.y b/src/compiler/GF/Grammar/Parser.y
index e070f939d..23974f6b1 100644
--- 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
-- 
cgit v1.2.3