Added DIRHASH_LOWER to external special remote protocol.
This commit is contained in:
parent
9b73c85952
commit
4b9ddb9429
5 changed files with 25 additions and 1 deletions
|
@ -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
|
||||
|
|
2
Remote/External/Types.hs
vendored
2
Remote/External/Types.hs
vendored
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue