diff --git a/PaymentServer.cabal b/PaymentServer.cabal index b6cd94e9b7bb2c86a72be8778c7f1c385d2ae295..bd1e969adacfcf51184c4b46849c6709f1e34a58 100644 --- a/PaymentServer.cabal +++ b/PaymentServer.cabal @@ -30,6 +30,7 @@ library , servant-server , wai , wai-extra + , wai-cors , data-default , warp , warp-tls diff --git a/src/PaymentServer/Server.hs b/src/PaymentServer/Server.hs index feef0b051330a58568fa88ded64667b74719049a..4478a35254242a3d2068ff92c93b71e5f7569664 100644 --- a/src/PaymentServer/Server.hs +++ b/src/PaymentServer/Server.hs @@ -7,6 +7,9 @@ module PaymentServer.Server ( paymentServerApp ) where +import Network.Wai.Middleware.Cors + ( simpleCors + ) import Servant ( Proxy(Proxy) , Server @@ -48,4 +51,9 @@ paymentServerAPI = Proxy -- | Create a Servant Application which serves the payment server API using -- the given database. paymentServerApp :: VoucherDatabase d => StripeSecretKey -> Issuer -> d -> Application -paymentServerApp key issuer = serve paymentServerAPI . paymentServer key issuer +paymentServerApp key issuer = + let + app = serve paymentServerAPI . paymentServer key issuer + cors = simpleCors + in + cors . app