[project @ 2002-05-27 16:13:42 by simonpj]

[project @ 2002-05-27 16:13:42 by simonpj]
Make negative literals work in patterns

The issue here is that

	f (-1) = True
	f x    = False

should generate

	f x = x == negate (fromInteger 1)

rather than

	f x = x == fromInteger (-1)