Revision 9eeb0aa5 htools/Ganeti/Ssconf.hs

b/htools/Ganeti/Ssconf.hs
46 46 
import System.IO.Error (isDoesNotExistError)
47 47 

  		





  48
  48
  
    
import qualified Ganeti.Constants as C


  		





  
  49
  
    
import qualified Ganeti.Path as Path


  		





  49
  50
  
    
import Ganeti.BasicTypes


  		





  50
  51
  
    
import Ganeti.HTools.Utils


  		





  51
  52
  
    

  		





  ......




  86
  87
  
    
keyToFilename :: Maybe FilePath     -- ^ Optional config path override


  		





  87
  88
  
    
              -> SSKey              -- ^ ssconf key


  		





  88
  89
  
    
              -> FilePath


  		





  89
  
  
    
keyToFilename optpath key = fromMaybe C.dataDir optpath </>


  		





  
  90
  
    
keyToFilename optpath key = fromMaybe Path.dataDir optpath </>


  		





  90
  91
  
    
                            sSFilePrefix ++ sSKeyToRaw key


  		





  91
  92
  
    

  		





  92
  93
  
    
-- | Runs an IO action while transforming any error into 'Bad'


  		












Also available in:
  Unified diff