Don't discard a bang on a newtype pattern (Trac #9844)
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 28 Nov 2014 11:28:15 +0000 (11:28 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 28 Nov 2014 11:30:02 +0000 (11:30 +0000)
commit227a566851f19f5a720c4a86fdb1ff99117325c6
tree514a8475e34857808c0c45c40bcf3047dc566ebc
parent7dd4c12c608ba7b42e6e453f4db825655716f01d
Don't discard a bang on a newtype pattern (Trac #9844)

We were wrongly simply dropping the bang, in tidy_bang_pat.
compiler/deSugar/Match.lhs
compiler/hsSyn/HsDecls.lhs
compiler/hsSyn/HsPat.lhs
testsuite/tests/deSugar/should_run/T9844.hs [new file with mode: 0644]
testsuite/tests/deSugar/should_run/T9844.stderr [new file with mode: 0644]
testsuite/tests/deSugar/should_run/T9844.stdout [new file with mode: 0644]
testsuite/tests/deSugar/should_run/all.T