From 70f655d67bf4d50e191f741a31ac4504c8f528f3 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 19 Jun 2022 22:33:32 +0200
Subject: handle GTFS shapes (& send them out along trips)

unfortunately, this makes some responses pretty large. Let's see if it
works this way or if i have to find some way to break them up instead.
---
 lib/Persist.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lib/Persist.hs')

diff --git a/lib/Persist.hs b/lib/Persist.hs
index 9486a1d..4a6d9b4 100644
--- a/lib/Persist.hs
+++ b/lib/Persist.hs
@@ -37,15 +37,15 @@ import           Control.Monad.Logger        (NoLoggingT)
 import           Control.Monad.Reader        (ReaderT)
 import           Data.Data                   (Proxy (..))
 import           Data.Pool                   (Pool)
-import           Data.Time                   (NominalDiffTime,
+import           Data.Time                   (NominalDiffTime, TimeOfDay,
                                               UTCTime (utctDay), addUTCTime,
                                               dayOfWeek, diffUTCTime,
-                                              getCurrentTime, nominalDay, TimeOfDay)
+                                              getCurrentTime, nominalDay)
+import           Data.Time.Calendar          (Day, DayOfWeek (..))
+import           Data.Vector                 (Vector)
 import           Database.Persist.Postgresql (SqlBackend)
 import           GHC.Generics                (Generic)
 import           Web.PathPieces              (PathPiece)
-import Data.Vector (Vector)
-import           Data.Time.Calendar             (Day, DayOfWeek (..))
 
 newtype Token = Token UUID
   deriving newtype
-- 
cgit v1.2.3