Add benchmark for deserialising TarIndex

mpickering · Bodigrim · commit 6536e03b1e22 · 2024-06-14T20:37:29.000+01:00
This improves from:
  deserialise index: OK
    10.0 ms ± 246 μs

to:
  deserialise index: OK
    527  μs ±  43 μs

Due to the previous commit
diff --git a/bench/Main.hs b/bench/Main.hs
@@ -30,6 +30,9 @@ benchmarks =
 
   , env loadTarEntries $ \entries ->
       bench "unpack" (nfIO $ withSystemTempDirectory "tar-bench" $ \baseDir -> Tar.unpack baseDir entries)
+
+  , env (fmap TarIndex.serialise  loadTarIndex) $ \tarfile ->
+      bench "deserialise index" (nf TarIndex.deserialise tarfile)
   ]
 
 loadTarFile :: IO BS.ByteString

Original file line number	Diff line number	Diff line change
`@@ -30,6 +30,9 @@ benchmarks =`
`30`	`30`
`31`	`31`	`, env loadTarEntries $ \entries ->`
`32`	`32`	`bench "unpack" (nfIO $ withSystemTempDirectory "tar-bench" $ \baseDir -> Tar.unpack baseDir entries)`
	`33`	`+`
	`34`	`+ , env (fmap TarIndex.serialise loadTarIndex) $ \tarfile ->`
	`35`	`+ bench "deserialise index" (nf TarIndex.deserialise tarfile)`
`33`	`36`	`]`
`34`	`37`
`35`	`38`	`loadTarFile :: IO BS.ByteString`