Revision ef947a42 src/Ganeti/HTools/ExtLoader.hs

b/src/Ganeti/HTools/ExtLoader.hs
38 38 
import Data.Maybe (isJust, fromJust)
39 39 
import System.FilePath
40 40 
import System.IO
41 
import System.Time (getClockTime)
41 42 
import Text.Printf (hPrintf)
42 43 

  		





  43
  44
  
    
import qualified Ganeti.HTools.Backend.Luxi as Luxi


  		





  ......




  107
  108
  
    
        | setFile -> wrapIO . Text.loadData $ fromJust tfile


  		





  108
  109
  
    
        | setIAllocSrc -> wrapIO . IAlloc.loadData $ fromJust iallocsrc


  		





  109
  110
  
    
        | otherwise -> return $ Bad "No backend selected! Exiting."


  		





  
  111
  
    
  now <- getClockTime


  		





  110
  112
  
    

  		





  111
  
  
    
  let ldresult = input_data >>= mergeData util_data exTags selInsts exInsts


  		





  
  113
  
    
  let ldresult = input_data >>= mergeData util_data exTags selInsts exInsts now


  		





  112
  114
  
    
  cdata <- exitIfBad "failed to load data, aborting" ldresult


  		





  113
  115
  
    
  let (fix_msgs, nl) = checkData (cdNodes cdata) (cdInstances cdata)


  		





  114
  116
  
    

  		












Also available in:
  Unified diff