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

wip, fixed back DELETING

This commit is contained in:
Dmitry Zuikov 2024-08-07 12:56:25 +03:00
parent 9bc657be48
commit 57fb0516f1
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -488,7 +488,7 @@ runDirectory = do
N (p,TombEntry e) -> do N (p,TombEntry e) -> do
notice $ green "removed entry" <+> pretty p notice $ green "removed entry" <+> pretty p
D (p,e) _ | isTomb e -> do D (p,e) _ -> do
notice $ "locally deleted file" <+> pretty p notice $ "locally deleted file" <+> pretty p
tombs <- getTombs tombs <- getTombs
@ -562,7 +562,8 @@ findDeleted = do
-- TODO: check-if-non-latin-filenames-work -- TODO: check-if-non-latin-filenames-work
-- resolved: ok -- resolved: ok
seen <- Compact.keys tombs seen <- Compact.keys tombs
<&> fmap BS8.unpack <&> fmap (deserialiseOrFail @FilePath . LBS.fromStrict)
<&> rights
S.toList_ do S.toList_ do
for_ seen $ \f0 -> do for_ seen $ \f0 -> do
@ -576,7 +577,7 @@ findDeleted = do
when (not here && isJust n) do when (not here && isJust n) do
S.yield (D (f0, makeTomb now f0 Nothing) n) S.yield (D (f0, makeTomb now f0 Nothing) n)
debug $ "found deleted" <+> pretty n <+> pretty f0 trace $ "found deleted" <+> pretty n <+> pretty f0
postEntryTx :: ( MonadUnliftIO m postEntryTx :: ( MonadUnliftIO m