From 4845b59413e5ae70cd6b78035fbae93e9cd845de Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 2 Jul 2012 16:06:52 -0400
Subject: startedTime needs to be a Maybe to handle transfers that have not
 started yet

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

(limited to 'Logs')

diff --git a/Logs/Transfer.hs b/Logs/Transfer.hs
index dc9283306..f808cb6a4 100644
--- a/Logs/Transfer.hs
+++ b/Logs/Transfer.hs
@@ -34,7 +34,7 @@ data Transfer = Transfer
  - of some repository, that was acted on to initiate the transfer.
  -}
 data TransferInfo = TransferInfo
-	{ startedTime :: UTCTime
+	{ startedTime :: Maybe UTCTime
 	, transferPid :: Maybe ProcessID
 	, transferThread :: Maybe ThreadId
 	, bytesComplete :: Maybe Integer
@@ -76,7 +76,7 @@ transfer t file a = do
 	createAnnexDirectory $ takeDirectory tfile
 	mode <- annexFileMode
 	info <- liftIO $ TransferInfo
-		<$> getCurrentTime
+		<$> (Just <$> getCurrentTime)
 		<*> pure Nothing -- pid not stored in file, so omitted for speed
 		<*> pure Nothing -- threadid not stored in file, so omitted for speed
 		<*> pure Nothing -- not 0; transfer may be resuming
-- 
cgit v1.2.3