Repository : ssh://darcs.haskell.org//srv/darcs/haddock2 On branch : master
http://hackage.haskell.org/trac/ghc/changeset/6df3a040da3dbddee67c6e30a892f87e6b164383 >--------------------------------------------------------------- commit 6df3a040da3dbddee67c6e30a892f87e6b164383 Author: Ian Lynagh <[email protected]> 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
