diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-03-22 17:27:04 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-03-22 17:27:04 -0400 |
| commit | aa2d8e33df3fc6ba204e28001ab0d1d231c9c58e (patch) | |
| tree | cc7ea1560b68af06d819b83e01579974210ff0c3 /Command/SetKey.hs | |
| parent | aa1bc31e0aede63a1e68d2ec3e2653a7f5be0ae7 (diff) | |
free space checking
Free space checking is now done, for transfers of data for keys that have free space metadata.
(Notably, not for SHA* keys generated with git-annex 0.24 or earlier.)
The code is believed to work on Linux, FreeBSD, and OSX; check compile-time
messages to see if it is not enabled for your OS.
Diffstat (limited to 'Command/SetKey.hs')
| -rw-r--r-- | Command/SetKey.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Command/SetKey.hs b/Command/SetKey.hs index af46fe06e..6f6078e4b 100644 --- a/Command/SetKey.hs +++ b/Command/SetKey.hs @@ -32,7 +32,8 @@ perform :: FilePath -> CommandPerform perform file = do key <- cmdlineKey -- the file might be on a different filesystem, so mv is used - -- rather than simply calling moveToObjectDir + -- rather than simply calling moveToObjectDir; disk space is also + -- checked this way. ok <- getViaTmp key $ \dest -> do if dest /= file then liftIO $ |