diff options
Diffstat (limited to 'Remote/External.hs')
-rw-r--r-- | Remote/External.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Remote/External.hs b/Remote/External.hs index f682d242d..a0c3ef2d6 100644 --- a/Remote/External.hs +++ b/Remote/External.hs @@ -19,6 +19,7 @@ import Crypto import Utility.Metered import Logs.Transfer import Logs.PreferredContent.Raw +import Logs.RemoteState import Config.Cost import Annex.Content import Annex.UUID @@ -235,6 +236,12 @@ handleRequest' lck external req mp responsehandler expr <- fromMaybe "" . M.lookup (externalUUID external) <$> preferredContentMapRaw send $ VALUE expr + handleRemoteRequest (SETSTATE key state) = + setRemoteState (externalUUID external) key state + handleRemoteRequest (GETSTATE key) = do + state <- fromMaybe "" + <$> getRemoteState (externalUUID external) key + send $ VALUE state handleRemoteRequest (VERSION _) = sendMessage lck external $ ERROR "too late to send VERSION" |