From a22c530952c30540d50dd43edb2536bde7775c53 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Tue, 12 Mar 2024 13:29:19 +0300 Subject: [PATCH] wip --- hbs2-peer/lib/HBS2/Peer/Proto/LWWRef.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-peer/lib/HBS2/Peer/Proto/LWWRef.hs b/hbs2-peer/lib/HBS2/Peer/Proto/LWWRef.hs index c4df2224..17346c20 100644 --- a/hbs2-peer/lib/HBS2/Peer/Proto/LWWRef.hs +++ b/hbs2-peer/lib/HBS2/Peer/Proto/LWWRef.hs @@ -78,7 +78,7 @@ instance Pretty (LWWRef e) where ) where seqno = parens ( "seq" <+> pretty lwwSeq ) - val = parens ( "value" <+> pretty lwwValue ) + val = parens ( "value" <+> dquotes (pretty lwwValue) ) proof | isNothing lwwProof = mempty | otherwise = parens ( "proof" <+> pretty lwwProof)