X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FReal.lhs;fp=GHC%2FReal.lhs;h=971f2767b655b14f94255486a520f1b5a65f3106;hb=ef78f2f4b5bd96219bcebac04affa86a58963fde;hp=71d35e6a5abe56d4f3a97355d71e90ba10f3e449;hpb=30b3497fff436dfe5850a1a0da33983a9f31b59c;p=ghc-base.git

diff --git a/GHC/Real.lhs b/GHC/Real.lhs
index 71d35e6..971f276 100644
--- a/GHC/Real.lhs
+++ b/GHC/Real.lhs
@@ -54,10 +54,9 @@ ratioPrec, ratioPrec1 :: Int
 ratioPrec  = 7  -- Precedence of ':%' constructor
 ratioPrec1 = ratioPrec + 1
 
-infinity, notANumber, negativeZero :: Rational
+infinity, notANumber :: Rational
 infinity   = 1 :% 0
 notANumber = 0 :% 0
-negativeZero = 0 :% (-1)
 
 -- Use :%, not % for Inf/NaN; the latter would 
 -- immediately lead to a runtime error, because it normalises.