[commit: ghc] cardinality: some enhancements (37be5ba)
Ilya Sergey <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : cardinality http://hackage.haskell.org/trac/ghc/changeset/37be5ba59afe834d4d027f4c2c1b135426b58c08 >--------------------------------------------------------------- commit 37be5ba59afe834d4d027f4c2c1b135426b58c08 Author: Ilya Sergey <[email protected]> Date: Tue Sep 4 19:00:51 2012 +0100 some enhancements >--------------------------------------------------------------- compiler/basicTypes/Demand.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/basicTypes/Demand.lhs b/compiler/basicTypes/Demand.lhs index 7ac53a9..68a9e53 100644 --- a/compiler/basicTypes/Demand.lhs +++ b/compiler/basicTypes/Demand.lhs @@ -309,7 +309,7 @@ instance LatticeLike AbsDmd where -- is it correct? -- explain! -- possibly, wrong... both (UCall _ u1) (UCall _ u2) = absCall Many (u1 `lub` u2) - -- both (UCall _ u1) (UCall _ u2) = absCall Many (u1 `both` u2) + --both (UCall _ u1) (UCall _ u2) = absCall Many (u1 `both` u2) both _ _ = top -- utility functions