From 7220720225eb95c9561e41dcde5b1cc4af4a710a Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Fri, 19 Dec 1997 10:37:59 +0000
Subject: [PATCH] [project @ 1997-12-19 10:37:59 by simonm] fix bug in sameVal
 on ApproxFuns.

---
 ghc/compiler/stranal/SaAbsInt.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/stranal/SaAbsInt.lhs b/ghc/compiler/stranal/SaAbsInt.lhs
index c2038d62e722..f5e5aab80f96 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
 
-- 
GitLab