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))