diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-04-21 16:59:49 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-04-21 19:36:03 -0400 |
| commit | b98b69e8c6d9b873a864b79cff857882f67ee576 (patch) | |
| tree | 4ae145f9fe34c5e71424ab3d12dca6ab8070ce41 /Annex/Branch.hs | |
| parent | 7e45712d194aa2b231083c3ccee3668f053e5717 (diff) | |
honor core.sharedRepository when making all the other files in the annex
Lock files, directories, etc.
Diffstat (limited to 'Annex/Branch.hs')
| -rw-r--r-- | Annex/Branch.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Annex/Branch.hs b/Annex/Branch.hs index 52089ac97..e5976c2c0 100644 --- a/Annex/Branch.hs +++ b/Annex/Branch.hs @@ -36,6 +36,7 @@ import qualified Git.UnionMerge import Git.HashObject import qualified Git.Index import Annex.CatFile +import Annex.Perms {- Name of the branch that is used to store git-annex's information. -} name :: Git.Ref @@ -308,6 +309,7 @@ setIndexSha :: Git.Ref -> Annex () setIndexSha ref = do lock <- fromRepo gitAnnexIndexLock liftIO $ writeFile lock $ show ref ++ "\n" + setAnnexPerm lock {- Checks if there are uncommitted changes in the branch's index or journal. -} unCommitted :: Annex Bool |