Revision e892cdfa htools/htools.hs

b/htools/htools.hs
51 51 
  binary <- catchJust (guard . isDoesNotExistError)
52 52 
            (getEnv "HTOOLS") (const getProgName)
53 53 
  let name = map toLower binary
54 
      boolnames = map (\(x, y) -> (x == name, Just y)) personalities
55 
  case select Nothing boolnames of
54 
  case name `lookup` personalities of
56 55 
    Nothing -> usage name
57 56 
    Just (fn, options, arguments, _) -> do
58 57 
         cmd_args <- getArgs

Also available in: Unified diff