external special remote protocol: Added GETUUID.

This commit is contained in:
Joey Hess 2013-12-31 13:50:18 -04:00
parent 2cf1c879c9
commit ed1fcab6d7
4 changed files with 13 additions and 2 deletions

View file

@ -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"