mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add function split out from CatFile

Browse source
This commit is contained in:
Joey Hess 2020-07-10 13:28:16 -04:00
parent 6b9d1c1317
commit bf72316b08
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Git/Ref.hs
View file

@ -1,6 +1,6 @@
{- git ref stuff {- git ref stuff
- -
- Copyright 2011-2019 Joey Hess <id@joeyh.name> - Copyright 2011-2020 Joey Hess <id@joeyh.name>
- -
- Licensed under the GNU AGPL version 3 or higher. - Licensed under the GNU AGPL version 3 or higher.
-} -}
@ -14,6 +14,7 @@ import Git
import Git.Command import Git.Command
import Git.Sha import Git.Sha
import Git.Types import Git.Types
import Git.FilePath
import Data.Char (chr, ord) import Data.Char (chr, ord)
import qualified Data.ByteString as S import qualified Data.ByteString as S
@ -68,7 +69,11 @@ branchRef = underBase "refs/heads"
- of a repo. - of a repo.
-} -}
fileRef :: RawFilePath -> Ref fileRef :: RawFilePath -> Ref
fileRef f = Ref $ ":./" <> f fileRef f = Ref $ ":./" <> toInternalGitPath f
{- A Ref that can be used to refer to a file in a particular branch. -}
branchFileRef :: Branch -> RawFilePath -> Ref
branchFileRef branch f = Ref $ fromRef' branch <> ":" <> toInternalGitPath f
{- Converts a Ref to refer to the content of the Ref on a given date. -} {- Converts a Ref to refer to the content of the Ref on a given date. -}
dateRef :: Ref -> RefDate -> Ref dateRef :: Ref -> RefDate -> Ref