Updating union benchmark plot

Author: recursion-ninja

bench/macro/lsm-tree-bench-unions.hs

@@ -46,8 +46,8 @@ import           Control.Monad.Trans.State.Strict (runState, state)
 import qualified Data.ByteString.Short as BS
 import qualified Data.Colour.SRGB as Color
 import qualified Data.Foldable as Fold
-import qualified Data.List as List
 import           Data.IORef
+import qualified Data.List as List
 import           Data.List.NonEmpty (NonEmpty (..))
 import qualified Data.List.NonEmpty as NE
 import           Data.Maybe (fromMaybe)
@@ -74,8 +74,8 @@ import           System.Mem (performMajorGC)
 import qualified System.Random as Random
 import qualified Text.ParserCombinators.ReadPrec as Lex
 import           Text.Printf (printf)
-import           Text.Read (Read (..))
 import qualified Text.Read as Lex
+import           Text.Read (Read (..))
 import qualified Text.Read.Lex as Lex
 
 import           Database.LSMTree.Extras (groupsOfN)
@@ -576,6 +576,7 @@ doRun gopts opts = do
         indicesPhase1 = negate <$> reverse [ 0 .. tickCountPrefix ]
         indicesPhase2 = [ 1 .. tickCountMiddle ]
         indicesPhase3 = [ tickCountMiddle + 1 .. tickCountMiddle + tickCountSuffix ]
+        indicesDomain = indicesPhase1 <> indicesPhase2 <> indicesPhase3
         PaymentRate paymentRate = payRate opts
         benchmarkIterations h
           | pipelined opts = pipelinedIterations h
@@ -670,12 +671,17 @@ doRun gopts opts = do
 
     -- Generate a performance plot based on the benchmark results.
     Plot.toFile Plot.def (rootDir gopts <> "/" <> deriveFileNameForPlot gopts opts) $ do
+      let colorD = Color.sRGB 0.875 1.0 0.125 `Plot.withOpacity` 0.625
+      let colorE = Color.sRGB 0.625 1.0 0.875 `Plot.withOpacity` 0.5
+      let plotTicks = filter (\x -> x `mod` 10 == 0) indicesDomain
+      let plotAxisX = Plot.makeAxis
+            (fmap (show . Plot.toValue))
+            (fromIntegral <$> plotTicks, [], fromIntegral <$> plotTicks)
       Plot.layout_title .= "Incremental Unions Performance"
+      Plot.layout_x_axis . Plot.laxis_override .= const plotAxisX
       Plot.layout_x_axis . Plot.laxis_override .= Plot.axisGridHide
       Plot.layout_x_axis . Plot.laxis_title    .= "Credits supplied over time"
       Plot.layout_y_axis . Plot.laxis_title    .= "Lookup access time"
-      let colorD = Color.sRGB 0.875 1.0 0.125 `Plot.withOpacity` 0.5
-      let colorE = Color.sRGB 0.625 1.0 0.875 `Plot.withOpacity` 0.5
       Plot.plot $ fillBetween colorD "Debt balance"
         [ (d,(0,v)) | (d, v) <- zip [1 :: Word .. ] balances ]
       Plot.plot $ fillBetween colorE "Extra credits"