From b4a2bbdf81e010ef54e2032d4fb809c1c5419d1f Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Sun, 4 Aug 2024 17:04:27 +0300
Subject: [PATCH] wip, debug

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

diff --git a/hbs2-sync/src/HBS2/Sync/Prelude.hs b/hbs2-sync/src/HBS2/Sync/Prelude.hs
index b6cf10ac..5f45075f 100644
--- a/hbs2-sync/src/HBS2/Sync/Prelude.hs
+++ b/hbs2-sync/src/HBS2/Sync/Prelude.hs
@@ -408,11 +408,11 @@ runDirectory path = do
 
         debug $ yellow "entry" <+> pretty p <+> viaShow e
 
-        -- actuallyFile <- liftIO $ doesFileExist filePath
+        actuallyFile <- liftIO $ doesFileExist filePath
 
         debug $ red "FRESH:" <+> pretty p <+> pretty (freshIn p e local)
 
-        when (freshIn p e local) $ void $ runMaybeT do
+        when (freshIn p e local && actuallyFile) $ void $ runMaybeT do
 
           h <- getEntryHash e & toMPlus