From 06ed6ceac488384e87484a52f28e8a3c1750b1e6 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 20 Sep 2012 16:40:01 -0400
Subject: [PATCH] fix reading of transfer info files with a bytesComplete value

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

diff --git a/Logs/Transfer.hs b/Logs/Transfer.hs
index d7f7a8d16d..ac2606d8c8 100644
--- a/Logs/Transfer.hs
+++ b/Logs/Transfer.hs
@@ -239,8 +239,8 @@ readTransferInfo mpid s = TransferInfo
 	<*> pure (if null filename then Nothing else Just filename)
 	<*> pure False
 	where
-		(bits, filebits) = splitAt 1 $ lines s
-		filename = join "\n" filebits
+		(firstline, filename) = separate (== '\n') s
+		bits = split " " firstline
 		numbits = length bits
 		time = if numbits > 0
 			then Just <$> parsePOSIXTime (bits !! 0)