diff options
| author | David Waern <david.waern@gmail.com> | 2010-01-22 22:11:17 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-01-22 22:11:17 +0000 |
| commit | f4377331e30be3c4230949ca56711a15568f3c28 (patch) | |
| tree | b3808531648ce7bba53692eeb7edcd25dd76876c /src | |
| parent | a3ffc220d837a281edef407537d097a38225eaf5 (diff) | |
Remove unnecessary (and inexplicable) uses of nub
Diffstat (limited to 'src')
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 4 |
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) ] |