15 lines
335 B
Haskell
15 lines
335 B
Haskell
{- git-annex file locations
|
|
-}
|
|
|
|
module Locations (
|
|
gitStateDir,
|
|
stateLoc
|
|
) where
|
|
|
|
import GitRepo
|
|
|
|
{- Long-term, cross-repo state is stored in files inside the .git-annex
|
|
- directory, in the git repository. -}
|
|
stateLoc = ".git-annex"
|
|
gitStateDir :: GitRepo -> FilePath
|
|
gitStateDir repo = (gitRepoTop repo) ++ "/" ++ stateLoc ++ "/"
|