@@ -119,6 +119,13 @@ mungeField ('_':cs) = pack cs
119119mungeField cs = pack cs
120120
121121
122+-- Skip leading '_' in field name so we can use keywords
123+-- etc. as field names.
124+mungeField :: String -> Text
125+mungeField ('_':cs) = pack cs
126+mungeField cs = pack cs
127+
128+
122129toJSON_generic :: (Data a) => a -> Value
123130toJSON_generic = generic
124131 where