{-# LANGUAGE ExplicitForAll #-}
{-# LANGUAGE MultiWayIf #-}
-- CHANGE WITH CAUTION: This is a generated code file generated by https://github.com/Haskell-OpenAPI-Code-Generator/Haskell-OpenAPI-Client-Code-Generator.
{-# LANGUAGE OverloadedStrings #-}

-- | Contains the different functions to run the operation create_usage
module RecurlyClient.Operations.Create_usage where

import qualified Control.Monad.Fail
import qualified Control.Monad.Trans.Reader
import qualified Data.Aeson
import qualified Data.Aeson as Data.Aeson.Encoding.Internal
import qualified Data.Aeson as Data.Aeson.Types
import qualified Data.Aeson as Data.Aeson.Types.FromJSON
import qualified Data.Aeson as Data.Aeson.Types.Internal
import qualified Data.Aeson as Data.Aeson.Types.ToJSON
import qualified Data.ByteString
import qualified Data.ByteString as Data.ByteString.Internal
import qualified Data.ByteString as Data.ByteString.Internal.Type
import qualified Data.Either
import qualified Data.Foldable
import qualified Data.Functor
import qualified Data.Maybe
import qualified Data.Scientific
import qualified Data.Text
import qualified Data.Text as Data.Text.Internal
import qualified Data.Time.Calendar as Data.Time.Calendar.Days
import qualified Data.Time.LocalTime as Data.Time.LocalTime.Internal.ZonedTime
import qualified Data.Vector
import qualified GHC.Base
import qualified GHC.Classes
import qualified GHC.Int
import qualified GHC.Show
import qualified GHC.Types
import qualified Network.HTTP.Client
import qualified Network.HTTP.Client as Network.HTTP.Client.Request
import qualified Network.HTTP.Client as Network.HTTP.Client.Types
import qualified Network.HTTP.Simple
import qualified Network.HTTP.Types
import qualified Network.HTTP.Types as Network.HTTP.Types.Status
import qualified Network.HTTP.Types as Network.HTTP.Types.URI
import qualified RecurlyClient.Common
import RecurlyClient.Types
import qualified Prelude as GHC.Integer.Type
import qualified Prelude as GHC.Maybe

{- | > POST /subscriptions/{subscription_id}/add_ons/{add_on_id}/usage

Log a usage record on this subscription add-on
-}
create_usage ::
    forall m.
    (RecurlyClient.Common.MonadHTTP m) =>
    -- | Contains all available parameters of this operation (query and path parameters)
    Create_usageParameters ->
    -- | The request body to send
    UsageCreate ->
    -- | Monadic computation which returns the result of the operation
    RecurlyClient.Common.ClientT m (Network.HTTP.Client.Types.Response Create_usageResponse)
create_usage :: forall (m :: * -> *).
MonadHTTP m =>
Create_usageParameters
-> UsageCreate -> ClientT m (Response Create_usageResponse)
create_usage
    Create_usageParameters
parameters
    UsageCreate
body =
        (Response ByteString -> Response Create_usageResponse)
-> ClientT m (Response ByteString)
-> ClientT m (Response Create_usageResponse)
forall a b. (a -> b) -> ClientT m a -> ClientT m b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
GHC.Base.fmap
            ( \Response ByteString
response_0 ->
                (ByteString -> Create_usageResponse)
-> Response ByteString -> Response Create_usageResponse
forall a b. (a -> b) -> Response a -> Response b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
GHC.Base.fmap
                    ( (String -> Create_usageResponse)
-> (Create_usageResponse -> Create_usageResponse)
-> Either String Create_usageResponse
-> Create_usageResponse
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
Data.Either.either String -> Create_usageResponse
Create_usageResponseError Create_usageResponse -> Create_usageResponse
forall a. a -> a
GHC.Base.id
                        (Either String Create_usageResponse -> Create_usageResponse)
-> (ByteString -> Either String Create_usageResponse)
-> ByteString
-> Create_usageResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. ( \Response ByteString
response ByteString
body ->
                                        if
                                            | (\Status
status_1 -> Status -> Int
Network.HTTP.Types.Status.statusCode Status
status_1 Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Int
201) (Response ByteString -> Status
forall body. Response body -> Status
Network.HTTP.Client.Types.responseStatus Response ByteString
response) ->
                                                Usage -> Create_usageResponse
Create_usageResponse201
                                                    (Usage -> Create_usageResponse)
-> Either String Usage -> Either String Create_usageResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Usage
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
                                                                        Data.Either.Either
                                                                            GHC.Base.String
                                                                            Usage
                                                                     )
                                            | (\Status
status_2 -> Status -> Int
Network.HTTP.Types.Status.statusCode Status
status_2 Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Int
400) (Response ByteString -> Status
forall body. Response body -> Status
Network.HTTP.Client.Types.responseStatus Response ByteString
response) ->
                                                Error -> Create_usageResponse
Create_usageResponse400
                                                    (Error -> Create_usageResponse)
-> Either String Error -> Either String Create_usageResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Error
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
                                                                        Data.Either.Either
                                                                            GHC.Base.String
                                                                            Error
                                                                     )
                                            | (\Status
status_3 -> Status -> Int
Network.HTTP.Types.Status.statusCode Status
status_3 Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Int
404) (Response ByteString -> Status
forall body. Response body -> Status
Network.HTTP.Client.Types.responseStatus Response ByteString
response) ->
                                                Error -> Create_usageResponse
Create_usageResponse404
                                                    (Error -> Create_usageResponse)
-> Either String Error -> Either String Create_usageResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Error
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
                                                                        Data.Either.Either
                                                                            GHC.Base.String
                                                                            Error
                                                                     )
                                            | (\Status
status_4 -> Status -> Int
Network.HTTP.Types.Status.statusCode Status
status_4 Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Int
422) (Response ByteString -> Status
forall body. Response body -> Status
Network.HTTP.Client.Types.responseStatus Response ByteString
response) ->
                                                Error -> Create_usageResponse
Create_usageResponse422
                                                    (Error -> Create_usageResponse)
-> Either String Error -> Either String Create_usageResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Error
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
                                                                        Data.Either.Either
                                                                            GHC.Base.String
                                                                            Error
                                                                     )
                                            | Bool -> Status -> Bool
forall a b. a -> b -> a
GHC.Base.const Bool
GHC.Types.True (Response ByteString -> Status
forall body. Response body -> Status
Network.HTTP.Client.Types.responseStatus Response ByteString
response) ->
                                                Error -> Create_usageResponse
Create_usageResponseDefault
                                                    (Error -> Create_usageResponse)
-> Either String Error -> Either String Create_usageResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Error
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
                                                                        Data.Either.Either
                                                                            GHC.Base.String
                                                                            Error
                                                                     )
                                            | Bool
GHC.Base.otherwise -> String -> Either String Create_usageResponse
forall a b. a -> Either a b
Data.Either.Left String
"Missing default response type"
                                   )
                            Response ByteString
response_0
                    )
                    Response ByteString
response_0
            )
            (Text
-> Text
-> [QueryParameter]
-> Maybe UsageCreate
-> RequestBodyEncoding
-> ClientT m (Response ByteString)
forall (m :: * -> *) body.
(MonadHTTP m, ToJSON body) =>
Text
-> Text
-> [QueryParameter]
-> Maybe body
-> RequestBodyEncoding
-> ClientT m (Response ByteString)
RecurlyClient.Common.doBodyCallWithConfigurationM (Text -> Text
Data.Text.toUpper (Text -> Text) -> Text -> Text
forall a b. (a -> b) -> a -> b
GHC.Base.$ String -> Text
Data.Text.Internal.pack String
"POST") (Text
"/subscriptions/" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (ByteString -> Text
RecurlyClient.Common.byteToText (Bool -> ByteString -> ByteString
Network.HTTP.Types.URI.urlEncode Bool
GHC.Types.True (ByteString -> ByteString) -> ByteString -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ (Text -> ByteString
RecurlyClient.Common.textToByte (Text -> ByteString) -> Text -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ Text -> Text
forall a. ToJSON a => a -> Text
RecurlyClient.Common.stringifyModel (Create_usageParameters -> Text
create_usageParametersPathSubscription_id Create_usageParameters
parameters))) Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"/add_ons/" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (ByteString -> Text
RecurlyClient.Common.byteToText (Bool -> ByteString -> ByteString
Network.HTTP.Types.URI.urlEncode Bool
GHC.Types.True (ByteString -> ByteString) -> ByteString -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ (Text -> ByteString
RecurlyClient.Common.textToByte (Text -> ByteString) -> Text -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ Text -> Text
forall a. ToJSON a => a -> Text
RecurlyClient.Common.stringifyModel (Create_usageParameters -> Text
create_usageParametersPathAdd_on_id Create_usageParameters
parameters))) Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
GHC.Base.<> Text
"/usage")))) [QueryParameter]
forall a. Monoid a => a
GHC.Base.mempty (UsageCreate -> Maybe UsageCreate
forall a. a -> Maybe a
GHC.Maybe.Just UsageCreate
body) RequestBodyEncoding
RecurlyClient.Common.RequestBodyEncodingJSON)

