diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-11-07 21:15:04 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-11-07 21:15:04 +0100 |
| commit | a8aeb1866b221b850a8ece13e1a9b9acca1dc1f9 (patch) | |
| tree | 24da027db49a43d15c2d045a1b0b1fe53866fc26 /src/Command | |
| parent | fe1da1f16884ea1e3b1c3faedbe336d94ee3a386 (diff) | |
Remove job dir parameter from prepareJob callback
Diffstat (limited to 'src/Command')
| -rw-r--r-- | src/Command/Shell.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |