Replace repeat' and take' with `replicate' once more

2017-05-12 11:55:45 +03:00 · 2017-05-12 11:55:45 +03:00 · 2a291e437a
commit 2a291e437a
parent c14c8a1a68
1 changed files with 1 additions and 1 deletions
--- 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