From: simonm <unknown>
Date: Fri, 19 Dec 1997 10:37:59 +0000 (+0000)
Subject: [project @ 1997-12-19 10:37:59 by simonm]
X-Git-Tag: Approx_2487_patches~1147
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7220720225eb95c9561e41dcde5b1cc4af4a710a;p=ghc-hetmet.git

[project @ 1997-12-19 10:37:59 by simonm]
fix bug in sameVal on ApproxFuns.
---

diff --git a/ghc/compiler/stranal/SaAbsInt.lhs b/ghc/compiler/stranal/SaAbsInt.lhs
index c2038d6..f5e5aab 100644
--- a/ghc/compiler/stranal/SaAbsInt.lhs
+++ b/ghc/compiler/stranal/SaAbsInt.lhs
@@ -321,7 +321,7 @@ sameVal (AbsProd vals1) (AbsProd vals2) = and (zipWithEqual "sameVal" sameVal va
 sameVal (AbsProd _)	AbsTop 		= False
 sameVal (AbsProd _)	AbsBot 		= False
 
-sameVal (AbsApproxFun str1 v1) (AbsApproxFun str2 v2) = str1 == str2 && sameVal v1 v1
+sameVal (AbsApproxFun str1 v1) (AbsApproxFun str2 v2) = str1 == str2 && sameVal v1 v2
 sameVal (AbsApproxFun _ _)     AbsTop		      = False
 sameVal (AbsApproxFun _ _)     AbsBot 		      = False