From 73c9f3522f600d59c9f480dffcdd8500398d1df4 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 20 Feb 2001 09:45:12 +0000
Subject: [PATCH] [project @ 2001-02-20 09:45:12 by simonpj] A bit more on
 decoupling the prelude

---
 ghc/compiler/parser/RdrHsSyn.lhs |    7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/ghc/compiler/parser/RdrHsSyn.lhs b/ghc/compiler/parser/RdrHsSyn.lhs
index 57eb5a8..1dd7c00 100644
--- a/ghc/compiler/parser/RdrHsSyn.lhs
+++ b/ghc/compiler/parser/RdrHsSyn.lhs
@@ -67,7 +67,6 @@ import OccName		( mkClassTyConOcc, mkClassDataConOcc, mkWorkerOcc,
                           mkSuperDictSelOcc, mkDefaultMethodOcc, mkGenOcc1,
 			  mkGenOcc2, 
                       	)
-import PrelNames	( negate_RDR )
 import RdrName		( RdrName, isRdrTyVar, mkRdrUnqual, rdrNameOcc,
 			)
 import List		( nub )
@@ -270,9 +269,9 @@ mkHsNegApp (HsLit (HsIntPrim i))    = HsLit (HsIntPrim (-i))
 mkHsNegApp (HsLit (HsFloatPrim i))  = HsLit (HsFloatPrim (-i))  
 mkHsNegApp (HsLit (HsDoublePrim i)) = HsLit (HsDoublePrim (-i)) 
 
-mkHsNegApp (HsOverLit (HsIntegral   i n)) = HsOverLit (HsIntegral   (-i) n)
-mkHsNegApp (HsOverLit (HsFractional f n)) = HsOverLit (HsFractional (-f) n)
-mkHsNegApp expr 			  = NegApp expr negate_RDR
+mkHsNegApp (HsOverLit (HsIntegral   i)) = HsOverLit (HsIntegral   (-i))
+mkHsNegApp (HsOverLit (HsFractional f)) = HsOverLit (HsFractional (-f))
+mkHsNegApp expr 			= NegApp expr
 \end{code}
 
 A useful function for building @OpApps@.  The operator is always a
-- 
1.7.10.4