scanl / scanr do not replace invalid Char when passed as an initial value of accumulator

```
ghci> Data.Text.singleton '\55296'
"\65533"
ghci> Data.Text.scanl Prelude.undefined '\55296' mempty
"\55296"
```
Which means that one can end up with a malformed `Text`. 