ToJSON and FromJSON instances for Identity

I've found these useful when dealing with the particular kind of parameterized types, e.g.

```
data T f = T { foo :: f String, bar :: f Int, ... } 
```