diff options
| -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 ] ] |