From 34f22db88c12f4f4298e5cd5c53f009c44ec568f Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Wed, 14 Sep 2022 21:49:45 +0200
Subject: remove some extrapolation bugs

---
 lib/Server/GTFS_RT.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib/Server/GTFS_RT.hs')

diff --git a/lib/Server/GTFS_RT.hs b/lib/Server/GTFS_RT.hs
index e0bbeda..1641131 100644
--- a/lib/Server/GTFS_RT.hs
+++ b/lib/Server/GTFS_RT.hs
@@ -77,7 +77,7 @@ import           Data.UUID                                  (toASCIIBytes,
                                                              toLazyASCIIBytes)
 import qualified Data.Vector                                as V
 import           Extrapolation                              (Extrapolator (extrapolateAtPosition, extrapolateAtSeconds),
-                                                             LinearExtrapolator)
+                                                             LinearExtrapolator (..))
 import           GTFS                                       (Depth (..))
 import           GTFS.Realtime.TripUpdate                   (TripUpdate (TripUpdate))
 import           Server.Util                                (Service,
@@ -149,9 +149,9 @@ gtfsRealtimeServer gtfs@GTFS{..} dbpool = handleServiceAlerts :<|> handleTripUpd
 
           dFeedMessage $ Seq.fromList $ mkTripUpdate nowSeconds <$> anchors
           where mkTripUpdate nowSeconds (Entity (RunningKey (Token uuid)) Running{..}, Trip{..} :: Trip Deep Deep, anchors) =
-                  let lastCall = extrapolateAtSeconds @LinearExtrapolator anchors nowSeconds
+                  let lastCall = extrapolateAtSeconds LinearExtrapolator anchors nowSeconds
                       stations = tripStops
-                        <&> (\stop@Stop{..} -> fmap (, stop) $ extrapolateAtPosition @LinearExtrapolator anchors (int2Double stopSequence))
+                        <&> (\stop@Stop{..} -> fmap (, stop) $ extrapolateAtPosition LinearExtrapolator anchors (int2Double stopSequence))
                   in (dFeedEntity (Utf8 $ toLazyASCIIBytes uuid))
                   { FE.trip_update = Just $ TripUpdate
                     { TU.trip = dTripDescriptor runningTrip (Just runningDay)
-- 
cgit v1.2.3