Revision 707cd3d7 htools/Ganeti/HTools/Program/Hcheck.hs

b/htools/Ganeti/HTools/Program/Hcheck.hs
32 32 
import Control.Monad
33 33 
import Data.List (transpose)
34 34 
import System.Exit
35 
import System.IO
36 35 
import Text.Printf (printf)
37 36 

  		





  38
  37
  
    
import qualified Ganeti.HTools.Container as Container


  		





  ......




  48
  47
  
    
import Ganeti.HTools.ExtLoader


  		





  49
  48
  
    
import Ganeti.HTools.Loader


  		





  50
  49
  
    
import Ganeti.HTools.Types


  		





  
  50
  
    
import Ganeti.Utils


  		





  51
  51
  
    

  		





  52
  52
  
    
-- | Options list and functions.


  		





  53
  53
  
    
options :: [OptType]


  		





  ......




  295
  295
  
    
-- | Main function.


  		





  296
  296
  
    
main :: Options -> [String] -> IO ()


  		





  297
  297
  
    
main opts args = do


  		





  298
  
  
    
  unless (null args) $ do


  		





  299
  
  
    
         hPutStrLn stderr "Error: this program doesn't take any arguments."


  		





  300
  
  
    
         exitWith $ ExitFailure 1


  		





  
  298
  
    
  unless (null args) $ exitErr "This program doesn't take any arguments."


  		





  301
  299
  
    

  		





  302
  300
  
    
  let verbose = optVerbose opts


  		





  303
  301
  
    
      machineread = optMachineReadable opts


  		












Also available in:
  Unified diff