postIt pw@(PandoraWorld {..}) method js = do
    preq <- mkPandoraRequest pw js
    let target = endpoint

        postBody = J.encode $ preq
        postBodyC = enc $ BSL.toStrict postBody

        opts = defaults & header "Content-type" .~ ["text/plain; charset=utf8"]
                        & header "User-Agent" .~ [userAgent]
                        & param "method" .~ [method]
                        & param "partner_id" .~ [pwPartnerId]
                        & param "auth_token" .~ [pwUserAuthToken]
                        & param "user_id" .~ [pwUserId]

    resp <- postWith opts target postBodyC

    return resp
postIt pw@(PandoraWorld {..}) method js = do
    preq <- mkPandoraRequest pw js
    let target = endpoint

        postBody = J.encode $ preq
        postBodyC = enc $ BSL.toStrict postBody

        opts = defaults & header "Content-type" .~ ["text/plain; charset=utf8"]
                        & header "User-Agent" .~ [userAgent]
                        & param "method" .~ [method]
                        & param "partner_id" .~ [pwPartnerId]
                        & param "auth_token" .~ [pwUserAuthToken]
                        & param "user_id" .~ [pwUserId]

    resp <- postWith opts target postBodyC

    return resp
postIt pw@(PandoraWorld {..}) method js = do
    preq <- mkPandoraRequest pw js
    let target = endpoint

        postBody = J.encode $ preq
        postBodyC = enc $ BSL.toStrict postBody

        opts = defaults & header "Content-type" .~ ["text/plain; charset=utf8"]
                        & header "User-Agent" .~ [userAgent]
                        & param "method" .~ [method]
                        & param "partner_id" .~ [pwPartnerId]
                        & param "auth_token" .~ [pwUserAuthToken]
                        & param "user_id" .~ [pwUserId]

    resp <- postWith opts target postBodyC

    return resp