Revision c6d48e16

b/src/Ganeti/Locking/Allocation.hs
86 86 
                 , laOwned = M.empty
87 87 
                 }
88 88 

  		





  
  89
  
    
-- | Obtain the locks held by a given owner. The locks are reported


  		





  
  90
  
    
-- as a map from the owned locks to the form of ownership (OwnShared


  		





  
  91
  
    
-- or OwnExclusive).


  		





  89
  92
  
    
listLocks :: Ord b => b -> LockAllocation a b -> M.Map a OwnerState


  		





  90
  93
  
    
listLocks owner = fromMaybe M.empty . M.lookup owner . laOwned


  		





  91
  94
  
    

  		












Also available in:
  Unified diff