From d969662c35fee0bebce8cae285750e0c8848713e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 22 Aug 2026 08:38:35 +0200
Subject: Test: include identity ref in local-identity events

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

(limited to 'main')

diff --git a/main/Test.hs b/main/Test.hs
index b06ed61..84cce1a 100644
--- a/main/Test.hs
+++ b/main/Test.hs
@@ -856,7 +856,7 @@ cmdWatchLocalIdentity = do
 
     out <- asks tiOutput
     w <- liftIO $ watchHeadWith h headLocalIdentity $ \idt -> do
-        outLine out $ unwords $ "local-identity" : map (maybe "<unnamed>" T.unpack . idName) (unfoldOwners idt)
+        outLine out $ unwords $ "local-identity" : show (refDigest $ storedRef $ idExtData idt) : map (maybe "<unnamed>" T.unpack . idName) (unfoldOwners idt)
     modify $ \s -> s { tsWatchedLocalIdentity = Just w }
 
 cmdWatchSharedIdentity :: Command
-- 
cgit v1.2.3