From 387d63dfbc9cf5b71819461fac2397b57caeb3e4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 11 Mar 2025 21:06:16 +0100
Subject: Checkout unstaged changes in working directory

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

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

diff --git a/src/Command/Run.hs b/src/Command/Run.hs
index 3968196..383276d 100644
--- a/src/Command/Run.hs
+++ b/src/Command/Run.hs
@@ -129,7 +129,7 @@ argumentJobSource names = do
         case find ((name ==) . jobName) (configJobs config) of
             Just job -> return job
             Nothing -> tfail $ "job `" <> textJobName name <> "' not found"
-    Just jobsetCommit <- flip readCommit "HEAD" =<< getDefaultRepo
+    jobsetCommit <- createWipCommit =<< getDefaultRepo
     oneshotJobSource [ JobSet {..} ]
 
 rangeSource :: Repo -> Text -> Text -> IO JobSource
-- 
cgit v1.2.3