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