From 14c67ac66abf15a623d0f1d14cf5d20462859ebe Mon Sep 17 00:00:00 2001
From: Neil Mitchell <unknown>
Date: Thu, 26 Jun 2008 14:56:41 +0000
Subject: Fix a bug in the Hoogle backend, unordered lists were being written
 out <ul>...</u>

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

(limited to 'src')

diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs
index 9459e59d..2cfdcf64 100644
--- a/src/Haddock/Backends/Hoogle.hs
+++ b/src/Haddock/Backends/Hoogle.hs
@@ -190,7 +190,7 @@ showTags = concat . intersperse [""] . map showBlock
 
 showBlock :: Tag -> [String]
 showBlock (TagP xs) = showInline xs
-showBlock (TagL t xs) = ['<':t:"l>"] ++ mid ++ ['<':'/':t:">"]
+showBlock (TagL t xs) = ['<':t:"l>"] ++ mid ++ ['<':'/':t:"l>"]
     where mid = concatMap (showInline . box (TagInline "li")) xs
 showBlock (TagPre xs) = ["<pre>"] ++ showPre xs ++ ["</pre>"]
 showBlock x = showInline [x]
-- 
cgit v1.2.3