diff options
| -rw-r--r-- | src/Haddock/Interface/Rename.hs | 3 |
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) |