@@ -226,17 +226,32 @@ noteBlock = try $ do
226226
227227parseBlocks = manyTill block eof
228228
229−block = choice [ header
230− , table
231− , codeBlock
232− , hrule
233− , list
234− , blockQuote
235− , rawLaTeXEnvironment'
236− , para
237− , htmlBlock
238− , plain
239− , nullBlock ] <?> "block"
229+block = do
230+ st <- getState
231+ choice (if stateStrict st
232+ then [ header
233+ , codeBlock
234+ , hrule
235+ , bulletList
236+ , orderedList
237+ , blockQuote
238+ , htmlBlock
239+ , para
240+ , plain
241+ , nullBlock ]
242+ else [ header
243+ , table
244+ , codeBlock
245+ , hrule
246+ , bulletList
247+ , orderedList
248+ , definitionList
249+ , blockQuote
250+ , rawLaTeXEnvironment
251+ , para
252+ , htmlBlock
253+ , plain
254+ , nullBlock ]) <?> "block"
240255
241256--
242257-- header blocks
@@ -314,8 +329,6 @@ blockQuote = do
314329-- list blocks
315330--
316331
317−list = choice [ bulletList, orderedList, definitionList ] <?> "list"
318−
319332bulletListStart = try $ do
320333 optional newline -- if preceded by a Plain block in a list context
321334 nonindentSpaces
@@ -434,7 +447,6 @@ defRawBlock = try $ do
434447 return $ firstline ++ "\n" ++ unlines rawlines ++ trailing
435448
436449definitionList = do
437− failIfStrict
438450 items <- many1 definitionListItem
439451 let (terms, defs) = unzip items
440452 let defs' = compactify defs
@@ -502,12 +514,6 @@ rawHtmlBlocks = do
502514 else combined
503515 return $ RawHtml combined'
504516
505−--
506−-- LaTeX
507−--
508−
509−rawLaTeXEnvironment' = failIfStrict >> rawLaTeXEnvironment
510−
511517--
512518-- Tables
513519--
@@ -629,7 +635,7 @@ alignType strLst len =
629635 (True, True) -> AlignCenter
630636 (False, False) -> AlignDefault
631637
632−table = failIfStrict >> (simpleTable <|> multilineTable) <?> "table"
638+table = simpleTable <|> multilineTable <?> "table"
633639
634640--
635641-- inline