Commit 21a9adce authored by Klaus Aehlig's avatar Klaus Aehlig
Browse files

Expose listAllLocksOwners in WConfD



...so that LuxiD can ask for the lock status to answer
lock queries.
Signed-off-by: default avatarKlaus Aehlig <aehlig@google.com>
Reviewed-by: default avatarPetr Pudlak <pudlak@google.com>
parent b8ba35c4
......@@ -111,6 +111,10 @@ listLocks cid = liftM (M.toList . L.listLocks cid) readLockAllocation
listAllLocks :: WConfdMonad [GanetiLocks]
listAllLocks = liftM L.listAllLocks readLockAllocation
-- | List all active locks with their owners.
listAllLocksOwners :: WConfdMonad [(GanetiLocks, [(ClientId, L.OwnerState)])]
listAllLocksOwners = liftM L.listAllLocksOwners readLockAllocation
-- | Try to update the locks of a given owner (i.e., a job-id lockfile pair).
-- This function always returns immediately. If the lock update was possible,
-- the empty list is returned; otherwise, the lock status is left completly
......@@ -163,6 +167,7 @@ exportedFunctions = [ 'echo
, 'unlockConfig
, 'listLocks
, 'listAllLocks
, 'listAllLocksOwners
, 'tryUpdateLocks
, 'freeLocks
, 'freeLocksLevel
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment