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/External.hs | |
parent | 215b9ad6b887dcd16720136768a3080afd576687 (diff) |
Added DIRHASH_LOWER to external special remote protocol.
Diffstat (limited to 'Remote/External.hs')
-rw-r--r-- | Remote/External.hs | 2 |
1 files changed, 2 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 |