@@ -1109,12 +1109,10 @@ equation e constructor =
11091109 $ filterChildren childPredicate e
11101110 )
11111111
1112−-- | Get the actual text stored in a verbatim CData block. 'showContent'
1112+-- | Get the actual text stored in a CData block. 'showContent'
11131113-- returns the text still surrounded by the [[CDATA]] tags.
1114−--
1115−-- Returns 'showContent' if this is not a verbatim CData
11161114showVerbatimCData :: Content -> String
1117−showVerbatimCData (Text (CData CDataVerbatim d _)) = d
1115+showVerbatimCData (Text (CData _ d _)) = d
11181116showVerbatimCData c = showContent c
11191117
11201118-- | Set the prefix of a name to 'Nothing'