conj using mapVector

1 files changed, 1 insertions, 1 deletions

diff --git a/examples/benchmarks.hs b/examples/benchmarks.hs
index 0e95851..bffa221 100644
--- a/examples/benchmarks.hs
+++ b/examples/benchmarks.hs
@@ -45,6 +45,7 @@ bench1 = do
     putStrLn "constant 5M:"
     time $ print $ constant (1::Double) 5000001 @> 7
     time $ print $ constant           i 5000001 @> 7
+    time $ print $ conj (constant i 5000001) @> 7
 
 sumVH v = go (d - 1) 0
      where
@@ -64,7 +65,6 @@ innerH u v = go (d - 1) 0
 -- sumVector = foldVectorG (\k v s -> v k + s) 0.0
 sumVector = foldVector (+) 0.0
 
-
 --------------------------------------------------------------------------------
 
 bench2 = do