diff --git a/src/PaymentServer/Main.hs b/src/PaymentServer/Main.hs index 7593bfb87cc0e576d447774e4de9c0e5704ead1c..ca5bb8094a23bbad3f91985fb968f161c35a2b1a 100644 --- a/src/PaymentServer/Main.hs +++ b/src/PaymentServer/Main.hs @@ -12,9 +12,6 @@ import Text.Printf import Data.Maybe ( maybeToList ) -import Data.ByteString - ( ByteString - ) import Data.Text ( Text ) @@ -50,6 +47,9 @@ import PaymentServer.Issuer import PaymentServer.Server ( paymentServerApp ) +import PaymentServer.Processors.Stripe + ( StripeSecretKey + ) import Options.Applicative ( Parser @@ -93,7 +93,7 @@ data ServerConfig = ServerConfig , database :: Database , databasePath :: Maybe Text , endpoint :: Endpoint - , stripeKey :: ByteString + , stripeKey :: StripeSecretKey } deriving (Show, Eq) diff --git a/src/PaymentServer/Processors/Stripe.hs b/src/PaymentServer/Processors/Stripe.hs index 26d8967277fafcbb65966d78ecb2fdeb68319d7f..efd4b34bd4f5ee674ff4ff0df32fd16a919478aa 100644 --- a/src/PaymentServer/Processors/Stripe.hs +++ b/src/PaymentServer/Processors/Stripe.hs @@ -6,6 +6,7 @@ module PaymentServer.Processors.Stripe ( StripeAPI , stripeServer , getVoucher + , StripeSecretKey ) where import Control.Monad.IO.Class