summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-02-15 14:17:31 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-02-15 14:17:31 -0400
commite90f68e11df1c6b72d34d1835f64b6b912156936 (patch)
treefccbbca86e3eefa36adbadac7f7e76b8c6008297 /Command
parenta3d5e1178d80b294a8607aa3b21325730cb424d9 (diff)
don't allow setting indirect mode on a crippled filesystem
Diffstat (limited to 'Command')
-rw-r--r--Command/Indirect.hs9
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