nuttycom/aftok - Change AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC

Implement payments service endpoints.

This is not yet fully ready, as the payment request endpoint should not require user login, but should instead use a secure identifier for easy handling by wallet software. However, this is now suitable for initial testing.

Created by Kris Nuttycombe on February 22, 2017

AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC

Dependencies

In channels

main

Change contents

Insertion in aftok.cabal at line 132 [4.1]
[3.592]
[3.592]
```
               , Aftok.Snaplet.Payments
```
Insertion in aftok.cabal at line 146 [4.1]
[3.758]
[5.1144]
```
    , cereal
```
Insertion in aftok.cabal at line 163 [4.1]
[6.7376]
[7.731]
```
    , protobuf
```
Insertion in lib/Aftok/Billables.hs at line 4 [3.760]
[7.1016]
[2.74]
```
{-# LANGUAGE ExplicitForAll    #-}
```

Replacement in lib/Aftok/Billables.hs at line 78 [3.760]

B:BD[7.1424] → [8.358:394]

B:BD[8.394] → [2.639:659]

data Subscription' b = Subscription
  { _billable  :: b

[7.1424]

[7.1480]

data Subscription' u b = Subscription
  { _customer  :: u
  , _billable  :: b

Replacement in lib/Aftok/Billables.hs at line 86 [3.760]
B:BD[9.1030] → [7.1614:1659]
```
type Subscription = Subscription' BillableId
```
[9.1030]
[7.1659]
```
type Subscription = Subscription' UserId BillableId
```

Replacement in lib/Aftok/Billables.hs at line 100 [3.760]

B:BD[8.787] → [8.787:840]

billingSchedule :: Subscription' Billable -> [T.Day]

[8.787]

[8.840]

billingSchedule :: forall u. Subscription' u Billable -> [T.Day]

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 167 [6.456]

∅:D[2.1442] → [7.4011:4057]

B:BD[7.4011] → [7.4011:4057]

  B.Subscription <$> (B.BillableId <$> field)

[2.1442]

[7.4057]

  B.Subscription <$> idParser UserId
                 <*> idParser B.BillableId

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 210 [6.456]

B:BD[10.264] → [7.4147:4268]

storeEvent (CreateSubscription uid s) =
  Just $ storeEventJSON uid "create_subscription" (createSubscriptionJSON uid s)

[10.264]

[10.384]

storeEvent (CreateSubscription uid bid) =
  Just $ storeEventJSON uid "create_subscription" (createSubscriptionJSON uid bid)

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 450 [6.456]
B:BD[3.3943] → [7.5629:5675]
```
pgEval dbop @ (CreateSubscription uid s) = do
```
[3.3943]
[11.576]
```
pgEval dbop @ (CreateSubscription uid bid) = do
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 456 [6.456]

B:BD[11.746] → [7.5704:5781]

    (uid ^. _UserId, s ^. (B.billable . B._BillableId), eventId ^. _EventId)

[11.746]

[8.3074]

    ( view _UserId uid
    , view B._BillableId bid
    , view _EventId eventId
    )

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 470 [6.456]
∅:D[8.3356] → [7.5883:5935]
B:BD[7.5883] → [7.5883:5935]
```
    "SELECT id, billable_id, start_date, end_date \
```
[8.3356]
[7.5935]
```
    "SELECT id, user_id, billable_id, start_date, end_date \
```

Insertion in lib/Aftok/Database/PostgreSQL.hs at line 505 [6.456]

[8.4073]

pgEval (FindUnpaidRequests sid) =
  let rowp :: RowParser (PaymentRequestId, PaymentRequest, B.Subscription, B.Billable)
      rowp = (,,,) <$> idParser PaymentRequestId
                   <*> paymentRequestParser
                   <*> subscriptionParser
                   <*> billableParser
  in  pquery rowp
      "SELECT id, \
      \       r.subscription_id, r.request_data, r.request_time, r.billing_date, \
      \       s.user_id, s.billable_id, s.start_date, s.end_date, \
      \       b.project_id, e.created_by, b.name, b.description, b.recurrence_type, \
      \       b.recurrence_count, b.billing_amount, b.grace_period_days \
      \FROM payment_requests r \
      \JOIN subscriptions s on s.id = r.subscription_id \
      \JOIN billables b on b.id = s.billable_id \
      \WHERE subscription_id = ? \
      \AND r.id NOT IN (SELECT payment_request_id FROM payments)"
      (Only (sid ^. B._SubscriptionId))

Replacement in lib/Aftok/Database.hs at line 55 [4.4936]

B:BD[9.13383] → [7.6500:6570]

B:BD[7.6570] → [8.4887:4954]

∅:D[8.4954] → [7.6570:6654]

B:BD[7.6570] → [7.6570:6654]

  CreateSubscription :: UserId -> Subscription -> DBOp SubscriptionId
  FindSubscription  :: SubscriptionId -> DBOp (Maybe Subscription)
  FindSubscriptions :: UserId -> ProjectId -> DBOp [(SubscriptionId, Subscription)]

[9.13383]

[3.4199]

  CreateSubscription :: UserId -> BillableId -> DBOp SubscriptionId
  FindSubscription   :: SubscriptionId -> DBOp (Maybe Subscription)
  FindSubscriptions  :: UserId -> ProjectId -> DBOp [(SubscriptionId, Subscription)]

Insertion in lib/Aftok/Database.hs at line 62 [4.4936]
[8.5194]
[8.5194]
```
  FindUnpaidRequests    :: SubscriptionId -> DBOp [BillDetail]
```

Insertion in lib/Aftok/Database.hs at line 71 [4.4936]

[12.7295]

[5.4843]

                       | UserNotSubscriber SubscriptionId

Replacement in lib/Aftok/Database.hs at line 197 [4.4936]

B:BD[8.5730] → [8.5730:5825]

findSubscriptionBillable :: (MonadDB m) => SubscriptionId -> MaybeT m (Subscription' Billable)

[8.5730]

[8.5825]

findSubscriptionBillable :: (MonadDB m) => SubscriptionId -> MaybeT m (Subscription' UserId Billable)

Insertion in lib/Aftok/Database.hs at line 205 [4.4936]

[13.1595]

[8.6084]

-- this could be implemented in terms of other operations, but it's
-- much cleaner to just do the joins in the database
findUnpaidRequests :: (MonadDB m) => SubscriptionId -> m [BillDetail]
findUnpaidRequests = liftdb . FindUnpaidRequests

Insertion in lib/Aftok/Json.hs at line 3 [16.19]
[14.1002]
[15.881]
```
{-# LANGUAGE RankNTypes         #-}
```

Insertion in lib/Aftok/Json.hs at line 33 [16.19]

[17.551]

[18.116]

import           Aftok.Payments.Types             (BillDetail)

Insertion in lib/Aftok/Json.hs at line 103 [16.19]

[19.5169]

[16.485]


idJSON :: forall a. Lens' a UUID -> a -> Value
idJSON l a = toJSON . tshow $ view l a

Replacement in lib/Aftok/Json.hs at line 180 [16.19]

B:BD[10.1605] → [10.1605:1627]

B:BD[10.1627] → [17.552:620]

∅:D[17.620] → [10.1690:1836]

B:BD[10.1690] → [10.1690:1836]

B:BD[10.1836] → [7.10115:10168]

B:BD[7.10168] → [8.6328:6374]

∅:D[8.6374] → [7.10224:10305]

B:BD[7.10224] → [7.10224:10305]

∅:D[7.10305] → [10.1836:1844]

B:BD[10.1836] → [10.1836:1844]

billableJSON b = v1 $
  obj [ "projectId"   .= (b ^. (B.project . _ProjectId . to tshow))
      , "name"        .= (b ^. B.name)
      , "description" .= (b ^. B.description)
      , "recurrence"  .= recurrenceJSON' (b ^. B.recurrence)
      , "amount"      .= (b ^. (B.amount . satoshi))
      , "gracePeriod" .= (b ^. B.gracePeriod)
      , "requestExpiryPeriod" .= (C.toSeconds' <$> (b ^. B.requestExpiryPeriod))
      ]

[10.1605]

[10.1844]

billableJSON = v1 . obj . billableKV
billableKV :: (KeyValue kv) => B.Billable -> [kv]
billableKV b =
  [ "projectId"   .= (b ^. (B.project . _ProjectId . to tshow))
  , "name"        .= (b ^. B.name)
  , "description" .= (b ^. B.description)
  , "recurrence"  .= recurrenceJSON' (b ^. B.recurrence)
  , "amount"      .= (b ^. (B.amount . satoshi))
  , "gracePeriod" .= (b ^. B.gracePeriod)
  , "requestExpiryPeriod" .= (C.toSeconds' <$> (b ^. B.requestExpiryPeriod))
  ]

Replacement in lib/Aftok/Json.hs at line 200 [16.19]

B:BD[19.5682] → [7.10306:10521]

createSubscriptionJSON :: UserId -> B.Subscription -> Value
createSubscriptionJSON uid sub = v1 $
  obj [ "user_id"     .= tshow (uid ^. _UserId)
      , "billable_id" .= tshow (sub ^. (B.billable . B._BillableId))

[19.5682]

[17.621]

createSubscriptionJSON :: UserId -> B.BillableId -> Value
createSubscriptionJSON uid bid = v1 $
  obj [ "user_id"     .= idJSON _UserId uid
      , "billable_id" .= idJSON B._BillableId bid

Insertion in lib/Aftok/Json.hs at line 205 [16.19]

[17.629]


subscriptionJSON :: B.Subscription -> Value
subscriptionJSON = v1 . obj . subscriptionKV

Insertion in lib/Aftok/Json.hs at line 209 [16.19]

[17.630]

subscriptionKV :: (KeyValue kv) => B.Subscription -> [kv]
subscriptionKV sub =
  [ "user_id"     .= idJSON (B.customer . _UserId) sub
  , "billable_id" .= idJSON (B.billable . B._BillableId) sub
  , "start_time"  .= view B.startTime sub
  , "end_time"    .= view B.endTime sub
  ]

Replacement in lib/Aftok/Json.hs at line 218 [16.19]

B:BD[17.676] → [17.676:907]

B:BD[17.907] → [8.6443:6569]

∅:D[8.6569] → [17.967:975]

B:BD[17.967] → [17.967:975]

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_time" .= (r ^. paymentRequestTime)
      , "billing_date" .= (r ^. (billingDate . to showGregorian))
      ]

[17.676]

[17.975]

paymentRequestJSON = v1 . obj . paymentRequestKV
paymentRequestKV :: (KeyValue kv) => PaymentRequest -> [kv]
paymentRequestKV r =
  [ "subscription_id" .= (r ^. (subscription . B._SubscriptionId . to tshow))
  , "payment_request_protobuf_64" .= (r ^. (paymentRequest . to (decodeUtf8 . B64.encode . runPut . encodeMessage)))
  , "payment_request_time" .= (r ^. paymentRequestTime)
  , "billing_date" .= (r ^. (billingDate . to showGregorian))
  ]
billDetailsJSON :: [BillDetail] -> Value
billDetailsJSON r = v1 $
  obj ["payment_requests" .= fmap billDetailJSON r ]

Insertion in lib/Aftok/Json.hs at line 232 [16.19]

[17.976]

billDetailJSON :: BillDetail -> Object
billDetailJSON r =
  obj $ concat
    [ ["payment_request_id" .= idJSON _PaymentRequestId (view _1 r)]
    , paymentRequestKV $ view _2 r
    , subscriptionKV $ view _3 r
    , billableKV $ view _4 r
    ]

Insertion in lib/Aftok/Payments/Types.hs at line 4 [7.10545]
[8.6670]
[2.2210]
```
{-# LANGUAGE ExplicitForAll    #-}
```

Replacement in lib/Aftok/Payments/Types.hs at line 11 [7.10545]

B:BD[7.10647] → [2.2246:2308]

import           Control.Lens        (makeLenses, makePrisms)

[7.10647]

[7.10703]

import           Control.Lens        (makeLenses, makePrisms, view)

Replacement in lib/Aftok/Payments/Types.hs at line 20 [7.10545]

B:BD[7.10817] → [2.2434:2488]

import           Aftok.Billables     (SubscriptionId)

[7.10817]

[7.10857]

import           Aftok.Billables     (Billable, Subscription, SubscriptionId)

Insertion in lib/Aftok/Payments/Types.hs at line 47 [7.10545]

[7.11452]

[8.6960]

type BillDetail = (PaymentRequestId, PaymentRequest, Subscription, Billable)

Replacement in lib/Aftok/Payments/Types.hs at line 52 [7.10545]

B:BD[8.7098] → [8.7098:7149]

isExpired :: C.UTCTime -> P.PaymentRequest -> Bool

[8.7098]

[2.2489]

isExpired :: forall s. C.UTCTime -> PaymentRequest' s -> Bool

Replacement in lib/Aftok/Payments/Types.hs at line 57 [7.10545]

B:BD[8.7313] → [8.7313:7377]

  in  either error (check . getExpires) $ getPaymentDetails req

[8.7313]

[2.2571]

  in  either error (check . getExpires) $ getPaymentDetails (view paymentRequest req)

Replacement in lib/Aftok/Payments.hs at line 48 [3.5686]

B:BD[8.7803] → [2.3877:4080]

∅:D[2.4080] → [8.8000:8102]

B:BD[8.8000] → [8.8000:8102]

  { memoGen    :: Subscription' Billable -> m (Maybe Text)           -- ^ generator user memo
  , uriGen     :: Subscription' Billable -> m (Maybe URI)            -- ^ generator for payment response URL
  , payloadGen :: Subscription' Billable -> m (Maybe ByteString)  -- ^ generator for merchant payload

[8.7803]

[8.8102]

  { memoGen    :: Subscription' UserId Billable -> m (Maybe Text) -- ^ generator user memo
  , uriGen     :: Subscription' UserId Billable -> m (Maybe URI)  -- ^ generator for payment response URL
  , payloadGen :: Subscription' UserId Billable -> m (Maybe ByteString) -- ^ generator for merchant payload

Deletion in lib/Aftok/Payments.hs at line 63 [3.5686]
∅:D[2.4109] → [7.12611:12612]
∅:D[8.8495] → [7.12611:12612]
B:BD[7.12611] → [7.12611:12612]
Replacement in lib/Aftok/Payments.hs at line 106 [3.5686]
B:BD[8.10170] → [8.10170:10198]
```
  -> Subscription' Billable
```
[8.10170]
[8.10198]
```
  -> Subscription' UserId Billable
```

Replacement in lib/Aftok/Payments.hs at line 149 [3.5686]

∅:D[2.4665] → [8.12434:12525]

B:BD[8.12434] → [8.12434:12525]

  let ifUnpaid = (if isExpired now (view paymentRequest req) then Expired else Unpaid) req

[2.4665]

[8.12525]

  let ifUnpaid = (if isExpired now req then Expired else Unpaid) req

Insertion in lib/Aftok/Payments.hs at line 210 [3.5686]

[7.15982]


findPayableRequests :: (MonadDB m) => UserId -> SubscriptionId -> C.UTCTime -> m [BillDetail]
findPayableRequests uid sid now = do
  requests <- liftdb findOp
  join <$> (traverse checkAccess $ filter (not . isExpired now . view _2) requests)
  where
    findOp = FindUnpaidRequests sid
    checkAccess d =
      if view (_3 . customer) d == uid
        then pure [d]
        else raiseOpForbidden uid (UserNotSubscriber sid) findOp

Insertion in server/Aftok/Snaplet/Auctions.hs at line 15 [20.2441]
[14.1843]
[20.2723]
```
import           Snap.Snaplet         as S
```
Replacement in server/Aftok/Snaplet/Auctions.hs at line 24 [20.2441]
B:BD[20.2895] → [7.17190:17233]
```
import           Aftok.Snaplet        as S
```
[20.2895]
[20.2926]
```
import           Aftok.Snaplet
```
Deletion in server/Aftok/Snaplet/Auctions.hs at line 27 [20.2441]
B:BD[20.2963] → [2.5345:5388]
∅:D[18.986] → [20.2993:2994]
∅:D[2.5388] → [20.2993:2994]
∅:D[7.17283] → [20.2993:2994]
B:BD[20.2993] → [20.2993:2994]
```
import           Snap.Snaplet         as S
```

Replacement in server/Aftok/Snaplet/Auth.hs at line 6 [22.203]

B:BD[12.11710] → [21.7667:7800]

import           Data.Attoparsec.ByteString (parseOnly, takeByteString)
import           Data.UUID                  (fromASCIIBytes)

[21.7666]

[22.423]

import           Data.Attoparsec.ByteString (parseOnly)

Deletion in server/Aftok/Snaplet/Auth.hs at line 9 [22.203]
B:BD[21.7824] → [14.2052:2113]
```
import           Aftok.Auction              (AuctionId (..))
```
Deletion in server/Aftok/Snaplet/Auth.hs at line 10 [22.203]
B:BD[21.7887] → [20.3727:3758]
```
import           Aftok.Project
```

Deletion in server/Aftok/Snaplet/Auth.hs at line 38 [22.203]

B:BD[22.2162] → [5.8268:8315]

B:BD[5.8315] → [21.8351:8512]

∅:D[21.8512] → [5.8479:8608]

B:BD[5.8479] → [5.8479:8608]

B:BD[5.8608] → [18.1294:1632]

∅:D[18.1632] → [22.2558:2559]

∅:D[23.2361] → [22.2558:2559]

∅:D[5.8608] → [22.2558:2559]

∅:D[12.11997] → [22.2558:2559]

B:BD[22.2558] → [22.2558:2559]

requireProjectId :: MonadSnap m => m ProjectId
requireProjectId = do
  maybePid <- parseParam "projectId" pidParser
  maybe (snapError 400 "Value of parameter \"projectId\" cannot be parsed as a valid UUID")
        pure
        maybePid
  where
    pidParser = do
      bs <- takeByteString
      pure $ ProjectId <$> fromASCIIBytes bs
requireAuctionId :: MonadSnap m => m AuctionId
requireAuctionId = do
  maybeAid <- parseParam "auctionId" aidParser
  maybe (snapError 400 "Value of parameter \"auctionId\" cannot be parsed as a valid UUID")
        pure
        maybeAid
  where
    aidParser = do
      bs <- takeByteString
      pure $ AuctionId <$> fromASCIIBytes bs

Insertion in server/Aftok/Snaplet/Payments.hs at line 4 [3.9762]

[3.9831]


import           Control.Lens        (view, _1, _2)
import           Data.Thyme.Clock    as C
import           Network.Bippy.Proto as P

Replacement in server/Aftok/Snaplet/Payments.hs at line 9 [3.9762]

B:BD[3.9832] → [3.9832:9900]

import           Network.Bippy
import           Network.Bippy.Types

[3.9832]

[3.9900]

import           Snap.Snaplet        as S
import           Aftok.Billables
import           Aftok.Payments

Replacement in server/Aftok/Snaplet/Payments.hs at line 14 [3.9762]

B:BD[3.9901] → [3.9901:9958]

import           Snap.Core
import           Snap.Snaplet

[3.9901]

[3.9958]

import           Aftok.Snaplet
import           Aftok.Snaplet.Auth

Replacement in server/Aftok/Snaplet/Payments.hs at line 17 [3.9762]

B:BD[3.9959] → [7.17619:17650]

import           Aftok.QConfig

[3.9959]

[7.17650]

listPayableRequestsHandler :: S.Handler App App [BillDetail]
listPayableRequestsHandler = do
  uid <- requireUserId
  sid <- requireId "subscriptionId" SubscriptionId
  now <- liftIO $ C.getCurrentTime
  snapEval $ findPayableRequests uid sid now

Replacement in server/Aftok/Snaplet/Payments.hs at line 24 [3.9762]

B:BD[7.17651] → [7.17651:17734]

∅:D[7.17734] → [3.10028:10077]

B:BD[3.10028] → [3.10028:10077]

requestPaymentHandler :: QConfig -> Handler App App
requestPaymentHandler cfg = do
  -- get payout percentages from payouts handler

[7.17651]

[3.10077]

getPaymentRequestHandler :: S.Handler App App P.PaymentRequest
getPaymentRequestHandler = do

Replacement in server/Aftok/Snaplet/Payments.hs at line 27 [3.9762]

B:BD[3.10100] → [3.10100:10163]

B:BD[3.10163] → [24.1355:1414]

∅:D[24.1414] → [7.17779:17951]

B:BD[7.17779] → [7.17779:17951]

  pid <- requireProjectId
  ptime <- liftIO $ C.getCurrentTime
  createPaymentRequests ptime memogen urigen plgen uid pid
  -- look up outstanding subscriptions the user has for this project
  -- determine which subscriptions need to be paid
  -- create a payment request for each subscription

[3.10100]

[7.17952]

  sid <- requireId "subscriptionId" SubscriptionId
  rid <- requireId "paymentRequestId" PaymentRequestId
  now <- liftIO $ C.getCurrentTime
  requests <- snapEval $ findPayableRequests uid sid now
  let prMay = fmap (view (_2 . paymentRequest)) . headMay $ filter ((==) rid . view _1) requests
  maybe (snapError 404 $ "Outstanding payment request not found for id " <> tshow rid) pure prMay

Insertion in server/Aftok/Snaplet/Payments.hs at line 38 [3.9762]
[2.5393]

Replacement in server/Aftok/Snaplet.hs at line 13 [25.1088]

B:BD[21.10660] → [21.10660:10727]

import           Data.Attoparsec.ByteString    (Parser, parseOnly)

[21.10660]

[25.1324]

import           Data.Attoparsec.ByteString    (Parser, parseOnly,
                                                takeByteString)
import           Data.UUID

Insertion in server/Aftok/Snaplet.hs at line 18 [25.1088]
[21.10751]
[21.10751]
```
import           Aftok.Auction                 (AuctionId (..))
```
Insertion in server/Aftok/Snaplet.hs at line 21 [25.1088]
[21.10826]
[21.10826]
```
import           Aftok.Project                 (ProjectId (..))
```

Replacement in server/Aftok/Snaplet.hs at line 64 [25.1088]

B:BD[5.11977] → [5.11977:12036]

parseParam :: MonadSnap m => ByteString -> Parser a -> m a

[5.11977]

[5.12036]

parseParam :: MonadSnap m
           => Text       -- ^ the name of the parameter to be parsed
           -> Parser a   -- ^ parser for the value of the parameter
           -> m a        -- ^ the parsed value

Replacement in server/Aftok/Snaplet.hs at line 69 [25.1088]
B:BD[5.12064] → [5.12064:12094]
```
  maybeBytes <- getParam name
```
[5.12064]
[5.12094]
```
  maybeBytes <- getParam (encodeUtf8 name)
```

Insertion in server/Aftok/Snaplet.hs at line 76 [25.1088]

[5.12366]

[19.9523]


requireId :: MonadSnap m
          => Text        -- ^ name of the parameter
          -> (UUID -> a) -- ^ constructor for the identifier
          -> m a
requireId name f = do
  maybeId <- parseParam name idParser
  maybe (snapError 400 $ "Value of parameter \"" <> name <> "\" is not a valid UUID") pure maybeId
  where
    idParser = do
      bs <- takeByteString
      pure $ f <$> fromASCIIBytes bs

Insertion in server/Aftok/Snaplet.hs at line 94 [25.1088]

[22.3904]

[23.3828]

requireProjectId :: MonadSnap m => m ProjectId
requireProjectId = requireId "projectId" ProjectId

Insertion in server/Aftok/Snaplet.hs at line 97 [25.1088]

[23.3829]

requireAuctionId :: MonadSnap m => m AuctionId
requireAuctionId = requireId "auctionId" AuctionId

Insertion in server/Main.hs at line 6 [26.5188]

[21.11294]

import           Data.ProtocolBuffers                        (encodeMessage)
import           Data.Serialize.Put                          (runPutLazy)

Insertion in server/Main.hs at line 17 [26.5188]
[14.2268]
[21.11489]
```
import           Aftok.Snaplet.Payments
```

Insertion in server/Main.hs at line 61 [26.5188]

[20.4231]

[27.2894]

      payableRequestsRoute = serveJSON billDetailsJSON $ method GET listPayableRequestsHandler
      paymentRequestRoute  = writeLBS . runPutLazy . encodeMessage =<< method GET getPaymentRequestHandler

Insertion in server/Main.hs at line 85 [26.5188]

[28.1979]

[20.4299]


            , ("subscriptions/:subscriptionId/payment_requests", payableRequestsRoute)
            , ("subscriptions/:subscriptionId/payment_requests/:paymentRequestId", paymentRequestRoute)

Implement payments service endpoints.

Dependencies

In channels

Change contents

Insertion in aftok.cabal at line 132 [4.1]

Insertion in aftok.cabal at line 146 [4.1]

Insertion in aftok.cabal at line 163 [4.1]

Insertion in lib/Aftok/Billables.hs at line 4 [3.760]