git.iko.soy/typeable/credit-card
on master help sign in
fix for wasm
9b040ecodr
credit-card.cabal+1
unifiedsplit
@@ -33,6 +33,7 @@ library
33 cpp-options: -DUSE_POSTGRES
33 cpp-options: -DUSE_POSTGRES
34 if !(impl(ghcjs) || arch(javascript) || arch(wasm32))
34 if !(impl(ghcjs) || arch(javascript) || arch(wasm32))
35 build-depends: openapi3
35 build-depends: openapi3
36+ cpp-options: -DBACKEND
36 if flag(store)
37 if flag(store)
37 build-depends:
38 build-depends:
38 store
39 store
src/Data/CreditCard.hs+9−9
@@ -70,7 +70,7 @@ import Data.Semigroup
70import Data.Text (Text)
70import Data.Text (Text)
71import qualified Data.Text as T
71import qualified Data.Text as T
72import Data.Time
72import Data.Time
73−#ifndef ghcjs_HOST_OS
73+#ifdef BACKEND
74import Data.Proxy
74import Data.Proxy
75import Data.OpenApi as OpenApi
75import Data.OpenApi as OpenApi
76 ( ToSchema(..), SchemaOptions(..), defaultSchemaOptions
76 ( ToSchema(..), SchemaOptions(..), defaultSchemaOptions
@@ -93,10 +93,10 @@ import qualified Data.Store.Internal
93newtype ZipCode = ZipCode
93newtype ZipCode = ZipCode
94 { unZipCode :: Text }
94 { unZipCode :: Text }
95 deriving stock (Show, Eq, Generic)
95 deriving stock (Show, Eq, Generic)
96−#ifdef ghcjs_HOST_OS
96+#ifdef BACKEND
97− deriving newtype (ToJSON, FromJSON)
98−#else
99 deriving newtype (ToJSON, FromJSON, ToSchema)
97 deriving newtype (ToJSON, FromJSON, ToSchema)
98+#else
99+ deriving newtype (ToJSON, FromJSON)
100#endif
100#endif
101#ifdef USE_STORE
101#ifdef USE_STORE
102 deriving anyclass Data.Store.Store
102 deriving anyclass Data.Store.Store
@@ -237,10 +237,10 @@ mkCreditCardPan n = CreditCardPAN $ firstDigits <> stars <> lastDigits
237newtype CreditCardSecurity = CreditCardSecurity
237newtype CreditCardSecurity = CreditCardSecurity
238 { unCCSecurity :: Text }
238 { unCCSecurity :: Text }
239 deriving (Eq, Ord, Generic)
239 deriving (Eq, Ord, Generic)
240−#ifdef ghcjs_HOST_OS
240+#ifdef BACKEND
241− deriving newtype (ToJSON, FromJSON)
242−#else
243 deriving newtype (ToJSON, FromJSON, ToSchema)
241 deriving newtype (ToJSON, FromJSON, ToSchema)
242+#else
243+ deriving newtype (ToJSON, FromJSON)
244#endif
244#endif
245#ifdef USE_STORE
245#ifdef USE_STORE
246 deriving anyclass Data.Store.Store
246 deriving anyclass Data.Store.Store
@@ -396,7 +396,7 @@ isValidCCNumber = isRight . creditCardType
396guessPANCardType :: CreditCardPAN -> Maybe CreditCardType
396guessPANCardType :: CreditCardPAN -> Maybe CreditCardType
397guessPANCardType = guessCreditCardType <=< panToBogusNumber
397guessPANCardType = guessCreditCardType <=< panToBogusNumber
398
398
399−#ifndef ghcjs_HOST_OS
399+#ifdef BACKEND
400#ifdef USE_POSTGRES
400#ifdef USE_POSTGRES
401deriving instance FromField CreditCardPAN
401deriving instance FromField CreditCardPAN
402deriving instance ToField CreditCardPAN
402deriving instance ToField CreditCardPAN
@@ -425,7 +425,7 @@ instance FromField CreditCardType where
425#endif
425#endif
426#endif
426#endif
427
427
428−#ifndef ghcjs_HOST_OS
428+#ifdef BACKEND
429instance ToSchema CreditCardDate where
429instance ToSchema CreditCardDate where
430 declareNamedSchema _ = declareNamedSchema (Proxy @Text)
430 declareNamedSchema _ = declareNamedSchema (Proxy @Text)
431
431