diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-07-17 17:22:00 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-07-17 17:22:00 -0400 |
| commit | b702bae9501676082a1f9388286b3c9855d8a44a (patch) | |
| tree | 79cfd569e526008869073f57ab188e000babd84a /Logs | |
| parent | 9ab9ef3ebd931549b41d40c73ceeeba82a8099cc (diff) | |
bugfix
Diffstat (limited to 'Logs')
| -rw-r--r-- | Logs/Transfer.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |