diff options
Diffstat (limited to 'Locations.hs')
| -rw-r--r-- | Locations.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Locations.hs b/Locations.hs index 330645dfc..be5fd6c2f 100644 --- a/Locations.hs +++ b/Locations.hs @@ -30,6 +30,7 @@ module Locations ( gitAnnexHtmlShim, gitAnnexSshDir, gitAnnexRemotesDir, + gitAnnexAssistantDefaultDir, isLinkToAnnex, annexHashes, hashDirMixed, @@ -179,6 +180,11 @@ gitAnnexSshDir r = addTrailingPathSeparator $ gitAnnexDir r </> "ssh" gitAnnexRemotesDir :: Git.Repo -> FilePath gitAnnexRemotesDir r = addTrailingPathSeparator $ gitAnnexDir r </> "remotes" +{- This is the base directory name used by the assistant when making + - repositories, by default. -} +gitAnnexAssistantDefaultDir :: FilePath +gitAnnexAssistantDefaultDir = "annex" + {- Checks a symlink target to see if it appears to point to annexed content. -} isLinkToAnnex :: FilePath -> Bool isLinkToAnnex s = ('/':d) `isInfixOf` s || d `isPrefixOf` s |