Sync minor refactor - Remove a level of indent

src/Sync.hs

@@ -43,11 +43,12 @@ syncWebsites consumer_settings = do
 
     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
             putStrLn $ "Error getting board information: " ++ show e
             exitFailure
-        Right latest_posts_per_board -> do
+        Right latest_posts_per_board -> return latest_posts_per_board
+
     print latest_posts_per_board
 
     let boards_per_site :: Map.Map Int [ String ] =