Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : new-demand
http://hackage.haskell.org/trac/ghc/changeset/dfc5fb9e313d7c6e7f803ed254f485abb03cb429 >--------------------------------------------------------------- commit dfc5fb9e313d7c6e7f803ed254f485abb03cb429 Author: Ilya Sergey <[email protected]> Date: Sat Jul 14 01:38:29 2012 +0100 top <--> bot bug fixed >--------------------------------------------------------------- compiler/basicTypes/NewDemand.lhs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/basicTypes/NewDemand.lhs b/compiler/basicTypes/NewDemand.lhs index 638eb3b..b2f8805 100644 --- a/compiler/basicTypes/NewDemand.lhs +++ b/compiler/basicTypes/NewDemand.lhs @@ -518,8 +518,8 @@ data DmdResult = DR { res :: PureResult, cpr :: CPRResult } deriving ( Eq ) instance LatticeLike DmdResult where - bot = topRes - top = botRes + bot = botRes + top = topRes pre x _ | x == bot = True pre _ x | x == top = True _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
