@@ -230,7 +230,7 @@ block = do
230230 st <- getState
231231 choice (if stateStrict st
232232 then [ header
233− , codeBlock
233+ , codeBlockIndented
234234 , blockQuote
235235 , hrule
236236 , bulletList
@@ -239,9 +239,10 @@ block = do
239239 , para
240240 , plain
241241 , nullBlock ]
242− else [ header
242+ else [ codeBlockDelimited
243+ , header
243244 , table
244− , codeBlock
245+ , codeBlockIndented
245246 , blockQuote
246247 , hrule
247248 , bulletList
@@ -295,8 +296,6 @@ hrule = try $ do
295296
296297indentedLine = indentSpaces >> manyTill anyChar newline >>= return . (++ "\n")
297298
298−codeBlock = codeBlockIndented <|> codeBlockDelimited
299−
300299codeBlockDelimiter len = try $ do
301300 size <- case len of
302301 Just l -> count l (char '~') >> many (char '~') >> return l