From 76112b8bd26c0e282d5479ccae9d79c4dc28c35d Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Fri, 10 Apr 2020 17:49:01 -0700
Subject: Replace Config/Init/Logger with envy and simpler code

Idk what I was thinking, I dodn't need any of that stuff.
---
 Com/MusicMeetsComics/Server/Init.hs | 49 -------------------------------------
 1 file changed, 49 deletions(-)
 delete mode 100644 Com/MusicMeetsComics/Server/Init.hs

(limited to 'Com/MusicMeetsComics/Server/Init.hs')

diff --git a/Com/MusicMeetsComics/Server/Init.hs b/Com/MusicMeetsComics/Server/Init.hs
deleted file mode 100644
index 04ddc88..0000000
--- a/Com/MusicMeetsComics/Server/Init.hs
+++ /dev/null
@@ -1,49 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE NoImplicitPrelude #-}
-module Com.MusicMeetsComics.Server.Init where
-
-import qualified Com.MusicMeetsComics.Server.Config as Config
-import           Control.Concurrent (killThread)
-import           Control.Exception (bracket)
-import qualified Control.Monad.Metrics as M
-import qualified Katip
-import           Lens.Micro ((^.))
-import           Network.Wai (Application, Middleware)
-import           Network.Wai.Handler.Warp (run)
-import           Network.Wai.Metrics (metrics, registerWaiMetrics)
-import           Network.Wai.Middleware.Gzip
-import           Protolude
-import qualified System.IO as IO
-
--- | An action that creates a WAI 'Application' together with its resources,
---   runs it, and tears it down on exit
-runApp :: (Config.Config -> Application) -> IO ()
-runApp app = bracket Config.acquire shutdown jog
-  where
-    say = IO.hPutStrLn IO.stderr
-    jog config = do
-        say $ "hero"
-        say $ "port: " ++ show (Config.configPort config)
-        run (Config.configPort config) =<< initialize app config
-
--- | The 'initialize' function accepts the required environment information,
--- initializes the WAI 'Application' and returns it
-initialize :: (Config.Config -> Application) -> Config.Config -> IO Application
-initialize app cfg = do
-  waiMetrics <- registerWaiMetrics (Config.configMetrics cfg ^. M.metricsStore)
-  let logger = Config.setLogger (Config.configEnv cfg)
-  -- generateJavaScript
-  pure . logger . metrics waiMetrics . app $ cfg
-
-compress :: Middleware
-compress = gzip def { gzipFiles = GzipCompress }
-
--- | Takes care of cleaning up 'Config.Config' resources
-shutdown :: Config.Config -> IO ()
-shutdown cfg = do
-  _ <- Katip.closeScribes (Config.configLogEnv cfg)
-    -- Monad.Metrics does not provide a function to destroy metrics store
-    -- so, it'll hopefully get torn down when async exception gets thrown
-    -- at metrics server process
-  killThread (Config.configEkgServer cfg)
-  pure ()
-- 
cgit v1.2.3