From 8f6c2e6081d8e162f34ff5406e8d564dc1b5f4a5 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 2 Jul 2012 11:02:47 -0400
Subject: fix reading of empty filename from transfer info file

---
 Logs/Transfer.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'Logs/Transfer.hs')

diff --git a/Logs/Transfer.hs b/Logs/Transfer.hs
index dbd45f199..6bdc750f4 100644
--- a/Logs/Transfer.hs
+++ b/Logs/Transfer.hs
@@ -165,10 +165,8 @@ readTransferInfo pid s =
 			<*> pure (Just pid)
 			<*> pure Nothing
 			<*> pure Nothing
-			<*> pure filename
+			<*> pure (if null filename then Nothing else Just filename)
 		_ -> Nothing
 	where
 		(bits, filebits) = splitAt 1 $ lines s 
-		filename
-			| null filebits = Nothing
-			| otherwise = Just $ join "\n" filebits
+		filename = join "\n" filebits
-- 
cgit v1.2.3