From 3b144c97636620a6fbd3807a8847b5751f86a52d Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Wed, 16 Feb 2022 17:59:19 +0100
Subject: server: remove cli-git, cli-extras

both these packages are hard to use, seem to be either unfinished or
abandoned, and also generally not very good.

Also for some reason they depend on `lens`. Removing them dramatically
shrunk the dependency closure!
---
 server/Main.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'server/Main.hs')

diff --git a/server/Main.hs b/server/Main.hs
index 8b41c92..660b69e 100644
--- a/server/Main.hs
+++ b/server/Main.hs
@@ -12,9 +12,8 @@ module Main where
 
 import           Universum
 
-import           Cli.Extras                           (mkDefaultCliConfig)
 import           Control.Concurrent                   (threadDelay)
-import           Control.Concurrent.Async             (async, waitEither_)
+import           Control.Concurrent.Async             (async, link, waitEither_)
 import           Control.Concurrent.STM.TQueue        (TQueue, newTQueueIO,
                                                        writeTQueue)
 import qualified Data.Text                            as T
@@ -81,7 +80,6 @@ main = do
   queue :: TQueue Job <- newTQueueIO
   -- TODO: i really don't like all this cli logging stuff, replace it with
   -- fast-logger at some point …
-  cliconfig <- liftIO $ mkDefaultCliConfig ["-v" | view verbose config]
   loggerMiddleware <- mkRequestLogger
     $ def { outputFormat = Detailed (view verbose config) }
 
@@ -99,7 +97,9 @@ main = do
     threadDelay (view interval config * 1000000)
 
   -- spawns threads for each job in the queue
-  linter <- async $ void $ linterThread config cliconfig queue state
+  linter <- async $ void $ linterThread config queue state
+  link linter
+  link poker
 
   let warpsettings =
        setPort (view port config)
-- 
cgit v1.2.3