[nhc-bugs] negate problems?

[Ian Lynagh]

Various small changes work, but this doesn't:

> module Main where

> main :: IO()
> main = putStrLn $ show $ foo 1

> foo :: Int -> Int
> foo (-1) = 6
> foo i = i

Compiling it gives

nhc98    -c -o Q.o Q.lhs

====================================
        Error when renaming::
Unbound Identifier - at 8:8

[Leaf2 ((Prelude._x,Identifier),160)

followed by more stuff that I can give you if you need it and can't
reproduce the problem.


Thanks
Ian, on a roll tonight...