git.iko.soy/typeable/credit-card
on master help sign in
JSON instances for CreditCardPAN (#5)
commit6ad5c0411c3b380a521081f2ea25f1363c663876 authorUladzimir Stsepchanka <st.uladzimir@protonmail.com> dateTue 19 Dec 2023, 18:09 (3 years ago) parentfca6e5a
1 file changed+1−1
compare with master
unifiedsplit
src/Data/CreditCard.hs+1−1
src/Data/CreditCard.hs+1−1
@@ -213,7 +213,7 @@ instance Arbitrary CreditCardNumber where
213213newtype CreditCardPAN = CreditCardPAN
214214 { unCreditCardPAN :: Text
215215 } deriving (Eq, Ord)
216− deriving newtype (Show)
216+ deriving newtype (Show, FromJSON, ToJSON)
217217
218218panTrailingDigits :: CreditCardPAN -> Text
219219panTrailingDigits (CreditCardPAN txt) = T.takeEnd 4 txt