From 0debe1ef5929401a52df3c37ffd09a57bd1c8b8a Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Thu, 24 Jul 2008 10:50:44 +0000
Subject: FIX #44: Propagate parenthesis level when printing documented types

---
 src/Haddock/Backends/Html.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Haddock/Backends')

diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index 50db3cc3..df03acae 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -1418,7 +1418,7 @@ ppr_mono_ty ctxt_prec (HsParTy ty)
   = parens (ppr_mono_lty pREC_TOP ty)
 
 ppr_mono_ty ctxt_prec (HsDocTy ty doc)
-  = ppLType ty
+  = ppr_mono_lty ctxt_prec ty
 
 ppr_fun_ty ctxt_prec ty1 ty2
   = let p1 = ppr_mono_lty pREC_FUN ty1
-- 
cgit v1.2.3