diff options
author | stuebinm | 2022-03-06 08:02:30 +0100 |
---|---|---|
committer | stuebinm | 2022-03-06 08:02:30 +0100 |
commit | ad7343815cc89d34c68f7d38239882bd3d36a577 (patch) | |
tree | acea8af8cdcbef8739cb8f4648e8f5d4783dcf5a /server/Worker.hs | |
parent | e0b01ceca72765246355662982ff35f19ad7dfbb (diff) |
server: add a very simple relint button
Diffstat (limited to 'server/Worker.hs')
-rw-r--r-- | server/Worker.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/server/Worker.hs b/server/Worker.hs index 7de9cd3..6092c78 100644 --- a/server/Worker.hs +++ b/server/Worker.hs @@ -4,7 +4,7 @@ {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE ScopedTypeVariables #-} -{-# LANGUAGE TemplateHaskell #-} +{-# LANGUAGE TemplateHaskell #-} module Worker (linterThread, Job(..)) where @@ -15,9 +15,12 @@ import CheckDir (recursiveCheckDir, import Control.Concurrent.Async (async, link) import Control.Concurrent.STM.TQueue import Control.Exception (IOException, handle) +import Control.Monad.Logger (logError, logErrorN, logInfoN, + runStdoutLoggingT) import qualified Data.Text as T import qualified Data.UUID as UUID import qualified Data.UUID.V4 as UUID +import Fmt ((+|), (|+)) import Server (Config, JobStatus (..), Org (..), RemoteRef (reporef, repourl), @@ -28,8 +31,6 @@ import System.Exit (ExitCode (ExitFailure, ExitSucce import System.FilePath ((</>)) import System.Process import WriteRepo (writeAdjustedRepository) -import Control.Monad.Logger (runStdoutLoggingT, logErrorN, logInfoN, logError) -import Fmt ((+|), (|+)) data Job = Job { jobRef :: RemoteRef |