9857aa8 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

HTML reader: Fixed detection of self-closing tags.

9857aa8John MacFarlane11 years ago

src/Text/Pandoc/Parsing.hs+1−1

@@ -1206,7 +1206,7 @@ citeKey = try $ do

1206 guard =<< notAfterString

1207 suppress_author <- option False (char '-' *> return True)

1208 char '@'

1209− firstChar <- alphaNum <|> char '_'

1209+ firstChar <- alphaNum <|> char '_' <|> char '*' -- @* for wildcard in nocite

1210 let regchar = satisfy (\c -> isAlphaNum c || c == '_')

1211 let internal p = try $ p <* lookAhead regchar

1212 rest <- many $ regchar <|> internal (oneOf ":.#$%&-+?<>~/")

src/Text/Pandoc/Readers/HTML.hs+2−2

@@ -51,7 +51,7 @@ import Text.Pandoc.Options (ReaderOptions(readerParseRaw, readerTrace)

51import Text.Pandoc.Parsing hiding ((<|>))

52import Text.Pandoc.Walk

53import Data.Maybe ( fromMaybe, isJust)

54−import Data.List ( intercalate, isInfixOf, isPrefixOf )

54+import Data.List ( intercalate, isInfixOf, isPrefixOf, isSuffixOf )

55import Data.Char ( isDigit )

56import Control.Monad ( liftM, guard, when, mzero, void, unless )

57import Control.Arrow ((***))

@@ -874,7 +874,7 @@ htmlInBalanced :: (Monad m)

874 -> ParserT String st m String

875htmlInBalanced f = try $ do

876 (TagOpen t _, tag) <- htmlTag f

877− guard $ '/' `notElem` tag -- not a self-closing tag

877+ guard $ not $ "/>" `isSuffixOf` tag -- not a self-closing tag

878 let stopper = htmlTag (~== TagClose t)

879 let anytag = snd <$> htmlTag (const True)

880 contents <- many $ notFollowedBy' stopper >>