diff options
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 () |