diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-05-24 09:12:23 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-05-24 15:37:08 +0200 |
| commit | 76370492c9c0cdbb51b4f7c14e082c04b0b223d5 (patch) | |
| tree | 054e7950f8bf7c08073fafe1253c5e8f86757cf9 /src/Command/Run.hs | |
| parent | 64669c18992339fa632bfea0bf13691844252777 (diff) | |
Unify style of single quotes in output
Diffstat (limited to 'src/Command/Run.hs')
| -rw-r--r-- | src/Command/Run.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Command/Run.hs b/src/Command/Run.hs index 0ea73b5..ce1ea4a 100644 --- a/src/Command/Run.hs +++ b/src/Command/Run.hs @@ -141,7 +141,7 @@ argumentJobSource names = do jobsetJobsEither <- fmap Right $ forM names $ \name -> case find ((name ==) . jobName) (configJobs config) of Just job -> return job - Nothing -> tfail $ "job `" <> textJobName name <> "' not found" + Nothing -> tfail $ "job ‘" <> textJobName name <> "’ not found" oneshotJobSource . (: []) =<< cmdEvalWith (\ei -> ei { eiCurrentIdRev = cidPart ++ eiCurrentIdRev ei }) (evalJobSet [] JobSet {..}) @@ -199,7 +199,7 @@ watchBranchSource branch = do Just commit -> void $ forkIO $ go commit tmvar Nothing -> do - T.hPutStrLn stderr $ "Branch `" <> branch <> "' not found" + T.hPutStrLn stderr $ "Branch ‘" <> branch <> "’ not found" atomically $ putTMVar tmvar Nothing return $ JobSource tmvar |