0

I wrote the following suffixes function. Given a list, it returns the list + all sub-lists.
suffixes [1,2,3,4] == [[1,2,3,4], [2,3,4], [3,4], [4], []]
Please critique my implementation.
suffixes :: [a] -> [[a]]
suffixes [] = [] : []
suffixes xxs@(_:xs) = xxs : suffixes xs