Haskell + JSON with keywords

main.hs

{-# LANGUAGE DerivingVia, DataKinds, DeriveGeneric, TypeApplications #-}
module Main where

import Control.Lens ((^.))
import Data.Aeson
import Deriving.Aeson
import GHC.Generics (Generic)
import Network.Wreq (Response, asJSON, get, responseBody)

data User = User
  { userId :: Int
  , userName :: String
  }
  deriving (Show, Generic)
  deriving (FromJSON, ToJSON) via CustomJSON '[FieldLabelModifier '[StripPrefix "user", CamelToSnake]] User

data Payload = Payload
  { payloadData :: [User]
  }
  deriving (Show, Generic)
  deriving (FromJSON, ToJSON) via CustomJSON '[FieldLabelModifier '[StripPrefix "payload", CamelToSnake]] Payload

printResponse :: Response Payload -> IO ()
printResponse r = print (r ^. responseBody)

main :: IO ()
main = do
  response <- get "https://gorest.co.in/public/v1/users" >>= asJSON
  printResponse response