diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-08-22 08:38:35 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-08-22 08:38:35 +0200 |
| commit | d969662c35fee0bebce8cae285750e0c8848713e (patch) | |
| tree | c570dd520e2720c834bb75d25b609dd0144ffe6e /main/Test.hs | |
| parent | 997a6e8633af550c7aa3cee049ac42674de9a5e7 (diff) | |
Test: include identity ref in local-identity events
Diffstat (limited to 'main/Test.hs')
| -rw-r--r-- | main/Test.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |