Revision 75033afd
b/src/Ganeti/Locking/Locks.hs | ||
---|---|---|
29 | 29 |
) where |
30 | 30 |
|
31 | 31 |
import Ganeti.Locking.Allocation |
32 |
import Ganeti.Locking.Types |
|
32 | 33 |
import Ganeti.Types |
33 | 34 |
|
34 | 35 |
-- | The type of Locks available in Ganeti. The order of this type |
... | ... | |
36 | 37 |
data GanetiLocks = BGL deriving (Ord, Eq, Show) |
37 | 38 |
-- TODO: add the remaining locks |
38 | 39 |
|
40 |
instance Lock GanetiLocks where |
|
41 |
lockImplications BGL = [] |
|
42 |
|
|
39 | 43 |
-- | The type of lock Allocations in Ganeti. In Ganeti, the owner of |
40 | 44 |
-- locks are jobs. |
41 | 45 |
type GanetiLockAllocation = LockAllocation GanetiLocks JobId |
Also available in: Unified diff