From 1fed9563fd75e6528740471f04746138284257b3 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Wed, 16 Feb 2022 15:32:57 +0100
Subject: internal state: sort according to org

(also, more lenses i guess)
---
 server/Worker.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'server/Worker.hs')

diff --git a/server/Worker.hs b/server/Worker.hs
index 7609d48..1672026 100644
--- a/server/Worker.hs
+++ b/server/Worker.hs
@@ -61,7 +61,7 @@ runJob config Job {..} cliconfig done = runCli cliconfig $ do
       res <- liftIO $ recursiveCheckDir (orgLintconfig jobOrg) workdir (orgEntrypoint jobOrg)
       callgit gitdir [ "worktree", "remove", "-f", "-f", workdir ]
       pure res
-    liftIO $ setJobStatus done jobRef $ case res of
+    liftIO $ setJobStatus done jobOrg jobRef $ case res of
       Right res -> Linted res
       Left err  -> Failed (prettyProcessFailure err)
   where
-- 
cgit v1.2.3