@@ -113,6 +113,8 @@ data AuthResponse = AuthResponse { paymentGuid :: AuthOnlyGuid
113113 , status :: TransactionStatus
114114 , processorStatusCode :: Maybe Text
115115 , processorMessage :: Maybe Text
116+ , addressVerificationCode :: Maybe Text
117+ , cvvVerificationCode :: Maybe Text
116118 } deriving (Show)
117119
118120instance FromJSON AuthResponse where
@@ -120,6 +122,8 @@ instance FromJSON AuthResponse where
120122 <*> o .: "status"
121123 <*> o .:? "processorStatusCode"
122124 <*> o .:? "processorResponseMessage"
125+ <*> o .:? "addressVerificationCode"
126+ <*> o .:? "cvvVerificationCode"
123127 parseJSON v = typeMismatch "AuthReponse" v
124128
125129-- | Authorise a credit card payment.