diff options
author | Joey Hess <joey@kitenet.net> | 2012-12-29 14:28:19 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-12-29 14:28:19 -0400 |
commit | ee3407de64d52d91500c6b761ad45c7a22eb73cb (patch) | |
tree | 5740f4e2c706f033d1a18602eb7e9148f6a1f365 /Command.hs | |
parent | 1b007068ca4936306889b8b3af2bf224746a2318 (diff) |
block all commands that don't work in direct mode
I left status working in direct mode, although it doesn't show correct
stats for known annex keys.
Diffstat (limited to 'Command.hs')
-rw-r--r-- | Command.hs | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/Command.hs b/Command.hs index 6c127c15d..478dfdc39 100644 --- a/Command.hs +++ b/Command.hs @@ -18,7 +18,6 @@ module Command ( whenAnnexed, ifAnnexed, notBareRepo, - notDirect, isBareRepo, numCopies, numCopiesCheck, @@ -104,12 +103,6 @@ notBareRepo a = do error "You cannot run this subcommand in a bare repository." a -notDirect :: Annex a -> Annex a -notDirect a = ifM isDirect - ( error "You cannot run this subcommand in a direct mode repository." - , a - ) - isBareRepo :: Annex Bool isBareRepo = fromRepo Git.repoIsLocalBare |