diff options
author | Joey Hess <joey@kitenet.net> | 2011-06-23 09:56:04 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-06-23 09:56:04 -0400 |
commit | 23e765b67c38a9f02b3b5152e7e123819bb696de (patch) | |
tree | 0e18d06b500e48f84cc0a33556160ef2ea4f442d /Locations.hs | |
parent | 9672496a9357c84a4436ead109ba2dc7bc010e8c (diff) |
update re git-annex branch direct modification
Diffstat (limited to 'Locations.hs')
-rw-r--r-- | Locations.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Locations.hs b/Locations.hs index df4957f3e..f93b0cc50 100644 --- a/Locations.hs +++ b/Locations.hs @@ -105,6 +105,11 @@ gitAnnexBadLocation r key = gitAnnexBadDir r </> keyFile key gitAnnexUnusedLog :: FilePath -> Git.Repo -> FilePath gitAnnexUnusedLog prefix r = gitAnnexDir r </> (prefix ++ "unused") +{- .git/annex/journal/ is used to journal changes made to the git-annex + - branch -} +gitAnnexJournalDir :: Git.Repo -> FilePath +gitAnnexJournalDir r = addTrailingPathSeparator $ gitAnnexDir r </> "journal" + {- Checks a symlink target to see if it appears to point to annexed content. -} isLinkToAnnex :: FilePath -> Bool isLinkToAnnex s = ("/.git/" ++ objectDir) `isInfixOf` s |