updateCache (CreatePayment _ ) = error "Not implemented"

updateCache dbop @ (CreatePayment req) = do
  eventId <- requireEventId dbop
  pinsert PaymentId
    "INSERT INTO payments \
    \(payment_request_id, event_id, payment_data) \
    \VALUES (?, ?, ?) RETURNING id"
    ( req ^. (request . _PaymentRequestId)
    , eventId ^. _EventId
    , req ^. (payment . to (runPut . encodeMessage))
    )

  CreatePaymentRequest :: PaymentRequest SubscriptionId -> DBOp PaymentRequestId
  CreatePayment        :: Payment PaymentRequestId -> DBOp PaymentId

  CreatePaymentRequest :: PaymentRequest -> DBOp PaymentRequestId
  CreatePayment        :: Payment -> DBOp PaymentId

readPaymentHistory :: UserId -> DBProg [Payment PaymentRequestId]

readPaymentHistory :: UserId -> DBProg [Payment]

import           Control.Lens               (makeLenses)

import           Control.Lens               (makeLenses, makePrisms)

import Aftok.Billables

makePrisms ''PaymentRequestId

makePrisms ''PaymentId

data PaymentRequest (s :: *) = PaymentRequest

data PaymentRequest' (s :: *) = PaymentRequest

makeLenses ''PaymentRequest

makeLenses ''PaymentRequest'

data Payment (r :: *) = Payment

type PaymentRequest = PaymentRequest' SubscriptionId
data Payment' (r :: *) = Payment

makeLenses ''Payment

makeLenses ''Payment'
type Payment = Payment' PaymentRequestId