Make WConfD's updateLocksWaiting safe

...so that the implicit retry on connection failure
is handled gracefully.

Signed-off-by: Klaus Aehlig <aehlig@google.com>
Reviewed-by: Petr Pudlak <pudlak@google.com>

diff --git a/src/Ganeti/WConfd/Core.hs b/src/Ganeti/WConfd/Core.hs
index 07b6ec6..e60108c 100644 (file)
--- a/src/Ganeti/WConfd/Core.hs
+++ b/src/Ganeti/WConfd/Core.hs
@@ -276,7 +276,7 @@ updateLocksWaiting cid prio req =
   liftM S.toList
   . (>>= toErrorStr)
   . modifyLockWaiting
-  $ LW.updateLocksWaiting prio cid (fromGanetiLockRequest req)
+  $ LW.safeUpdateLocksWaiting prio cid (fromGanetiLockRequest req)
 
 -- | Tell whether a given owner has pending requests.
 hasPendingRequest :: ClientId -> WConfdMonad Bool