From 8feb2556eda0604b6710309bf7ffddb72c22fc4a Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 16 Jun 2022 01:06:04 +0200
Subject: foreign keys are a thing

(and they can be useful, too!)

Also, documentation & deleting imports / extensions that aren't used.
---
 app/Main.hs | 28 +++++-----------------------
 1 file changed, 5 insertions(+), 23 deletions(-)

(limited to 'app/Main.hs')

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
-- 
cgit v1.2.3