aboutsummaryrefslogtreecommitdiff
path: root/app
diff options
context:
space:
mode:
authorstuebinm2022-06-16 01:06:04 +0200
committerstuebinm2022-06-16 01:06:04 +0200
commit8feb2556eda0604b6710309bf7ffddb72c22fc4a (patch)
treebc3dfc2256bfd7349d415caae8768e35ad4981d1 /app
parent9e89c93b3b84b5c82c186cff62c33218a0a4d298 (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.hs28
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