@@ -111,21 +111,12 @@ toJSON = toJSON_generic
111111 where tyrep = typeOf . head . H.keys $ m
112112 remap f = Object . mapKeyVal (f . fromJust . cast) toJSON $ m
113113
114−
115114-- Skip leading '_' in field name so we can use keywords
116115-- etc. as field names.
117116mungeField :: String -> Text
118117mungeField ('_':cs) = pack cs
119118mungeField cs = pack cs
120119
121−
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−
129120toJSON_generic :: (Data a) => a -> Value
130121toJSON_generic = generic
131122 where