...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>
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