diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-12-27 13:07:56 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-12-27 13:07:56 -0400 |
| commit | 48d5e06041ce8c4ad0c6754fe210116f4cc0a412 (patch) | |
| tree | 370dd802a7c18218b9141862ef76cad5bc92eca3 /Remote | |
| parent | bee2200ca2b8d28b9bb7d4f0449627914a6aecbc (diff) | |
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.
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/External.hs | 2 | ||||
| -rw-r--r-- | Remote/External/Types.hs | 4 |
2 files changed, 0 insertions, 6 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. |