Make binds in do-blocks strict when -XStrict (#11193)
authorAdam Sandberg Eriksson <adam@sandbergericsson.se>
Mon, 14 Dec 2015 14:03:15 +0000 (15:03 +0100)
committerBen Gamari <ben@smart-cactus.org>
Mon, 14 Dec 2015 14:34:03 +0000 (15:34 +0100)
commit419b6c00c194ccbd3c94539c26246dc41c88ed6c
tree62cda8402d2150b297ad2632715f0309d8cf452d
parent023f11f562c7d08af121e4dac04ec66418e6923b
Make binds in do-blocks strict when -XStrict (#11193)

Previously bindings in `do` blocks were omitted. With `-XStrict`
```lang=hs
do content <- action
   other_things
```
should be equivalent to
```lang=hs
do !content <- action
   other_things
```

Fixes #11193.

Reviewers: bgamari, austin

Reviewed By: bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D1612

GHC Trac Issues: #11193
compiler/deSugar/Match.hs
testsuite/tests/deSugar/should_run/T11193.hs [new file with mode: 0644]
testsuite/tests/deSugar/should_run/T11193.stderr [new file with mode: 0644]
testsuite/tests/deSugar/should_run/all.T