diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-01-28 15:55:17 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-01-28 15:55:17 -0400 |
| commit | 7ca8ec00a7fcda71a08d22f06838424765a1b215 (patch) | |
| tree | aa377fccb40797a734372127c19177524fa8af2b /Remote/External.hs | |
| parent | 3327618e5b48afb10a8f98afe15c750d8ed4c416 (diff) | |
groundwork for parameterizing hash depth
Diffstat (limited to 'Remote/External.hs')
| -rw-r--r-- | Remote/External.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Remote/External.hs b/Remote/External.hs index 0ec284ff4..b660c4f1b 100644 --- a/Remote/External.hs +++ b/Remote/External.hs @@ -28,6 +28,7 @@ import Creds import Control.Concurrent.STM import System.Log.Logger (debugM) import qualified Data.Map as M +import Data.Default remote :: RemoteType remote = RemoteType { @@ -184,7 +185,7 @@ handleRequest' lck external req mp responsehandler handleRemoteRequest (PROGRESS bytesprocessed) = maybe noop (\a -> liftIO $ a bytesprocessed) mp handleRemoteRequest (DIRHASH k) = - send $ VALUE $ hashDirMixed k + send $ VALUE $ hashDirMixed def k handleRemoteRequest (SETCONFIG setting value) = liftIO $ atomically $ do let v = externalConfig external |