diff --git a/src/Handler/Users.hs b/src/Handler/Users.hs index 991006030..4b68bc972 100644 --- a/src/Handler/Users.hs +++ b/src/Handler/Users.hs @@ -377,7 +377,7 @@ postUsersR = do | Set.null usersSet && isNotSetSupervisor act -> addMessageI Info MsgActionNoUsersSelected (UserLdapSyncData, userSet) -> do - forM_ userSet $ \uid -> queueJob' $ JobSynchroniseLdapUser uid + forM_ userSet $ \uid -> void . queueJob $ JobSynchroniseLdapUser uid addMessageI Success . MsgSynchroniseLdapUserQueued $ Set.size userSet redirectKeepGetParams UsersR (UserAvsSyncData, userSet) -> do @@ -437,7 +437,7 @@ postUsersR = do , AvsSyncPause E.=. E.greatest (current E.^. AvsSyncPause) (excluded E.^. AvsSyncPause) ] ) - queueJob' JobSynchroniseAvsQueue + void $ queueJob JobSynchroniseAvsQueue addMessageI Success $ MsgSynchroniseAvsAllUsersQueued n redirect UsersR