Suma elementów w liście, w Haskellu

Prelude> let sumatab [n] =let suma [n] k = n if n>0 k=k+n n-1 else k

<interactive>:39:37: parse error on input `if'

Jak powinnam to zmienić aby kod był poprawny?

A jakim sposobem to chcesz zrobic, niezbyt rozumiem 2 lety, bez inow w 1 wyrazeniu.

sum' :: (Num a) => [a] -> a
sum' []     = error ""
sum' [x]    = x
sum' (x:xs) = x + (sum' xs)

Edycja bo przysnalem troche. :P

test kolorowania

sum :: (Num a) => [a] -> a
sum []     = error ""
sum [x]    = x
sum (x:xs) = x + (sum xs)