Revision b4d1b49f
| b/src/Ganeti/WConfd/Core.hs | ||
|---|---|---|
| 71 | 71 |
$ modifyLockAllocation (L.updateLocks (jid, fpath) |
| 72 | 72 |
(fromGanetiLockRequest req)) |
| 73 | 73 |
|
| 74 |
-- | Free all locks of a given owner (i.e., a job-id lockfile pair). |
|
| 75 |
freeLocks :: JobId -> FilePath -> WConfdMonad () |
|
| 76 |
freeLocks jid fpath = |
|
| 77 |
modifyLockAllocation_ (`L.freeLocks` (jid, fpath)) |
|
| 78 |
|
|
| 74 | 79 |
-- * The list of all functions exported to RPC. |
| 75 | 80 |
|
| 76 | 81 |
exportedFunctions :: [Name] |
| ... | ... | |
| 79 | 84 |
, 'writeConfig |
| 80 | 85 |
, 'listLocks |
| 81 | 86 |
, 'tryUpdateLocks |
| 87 |
, 'freeLocks |
|
| 82 | 88 |
] |
Also available in: Unified diff