[handle negative pattern literals properly.
John Meacham <john@repetae.net>**20061206054518] hunk ./E/FromHs.hs 703
+        procAs b (HsPNeg (HsPLit (HsInt i)):ps, ef) =  procAs b (HsPLit (HsInt (negate i)):ps,ef)