LGTM
On Mon, Mar 3, 2014 at 2:48 PM, Klaus Aehlig <[email protected]> wrote: > Export the functionality to free all locks of a given > owner. > > Signed-off-by: Klaus Aehlig <[email protected]> > --- > src/Ganeti/WConfd/Core.hs | 6 ++++++ > 1 file changed, 6 insertions(+) > > diff --git a/src/Ganeti/WConfd/Core.hs b/src/Ganeti/WConfd/Core.hs > index c5caf62..190e804 100644 > --- a/src/Ganeti/WConfd/Core.hs > +++ b/src/Ganeti/WConfd/Core.hs > @@ -67,6 +67,11 @@ updateLocks jid fpath req = > $ modifyLockAllocation (L.updateLocks (jid, fpath) > (fromGanetiLockRequest req)) > > +-- | Free all locks of a given owner (i.e., a job-id lockfile pair). > +freeLocks :: JobId -> FilePath -> WConfdMonad () > +freeLocks jid fpath = > + modifyLockAllocation_ (`L.freeLocks` (jid, fpath)) > + > -- * The list of all functions exported to RPC. > > exportedFunctions :: [Name] > @@ -75,4 +80,5 @@ exportedFunctions = [ 'echo > , 'writeConfig > , 'listLocks > , 'updateLocks > + , 'freeLocks > ] > -- > 1.9.0.279.gdc9e3eb > >
