Haskell chunksOf implementation

chunksOf :: Int -> [a] -> [[a]]
chunksOf _ [] = []
chunksOf n xs = chunk : (chunksOf n rest)
    where (chunk, rest) = splitAt n xs