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

b/htools/Ganeti/HTools/Program/Hspace.hs
387 387 
-- | Main function.
388 388 
main :: Options -> [String] -> IO ()
389 389 
main opts args = do
390 
  exitUnless (null args) "this program doesn't take any arguments"
390 
  exitUnless (null args) "This program doesn't take any arguments."
391 391 

  		





  392
  392
  
    
  let verbose = optVerbose opts


  		





  393
  393
  
    
      machine_r = optMachineReadable opts


  		












Also available in:
  Unified diff