t backend/feat/igm integration

nammayatri · Sep 6, 2024 · b521e02 · b521e02
1 parent 4e0c3aa
commit b521e02
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 3 deletions.
diff --git a/lib/mobility-core/src/Kernel/External/Maps/Interface.hs b/lib/mobility-core/src/Kernel/External/Maps/Interface.hs
@@ -234,7 +234,7 @@ snapToRoadWithFallback mbMapServiceToRectifyDistantPointsFailure SnapToRoadHandl
               if dist < maxStraightLineRectificationThreshold
                 then pure (x1, dist)
                 else do
-                  distanceRes <- getDistance mapServiceCfg (GetDistanceReq {origin = x1, destination = x2, travelMode = Just CAR, distanceUnit = req.distanceUnit} :: GetDistanceReq LatLong LatLong)
+                  distanceRes <- getDistance mapServiceCfg (GetDistanceReq {origin = x1, destination = x2, travelMode = Just CAR, distanceUnit = req.distanceUnit, sourceDestinationMapping = Nothing} :: GetDistanceReq LatLong LatLong)
                   pure (x1, metersToHighPrecMeters distanceRes.distance)
           )
           straightDistancePoints

diff --git a/lib/mobility-core/src/Kernel/External/Ticket/Interface/Types.hs b/lib/mobility-core/src/Kernel/External/Ticket/Interface/Types.hs
@@ -40,7 +40,8 @@ data CreateTicketReq = CreateTicketReq
     phoneNo :: Maybe Text,
     personId :: Text,
     classification :: Classification,
-    rideDescription :: Maybe RideInfo
+    rideDescription :: Maybe RideInfo,
+    becknIssueId :: Maybe Text
   }
 
 data RideInfo = RideInfo

diff --git a/lib/mobility-core/src/Kernel/Types/Beckn/City.hs b/lib/mobility-core/src/Kernel/Types/Beckn/City.hs
@@ -326,7 +326,6 @@ instance ToHttpApiData City where
   toUrlPiece Siliguri = "std:0353"
   toUrlPiece Durgapur = "std:0342"
   toUrlPiece Asansol = "std:0341"
-  toUrlPiece Durgapur = "std:0342"
   toUrlPiece Petrapole = "std:03215"
   toUrlPiece Gangtok = "std:03592"
   toUrlPiece Darjeeling = "std:0354"

diff --git a/lib/mobility-core/src/Kernel/Types/Beckn/Context.hs b/lib/mobility-core/src/Kernel/Types/Beckn/Context.hs
@@ -90,6 +90,10 @@ data Action
   | ON_CANCEL
   | ON_RATING
   | ON_SUPPORT
+  | ISSUE
+  | ON_ISSUE
+  | ISSUE_STATUS
+  | ON_ISSUE_STATUS
   deriving (Generic, Show, Eq, ToSchema)
   deriving (PrettyShow) via Showable Action
 
@@ -114,6 +118,8 @@ mapToCbAction = \case
   CANCEL -> Just ON_CANCEL
   RATING -> Just ON_RATING
   SUPPORT -> Just ON_SUPPORT
+  ISSUE -> Just ON_ISSUE
+  ISSUE_STATUS -> Just ON_ISSUE_STATUS
   _ -> Nothing
 
 getSubscriberType :: Action -> Subscriber.SubscriberType