From daa065e72c6bba61bbd00c21edec53dfc568ec2f Mon Sep 17 00:00:00 2001 From: Arnaud Bailly Date: Wed, 5 Nov 2025 13:55:33 +0100 Subject: better name for log identifier --- lambda-calcul/haskell/src/Minilang/Log.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lambda-calcul/haskell/src/Minilang') diff --git a/lambda-calcul/haskell/src/Minilang/Log.hs b/lambda-calcul/haskell/src/Minilang/Log.hs index 6f871bd..7200654 100644 --- a/lambda-calcul/haskell/src/Minilang/Log.hs +++ b/lambda-calcul/haskell/src/Minilang/Log.hs @@ -86,7 +86,7 @@ logEvent' chan logId message = do encode $ object [ "timestamp" .= ts, - "loggerId" .= logId, + "logger" .= logId, "message" .= message ] @@ -108,7 +108,7 @@ logStart chan logId ts command = encode $ object [ "timestamp" .= ts, - "servicer" .= logId, + "logger" .= logId, "message" .= command ] @@ -122,7 +122,7 @@ logEnd chan logId ts en outcome = object [ "timestamp" .= en, "durationMs" .= (diffUTCTime en ts * 1000), - "servicer" .= logId, + "logger" .= logId, "message" .= outcome ] @@ -136,6 +136,6 @@ logError' chan logId err = liftIO $ do encode $ object [ "timestamp" .= ts, - "servicer" .= logId, + "logger" .= logId, "error" .= err ] -- cgit v1.3.1