diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-11-20 10:50:54 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-12-02 11:56:18 -0500 |
| commit | 038bedbc8daa842a4cd91a0da780d09c78c4984f (patch) | |
| tree | ab1d420f6490c6add6f18a5c083f764baab0f847 | |
| parent | bde48f8e5bad1427a530610796d85d299997f80c (diff) | |
| download | haskell-038bedbc8daa842a4cd91a0da780d09c78c4984f.tar.gz | |
Simplify: Fix pretty-printing of strictness
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 = |