From 85bbc8516a30db84713050d34b3d52faac5c57b7 Mon Sep 17 00:00:00 2001 From: Paul Brinkmeier Date: Mon, 22 Sep 2025 16:07:42 +0200 Subject: [PATCH] Make doIndex a loop --- app/Main.hs | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index b5dd251..2fc267d 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -114,12 +114,9 @@ doIndex :: Config -> DB -> ExceptT Error IO () doIndex cfg db = catchE ( DB.withTransaction db $ \conn -> do - dayThen <- getTodayWithOffset (-100) 0 - indexDay cfg dayThen conn - dayThen2 <- getTodayWithOffset (-100) 1 - indexDay cfg dayThen2 conn - dayThen3 <- getTodayWithOffset (-100) 2 - indexDay cfg dayThen3 conn + forM_ [0, 1, 2] $ \i -> do + dayThen <- getTodayWithOffset (-100) i + indexDay cfg dayThen conn ) (Log.error . show) @@ -144,6 +141,9 @@ runServer cfg db = (statusCode status) (requestLine req) + onException mbReq ex = do + Log.error $ printf "unhandled exception%s: %s%s" (maybe "" ((" in " ++) . requestLine) mbReq) (show ex) + requestLine :: Request -> String requestLine req = printf @@ -151,9 +151,6 @@ runServer cfg db = (BS8.unpack $ requestMethod req) (BS8.unpack $ rawPathInfo req <> rawQueryString req) - onException mbReq ex = do - Log.error $ printf "unhandled exception%s: %s%s" (maybe "" ((" in " ++) . requestLine) mbReq) (show ex) - nt :: ExceptT Error IO a -> Handler a nt action = MkHandler $ do res <- runExceptT action