Replace `repeat' and `take' with `replicate' once more
commit2a291e437a18073e0005447245809833ce46ae5c
authorAlexander Krotov <ilabdsf@gmail.com>
dateFri 12 May 2017, 11:55 (9 years ago)
parentc14c8a1
src/Text/Pandoc/Readers/Org/Blocks.hs+1−1
@@ -442,7 +442,7 @@ rawBlockContent blockType = try $ do
442442 tabsToSpaces tabLen cs'@(c:cs) =
443443 case c of
444444 ' ' -> ' ':tabsToSpaces tabLen cs
445− '\t' -> (take tabLen $ repeat ' ') ++ tabsToSpaces tabLen cs
445+ '\t' -> replicate tabLen ' ' ++ tabsToSpaces tabLen cs
446446 _ -> cs'
447447
448448 commaEscaped :: String -> String