diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-05-03 13:36:59 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-05-03 13:36:59 -0400 |
| commit | 634699480da03954e855540caba1e0a12d458a19 (patch) | |
| tree | 1c1879e4bbb20478cec5ac13ac6074e4c5def52f /Remote | |
| parent | 215b9ad6b887dcd16720136768a3080afd576687 (diff) | |
Added DIRHASH_LOWER to external special remote protocol.
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 20fd4e52c..69c47a6e4 100644 --- a/Remote/External.hs +++ b/Remote/External.hs @@ -227,6 +227,8 @@ handleRequest' lck external req mp responsehandler maybe noop (\a -> liftIO $ a bytesprocessed) mp handleRemoteRequest (DIRHASH k) = send $ VALUE $ hashDirMixed def k + handleRemoteRequest (DIRHASH_LOWER k) = + send $ VALUE $ hashDirLower def k handleRemoteRequest (SETCONFIG setting value) = liftIO $ atomically $ do let v = externalConfig external diff --git a/Remote/External/Types.hs b/Remote/External/Types.hs index 80c785798..9050d0a84 100644 --- a/Remote/External/Types.hs +++ b/Remote/External/Types.hs @@ -176,6 +176,7 @@ data RemoteRequest = VERSION ProtocolVersion | PROGRESS BytesProcessed | DIRHASH Key + | DIRHASH_LOWER Key | SETCONFIG Setting String | GETCONFIG Setting | SETCREDS Setting String String @@ -198,6 +199,7 @@ instance Proto.Receivable RemoteRequest where parseCommand "VERSION" = Proto.parse1 VERSION parseCommand "PROGRESS" = Proto.parse1 PROGRESS parseCommand "DIRHASH" = Proto.parse1 DIRHASH + parseCommand "DIRHASH_LOWER" = Proto.parse1 DIRHASH_LOWER parseCommand "SETCONFIG" = Proto.parse2 SETCONFIG parseCommand "GETCONFIG" = Proto.parse1 GETCONFIG parseCommand "SETCREDS" = Proto.parse3 SETCREDS |