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

Sync minor refactor - Remove a level of indent

This commit is contained in:
towards-a-new-leftypol 2025-02-05 05:17:50 -05:00
parent bffc851999
commit 3ba873b984
1 changed files with 71 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Sync.hs
View File

@ -43,11 +43,12 @@ syncWebsites consumer_settings = do
latest_posts_per_board_results <- Client.getLatestPostsPerBoard json_settings latest_posts_per_board_results <- Client.getLatestPostsPerBoard json_settings
case latest_posts_per_board_results of latest_posts_per_board <- case latest_posts_per_board_results of
Left e -> do Left e -> do
putStrLn $ "Error getting board information: " ++ show e putStrLn $ "Error getting board information: " ++ show e
exitFailure exitFailure
Right latest_posts_per_board -> do Right latest_posts_per_board -> return latest_posts_per_board
print latest_posts_per_board print latest_posts_per_board
let boards_per_site :: Map.Map Int [ String ] = let boards_per_site :: Map.Map Int [ String ] =