diff options
author | Iavor S. Diatchki <iavor.diatchki@gmail.com> | 2012-03-19 20:12:18 -0700 |
---|---|---|
committer | Iavor S. Diatchki <iavor.diatchki@gmail.com> | 2012-03-19 20:12:18 -0700 |
commit | 4604487195dbeae627f3c9f9c9f590c25b6634d4 (patch) | |
tree | 5310991c3127942d39398ee2a5f3d2755990d43e /src/Haddock/Backends | |
parent | fa5ffbd629ed466f6e1f121b805f2114e6b2bd47 (diff) | |
parent | cc86b10577d0dcecd5c86102cb601caa474d3d6a (diff) |
Merge remote-tracking branch 'origin/master' into type-nats
Diffstat (limited to 'src/Haddock/Backends')
-rw-r--r-- | src/Haddock/Backends/Xhtml/Decl.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Xhtml/Decl.hs b/src/Haddock/Backends/Xhtml/Decl.hs index adb1d598..94753f23 100644 --- a/src/Haddock/Backends/Xhtml/Decl.hs +++ b/src/Haddock/Backends/Xhtml/Decl.hs @@ -164,7 +164,7 @@ ppTyFamHeader summary associated decl unicode qual = ppTyClBinderWithVars summary decl <+> case tcdKindSig decl of - Just kind -> dcolon unicode <+> ppLKind unicode qual kind + Just (HsBSig kind _) -> dcolon unicode <+> ppLKind unicode qual kind Nothing -> noHtml |