diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-02-15 14:17:31 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-02-15 14:17:31 -0400 |
| commit | e90f68e11df1c6b72d34d1835f64b6b912156936 (patch) | |
| tree | fccbbca86e3eefa36adbadac7f7e76b8c6008297 /Command/Indirect.hs | |
| parent | a3d5e1178d80b294a8607aa3b21325730cb424d9 (diff) | |
don't allow setting indirect mode on a crippled filesystem
Diffstat (limited to 'Command/Indirect.hs')
| -rw-r--r-- | Command/Indirect.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Command/Indirect.hs b/Command/Indirect.hs index e09e3c9be..90e0b6eaf 100644 --- a/Command/Indirect.hs +++ b/Command/Indirect.hs @@ -16,6 +16,7 @@ import Config import Annex.Direct import Annex.Content import Annex.CatFile +import Init def :: [Command] def = [notBareRepo $ command "indirect" paramNothing seek @@ -25,7 +26,13 @@ seek :: [CommandSeek] seek = [withNothing start] start :: CommandStart -start = ifM isDirect ( next perform, stop ) +start = ifM isDirect + ( ifM probeCrippledFileSystem + ( error "This repository seems to be on a crippled filesystem, you must use direct mode." + , next perform + ) + , stop + ) perform :: CommandPerform perform = do |