diff options
| author | stuebinm | 2022-06-19 22:33:32 +0200 |
|---|---|---|
| committer | stuebinm | 2022-06-19 22:35:20 +0200 |
| commit | 70f655d67bf4d50e191f741a31ac4504c8f528f3 (patch) | |
| tree | 8cb31162123bcfb6865ad005c174b078a05bb779 /lib/Persist.hs | |
| parent | 60bde7009cb492d5ea204e909e1fabc68a7d32f2 (diff) | |
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.
Diffstat (limited to '')
| -rw-r--r-- | lib/Persist.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 |