diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-06-17 22:20:56 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-06-17 22:20:56 +0000 |
| commit | 92eb93b4d7ede4a28aff90a1697951c6aef093cf (patch) | |
| tree | a15c8846410a24b49f906f6369303873e420e624 /src/Haddock/Backends/Xhtml.hs | |
| parent | 3da5ad49bb4e18705fdf0f3428648ed425e8009b (diff) | |
remove <++> connector
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs index 167250b4..c8a64ece 100644 --- a/src/Haddock/Backends/Xhtml.hs +++ b/src/Haddock/Backends/Xhtml.hs @@ -662,15 +662,15 @@ processForMiniSynopsis mdl unicode (ExportDecl (L _loc decl0) _doc _ _insts) = case decl0 of TyClD d@(TyFamily{}) -> ppTyFamHeader True False d unicode TyClD d@(TyData{tcdTyPats = ps}) - | Nothing <- ps -> keyword "data" <++> ppTyClBinderWithVarsMini mdl d - | Just _ <- ps -> keyword "data" <++> keyword "instance" - <++> ppTyClBinderWithVarsMini mdl d + | Nothing <- ps -> keyword "data" <+> ppTyClBinderWithVarsMini mdl d + | Just _ <- ps -> keyword "data" <+> keyword "instance" + <+> ppTyClBinderWithVarsMini mdl d TyClD d@(TySynonym{tcdTyPats = ps}) - | Nothing <- ps -> keyword "type" <++> ppTyClBinderWithVarsMini mdl d - | Just _ <- ps -> keyword "type" <++> keyword "instance" - <++> ppTyClBinderWithVarsMini mdl d + | Nothing <- ps -> keyword "type" <+> ppTyClBinderWithVarsMini mdl d + | Just _ <- ps -> keyword "type" <+> keyword "instance" + <+> ppTyClBinderWithVarsMini mdl d TyClD d@(ClassDecl {}) -> - keyword "class" <++> ppTyClBinderWithVarsMini mdl d + keyword "class" <+> ppTyClBinderWithVarsMini mdl d SigD (TypeSig (L _ n) (L _ _)) -> let nm = docNameOcc n in ppNameMini mdl nm |