Revision 5a8921f3

b/src/Ganeti/WConfd/Core.hs
83 83 
  modifyLockAllocation_ (L.freeLocksPredicate ((==) level . lockLevel)
84 84 
                           `flip` (jid, fpath))
85 85 

  		





  
  86
  
    
-- | Downgrade all locks of the given level to shared.


  		





  
  87
  
    
downGradeLocksLevel :: JobId -> FilePath -> LockLevel -> WConfdMonad ()


  		





  
  88
  
    
downGradeLocksLevel jid fpath level =


  		





  
  89
  
    
  modifyLockAllocation_ $ L.downGradePredicate ((==) level . lockLevel)


  		





  
  90
  
    
                                               (jid, fpath)


  		





  
  91
  
    

  		





  86
  92
  
    
-- | Intersect the possesed locks of an owner with a given set.


  		





  87
  93
  
    
intersectLocks :: JobId -> FilePath -> [GanetiLocks] -> WConfdMonad ()


  		





  88
  94
  
    
intersectLocks jid fpath =


  		





  ......




  107
  113
  
    
                    , 'tryUpdateLocks


  		





  108
  114
  
    
                    , 'freeLocks


  		





  109
  115
  
    
                    , 'freeLocksLevel


  		





  
  116
  
    
                    , 'downGradeLocksLevel


  		





  110
  117
  
    
                    , 'intersectLocks


  		





  111
  118
  
    
                    , 'opportunisticLockUnion


  		





  112
  119
  
    
                    ]


  		












Also available in:
  Unified diff