diff options
| author | simonmar <unknown> | 2000-06-14 15:06:56 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-06-14 15:06:56 +0000 |
| commit | 1364aa0bb9152ca00f433359487ec83ed7136df0 (patch) | |
| tree | e61c528fbd0da3d8d0582d20999b05373898dc9c | |
| parent | e28748e717e49694e70b60eef0f27887b8445583 (diff) | |
| download | haskell-1364aa0bb9152ca00f433359487ec83ed7136df0.tar.gz | |
[project @ 2000-06-14 15:06:56 by simonmar]
add missing default case in eq_btype
| -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} |