server: remove a thunk leak

(really a lot of these data structures should be eagerly evaluated into
normal form, i suspect there's still a lot to be gained)

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