Essa definição não deve ser permitida em um idioma lento como Haskell, no qual as funções são curry?

apply f [] = f
apply f (x:xs) = apply (f x) xs

É basicamente uma função que aplica a função fornecida à lista de argumentos fornecida e é muito fácil de executar no Lisp, por exemplo. Existem soluções alternativas?