fetch stores concurrently

cmoog · May 26, 2024 · 92618ef · 92618ef
1 parent 8066e25
commit 92618ef
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/Main.hs b/Main.hs
@@ -1,5 +1,6 @@
 module Main where
 
+import Control.Concurrent.Async (mapConcurrently_)
 import Control.Monad
 import Data.ByteString.Lazy (ByteString)
 import Data.ByteString.Lazy qualified as L
@@ -53,7 +54,7 @@ handleArgs ["fetch"] = do
  , "546" -- NYC East Village
  , "452" -- Austin Seaholm
  ]
- mapM_ (scrapeStore conn) stores
+ mapConcurrently_ (scrapeStore conn) stores
  printlog "done"
  changeCount <- SQL.totalChanges conn
  printlog $ "changed rows: " <> show changeCount

diff --git a/traderjoes.cabal b/traderjoes.cabal
@@ -12,6 +12,7 @@ executable traderjoes
  ghc-options: -Wall -Werror
  build-depends: base
  , aeson
+ , async
  , blaze-html
  , blaze-markup
  , bytestring