diff options
| author | simonmar <unknown> | 2002-04-29 15:55:46 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-04-29 15:55:46 +0000 |
| commit | db88f8a24955a64ff0fb487c49da349fd146b82f (patch) | |
| tree | 21921b8b4ce95f434d1b9202768b421e614e48d7 | |
| parent | 8a2c254915bac88a60f89fd6da8984b77a88da51 (diff) | |
[haddock @ 2002-04-29 15:55:46 by simonmar]
remove a trace
| -rw-r--r-- | src/HaddockHtml.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs index 06ff5db2..5059070e 100644 --- a/src/HaddockHtml.hs +++ b/src/HaddockHtml.hs @@ -17,7 +17,7 @@ import FiniteMap import List ( sortBy ) import Char ( toUpper, toLower ) import Monad ( when ) -import IOExts +--import IOExts import Html import qualified Html @@ -521,7 +521,7 @@ ppHsDataDecl doc_map summary is_newty decl@(HsDataDecl loc ctx nm args cons drv) = isNothing (lookupFM doc_map nm) && all field_has_no_doc fields field_has_no_doc (HsFieldDecl nms _ _) - = trace (show nms ++ show (map (isNothing . lookupFM doc_map) nms)) $ all isNothing (map (lookupFM doc_map) nms) + = all isNothing (map (lookupFM doc_map) nms) ppShortConstr :: Bool -> HsConDecl -> Html |