Revision 66927d09 src/Ganeti/WConfd/Core.hs

b/src/Ganeti/WConfd/Core.hs
76 76 
freeLocks jid fpath =
77 77 
  modifyLockAllocation_ (`L.freeLocks` (jid, fpath))
78 78 

  		





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


  		





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


  		





  
  81
  
    
intersectLocks jid fpath =


  		





  
  82
  
    
 modifyLockAllocation_ . L.intersectLocks (jid,fpath)


  		





  
  83
  
    

  		





  79
  84
  
    
-- * The list of all functions exported to RPC.


  		





  80
  85
  
    

  		





  81
  86
  
    
exportedFunctions :: [Name]


  		





  ......




  85
  90
  
    
                    , 'listLocks


  		





  86
  91
  
    
                    , 'tryUpdateLocks


  		





  87
  92
  
    
                    , 'freeLocks


  		





  
  93
  
    
                    , 'intersectLocks


  		





  88
  94
  
    
                    ]


  		












Also available in:
  Unified diff