defer SETSTATE and GETSTATE for now

TAHOE-LAFS may use these eventually, but that's TBD and none of git-annex's
own special remotes need that, except for the web special remote's urls.

3 files changed, 0 insertions, 17 deletions

diff --git a/Remote/External.hs b/Remote/External.hs
index 18dd6b627..b8a964480 100644
--- a/Remote/External.hs
+++ b/Remote/External.hs
@@ -211,8 +211,6 @@ handleRequest' lck external req mp responsehandler = do
 		value <- fromMaybe "" . M.lookup setting
 			<$> liftIO (atomically $ readTMVar $ externalConfig external)
 		sendMessage lck external (VALUE value)
-	handleRemoteRequest (SETSTATE k value) = error "TODO"
-	handleRemoteRequest (GETSTATE k) = error "TODO"
 	handleRemoteRequest (VERSION _) =
 		sendMessage lck external (ERROR "too late to send VERSION")
 
diff --git a/Remote/External/Types.hs b/Remote/External/Types.hs
index ff93af0ec..a4d49ddf1 100644
--- a/Remote/External/Types.hs
+++ b/Remote/External/Types.hs
@@ -157,8 +157,6 @@ data RemoteRequest
 	| DIRHASH Key
 	| SETCONFIG Setting String
 	| GETCONFIG Setting
-	| SETSTATE Key String
-	| GETSTATE Key
 	deriving (Show)
 
 instance Receivable RemoteRequest where
@@ -167,8 +165,6 @@ instance Receivable RemoteRequest where
 	parseCommand "DIRHASH" = parse1 DIRHASH
 	parseCommand "SETCONFIG" = parse2 SETCONFIG
 	parseCommand "GETCONFIG" = parse1 GETCONFIG
-	parseCommand "SETSTATE" = parse2 SETSTATE
-	parseCommand "GETSTATE" = parse1 GETSTATE
 	parseCommand _ = parseFail
 
 -- Responses to RemoteRequest.
diff --git a/doc/design/external_special_remote_protocol.mdwn b/doc/design/external_special_remote_protocol.mdwn
index dd89e5074..aab93ab08 100644
--- a/doc/design/external_special_remote_protocol.mdwn
+++ b/doc/design/external_special_remote_protocol.mdwn
@@ -188,17 +188,6 @@ in control.
   can have been set by a previous SETCONFIG. Can be run at any time.  
   (git-annex replies with VALUE followed by the value. If the setting is
   not set, the value will be empty.)
-* `SETSTATE Key Value`  
-  git-annex can store state in the git-annex branch on a
-  per-special-remote, per-key basis. This sets that state.  
-  (git-annex replies with VALUE followed by the value stored.)
-* `GETSTATE Key`  
-  Gets any state previously stored for the key from the git-annex branch.  
-  Note that some special remotes may be accessed from multiple
-  repositories, and the state is only eventually consistently synced
-  between them. If two repositories set different values in the state
-  for a key, the one that sets it last wins.  
-  (git-annex replies with VALUE followed by the value.)
 
 ## general messages