diff options
| -rw-r--r-- | src/HaddockHtml.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs index 062b29c0..f6a9bdd5 100644 --- a/src/HaddockHtml.hs +++ b/src/HaddockHtml.hs @@ -758,11 +758,12 @@ ppFunSig summary nm ty0 doc -- ---------------------------------------------------------------------------- -- Types and contexts -ppHsAsst :: (HsQName,[HsType]) -> Html +ppHsAsst :: HsAsst -> Html ppHsAsst (c,args) = ppHsQName c <+> hsep (map ppHsAType args) ppHsContext :: HsContext -> Html ppHsContext [] = empty +ppHsContext [asst] = ppHsAsst asst ppHsContext context = parenList (map ppHsAsst context) ppHsForAll :: Maybe [HsName] -> HsContext -> Html |