-- | Defines the object schema located at @paths.\/subscriptions\/{subscription_id}\/add_ons\/{add_on_id}\/usage.POST.parameters@ in the specification.
data Create_usageParameters = Create_usageParameters
    { Create_usageParameters -> Text
create_usageParametersPathAdd_on_id :: Data.Text.Internal.Text
    -- ^ pathAdd_on_id: Represents the parameter named \'add_on_id\'
    --
    -- Add-on ID or code. For ID no prefix is used e.g. \`e28zov4fw0v2\`. For code use prefix \`code-\`, e.g. \`code-gold\`.
    , Create_usageParameters -> Text
create_usageParametersPathSubscription_id :: Data.Text.Internal.Text
    -- ^ pathSubscription_id: Represents the parameter named \'subscription_id\'
    --
    -- Subscription ID or UUID. For ID no prefix is used e.g. \`e28zov4fw0v2\`. For UUID use prefix \`uuid-\`, e.g. \`uuid-123457890\`.
    }
    deriving
        ( Int -> Create_usageParameters -> ShowS
[Create_usageParameters] -> ShowS
Create_usageParameters -> String
(Int -> Create_usageParameters -> ShowS)
-> (Create_usageParameters -> String)
-> ([Create_usageParameters] -> ShowS)
-> Show Create_usageParameters
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Create_usageParameters -> ShowS
showsPrec :: Int -> Create_usageParameters -> ShowS
$cshow :: Create_usageParameters -> String
show :: Create_usageParameters -> String
$cshowList :: [Create_usageParameters] -> ShowS
showList :: [Create_usageParameters] -> ShowS
GHC.Show.Show
        , Create_usageParameters -> Create_usageParameters -> Bool
(Create_usageParameters -> Create_usageParameters -> Bool)
-> (Create_usageParameters -> Create_usageParameters -> Bool)
-> Eq Create_usageParameters
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Create_usageParameters -> Create_usageParameters -> Bool
== :: Create_usageParameters -> Create_usageParameters -> Bool
$c/= :: Create_usageParameters -> Create_usageParameters -> Bool
/= :: Create_usageParameters -> Create_usageParameters -> Bool
GHC.Classes.Eq
        )

instance Data.Aeson.Types.ToJSON.ToJSON Create_usageParameters where
    toJSON :: Create_usageParameters -> Value
toJSON Create_usageParameters
obj = [Pair] -> Value
Data.Aeson.Types.Internal.object ([[Pair]] -> [Pair]
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
Data.Foldable.concat ([Key
"pathAdd_on_id" Key -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Pair
Data.Aeson.Types.ToJSON..= Create_usageParameters -> Text
create_usageParametersPathAdd_on_id Create_usageParameters
obj] [Pair] -> [[Pair]] -> [[Pair]]
forall a. a -> [a] -> [a]
: [Key
"pathSubscription_id" Key -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Pair
Data.Aeson.Types.ToJSON..= Create_usageParameters -> Text
create_usageParametersPathSubscription_id Create_usageParameters
obj] [Pair] -> [[Pair]] -> [[Pair]]
forall a. a -> [a] -> [a]
: [[Pair]]
forall a. Monoid a => a
GHC.Base.mempty))
    toEncoding :: Create_usageParameters -> Encoding
toEncoding Create_usageParameters
obj = Series -> Encoding
Data.Aeson.Encoding.Internal.pairs ([Series] -> Series
forall a. Monoid a => [a] -> a
GHC.Base.mconcat ([[Series]] -> [Series]
forall (t :: * -> *) a. Foldable t => t [a] -> [a]
Data.Foldable.concat ([Key
"pathAdd_on_id" Key -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Series
Data.Aeson.Types.ToJSON..= Create_usageParameters -> Text
create_usageParametersPathAdd_on_id Create_usageParameters
obj] [Series] -> [[Series]] -> [[Series]]
forall a. a -> [a] -> [a]
: [Key
"pathSubscription_id" Key -> Text -> Series
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
forall v. ToJSON v => Key -> v -> Series
Data.Aeson.Types.ToJSON..= Create_usageParameters -> Text
create_usageParametersPathSubscription_id Create_usageParameters
obj] [Series] -> [[Series]] -> [[Series]]
forall a. a -> [a] -> [a]
: [[Series]]
forall a. Monoid a => a
GHC.Base.mempty)))
instance Data.Aeson.Types.FromJSON.FromJSON Create_usageParameters where
    parseJSON :: Value -> Parser Create_usageParameters
parseJSON = String
-> (Object -> Parser Create_usageParameters)
-> Value
-> Parser Create_usageParameters
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.Aeson.Types.FromJSON.withObject String
"Create_usageParameters" (\Object
obj -> ((Text -> Text -> Create_usageParameters)
-> Parser (Text -> Text -> Create_usageParameters)
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
GHC.Base.pure Text -> Text -> Create_usageParameters
Create_usageParameters Parser (Text -> Text -> Create_usageParameters)
-> Parser Text -> Parser (Text -> Create_usageParameters)
forall a b. Parser (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
Data.Aeson.Types.FromJSON..: Key
"pathAdd_on_id")) Parser (Text -> Create_usageParameters)
-> Parser Text -> Parser Create_usageParameters
forall a b. Parser (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
GHC.Base.<*> (Object
obj Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
Data.Aeson.Types.FromJSON..: Key
"pathSubscription_id"))

-- | Create a new 'Create_usageParameters' with all required fields.
mkCreate_usageParameters ::
    -- | 'create_usageParametersPathAdd_on_id'
    Data.Text.Internal.Text ->
    -- | 'create_usageParametersPathSubscription_id'
    Data.Text.Internal.Text ->
    Create_usageParameters
mkCreate_usageParameters :: Text -> Text -> Create_usageParameters
mkCreate_usageParameters Text
create_usageParametersPathAdd_on_id Text
create_usageParametersPathSubscription_id =
    Create_usageParameters
        { create_usageParametersPathAdd_on_id :: Text
create_usageParametersPathAdd_on_id = Text
create_usageParametersPathAdd_on_id
        , create_usageParametersPathSubscription_id :: Text
create_usageParametersPathSubscription_id = Text
create_usageParametersPathSubscription_id
        }

{- | Represents a response of the operation 'create_usage'.

The response constructor is chosen by the status code of the response. If no case matches (no specific case for the response code, no range case, no default case), 'Create_usageResponseError' is used.
-}
data Create_usageResponse
    = -- | Means either no matching case available or a parse error
      Create_usageResponseError GHC.Base.String
    | -- | The created usage record.
      Create_usageResponse201 Usage
    | -- | Invalid or unpermitted parameter.
      Create_usageResponse400 Error
    | -- | Incorrect site or subscription ID or add-on id.
      Create_usageResponse404 Error
    | -- | A validation error.
      Create_usageResponse422 Error
    | -- | Unexpected error.
      Create_usageResponseDefault Error
    deriving (Int -> Create_usageResponse -> ShowS
[Create_usageResponse] -> ShowS
Create_usageResponse -> String
(Int -> Create_usageResponse -> ShowS)
-> (Create_usageResponse -> String)
-> ([Create_usageResponse] -> ShowS)
-> Show Create_usageResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Create_usageResponse -> ShowS
showsPrec :: Int -> Create_usageResponse -> ShowS
$cshow :: Create_usageResponse -> String
show :: Create_usageResponse -> String
$cshowList :: [Create_usageResponse] -> ShowS
showList :: [Create_usageResponse] -> ShowS
GHC.Show.Show, Create_usageResponse -> Create_usageResponse -> Bool
(Create_usageResponse -> Create_usageResponse -> Bool)
-> (Create_usageResponse -> Create_usageResponse -> Bool)
-> Eq Create_usageResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Create_usageResponse -> Create_usageResponse -> Bool
== :: Create_usageResponse -> Create_usageResponse -> Bool
$c/= :: Create_usageResponse -> Create_usageResponse -> Bool
/= :: Create_usageResponse -> Create_usageResponse -> Bool
GHC.Classes.Eq)

{- | > POST /subscriptions/{subscription_id}/add_ons/{add_on_id}/usage

The same as 'create_usage' but accepts an explicit configuration.
-}
create_usageWithConfiguration ::
    forall m.
    (RecurlyClient.Common.MonadHTTP m) =>
    -- | The configuration to use in the request
    RecurlyClient.Common.Configuration ->
    -- | Contains all available parameters of this operation (query and path parameters)
    Create_usageParameters ->
    -- | The request body to send
    UsageCreate ->
    -- | Monadic computation which returns the result of the operation
    m (Network.HTTP.Client.Types.Response Create_usageResponse)
create_usageWithConfiguration :: forall (m :: * -> *).
MonadHTTP m =>
Configuration
-> Create_usageParameters
-> UsageCreate
-> m (Response Create_usageResponse)
create_usageWithConfiguration
    Configuration
config
    Create_usageParameters
parameters
    UsageCreate
body =
        (Response ByteString -> Response Create_usageResponse)
-> m (Response ByteString) -> m (Response Create_usageResponse)
forall a b. (a -> b) -> m a -> m b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
GHC.Base.fmap
            ( \Response ByteString
response_5 ->
                (ByteString -> Create_usageResponse)
-> Response ByteString -> Response Create_usageResponse
forall a b. (a -> b) -> Response a -> Response b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
GHC.Base.fmap
                    ( (String -> Create_usageResponse)
-> (Create_usageResponse -> Create_usageResponse)
-> Either String Create_usageResponse
-> Create_usageResponse
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
Data.Either.either String -> Create_usageResponse
Create_usageResponseError Create_usageResponse -> Create_usageResponse
forall a. a -> a
GHC.Base.id
                        (Either String Create_usageResponse -> Create_usageResponse)
-> (ByteString -> Either String Create_usageResponse)
-> ByteString
-> Create_usageResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
GHC.Base.. ( \Response ByteString
response ByteString
body ->
                                        if
                                            | (\Status
status_6 -> Status -> Int
Network.HTTP.Types.Status.statusCode Status
status_6 Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Int
201) (Response ByteString -> Status
forall body. Response body -> Status
Network.HTTP.Client.Types.responseStatus Response ByteString
response) ->
                                                Usage -> Create_usageResponse
Create_usageResponse201
                                                    (Usage -> Create_usageResponse)
-> Either String Usage -> Either String Create_usageResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Usage
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
                                                                        Data.Either.Either
                                                                            GHC.Base.String
                                                                            Usage
                                                                     )
                                            | (\Status
status_7 -> Status -> Int
Network.HTTP.Types.Status.statusCode Status
status_7 Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Int
400) (Response ByteString -> Status
forall body. Response body -> Status
Network.HTTP.Client.Types.responseStatus Response ByteString
response) ->
                                                Error -> Create_usageResponse
Create_usageResponse400
                                                    (Error -> Create_usageResponse)
-> Either String Error -> Either String Create_usageResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Error
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
                                                                        Data.Either.Either
                                                                            GHC.Base.String
                                                                            Error
                                                                     )
                                            | (\Status
status_8 -> Status -> Int
Network.HTTP.Types.Status.statusCode Status
status_8 Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Int
404) (Response ByteString -> Status
forall body. Response body -> Status
Network.HTTP.Client.Types.responseStatus Response ByteString
response) ->
                                                Error -> Create_usageResponse
Create_usageResponse404
                                                    (Error -> Create_usageResponse)
-> Either String Error -> Either String Create_usageResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Error
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
                                                                        Data.Either.Either
                                                                            GHC.Base.String
                                                                            Error
                                                                     )
                                            | (\Status
status_9 -> Status -> Int
Network.HTTP.Types.Status.statusCode Status
status_9 Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
GHC.Classes.== Int
422) (Response ByteString -> Status
forall body. Response body -> Status
Network.HTTP.Client.Types.responseStatus Response ByteString
response) ->
                                                Error -> Create_usageResponse
Create_usageResponse422
                                                    (Error -> Create_usageResponse)
-> Either String Error -> Either String Create_usageResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Error
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
                                                                        Data.Either.Either
                                                                            GHC.Base.String
                                                                            Error
                                                                     )
                                            | Bool -> Status -> Bool
forall a b. a -> b -> a
GHC.Base.const Bool
GHC.Types.True (Response ByteString -> Status
forall body. Response body -> Status
Network.HTTP.Client.Types.responseStatus Response ByteString
response) ->
                                                Error -> Create_usageResponse
Create_usageResponseDefault
                                                    (Error -> Create_usageResponse)
-> Either String Error -> Either String Create_usageResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Data.Functor.<$> ( ByteString -> Either String Error
forall a. FromJSON a => ByteString -> Either String a
Data.Aeson.eitherDecodeStrict ByteString
body ::
                                                                        Data.Either.Either
                                                                            GHC.Base.String
                                                                            Error
                                                                     )
                                            | Bool
GHC.Base.otherwise -> String -> Either String Create_usageResponse
forall a b. a -> Either a b
Data.Either.Left String
"Missing default response type"
                                   )
                            Response ByteString
response_5
                    )
                    Response ByteString
response_5
            )
            (Configuration
-> Text
-> Text
-> [QueryParameter]
-> Maybe UsageCreate
-> RequestBodyEncoding
-> m (Response ByteString)
forall (m :: * -> *) body.
(MonadHTTP m, ToJSON body) =>
Configuration
-> Text
-> Text
-> [QueryParameter]
-> Maybe body
-> RequestBodyEncoding
-> m (Response ByteString)
RecurlyClient.Common.doBodyCallWithConfiguration Configuration
config (Text -> Text
Data.Text.toUpper (Text -> Text) -> Text -> Text
forall a b. (a -> b) -> a -> b
GHC.Base.$ String -> Text
Data.Text.Internal.pack String
"POST") (Text
"/subscriptions/" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (ByteString -> Text
RecurlyClient.Common.byteToText (Bool -> ByteString -> ByteString
Network.HTTP.Types.URI.urlEncode Bool
GHC.Types.True (ByteString -> ByteString) -> ByteString -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ (Text -> ByteString
RecurlyClient.Common.textToByte (Text -> ByteString) -> Text -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ Text -> Text
forall a. ToJSON a => a -> Text
RecurlyClient.Common.stringifyModel (Create_usageParameters -> Text
create_usageParametersPathSubscription_id Create_usageParameters
parameters))) Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"/add_ons/" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (ByteString -> Text
RecurlyClient.Common.byteToText (Bool -> ByteString -> ByteString
Network.HTTP.Types.URI.urlEncode Bool
GHC.Types.True (ByteString -> ByteString) -> ByteString -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ (Text -> ByteString
RecurlyClient.Common.textToByte (Text -> ByteString) -> Text -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ Text -> Text
forall a. ToJSON a => a -> Text
RecurlyClient.Common.stringifyModel (Create_usageParameters -> Text
create_usageParametersPathAdd_on_id Create_usageParameters
parameters))) Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
GHC.Base.<> Text
"/usage")))) [QueryParameter]
forall a. Monoid a => a
GHC.Base.mempty (UsageCreate -> Maybe UsageCreate
forall a. a -> Maybe a
GHC.Maybe.Just UsageCreate
body) RequestBodyEncoding
RecurlyClient.Common.RequestBodyEncodingJSON)

{- | > POST /subscriptions/{subscription_id}/add_ons/{add_on_id}/usage

The same as 'create_usage' but returns the raw 'Data.ByteString.ByteString'.
-}
create_usageRaw ::
    forall m.
    (RecurlyClient.Common.MonadHTTP m) =>
    -- | Contains all available parameters of this operation (query and path parameters)
    Create_usageParameters ->
    -- | The request body to send
    UsageCreate ->
    -- | Monadic computation which returns the result of the operation
    RecurlyClient.Common.ClientT m (Network.HTTP.Client.Types.Response Data.ByteString.Internal.Type.ByteString)
create_usageRaw :: forall (m :: * -> *).
MonadHTTP m =>
Create_usageParameters
-> UsageCreate -> ClientT m (Response ByteString)
create_usageRaw
    Create_usageParameters
parameters
    UsageCreate
body = ClientT m (Response ByteString) -> ClientT m (Response ByteString)
forall a. a -> a
GHC.Base.id (Text
-> Text
-> [QueryParameter]
-> Maybe UsageCreate
-> RequestBodyEncoding
-> ClientT m (Response ByteString)
forall (m :: * -> *) body.
(MonadHTTP m, ToJSON body) =>
Text
-> Text
-> [QueryParameter]
-> Maybe body
-> RequestBodyEncoding
-> ClientT m (Response ByteString)
RecurlyClient.Common.doBodyCallWithConfigurationM (Text -> Text
Data.Text.toUpper (Text -> Text) -> Text -> Text
forall a b. (a -> b) -> a -> b
GHC.Base.$ String -> Text
Data.Text.Internal.pack String
"POST") (Text
"/subscriptions/" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (ByteString -> Text
RecurlyClient.Common.byteToText (Bool -> ByteString -> ByteString
Network.HTTP.Types.URI.urlEncode Bool
GHC.Types.True (ByteString -> ByteString) -> ByteString -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ (Text -> ByteString
RecurlyClient.Common.textToByte (Text -> ByteString) -> Text -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ Text -> Text
forall a. ToJSON a => a -> Text
RecurlyClient.Common.stringifyModel (Create_usageParameters -> Text
create_usageParametersPathSubscription_id Create_usageParameters
parameters))) Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"/add_ons/" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (ByteString -> Text
RecurlyClient.Common.byteToText (Bool -> ByteString -> ByteString
Network.HTTP.Types.URI.urlEncode Bool
GHC.Types.True (ByteString -> ByteString) -> ByteString -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ (Text -> ByteString
RecurlyClient.Common.textToByte (Text -> ByteString) -> Text -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ Text -> Text
forall a. ToJSON a => a -> Text
RecurlyClient.Common.stringifyModel (Create_usageParameters -> Text
create_usageParametersPathAdd_on_id Create_usageParameters
parameters))) Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
GHC.Base.<> Text
"/usage")))) [QueryParameter]
forall a. Monoid a => a
GHC.Base.mempty (UsageCreate -> Maybe UsageCreate
forall a. a -> Maybe a
GHC.Maybe.Just UsageCreate
body) RequestBodyEncoding
RecurlyClient.Common.RequestBodyEncodingJSON)

{- | > POST /subscriptions/{subscription_id}/add_ons/{add_on_id}/usage

The same as 'create_usage' but accepts an explicit configuration and returns the raw 'Data.ByteString.ByteString'.
-}
create_usageWithConfigurationRaw ::
    forall m.
    (RecurlyClient.Common.MonadHTTP m) =>
    -- | The configuration to use in the request
    RecurlyClient.Common.Configuration ->
    -- | Contains all available parameters of this operation (query and path parameters)
    Create_usageParameters ->
    -- | The request body to send
    UsageCreate ->
    -- | Monadic computation which returns the result of the operation
    m (Network.HTTP.Client.Types.Response Data.ByteString.Internal.Type.ByteString)
create_usageWithConfigurationRaw :: forall (m :: * -> *).
MonadHTTP m =>
Configuration
-> Create_usageParameters -> UsageCreate -> m (Response ByteString)
create_usageWithConfigurationRaw
    Configuration
config
    Create_usageParameters
parameters
    UsageCreate
body = m (Response ByteString) -> m (Response ByteString)
forall a. a -> a
GHC.Base.id (Configuration
-> Text
-> Text
-> [QueryParameter]
-> Maybe UsageCreate
-> RequestBodyEncoding
-> m (Response ByteString)
forall (m :: * -> *) body.
(MonadHTTP m, ToJSON body) =>
Configuration
-> Text
-> Text
-> [QueryParameter]
-> Maybe body
-> RequestBodyEncoding
-> m (Response ByteString)
RecurlyClient.Common.doBodyCallWithConfiguration Configuration
config (Text -> Text
Data.Text.toUpper (Text -> Text) -> Text -> Text
forall a b. (a -> b) -> a -> b
GHC.Base.$ String -> Text
Data.Text.Internal.pack String
"POST") (Text
"/subscriptions/" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (ByteString -> Text
RecurlyClient.Common.byteToText (Bool -> ByteString -> ByteString
Network.HTTP.Types.URI.urlEncode Bool
GHC.Types.True (ByteString -> ByteString) -> ByteString -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ (Text -> ByteString
RecurlyClient.Common.textToByte (Text -> ByteString) -> Text -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ Text -> Text
forall a. ToJSON a => a -> Text
RecurlyClient.Common.stringifyModel (Create_usageParameters -> Text
create_usageParametersPathSubscription_id Create_usageParameters
parameters))) Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (Text
"/add_ons/" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
GHC.Base.<> (ByteString -> Text
RecurlyClient.Common.byteToText (Bool -> ByteString -> ByteString
Network.HTTP.Types.URI.urlEncode Bool
GHC.Types.True (ByteString -> ByteString) -> ByteString -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ (Text -> ByteString
RecurlyClient.Common.textToByte (Text -> ByteString) -> Text -> ByteString
forall a b. (a -> b) -> a -> b
GHC.Base.$ Text -> Text
forall a. ToJSON a => a -> Text
RecurlyClient.Common.stringifyModel (Create_usageParameters -> Text
create_usageParametersPathAdd_on_id Create_usageParameters
parameters))) Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
GHC.Base.<> Text
"/usage")))) [QueryParameter]
forall a. Monoid a => a
GHC.Base.mempty (UsageCreate -> Maybe UsageCreate
forall a. a -> Maybe a
GHC.Maybe.Just UsageCreate
body) RequestBodyEncoding
RecurlyClient.Common.RequestBodyEncodingJSON)