From c474b2ffb27af7aa80f53f51caeb85b97c9b3b72 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 31 Dec 2025 16:41:40 +0100
Subject: Fix build with mtl 2.2

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

(limited to 'src')

diff --git a/src/Job.hs b/src/Job.hs
index 2de0bb6..20e6fd5 100644
--- a/src/Job.hs
+++ b/src/Job.hs
@@ -389,7 +389,7 @@ prepareJob dir job inner = do
             checkoutAt subtree $ checkoutPath </> fromMaybe "" dest
 
         liftIO $ forM_ (jobUses job) $ \( jid, aname ) -> do
-            modifyError (userError . T.unpack) $ do
+            either (throwError . userError . T.unpack) pure <=< runExceptT $ do
                 wpath <- getArtifactWorkPath dir jid aname
                 let target = checkoutPath </> wpath
                 liftIO $ createDirectoryIfMissing True $ takeDirectory target
-- 
cgit v1.2.3