aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface
diff options
context:
space:
mode:
Diffstat (limited to 'src/Haddock/Interface')
-rw-r--r--src/Haddock/Interface/Create.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index 4b82f4c0..5f4c5b5b 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -299,7 +299,7 @@ warnAboutFilteredDecls mdl decls = do
nub [ tcdName d | (L _ (TyClD d), _, _) <- decls, isFamInstDecl d ]
unless (null typeInstances) $
- tell $ nub [
+ tell [
"Warning: " ++ modStr ++ ": Instances of type and data "
++ "families are not yet supported. Instances of the following families "
++ "will be filtered out:\n " ++ concat (intersperse ", "
@@ -309,7 +309,7 @@ warnAboutFilteredDecls mdl decls = do
, not (null ats) ]
unless (null instances) $
- tell $ nub [
+ tell [
"Warning: " ++ modStr ++ ": We do not support associated types in instances yet. "
++ "These instances are affected:\n" ++ concat (intersperse ", " instances) ]