[commit: ghc] master: Add missing case in eqHsBang; makes rnfail055 pass again (e39539d)

Simon Peyton Jones simonpj at microsoft.com
Fri Jan 18 15:32:06 CET 2013


Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/e39539df04e918d84623e4ab94cd2b294f477483

>---------------------------------------------------------------

commit e39539df04e918d84623e4ab94cd2b294f477483
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Jan 18 14:31:39 2013 +0000

    Add missing case in eqHsBang; makes rnfail055 pass again

>---------------------------------------------------------------

 compiler/basicTypes/DataCon.lhs |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/compiler/basicTypes/DataCon.lhs b/compiler/basicTypes/DataCon.lhs
index 47e37a9..c88fa80 100644
--- a/compiler/basicTypes/DataCon.lhs
+++ b/compiler/basicTypes/DataCon.lhs
@@ -561,6 +561,7 @@ instance Outputable StrictnessMark where
 
 
 eqHsBang :: HsBang -> HsBang -> Bool
+eqHsBang HsNoBang             HsNoBang             = True
 eqHsBang HsStrict             HsStrict             = True
 eqHsBang (HsUserBang u1 b1)   (HsUserBang u2 b2)   = u1==u2 && b1==b2
 eqHsBang (HsUnpack Nothing)   (HsUnpack Nothing)   = True





More information about the ghc-commits mailing list