diff options
| -rw-r--r-- | src/Text/Pandoc/XML.hs | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/src/Text/Pandoc/XML.hs b/src/Text/Pandoc/XML.hs index 14e2eebbb..a5d0202e5 100644 --- a/src/Text/Pandoc/XML.hs +++ b/src/Text/Pandoc/XML.hs @@ -27,7 +27,8 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Functions for escaping and formatting XML. -} -module Text.Pandoc.XML ( escapeCharForXML, +module Text.Pandoc.XML ( stripTags, + escapeCharForXML, escapeStringForXML, inTags, selfClosingTag, @@ -35,6 +36,16 @@ module Text.Pandoc.XML ( escapeCharForXML, inTagsIndented ) where import Text.PrettyPrint.HughesPJ +-- | Remove everything between <...> +stripTags :: String -> String +stripTags ('<':xs) = + let (_,rest) = break (=='>') xs + in if null rest + then "" + else stripTags (tail rest) -- leave off > +stripTags (x:xs) = x : stripTags xs +stripTags [] = [] + -- | Escape one character as needed for XML. escapeCharForXML :: Char -> String escapeCharForXML x = case x of |