From e254e7ae61ce55cde3e4dc0bae5a94e16577f7bf Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 3 Jul 2022 00:39:34 +0200
Subject: remove some unused imports

---
 lib/Server.hs | 41 +++++++++++------------------------------
 1 file changed, 11 insertions(+), 30 deletions(-)

(limited to 'lib/Server.hs')

diff --git a/lib/Server.hs b/lib/Server.hs
index e84be7d..a5a5ff9 100644
--- a/lib/Server.hs
+++ b/lib/Server.hs
@@ -11,57 +11,38 @@
 
 -- Implementation of the API. This module is the main point of the program.
 module Server (application) where
-import           Conduit                     (MonadTrans (lift), ResourceT)
 import           Control.Monad               (forever, void, when)
 import           Control.Monad.Extra         (maybeM, whenM)
 import           Control.Monad.IO.Class      (MonadIO (liftIO))
-import           Control.Monad.Logger        (NoLoggingT, logWarnN)
+import           Control.Monad.Logger        (logWarnN)
 import           Control.Monad.Reader        (forM)
-import           Control.Monad.Trans.Maybe   (MaybeT (..))
-import           Data.Aeson                  (FromJSON (parseJSON),
-                                              ToJSON (toJSON), ToJSONKey,
-                                              genericParseJSON, genericToJSON)
+import           Control.Monad.Trans         (lift)
 import qualified Data.Aeson                  as A
 import qualified Data.ByteString.Char8       as C8
 import           Data.Coerce                 (coerce)
 import           Data.Functor                ((<&>))
-import           Data.Map                    (Map)
 import qualified Data.Map                    as M
 import           Data.Pool                   (Pool)
 import           Data.Proxy                  (Proxy (Proxy))
-import           Data.Swagger                hiding (delete, get)
+import           Data.Swagger                (toSchema)
 import           Data.Text                   (Text)
 import           Data.Time                   (NominalDiffTime,
                                               UTCTime (utctDay), addUTCTime,
-                                              dayOfWeek, diffUTCTime,
-                                              getCurrentTime, nominalDay)
-import           Data.UUID                   (UUID)
-import qualified Data.UUID                   as UUID
-import qualified Data.UUID.V4                as UUID
-import           Data.Vector                 (Vector)
+                                              diffUTCTime, getCurrentTime,
+                                              nominalDay)
 import qualified Data.Vector                 as V
 import           Database.Persist
-import           Database.Persist.Postgresql
+import           Database.Persist.Postgresql (SqlBackend, runMigration)
 import           Fmt                         ((+|), (|+))
-import           GHC.Generics                (Generic)
-import           GTFS
 import qualified Network.WebSockets          as WS
-import           Servant                     (Application,
-                                              FromHttpApiData (parseUrlPiece),
-                                              Server, err401, err404, serve,
-                                              throwError)
-import           Servant.API                 (Capture, FromHttpApiData, Get,
-                                              JSON, NoContent (..), Post,
-                                              ReqBody, type (:<|>) ((:<|>)))
-import           Servant.Docs                (DocCapture (..),
-                                              DocQueryParam (..),
-                                              ParamKind (..), ToCapture (..),
-                                              ToParam (..))
-import           Servant.Server              (Handler, ServerT, hoistServer)
+import           Servant                     (Application, err401, err404,
+                                              serve, throwError)
+import           Servant.API                 (NoContent (..), (:<|>) (..))
+import           Servant.Server              (Handler, hoistServer)
 import           Servant.Swagger             (toSwagger)
-import           Web.PathPieces              (PathPiece)
 
 import           API
+import           GTFS
 import           Persist
 import           Server.GTFS_RT              (gtfsRealtimeServer)
 import           Server.Util                 (Service, ServiceM, runService)
-- 
cgit v1.2.3