Merge

hvr · Nov 18, 2011 · dfd3aa1 · dfd3aa1
2 parents 2b4545c + 9d4f41d
commit dfd3aa1
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/Data/Aeson/Generic.hs b/Data/Aeson/Generic.hs
@@ -119,6 +119,13 @@ mungeField ('_':cs) = pack cs
 mungeField cs       = pack cs
 
 
+-- Skip leading '_' in field name so we can use keywords
+-- etc. as field names.
+mungeField :: String -> Text
+mungeField ('_':cs) = pack cs
+mungeField cs       = pack cs
+
+
 toJSON_generic :: (Data a) => a -> Value
 toJSON_generic = generic
   where