Skip to content

GitLab

Commit e39539df authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Add missing case in eqHsBang; makes rnfail055 pass again

parent b14ddb2f
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 0 deletions
compiler/basicTypes/DataCon.lhs
View file @ e39539df
......@@ -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
......
Markdown is supported
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