From 49bc432662cb952dc0b2604ff729d1e5931eb6bd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 2 Aug 2025 13:50:08 +0200
Subject: Function to compute symmetric difference between stored histories

---
 main/Test.hs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'main/Test.hs')

diff --git a/main/Test.hs b/main/Test.hs
index ac76494..fd6258d 100644
--- a/main/Test.hs
+++ b/main/Test.hs
@@ -271,6 +271,7 @@ commands =
     , ( "stored-roots", cmdStoredRoots )
     , ( "stored-set-add", cmdStoredSetAdd )
     , ( "stored-set-list", cmdStoredSetList )
+    , ( "stored-difference", cmdStoredDifference )
     , ( "head-create", cmdHeadCreate )
     , ( "head-replace", cmdHeadReplace )
     , ( "head-watch", cmdHeadWatch )
@@ -388,6 +389,19 @@ cmdStoredSetList = do
         cmdOut $ "stored-set-item" ++ concatMap ((' ':) . show . refDigest . storedRef) item
     cmdOut $ "stored-set-done"
 
+cmdStoredDifference :: Command
+cmdStoredDifference = do
+    st <- asks tiStorage
+    ( trefs1, "|" : trefs2 ) <- span (/= "|") <$> asks tiParams
+
+    let loadObjs = mapM (maybe (fail "invalid ref") (return . wrappedLoad @Object) <=< liftIO . readRef st . encodeUtf8)
+    objs1 <- loadObjs trefs1
+    objs2 <- loadObjs trefs2
+
+    forM_ (storedDifference objs1 objs2) $ \item -> do
+        cmdOut $ "stored-difference-item " ++ (show $ refDigest $ storedRef item)
+    cmdOut $ "stored-difference-done"
+
 cmdHeadCreate :: Command
 cmdHeadCreate = do
     [ ttid, tref ] <- asks tiParams
-- 
cgit v1.2.3