diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-03-11 21:06:16 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-03-11 21:06:16 +0100 |
| commit | 387d63dfbc9cf5b71819461fac2397b57caeb3e4 (patch) | |
| tree | 1f0f416f38d27a1bcfa7979c51ae9d24507c0c92 /src/Command/Run.hs | |
| parent | 8e8cbbd3bd15d6557a25ca83ec31cdec8acfdba6 (diff) | |
Checkout unstaged changes in working directory
Diffstat (limited to 'src/Command/Run.hs')
| -rw-r--r-- | src/Command/Run.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |