From a8aeb1866b221b850a8ece13e1a9b9acca1dc1f9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Fri, 7 Nov 2025 21:15:04 +0100
Subject: Remove job dir parameter from prepareJob callback

---
 src/Command/Shell.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Command/Shell.hs')

diff --git a/src/Command/Shell.hs b/src/Command/Shell.hs
index 4cd2b7e..6e0d880 100644
--- a/src/Command/Shell.hs
+++ b/src/Command/Shell.hs
@@ -41,6 +41,6 @@ cmdShell (ShellCommand ref) = do
         liftIO (runEval (evalJobReference ref) einput)
     sh <- fromMaybe "/bin/sh" <$> liftIO (lookupEnv "SHELL")
     storageDir <- getStorageDir
-    prepareJob storageDir job $ \checkoutPath _ -> do
+    prepareJob storageDir job $ \checkoutPath -> do
         liftIO $ withCreateProcess (proc sh []) { cwd = Just checkoutPath } $ \_ _ _ ph -> do
             void $ waitForProcess ph
-- 
cgit v1.2.3