35662e1 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Removed nullBlock.

35662e1John MacFarlane14 years ago

src/Text/Pandoc/Parsing.hs−6

@@ -48,7 +48,6 @@ module Text.Pandoc.Parsing ( (>>~),

48 uri,

49 withHorizDisplacement,

50 withRaw,

51− nullBlock,

52 escaped,

51 escaped,

53 characterReference,

52 characterReference,

54 updateLastStrPos,

53 updateLastStrPos,

@@ -418,11 +417,6 @@ withRaw parser = do

418 ls -> unlines (init ls) ++ take (c2 - 1) (last ls)

417 ls -> unlines (init ls) ++ take (c2 - 1) (last ls)

419 return (result, raw)

418 return (result, raw)

420

419

421−-- | Parses a character and returns 'Null' (so that the parser can move on

422−-- if it gets stuck).

423−nullBlock :: Parser [Char] st Block

424−nullBlock = anyChar >> return Null

425−

426-- | Parses backslash, then applies character parser.

420-- | Parses backslash, then applies character parser.

427escaped :: Parser [Char] st Char -- ^ Parser for character to escape

421escaped :: Parser [Char] st Char -- ^ Parser for character to escape

428 -> Parser [Char] st Char

422 -> Parser [Char] st Char

src/Text/Pandoc/Readers/Textile.hs+1−1

@@ -130,7 +130,7 @@ blockParsers = [ codeBlock

130 , rawLaTeXBlock'

131 , maybeExplicitBlock "table" table

132 , maybeExplicitBlock "p" para

133− , nullBlock ]

133+ ]

134

135-- | Any block in the order of definition of blockParsers

136block :: Parser [Char] ParserState Block