fix: change OTP config from string to BaseUrl

nammayatri · Oct 9, 2024 · 8252ec1 · 8252ec1
1 parent d4638f2
commit 8252ec1
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/lib/mobility-core/src/Kernel/External/MultiModal/Interface/OpenTripPlanner.hs b/lib/mobility-core/src/Kernel/External/MultiModal/Interface/OpenTripPlanner.hs
@@ -12,6 +12,7 @@ import Kernel.External.MultiModal.OpenTripPlanner.Types
 import Kernel.External.MultiModal.Utils
 import Kernel.Tools.Metrics.CoreMetrics (CoreMetrics)
 import Kernel.Utils.Common hiding (id)
+import Servant.Client.Core (showBaseUrl)
 
 formatUtcDateTime :: UTCTime -> (String, String)
 formatUtcDateTime utcTime = (dateString, timeString)
@@ -39,7 +40,7 @@ getTransitRoutes cfg req = do
             lon = req.destination.location.latLng.longitude
           }
   let dateTime = req.departureTime <&> formatUtcDateTime
-  let planClient = fromString cfg.baseUrl
+  let planClient = fromString (showBaseUrl cfg.baseUrl)
   let transportModes' = req.transportModes
   resp <-
     liftIO $

diff --git a/lib/mobility-core/src/Kernel/External/MultiModal/OpenTripPlanner/Config.hs b/lib/mobility-core/src/Kernel/External/MultiModal/OpenTripPlanner/Config.hs
@@ -1,8 +1,8 @@
-module Kernel.External.MultiModal.OpenTripPlanner.Config (OTPCfg) where
+module Kernel.External.MultiModal.OpenTripPlanner.Config where
 
 import Kernel.Prelude
 
 data OTPCfg = OTPCfg
-  { baseUrl :: String
+ { baseUrl :: BaseUrl
   }
   deriving (Show, Eq, Generic, ToJSON, FromJSON)