diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-01-28 20:01:31 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-01-28 22:39:02 +0100 |
| commit | 0a78dd7f3e56c4879771a60bb3b43b197ddb444d (patch) | |
| tree | 54b583569e37ff323d0e6c8b7f9a642d1fa4b395 /main/Test | |
| parent | 66bfcd8ad4ef16dcd0e287004dc08f8948589bce (diff) | |
Diffstat (limited to 'main/Test')
| -rw-r--r-- | main/Test/Service.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/main/Test/Service.hs b/main/Test/Service.hs index 156b62c..c952c86 100644 --- a/main/Test/Service.hs +++ b/main/Test/Service.hs @@ -60,7 +60,7 @@ instance Service TestMessage where cb <- asks $ testOnDemandReceived . svcAttributes server <- asks svcServer pid <- asks svcPeerIdentity - cb size =<< liftIO (deferLoadWithServer dgst server [ refDigest $ storedRef $ idData pid ]) + cb size =<< liftIO (deferLoadWithServer dgst (DeferredExactSize size) server [ refDigest $ storedRef $ idData pid ]) _ -> return () |