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

wip

This commit is contained in:
Dmitry Zuikov 2024-08-04 13:40:55 +03:00
parent 0ea0b90a9d
commit 33b49287bc
1 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -356,10 +356,9 @@ runDirectory path = do
for_ (Map.toList merged) $ \(p,e) -> do for_ (Map.toList merged) $ \(p,e) -> do
debug $ yellow "entry" <+> pretty p <+> viaShow e debug $ yellow "entry" <+> pretty p <+> viaShow e
warn $ red "POSTING IS SWITCHED OFF" -- warn $ red "POSTING IS SWITCHED OFF"
when (not (Map.member p remote) && isFile e) do
when (not (Map.member p remote) && isFile e && False) do
-- FIXME: dangerous! -- FIXME: dangerous!
lbs <- liftIO (LBS.readFile (path </> p)) lbs <- liftIO (LBS.readFile (path </> p))
@ -394,8 +393,6 @@ runDirectory path = do
notice $ red "POST NEW REMOTE ENTRY" <+> pretty p <+> pretty href notice $ red "POST NEW REMOTE ENTRY" <+> pretty p <+> pretty href
pure ()
unless (Map.member p local) do unless (Map.member p local) do
notice $ red "WRITE NEW LOCAL ENTRY" <+> pretty p notice $ red "WRITE NEW LOCAL ENTRY" <+> pretty p
@ -441,12 +438,7 @@ runDirectory path = do
let r = entriesFromFile ts (loc </> fn) let r = entriesFromFile ts (loc </> fn)
lift $ S.yield r lift $ S.yield r
let ess = Map.unionsWith merge ess0 pure $ Map.unionsWith merge ess0
for_ (Map.toList ess) $ \(p,e) -> do
debug $ "REMOTE ENTRY" <+> pretty p <+> viaShow e
pure mempty
syncEntries :: forall c m . (MonadUnliftIO m, IsContext c) => MakeDictM c m () syncEntries :: forall c m . (MonadUnliftIO m, IsContext c) => MakeDictM c m ()