From b100f6e64074c761327e1113a0c8afaf74091a23 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 25 Nov 2025 21:13:25 +0100
Subject: Add Config reference to JobSet

---
 src/Command/Shell.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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

diff --git a/src/Command/Shell.hs b/src/Command/Shell.hs
index 6e0d880..dfff50a 100644
--- a/src/Command/Shell.hs
+++ b/src/Command/Shell.hs
@@ -5,6 +5,7 @@ module Command.Shell (
 import Control.Monad
 import Control.Monad.IO.Class
 
+import Data.Bifunctor
 import Data.Maybe
 import Data.Text (Text)
 import Data.Text qualified as T
@@ -37,7 +38,8 @@ instance Command ShellCommand where
 cmdShell :: ShellCommand -> CommandExec ()
 cmdShell (ShellCommand ref) = do
     einput <- getEvalInput
-    job <- either (tfail . textEvalError) (return . fst) =<<
+    [ job ] <- either tfail return =<<
+        return . either (Left . textEvalError) (first T.pack . jobsetJobsEither) =<<
         liftIO (runEval (evalJobReference ref) einput)
     sh <- fromMaybe "/bin/sh" <$> liftIO (lookupEnv "SHELL")
     storageDir <- getStorageDir
-- 
cgit v1.2.3