diff options
| author | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2009-08-23 22:12:31 +0000 |
|---|---|---|
| committer | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2009-08-23 22:12:31 +0000 |
| commit | b63d922deaea36f4652f55a470b416cb740cccf0 (patch) | |
| tree | 99127627f05e060f6511d09323df0dc73cb1794f /src/Haddock | |
| parent | 6653db5cc160b7d2f65583a7d73050194c0d4d5c (diff) | |
Haddock.Interface.Rename: eliminate warnings
Diffstat (limited to 'src/Haddock')
| -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) |