diff options
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 |