diff options
Diffstat (limited to 'src/Text/Pandoc/XML.hs')
-rw-r--r-- | src/Text/Pandoc/XML.hs | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/src/Text/Pandoc/XML.hs b/src/Text/Pandoc/XML.hs index 3f684f728..89ae81a10 100644 --- a/src/Text/Pandoc/XML.hs +++ b/src/Text/Pandoc/XML.hs @@ -27,8 +27,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Functions for escaping and formatting XML. -} -module Text.Pandoc.XML ( stripTags, - escapeCharForXML, +module Text.Pandoc.XML ( escapeCharForXML, escapeStringForXML, inTags, selfClosingTag, @@ -41,16 +40,6 @@ import Text.Pandoc.Pretty import Data.Char (ord, isAscii, isSpace) import Text.HTML.TagSoup.Entity (lookupEntity) --- | 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 |