Benchmarks: explain where to obtain 01-index.tar

haskell · Nov 18, 2023 · 7d0517d · 7d0517d
1 parent 423e6af
commit 7d0517d
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/bench/Main.hs b/bench/Main.hs
@@ -5,6 +5,7 @@ import qualified Codec.Archive.Tar.Index as TarIndex
 
 import qualified Data.ByteString.Lazy    as BS
 import Control.Exception
+import System.Directory
 
 import Test.Tasty.Bench
 
@@ -26,8 +27,12 @@ benchmarks =
   ]
 
 loadTarFile :: IO BS.ByteString
-loadTarFile =
-    BS.readFile "01-index.tar"
+loadTarFile = do
+    let tarFile = "01-index.tar"
+    exists <- doesFileExist tarFile
+    if exists
+      then BS.readFile tarFile
+      else error "01-index.tar does not exist, copy it from ~/.cabal/packages/hackage.haskell.org/01-index.tar"
 
 loadTarEntries :: IO (Tar.Entries Tar.FormatError)
 loadTarEntries =