Haskell

Please help with my Haskell code. It is supposed to return the maximum element in a list but it doesn't work

lol :: [a] -> Nothing | a
lol [] = Nothing
lol [x] = x
lol (x:xs) = if x > lol xs then x else lol xs

>>2
*Main> listMax [1..1000000]
Just *** Exception: stack overflow

>>3
*Main> listMax [1..1000000]
Just *** Exception: stack overflow
(though it took like 5 times longer than previous "solution", ololo)

All you people suck at haskell.

Also, this proves that haskell itself sucks: there is no no other language formally supporting tail recursion where any obvious solution would stackoverflow.