findScons :: Verbosity -> IO (Maybe FilePath)
findScons verb = do
  let locs = ["/usr/bin","/usr/local/bin","/usr/sbin","/usr/local/sbin"]
  ml <- mapM (findProgramLocation verb) locs
  return $ firstJust ml
findScons :: Verbosity -> IO (Maybe FilePath)
findScons verb = do
  let locs = ["/usr/bin","/usr/local/bin","/usr/sbin","/usr/local/sbin"]
  ml <- mapM (findProgramLocation verb) locs
  return $ firstJust ml
findScons verb = do
  let locs = ["/usr/bin","/usr/local/bin","/usr/sbin","/usr/local/sbin"]
  ml <- mapM (findProgramLocation verb) locs
  return $ firstJust ml