Revision 84640a93 src/Ganeti/WConfd/Core.hs

b/src/Ganeti/WConfd/Core.hs
31 31 

  		





  32
  32
  
    
module Ganeti.WConfd.Core where


  		





  33
  33
  
    

  		





  
  34
  
    
import qualified Data.Map as M


  		





  34
  35
  
    
import Language.Haskell.TH (Name)


  		





  35
  36
  
    

  		





  
  37
  
    
import qualified Ganeti.Locking.Allocation as L


  		





  
  38
  
    
import Ganeti.Locking.Locks (GanetiLocks)


  		





  
  39
  
    
import Ganeti.Types (JobId)


  		





  36
  40
  
    
import Ganeti.WConfd.Monad


  		





  37
  41
  
    
import Ganeti.WConfd.ConfigWriter


  		





  38
  42
  
    

  		





  ......




  46
  50
  
    

  		





  47
  51
  
    
-- ** Locking related functions


  		





  48
  52
  
    

  		





  
  53
  
    
-- | List the locks of a given owner (i.e., a job-id lockfile pair).


  		





  
  54
  
    
listLocks :: JobId -> FilePath -> WConfdMonad [(GanetiLocks, L.OwnerState)]


  		





  
  55
  
    
listLocks jid fpath =


  		





  
  56
  
    
  liftM (M.toList . L.listLocks (jid, fpath)) readLockAllocation


  		





  
  57
  
    

  		





  49
  58
  
    
-- * The list of all functions exported to RPC.


  		





  50
  59
  
    

  		





  51
  60
  
    
exportedFunctions :: [Name]


  		





  52
  
  
    
exportedFunctions = [ 'echo, 'readConfig, 'writeConfig ]


  		





  
  61
  
    
exportedFunctions = [ 'echo, 'readConfig, 'writeConfig, 'listLocks]


  		












Also available in:
  Unified diff