diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index 84d68f2e21ef117906f8e15ad5fe0ba718cb429e..65cc8ee260ab50e9d07550909daef428e2c99953 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -1016,7 +1016,7 @@ ppConstrHdr :: HsExplicitForAll -> [Name] -> HsContext DocName -> Html
 ppConstrHdr forall tvs ctxt
  = (if null tvs then noHtml else ppForall)
    +++
-   (if null ctxt then noHtml else ppContext ctxt <+> toHtml "=> ")
+   (if null ctxt then noHtml else ppContextNoArrow ctxt <+> toHtml "=> ")
   where
     ppForall = case forall of 
       Explicit -> keyword "forall" <+> hsep (map ppName tvs) <+> toHtml ". "