diff options
Diffstat (limited to 'server/Worker.hs')
| -rw-r--r-- | server/Worker.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/server/Worker.hs b/server/Worker.hs index 24a774b..b5d71fc 100644 --- a/server/Worker.hs +++ b/server/Worker.hs @@ -47,7 +47,7 @@ linterThread config queue done = forever $ do -- TODO: re-add proper fancy (colourful?) logging runJob :: Config True -> Job -> MVar ServerState -> IO () runJob config Job {..} done = do - rand <- liftIO UUID.nextRandom + rand <- UUID.nextRandom let workdir = "/tmp" </> ("worktree-" <> UUID.toString rand) handle whoops @@ -64,7 +64,8 @@ runJob config Job {..} done = do rev <- map T.strip -- git returns a newline here $ readgit' gitdir ["rev-parse", toString ref] callgit gitdir [ "worktree", "add", "--force", workdir, toString ref ] - res <- liftIO $ recursiveCheckDir (orgLintconfig jobOrg) workdir (orgEntrypoint jobOrg) + + res <- recursiveCheckDir (orgLintconfig jobOrg) workdir (orgEntrypoint jobOrg) setJobStatus done jobOrg jobRef $ Linted res rev |