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

add annexDir

Browse source
This commit is contained in:
Joey Hess 2010-11-07 17:36:24 -04:00
parent ea8ccaa3d5
commit 316264f3e8
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
Locations.hs
View file

@ -12,7 +12,8 @@ module Locations (
fileKey, fileKey,
annexLocation, annexLocation,
annexLocationRelative, annexLocationRelative,
annexTmpLocation annexTmpLocation,
annexDir
) where ) where
import Data.String.Utils import Data.String.Utils
@ -43,11 +44,15 @@ annexLocation r key =
annexLocationRelative :: Key -> FilePath annexLocationRelative :: Key -> FilePath
annexLocationRelative key = ".git/annex/" ++ (keyFile key) annexLocationRelative key = ".git/annex/" ++ (keyFile key)
{- .git-annex/tmp is used for temp files {- The annex directory of a repository.
- -
- Note: Assumes repo is NOT bare. -} - Note: Assumes repo is NOT bare. -}
annexDir :: Git.Repo -> FilePath
annexDir r = Git.workTree r ++ "/.git/annex"
{- .git-annex/tmp is used for temp files -}
annexTmpLocation :: Git.Repo -> FilePath annexTmpLocation :: Git.Repo -> FilePath
annexTmpLocation r = (Git.workTree r) ++ "/.git/annex/tmp/" annexTmpLocation r = annexDir r ++ "/tmp/"
{- Converts a key into a filename fragment. {- Converts a key into a filename fragment.
- -