Revision 707cd3d7 htools/htools.hs

b/htools/htools.hs
30 30 
import Data.Char (toLower)
31 31 
import Prelude hiding (catch)
32 32 
import System.Environment
33 
import System.Exit
34 33 
import System.IO
35 34 
import System.IO.Error (isDoesNotExistError)
36 35 

  		





  ......




  45
  44
  
    
  hPutStrLn stderr "This program must be installed under one of the following\


  		





  46
  45
  
    
                   \ names:"


  		





  47
  46
  
    
  mapM_ (hPutStrLn stderr . ("  - " ++) . fst) personalities


  		





  48
  
  
    
  hPutStrLn stderr "Please either rename/symlink the program or set\n\


  		





  49
  
  
    
                   \the environment variable HTOOLS to the desired role."


  		





  50
  
  
    
  exitWith $ ExitFailure 1


  		





  
  47
  
    
  exitErr "Please either rename/symlink the program or set\n\


  		





  
  48
  
    
          \the environment variable HTOOLS to the desired role."


  		





  51
  49
  
    

  		





  52
  50
  
    
main :: IO ()


  		





  53
  51
  
    
main = do


  		












Also available in:
  Unified diff