Skip to content
Snippets Groups Projects
Commit 72207202 authored by Simon Marlow's avatar Simon Marlow
Browse files

[project @ 1997-12-19 10:37:59 by simonm] 

fix bug in sameVal on ApproxFuns.
parent 54dbdcf0
No related merge requests found
Hide whitespace changes
Inline Side-by-side
ghc/compiler/stranal/SaAbsInt.lhs
+ 1
− 1
View file @ 72207202
......@@ -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
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment