Revision 707cd3d7 htools/Ganeti/HTools/IAlloc.hs

b/htools/Ganeti/HTools/IAlloc.hs
36 36 
import Control.Monad
37 37 
import Text.JSON (JSObject, JSValue(JSArray),
38 38 
                  makeObj, encodeStrict, decodeStrict, fromJSObject, showJSON)
39 
import System.Exit
40 
import System.IO
41 39 

  		





  42
  40
  
    
import Ganeti.BasicTypes


  		





  43
  41
  
    
import qualified Ganeti.HTools.Cluster as Cluster


  		





  ......




  50
  48
  
    
import Ganeti.HTools.Loader


  		





  51
  49
  
    
import Ganeti.HTools.Types


  		





  52
  50
  
    
import Ganeti.JSON


  		





  
  51
  
    
import Ganeti.Utils


  		





  53
  52
  
    

  		





  54
  53
  
    
{-# ANN module "HLint: ignore Eta reduce" #-}


  		





  55
  54
  
    

  		





  ......




  385
  384
  
    
                  "-" -> getContents


  		





  386
  385
  
    
                  _   -> readFile fp


  		





  387
  386
  
    
  case parseData input_data of


  		





  388
  
  
    
    Bad err -> do


  		





  389
  
  
    
      hPutStrLn stderr $ "Error: " ++ err


  		





  390
  
  
    
      exitWith $ ExitFailure 1


  		





  
  387
  
    
    Bad err -> exitErr err


  		





  391
  388
  
    
    Ok (fix_msgs, rq) -> maybeShowWarnings fix_msgs >> return rq


  		





  392
  389
  
    

  		





  393
  390
  
    
-- | Main iallocator pipeline.


  		












Also available in:
  Unified diff