X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FhsSyn%2FHsLit.lhs;h=51455e23fc9499b1e9c4e47c2dde1d23e75ce9b3;hb=3475fa6c804e0818b9c55d8939e4bd34fa1b06c1;hp=3c18102191abd6c253f3b084770b043db8fcf337;hpb=6a05ec5ef5373f61b7f9f5bdc344483417fa801b;p=ghc-hetmet.git

diff --git a/compiler/hsSyn/HsLit.lhs b/compiler/hsSyn/HsLit.lhs
index 3c18102..51455e2 100644
--- a/compiler/hsSyn/HsLit.lhs
+++ b/compiler/hsSyn/HsLit.lhs
@@ -5,13 +5,6 @@
 \section[HsLit]{Abstract syntax: source-language literals}
 
 \begin{code}
-{-# OPTIONS -w #-}
--- The above warning supression flag is a temporary kludge.
--- While working on this module you are encouraged to remove it and fix
--- any warnings in the module. See
---     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
--- for details
-
 module HsLit where
 
 #include "HsVersions.h"
@@ -59,7 +52,7 @@ instance Eq HsLit where
   (HsRat x1 _)	    == (HsRat x2 _)      = x1==x2
   (HsFloatPrim x1)  == (HsFloatPrim x2)  = x1==x2
   (HsDoublePrim x1) == (HsDoublePrim x2) = x1==x2
-  lit1		    == lit2		 = False
+  _                 == _                 = False
 
 data HsOverLit id 	-- An overloaded literal
   = HsIntegral   Integer    (SyntaxExpr id)  PostTcType	-- Integer-looking literals;
@@ -92,18 +85,18 @@ instance Eq (HsOverLit id) where
   (HsIntegral i1 _ _)   == (HsIntegral i2 _ _)   = i1 == i2
   (HsFractional f1 _ _) == (HsFractional f2 _ _) = f1 == f2
   (HsIsString s1 _ _)   == (HsIsString s2 _ _)   = s1 == s2
-  l1		      == l2		     = False
+  _                     == _                     = False
 
 instance Ord (HsOverLit id) where
   compare (HsIntegral i1 _ _)   (HsIntegral i2 _ _)   = i1 `compare` i2
   compare (HsIntegral _ _ _)    (HsFractional _ _ _)  = LT
   compare (HsIntegral _ _ _)    (HsIsString _ _ _)    = LT
   compare (HsFractional f1 _ _) (HsFractional f2 _ _) = f1 `compare` f2
-  compare (HsFractional f1 _ _) (HsIntegral _ _ _)    = GT
-  compare (HsFractional f1 _ _) (HsIsString _ _ _)    = LT
+  compare (HsFractional _ _ _)  (HsIntegral _ _ _)    = GT
+  compare (HsFractional _ _ _)  (HsIsString _ _ _)    = LT
   compare (HsIsString s1 _ _)   (HsIsString s2 _ _)   = s1 `compare` s2
-  compare (HsIsString s1 _ _)   (HsIntegral _ _ _)    = GT
-  compare (HsIsString s1 _ _)   (HsFractional _ _ _)  = GT
+  compare (HsIsString _ _ _)    (HsIntegral _ _ _)    = GT
+  compare (HsIsString _ _ _)    (HsFractional _ _ _)  = GT
 \end{code}
 
 \begin{code}