Fix build with Benchmark build flag

Broke a while ago during optimisation work, and not noticed since the flag
is disabled by default.

This commit was sponsored by Brock Spratlen on Patreon.

diff --git a/CHANGELOG b/CHANGELOG
index 769be5a892d3fb549017cc01a79918225b7894d7..571bb5f44011eb095cf82e16f57549b33ccb7b1f 100644 (file)
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -37,6 +37,7 @@ git-annex (8.20200909) UNRELEASED; urgency=medium
     encryption= in their config.
   * Parse youtube-dl progress output, which lets progress be displayed
     when doing concurrent downloads.
+  * Fix build with Benchmark build flag.
 
  -- Joey Hess <id@joeyh.name>  Mon, 14 Sep 2020 18:34:37 -0400
 

diff --git a/Database/Benchmark.hs b/Database/Benchmark.hs
index 6683b8446e8f6bf899dd8253332dd61f45b9c2d3..d287b42dd760192c3aacce7a92860ab15d92b443 100644 (file)
--- a/Database/Benchmark.hs
+++ b/Database/Benchmark.hs
@@ -92,7 +92,7 @@ keyN n = mkKey $ \k -> k
        }
 
 fileN :: Integer -> TopFilePath
-fileN n = asTopFilePath ("file" ++ show n)
+fileN n = asTopFilePath (toRawFilePath ("file" ++ show n))
 
 keyMiss :: Key
 keyMiss = keyN 0 -- 0 is never stored