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/Add.hs

@@ -23,7 +23,7 @@ import Utility.FileMode
 import Config
 
 def :: [Command]
-def = [command "add" paramPaths seek "add files to annex"]
+def = [notDirect $ command "add" paramPaths seek "add files to annex"]
 
 {- Add acts on both files not checked into git yet, and unlocked files. -}
 seek :: [CommandSeek]
@@ -33,7 +33,7 @@ seek = [withFilesNotInGit start, withFilesUnlocked start]
  - backend, and then moving it into the annex directory and setting up
  - the symlink pointing to its content. -}
 start :: FilePath -> CommandStart
-start file = notBareRepo $ notDirect $ ifAnnexed file fixup add
+start file = notBareRepo $ ifAnnexed file fixup add
   where
 	add = do
 		s <- liftIO $ getSymbolicLinkStatus file