From 06b544360e8ba61081070409d39e4f9ca5bcebcd Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sat, 9 Feb 2008 03:20:02 +0000
Subject: Factored codeBlock into separate codeBlockIndented and
codeBlockDelimited. Do not use codeBlockDelimited in strict mode.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1211 788f1e2b-df1e-0410-8736-df70ead52e1b
---
Text/Pandoc/Readers/Markdown.hs | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
(limited to 'Text')
diff --git a/Text/Pandoc/Readers/Markdown.hs b/Text/Pandoc/Readers/Markdown.hs
index 7ac78f2af..e6f09f97a 100644
--- a/Text/Pandoc/Readers/Markdown.hs
+++ b/Text/Pandoc/Readers/Markdown.hs
@@ -230,7 +230,7 @@ block = do
st <- getState
choice (if stateStrict st
then [ header
- , codeBlock
+ , codeBlockIndented
, blockQuote
, hrule
, bulletList
@@ -239,9 +239,10 @@ block = do
, para
, plain
, nullBlock ]
- else [ header
+ else [ codeBlockDelimited
+ , header
, table
- , codeBlock
+ , codeBlockIndented
, blockQuote
, hrule
, bulletList
@@ -295,8 +296,6 @@ hrule = try $ do
indentedLine = indentSpaces >> manyTill anyChar newline >>= return . (++ "\n")
-codeBlock = codeBlockIndented <|> codeBlockDelimited
-
codeBlockDelimiter len = try $ do
size <- case len of
Just l -> count l (char '~') >> many (char '~') >> return l
--
cgit v1.2.3