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