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/Repo.hs | |
| parent | 64669c18992339fa632bfea0bf13691844252777 (diff) | |
Unify style of single quotes in output
Diffstat (limited to 'src/Repo.hs')
| -rw-r--r-- | src/Repo.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Repo.hs b/src/Repo.hs index 700c61b..98178e6 100644 --- a/src/Repo.hs +++ b/src/Repo.hs @@ -173,14 +173,14 @@ mkCommit commitRepo commitId_ = do readCommit :: (MonadIO m, MonadFail m) => Repo -> Text -> m Commit readCommit repo@GitRepo {..} ref = maybe (fail err) return =<< tryReadCommit repo ref - where err = "revision `" <> T.unpack ref <> "' not found in `" <> gitDir <> "'" + where err = "revision ‘" <> T.unpack ref <> "’ not found in ‘" <> gitDir <> "’" tryReadCommit :: (MonadIO m, MonadFail m) => Repo -> Text -> m (Maybe Commit) tryReadCommit repo ref = sequence . fmap (mkCommit repo . CommitId) =<< tryReadObjectId repo "commit" ref readTree :: (MonadIO m, MonadFail m) => Repo -> FilePath -> Text -> m Tree readTree repo@GitRepo {..} subdir ref = maybe (fail err) return =<< tryReadTree repo subdir ref - where err = "tree `" <> T.unpack ref <> "' not found in `" <> gitDir <> "'" + where err = "tree ‘" <> T.unpack ref <> "’ not found in ‘" <> gitDir <> "’" tryReadTree :: (MonadIO m, MonadFail m) => Repo -> FilePath -> Text -> m (Maybe Tree) tryReadTree treeRepo treeSubdir ref = do |