@@ -56,6 +56,7 @@ import Control.Lens hiding (elements)
5656import Control.Monad (guard, (<=<))
5757import Data.Aeson as Aeson
5858import Data.Aeson.Inflections (defaultFieldLabelModifier)
59+import Data.Binary (Binary)
5960import Data.Char (isDigit)
6061import Data.Digit
6162import Data.Either (isRight)
@@ -314,6 +315,8 @@ data CreditCardType
314315 | UnionPay
315316 deriving (Eq, Show, Generic, Enum, Bounded)
316317
318+instance Binary CreditCardType
319+
317320makePrisms ''CreditCardType
318321
319322instance Arbitrary CreditCardType where