aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/Org
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2017-05-22 11:10:15 +0300
committerJohn MacFarlane <jgm@berkeley.edu>2017-05-22 10:10:15 +0200
commit30a3deadcce18dd53a79a4915d915beb815702cf (patch)
treec1cb38e60bd644a28d720b3c7ff647cad5aaea80 /src/Text/Pandoc/Readers/Org
parentaa1e39858dd0ad25fd5e0cf0e2e19182bd4f157b (diff)
downloadpandoc-30a3deadcce18dd53a79a4915d915beb815702cf.tar.gz
Move indentWith to Text.Pandoc.Parsing (#3687)
Diffstat (limited to 'src/Text/Pandoc/Readers/Org')
-rw-r--r--src/Text/Pandoc/Readers/Org/Blocks.hs9
-rw-r--r--src/Text/Pandoc/Readers/Org/Parsing.hs1
2 files changed, 1 insertions, 9 deletions
diff --git a/src/Text/Pandoc/Readers/Org/Blocks.hs b/src/Text/Pandoc/Readers/Org/Blocks.hs
index f5823c7aa..fa2f7fac5 100644
--- a/src/Text/Pandoc/Readers/Org/Blocks.hs
+++ b/src/Text/Pandoc/Readers/Org/Blocks.hs
@@ -828,12 +828,3 @@ listContinuation markerLength = try $
<*> many blankline)
where
listLine = try $ indentWith markerLength *> anyLineNewline
-
- -- indent by specified number of spaces (or equiv. tabs)
- indentWith :: Monad m => Int -> OrgParser m String
- indentWith num = do
- tabStop <- getOption readerTabStop
- if num < tabStop
- then count num (char ' ')
- else choice [ try (count num (char ' '))
- , try (char '\t' >> count (num - tabStop) (char ' ')) ]
diff --git a/src/Text/Pandoc/Readers/Org/Parsing.hs b/src/Text/Pandoc/Readers/Org/Parsing.hs
index 5c93a7eca..1d3e8c257 100644
--- a/src/Text/Pandoc/Readers/Org/Parsing.hs
+++ b/src/Text/Pandoc/Readers/Org/Parsing.hs
@@ -32,6 +32,7 @@ module Text.Pandoc.Readers.Org.Parsing
( OrgParser
, anyLine
, anyLineNewline
+ , indentWith
, blanklines
, newline
, parseFromString