diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-05-12 11:55:45 +0300 |
|---|---|---|
| committer | Albert Krewinkel <albert+github@zeitkraut.de> | 2017-05-12 16:31:57 +0200 |
| commit | 2a291e437a18073e0005447245809833ce46ae5c (patch) | |
| tree | 13625f53d7953b4463fe0385be12e65e306c329b /src/Text/Pandoc/Readers/Org | |
| parent | c14c8a1a680447827629b5f332b67d955368715d (diff) | |
| download | pandoc-2a291e437a18073e0005447245809833ce46ae5c.tar.gz | |
Replace `repeat' and `take' with `replicate' once more
Diffstat (limited to 'src/Text/Pandoc/Readers/Org')
| -rw-r--r-- | src/Text/Pandoc/Readers/Org/Blocks.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Org/Blocks.hs b/src/Text/Pandoc/Readers/Org/Blocks.hs index 89c076869..788ec26dc 100644 --- a/src/Text/Pandoc/Readers/Org/Blocks.hs +++ b/src/Text/Pandoc/Readers/Org/Blocks.hs @@ -442,7 +442,7 @@ rawBlockContent blockType = try $ do tabsToSpaces tabLen cs'@(c:cs) = case c of ' ' -> ' ':tabsToSpaces tabLen cs - '\t' -> (take tabLen $ repeat ' ') ++ tabsToSpaces tabLen cs + '\t' -> replicate tabLen ' ' ++ tabsToSpaces tabLen cs _ -> cs' commaEscaped :: String -> String |