diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-02-14 14:10:36 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-02-14 14:15:26 -0400 |
| commit | 177245deb6ee3271eb44d77c2b0cd722755b2c3f (patch) | |
| tree | 876c4844937c831470192d367123f581fb6cc3d8 /Types/GitConfig.hs | |
| parent | 4e2d50d2e4c9b4d3487c24042b733d02c2f4dd46 (diff) | |
crippled filesystem support, probing and initial support
git annex init probes for crippled filesystems, and sets direct mode, as
well as `annex.crippledfilesystem`.
Avoid manipulating permissions of files on crippled filesystems.
That would likely cause an exception to be thrown.
Very basic support in Command.Add for cripped filesystems; avoids the lock
down entirely since doing it needs both permissions and hard links.
Will make this better soon.
Diffstat (limited to 'Types/GitConfig.hs')
| -rw-r--r-- | Types/GitConfig.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Types/GitConfig.hs b/Types/GitConfig.hs index 86bfd39b6..014a409e1 100644 --- a/Types/GitConfig.hs +++ b/Types/GitConfig.hs @@ -35,6 +35,7 @@ data GitConfig = GitConfig , annexHttpHeadersCommand :: Maybe String , annexAutoCommit :: Bool , annexWebOptions :: [String] + , annexCrippledFileSystem :: Bool } extractGitConfig :: Git.Repo -> GitConfig @@ -55,6 +56,7 @@ extractGitConfig r = GitConfig , annexHttpHeadersCommand = getmaybe "http-headers-command" , annexAutoCommit = getbool "autocommit" True , annexWebOptions = getwords "web-options" + , annexCrippledFileSystem = getbool "crippledfilesystem" False } where get k def = fromMaybe def $ getmayberead k |