aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface/Create.hs
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2010-01-22 22:11:17 +0000
committerDavid Waern <david.waern@gmail.com>2010-01-22 22:11:17 +0000
commitf4377331e30be3c4230949ca56711a15568f3c28 (patch)
treeb3808531648ce7bba53692eeb7edcd25dd76876c /src/Haddock/Interface/Create.hs
parenta3ffc220d837a281edef407537d097a38225eaf5 (diff)
Remove unnecessary (and inexplicable) uses of nub
Diffstat (limited to 'src/Haddock/Interface/Create.hs')
-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) ]