aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
authorIsaac Dupree <id@isaac.cedarswampstudios.org>2009-08-23 22:12:31 +0000
committerIsaac Dupree <id@isaac.cedarswampstudios.org>2009-08-23 22:12:31 +0000
commitb63d922deaea36f4652f55a470b416cb740cccf0 (patch)
tree99127627f05e060f6511d09323df0dc73cb1794f /src/Haddock
parent6653db5cc160b7d2f65583a7d73050194c0d4d5c (diff)
Haddock.Interface.Rename: eliminate warnings
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/Interface/Rename.hs3
1 files changed, 2 insertions, 1 deletions
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)