From d3ab5e626b0614c209fffead77d27e40f599ead8 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 14 Jan 2019 13:03:35 -0400 Subject: rename key2file and file2key What these generate is not really suitable to be used as a filename, which is why keyFile and fileKey further escape it. These are just serializing Keys. Also removed a quickcheck test that was very unlikely to test anything useful, since it relied on random chance creating something that looks like a serialized key. The other test is sufficient for testing what that was intended to test anyway. --- Logs.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Logs.hs') diff --git a/Logs.hs b/Logs.hs index 0af14eb26c..63d64efadd 100644 --- a/Logs.hs +++ b/Logs.hs @@ -124,7 +124,7 @@ urlLogFile config key = branchHashDir config key keyFile key ++ urlLogExt {- Old versions stored the urls elsewhere. -} oldurlLogs :: GitConfig -> Key -> [FilePath] oldurlLogs config key = - [ "remote/web" hdir key2file key ++ ".log" + [ "remote/web" hdir serializeKey key ++ ".log" , "remote/web" hdir keyFile key ++ ".log" ] where -- cgit v1.2.3