b8bd845 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Add a needed try.

b8bd845John MacFarlane7 years ago

src/Text/Pandoc/Readers/Markdown.hs+3−2

@@ -618,7 +618,7 @@ rawAttribute = do

618 char '{'

619 skipMany spaceChar

620 char '='

621− format <- many1Char $ satisfy (\c -> isAlphaNum c || c `elem` ['-', '_'])

621+ format <- many1Char $ satisfy (\c -> isAlphaNum c || c `elem` ['-', '_'])

622 skipMany spaceChar

623 char '}'

624 return format

@@ -1095,7 +1095,8 @@ rawHtmlBlocks = do

1095 oldInHtmlBlock <- stateInHtmlBlock <$> getState

1096 updateState $ \st -> st{ stateInHtmlBlock = Just tagtype }

1097 let closer = htmlTag (\x -> x ~== TagClose tagtype)

1098+ let block' = try $

1098− let block' = do notFollowedBy' closer

1099+ do notFollowedBy' closer

1099 gobbleAtMostSpaces indentlevel

1100 gobbleAtMostSpaces indentlevel

1100 block

1101 block

1101 contents <- mconcat <$> many block'

1102 contents <- mconcat <$> many block'