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