{-# LANGUAGE DataKinds #-} module Hercules.API.ClientInfo where import Hercules.API.ClientInfo.ClientInfo (ClientInfo) import Hercules.API.Prelude import Servant.API data ClientInfoAPI auth f = ClientInfoAPI { forall auth f. ClientInfoAPI auth f -> f :- ("client" :> ("info" :> (auth :> Get '[JSON] ClientInfo))) getClientInfo :: f :- "client" :> "info" :> auth :> Get '[JSON] ClientInfo } deriving ((forall x. ClientInfoAPI auth f -> Rep (ClientInfoAPI auth f) x) -> (forall x. Rep (ClientInfoAPI auth f) x -> ClientInfoAPI auth f) -> Generic (ClientInfoAPI auth f) forall x. Rep (ClientInfoAPI auth f) x -> ClientInfoAPI auth f forall x. ClientInfoAPI auth f -> Rep (ClientInfoAPI auth f) x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a forall auth f x. Rep (ClientInfoAPI auth f) x -> ClientInfoAPI auth f forall auth f x. ClientInfoAPI auth f -> Rep (ClientInfoAPI auth f) x $cfrom :: forall auth f x. ClientInfoAPI auth f -> Rep (ClientInfoAPI auth f) x from :: forall x. ClientInfoAPI auth f -> Rep (ClientInfoAPI auth f) x $cto :: forall auth f x. Rep (ClientInfoAPI auth f) x -> ClientInfoAPI auth f to :: forall x. Rep (ClientInfoAPI auth f) x -> ClientInfoAPI auth f Generic)