From 490b615b6a6c99fe0f1bd3940487df639a1e915c Mon Sep 17 00:00:00 2001 From: Philip Monk Date: Mon, 4 May 2020 21:18:26 -0700 Subject: [PATCH] ames: only dedupe long messages --- bin/solid.pill | 4 ++-- pkg/arvo/sys/vane/ames.hoon | 7 ++----- 2 files changed, 4 insertions(+), 7 deletions(-) diff --git a/bin/solid.pill b/bin/solid.pill index e25dc4e61a..99572c709d 100644 --- a/bin/solid.pill +++ b/bin/solid.pill @@ -1,3 +1,3 @@ version https://git-lfs.github.com/spec/v1 -oid sha256:7fe85d479aae1c292414312cf846004a4d23071d36436dbb77017a6d7816f156 -size 12872198 +oid sha256:84fb4865c84d2d1dc0ccab6948c30d495c7a80633fb66f067ca5ff36dfd95aa6 +size 12870850 diff --git a/pkg/arvo/sys/vane/ames.hoon b/pkg/arvo/sys/vane/ames.hoon index 6a676c0e68..ce9e842b90 100644 --- a/pkg/arvo/sys/vane/ames.hoon +++ b/pkg/arvo/sys/vane/ames.hoon @@ -2128,7 +2128,8 @@ ++ dedup-message |= =message-blob ^+ message-blob - ~& > deduping=`@p`(mug message-blob) + ?: (lte (met 13 message-blob) 1) + message-blob =/ peers-l=(list [=ship =ship-state]) ~(tap by peers.ames-state) |- ^+ message-blob =* peer-loop $ @@ -2148,16 +2149,12 @@ =* blob-loop $ ?^ blob-l ?: =(i.blob-l message-blob) - ~& > found=`@p`(mug i.blob-l) i.blob-l - ~& > lost=`@p`(mug i.blob-l) blob-loop(blob-l t.blob-l) ?~ unsent-fragments.message-pump-state.i.snd-l bone-loop(snd-l t.snd-l) ?: =(message-blob fragment.i.unsent-fragments.message-pump-state.i.snd-l) - ~& > found-unsent=`@p`(mug message-blob) `@`fragment.i.unsent-fragments.message-pump-state.i.snd-l - ~& > lost-unsent=`@p`(mug fragment.i.unsent-fragments.message-pump-state.i.snd-l) bone-loop(snd-l t.snd-l) :: +on-wake: handle timer expiration ::