@@ -113,6 +113,8 @@ data AuthResponse = AuthResponse { paymentGuid :: AuthOnlyGuid
113 , status :: TransactionStatus
113 , status :: TransactionStatus
114 , processorStatusCode :: Maybe Text
114 , processorStatusCode :: Maybe Text
115 , processorMessage :: Maybe Text
115 , processorMessage :: Maybe Text
116+ , addressVerificationCode :: Maybe Text
117+ , cvvVerificationCode :: Maybe Text
116 } deriving (Show)
118 } deriving (Show)
118instance FromJSON AuthResponse where
120instance FromJSON AuthResponse where
@@ -120,6 +122,8 @@ instance FromJSON AuthResponse where
120 <*> o .: "status"
122 <*> o .: "status"
121 <*> o .:? "processorStatusCode"
123 <*> o .:? "processorStatusCode"
122 <*> o .:? "processorResponseMessage"
124 <*> o .:? "processorResponseMessage"
125+ <*> o .:? "addressVerificationCode"
126+ <*> o .:? "cvvVerificationCode"
123 parseJSON v = typeMismatch "AuthReponse" v
127 parseJSON v = typeMismatch "AuthReponse" v
125-- | Authorise a credit card payment.
129-- | Authorise a credit card payment.