@@ -70,7 +70,7 @@ import Data.Semigroup
7070import Data.Text (Text)
7171import qualified Data.Text as T
7272import Data.Time
73−#ifndef ghcjs_HOST_OS
73+#ifdef BACKEND
7474import Data.Proxy
7575import Data.OpenApi as OpenApi
7676 ( ToSchema(..), SchemaOptions(..), defaultSchemaOptions
@@ -93,10 +93,10 @@ import qualified Data.Store.Internal
9393newtype ZipCode = ZipCode
9494 { unZipCode :: Text }
9595 deriving stock (Show, Eq, Generic)
96−#ifdef ghcjs_HOST_OS
97− deriving newtype (ToJSON, FromJSON)
98−#else
96+#ifdef BACKEND
9997 deriving newtype (ToJSON, FromJSON, ToSchema)
98+#else
99+ deriving newtype (ToJSON, FromJSON)
100100#endif
101101#ifdef USE_STORE
102102 deriving anyclass Data.Store.Store
@@ -237,10 +237,10 @@ mkCreditCardPan n = CreditCardPAN $ firstDigits <> stars <> lastDigits
237237newtype CreditCardSecurity = CreditCardSecurity
238238 { unCCSecurity :: Text }
239239 deriving (Eq, Ord, Generic)
240−#ifdef ghcjs_HOST_OS
241− deriving newtype (ToJSON, FromJSON)
242−#else
240+#ifdef BACKEND
243241 deriving newtype (ToJSON, FromJSON, ToSchema)
242+#else
243+ deriving newtype (ToJSON, FromJSON)
244244#endif
245245#ifdef USE_STORE
246246 deriving anyclass Data.Store.Store
@@ -396,7 +396,7 @@ isValidCCNumber = isRight . creditCardType
396396guessPANCardType :: CreditCardPAN -> Maybe CreditCardType
397397guessPANCardType = guessCreditCardType <=< panToBogusNumber
398398
399−#ifndef ghcjs_HOST_OS
399+#ifdef BACKEND
400400#ifdef USE_POSTGRES
401401deriving instance FromField CreditCardPAN
402402deriving instance ToField CreditCardPAN
@@ -425,7 +425,7 @@ instance FromField CreditCardType where
425425#endif
426426#endif
427427
428−#ifndef ghcjs_HOST_OS
428+#ifdef BACKEND
429429instance ToSchema CreditCardDate where
430430 declareNamedSchema _ = declareNamedSchema (Proxy @Text)
431431