From ee3407de64d52d91500c6b761ad45c7a22eb73cb Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 29 Dec 2012 14:28:19 -0400
Subject: 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.
---
 Command.hs | 7 -------
 1 file changed, 7 deletions(-)

(limited to 'Command.hs')

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
 
-- 
cgit v1.2.3