@@ -54,7 +54,7 @@ import Text.Pandoc.Definition
5454import Text.Pandoc.Builder (Inlines, Blocks, trimInlines)
5555import qualified Text.Pandoc.Builder as B
5656import Text.Pandoc.Options
57−import Text.Pandoc.Parsing
57+import Text.Pandoc.Parsing
5858import Text.Pandoc.Readers.HTML ( htmlTag, isInlineTag, isBlockTag )
5959import Text.Pandoc.Readers.LaTeX ( rawLaTeXInline, rawLaTeXBlock )
6060import Text.HTML.TagSoup (parseTags, innerText, fromAttrib, Tag(..))
@@ -225,7 +225,7 @@ bulletListAtDepth depth = try $ B.bulletList <$> many1 (bulletListItemAtDepth d
225225
226226-- | Bullet List Item of given depth, depth being the number of
227227-- leading '*'
228−bulletListItemAtDepth :: Int -> Parser [Char] ParserState Blocks
228+bulletListItemAtDepth :: Int -> Parser [Char] ParserState Blocks
229229bulletListItemAtDepth = genericListItemAtDepth '*'
230230
231231-- | Ordered List of given depth, depth being the number of
@@ -237,7 +237,7 @@ orderedListAtDepth depth = try $ do
237237
238238-- | Ordered List Item of given depth, depth being the number of
239239-- leading '#'
240−orderedListItemAtDepth :: Int -> Parser [Char] ParserState Blocks
240+orderedListItemAtDepth :: Int -> Parser [Char] ParserState Blocks
241241orderedListItemAtDepth = genericListItemAtDepth '#'
242242
243243-- | Common implementation of list items
@@ -274,7 +274,7 @@ definitionListItem = try $ do
274274 where inlineDef :: Parser [Char] ParserState [Blocks]
275275 inlineDef = liftM (\d -> [B.plain d])
276276 $ optional whitespace >> (trimInlines . mconcat <$> many listInline) <* newline
277− multilineDef :: Parser [Char] ParserState [Blocks]
277+ multilineDef :: Parser [Char] ParserState [Blocks]
278278 multilineDef = try $ do
279279 optional whitespace >> newline
280280 s <- many1Till anyChar (try (string "=:" >> newline))
@@ -596,7 +596,7 @@ surrounded border = enclosed (border *> notFollowedBy (oneOf " \t\n\r")) (try bo
596596simpleInline :: Parser [Char] ParserState t -- ^ surrounding parser
597597 -> (Inlines -> Inlines) -- ^ Inline constructor
598598 -> Parser [Char] ParserState Inlines -- ^ content parser (to be used repeatedly)
599−simpleInline border construct = groupedSimpleInline border construct <|> ungroupedSimpleInline border construct
599+simpleInline border construct = groupedSimpleInline border construct <|> ungroupedSimpleInline border construct
600600
601601ungroupedSimpleInline :: Parser [Char] ParserState t -- ^ surrounding parser
602602 -> (Inlines -> Inlines) -- ^ Inline constructor
@@ -605,27 +605,27 @@ ungroupedSimpleInline border construct = try $ do
605605 st <- getState
606606 pos <- getPosition
607607 isWhitespace <- option False (whitespace >> return True)
608− guard $ (stateQuoteContext st /= NoQuote)
609− || (sourceColumn pos == 1)
608+ guard $ (stateQuoteContext st /= NoQuote)
609+ || (sourceColumn pos == 1)
610610 || isWhitespace
611611 body <- surrounded border inlineWithAttribute
612612 lookAhead (notFollowedBy alphaNum)
613− let result = construct $ mconcat body
614− return $ if isWhitespace then B.space <> result
613+ let result = construct $ mconcat body
614+ return $ if isWhitespace then B.space <> result
615615 else result
616− where
617− inlineWithAttribute = (try $ optional attributes) >> notFollowedBy (string "\n\n")
616+ where
617+ inlineWithAttribute = (try $ optional attributes) >> notFollowedBy (string "\n\n")
618618 >> (withQuoteContext InSingleQuote inline)
619619
620620
621−groupedSimpleInline :: Parser [Char] ParserState t
621+groupedSimpleInline :: Parser [Char] ParserState t
622622 -> (Inlines -> Inlines)
623− -> Parser [Char] ParserState Inlines
623+ -> Parser [Char] ParserState Inlines
624624groupedSimpleInline border construct = try $ do
625− char '['
625+ char '['
626626 withQuoteContext InSingleQuote (simpleInline border construct) >>~ char ']'
627627
628−
628+
629629
630630
631631-- | Create a singleton list