diff options
Diffstat (limited to 'Command')
| -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 |