diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-11-20 10:50:54 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@well-typed.com> | 2019-12-01 16:55:25 -0500 |
| commit | e5f496052e8aed6d8d29f9b2e481df83be92650c (patch) | |
| tree | 046b4a6ad76cda1cae2959d194a188ad9185ef5d | |
| parent | 2b113fc957a3fb6eafd10ad41a7caf11009ef4eb (diff) | |
| download | haskell-wip/addevals-panic.tar.gz | |
Simplify: Fix pretty-printing of strictnesswip/addevals-panic
A colleague recently hit the panic in Simplify.addEvals and I noticed
that the message is quite unreadable due to incorrect pretty-printing.
Fix this.
| -rw-r--r-- | compiler/simplCore/Simplify.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/simplCore/Simplify.hs b/compiler/simplCore/Simplify.hs index c4f179ba55..2613244696 100644 --- a/compiler/simplCore/Simplify.hs +++ b/compiler/simplCore/Simplify.hs @@ -2789,8 +2789,8 @@ addEvals _scrut con vs = go vs the_strs where ppr_with_length list = ppr list <+> parens (text "length =" <+> ppr (length list)) - strdisp MarkedStrict = "MarkedStrict" - strdisp NotMarkedStrict = "NotMarkedStrict" + strdisp MarkedStrict = text "MarkedStrict" + strdisp NotMarkedStrict = text "NotMarkedStrict" zapIdOccInfoAndSetEvald :: StrictnessMark -> Id -> Id zapIdOccInfoAndSetEvald str v = |