fix resume button
Change alterTransferInfo to not merge in old values, including transferPaused.
This commit is contained in:
parent
c59ba80b5b
commit
93037580b6
3 changed files with 23 additions and 17 deletions
|
@ -214,14 +214,6 @@ readTransferInfo mpid s =
|
|||
(bits, filebits) = splitAt 1 $ lines s
|
||||
filename = join "\n" filebits
|
||||
|
||||
{- Preserves the old transferTid and transferPaused values,
|
||||
- which are not written to disk. -}
|
||||
mergeTransferInfo :: TransferInfo -> TransferInfo -> TransferInfo
|
||||
mergeTransferInfo new old = new
|
||||
{ transferTid = maybe (transferTid new) Just (transferTid old)
|
||||
, transferPaused = transferPaused new || transferPaused old
|
||||
}
|
||||
|
||||
parsePOSIXTime :: String -> Maybe POSIXTime
|
||||
parsePOSIXTime s = utcTimeToPOSIXSeconds
|
||||
<$> parseTime defaultTimeLocale "%s%Qs" s
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue