Revision 32cbb380 src/Ganeti/Locking/Locks.hs
| b/src/Ganeti/Locking/Locks.hs | ||
|---|---|---|
| 53 | 53 |
|
| 54 | 54 |
-- | The type of Locks available in Ganeti. The order of this type |
| 55 | 55 |
-- is the lock oder. |
| 56 |
data GanetiLocks = BGL
|
|
| 57 |
| ClusterLockSet
|
|
| 56 |
data GanetiLocks = ClusterLockSet
|
|
| 57 |
| BGL
|
|
| 58 | 58 |
| InstanceLockSet |
| 59 | 59 |
| Instance String |
| 60 | 60 |
| NodeAllocLockSet |
| ... | ... | |
| 161 | 161 |
lockLevel (Network _) = LevelNetwork |
| 162 | 162 |
|
| 163 | 163 |
instance Lock GanetiLocks where |
| 164 |
lockImplications BGL = [] |
|
| 165 |
lockImplications (Instance _) = [InstanceLockSet, BGL]
|
|
| 166 |
lockImplications (NodeGroup _) = [NodeGroupLockSet, BGL]
|
|
| 167 |
lockImplications NAL = [NodeAllocLockSet, BGL]
|
|
| 168 |
lockImplications (NodeRes _) = [NodeResLockSet, BGL]
|
|
| 169 |
lockImplications (Node _) = [NodeLockSet, BGL]
|
|
| 170 |
lockImplications (Network _) = [NetworkLockSet, BGL]
|
|
| 171 |
lockImplications _ = [BGL]
|
|
| 164 |
lockImplications BGL = [ClusterLockSet]
|
|
| 165 |
lockImplications (Instance _) = [InstanceLockSet] |
|
| 166 |
lockImplications (NodeGroup _) = [NodeGroupLockSet] |
|
| 167 |
lockImplications NAL = [NodeAllocLockSet] |
|
| 168 |
lockImplications (NodeRes _) = [NodeResLockSet] |
|
| 169 |
lockImplications (Node _) = [NodeLockSet] |
|
| 170 |
lockImplications (Network _) = [NetworkLockSet] |
|
| 171 |
lockImplications _ = [] |
|
| 172 | 172 |
|
| 173 | 173 |
-- | The type of lock Allocations in Ganeti. In Ganeti, the owner of |
| 174 | 174 |
-- locks are jobs. |
Also available in: Unified diff