voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip, debug

This commit is contained in:
Dmitry Zuikov 2024-08-04 17:04:27 +03:00
parent d153bb24ab
commit b4a2bbdf81
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-sync/src/HBS2/Sync/Prelude.hs
View File

@ -408,11 +408,11 @@ runDirectory path = do
debug $ yellow "entry" <+> pretty p <+> viaShow e 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) 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 h <- getEntryHash e & toMPlus