diff options
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 |