diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-07 14:55:06 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-07 14:55:06 -0400 |
| commit | 05d95044cdf97d572ffcf601ea98561057d28f3e (patch) | |
| tree | 7348a470c4245a9f7b89c3fbf01c0772a4ff96e4 /Assistant/DaemonStatus.hs | |
| parent | 04d48f98c5cecabdefcddc8b68738567a530dd84 (diff) | |
revert use of Data.Map.Strict
memory profile shows this did not contribute to the memory leaks fixed in
4cf6d95c1a9d10cb59669eaceafce4c7a3155eb6
Diffstat (limited to 'Assistant/DaemonStatus.hs')
| -rw-r--r-- | Assistant/DaemonStatus.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/DaemonStatus.hs b/Assistant/DaemonStatus.hs index fc607767b..b9ad975b0 100644 --- a/Assistant/DaemonStatus.hs +++ b/Assistant/DaemonStatus.hs @@ -25,7 +25,7 @@ import System.Posix.Types import Data.Time.Clock.POSIX import Data.Time import System.Locale -import qualified Data.Map.Strict as M +import qualified Data.Map as M import qualified Data.Text as T getDaemonStatus :: Assistant DaemonStatus @@ -171,7 +171,7 @@ alterTransferInfo t a = updateTransferInfo' $ M.adjust a t - or if already present, updates it while preserving the old transferTid, - transferPaused, and bytesComplete values, which are not written to disk. -} updateTransferInfo :: Transfer -> TransferInfo -> Assistant () -updateTransferInfo t info = updateTransferInfo' $ M.insertWith merge t info +updateTransferInfo t info = updateTransferInfo' $ M.insertWith' merge t info where merge new old = new { transferTid = maybe (transferTid new) Just (transferTid old) |