@@ -211,7 +211,7 @@ List of all DocBook tags, with [x] indicating implemented:
211211 ancestors
212212[ ] lineannotation - A comment on a line in a verbatim listing
213213[x] link - A hypertext link
214−[ ] listitem - A wrapper for the elements of a list item
214+[x] listitem - A wrapper for the elements of a list item
215215[x] literal - Inline text that is some literal value
216216[ ] literallayout - A block of text in which line breaks and white space are
217217 to be reproduced faithfully
@@ -631,7 +631,7 @@ parseInline (Elem e) =
631631 "userinput" -> return $ codeWith ("",["userinput"],[]) $ strContent e
632632 "varargs" -> return $ str "(…)"
633633 "ulink" -> link (attrValue "url" e) "" <$> innerInlines
634− "link" -> case findAttr (QName "href" Nothing $ Just "xlink") e of
634+ "link" -> case findAttr (QName "href" (Just "http://www.w3.org/1999/xlink") Nothing) e of
635635 Just href -> link href "" <$> innerInlines
636636 _ -> link ('#' : attrValue "linkend" e) ""
637637 <$> innerInlines