From 0a78dd7f3e56c4879771a60bb3b43b197ddb444d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 28 Jan 2026 20:01:31 +0100
Subject: Check component size when loading ondemand object

---
 main/Test/Service.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'main')

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 ()
 
 
-- 
cgit v1.2.3