From 6beba62d56ab31927ef1ad7671ab52800ba51103 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 10 Dec 2025 21:45:45 +0100
Subject: =?UTF-8?q?Accept=20literal=20text=20block=20for=20the=20=E2=80=98?=
 =?UTF-8?q?shell=E2=80=99=20section?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Changelog: Accept literal text block for the `shell` section
---
 src/Job.hs | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'src/Job.hs')

diff --git a/src/Job.hs b/src/Job.hs
index 5a22d63..3fe75e6 100644
--- a/src/Job.hs
+++ b/src/Job.hs
@@ -38,6 +38,7 @@ import Data.Text qualified as T
 import Data.Text.IO qualified as T
 
 import System.Directory
+import System.Environment
 import System.Exit
 import System.FilePath
 import System.FilePath.Glob
@@ -424,14 +425,21 @@ runJob job uses checkoutPath jdir = do
         copyRecursive (aoutStorePath aout) target
 
     bracket (liftIO $ openFile (jdir </> "log") WriteMode) (liftIO . hClose) $ \logs -> do
-        forM_ (fromMaybe [] $ jobRecipe job) $ \p -> do
+        forM_ (fromMaybe [] $ jobRecipe job) $ \ep -> do
+            ( p, input ) <- case ep of
+                Left p -> return ( p, "" )
+                Right script -> do
+                    sh <- fromMaybe "/bin/sh" <$> liftIO (lookupEnv "SHELL")
+                    return ( proc sh [], script )
             (Just hin, _, _, hp) <- liftIO $ createProcess_ "" p
                 { cwd = Just checkoutPath
                 , std_in = CreatePipe
                 , std_out = UseHandle logs
                 , std_err = UseHandle logs
                 }
-            liftIO $ hClose hin
+            liftIO $ void $ forkIO $ do
+                T.hPutStr hin input
+                hClose hin
             liftIO (waitForProcess hp) >>= \case
                 ExitSuccess -> return ()
                 ExitFailure n
-- 
cgit v1.2.3