From b63d922deaea36f4652f55a470b416cb740cccf0 Mon Sep 17 00:00:00 2001 From: Isaac Dupree Date: Sun, 23 Aug 2009 22:12:31 +0000 Subject: Haddock.Interface.Rename: eliminate warnings --- src/Haddock/Interface/Rename.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Haddock') diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index 0caf79ba..5eac9e67 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -157,10 +157,11 @@ renameLDocHsSyn = return #else renameLDocHsSyn :: LHsDoc Name -> RnM (LHsDoc DocName) renameLDocHsSyn = renameLDoc -#endif +-- This is inside the #if to avoid a defined-but-not-used warning. renameLDoc :: LHsDoc Name -> RnM (LHsDoc DocName) renameLDoc = mapM renameDoc +#endif renameDoc :: HsDoc Name -> RnM (HsDoc DocName) -- cgit v1.2.3