From e6dde36622bc1f4adbd34934213cbcfb091376a2 Mon Sep 17 00:00:00 2001
From: Paul Rivier <paul.r.ml@gmail.com>
Date: Mon, 4 Oct 2010 21:00:32 +0200
Subject: removed support for textile Inserted construct

---
 src/Text/Pandoc/Readers/Textile.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'src/Text/Pandoc/Readers')

diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs
index 463ba14be..9c6e8f937 100644
--- a/src/Text/Pandoc/Readers/Textile.hs
+++ b/src/Text/Pandoc/Readers/Textile.hs
@@ -33,7 +33,7 @@ Implemented :
  - Code blocks
  - Lists
  - blockquote
- - Inlines : strong, emph, cite, code, deleted, inserted, superscript,
+ - Inlines : strong, emph, cite, code, deleted, superscript,
    subscript, links
 
 Not implemented :
@@ -250,7 +250,6 @@ inlineParsers = [ autoLink
                 , simpleInline (char '*') Strong
                 , simpleInline (char '_') Emph
                 , simpleInline (char '-') Strikeout
-                , simpleInline (char '+') Inserted
                 , simpleInline (char '^') Superscript
                 , simpleInline (char '~') Subscript
                 , link
@@ -286,7 +285,6 @@ autoLink = do
   (orig, src) <- (try uri <|> try emailAddress)
   return $ Link [Str orig] (src, "")
 
-
 -- | image embedding
 image :: GenParser Char ParserState Inline
 image = try $ do
@@ -295,7 +293,6 @@ image = try $ do
   alt <- option "" (try $ (char '(' >> manyTill anyChar (char ')')))
   char '!'
   return $ Image [Str alt] (src, alt)
-  
 
 -- | Any special symbol defined in specialChars
 symbol :: GenParser Char ParserState Inline
@@ -327,4 +324,3 @@ simpleInline border construct = surrounded border inline >>=
 --  - Pandoc Meta Information (title, author, date)
 --  - footnotes
 --  - should autolink be shared through Parsing.hs ?
---  - Inserted inline handling in writers
-- 
cgit v1.2.3