From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 2 Oct 2020 17:30:24 +0000 (-0400)
Subject: Fix build with Benchmark build flag
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~112^2~32
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=37426920d86884d2962a662c77d6c6f910828817;p=git-annex.git

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 769be5a892..571bb5f440 100644
--- 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 6683b8446e..d287b42dd7 100644
--- 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