diff --git a/hbs2-peer/lib/HBS2/Peer/Proto/LWWRef/Internal.hs b/hbs2-peer/lib/HBS2/Peer/Proto/LWWRef/Internal.hs index 1eb3fc26..995b3dbe 100644 --- a/hbs2-peer/lib/HBS2/Peer/Proto/LWWRef/Internal.hs +++ b/hbs2-peer/lib/HBS2/Peer/Proto/LWWRef/Internal.hs @@ -53,7 +53,7 @@ lwwRefProto :: forall e s m proto . ( MonadIO m -> LWWRefProto e -> m () lwwRefProto adapter pkt@(LWWRefProto1 req) = do - debug $ yellow "lwwRefProto" + trace $ yellow "lwwRefProto" case req of LWWProtoGet key -> deferred @proto $ void $ runMaybeT do