From 76370492c9c0cdbb51b4f7c14e082c04b0b223d5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 24 May 2025 09:12:23 +0200
Subject: Unify style of single quotes in output

---
 src/Command.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Command.hs')

diff --git a/src/Command.hs b/src/Command.hs
index 39ab675..0b1c790 100644
--- a/src/Command.hs
+++ b/src/Command.hs
@@ -119,7 +119,7 @@ getRepo :: RepoName -> CommandExec Repo
 getRepo name = do
     CommandExec (asks (lookup name . ciOtherRepos)) >>= \case
         Just repo -> return repo
-        Nothing -> tfail $ "repo `" <> textRepoName name <> "' not declared"
+        Nothing -> tfail $ "repo ‘" <> textRepoName name <> "’ not declared"
 
 getDefaultRepo :: CommandExec Repo
 getDefaultRepo = do
@@ -141,7 +141,7 @@ getEvalInput = CommandExec $ do
 
 cmdEvalWith :: (EvalInput -> EvalInput) -> Eval a -> CommandExec a
 cmdEvalWith f ev = do
-    either (tfail . textEvalError) return =<< liftIO .runEval ev . f =<< getEvalInput
+    either (tfail . textEvalError) return =<< liftIO . runEval ev . f =<< getEvalInput
 
 getOutput :: CommandExec Output
 getOutput = CommandExec (asks ciOutput)
-- 
cgit v1.2.3