2010-10-10 19:54:02 +00:00
|
|
|
{- git-annex file locations
|
|
|
|
|
-}
|
|
|
|
|
|
|
|
|
|
module Locations where
|
|
|
|
|
|
|
|
|
|
import GitRepo
|
|
|
|
|
|
2010-10-11 04:23:49 +00:00
|
|
|
{- Long-term, cross-repo state is stored in files inside the .git-annex
|
|
|
|
|
- directory, in the git repository. -}
|
2010-10-10 19:54:02 +00:00
|
|
|
stateLoc = ".git-annex"
|
|
|
|
|
gitStateDir :: GitRepo -> FilePath
|
|
|
|
|
gitStateDir repo = (top repo) ++ "/" ++ stateLoc ++ "/"
|
