Revision 9eeb0aa5 htools/Ganeti/Runtime.hs

b/htools/Ganeti/Runtime.hs
49 49 
import Text.Printf
50 50 

  		





  51
  51
  
    
import qualified Ganeti.Constants as C


  		





  
  52
  
    
import qualified Ganeti.Path as Path


  		





  52
  53
  
    
import Ganeti.BasicTypes


  		





  53
  54
  
    

  		





  54
  55
  
    
data GanetiDaemon = GanetiMasterd


  		





  ......




  92
  93
  
    

  		





  93
  94
  
    
-- | Returns the log file for a daemon.


  		





  94
  95
  
    
daemonLogFile :: GanetiDaemon -> FilePath


  		





  95
  
  
    
daemonLogFile daemon = C.logDir </> daemonName daemon <.> "log"


  		





  
  96
  
    
daemonLogFile daemon = Path.logDir </> daemonName daemon <.> "log"


  		





  96
  97
  
    

  		





  97
  98
  
    
-- | Returns the pid file name for a daemon.


  		





  98
  99
  
    
daemonPidFile :: GanetiDaemon -> FilePath


  		





  99
  
  
    
daemonPidFile daemon = C.runDir </> daemonName daemon <.> "pid"


  		





  
  100
  
    
daemonPidFile daemon = Path.runDir </> daemonName daemon <.> "pid"


  		





  100
  101
  
    

  		





  101
  102
  
    
-- | All groups list. A bit hacking, as we can't enforce it's complete


  		





  102
  103
  
    
-- at compile time.


  		












Also available in:
  Unified diff