Revision f81d41cc

b/src/Ganeti/Path.hs
43 43 
import System.FilePath
44 44 
import System.Posix.Env (getEnvDefault)
45 45 

  		





  46
  
  
    
import qualified Ganeti.Constants as C


  		





  
  46
  
    
import AutoConf


  		





  47
  47
  
    

  		





  48
  48
  
    
-- | Simple helper to concat two paths.


  		





  49
  49
  
    
pjoin :: IO String -> String -> IO String


  		





  ......




  64
  64
  
    

  		





  65
  65
  
    
-- | Directory for data.


  		





  66
  66
  
    
dataDir :: IO FilePath


  		





  67
  
  
    
dataDir = addNodePrefix $ C.autoconfLocalstatedir </> "lib" </> "ganeti"


  		





  
  67
  
    
dataDir = addNodePrefix $ AutoConf.localstatedir </> "lib" </> "ganeti"


  		





  68
  68
  
    

  		





  69
  69
  
    
-- | Helper for building on top of dataDir (internal).


  		





  70
  70
  
    
dataDirP :: FilePath -> IO FilePath


  		





  ......




  72
  72
  
    

  		





  73
  73
  
    
-- | Directory for runtime files.


  		





  74
  74
  
    
runDir :: IO FilePath


  		





  75
  
  
    
runDir = addNodePrefix $ C.autoconfLocalstatedir </> "run" </> "ganeti"


  		





  
  75
  
    
runDir = addNodePrefix $ AutoConf.localstatedir </> "run" </> "ganeti"


  		





  76
  76
  
    

  		





  77
  77
  
    
-- | Directory for log files.


  		





  78
  78
  
    
logDir :: IO FilePath


  		





  79
  
  
    
logDir = addNodePrefix $ C.autoconfLocalstatedir </> "log" </> "ganeti"


  		





  
  79
  
    
logDir = addNodePrefix $ AutoConf.localstatedir </> "log" </> "ganeti"


  		





  80
  80
  
    

  		





  81
  81
  
    
-- | Directory for Unix sockets.


  		





  82
  82
  
    
socketDir :: IO FilePath


  		












Also available in:
  Unified diff