From 3a11c15f629583378d5ebe71611b833007322249 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Sun, 4 Aug 2024 17:05:49 +0300 Subject: [PATCH] wip, debug --- hbs2-sync/src/HBS2/Sync/Prelude.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-sync/src/HBS2/Sync/Prelude.hs b/hbs2-sync/src/HBS2/Sync/Prelude.hs index 5f45075f..d5eacbc3 100644 --- a/hbs2-sync/src/HBS2/Sync/Prelude.hs +++ b/hbs2-sync/src/HBS2/Sync/Prelude.hs @@ -431,7 +431,7 @@ runDirectory path = do liftIO $ setModificationTime (path p) timestamp - when (freshIn p e remote) do + when (freshIn p e remote && actuallyFile) do -- FIXME: dangerous! lbs <- liftIO (LBS.readFile (path p))