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)