jsonFieldLabelModifier :: Int -> String -> String
jsonFieldLabelModifier pl ls = let (h:ts) = drop pl ls in
                                 toLower h : ts
jsonFieldLabelModifier :: Int -> String -> String
jsonFieldLabelModifier pl ls = let (h:ts) = drop pl ls in
                                 toLower h : ts
jsonFieldLabelModifier pl ls = let (h:ts) = drop pl ls in
                                 toLower h : ts