diff options
| author | David Waern <david.waern@gmail.com> | 2009-04-01 20:48:42 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2009-04-01 20:48:42 +0000 |
| commit | 488fd5ef7762202b3c050442bc43fc32e02db046 (patch) | |
| tree | 16da12dec857f36735f0e330e8572eb238394812 /src/Haddock/Interface/Create.hs | |
| parent | 186015255cf4336047d8d32be94146f3fb57f631 (diff) | |
hlint police
Diffstat (limited to 'src/Haddock/Interface/Create.hs')
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs index 21304c4e..e5beffd1 100644 --- a/src/Haddock/Interface/Create.hs +++ b/src/Haddock/Interface/Create.hs @@ -239,9 +239,8 @@ warnAboutFilteredDecls mdl decls = do let instances = nub [ pretty i | (L _ (InstD (InstDecl i _ _ ats)), _, _) <- decls , not (null ats) ] - when (not $ null instances) $ - - tell $ nub $ [ + unless (null instances) $ + tell $ nub [ "Warning: " ++ modStr ++ ": We do not support associated types in instances yet. " ++ "These instances are affected:\n" ++ (concat $ intersperse ", " instances) ] |