diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-08-05 16:53:18 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-08-05 16:53:18 +0100 |
| commit | ecc43c17c87fed9221851ed6c6fa4a8b8967b20e (patch) | |
| tree | 581cfb5247717769a79243f8c20323c368c4597e /compiler/nativeGen/SPARC/Ppr.hs | |
| parent | e9a587a120dd6e71dd78291366d2a4eb8c0bedd3 (diff) | |
| download | haskell-ecc43c17c87fed9221851ed6c6fa4a8b8967b20e.tar.gz | |
Convert prefix uses of (<>) to infix <>
Diffstat (limited to 'compiler/nativeGen/SPARC/Ppr.hs')
| -rw-r--r-- | compiler/nativeGen/SPARC/Ppr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nativeGen/SPARC/Ppr.hs b/compiler/nativeGen/SPARC/Ppr.hs index b384b6e0ba..e57e5e2725 100644 --- a/compiler/nativeGen/SPARC/Ppr.hs +++ b/compiler/nativeGen/SPARC/Ppr.hs @@ -535,7 +535,7 @@ pprInstr (BF cond b blockid) ppr (mkAsmTempLabel (getUnique blockid)) ] -pprInstr (JMP addr) = (<>) (ptext (sLit "\tjmp\t")) (pprAddr addr) +pprInstr (JMP addr) = ptext (sLit "\tjmp\t") <> pprAddr addr pprInstr (JMP_TBL op _ _) = pprInstr (JMP op) pprInstr (CALL (Left imm) n _) |