module Network.SendGridV3.JSON where

import           Data.Aeson                               ( camelTo2 )

-- | Format a prefixed record field for SendGrid API consumption
unPrefix :: String -> String -> String
unPrefix :: String -> String -> String
unPrefix String
prefix = Char -> String -> String
camelTo2 Char
'_' (String -> String) -> (String -> String) -> String -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> String -> String
forall a. Int -> [a] -> [a]
drop (String -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length String
prefix)