0
/
chan-delorean
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Sync - call saveNewThreads

This commit is contained in:
towards-a-new-leftypol 2025-02-12 20:07:40 -05:00
parent 1f4b12c907
commit 2055a16deb
1 changed files with 18 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/Sync.hs
View File

@ -31,18 +31,24 @@ import qualified JSONParsing as JS
consumerSettingsToPartialJSONSettings :: S.ConsumerJSONSettings -> JS.JSONSettings consumerSettingsToPartialJSONSettings :: S.ConsumerJSONSettings -> JS.JSONSettings
consumerSettingsToPartialJSONSettings S.ConsumerJSONSettings {..} = consumerSettingsToPartialJSONSettings S.ConsumerJSONSettings {..} =
JS.JSONSettings JS.JSONSettings
{ JS.postgrest_url = postgrest_url { postgrest_url = postgrest_url
, JS.jwt = jwt , jwt = jwt
, backup_read_root = undefined , backup_read_root = undefined
, JS.media_root_path , media_root_path
, site_name = undefined , site_name = undefined
, site_url = undefined , site_url = undefined
} }
threadMain :: QE.BoardQueueElem -> IO () mkJsonSettings :: S.ConsumerJSONSettings -> Site.Site -> JS.JSONSettings
threadMain board_elem = do mkJsonSettings cs site = (consumerSettingsToPartialJSONSettings cs)
-- really need to get the board catalog here { JS.site_name = Site.name site
, JS.site_url = Site.url site
}
threadMain :: S.ConsumerJSONSettings -> QE.BoardQueueElem -> IO ()
threadMain csmr_settings board_elem = do
putStrLn $ Board.pathpart $ QE.board board_elem putStrLn $ Board.pathpart $ QE.board board_elem
thread_results <- runExceptT $ do thread_results <- runExceptT $ do
@ -56,8 +62,13 @@ threadMain board_elem = do
(\t -> Lib.epochToUTCTime (JS.last_modified t) > board_last_modified) (\t -> Lib.epochToUTCTime (JS.last_modified t) > board_last_modified)
catalog_threads catalog_threads
let settings = mkJsonSettings csmr_settings $ QE.site board_elem
liftIO $ print changed_threads liftIO $ print changed_threads
Lib2.saveNewThreads settings (QE.board board_elem) changed_threads
print thread_results print thread_results
@ -89,7 +100,7 @@ mainLoop csmr_settings pq = do
return (board_elem, stdGen_) return (board_elem, stdGen_)
_ <- forkFinally (threadMain board_elem) $ \threadResult -> do _ <- forkFinally (threadMain csmr_settings board_elem) $ \threadResult -> do
case threadResult of case threadResult of
Left e -> print e Left e -> print e
_ -> return () _ -> return ()