Replace `repeat' and `take' with `replicate'
commitc14c8a1a680447827629b5f332b67d955368715d
authorAlexander Krotov <ilabdsf@gmail.com>
dateFri 12 May 2017, 03:48 (9 years ago)
parent4b9fb7a
test/Tests/Readers/Org.hs+1−1
@@ -26,7 +26,7 @@ simpleTable' :: Int
2626 -> [Blocks]
2727 -> [[Blocks]]
2828 -> Blocks
29−simpleTable' n = table "" (take n $ repeat (AlignDefault, 0.0))
29+simpleTable' n = table "" (replicate n (AlignDefault, 0.0))
3030
3131tests :: [TestTree]
3232tests =