From 33b49287bc1d00e50c5616e1e30003645ae4e4de Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Sun, 4 Aug 2024 13:40:55 +0300 Subject: [PATCH] wip --- hbs2-sync/src/HBS2/Sync/Prelude.hs | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) diff --git a/hbs2-sync/src/HBS2/Sync/Prelude.hs b/hbs2-sync/src/HBS2/Sync/Prelude.hs index d10105b8..4a7c6de2 100644 --- a/hbs2-sync/src/HBS2/Sync/Prelude.hs +++ b/hbs2-sync/src/HBS2/Sync/Prelude.hs @@ -356,10 +356,9 @@ runDirectory path = do for_ (Map.toList merged) $ \(p,e) -> do 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 && False) do + when (not (Map.member p remote) && isFile e) do -- FIXME: dangerous! lbs <- liftIO (LBS.readFile (path p)) @@ -394,8 +393,6 @@ runDirectory path = do notice $ red "POST NEW REMOTE ENTRY" <+> pretty p <+> pretty href - pure () - unless (Map.member p local) do notice $ red "WRITE NEW LOCAL ENTRY" <+> pretty p @@ -441,12 +438,7 @@ runDirectory path = do let r = entriesFromFile ts (loc fn) lift $ S.yield r - let ess = Map.unionsWith merge ess0 - - for_ (Map.toList ess) $ \(p,e) -> do - debug $ "REMOTE ENTRY" <+> pretty p <+> viaShow e - - pure mempty + pure $ Map.unionsWith merge ess0 syncEntries :: forall c m . (MonadUnliftIO m, IsContext c) => MakeDictM c m ()