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.
This commit is contained in:
parent
37b1f2f2ed
commit
37426920d8
2 changed files with 2 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue