summaryrefslogtreecommitdiff
path: root/Command/Unlock.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-03-22 17:27:04 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-03-22 17:27:04 -0400
commitaa2d8e33df3fc6ba204e28001ab0d1d231c9c58e (patch)
treecc7ea1560b68af06d819b83e01579974210ff0c3 /Command/Unlock.hs
parentaa1bc31e0aede63a1e68d2ec3e2653a7f5be0ae7 (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/Unlock.hs')
-rw-r--r--Command/Unlock.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/Command/Unlock.hs b/Command/Unlock.hs
index ac7b22ac7..bf593e1e9 100644
--- a/Command/Unlock.hs
+++ b/Command/Unlock.hs
@@ -41,6 +41,8 @@ perform dest key = do
inbackend <- Backend.hasKey key
when (not inbackend) $
error "content not present"
+
+ checkDiskSpace key
g <- Annex.gitRepo
let src = gitAnnexLocation g key