From 487e06bf875ba8a835399b26095c756899b1209f Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 17 Feb 2022 00:06:22 +0100
Subject: 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)
---
 server/Worker.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'server/Worker.hs')

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