fix: stripe reverse transfer

Author: TejaswiniT167

lib/mobility-core/src/Kernel/External/Payment/Interface.hs

@@ -685,7 +685,8 @@ refundPayment serviceConfig mRoutingId req = case serviceConfig of
               amount = req.amount,
               refundApplicationFee = False,
               driverAccountId = driverAccount,
-              email = req.email
+              email = req.email,
+              deductFromDriver = req.deductFromDriver
             }
     resp <- Stripe.createRefund cfg stripeReq
     pure

lib/mobility-core/src/Kernel/External/Payment/Interface/Stripe.hs

@@ -730,9 +730,9 @@ createRefund config req = do
     -- Driver receives payment directly (Direct Charges)
     ConnectedAccount -> createConnectedAccountRefund url apiKey
   where
-    -- Platform Charge: Need to reverse transfer
+    -- Platform Charge: Need to reverse transfer (req.deductFromDriver overrides default Just True).
     createPlatformRefund url apiKey = do
-      let reverseTransfer = Just True
+      let reverseTransfer = req.deductFromDriver <|> Just True
           refundReq = mkRefundReq req reverseTransfer
       mkRefundResp <$> Stripe.createRefund url apiKey Nothing refundReq
 

lib/mobility-core/src/Kernel/External/Payment/Interface/Types.hs

@@ -938,7 +938,8 @@ data CreateRefundReq = CreateRefundReq
     amount :: Maybe HighPrecMoney,
     refundApplicationFee :: Bool,
     driverAccountId :: AccountId,
-    email :: Maybe Text
+    email :: Maybe Text,
+    deductFromDriver :: Maybe Bool
   }
 
 data CreateRefundResp = CreateRefundResp
@@ -1031,6 +1032,7 @@ data RefundPaymentReq = RefundPaymentReq
     paymentIntentId :: Maybe PaymentIntentId,
     driverAccountId :: Maybe AccountId,
     email :: Maybe Text,
+    deductFromDriver :: Maybe Bool,
     -- Juspay-specific
     splitSettlementDetails :: Maybe RefundSplitSettlementDetails
   }