diff options
Diffstat (limited to 'src/Haddock/Interface.hs')
| -rw-r--r-- | src/Haddock/Interface.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs index 51d8de2c..8b8d703d 100644 --- a/src/Haddock/Interface.hs +++ b/src/Haddock/Interface.hs @@ -50,7 +50,8 @@ createInterfaces modules externalLinks flags = (interfaces, homeLinks, messages) let interfaces' = attachInstances interfaces allNames -- part 3, rename the interfaces - interfaces'' <- mapM (renameInterface links) interfaces' + let warnings = Flag_NoWarnings `notElem` flags + interfaces'' <- mapM (renameInterface links warnings) interfaces' return (interfaces'', homeLinks) |