mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

startedTime needs to be a Maybe to handle transfers that have not started yet

Browse source 
This changes the file format.
This commit is contained in:
Joey Hess 2012-07-02 16:06:52 -04:00
parent 224dac374e
commit 4845b59413
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Logs/Transfer.hs
View file

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