[commit: haddock2] master: Follow changes in SDoc (6df3a04)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/haddock2

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/6df3a040da3dbddee67c6e30a892f87e6b164383

>---------------------------------------------------------------

commit 6df3a040da3dbddee67c6e30a892f87e6b164383
Author: Ian Lynagh <igloo at earth.li>
Date:   Sun May 8 17:05:50 2011 +0100

    Follow changes in SDoc

>---------------------------------------------------------------

 src/Haddock/Interface/Rn.hs |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Haddock/Interface/Rn.hs b/src/Haddock/Interface/Rn.hs
index 4c040f3..6f7af90 100644
--- a/src/Haddock/Interface/Rn.hs
+++ b/src/Haddock/Interface/Rn.hs
@@ -6,7 +6,7 @@ import RnEnv       ( dataTcOccs )
 
 import RdrName     ( RdrName, gre_name, GlobalRdrEnv, lookupGRE_RdrName )
 import Name        ( Name )
-import Outputable  ( ppr, defaultUserStyle )
+import Outputable  ( ppr, showSDoc )
 
 rnHaddockModInfo :: GlobalRdrEnv -> HaddockModInfo RdrName -> HaddockModInfo Name
 rnHaddockModInfo gre (HaddockModInfo desc port stab maint) =
@@ -14,7 +14,7 @@ rnHaddockModInfo gre (HaddockModInfo desc port stab maint) =
 
 ids2string :: [RdrName] -> String
 ids2string []    = []
-ids2string (x:_) = show $ ppr x defaultUserStyle
+ids2string (x:_) = showSDoc $ ppr x
 
 data Id x = Id {unId::x}
 instance Monad Id where (Id v)>>=f = f v; return = Id