X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FhsSyn%2FHsDecls.lhs;h=1c3c8d41fe8bff55766aad113d9293a03c793378;hb=91ef36b9f74a61c0fb0047f3261ce49ed3026e93;hp=aed17b2e5b64217b4231ec9247bc1905043266fe;hpb=1364aa0bb9152ca00f433359487ec83ed7136df0;p=ghc-hetmet.git

diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs
index aed17b2..1c3c8d4 100644
--- a/ghc/compiler/hsSyn/HsDecls.lhs
+++ b/ghc/compiler/hsSyn/HsDecls.lhs
@@ -116,8 +116,9 @@ instance (Outputable name, Outputable pat)
 instance Ord name => Eq (HsDecl name pat) where
 	-- Used only when comparing interfaces, 
 	-- at which time only signature and type/class decls
-   (SigD s1)  == (SigD s2) = s1 == s2
+   (SigD s1)  == (SigD s2)  = s1 == s2
    (TyClD d1) == (TyClD d2) = d1 == d2
+   _          == _          = False
 \end{code}
 
 
@@ -340,7 +341,7 @@ eq_fld env (ns1,bt1) (ns2, bt2) = ns1==ns2 && eq_btype env bt1 bt2
 eq_btype env (Banged t1)   (Banged t2)   = eq_hsType env t1 t2
 eq_btype env (Unbanged t1) (Unbanged t2) = eq_hsType env t1 t2
 eq_btype env (Unpacked t1) (Unpacked t2) = eq_hsType env t1 t2
-eq_btype env _             _             = False
+eq_btype env _		   _		 = False
 \end{code}
 
 \begin{code}