import           Aftok.Json                           (billableJSON, subscriptionJSON)

import           Aftok.Json                           (billableJSON, subscriptionJSON, paymentRequestJSON, paymentJSON)

storeEvent (CreatePaymentRequest _ _) = error "Not implemented"
storeEvent (CreatePayment _ _) = error "Not implemented"

storeEvent (CreatePaymentRequest uid req) = 
  Just $ storeEventJSON uid "create_payment_request" (paymentRequestJSON req)
storeEvent (CreatePayment uid req) = 
  Just $ storeEventJSON uid "create_payment" (paymentJSON req)

import qualified Data.ByteString.Base64           as B64
import Data.ProtocolBuffers (encodeMessage)

import           Data.Serialize.Put                   (runPut)

import           Aftok.Payments

  obj [ "projectId"   .= tshow (b ^. (B.project . _ProjectId))

  obj [ "projectId"   .= (b ^. (B.project . _ProjectId . to tshow))

      ]
paymentRequestJSON :: PaymentRequest -> Value
paymentRequestJSON r = v1 $
  obj [ "subscription_id" .= (r ^. (subscription . B._SubscriptionId . to tshow))
      , "payment_request_protobuf_64" .= (r ^. (paymentRequest . to (decodeUtf8 . B64.encode . runPut . encodeMessage)))
      , "payment_request_date" .= (r ^. paymentRequestDate)
      ]
paymentJSON :: Payment -> Value
paymentJSON r = v1 $
  obj [ "payment_request_id"  .= (r ^. (request . _PaymentRequestId . to tshow))
      , "payment_protobuf_64" .= (r ^. (payment . to (decodeUtf8 . B64.encode . runPut . encodeMessage)))
      , "payment_date" .= (r ^. paymentDate)

data PaymentRequest' (s :: *) = PaymentRequest

data PaymentRequest' s = PaymentRequest

data Payment' (r :: *) = Payment

data Payment' r = Payment