diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-07-02 16:06:52 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-07-02 16:06:52 -0400 |
| commit | c9d7e9f6bd5adac8a5ff0e925bbac549f962cdb0 (patch) | |
| tree | 288cf69aea09563ad0de0b2f9a0626ab35cff547 /Logs/Transfer.hs | |
| parent | 3ea708e03b253456961aeeffb4cf37bd15432d09 (diff) | |
startedTime needs to be a Maybe to handle transfers that have not started yet
This changes the file format.
Diffstat (limited to 'Logs/Transfer.hs')
| -rw-r--r-- | Logs/Transfer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |