diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-03-27 21:43:25 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-03-27 21:43:25 -0400 |
| commit | 6b5918c295715d0599005c9367f5dab5468169c5 (patch) | |
| tree | bf54f1fc8b75084d3f1ddd74c260c8521e1eb51c /Content.hs | |
| parent | 28bf28a73c503c7c2d9add38e964149355bb9e50 (diff) | |
some reorg and further remote generalization
Diffstat (limited to 'Content.hs')
| -rw-r--r-- | Content.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Content.hs b/Content.hs index 7aa30f7ff..88e8dbc00 100644 --- a/Content.hs +++ b/Content.hs @@ -40,6 +40,7 @@ import Utility import StatFS import Key import DataUnits +import Config {- Checks if a given key is currently present in the gitAnnexLocation. -} inAnnex :: Key -> Annex Bool @@ -121,7 +122,7 @@ checkDiskSpace = checkDiskSpace' 0 checkDiskSpace' :: Integer -> Key -> Annex () checkDiskSpace' adjustment key = do g <- Annex.gitRepo - r <- Annex.repoConfig g "diskreserve" "" + r <- getConfig g "diskreserve" "" let reserve = case readSize dataUnits r of Nothing -> megabyte Just v -> v |