From f9c893e147bc4c537fd518cf5897cbb347a430c2 Mon Sep 17 00:00:00 2001
From: Klaus Aehlig <aehlig@google.com>
Date: Thu, 28 May 2015 12:14:25 +0200
Subject: [PATCH] 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>
---
 src/Ganeti/WConfd/Core.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Ganeti/WConfd/Core.hs b/src/Ganeti/WConfd/Core.hs
index 07b6ec6c2..e60108ce0 100644
--- 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
-- 
GitLab