avoid parsing lock files as transfer files

This seems to happen with kqueue, not inotify. The newly added lck file
triggers an add event and was then parsed as a transfer file.

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)