squash with previous

lehins · Nov 14, 2019 · bb8f817 · bb8f817
1 parent 2736a8f
commit bb8f817
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/massiv-bench/bench/Append.hs b/massiv-bench/bench/Append.hs
@@ -19,6 +19,7 @@ main = do
     , bgroup
         "Monoid"
         [ bench "mappend" $ whnf (\a -> A.computeAs P (toLoadArray a <> toLoadArray a)) arr
+        , bench "appendDL" $ whnfIO (A.computeAs P <$> appendDL (toLoadArray arr) (toLoadArray arr))
         , bench "mconcat" $ whnf (\a -> A.computeAs P (mconcat [toLoadArray a, toLoadArray a])) arr
         ]
     , bgroup