wip, debug

2024-08-04 17:05:49 +03:00 · 2024-08-04 17:05:49 +03:00 · 3a11c15f62
parent b4a2bbdf81
commit 3a11c15f62
1 changed files with 1 additions and 1 deletions
--- 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))