diff options
author | stuebinm | 2022-06-16 01:06:04 +0200 |
---|---|---|
committer | stuebinm | 2022-06-16 01:06:04 +0200 |
commit | 8feb2556eda0604b6710309bf7ffddb72c22fc4a (patch) | |
tree | bc3dfc2256bfd7349d415caae8768e35ad4981d1 /app | |
parent | 9e89c93b3b84b5c82c186cff62c33218a0a4d298 (diff) |
foreign keys are a thing
(and they can be useful, too!)
Also, documentation & deleting imports / extensions that aren't used.
Diffstat (limited to '')
-rw-r--r-- | app/Main.hs | 28 |
1 files changed, 5 insertions, 23 deletions
diff --git a/app/Main.hs b/app/Main.hs index 7d3b5dc..e47ffc4 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -1,34 +1,16 @@ -{-# LANGUAGE DataKinds #-} -{-# LANGUAGE DeriveAnyClass #-} -{-# LANGUAGE DeriveGeneric #-} -{-# LANGUAGE DerivingStrategies #-} -{-# LANGUAGE FlexibleInstances #-} -{-# LANGUAGE GeneralizedNewtypeDeriving #-} -{-# LANGUAGE KindSignatures #-} -{-# LANGUAGE LambdaCase #-} -{-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE StandaloneDeriving #-} -{-# LANGUAGE StandaloneKindSignatures #-} -{-# LANGUAGE TypeApplications #-} -{-# LANGUAGE TypeFamilies #-} --- | - +-- | The main module. Does little more than handle some basic ocnfic, then +-- call the server module Main where -import qualified Data.Aeson as A -import qualified Data.ByteString.Lazy as LB +import Control.Monad.IO.Class (MonadIO (liftIO)) +import Control.Monad.Logger (runStderrLoggingT) import Data.Default.Class (def) -import Data.Maybe (fromJust, fromMaybe) -import Data.Time.Calendar.MonthDay (monthAndDayToDayOfYearValid) -import qualified Data.Time.Calendar.OrdinalDate as Day +import Database.Persist.Postgresql import Network.Wai.Handler.Warp (run) import Network.Wai.Middleware.RequestLogger (OutputFormat (..), RequestLoggerSettings (..), mkRequestLogger) -import Database.Persist.Postgresql -import Control.Monad.Logger (runStderrLoggingT) -import Control.Monad.IO.Class (MonadIO (liftIO)) import GTFS import Server |