WIP

IntersectMBO · Apr 25, 2024 · efeee0a · efeee0a
1 parent 0c3ea39
commit efeee0a
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 2 deletions.
diff --git a/bench/macro/lsm-tree-bench-wp8.hs b/bench/macro/lsm-tree-bench-wp8.hs
@@ -24,13 +24,26 @@ data GlobalOpts = GlobalOpts
     }
   deriving Show
 
+data SetupOpts = SetupOpts
+    { size :: Int
+    }
+  deriving Show
+
 data Cmd
     -- | Setup benchmark: generate initial LSM tree etc.
-    = CmdSetup
+    = CmdSetup SetupOpts
 
     -- | Make a dry run, measure the overhead.
     | CmdDryRun
 
     -- | Run the actual benchmark
     | CmdRun
   deriving Show
+
+globalOptsP :: O.Parser GlobalOpts
+globalOptsP = pure GlobalOpts
+    <*> pure "_bench_session"
+
+setupOptsP :: O.Parser SetupOpts
+setupOptsP = pure SetupOpts
+    <*> pure 1000 -- TODO: change to 100e6
diff --git a/lsm-tree.cabal b/lsm-tree.cabal
@@ -354,7 +354,6 @@ benchmark lsm-tree-bench-wp8
     , optparse-applicative
     , primitive
     , random
-    , vector
     , wide-word
 
   ghc-options:      -rtsopts -with-rtsopts=-T -threaded