Revision 05ff7a00 htools/htools.hs

b/htools/htools.hs
56 56 

  		





  57
  57
  
    
main :: IO ()


  		





  58
  58
  
    
main = do


  		





  59
  
  
    
  binary <- getEnv "HTOOLS" `catch` (\_ -> getProgName)


  		





  
  59
  
    
  binary <- getEnv "HTOOLS" `catch` const getProgName


  		





  60
  60
  
    
  let name = map toLower binary


  		





  61
  61
  
    
      boolnames = map (\(x, y) -> (x == name, y)) personalities


  		





  62
  62
  
    
  select (usage name) boolnames


  		












Also available in:
  Unified diff