diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-05-03 14:48:31 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-06-06 14:29:52 +0100 |
| commit | da4ff650ae77930a5a10d4886c8bc7d37f081db7 (patch) | |
| tree | e3126af132cdbc8e1f76016d8c7fbf96feb39f2e /compiler/cmm/CLabel.hs | |
| parent | 967f746994802f50011a03c983417a6fca18de27 (diff) | |
| download | haskell-da4ff650ae77930a5a10d4886c8bc7d37f081db7.tar.gz | |
Comments and white space only
Diffstat (limited to 'compiler/cmm/CLabel.hs')
| -rw-r--r-- | compiler/cmm/CLabel.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index 1bcb695020..1b86f3d6b4 100644 --- a/compiler/cmm/CLabel.hs +++ b/compiler/cmm/CLabel.hs @@ -1030,9 +1030,9 @@ pprCLbl (RtsLabel (RtsApFast str)) = ftext str <> ptext (sLit "_fast") pprCLbl (RtsLabel (RtsSelectorInfoTable upd_reqd offset)) = hcat [ptext (sLit "stg_sel_"), text (show offset), - ptext (if upd_reqd - then (sLit "_upd_info") - else (sLit "_noupd_info")) + ptext (if upd_reqd + then (sLit "_upd_info") + else (sLit "_noupd_info")) ] pprCLbl (RtsLabel (RtsSelectorEntry upd_reqd offset)) |