Finish luhn validation exercise

I know my review is late, but I hope you don't mind a minor comment :)

You don't need the base case, since `sum` and `map` can handle the empty list. Also, `concatMap` is a thing.

```haskell
sumDigits = sum . concatMap toDigits
```