Skip to content
Snippets Groups Projects
Commit cd937b64 authored by Ramakrishnan Muthukrishnan's avatar Ramakrishnan Muthukrishnan
Browse files

define StripeSecretKey in one place and use it elsewhere

parent 2bd04131
Branches
No related tags found
1 merge request!30Expose a browser facing API for charge
...@@ -12,9 +12,6 @@ import Text.Printf ...@@ -12,9 +12,6 @@ import Text.Printf
import Data.Maybe import Data.Maybe
( maybeToList ( maybeToList
) )
import Data.ByteString
( ByteString
)
import Data.Text import Data.Text
( Text ( Text
) )
...@@ -50,6 +47,9 @@ import PaymentServer.Issuer ...@@ -50,6 +47,9 @@ import PaymentServer.Issuer
import PaymentServer.Server import PaymentServer.Server
( paymentServerApp ( paymentServerApp
) )
import PaymentServer.Processors.Stripe
( StripeSecretKey
)
import Options.Applicative import Options.Applicative
( Parser ( Parser
...@@ -93,7 +93,7 @@ data ServerConfig = ServerConfig ...@@ -93,7 +93,7 @@ data ServerConfig = ServerConfig
, database :: Database , database :: Database
, databasePath :: Maybe Text , databasePath :: Maybe Text
, endpoint :: Endpoint , endpoint :: Endpoint
, stripeKey :: ByteString , stripeKey :: StripeSecretKey
} }
deriving (Show, Eq) deriving (Show, Eq)
......
...@@ -6,6 +6,7 @@ module PaymentServer.Processors.Stripe ...@@ -6,6 +6,7 @@ module PaymentServer.Processors.Stripe
( StripeAPI ( StripeAPI
, stripeServer , stripeServer
, getVoucher , getVoucher
, StripeSecretKey
) where ) where
import Control.Monad.IO.Class import Control.Monad.IO.Class
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment