diff options
author | 2012-12-24 14:54:36 -0400 | |
---|---|---|
committer | 2012-12-24 14:54:36 -0400 | |
commit | 89ded71d9f0174878733bbca59b02c0f6c3c6ccc (patch) | |
tree | 30fce1de7a7e0527700d339fd485b91e694a41ed /Command/Add.hs | |
parent | e8abfbba6c46f5a31139d0fb37b592d0db9c278c (diff) |
add a guard against using git annex add in direct mode repo
Currently, it deletes files when run in one, so until I get a chance to fix
it, block foot shooting.
Diffstat (limited to 'Command/Add.hs')
-rw-r--r-- | Command/Add.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Add.hs b/Command/Add.hs index e589d058d..e18f8592c 100644 --- a/Command/Add.hs +++ b/Command/Add.hs @@ -33,7 +33,7 @@ seek = [withFilesNotInGit start, withFilesUnlocked start] - backend, and then moving it into the annex directory and setting up - the symlink pointing to its content. -} start :: FilePath -> CommandStart -start file = notBareRepo $ ifAnnexed file fixup add +start file = notBareRepo $ notDirect $ ifAnnexed file fixup add where add = do s <- liftIO $ getSymbolicLinkStatus file |