WIP

Author: sjakobi

benchmarks/FineGrained.hs

@@ -66,7 +66,7 @@ bUnion :: Benchmark
 bUnion =
   bgroup
     "union"
-    [bgroup "disjoint" bUnionDisjoint, bgroup "overlap" [], bgroup "same" []]
+    [bgroup "disjoint" bUnionDisjoint, bgroup "overlap" bUnionOverlap, bgroup "same" []]
 
 bUnionDisjoint :: [Benchmark]
 bUnionDisjoint =
@@ -85,6 +85,9 @@ bUnionDisjoint =
       let (trues, falses) = Data.List.partition (flip testBit (31 :: Int)) ints
       return (HM.fromList (map (,()) trues), HM.fromList (map (,()) falses))
 
+bUnionOverlap :: [Benchmark]
+bUnionOverlap = undefined
+
 genInts ::
   (StatefulGen g m) =>
   Int ->