diff options
Diffstat (limited to 'Assistant/NamedThread.hs')
| -rw-r--r-- | Assistant/NamedThread.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Assistant/NamedThread.hs b/Assistant/NamedThread.hs index 090a3a7cd..ae7375a27 100644 --- a/Assistant/NamedThread.hs +++ b/Assistant/NamedThread.hs @@ -1,6 +1,7 @@ {- git-annex assistant named threads. - - Copyright 2012 Joey Hess <id@joeyh.name> + - Copyright 2022 Benjamin Barenblat <bbarenblat@gmail.com> - - Licensed under the GNU GPL version 3 or higher. -} @@ -20,7 +21,7 @@ import Utility.NotificationBroadcaster import Control.Concurrent import Control.Concurrent.Async -import qualified Data.Map as M +import qualified Data.Map.Strict as M import qualified Control.Exception as E #ifdef WITH_WEBAPP @@ -57,7 +58,7 @@ startNamedThread urlrenderer (NamedThread afterstartupsanitycheck name a) = aid <- liftIO $ runner $ d { threadName = name } restart <- asIO $ startNamedThread urlrenderer (NamedThread False name a) modifyDaemonStatus_ $ \s -> s - { startedThreads = M.insertWith' const name (aid, restart) (startedThreads s) } + { startedThreads = M.insert name (aid, restart) (startedThreads s) } runmanaged first d = do aid <- async $ runAssistant d $ do void first |