From fba37778cd3eb564c83f1a35e922b8a0a9f111ea Mon Sep 17 00:00:00 2001 From: David Waern Date: Sat, 28 Nov 2009 20:15:30 +0000 Subject: Rename HsDoc back into Doc --- src/Haddock/Interface/Rn.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Haddock/Interface/Rn.hs') diff --git a/src/Haddock/Interface/Rn.hs b/src/Haddock/Interface/Rn.hs index c45b5042..5127e49b 100644 --- a/src/Haddock/Interface/Rn.hs +++ b/src/Haddock/Interface/Rn.hs @@ -1,5 +1,5 @@ -module Haddock.Interface.Rn ( rnHsDoc, rnHaddockModInfo ) where +module Haddock.Interface.Rn ( rnDoc, rnHaddockModInfo ) where import Haddock.Types @@ -11,7 +11,7 @@ import Outputable ( ppr, defaultUserStyle ) rnHaddockModInfo :: GlobalRdrEnv -> HaddockModInfo RdrName -> HaddockModInfo Name rnHaddockModInfo gre (HaddockModInfo desc port stab maint) = - HaddockModInfo (fmap (rnHsDoc gre) desc) port stab maint + HaddockModInfo (fmap (rnDoc gre) desc) port stab maint ids2string :: [RdrName] -> String ids2string [] = [] @@ -20,8 +20,8 @@ ids2string (x:_) = show $ ppr x defaultUserStyle data Id x = Id {unId::x} instance Monad Id where (Id v)>>=f = f v; return = Id -rnHsDoc :: GlobalRdrEnv -> HsDoc RdrName -> HsDoc Name -rnHsDoc gre = unId . do_rn +rnDoc :: GlobalRdrEnv -> Doc RdrName -> Doc Name +rnDoc gre = unId . do_rn where do_rn doc_to_rn = case doc_to_rn of -- cgit v1.2.3