git.iko.soy/typeable/credit-card
on master help sign in
[B2B-2661] Add Binary instance (#6)
60e18baYuras
credit-card.cabal+1
compare with master
unifiedsplit
@@ -23,6 +23,7 @@ library
23 , QuickCheck
23 , QuickCheck
24 , aeson
24 , aeson
25 , aeson-inflections >= 0.1
25 , aeson-inflections >= 0.1
26+ , binary
26 , digit
27 , digit
27 , formatting
28 , formatting
28 , lens
29 , lens
src/Data/CreditCard.hs+3
@@ -56,6 +56,7 @@ import Control.Lens hiding (elements)
56import Control.Monad (guard, (<=<))
56import Control.Monad (guard, (<=<))
57import Data.Aeson as Aeson
57import Data.Aeson as Aeson
58import Data.Aeson.Inflections (defaultFieldLabelModifier)
58import Data.Aeson.Inflections (defaultFieldLabelModifier)
59+import Data.Binary (Binary)
59import Data.Char (isDigit)
60import Data.Char (isDigit)
60import Data.Digit
61import Data.Digit
61import Data.Either (isRight)
62import Data.Either (isRight)
@@ -314,6 +315,8 @@ data CreditCardType
314 | UnionPay
315 | UnionPay
315 deriving (Eq, Show, Generic, Enum, Bounded)
316 deriving (Eq, Show, Generic, Enum, Bounded)
316
317
318+instance Binary CreditCardType
319+
317makePrisms ''CreditCardType
320makePrisms ''CreditCardType
318
321
319instance Arbitrary CreditCardType where
322instance Arbitrary CreditCardType where