diff options
Diffstat (limited to 'ghc/compiler/codeGen/SMRep.lhs')
| -rw-r--r-- | ghc/compiler/codeGen/SMRep.lhs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/ghc/compiler/codeGen/SMRep.lhs b/ghc/compiler/codeGen/SMRep.lhs index 7c46adff06..78934e8668 100644 --- a/ghc/compiler/codeGen/SMRep.lhs +++ b/ghc/compiler/codeGen/SMRep.lhs @@ -19,8 +19,11 @@ module SMRep ( IMP_Ubiq(){-uitous-} -import Pretty ( ppStr ) +import Pretty ( text ) import Util ( panic ) +#if __GLASGOW_HASKELL__ >= 202 +import Outputable +#endif \end{code} %************************************************************************ @@ -218,7 +221,7 @@ instance Text SMRep where MuTupleRep _ -> "MUTUPLE") instance Outputable SMRep where - ppr sty rep = ppStr (show rep) + ppr sty rep = text (show rep) getSMInfoStr :: SMRep -> String getSMInfoStr (StaticRep _ _) = "STATIC" |