[project @ 1996-05-16 09:48:23 by partain]

[ghc-hetmet.git] / ghc / compiler / rename / RnUtils.lhs

diff --git a/ghc/compiler/rename/RnUtils.lhs b/ghc/compiler/rename/RnUtils.lhs
index ba38151..1825928 100644 (file)
--- a/ghc/compiler/rename/RnUtils.lhs
+++ b/ghc/compiler/rename/RnUtils.lhs
@@ -19,8 +19,7 @@ module RnUtils (
        qualNameErr,
        dupNamesErr,
        shadowedNameWarn,
-       multipleOccWarn,
-       negateNameWarn
+       multipleOccWarn
     ) where
 
 import Ubiq
@@ -203,9 +202,5 @@ shadowedNameWarn locn shadow
 multipleOccWarn (name, occs) sty
   = ppBesides [ppStr "warning:multiple names used to refer to `", ppr sty name, ppStr "': ",
               ppInterleave ppComma (map (ppr sty) occs)]
-
-negateNameWarn (name,locn) 
-  = addShortWarnLocLine locn ( \ sty ->
-    ppBesides [ppStr "local binding of `negate' will be used for prefix `-'"])
 \end{code}