LGTM, thanks
On Tue, Feb 18, 2014 at 3:28 PM, Klaus Aehlig <[email protected]> wrote: > The module Ganeti.Locking.Allocation exports the function listLocks, > hence a documentation string is required. Add it. > > Signed-off-by: Klaus Aehlig <[email protected]> > --- > src/Ganeti/Locking/Allocation.hs | 3 +++ > 1 file changed, 3 insertions(+) > > diff --git a/src/Ganeti/Locking/Allocation.hs > b/src/Ganeti/Locking/Allocation.hs > index 0fbfc00..1034fe5 100644 > --- a/src/Ganeti/Locking/Allocation.hs > +++ b/src/Ganeti/Locking/Allocation.hs > @@ -86,6 +86,9 @@ emptyAllocation = > , laOwned = M.empty > } > > +-- | Obtain the locks held by a given owner. The locks are reported > +-- as a map from the owned locks to the form of ownership (OwnShared > +-- or OwnExclusive). > listLocks :: Ord b => b -> LockAllocation a b -> M.Map a OwnerState > listLocks owner = fromMaybe M.empty . M.lookup owner . laOwned > > -- > 1.9.0.rc1.175.g0b1dcb5 > >
