From ad7343815cc89d34c68f7d38239882bd3d36a577 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 6 Mar 2022 08:02:30 +0100
Subject: server: add a very simple relint button

---
 server/Worker.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'server/Worker.hs')

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
-- 
cgit v1.2.3