added-udf-9-for-members-discount

udf-9-for-members-discount-fix

Author: dushyant-2002

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

@@ -777,15 +777,15 @@ offerList config mRoutingId req = do
 mkOfferListReq :: OfferListReq -> Juspay.OfferListReq
 mkOfferListReq OfferListReq {..} =
   Juspay.OfferListReq
-    { order = mkOfferOrder order planId registrationDate dutyDate paymentMode numOfRides offerListingMetric,
+    { order = mkOfferOrder order planId registrationDate dutyDate paymentMode numOfRides offerListingMetric membershipStatus,
       payment_method_info = [],
       customer = mkOfferCustomer <$> customer,
       offer_code = Nothing
     }
 
-mkOfferOrder :: OfferOrder -> Text -> UTCTime -> UTCTime -> Text -> Int -> Maybe UDF6 -> Juspay.OfferOrder
+mkOfferOrder :: OfferOrder -> Text -> UTCTime -> UTCTime -> Text -> Int -> Maybe UDF6 -> Maybe UDF9 -> Juspay.OfferOrder
 ---- add duty day and payment mode respectively in holes ----
-mkOfferOrder OfferOrder {..} planId registrationDate dutyDate paymentMode numOfRides offerListingMetric =
+mkOfferOrder OfferOrder {..} planId registrationDate dutyDate paymentMode numOfRides offerListingMetric membershipStatus =
   Juspay.OfferOrder
     { order_id = orderId,
       amount = show amount,
@@ -798,13 +798,15 @@ mkOfferOrder OfferOrder {..} planId registrationDate dutyDate paymentMode numOfR
         let strNumRides = show numOfRides
         if strNumRides == "-1" then "DEFAULT" else strNumRides,
       udf6 = parseUDF6 <$> offerListingMetric,
+      udf9 = parseUDF9 <$> membershipStatus,
       basket = decodeUtf8 . A.encode <$> basket
     }
   where
     parseUDF6 offerListingMetric' = do
       case offerListingMetric' of
         LIST_BASED_ON_DATE listingDates -> pack $ formatTime defaultTimeLocale "%d_%m_%y" listingDates
         _ -> show offerListingMetric'
+    parseUDF9 (MembershipStatus isMember) = if isMember then "TRUE" else "FALSE"
 
 mkOfferCustomer :: OfferCustomer -> Juspay.OfferCustomer
 mkOfferCustomer OfferCustomer {..} = Juspay.OfferCustomer {id = customerId, email, mobile}

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

@@ -469,12 +469,16 @@ data OfferListReq = OfferListReq
     dutyDate :: UTCTime,
     paymentMode :: Text,
     numOfRides :: Int,
-    offerListingMetric :: Maybe UDF6
+    offerListingMetric :: Maybe UDF6,
+    membershipStatus :: Maybe UDF9
   }
 
 data UDF6 = IS_VISIBLE | IS_APPLICABLE | LIST_BASED_ON_DATE UTCTime
   deriving stock (Show, Eq, Generic, Read)
 
+data UDF9 = MembershipStatus Bool
+  deriving stock (Show, Eq, Generic, Read)
+
 data OfferOrder = OfferOrder
   { orderId :: Maybe Text,
     amount :: HighPrecMoney,

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

@@ -43,6 +43,7 @@ data OfferOrder = OfferOrder
     udf4 :: Text,
     udf5 :: Text,
     udf6 :: Maybe Text,
+    udf9 :: Maybe Text,
     basket :: Maybe Text
   }
   deriving stock (Show, Generic)