restructure: split web frontend into several modules

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/Server.hs b/lib/Server.hs
index 1833aa0..055e440 100644
--- a/lib/Server.hs
+++ b/lib/Server.hs
@@ -40,7 +40,7 @@ import           Servant.API                 ((:<|>) (..))
 import           Servant.Server              (hoistServer)
 import           Servant.Swagger             (toSwagger)
 import           Server.Base                 (ServerState)
-import           Server.ControlRoom          (ControlRoom (ControlRoom))
+import           Server.Frontend             (Frontend (..))
 import           Server.GTFS_RT              (gtfsRealtimeServer)
 import           Server.Ingest               (handleTrackerRegister,
                                               handleTrainPing, handleWS)
@@ -82,7 +82,7 @@ server gtfs metrics@Metrics{..} subscribers dbpool settings = handleDebugAPI
         :<|> pure (GTFS.gtfsFile gtfs) :<|> gtfsRealtimeServer gtfs dbpool)
   :<|> handleMetrics
   :<|> serveDirectoryFileServer (serverConfigAssets settings)
-  :<|> pure (unsafePerformIO (toWaiAppPlain (ControlRoom gtfs dbpool settings)))
+  :<|> pure (unsafePerformIO (toWaiAppPlain (Frontend gtfs dbpool settings)))
   where
     handleDebugState = do
       now <- liftIO getCurrentTime