From 34a994d64a3e1efd1fc4342202b55cfa99268de7 Mon Sep 17 00:00:00 2001 From: "sven.panne" Date: Thu, 20 Apr 2006 12:39:23 +0000 Subject: Avoid pattern guards Due to the use of pattern guards in Haddock, GHC was called with -fglasgow-exts. This in turn enables bang patterns, too, which broke the Haddock build. Removing some unnecessary pattern guards seemed to be the better way of fixing this instead of using a pragma to disable pattern guards. --- src/HaddockHtml.hs | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) (limited to 'src/HaddockHtml.hs') diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs index c8561491..5c6bd892 100644 --- a/src/HaddockHtml.hs +++ b/src/HaddockHtml.hs @@ -554,11 +554,10 @@ ifaceToHtml maybe_source_url maybe_wiki_url iface contents = td << vanillaTable << ppModuleContents exports description - | Just doc <- iface_doc iface - = (tda [theclass "section1"] << toHtml "Description") - docBox (docToHtml doc) - | otherwise - = Html.emptyTable + = case iface_doc iface of + Nothing -> Html.emptyTable + Just doc -> (tda [theclass "section1"] << toHtml "Description") + docBox (docToHtml doc) -- omit the synopsis if there are no documentation annotations at all synopsis @@ -910,9 +909,9 @@ ppHsClassDecl summary links instances orig_c hdr = ppClassHdr summary ctxt nm tvs fds - classdoc - | Just d <- doc = ndocBox (docToHtml d) - | otherwise = Html.emptyTable + classdoc = case doc of + Nothing -> Html.emptyTable + Just d -> ndocBox (docToHtml d) methods_bit | null decls = Html.emptyTable @@ -1057,9 +1056,9 @@ ppHsQName n@(Qual mdl str) | otherwise = linkId mdl (Just str) << ppHsName str isSpecial :: HsName -> Bool -isSpecial (HsTyClsName id0) | HsSpecial _ <- id0 = True -isSpecial (HsVarName id0) | HsSpecial _ <- id0 = True -isSpecial _ = False +isSpecial (HsTyClsName (HsSpecial _)) = True +isSpecial (HsVarName (HsSpecial _)) = True +isSpecial _ = False ppHsName :: HsName -> Html ppHsName nm = toHtml (hsNameStr nm) -- cgit v1.2.3