Revision 74b25887

b/src/Ganeti/Path.hs
36 36 
  , queueDir
37 37 
  , jobQueueSerialFile
38 38 
  , jobQueueArchiveSubDir
39 
  , instanceReasonDir
40 
  , getInstReasonFilename
39 41 
  ) where
40 42 

  		





  41
  43
  
    
import System.FilePath


  		





  ......




  111
  113
  
    
-- | Job queue archive directory.


  		





  112
  114
  
    
jobQueueArchiveSubDir :: FilePath


  		





  113
  115
  
    
jobQueueArchiveSubDir = "archive"


  		





  
  116
  
    

  		





  
  117
  
    
-- | Directory containing the reason trails for the last change of status of


  		





  
  118
  
    
-- instances.


  		





  
  119
  
    
instanceReasonDir :: IO FilePath


  		





  
  120
  
    
instanceReasonDir = runDir `pjoin` "instance-reason"


  		





  
  121
  
    

  		





  
  122
  
    
-- | The path of the file containing the reason trail for an instance, given the


  		





  
  123
  
    
-- instance name.


  		





  
  124
  
    
getInstReasonFilename :: String -> IO FilePath


  		





  
  125
  
    
getInstReasonFilename instName = instanceReasonDir `pjoin` instName


  		












Also available in:
  Unified diff