internal state: sort according to org

(also, more lenses i guess)

1 files changed, 1 insertions, 1 deletions

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