change the precedence for the left argument of ->

This commit is contained in:
kr.angelov
2011-09-22 16:24:02 +00:00
parent 6db0c74c2f
commit bb599029c9
2 changed files with 2 additions and 2 deletions

View File

@@ -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