map JSON key to start with lower-case

Persistent's JSON data mapping is very useful, but I found a problem.
If a JSON object's "key" starts with upper-case alphabet, we can't map it to Haskell internal data in intact.
So I wrote a patch that convert such key name to start with corresponding lower case letter.