remove some extrapolation bugs

1 files changed, 3 insertions, 3 deletions

diff --git a/lib/Server/ControlRoom.hs b/lib/Server/ControlRoom.hs
index e5e9b7c..b1948f2 100644
--- a/lib/Server/ControlRoom.hs
+++ b/lib/Server/ControlRoom.hs
@@ -53,7 +53,7 @@ import           Yesod
 import           Yesod.Form
 
 import           Extrapolation            (Extrapolator (..),
-                                           LinearExtrapolator)
+                                           LinearExtrapolator (..))
 import           GTFS
 import           Numeric                  (showFFloat)
 import           Persist
@@ -234,8 +234,8 @@ getTrainViewR trip day = do
         $else
           <td title="_{MsgBlockToken}"><a href="@{TokenBlock key}">_{MsgBlockToken}</a>
 |]
-          where guessDelay history = fmap trainAnchorDelay . extrapolateAtPosition @LinearExtrapolator history
-                guessAtSeconds = extrapolateAtSeconds @LinearExtrapolator
+          where guessDelay history = fmap trainAnchorDelay . extrapolateAtPosition LinearExtrapolator history
+                guessAtSeconds = extrapolateAtSeconds LinearExtrapolator
 
 
 getTripsViewR :: Handler Html