From: simonmar <unknown>
Date: Wed, 14 Jun 2000 15:06:56 +0000 (+0000)
Subject: [project @ 2000-06-14 15:06:56 by simonmar]
X-Git-Tag: Approximately_9120_patches~4196
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1364aa0bb9152ca00f433359487ec83ed7136df0;p=ghc-hetmet.git

[project @ 2000-06-14 15:06:56 by simonmar]
add missing default case in eq_btype
---

diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs
index 7fb207e..aed17b2 100644
--- a/ghc/compiler/hsSyn/HsDecls.lhs
+++ b/ghc/compiler/hsSyn/HsDecls.lhs
@@ -340,6 +340,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
 \end{code}
 
 \begin{code}