Revision 45f01962 hbal.hs

b/hbal.hs
141 141 
main :: IO ()
142 142 
main = do
143 143 
  cmd_args <- System.getArgs
144 
  (opts, _) <- CLI.parseOpts cmd_args "hbal" options defaultOptions optShowHelp
144 
  (opts, args) <- CLI.parseOpts cmd_args "hbal" options
145 
                  defaultOptions optShowHelp
146 

  		





  
  147
  
    
  unless (null args) $ do


  		





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


  		





  
  149
  
    
         exitWith $ ExitFailure 1


  		





  145
  150
  
    

  		





  146
  151
  
    
  when (optShowVer opts) $ do


  		





  147
  152
  
    
         putStr $ CLI.showVersion "hbal"


  		












Also available in:
  Unified diff