From 300a61340ff1744ea3241c9744c80ce2215df74c Mon Sep 17 00:00:00 2001 From: Arnaud Bailly Date: Wed, 5 Nov 2025 17:03:38 +0100 Subject: better logging when loading challenges --- lambda-calcul/haskell/src/Minilang/Server.hs | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) (limited to 'lambda-calcul/haskell/src/Minilang') diff --git a/lambda-calcul/haskell/src/Minilang/Server.hs b/lambda-calcul/haskell/src/Minilang/Server.hs index 68d991a..4252669 100644 --- a/lambda-calcul/haskell/src/Minilang/Server.hs +++ b/lambda-calcul/haskell/src/Minilang/Server.hs @@ -53,7 +53,7 @@ startServer serverPort = do envs <- newTVarIO mempty logger <- newLog "minilang" loggerMiddleware <- runHTTPLog logger - challenges <- readChallenges + challenges <- readChallenges logger env <- newStdGen >>= (`makeEnv` challenges) let app = loggerMiddleware $ @@ -75,14 +75,20 @@ startServer serverPort = do destination = Callback (\str -> logInfo logger (decode @Value $ fromStrict $ fromLogStr str)) } -readChallenges :: IO [Challenge] -readChallenges = do +readChallenges :: LoggerEnv IO -> IO [Challenge] +readChallenges logger = do file <- try $ LBS.readFile "challenges.json" case file of - Left (_ :: IOError) -> pure defaultChallenges + Left (_ :: IOError) -> do + logInfo logger $ object ["action" .= ("NoChallengesFile" :: Text)] + pure defaultChallenges Right content -> case eitherDecode content of - Right challenges -> pure challenges - Left _ -> pure defaultChallenges + Right challenges -> do + logInfo logger $ object ["action" .= ("LoadedChallenges" :: Text), "count" .= length challenges] + pure challenges + Left err -> do + logError logger $ object ["action" .= ("FailedToLoadChallenges" :: Text), "error" .= show err] + pure defaultChallenges serveAPI :: Env -> Application serveAPI env = -- cgit v1.3.1