2010-10-10 15:54:02 -04:00
|
|
|
{- git-annex file locations
|
|
|
|
|
-}
|
|
|
|
|
|
2010-10-11 17:52:46 -04:00
|
|
|
module Locations (
|
|
|
|
|
gitStateDir,
|
|
|
|
|
stateLoc
|
|
|
|
|
) where
|
2010-10-10 15:54:02 -04:00
|
|
|
|
|
|
|
|
import GitRepo
|
|
|
|
|
|
2010-10-11 00:23:49 -04:00
|
|
|
{- Long-term, cross-repo state is stored in files inside the .git-annex
|
2010-10-12 00:53:42 -04:00
|
|
|
- directory, in the git repository's working tree. -}
|
2010-10-10 15:54:02 -04:00
|
|
|
stateLoc = ".git-annex"
|
|
|
|
|
gitStateDir :: GitRepo -> FilePath
|
2010-10-12 00:53:42 -04:00
|
|
|
gitStateDir repo = (gitWorkTree repo) ++ "/" ++ stateLoc ++ "/"
|
