diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-20 17:33:21 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-20 17:33:21 +0100 |
| commit | 32841172186b9c17e933a0ba2fe7ead0de73f0c3 (patch) | |
| tree | 360855211d36f373c90ba4ae8c132bd137f58ec7 /compiler | |
| parent | 4717b03b53538b6adedda51a67307f23ef00a41f (diff) | |
| download | haskell-32841172186b9c17e933a0ba2fe7ead0de73f0c3.tar.gz | |
Fix whitespace in cmm/PprCmmDecl.hs
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/cmm/PprCmmDecl.hs | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/compiler/cmm/PprCmmDecl.hs b/compiler/cmm/PprCmmDecl.hs index 218e37cc66..fc1ae119a0 100644 --- a/compiler/cmm/PprCmmDecl.hs +++ b/compiler/cmm/PprCmmDecl.hs @@ -32,13 +32,6 @@ -- A useful example pass over Cmm is in nativeGen/MachCodeGen.hs -- -{-# OPTIONS -fno-warn-tabs #-} --- The above warning supression flag is a temporary kludge. --- While working on this module you are encouraged to remove it and --- detab the module (please do the detabbing in a separate patch). See --- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#TabsvsSpaces --- for details - module PprCmmDecl ( writeCmms, pprCmms, pprCmmGroup, pprSection, pprStatic ) @@ -124,11 +117,11 @@ pprInfoTable CmmNonInfoTable = empty pprInfoTable (CmmInfoTable { cit_lbl = lbl, cit_rep = rep , cit_prof = prof_info - , cit_srt = _srt }) + , cit_srt = _srt }) = vcat [ ptext (sLit "label:") <+> ppr lbl , ptext (sLit "rep:") <> ppr rep , case prof_info of - NoProfilingInfo -> empty + NoProfilingInfo -> empty ProfilingInfo ct cd -> vcat [ ptext (sLit "type:") <+> pprWord8String ct , ptext (sLit "desc: ") <> pprWord8String cd ] ] |