diff options
author | stuebinm | 2022-02-16 17:59:19 +0100 |
---|---|---|
committer | stuebinm | 2022-02-16 18:01:33 +0100 |
commit | 3b144c97636620a6fbd3807a8847b5751f86a52d (patch) | |
tree | 2071c617a44cbcfc0178ad58e8200dc7248e137b /server/Main.hs | |
parent | c1988345690b9da7a82020ff72542860fcb1d68a (diff) |
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!
Diffstat (limited to '')
-rw-r--r-- | server/Main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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) |