diff options
| author | Arnaud Bailly <arnaud@pankzsoft.com> | 2025-11-05 13:55:33 +0100 |
|---|---|---|
| committer | Arnaud Bailly <arnaud@pankzsoft.com> | 2025-11-05 13:55:33 +0100 |
| commit | daa065e72c6bba61bbd00c21edec53dfc568ec2f (patch) | |
| tree | 79ede6b2d0fd10aa685a6dafbcb7b4d649848e1a | |
| parent | 789fefb111f0ad38a01e2faa9962167269786bb6 (diff) | |
| download | lambda-nantes-daa065e72c6bba61bbd00c21edec53dfc568ec2f.tar.gz | |
better name for log identifier
| -rw-r--r-- | lambda-calcul/haskell/src/Minilang/Log.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 ] |