summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Logs/Transfer.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/Logs/Transfer.hs b/Logs/Transfer.hs
index 55db855cc..260512067 100644
--- a/Logs/Transfer.hs
+++ b/Logs/Transfer.hs
@@ -144,8 +144,9 @@ transferLockFile infofile = let (d,f) = splitFileName infofile in
{- Parses a transfer information filename to a Transfer. -}
parseTransferFile :: FilePath -> Maybe Transfer
-parseTransferFile file =
- case drop (length bits - 3) bits of
+parseTransferFile file
+ | "lck." `isPrefixOf` (takeFileName file) = Nothing
+ | otherwise = case drop (length bits - 3) bits of
[direction, u, key] -> Transfer
<$> readDirection direction
<*> pure (toUUID u)