Revision 75033afd src/Ganeti/Locking/Locks.hs

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