diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-12-31 13:50:18 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-12-31 13:50:18 -0400 |
| commit | dda8d46bf3ef2de301f338b39c2faf08b3bbeba2 (patch) | |
| tree | ed9f9bdac2ce6f484f5c933836344f31c028b5f5 /Remote | |
| parent | 68c7dbe53ee37ab391e9132da781ff479faf5aae (diff) | |
external special remote protocol: Added GETUUID.
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/External.hs | 2 | ||||
| -rw-r--r-- | Remote/External/Types.hs | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/Remote/External.hs b/Remote/External.hs index e444a729d..3a567d834 100644 --- a/Remote/External.hs +++ b/Remote/External.hs @@ -226,6 +226,8 @@ handleRequest' lck external req mp responsehandler creds <- fromMaybe ("", "") <$> getRemoteCredPair c (credstorage setting) sendMessage lck external $ CREDS (fst creds) (snd creds) + handleRemoteRequest GETUUID = sendMessage lck external $ + VALUE $ fromUUID $ externalUUID external handleRemoteRequest (VERSION _) = sendMessage lck external $ ERROR "too late to send VERSION" diff --git a/Remote/External/Types.hs b/Remote/External/Types.hs index 0525cdfee..40bd8d52e 100644 --- a/Remote/External/Types.hs +++ b/Remote/External/Types.hs @@ -166,6 +166,7 @@ data RemoteRequest | GETCONFIG Setting | SETCREDS Setting String String | GETCREDS Setting + | GETUUID deriving (Show) instance Receivable RemoteRequest where @@ -176,6 +177,7 @@ instance Receivable RemoteRequest where parseCommand "GETCONFIG" = parse1 GETCONFIG parseCommand "SETCREDS" = parse3 SETCREDS parseCommand "GETCREDS" = parse1 GETCREDS + parseCommand "GETUUID" = parse0 GETUUID parseCommand _ = parseFail -- Responses to RemoteRequest. |