DocBook reader: computeroutput is an inline tag, not block.

This commit is contained in:
John MacFarlane 2012-05-12 11:21:23 -07:00
parent 0233dfaa89
commit 89fa0e4a08

View file

@ -557,7 +557,7 @@ isBlockElement (Elem e) = qName (elName e) `elem` blocktags
"important","caution","note","tip","warning","qandadiv",
"question","answer","abstract","itemizedlist","orderedlist",
"variablelist","article","book","table","informaltable",
"computeroutput","screen","programlisting"]
"screen","programlisting"]
isBlockElement _ = False
-- Trim leading and trailing newline characters
@ -697,7 +697,6 @@ parseBlock (Elem e) =
"table" -> parseTable
"informaltable" -> parseTable
"literallayout" -> codeBlockWithLang ["literallayout"]
"computeroutput" -> codeBlockWithLang ["computeroutput"]
"screen" -> codeBlockWithLang ["screen"]
"programlisting" -> codeBlockWithLang []
"?xml" -> return mempty
@ -842,6 +841,7 @@ parseInline (Elem e) =
"code" -> codeWithLang []
"filename" -> codeWithLang ["filename"]
"literal" -> codeWithLang []
"computeroutput" -> codeWithLang ["computeroutput"]
"prompt" -> codeWithLang ["prompt"]
"parameter" -> codeWithLang ["parameter"]
"option" -> codeWithLang ["option"]