reject unary minus in infix left hand side function bindings that resolve differently as expressions

a program like:

infix 7 ##

(##) :: Int -> Int -> Int
- 1 ## 0 = 0
_ ## _ = 1

evaluates (unexpectedly) as

*Main> - 1 ## 0
-1

Trac metadata

Trac field	Value
Version	6.12.3
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	Compiler
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system
Architecture