Revision c6d48e16 src/Ganeti/Locking/Allocation.hs
b/src/Ganeti/Locking/Allocation.hs | ||
---|---|---|
86 | 86 |
, laOwned = M.empty |
87 | 87 |
} |
88 | 88 |
|
89 |
-- | Obtain the locks held by a given owner. The locks are reported |
|
90 |
-- as a map from the owned locks to the form of ownership (OwnShared |
|
91 |
-- or OwnExclusive). |
|
89 | 92 |
listLocks :: Ord b => b -> LockAllocation a b -> M.Map a OwnerState |
90 | 93 |
listLocks owner = fromMaybe M.empty . M.lookup owner . laOwned |
91 | 94 |
|
Also available in: Unified diff