From b702bae9501676082a1f9388286b3c9855d8a44a Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 17 Jul 2012 17:22:00 -0400
Subject: bugfix

---
 Logs/Transfer.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Logs/Transfer.hs b/Logs/Transfer.hs
index daec476ef..55db855cc 100644
--- a/Logs/Transfer.hs
+++ b/Logs/Transfer.hs
@@ -139,7 +139,8 @@ transferFile (Transfer direction u key) r = gitAnnexTransferDir r
 
 {- The transfer lock file corresponding to a given transfer info file. -}
 transferLockFile :: FilePath -> FilePath
-transferLockFile infofile = "lck." ++ infofile
+transferLockFile infofile = let (d,f) = splitFileName infofile in
+	combine d ("lck." ++ f)
 
 {- Parses a transfer information filename to a Transfer. -}
 parseTransferFile :: FilePath -> Maybe Transfer
-- 
cgit v1.2.3