@@ -299,7 +299,7 @@ codeBlock = codeBlockIndented <|> codeBlockDelimited
299299
300300codeBlockDelimiter len = try $ do
301301 size <- case len of
302− Just l -> count l (char '~') >> return l
302+ Just l -> count l (char '~') >> many (char '~') >> return l
303303 Nothing -> count 3 (char '~') >> many (char '~') >>=
304304 return . (+ 3) . length
305305 many spaceChar
@@ -320,6 +320,7 @@ classAttributes = try $ do
320320codeBlockDelimited = try $ do
321321 (size, lang) <- codeBlockDelimiter Nothing
322322 contents <- manyTill anyLine (codeBlockDelimiter (Just size))
323+ blanklines
323324 return $ CodeBlock lang $ joinWithSep "\n" contents
324325
325326codeBlockIndented = do