From 0cf84e1c94a9372200cdc79ec6108af87b1ac32e Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Mon, 5 Aug 2024 11:39:04 +0300
Subject: [PATCH] wip

---
 hbs2-sync/src/HBS2/Sync/Prelude.hs | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/hbs2-sync/src/HBS2/Sync/Prelude.hs b/hbs2-sync/src/HBS2/Sync/Prelude.hs
index a5eaf03f..cb321e76 100644
--- a/hbs2-sync/src/HBS2/Sync/Prelude.hs
+++ b/hbs2-sync/src/HBS2/Sync/Prelude.hs
@@ -276,6 +276,10 @@ instance IsContext c => ToSexp c EntryDesc where
 instance IsContext c => ToSexp c Entry where
   toSexp (DirEntry w p) = mkForm @c "entry" [toSexp w, mkStr p]
 
+
+makeTomb :: Word64 -> FilePath -> Entry
+makeTomb t n = DirEntry (EntryDesc Tomb t Nothing) n
+
 entryPath :: Entry -> FilePath
 entryPath (DirEntry _ p) = p
 
@@ -520,11 +524,14 @@ mergeState orig = do
 
   let names = Map.keysSet (dirs <> files)
 
+  now <- liftIO $ getPOSIXTime <&> round
+
   S.toList_ do
     for_ (Map.toList files) $ \(p,e@(DirEntry d _)) -> do
       if Map.member p dirs then do
         let new = uniqName names p
         S.yield (new, DirEntry d new)
+        S.yield (p, makeTomb now p)
       else
         S.yield (p,e)
 
@@ -609,10 +616,9 @@ getStateFromDir seed path incl excl = do
      S.toList_ do
          S.each es0
          for_ es2 $ \(p, e) -> do
-           isDir <- liftIO $ doesDirectoryExist (path </> p)
-           ts <- liftIO $ getFileTimestamp  (path </> p)
-
-           when isDir do
+           d <- liftIO $ doesDirectoryExist (path </> p)
+           when d do
+            ts <- liftIO $ getFileTimestamp  (path </> p)
             S.yield (p, DirEntry (EntryDesc Dir ts mzero) p)
 
            S.yield (p,e)