From cd937b64819030f5745671c84e44a6536f0875b2 Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <ram@leastauthority.com>
Date: Wed, 6 Nov 2019 13:13:58 +0530
Subject: [PATCH] define StripeSecretKey in one place and use it elsewhere

---
 src/PaymentServer/Main.hs              | 8 ++++----
 src/PaymentServer/Processors/Stripe.hs | 1 +
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/PaymentServer/Main.hs b/src/PaymentServer/Main.hs
index 7593bfb..ca5bb80 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 26d8967..efd4b34 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
-- 
GitLab