aeson weirdness

aeson.hs

customOptions :: Options
customOptions = defaultOptions
  { fieldLabelModifier      = tail
  , constructorTagModifier  = map toLower
  , unwrapUnaryRecords      = True
  }

data Auth = Auth
  { _username :: String
  , _password :: String
  } deriving (Generic, Show)

instance ToJSON Auth where
    toEncoding = genericToEncoding customOptions
instance FromJSON Auth where
  parseJSON = genericParseJSON customOptions


-- res <- post url (toJSON auth)
-- vs.
-- res <- post url (encode auth)

The issue is that with toJSON _ is not removed for fields.

And it's a (minor) pain because with encode I'll need to send Content-Type myself since it's just a string.