diff options
| -rw-r--r-- | ghc/compiler/hsSyn/HsDecls.lhs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs index 7fb207ee9a..aed17b2e5b 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} |