@@ -281,15 +281,11 @@ indentedLine indents = try $ do
281281 return $ result ++ "\n"
282282
283283-- two or more indented lines, possibly separated by blank lines.
284−-- if variable = True, then any indent will work, but it must be
285−-- consistent through the block.
286−-- if variable = False, indent should be one tab or equivalent in spaces.
287−indentedBlock variable = try $ do
284+-- any amount of indentation will work.
285+indentedBlock = try $ do
288286 state <- getState
289287 let tabStop = stateTabStop state
290− indents <- if variable
291− then many1 (oneOf " \t")
292− else oneOfStrings ["\t", (replicate tabStop ' ')]
288+ indents <- many1 (oneOf " \t")
293289 firstline <- manyTill anyChar newline
294290 rest <- many (choice [ indentedLine indents,
295291 try (do b <- blanklines
@@ -300,8 +296,7 @@ indentedBlock variable = try $ do
300296
301297codeBlock = try $ do
302298 codeBlockStart
303− result <- indentedBlock False
304− -- the False means we want one tab stop indent on each line
299+ result <- indentedBlock
305300 return $ CodeBlock $ stripTrailingNewlines result
306301
307302--
@@ -309,7 +304,7 @@ codeBlock = try $ do
309304--
310305
311306rawHtmlBlock = try $ string ".. raw:: html" >> blanklines >>
312− indentedBlock True >>= return . RawHtml
307+ indentedBlock >>= return . RawHtml
313308
314309--
315310-- raw latex
@@ -318,7 +313,7 @@ rawHtmlBlock = try $ string ".. raw:: html" >> blanklines >>
318313rawLaTeXBlock = try $ do
319314 string ".. raw:: latex"
320315 blanklines
321− result <- indentedBlock True
316+ result <- indentedBlock
322317 return $ Para [(TeX result)]
323318
324319--
@@ -326,7 +321,7 @@ rawLaTeXBlock = try $ do
326321--
327322
328323blockQuote = do
329− raw <- indentedBlock True
324+ raw <- indentedBlock
330325 -- parse the extracted block, which may contain various block elements:
331326 contents <- parseFromString parseBlocks $ raw ++ "\n\n"
332327 return $ BlockQuote contents
@@ -339,7 +334,7 @@ list = choice [ bulletList, orderedList, definitionList ] <?> "list"
339334
340335definitionListItem = try $ do
341336 term <- many1Till inline endline
342− raw <- indentedBlock True
337+ raw <- indentedBlock
343338 -- parse the extracted block, which may contain various block elements:
344339 contents <- parseFromString parseBlocks $ raw ++ "\n\n"
345340 return (normalizeSpaces term, contents)