Case insensitive filter makes result lowercase

[LiraOnGithub]

I expect searching for test in --Test-- to yield --<Test>-- but --<t><e><s><t>-- is given. The multiple matches is already addressed in issue #2 but I still expect that t to be T.

ghci> Text.Fuzzy.filter "test" ["--Test--"] "<" ">" id False
[Fuzzy {original = "--Test--", rendered = "--<t><e><s><t>--", score = 26}]