typeBuiltin :: [String] -> Shell ExitCode
typeBuiltin ss = anyM $ \s -> doType "type" s =<< resolveCommand s
    where anyM f = do res <- forM ss f -- could probably use a clever fold
                      if any id res then return ExitSuccess
                                    else return $ ExitFailure 1
typeBuiltin :: [String] -> Shell ExitCode
typeBuiltin ss = anyM $ \s -> doType "type" s =<< resolveCommand s
    where anyM f = do res <- forM ss f -- could probably use a clever fold
                      if any id res then return ExitSuccess
                                    else return $ ExitFailure 1
typeBuiltin ss = anyM $ \s -> doType "type" s =<< resolveCommand s
    where anyM f = do res <- forM ss f -- could probably use a clever fold
                      if any id res then return ExitSuccess
                                    else return $ ExitFailure 1