aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormb21 <maurobieg@Mauros-MacBook-Air.local>2012-04-22 17:23:49 +0200
committermb21 <maurobieg@Mauros-MacBook-Air.local>2012-04-22 17:23:49 +0200
commit0005a43f14068215e2ac582828c89d6f53d3644b (patch)
tree8c951a6d2a16dbb4d43e0c847286167906c5b4d0
parent8d2baf35f164afe74809ed6d8d03150e7f4ce494 (diff)
downloadpandoc-0005a43f14068215e2ac582828c89d6f53d3644b.tar.gz
fixed xlink namespace
-rw-r--r--src/Text/Pandoc/Readers/DocBook.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs
index d0b55fcd8..3735e6dba 100644
--- a/src/Text/Pandoc/Readers/DocBook.hs
+++ b/src/Text/Pandoc/Readers/DocBook.hs
@@ -211,7 +211,7 @@ List of all DocBook tags, with [x] indicating implemented:
ancestors
[ ] lineannotation - A comment on a line in a verbatim listing
[x] link - A hypertext link
-[ ] listitem - A wrapper for the elements of a list item
+[x] listitem - A wrapper for the elements of a list item
[x] literal - Inline text that is some literal value
[ ] literallayout - A block of text in which line breaks and white space are
to be reproduced faithfully
@@ -631,7 +631,7 @@ parseInline (Elem e) =
"userinput" -> return $ codeWith ("",["userinput"],[]) $ strContent e
"varargs" -> return $ str "(…)"
"ulink" -> link (attrValue "url" e) "" <$> innerInlines
- "link" -> case findAttr (QName "href" Nothing $ Just "xlink") e of
+ "link" -> case findAttr (QName "href" (Just "http://www.w3.org/1999/xlink") Nothing) e of
Just href -> link href "" <$> innerInlines
_ -> link ('#' : attrValue "linkend" e) ""
<$> innerInlines