Added DIRHASH_LOWER to external special remote protocol.

This commit is contained in:
Joey Hess 2016-05-03 13:36:59 -04:00
parent 9b73c85952
commit 4b9ddb9429
Failed to extract signature
5 changed files with 25 additions and 1 deletions

View file

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