diff options
| author | Neil Mitchell <unknown> | 2008-06-26 14:56:41 +0000 |
|---|---|---|
| committer | Neil Mitchell <unknown> | 2008-06-26 14:56:41 +0000 |
| commit | 14c67ac66abf15a623d0f1d14cf5d20462859ebe (patch) | |
| tree | 641759f2b0e3b8d957d0821097987c7fc3ba43ae /src | |
| parent | 19d9fb3b034b69e0d58da8030bcf20bd1032281b (diff) | |
Fix a bug in the Hoogle backend, unordered lists were being written out <ul>...</u>
Diffstat (limited to 'src')
| -rw-r--r-- | src/Haddock/Backends/Hoogle.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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] |