From cd085f1b6079b4db51859d7d145412c6ec1ff657 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Wed, 4 Sep 2019 15:22:23 -0400
Subject: [PATCH] add the redemption api to the server

---
 src/PaymentServer/Server.hs | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/src/PaymentServer/Server.hs b/src/PaymentServer/Server.hs
index 5b7f52e..f55b779 100644
--- a/src/PaymentServer/Server.hs
+++ b/src/PaymentServer/Server.hs
@@ -13,11 +13,16 @@ import Servant
   , Application
   , serve
   , (:>)
+  , (:<|>)((:<|>))
   )
 import PaymentServer.Processors.Stripe
   ( StripeAPI
   , stripeServer
   )
+import PaymentServer.Redemption
+  ( RedemptionAPI
+  , redemptionServer
+  )
 import PaymentServer.Persistence
   ( VoucherDatabase
   )
@@ -25,11 +30,13 @@ import PaymentServer.Persistence
 -- | This is the complete type of the server API.
 type PaymentServerAPI
   =    "v1" :> "stripe" :> StripeAPI
-  -- :<|> "v1" :> "redeem" :> RedeemAPI
+  :<|> "v1" :> "redeem" :> RedemptionAPI
 
 -- | Create a server which uses the given database.
 paymentServer :: VoucherDatabase d => d -> Server PaymentServerAPI
-paymentServer = stripeServer
+paymentServer d =
+  stripeServer d
+  :<|> redemptionServer d
 
 paymentServerAPI :: Proxy PaymentServerAPI
 paymentServerAPI = Proxy
-- 
GitLab