From e15fd3bf86f91d6c14bf9ba2e2aa7057dc51d72b Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sun, 15 Apr 2007 16:20:07 +0000 Subject: Moved escape and nullBlock parsers from ParserCombinators/Pandoc to Pandoc/Shared. Reason: ParserCombinators/Pandoc is for general-purpose parsers that don't require Pandoc.Definition. Also removed some unnecessary imports from Pandoc/Shared. git-svn-id: https://pandoc.googlecode.com/svn/trunk@584 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/ParserCombinators/Pandoc.hs | 16 ---------------- 1 file changed, 16 deletions(-) (limited to 'src/Text/ParserCombinators/Pandoc.hs') diff --git a/src/Text/ParserCombinators/Pandoc.hs b/src/Text/ParserCombinators/Pandoc.hs index a965159ed..f418e0e75 100644 --- a/src/Text/ParserCombinators/Pandoc.hs +++ b/src/Text/ParserCombinators/Pandoc.hs @@ -44,7 +44,6 @@ module Text.ParserCombinators.Pandoc ( lineClump ) where import Text.ParserCombinators.Parsec -import Text.Pandoc.Definition import Text.Pandoc.Shared import Data.Char ( toUpper, toLower ) @@ -52,13 +51,6 @@ import Data.Char ( toUpper, toLower ) anyLine :: GenParser Char st [Char] anyLine = manyTill anyChar (newline <|> (do{eof; return '\n'})) --- | Parses a character and returns 'Null' (so that the parser can move on --- if it gets stuck). -nullBlock :: GenParser Char st Block -nullBlock = do - anyChar - return Null - -- | Parses a space or tab. spaceChar :: CharParser st Char spaceChar = oneOf " \t" @@ -77,14 +69,6 @@ blankline = try (do blanklines :: GenParser Char st [Char] blanklines = try (many1 blankline) --- | Parses backslash, then applies character parser. -escaped :: GenParser Char st Char -- ^ Parser for character to escape - -> GenParser Char st Inline -escaped parser = try (do - char '\\' - result <- parser - return (Str [result])) - -- | Parses material enclosed between start and end parsers. enclosed :: GenParser Char st t -- ^ start parser -> GenParser Char st end -- ^ end parser -- cgit v1.2.3