summaryrefslogtreecommitdiff
path: root/Remote/External.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-12-31 13:50:18 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-12-31 13:50:18 -0400
commitdda8d46bf3ef2de301f338b39c2faf08b3bbeba2 (patch)
treeed9f9bdac2ce6f484f5c933836344f31c028b5f5 /Remote/External.hs
parent68c7dbe53ee37ab391e9132da781ff479faf5aae (diff)
external special remote protocol: Added GETUUID.
Diffstat (limited to 'Remote/External.hs')
-rw-r--r--Remote/External.hs2
1 files changed, 2 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"