From f4377331e30be3c4230949ca56711a15568f3c28 Mon Sep 17 00:00:00 2001 From: David Waern Date: Fri, 22 Jan 2010 22:11:17 +0000 Subject: Remove unnecessary (and inexplicable) uses of nub --- src/Haddock/Interface/Create.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') 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) ] -- cgit v1.2.3